home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Disk User Volume 4 #11
/
Commodore_Disk_User_Vol.4_11_1991_-.d64
/
ldmenu.bas
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
521b
|
28 lines
10000 rem load menu
10010 print
10020 print "load menu, quit, or repeat (m,q,r)? "
10030 get a$:if a$="" then 10030
10040 if a$="r" then 100
10050 if a$<>"q" then 10100
10090 print "[147]":end
10100 if a$<>"m" then 10030
10110 open 15,8,15,"r0:file menu=file menu"
10120 input#15,en,em$,et,es:close15
10130 if en=63 then fi$="file menu":goto 10160
10140 print "error - file menu not found"
10150 goto 10020
10160 poke 646,0
10170 print"[147]"chr$(13)
10180 print"load"chr$(34)+fi$+chr$(34)",8"
10190 print "run"
10200 poke 646,1
10210 print"loading "fi$
10220 poke 646,0
10230 poke 631,19
10240 poke 632,17
10250 poke 633,17
10260 poke 634,13
10270 poke 635,13
10280 poke 198,5
10290 new