home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Toolkit / RAMDOSDEMO.ARC / CHANGE UNIT # (.txt) next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.1 KB  |  29 lines
  1. 100 REM F$="0:CHANGE UNIT #": OPEN1,8,15,"S"+F$: CLOSE1: SAVEF$,8
  2. 110 PRINT"[147]";
  3. 120 PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
  4. 130 [153]"(null)  CHANGE UNIT NUMBER V011988 (null)
  5. 140 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]":PRINT
  6. 150 PRINT" FOR CBM SERIAL DISKS ONLY. IF"
  7. 160 PRINT" ANY DISKS ARE THE SAME NUMBER"
  8. 170 PRINT" POWER-OFF ALL  BUT  THE FIRST"
  9. 180 PRINT" UNIT TO BE CHANGED."
  10. 190 F=0: INPUT "  OLD [146] DEVICE # (8-30): ? 8 [157][157][157][157]";F
  11. 200 IF F<8 OR F>30 THEN PRINT "[145][145]": GOTO 190
  12. 210 T=0: INPUT "  NEW [146] DEVICE # (8-30): ? 9 [157][157][157][157]";T
  13. 220 IF T<8 OR T>30 THEN PRINT "[145][145]": GOTO 210
  14. 230 OPEN 1,F,15,"U0>"+CHR$(T): CLOSE1: IF ST THEN 250
  15. 240 OPEN 1,F,15,"M-W"+CHR$(119)+CHR$(0)+CHR$(2)+CHR$(T+32)+CHR$(T+64): CLOSE1
  16. 250 IF ST=0 THEN PRINT " COULD NOT CHANGE!": GOTO 270
  17. 260 PRINT " DEVICE";F;"CHANGED TO DEVICE";T
  18. 270 INPUT " CHANGE MORE UNITS (Y/N): ? N[157][157][157]";C$
  19. 280 IF C$="Y" THEN PRINT " POWER-ON NEXT UNIT TO CHANGE ": GOTO190
  20. 290 :
  21. 300 PRINT "PRESS ANY KEY FOR MENU, STOP TO EXIT"
  22. 320 GETA$: IF A$="" THEN 320
  23. 330 IF ABS(PEEK(65533)=255) THEN RUN "STARTUP*"      :REM C128 LOAD & RUN
  24. 340 PRINT "LOAD";CHR$(34);"STARTUP*";CHR$(34)",8" :REM C64  LOAD & RUN
  25. 350 PRINT "RUN[145][145][145][145][145][145][145][145]"
  26. 360 POKE631,13:POKE632,13:POKE198,2
  27. 370 END
  28. 9999 REM F.BOWEN 11/02/88 COPYRIGHT 1988 CBM, INC.
  29.