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 >
Commodore BASIC  |  2023-02-26  |  2KB  |  49 lines

  1. 7 ifa>0then100
  2. 9 sys65409:sys64931:poke53280,0:poke53281,0:poke198,0:goto100
  3. 10 poke56576,4:poke648,196:poke53272,18:print"[147][158]";
  4. 11 gosub40:gosub46:poke198,0:wait198,1:poke204,1
  5. 12 poke254,1:ifchr$(peek(631))="e"thenpoke254,0
  6. 13 print"[147]":gosub40:print"turbolataus ei toimi v[ltt[m[tt["
  7. 14 print":;-d^ss[ eik[ :>,[160][162]:>,:^ss[^ turbo"
  8. 15 print"toimii l[hinn[ :>=[160]^ss[ ja :>=:^ss[^":poke198,0:poke631,0
  9. 18 print"kaikki muut turbot eiv[t kuitenkaan":print"v[ltt[m[tt[ toimi ";
  10. 19 print"floppiksessa^":print"haluatko floppiksen turbon[205] k[162]e[205]^^^[157][157][157][157][157][157][157]";
  11. 20 poke204,0:wait198,1:poke204,1:gosub30:return
  12. 23 ifcbm=0thenprint"[147][198]loppiksen turbo ei ole paalla.":goto25
  13. 24 print"[147][198]loppiksen turbo on paalla."
  14. 25 print"[214]alikon kaikkien osien latauduttua"
  15. 26 print"paina [210][197][212][213][210][206]ia paastaksesi kansikuvasta"
  16. 27 print"valikkoon.":return
  17. 30 poke56576,3:poke53272,20:poke648,4:return
  18. 40 print"   2333333333333333333333333333333334"
  19. 41 print"   9 !"chr$(34)"#$         ./01              8"
  20. 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"
  21. 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"
  22. 44 print"   9[173][174]3333%3&33()33[173][174]33*+3333333333 8"
  23. 45 print"   5666666666666666666666666666666667":return
  24. 46 print"      _ =^ vuosikerta[162] ?^ numero _"
  25. 47 print"   haluatko kuvallisen latauksen[205] k[162]e^[157][157][157][157]";:poke204,0:return
  26. 100 a=a+1:onagoto105,110,115,120,170
  27. 105 load"menu.display",8,1
  28. 110 gosub10:load"fmturbo",8,1
  29. 115 load"graph.display",8,1
  30. 120 cbm=0:ifchr$(peek(631))="k"thensys52704:cbm=1
  31. 122 gosub23
  32. 130 poke49875,cbm:sys50560:f$="alateksti,s":n$="!":gosub141:sys50096
  33. 131 ifpeek(254)=0then165
  34. 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
  35. 141 iflen(f$)>16thenf$=left$(f$,16)
  36. 142 poke49882,len(f$):poke49883,len(n$)
  37. 144 fori=1tolen(f$):poke49903+i,asc(mid$(f$,i,1)):next:ifn$="!"thenreturn
  38. 145 iff$="mx"thenreturn
  39. 146 iflen(n$)>32thenn$=left$(n$,32)
  40. 148 fori=1tolen(n$):poke51471+i,asc(mid$(n$,i,1)):next
  41. 150 type=2:iftype=0then c1=10:c2=0:poke49872,c1:poke49873,c2
  42. 155 rem: color 1&2 (c1&c2) tulevat mahd.    newsroom-latauskuvaan. arvot 0-15
  43. 156 remtype:0=newsroom,1=koala,2=doodle
  44. 160 poke49874,type:sys49776
  45. 165 load"text.display",8,1
  46. 170 a$=chr$(34)
  47. 180 print"[147][144]load"a$"mx"a$",8"
  48. 190 poke198,1:poke631,131:new
  49.