home *** CD-ROM | disk | FTP | other *** search
/ Emulator Universe CD / emulatoruniversecd1998.iso / C64 / ROMs / LEADERB1.D64 / backup (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-11-27  |  3.0 KB  |  87 lines
  1. 10 REM*****************************
  2. 20 REM
  3. 30 REM  HIGH SPEED DISK COPIER
  4. 40 REM
  5. 50 REM*****************************
  6. 60 REM
  7. 100 POKE53281,0:POKE53280,0:POKE788,49
  8. 110 PRINT"[147]";CHR$(14)
  9. 120 PRINT"[158]        [205][193][203][201][206][199][160][194][193][195][203][213][208][160][195][207][208][201][197][211]"
  10. 130 PRINT
  11. 140 PRINT"[159][212]HE ORIGINAL [215][207][210][204][196][160][195][204][193][211][211][160]DISKETTE IS"
  12. 150 PRINT"CALLED THE [208][210][207][199][210][193][205][160][196][201][211][203].  [159][217]OU SHOULD
  13. 160 [153]"MAKE AT LEAST ONE DUPLICATE OF THE"
  14. 170 [153]"(null)(null)(null)CHR$(null)ATN(null)CLOSESTR$RIGHT$(null)(null)CLOSETO SERVE AS A PEEKATNLEN(null)(null)(null)CLOSEOPENIN"
  15. 180 [153]"THE EVENT THE ORIGINAL IS LOST OR"
  16. 190 [153]"DAMAGED.":[153]
  17. 200 [153]"OPEN(null)HE (null)(null)(null)CHR$(null)ATN(null)CLOSESTR$RIGHT$(null)(null)CLOSEHAS INFORMATION ON"
  18. 210 [153]"BOTH SIDES.  (null)E SUGGEST THAT YOU COPY
  19. 220 PRINT"EACH SIDE ONTO A SEPARATE DISK, AND"
  20. 230 PRINT"THUS YOUR [194][193][195][203][213][208] WILL CONSIST OF TWO"
  21. 240 PRINT"DISKS.  [196][201][211][203][160]#1 [159]WILL BE A COPY OF THE"
  22. 250 PRINT"[198][210][207][206][212][160][159]SIDE AND [196][201][211][203][160]#2 [159]WILL BE"
  23. 260 PRINT"A COPY OF THE [194][193][195][203] [159]SIDE.  [215]E SUGGEST"
  24. 280 PRINT"THAT YOU LABEL THEM '[215]ORLD [195]LASS [198]RONT'"
  25. 290 PRINT"[159]AND '[215]ORLD [195]LASS [194]ACK' [159]RESPECTIVELY.":PRINT
  26. 300 PRINT"[217]OU WILL ONLY NEED A COPY OF THE [194][193][195][203]"
  27. 310 PRINT"SIDE FOR USE WITH THE [195][207][213][210][211][197][160][197][196][201][212][207][210].":PRINT
  28. 320 PRINT"    [158](PRESS SPACE TO CONTINUE)"
  29. 340 GETA$:IF A$=""THEN340
  30. 350 PRINT"[147]":PRINT:PRINT
  31. 360 PRINT"[159][217]OU MAY USE NEW OR PREVIOUSLY USED"
  32. 370 PRINT"DISKS FOR YOUR [194][193][195][203][213][208][211].  [193]LL DATA ON"
  33. 380 PRINT"THE DISKS WILL BE [197][210][193][211][197][196][159] AS PART OF"
  34. 390 PRINT"[194][193][195][203][213][208][160]PROCESS, SO BE SURE TO USE "
  35. 400 PRINT"DISKS THAT [196][207][160][206][207][212][159] CONTAIN USEFUL DATA.":PRINT
  36. 405 GOSUB900
  37. 410 PRINT"[147][198][193][211][212][160][194][193][195][203][213][208][160][206][207][212][197][211]:"
  38. 420 PRINT" 1. [158][212]HIS IS A HIGH SPEED DISK BACKUP"
  39. 430 PRINT"    FOR THE 1541 DRIVE ONLY. "
  40. 440 PRINT"    [201]T REQUIRES 3 MINUTES PER SIDE.":PRINT
  41. 450 PRINT" 2. [158][212]HIS UTILITY DOES NOT WORK ON"
  42. 460 PRINT"    THE 1571 OR OTHER DRIVES THAT ARE"
  43. 470 PRINT"    NOT 100% COMPATIBLE WITH THE 1541.":PRINT
  44. 480 PRINT" 3. [158][212]HIS UTILITY MAY NOT WORK"
  45. 490 PRINT"    PROPERLY WITH A PRINTER INTERFACE"
  46. 500 PRINT"    OR OTHER EQUIPMENT CONNECTED OR"
  47. 505 PRINT"    IF YOUR DRIVE IS OUT OF ALIGNMENT.":PRINT
  48. 510 PRINT" 4. [158][212]HIS UTILITY DOES [206][207][212] ALWAYS"
  49. 520 PRINT"    RECOGNIZE A [215][210][201][212][197][160][208][210][207][212][197][195][212] TAB, SO"
  50. 530 PRINT"    FOLLOW SCREEN PROMPTS CAREFULLY.":PRINT
  51. 600 PRINT"    (PRESS SPACE TO CONTINUE)"
  52. 610 GETA$:IF A$=""THEN610
  53. 620 PRINT"[147]":PRINT
  54. 630 PRINT"[159][195]OPY ONE SIDE OF THE [208][210][207][199][210][193][205][160][196][201][211][203]"
  55. 640 PRINT"AT A TIME.":PRINT
  56. 650 PRINT"[215]ITH [198][193][211][212] [194][193][195][203][213][208][159] EACH SIDE WILL"
  57. 655 PRINT"REQUIRE 3 PASSES.  [211][204][207][215] [194][193][195][203][213][208][159] WILL"
  58. 656 PRINT"REQUIRE 3 OR MORE PASSES.":PRINT
  59. 660 PRINT"[196][207] [206][207][212] [159]TURN THE [208][210][207][199][210][193][205][160][196][201][211][203][160]OVER"
  60. 670 PRINT"UNTIL '[195][207][208][217][160][208][210][207][195][197][211][211][160][198][201][206][201][211][200][197][196]'[159] OR"
  61. 675 PRINT"'[195][207][208][217][160][195][207][205][208][204][197][212][197]'[159] IS SHOWN ON SCREEN.":PRINT:PRINT
  62. 690 PRINT"[153][215]HEN YOU ARE FINISHED MAKING BACKUPS,"
  63. 700 PRINT"[210][197][211][197][212] [153]YOUR COMPUTER OR TURN IT [207][198][198][153]"
  64. 710 PRINT"AND THEN [207][206][153] AGAIN."
  65. 720 PRINT:PRINT:PRINT:PRINT"[129][208]RESS <[198][129]> FOR [198][193][211][212][160][194][193][195][203][213][208]"
  66. 724 PRINT"[129]      <[211][129]> FOR [211][204][207][215][160][194][193][195][203][213][208]"
  67. 726 PRINT"[129]      <[197][129]> FOR [197][216][201][212][159]"
  68. 730 GET A$:IF A$=""THEN730
  69. 740 IFA$="F"OR A$="[198]"THEN800
  70. 745 IFA$="S"OR A$="[211]"THEN810
  71. 750 IFA$="E"ORA$="[197]"THENPRINT"[147]";CHR$(142):END
  72. 760 GOTO730
  73. 800 PRINT"[147]";CHR$(142):LOAD"FASTBACK",8
  74. 810 PRINT"[147]";CHR$(142):POKE45,182:POKE46,13:CLR:LOAD"SLOWBACK",8
  75. 900 PRINT
  76. 910 PRINT"[158][212]HERE ARE TWO SEPARATE COPY UTILITIES"
  77. 920 PRINT"AVAILABLE TO PRODUCE YOUR BACKUPS.":PRINT
  78. 930 PRINT"[198][193][211][212][160][194][193][195][203][213][208][158] IS VERY FAST (3 MIN/SIDE),"
  79. 940 PRINT"BUT WILL NOT WORK ON NON-1541 DRIVES"
  80. 950 PRINT"OR DRIVES THAT ARE OUT OF ALIGNMENT."
  81. 960 PRINT:PRINT"[211][204][207][215][160][194][193][195][203][213][208][158] WILL WORK ON ALMOST ANY"
  82. 970 PRINT"DRIVE, BUT IS VERY SLOW.":PRINT"(UP TO 20 MINUTES PER SIDE)."
  83. 980 PRINT
  84. 990 PRINT"     [129](PRESS SPACE TO CONTINUE)"
  85. 995 GETA$:IFA$=""THEN995
  86. 997 RETURN
  87.