1 REM ********************************
2 REM *     COMMODORE DISK USER      *
3 REM *  TECHNO INFO (C) JUNE 1990   *
4 REM *                              *
5 REM * THIS PROGRAM BY JASON FINCH  *
6 REM ********************************
7 :
8 :
9 :
10 POKE53280,14:POKE53281,6:PRINT"[147][142]PROGRAM TO CONVERT MENUS FOR USE WITH"
20 PRINT"OLD MODELS OF THE COMMODORE 64."
30 PRINT"WRITTEN FOR TECHNO INFO BY JASON FINCH"
40 PRINT"PLEASE ENTER NAME OF ORIGINAL MENU":PRINT":MENU[157][157][157][157]";
50 OPEN1,0:INPUT#1,A$:CLOSE1:PRINT:IFLEN(A$)=0ORLEN(A$)>16THENRUN
60 F1$=A$:PRINT"...AND THE NEW ONE TO BE CREATED":PRINT":MENU-V2[157][157][157][157][157][157][157]";
70 OPEN1,0:INPUT#1,A$:CLOSE1:PRINT:IFLEN(A$)=0ORLEN(A$)>16THENRUN
80 F2$=A$:PRINT"INSERT DISK CONTAINING '"F1$"'":PRINT"AND THEN PRESS ANY KEY
90 [151]198,0:[146]198,1:[151]198,0:[153]"WORKING...."
95 :
100 [159]15,8,15,"I0":[159]2,8,0,F1$[170]",P":[159]3,8,1,F2$[170]",P":[141]200
110 [129]I[178]0[164]1185:[161]#2,A$:A[178][198](A$[170][199](0))
120 [152]3,[199](A);:[153]"ON",,2733[171]I:[130]
130 [152]3,[199](33)[199](208);:[161]#2,A$:[161]#2,A$
140 [129]I[178]0[164]1547:[161]#2,A$:A[178][198](A$[170][199](0))
150 [152]3,[199](A);:[153]"ON",,1547[171]I"CMD ":[130]
160 [160]3:[160]2:[141]200:[153]"LOADALL DONE...":[160]15:[128]
200 [132]15,E,E$,T,S:[139]E[178]0[167][142]
210 [160]3:[160]2:[160]15:[153]"LOAD**DISK ERROR**":[153]E$
220 [153]"TRACK:"T,"SECTOR:"S:[153]"PRESS ANY KEY TO RESTART"
230 [151]198,0:[146]198,1:[151]198,0:[138]