home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Floppy Magazine 1988 #6
/
Floppy_Magazine_88-6_1988_Megasystems_Oy_fi_Side_A.d64
/
menu2
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
2KB
|
49 lines
7 ifa>0then100
9 sys65409:sys64931:poke53280,0:poke53281,0:poke198,0:goto100
10 poke56576,4:poke648,196:poke53272,18:print"[147][158]";
11 gosub40:gosub46:poke198,0:wait198,1:poke204,1
12 poke254,1:ifchr$(peek(631))="e"thenpoke254,0
13 print"[147]":gosub40:print"turbolataus ei toimi v[ltt[m[tt["
14 print":;-d^ss[ eik[ :>,[160][162]:>,:^ss[^ turbo"
15 print"toimii l[hinn[ :>=[160]^ss[ ja :>=:^ss[^":poke198,0:poke631,0
18 print"kaikki muut turbot eiv[t kuitenkaan":print"v[ltt[m[tt[ toimi ";
19 print"floppiksessa^":print"haluatko floppiksen turbon[205] k[162]e[205]^^^[157][157][157][157][157][157][157]";
20 poke204,0:wait198,1:poke204,1:gosub30:return
23 ifcbm=0thenprint"[147][198]loppiksen turbo ei ole paalla.":goto25
24 print"[147][198]loppiksen turbo on paalla."
25 print"[214]alikon kaikkien osien latauduttua"
26 print"paina [210][197][212][213][210][206]ia paastaksesi kansikuvasta"
27 print"valikkoon.":return
30 poke56576,3:poke53272,20:poke648,4:return
40 print" 2333333333333333333333333333333334"
41 print" 9 !"chr$(34)"#$ ./01 8"
42 print" 9 [193][194][195][196][197][198][199][200][201][202][203][204] [206][207][208][209][210][211][212][213][214][215][216][217][218][219][220][221][255][223]8"
43 print" 9 [161] [163][164][165][166][167][168][169][170][171][172][173][174][175][176][177][178][179][180][181][182][183][184][185][186][187][188][189][190][191]8"
44 print" 9[173][174]3333%3&33()33[173][174]33*+3333333333 8"
45 print" 5666666666666666666666666666666667":return
46 print" _ =^ vuosikerta[162] ?^ numero _"
47 print" haluatko kuvallisen latauksen[205] k[162]e^[157][157][157][157]";:poke204,0:return
100 a=a+1:onagoto105,110,115,120,170
105 load"menu.display",8,1
110 gosub10:load"fmturbo",8,1
115 load"graph.display",8,1
120 cbm=0:ifchr$(peek(631))="k"thensys52704:cbm=1
122 gosub23
130 poke49875,cbm:sys50560:f$="alateksti,s":n$="!":gosub141:sys50096
131 ifpeek(254)=0then165
140 f$="ddfmcover5/88":n$="[200][217][214][219][219] [202][207][213][204][213][193] [212][197][201][204][204][197] [203][193][201][203][201][204][204][197] !!!":sys49952
141 iflen(f$)>16thenf$=left$(f$,16)
142 poke49882,len(f$):poke49883,len(n$)
144 fori=1tolen(f$):poke49903+i,asc(mid$(f$,i,1)):next:ifn$="!"thenreturn
145 iff$="mx"thenreturn
146 iflen(n$)>32thenn$=left$(n$,32)
148 fori=1tolen(n$):poke51471+i,asc(mid$(n$,i,1)):next
150 type=2:iftype=0then c1=10:c2=0:poke49872,c1:poke49873,c2
155 rem: color 1&2 (c1&c2) tulevat mahd. newsroom-latauskuvaan. arvot 0-15
156 remtype:0=newsroom,1=koala,2=doodle
160 poke49874,type:sys49776
165 load"text.display",8,1
170 a$=chr$(34)
180 print"[147][144]load"a$"mx"a$",8"
190 poke198,1:poke631,131:new