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