home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Go64!
/
Go64_1999-03_1999_CSW_Side_A.d64
/
prog menu
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
747b
|
21 lines
5 poke45,peek(174):poke46,peek(175):clr
10 dv=peek(186):ifdv<8ordv>16thendv=8
20 open15,dv,15:ml=38400:sl=52608:dt=peek(ml+87)+256*peek(ml+88)
25 dn$="":dimf$(16)
30 print"[147] [211]elect program:":open1,dv,0,"$:nova.*":get#1,a$,a$:sysml+54:mx=0
40 sysml+54:ifright$(z$,1)="."orright$(z$,4)="free"then80
45 geta$:ifa$="[133]"thenclose1:print:goto110
46 ifp=0thenp=val(a$)
47 ifp>0andmx>=pthenprint:goto101
50 f$="":mx=mx+1:fori=12to22:a$=mid$(z$,i,1):ifa$=chr$(34)theni=22:goto70
60 f$(mx)=f$(mx)+a$
70 next:print" "f$(mx)"[160]":goto40
80 close1:print" [210]eturn to [206]ovaterm[160]":mx=mx+2
90 poke780,1:poke781,2:poke782,mx:pokedt+37,1:syssl+27:p=peek(780):ifp=mxthen110
101 print" [204]oading nova."f$(p)
102 open2,dv,0,"nova."+f$(p):input#15,e:close2:ife>19then30
105 load"nova."+f$(p),dv
110 open2,dv,0,"novaterm ?.?*":input#15,e:close2:ife>19thenend
115 print" [204]oading [206]ovaterm..."
120 poke787,dv:clr:load"novaterm ?.?*",peek(787)