home *** CD-ROM | disk | FTP | other *** search
/ Floppy Magazine 1988 #1 / Floppy_Magazine_88-1_1988_Megasystems_Oy_fi_Side_A.d64 / menu2 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  43 lines
  1. 1 remark: restaurointi by toni luode,   2 remark: copyright by protocol prod.oy
  2. 7 ifcn>0then40
  3. 8 ifa>0then100
  4. 9 sys65409:sys64931:poke53280,0:poke53281,0:poke198,0:goto100
  5. 10 print"[147][158][190][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][188]";
  6. 11 print"[170][146]  [198]loppy [205]agazine, [208][204] 1, 02631 [197][211][208][207][207]  [180]";
  7. 12 print"[187][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][172]"
  8. 13 print"[212]urbolataus ei toimi valttamatta"
  9. 14 print"128[196]:ssa eika 1570/1571:ssa. [212]urbo"
  10. 15 print"toimii lahinna 1541:ssa ja 1540:ssa.":poke198,0:poke631,0
  11. 16 print"[200]aluatko turbolatauksen, [203]ylla vai [197]i? ":print"[202]os et halua, paina n";
  12. 17 print". 10 sekunnin":print"kuluessa jotain nappainta. [211]illoin":print"latau";
  13. 18 print"srutiini pysyy nykyisessa":print"tilassaan. [203]aikki muut turbot"
  14. 19 print"eivat kuitenkaan valttamatta toimi":print"[198]loppiksessa!":return
  15. 20 ifcbm=0thenprint"[147][198]loppiksen turbo ei ole paalla.":goto22
  16. 21 print"[147][198]loppiksen turbo on paalla."
  17. 22 print"[214]alikon kaikkien osien latauduttua"
  18. 23 print"paina [210][197][212][213][210][206]ia paastaksesi kansikuvasta"
  19. 24 print"valikkoon."
  20. 25 print"[202]a nyt ihan etukateen kaikille oikein"
  21. 26 print"mukavia lukuhetkia uusimman [198]loppiksen"
  22. 27 print"parissa!!":return
  23. 100 a=a+1:onagoto110,120,130,170
  24. 110 gosub10:load"fmturbo",8,1
  25. 120 cbm=0:ifpeek(198)=0thensys52704:cbm=1
  26. 122 gosub20:load"graph.display",8,1
  27. 130 poke49875,cbm:sys50560:f$="alateksti,s":n$="!":gosub141:sys50096
  28. 140 f$="ddluodesoft!":n$="[212][197][210][214][197][212][213][204][207][193] [198][204][207][208][208][217] [205][193][199][193][218][201][206][197][197][206] !!":sys49952
  29. 141 iflen(f$)>16thenf$=left$(f$,16)
  30. 142 poke49882,len(f$):poke49883,len(n$)
  31. 144 fori=1tolen(f$):poke49903+i,asc(mid$(f$,i,1)):next:ifn$="!"thenreturn
  32. 145 iff$="mx"thenreturn
  33. 146 iflen(n$)>32thenn$=left$(n$,32)
  34. 148 fori=1tolen(n$):poke51471+i,asc(mid$(n$,i,1)):next
  35. 150 type=2:iftype=0then c1=10:c2=0:poke49872,c1:poke49873,c2
  36. 155 rem: color 1&2 (c1&c2) tulevat mahd.    newsroom-latauskuvaan. arvot 0-15
  37. 156 rem: type: 0=newsroom, 1=koala,                    2=doodlekuva.
  38. 160 poke49874,type:sys49776
  39. 165 load"text.display",8,1
  40. 170 a$=chr$(34)
  41. 180 print"[144][147]load"a$"mx"a$",8"
  42. 190 poke198,1:poke631,131:end
  43.