home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Disk User Volume 3 #8
/
Commodore_Disk_User_Vol.3_8_1990_-.d64
/
prob1
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
31 lines
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]