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