home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Toolkit / SWAP (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  896 b   |  24 lines
  1. 10 PRINT"[147][158]         [185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]
  2. 30 [153]"               DRIVE CHANGER
  3. 50 PRINT"         [184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
  4. 70 [133]"     FIRST DRIVE NO. TO CHANGE";D1
  5. 90 [133]"    SECOND DRIVE NO. TO CHANGE";D2
  6. 110 [133]"    THESE WILL SWAP NUMBERS OK  YCMDCMDCMD";Y$
  7. 130 [139] Y$[179][177]"Y" [167] [153]"      CAN'T DO MORE":[128]
  8. 150 D3[178]12:[143] IF YOU USE 12 AS A NORMAL RAM NUMBER CHANGE THIS TO A HIGHER ONE
  9. 160 DC[178]D1:DR[178]D3:P[178]1
  10. 161 [139] P[178]2 [167] DC[178]D2:DR[178]D1
  11. 162 [139] P[178]3 [167] DC[178]D3:DR[178]D2
  12. 163 [139] P[178]4 [167] [153] "SYS     CHANGED !":[137]600
  13. 170 [159] 1,DC,15
  14. 190 [152]1,"M-R"[199](0)[199](192)[199](1):[161]#1,A$:[160] 1
  15. 210 [139] [198](A$)[178] 192 [167] [137] 530
  16. 490 [159] 15,DC,15
  17. 500 [152]15,"M-W"[199](119)[199](0)[199](2)[199](DR[170]32)[199](DR[170]64):[160] 15
  18. 510 P[178]P[170]1:[137]161
  19. 530 [159] 15,DC,15
  20. 540 [152]15,"U0>"[170][199](DR):[160] 15
  21. 550 P[178]P[170]1:[137]161
  22. 600 [153]"   THIS WILL BE IN EFFECT UNTIL THE WAIT              DRIVES ARE RESET
  23. 605 PRINT:PRINT"  [158]SOME PROGRAMS DO THIS SO WATCH OUT !!":END
  24.