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