0 'RESTOR.CO by PCSG (c) 1983 10 CLS:PRINT@41,"This program creates & saves RESTOR.CO" 11 PRINT" to cassette tape. Do NOT run unless" 12 PRINT" cassette is fully ready to record." 13 PRINT" See RESTOR.DOC for guidance." 14 PRINT:PRINT" Ready? [Y/N] ";:A$=INPUT$(1) 20 IFA$="Y"ORA$="y"THEN30ELSEMENU 30 CLS:FORI=64724TO64860:READJ:POKEI,J 40 PRINT@88,"Creating RESTOR.CO ...":PRINT@161,"POKEing address"I"with byte"J 50 NEXTI 60 CLS:PRINT@44,"Be sure to review RESTOR.DOC":PRINT" before attempting file recovery." 70 CSAVEM"RESTOR",64724,64860,64724 100 DATA 33,34,0,57,34,91,253,42,244,245,17,240,245,223,194,151,87,42,178,251,235 101 DATA 42,192,250,35,35,35,27,223,194,151,87,17,177,249,213,209,229,33,87,253 102 DATA 52,62,84,190,202,64,253,1,12,0,235,9,235,6,8,43,43,43,43,205 103 DATA 66,37,33,245,255,25,54,192,35,209,115,35,114,229,175,42,91,253,235,78 104 DATA 71,223,62,26,202,61,253,35,145,194,36,253,176,194,248,252,43,54,155,35 105 DATA 175,195,36,253,119,35,229,225,34,165,249,54,26,35,34,176,251,34,178,251 106 DATA 205,70,33,195,151,87,70,73,76,69,64,32,68,79,0,0