home *** CD-ROM | disk | FTP | other *** search
/ Floppy Magazine 1987 #2 / Floppy_Magazine_87-2_1987_Megasystems_Oy_fi_Side_A.d64 / menu (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  39 lines
  1. 1 rem kaikki materiaali (c) floppy magazine ja protocol productions oy
  2. 8 ifa>0then100
  3. 9 sys64789:sys65409:sys64931:poke53280,0:poke53281,0:poke198,0
  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.[145][145][145][145][145][145]"
  10. 16 print"[200]aluatko turbolatauksen, [203]ylla vai [197]i? ";:open1,0
  11. 18 get#1,cbm$:ifcbm$=""orcbm$<>"k"andcbm$<>"e"thenpoke204,.:goto18
  12. 19 poke204,1:close1:cbm=1:ifcbm$="e"thencbm=0
  13. 20 print"[147][214]alikon kaikkien osien latauduttua"
  14. 21 print"paina [210][197][212][213][210][206]ia paastaksesi kansikuvasta"
  15. 22 print"valikkoon."
  16. 23 print"[202]os kansikuva ei poistu, sammuta virta"
  17. 24 print"seka keskusyksikosta etta levyasemasta"
  18. 25 print"ja yrita uudelleen."
  19. 100 a=a+1:onagoto110,120,130,170
  20. 110 load"fmturbo",8,1
  21. 120 ifcbm=1thensys52704
  22. 122 load"graph.display",8,1
  23. 130 poke49875,cbm:sys50560:f$="alateksti,s":n$="!":gosub141:sys50096
  24. 140 f$="kansi287":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
  25. 141 iflen(f$)>16thenf$=left$(f$,16)
  26. 142 poke49882,len(f$):poke49883,len(n$)
  27. 144 fori=1tolen(f$):poke49903+i,asc(mid$(f$,i,1)):next:ifn$="!"thenreturn
  28. 145 iff$="mx"thenreturn
  29. 146 iflen(n$)>32thenn$=left$(n$,32)
  30. 148 fori=1tolen(n$):poke51471+i,asc(mid$(n$,i,1)):next
  31. 150 type=0:iftype=0then c1=7:c2=0:poke49872,c1:poke49873,c2
  32. 155 rem: color 1&2 (c1&c2) tulevat mahd.    newsroom-latauskuvaan. arvot 0-15
  33. 156 rem: type: 0=newsroom, 1=koala,                    2=doodlekuva.
  34. 160 poke49874,type:sys49776
  35. 165 load"text.display",8,1
  36. 170 a$=chr$(34)
  37. 180 print"[144][147]load"a$"mx"a$",8"
  38. 190 poke198,1:poke631,131:end
  39.