home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V3D08.D64 / prob1 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.1 KB  |  31 lines
  1. 1 REM ********************************
  2. 2 REM *     COMMODORE DISK USER      *
  3. 3 REM *  TECHNO INFO (C) JUNE 1990   *
  4. 4 REM *                              *
  5. 5 REM * THIS PROGRAM BY JASON FINCH  *
  6. 6 REM ********************************
  7. 7 :
  8. 8 :
  9. 9 :
  10. 10 POKE53280,14:POKE53281,6:PRINT"[147][142]PROGRAM TO CONVERT MENUS FOR USE WITH"
  11. 20 PRINT"OLD MODELS OF THE COMMODORE 64."
  12. 30 PRINT"WRITTEN FOR TECHNO INFO BY JASON FINCH"
  13. 40 PRINT"PLEASE ENTER NAME OF ORIGINAL MENU":PRINT":MENU[157][157][157][157]";
  14. 50 OPEN1,0:INPUT#1,A$:CLOSE1:PRINT:IFLEN(A$)=0ORLEN(A$)>16THENRUN
  15. 60 F1$=A$:PRINT"...AND THE NEW ONE TO BE CREATED":PRINT":MENU-V2[157][157][157][157][157][157][157]";
  16. 70 OPEN1,0:INPUT#1,A$:CLOSE1:PRINT:IFLEN(A$)=0ORLEN(A$)>16THENRUN
  17. 80 F2$=A$:PRINT"INSERT DISK CONTAINING '"F1$"'":PRINT"AND THEN PRESS ANY KEY
  18. 90 [151]198,0:[146]198,1:[151]198,0:[153]"WORKING...."
  19. 95 :
  20. 100 [159]15,8,15,"I0":[159]2,8,0,F1$[170]",P":[159]3,8,1,F2$[170]",P":[141]200
  21. 110 [129]I[178]0[164]1185:[161]#2,A$:A[178][198](A$[170][199](0))
  22. 120 [152]3,[199](A);:[153]"ON",,2733[171]I:[130]
  23. 130 [152]3,[199](33)[199](208);:[161]#2,A$:[161]#2,A$
  24. 140 [129]I[178]0[164]1547:[161]#2,A$:A[178][198](A$[170][199](0))
  25. 150 [152]3,[199](A);:[153]"ON",,1547[171]I"CMD ":[130]
  26. 160 [160]3:[160]2:[141]200:[153]"LOADALL DONE...":[160]15:[128]
  27. 200 [132]15,E,E$,T,S:[139]E[178]0[167][142]
  28. 210 [160]3:[160]2:[160]15:[153]"LOAD**DISK ERROR**":[153]E$
  29. 220 [153]"TRACK:"T,"SECTOR:"S:[153]"PRESS ANY KEY TO RESTART"
  30. 230 [151]198,0:[146]198,1:[151]198,0:[138]
  31.