home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
UpTime Volume 2 #8
/
utv2n8s2.d64
/
menu
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-28
|
4KB
|
143 lines
100 rem *** opening / menu ***
105 poke53280,0:poke53281,0:poke53269,0
106 print"[147]"chr$(8)chr$(14)
107 gosub4000
108 if peek(2)=1 then 170
110 print"[151][213]p[212]ime presents..."
115 fori=15360to15360+1023
120 :pokei,96
130 nexti
140 poke53272,245
150 gosub1000
160 poke53272,21
165 delay=5:gosub2000
170 gosub60000
178 printchr$(14)
179 poke2,1
180 gosub3000
190 geta$:a=val(a$)
200 ifa<1ora>np+1then190
210 ifa=np+1then500
215 a=a-1
220 print"[147]";tab((40-len(t$(a)))/2);t$(a)
230 gosub3500
240 print""
250 fori=0tonl(a)-1
260 :printtab((40-len(ds$(a,i)))/2);ds$(a,i)
270 :delay=.5:gosub2000
280 nexti
285 delay=2:gosub2000
290 print"[204][207][193][196][201][206][199] ";t$(a)
300 print"[144]load";chr$(34);left$(t$(a),2);chr$(34);",8:[145][145][145][145]"
315 poke631,13:poke632,asc("r"):poke633,asc("[213]"):poke634,asc(":"):poke635,13
320 poke198,5:poke53269,0:stop
500 if peek(56)<=128 then sys32772
502 print"[147][208]lease put the disk away..."
505 delay=3:gosub2000
510 print"good-bye!"
515 delay=5:gosub2000
520 sys64738
1000 rem *** set up opening screen ***
1010 print"[147]";
1015 sp$=" "
1020 fori=1to17
1030 :sp$=sp$+" ":printsp$;
1040 :reada:ifa=0then1060
1050 :printchr$(a);:goto1040
1060 :printchr$(146);chr$(169)
1070 nexti
1080 readt$:print"";tab((40-len(t$))/2);t$
1090 return
2000 rem *** timer ***
2010 ti$="000000"
2020 ifti/60<delaythen2020
2030 return
3000 rem *** menu ***
3010 print"[147]";tab(10);tt$;
3015 print:print
3020 gosub 3500
3080 print"[195]hoose a program:"
3090 fori=0tonp-1
3100 :print" ";str$(i+1);". ";t$(i);""
3105 delay=.5:gosub2000
3110 nexti
3120 print" ";str$(np+1);". [197]xit [208]rogram"
3130 print"[217]our choice? (1-";str$(np+1);") "
3140 return
3500 rem *** line across screen ***
3510 print"";
3520 fori=1to40
3530 :print"[178]";
3540 nexti
3550 fori=1to40
3560 :print"[177]";
3570 nexti
3575 print"";
3580 return
4000 rem *** read program data ***
4005 read tt$
4010 readnp:rem number of progs
4020 fori=0tonp-1
4030 :readt$(i),nl(i)
4040 :forj=0tonl(i)-1
4050 ::readds$(i,j)
4060 :nextj
4070 nexti
4080 return
5000 rem *** program data ***
5005 data"[198] [210] [193] [195] [212] [201] [207] [206] [211] 1"
5010 data5
5040 data"[206][213][205][197][210][193][212][207][210] and [196][197][206][207][205][201][206][193][212][207][210]",1
5050 data" "
5060 data"[210][197][196][213][195][201][206][199][160][198][210][193][195][212][201][207][206][211]",1
5070 data" "
5080 data"[195][207][205][208][193][210][201][206][199] [198][210][193][195][212][201][207][206][211]",1
5090 data" "
5100 data"[201][205][208][210][207][208][197][210][160][198][210][193][195][212][201][207][206][211]",1
5110 data" "
5120 data"[195][200][193][206][199][201][206][199] [205][201][216][197][196][160][206][213][205][197][210][193][204][211]",1
5130 data" "
10000 rem *** data for opening screen
10010 data28,127,18,32,32,32,32,32,32,32,32,146,169,32,28,18,169,32,32,32,32
10020 data32,32,32,32,32,146,169,32,28,18,169,32,32,32,32,32,32,32,32,32,0
10030 data28,127,18,32,32,32,32,32,32,146,169,32,28,18,169,32,32,32,32
10040 data32,32,32,32,32,146,169,32,28,18,169,32,32,32,32,32,32,32,32,32,0
10050 data28,127,18,32,32,32,32,146,169,32,28,18,169,32,32,32,32
10060 data32,32,32,32,32,146,169,32,28,18,169,32,32,32,32,32,32,32,32,32,0
10070 data28,127,18,32,127,146,28,32,32,32,32,127,169,32,32,32,32,18,169,32
10080 data146,169,28,32,18,169,32,32,32,32,32,32,32,32,32,0
10090 data28,127,169,32,5,127,18,32,32,127,169,32,32,146,169,178,117,105,178
10100 data117,105,176,174,28,18,32,32,32,32,32,32,0
10110 data32,28,18,169,127,146,5,127,18,32,32,32,32,146,169,28,18,169,5,146,194
10120 data106,105,194,194,194,194,194,28,18,32,32,32,32,32,0
10130 data28,127,18,32,127,146,5,127,18,32,32,146,169,28,18,169,32,5,146,177
10140 data106,107,177,106,107,173,173,28,18,32,32,32,32,0
10150 data28,127,18,32,127,146,5,127,169,28,18,169,32,146,169,5,83,79,70,84,87
10160 data65,82,69,28,18,32,32,32,0
10170 data28,127,18,32,127,169,32,146,169,28,32,18,169,32,32,32,32,32,32,32,32
10180 data32,0
10190 data28,127,18,32,32,146,169,32,28,18,169,32,32,32,32,32,32,32,32,32,0
10200 :
10210 data28,127,169,32,28,18,169,32,32,32,32,32,32,32,32,32,0
10230 data32,28,18,169,32,32,32,32,32,32,32,32,32,0
10250 data28,127,18,32,32,32,32,32,32,32,32,0
10270 data28,127,18,32,32,32,32,32,32,0
10290 data28,127,18,32,32,32,32,0
10310 data28,127,18,32,32,0
10330 data28,127,18,0
10340 data"f r a c t i o n s 1"
60000 if peek(2)=1then60004
60001 for i=704 to 767
60002 readx:pokei,x
60003 next
60004 poke2040,11
60005 poke53269,peek(53269)or1
60006 poke53287,2:poke53277,255:poke53271,255
60007 poke53248,30:poke53249,58
60008 return
60009 data252,252,252,121,249,248,51,243,240
60010 data7,231,224,15,207,192,7,159,128
60011 data3,63,0,0,126,0,0,252,0
60012 data0,120,0,0,48,0,0,0,0
60013 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0