home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.whtech.com
/
ftp.whtech.com.tar
/
ftp.whtech.com
/
club100
/
utl
/
restor.ba
< prev
next >
Wrap
Text File
|
2006-10-19
|
1KB
|
20 lines
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