home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore 64 Scene Diskmags Assortment
/
Gurla_1_19xx_-.d64
/
g
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
5KB
|
100 lines
10 a=a+1:ifa=1thenload"liike.sprite",8,8
11 dima$(24):fori=0to12:reada$(i):next:data"[199]",u,r,l,a,u,s,p,o,m,m,i,"[145]"
15 n$=" [206]appaimella seuraava sivu "
20 poke53281,14:poke53280,6:v=53248:fori=2040to2047:pokei,230:next
25 pokev+28,15:pokev+37,11:pokev+38,0:fori=39to46:pokev+i,12:next:a=0
26 t=2:pokev+21,15:pokev+27,15:xx=-1:yy=1:x3=30:y3=51
50 a=a+1:onagosub100,200,410,600
60 geta$:ifa$=""thengosub150:goto60
65 ifa$="-"thena=a-2:ifa<0thena=0
67 ifa<4then50
70 fori=24to1step-1:poke781,i:sys59903:forj=0to50:next:next
75 fori=y1to0step-1:pokev+1,i:next:fori=y2to0step-1:pokev+3,i:next
76 fori=y3to0step-1:pokev+5,i:next:fori=y4to0step-1:pokev+7,i:next
78 pokev+21,1:pokev+29,1:pokev+23,1:pokev,150:pokev+16,0:pokev+27,0:print"[147][158]";
79 fori=0to50:pokev+1,i:next
80 fori=0to24:printspc(18)a$(i):forj=0to7:pokev+1,i*8+j+50:next:next:pokev+21,0
99 poke203,51:end
100 print"[147][156][176][178][192][178][192][178][192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][178][192][178][192][178][192][178][174]";
101 print"[171][189][176][189][176][189][176][189][153]Kiertoa mikroliikkeissa[156][173][174][173][174][173][174][173][179]";
102 print"[173][192][177][192][177][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][177][192][177][192][189]"
104 print" Kun teimme [158]Gurlauspommia joiduimme et-";
105 print"simaan halpoja diskeja, jotta pitaa hin-";
106 print"nan nain edullisena. Tassa on nyt pienia";
107 print"kokemuksia ja mielipiteita kiertamistani";
108 print"liikkeista. Paiva oli tiistai 13.5. ja";
109 print"aika 12.00 eteenpain.":print"[149][199]raniittitalon [195]hipper"
113 print" [204]iike on varkaan unelma. [208]aikasta oli";
114 print"voinut kavella ulos vaikka [195][194][205]128 kaina-lossaan."
116 print" Liikkeessa ei ollut ketaan kun saavuin";
117 print"sinne. Noin 5 minuutin odotuksen jalkeen";
118 print"takahuoneesta tuli myyja, joka selitti";
119 print"ettei ole myyja. Oikea myyja oli kuulma";
120 print"takahuoneessa esittelemassa laitteistoaasiakkaalle."
122 print" [203]ysyessani halvimpia diskeja, tarjosi":printn$:return
150 x1=80*cos(5*t)+150:y1=50*sin(4*t)+150:pokev,x1:pokev+1,y1:t=t+.01
155 x2=x2+1.3:ifx2>255thenx2=0:pokev+16,peek(v+16)or2
156 if(peek(v+16)and2)=2andx2>100thenx2=10:pokev+16,peek(v+16)-2
158 y2=y2+0.8:ify2>255theny2=10
159 pokev+2,x2:pokev+3,y2
160 x3=x3+xx:ifx3>254thenxx=-1
161 z=int(255*rnd(1))+1:ifx3=zthenxx=-xx
163 ifx3<25thenxx=1
164 y3=y3+yy:ify3<50ory3>229thenyy=-yy
165 pokev+4,x3:pokev+5,y3
169 x4=x4+int(10*rnd(1))-5:ifx4>255and(peek(v+16)and8)=0thenx4=0:pokev+16,peek(v+16)or8
170 ifx4>90and(peek(v+16)and8)=8thenx4=0:pokev+16,peek(v+16)-8
171 ifx4<0and(peek(v+16)and8)=8thenpokev+16,peek(v+16)-8:x4=255:goto173
172 ifx4<0and(peek(v+16)and8)=0thenpokev+16,peek(v+16)or8:x4=90
173 y4=y4+int(10*rnd(1))-5:ify4>229theny4=229
174 ify4<50theny4=50
175 pokev+6,x4:pokev+7,y4
199 return
200 print"[147]myyja (se vaara) heti [195]hipper-diskeja.";
210 print"Yksi maksoi 19,- ja sata olisi saanut";
220 print"hintaan 14,- / kpl. Jos olisi halunnut";
230 print"diskeja alta kympin olisi pitanyt ostaayli tuhat."
250 print" Myyja oli ystavallinen ja avulias jopa";
260 print"soitti jonnekin kysyen voisiko hintaalaskea.":print"[149][204]aser [211]hop"
290 print" Loydettyani tien Sokoksen tehokkaasti";
300 print"piilotettuun pohjakerrokseen paadyin pi-meaan [204]aser [211]hoppiin."
320 print" Harhailtuani pimeydessa aikakausia,";
330 print"nain valon!! Valo tuli taka/varastohuo-";
340 print"neesta jossa jotkut tutkivat innokkaasti";
350 print"tietokoneita. En kuitenkaan mennyt sinne";
360 print"vaan jatkoin harhailuani miellyttavassa";
370 print"mustuudessa, kunnes tormasin myyjaan."
380 print" Diskeja olisi saanut a 13,- mutta pal-";
390 print"jousalennuksista ei ollut tietoakaan,":printn$:return
410 print"[147]koska hinta oli jo erikoistarjous. [208]ois-";
420 print"tuin silmia hivelevasta pimeydesta raa-kaan auringonpaisteeseen."
440 print"[149][199]ame [211]tation"
450 print" [204]iikkeessa oli jopa ihmisia (jos niita";
460 print"videopelihulluja pentuja voi ihmisiksikutsua)."
480 print" Myyja ilmestyi hetken kuluttua paikal-";
490 print"leen ja esitin kysymyksen disketeista.";
500 print"Vastausta en jaksanut kuunnella, koska";
510 print"myyja oli todella toykea ja epaystaval-";
520 print"linen. Tama saattoi johtua siita, etta";
530 print"hanella taisi olla ruokatunti, ainakin";
540 print"han mutusti omenaa henkensa edesta."
550 print"[149][193]sematunnelin [195]hipper"
560 print" Ensimmaisella yrityksella ei liikkees-";
570 print"sa ollut myyjaa ja ovi oli lukossa, eika";
580 print"mitaan syyta ollut nakyvissa.":printn$:return
600 print"[147] [208]uolta tuntia myohemmin sisaan jo paa-";
610 print"sikin ja ystavalliselta tuntuva myyja";
620 print"tarjosi Basfheja 14,- kpl. Paljousalen-";
630 print"nuksia ei loytynyt mutta avuliaisuuttakyllakin."
650 print"[149][205]ikronia ([193]kateeminen kirjakauppa)"
660 print" [205]ikroniassa oli muutama asiakas ja pa-";
670 print"ri myyjaa. Ruotsalaisittain aantava myy-";
680 print"ja selitti diskien maksavan 19 mk/kpl ja";
690 print"paljousalennusten sijasta sai kymmenen";
700 print"ostaja kaupanpaalle puhdistusdisketin."
710 print" Tassa vaihessa olin jo niin rasittunut";
720 print"(suuta kuivasi, jalkoja sarki) etten e-";
730 print"naa jaksanut tutustua useampaan liikkee-seen."
750 print" [203]ierroksen vahvin anti oli: diskit o-vat helvetin kalliita."
770 print" [206]appaimella sisalmysluetteloon ":return