home *** CD-ROM | disk | FTP | other *** search
/ Commodore 64 Scene Diskmags Assortment / Gurla_1_19xx_-.d64 / m (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  48 lines
  1. 1 q=q+1:onqgoto2,3,4,10
  2. 2 poke53280,0:load"ko",8,8
  3. 3 load"never",8,8
  4. 4 sys49154
  5. 5 geta$:ifa$=""then5
  6. 6 poke53265,155:poke53270,200:poke53272,21:print"[154][147][154]":load"nsg.s",8,8
  7. 10 poke53281,0:poke53002,49:poke53007,234:sys53000:gosub900
  8. 100 poke56334,peek(56334)and254:poke52,48:poke56,48:poke1,peek(1)and251
  9. 115 fori=0to511:pokei+20000,peek(i+53248):next:poke1,peek(1)or4
  10. 130 poke56334,peek(56334)or1
  11. 140 poke53272,(peek(53272)and240)+12
  12. 150 gosub1000:gosub2000:gosub900
  13. 180 gosub1100:gosub2000:gosub900:goto5000
  14. 900 fora=cto511step8:poke12288+a,255:next:c=c+1:ifc<=8then900
  15. 910 c=0:return
  16. 1000 print"[147][154]"spc(166)spc(166)"never starting"
  17. 1010 printspc(57)"game"
  18. 1020 printspc(58)"by"
  19. 1030 printspc(53)"gurlauspommi"
  20. 1040 printspc(57)"1986":return
  21. 1100 print"[147] never starting game on se osa"
  22. 1110 print" gurlaupommista, jossa te"
  23. 1120 print" voitte esitella taitojanne"
  24. 1130 print" kuusnelosen kaytossa...":return
  25. 2000 fora=cto511step8:poke12288+a,peek(20000+a):next:c=c+1:ifc<=8then2000
  26. 2090 c=0:return
  27. 5000 v=53248:pokev+1,100:pokev,100:pokev+29,15:pokev+23,15
  28. 5010 pokev+2,148:pokev+3,100:pokev+4,100:pokev+5,142:pokev+6,148:pokev+7,142
  29. 5020 pokev+39,14:pokev+40,14:pokev+41,14:pokev+42,14
  30. 5030 poke2040,230:poke2041,231:poke2042,232:poke2043,233:pokev+21,15:pokev+27,15
  31. 5040 print"[147]  tee ohjelma, joka kuvaa vakivallan"
  32. 5050 print"  kasvoja. esim. alla":gosub2000:fori=0to500:next:gosub900:pokev+21,0
  33. 5080 print"[147]   ohjelmaksi kelpaa kuva, peli, tarina"
  34. 5090 print"  tai ihan mika tahansa otsikkoon sopiva"
  35. 5100 print"  tietokonesovellutus."
  36. 5110 print"   laheta ohjelmasi jerrmanille"
  37. 5120 print"  nimellasi jne. varustettuna ja"
  38. 5130 print"  parhaat tullaan esittelemaan..."
  39. 5140 print"   kalvon saat takaisin seuraavan"
  40. 5150 print"  gurlauspommin mukana"
  41. 5160 gosub 2000:fort=0to4000:nextt:gosub 900
  42. 5170 print"[147]  huomatkaa, ettei flopyn mainoksen"
  43. 5180 print" kaltaisia puolidiskia vievia"
  44. 5190 print" ilmoituksia julkaista !!!"
  45. 5200 print"  maksimi on 10 blokkia ja hinta":print" on 10 mk sivu"
  46. 5230 printspc(220)"terveisin":printspc(21)"gp"
  47. 5250 gosub 2000:fori=0to4000:next:gosub900:sys64738
  48.