home *** CD-ROM | disk | FTP | other *** search
/ Floppy Magazine 1986 #3 / Floppy_Magazine_86-3_1986_Megasystems_Oy_fi.d64 / gp.mainos (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  56 lines
  1. 10 a=a+1:ifa=1thenload"gp.sprite",8,8
  2. 100 c$="":v=53248:poke2041,231:poke2040,232:pokev+39,14:pokev+40,10
  3. 110 pokev+23,3:pokev+29,3:poke53280,11:poke53281,0:pokev+37,7:pokev+38,1
  4. 150 pokev+28,0:gosub900:print"  mies istuu tuolilla. han on juuri saa-"
  5. 160 print"nut tilaamansa [158]gurlauspommin. han tilasi"
  6. 170 print"[158]gp:n nauttiakseen sen ja niin han tekee-"
  7. 180 print"kin. (paina <f-1>)"
  8. 190 printspc(15)"[151][185][185][185][185][185][185][185][185][185]"
  9. 200 printspc(15)"[151][161]       [151][161]"
  10. 210 printspc(15)"[151][161]       [151][161]"
  11. 220 printspc(15)"[151][161]       [151][161]"
  12. 230 printspc(15)"[151][161][149][182]      [151][161]"
  13. 240 printspc(15)"[151][161][149][182]  [175][175][175][175][151][161]"
  14. 250 printspc(15)"[151][161][149][182][180]  [149][146][182][180] [151][161]"
  15. 260 printspc(15)"[151][161][149][182][183][208] [149][146][182][180][158] [151][161]"
  16. 270 printspc(15)"[151][161][149][182] [170] [149][146][182][180][158] [151][161]"
  17. 280 printspc(15)"[151][184][184][184][184][184][184][184][184][184]"
  18. 290 pokev,150:pokev+1,160:pokev+2,150:pokev+3,160:pokev+21,3
  19. 300 geta$:ifa$<>"[133]"then300
  20. 310 poke2040,233:fori=0to99:next:poke2040,234:fori=0to500:next:poke2040,233
  21. 315 fori=0to99:next
  22. 320 pokev+23,1:pokev+3,162:fori=0to70:next:pokev+29,1:pokev+2,158:fori=0to70:next
  23. 330 pokev+28,2:fori=0to70:next:pokev+29,3:pokev+23,3:fori=0to70:next
  24. 332 pokev+23,1:pokev+29,1:fori=0to70:next
  25. 340 poke2041,230:poke53280,1:poke53281,1:poke53281,0:poke53280,11
  26. 350 print" [159]tee kuten han teki: tilaa [158]gurlauspommi"
  27. 360 print"gurlauspommi [154]on"c$"saat [158]gp[154]n tilaus-"
  28. 370 print" iloluontoinen "c$"ohjeet painamal-"
  29. 380 print" diskettilehti "c$"la valilyontia. "
  30. 390 print" commodoreesi."
  31. 392 poke2040,232:fori=0to999:next:pokev+21,1
  32. 400 geta$:ifa$<>" "then400
  33. 410 pokev+21,0:gosub900
  34. 440 print"  gurlauspommin voi tilata useammalla e-";
  35. 450 print"ri tavalla. nyt esittelemme niista kaksi";
  36. 460 print"(huom! tapaa-a kayttavat kaikki viisaat)"
  37. 470 print"[153]a) [159]maksa 15 mk syp-tilille 222120-57443"
  38. 480 print"maksun saaja on marko jerrman. tiedonan-";
  39. 490 print"toihin merkinta: 'olen viisas eli tilaan";
  40. 500 print"[158]gurlauspommi[159]n'. saat [158]gp[159]n jonkin ajan ku-";
  41. 510 print"luttua."
  42. 520 print"[153]b) [159]laheta kirje osoitteeseen marko jerr-";
  43. 530 print"man / makitorpantie 17 a 12 / 00640 hki.";
  44. 540 print"kirjeessa ilmoitat valtavan halusi tila-";
  45. 550 print"ta  [158]gp[159]. lahetamme (jos jaksamme) sinulle";
  46. 560 print"laskun ja (ehka myos) [158]gp[159]n."
  47. 570 print"[158]gp [152]sisaltaa  paljastavia artikkeleja, u-";
  48. 580 print"peita ohjelmia (peli&hyoty), kauniita(?)";
  49. 590 print"kuvia eli yli 664 blockia kamaa sinulle!"
  50. 600 print" [151]         nappaimella floppyyn         [146]"
  51. 898 geta$:ifa$=""then898
  52. 899 poke53277,0:poke53271,0:load"menu",8
  53. 900 print"[147]   [158]   [213][201][201][201][213][192][201][201] [213][201][201][201][213][201][213][201][213][201][213][201][213][201][213][201][213][201][201]"
  54. 901 print"      [221][201][221][221][171][178][203][221] [171][179][221][221][202][201][171][203][221][221][221][202][203][221][221][202][203][221][221]"
  55. 902 print"      [202][203][202][203][203][203] [202][203][203][203][202][203][202][203][203] [202][203][203]  [203][203]  [203][203]":return
  56.