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