' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#07#0:"4<*55**5*%5)1)1)1)'#0/#0*5*75**5*:5/#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (   Ϡ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*`!S$(KMUSALDO(I)):2050: NOLLAT _!45)"LOPPUSALDO.......***"T110);S$::RIVI%RIVI%2!RIVI%55āN163RIVI%:::RIVI%0:1600: ENNAKOIDAAN SIVUN T[YTTYMINEN!!S2IVU%SIVU%:K2%0:X(0):I163RIVI%::!RIVI%0:" - NOLL,1)1930* vS$(SUMMA(J)):2050: NOLLATN 54)TN%(J)T1)S$:RIVI%RIVI%1q KREDIT$(J)KARTTA$(I,1)1960 S$(SUMMA(J)):2050: NOLLAT 54)TN%(J)T1)S$:RIVI%RIVI%1 RIVI%60āN163RIVI%:::RIVI%0:1600: SIVU T[YTTYI %TTA$(I,1),4)2)KARTTA$(I,2):RIVI%RIVI%1[:S$(((KMUSALDO(I)KUUSALDO(I))100.5)100)vD2050: NOLLIEN LIS[YSN45)"ALKUSALDO.........."T19);S$:RIVI%RIVI%1X - TILI[ VASTAAVIEN KIRJAUSTEN ETSIT[ -bJ1C3% lDEBET$(J)KARTTA$(I7)"MK"40)"MK"::1770;K6%0ĺ20)"TILI"35)"SALDO":OSIVU%SIVU%1:b # P[[KIRJA #t - OTSIKKO -OTSIKKO$"P[[KIRJA":SIVU%S2IVU%:1600 - KIRJOITUSLOOPPI -I1NN&KUUSALDO(I)02000: JOS EI MUUTOSTA )02)(KARREDIT"::1770K2%01700I7)"TILI"41)"TOSITE"13)"MK"::1770YK3%0172032)"KULUVA KUUKAUSI"4)"%"6)"TILIVUODEN ALUSTA"4)"%"::1770K4%0174032)"KULUVA KUUKAUSI"11)"TILIVUODEN ALUSTA"::1770K5%01760260@ # OTSIKKOALIOHJELMA #7J:70)"-";SIVU%;"-"bT(14);(40(OTSIKKO$))2);OTSIKKO$:^53)"TULOSTETTU:"PV$13)NIMI$5)"KAUSI:"KK%;" - ";KK%LKM%1hN180:"-";:r|K1%016802)"TOSITE"4)"PVM"7)"TILI"33)"DEBET"9)"KVUN ALKUUN JA PALATAAN -.J164RIVI%::TRIVI%0:S1IVU%SIVU%:K1%0:X(0)Zv - TILINIMEN ETSINT[ -JNN:JU0(KARTTA$(J,1))VERTTULOSJ:"JVJU,(KARTTA$(J,1))VERTJUJ:JJ(JJV)2:15606JUJ:JJ(JJV)2:15N T[YTTYMINEN ->RIVI%60āJ167RIVI%:::RIVI%0:1600k - TARKASTETAAN TOSITTEIDEN J[RJESTYS -yI11490TN%(I1)TN%(I)1ĺ" *** J[RJESTYSVIRHE ***":RIVI%RIVI%1TN%(I1)TN%(I)1ĺ:RIVI%RIVI%1 - KELATAAN UUDEN SI4(KARTTA$(KR,2))(S$)7Z - KIRJAUKSEN PRINTTAUS -NdDEBET$(I)""1410n4)TN%(I)T1)PP(I)3)(DEBET$(I),4)2)KARTTA$(DB,2)T2)S$xKREDIT$(I)""142018)(KREDIT$(I),4)2)KARTTA$(KR,2)T3)S$RIVI%RIVI%2 - TARKASTETAAN SIVU:1540: ETSINT[7DBTULOS: ETSINN[N TULOS TALTEENTVERT(KREDIT$(I)):1540a KRTULOSz - NOLLIEN LIS[YS -S$(SUMMA(I))NOL$(S$S$2768: FORMATOINTI<T111((TN%(I)))((PP(I)))FT241(KARTTA$(DB,2))(S$)PT35(C3%I),SUMMA(C3%I):PP(C3%I)PP(C3%I)C2%100:WC3%C3%N: VAPAAN INDEKSIN ARVOhD$;"CLOSE "n # P[IV[KIRJA # - OTSIKKO -OTSIKKO$"P[IV[KIRJA":SIVU%S1IVU%:1600 - TULOSTUSLOOPPI -I1C3%VERT(DEBET$(I)),$` L( L5 LD 8 XL XLR XQHPH RPhPhQ8 XL.0'L+ LfLLLLL ꥪLYԨé L ,-` Leh8PhHQH`hbihciHHb\ȱb]`ߚl hhHHHH`L⥠`ʆ  hdheHdHHHH08  X Xhdhe + eHdHHHeHdH`   q% 0 L0`,wyywxzzx,Hyw wȄffȪ yw fh0`h&Hwyxzwy wy h Lh` ` ` ` 憅` ` ᥠQP` L  8e`LԩLcغh8uhHvH` L L L~ 憅 L ʊ8$!  W$Li)$` LY L   hPhQP 8ePQiHHš`hh PȱPʘHH`)+) 32)"------------"16)"------------"`) ALI$T5)"***"T1)KSALDO$T2)PKT3)VSALDO$T4)PVt) RIVI%RIVI%3:) RIVI%53āJ163RIVI%:::RIVI%0:1600) ) -TILEN ETSINT[,PROSENTIT,PRINTTAUS) I1) ((KARTTA$(I,1),2))VERTı'*& IS[YS->(^ KSALDO$((KSUMMA))NOL$:VSALDO$((VSUMMA))NOL$W(h KSALDO$KSALDO$:768p(r VSALDO$VSALDO$:768( -TABULOINNIT-( T112(KSALDO$)( T29((PK))( T319(VSALDO$)( T49((PV))( -VARSINAINEN PRINTTAUS-) T528(ALI$ MUUT TUOTOT JA KULUT, ,VARAUSTEN MUUTOS, ,KORKOKULUT , ,VEROT, TILIKAUDEN TULOS:i' -V[LISUMMAT-s' ALI$'" -PROSENTIT-', KVAIH0PK0.0:2880'6 PPK(KSUMMA):PKK(P)'@ VVAIH0PV0.0:2910'J PPV(VSUMMA):PVK(P)(T -NOLLIEN L& ALI$:ALI$::RIVI%RIVI%2%& K& -V[LIOTSIKOITTEN K[YTT[M[ DATA-a& MYYNTITUOTOT t& BRUTTOMYYNTI:& MYYNNIN OIKAISUER[T,LIIKEVAIHTO ,MUUTTUVAT KULUT& MYYNTIKATE:& KIINTE[T KULUT,K[YTT\KATE:& POISTOT,LIIKEVOITTO:V' %B 2830%L 2720%%V VERT6:3090/%` 28309%j 2720J%t VERT7:3090T%~ 2830^% 2720o% VERT8:3090y% 2830% 2720% VERT9:3090% 2830%x -RUTIINI LOPETUS-% J163RIVI%::% RIVI%0:K3%0:X(0)% % -V[LIOTSIKOT-)$K(X)(X100.5)10: KATKAISU 3$KM1Q$VERT1:3090: PRINTTAUSg$2830: [LISUMMA$2720: V[LIOTSIKKO$VERT2:3090$2830$2720$VERT3:3090$ 2830$ 2720$ VERT4:3090$$ 2830$. 2720%8 VERT5:3090USALDO(I):VVAIHVVAIHKMUSALDO(I)m#p(KARTTA$(I,1),2)"2."KVAIHKVAIHKUUSALDO(I):VVAIHVVAIHKMUSALDO(I)s#z# -VARSINAINEN TULOSTUS-#2720: V[LIOTSIKOT#PK(X)(100XKVAIH): KUUKAUSI %$PV(X)(100XVVAIH): VUOSIPROSENTTIIEN LIS[YS JA TABULOINNIT -*"S$S$NOL$4" S$S$="768Z" T123(S$)((TN%(J)))`"*z"4 # TULOSLASKELMA #">:"HOTSIKKO$"TULOSLASKELMA":SIVU%1:1600"R -LIIKEVAIHDON LASKENTA-"\I120!#f(KARTTA$(I,1),2)"1."KVAIHKVAIHKU1))48:A9AA7# A15A0400B B((A$,1))48:B9BB7T B15B0400h AA16B:500: :250* (Y1$(I))2A$Y1$(I):2000:250> A$Y1$(I):1000D ] A16:550:A4:550:j "ERROR"z D$"IN#0": A16İ550 &K(CO):K(K2):(K2)K2550 0CO1,A: B$A$:A$(B$,2):2000 A$(B$,2):2000  A((A$,"F$".DMP,D"DR# PD$"READ"F$".DMP"C ZA$:I0500:X1$(I),Y1$(I)I d_ n216,0:D$"CLOSE"m sD$"IN#2"~ xCO,3:CO,21 A32:500 B$:B$:B$"SIIRTONOPEUS TARKASTETTU"400 D$"IN#0" 1000 J0I1:A$X1$(I):2000 Y1$(I)""j --- DUMPPERI ---9 --- ASM8085:N KOODILLE ---p:4:"LADATTAVA TIEDOSTO > ";F$:F$""Ģ(37):30("LEVYASEMA > ";DR$:DR$""DR1:602DR(DR$):DR1DR2Ģ(37):40<D$(4):CO49312>X1$(500),Y1$(500)A110 FD$"OPEN    жL+i МL+++  (  `!  ȩOȩȘeUȩȑ)L+  L+ ᭠)))gc_[=95жЬ )   L+`i VI%3:VERT18:40103Z4370'3d4210z3n:"VASTATTAVAA YHTEENS[:"::RIVI%RIVI%3:KSUMMATKSUMMA:VSUMMATVSUMMA:42403x30)"############"16)"############":RIVI%RIVI%13 -LOPETUS JA PALUU-3J163RIVI%::3RIVI%0:K4%0:X(0)4EENS[:":RIVI%RIVI%1:KSUMMATKSUMMA:VSUMMATVSUMMA:42102KSUMMA0:VSUMMA0::"ARVOSTUSER[T KREDIT:"::RIVI%RIVI%3:VERT16:4010243702(421022:"VARAUKSET"::RIVI%RIVI%3:VERT17:40102<43702F42103P:"OMA P[[OMA:"::RIVI%RI------------------":"VIERAS P[[OMA,LYHYTAIKAINEN:"::RIVI%RIVI%4{1TKSUMMA0:KSUMMA0:TVSUMMA0:VSUMMA0:VERT14:401014370142101:"VIERAS P[[OMA,PIT[AIKAINEN:"::RIVI%RIVI%3:VERT15:4010143701421092 :"VIERAS P[[OMA YHT 04210Z0:"VASTAAVAA YHTEENS[:"::RIVI%RIVI%3:KSUMMATKSUMMA:VSUMMATVSUMMA:4240032)"############"16)"############":RIVI%RIVI%10J163RIVI%::: UUSI SIVU0RIVI%001600: OTSIKKO SVULLEC1"V A S T A T T A V A A":"--- /$4370/.4210K/8:"K[YTT\OMAISUUS:"::RIVI%RIVI%3:VERT12:4010U/B4370_/L4210/V:"MUUT PITK[AIKAISET SIJOITUKSET:"::RIVI%RIVI%3:VERT20:4010/`4370/j4210/t:"ARVOSTUSER[T DEBET:"::RIVI%RIVI%3:VERT13:4010/~4370 A :":"-------------------":"RAHOITUSOMAISUUS:":RIVI%RIVI%4E. o. TKSUMMA0:KSUMMA0:TVSUMMA0:VSUMMA0. VERT10:4010: PRINTTAUS.4370: SUMMIEN KUMULOINIT .:4210: V[LITULOKST/:"VAIHTO-OMAISUUS:"::RIVI%RIVI%3:VERT11:4010-* # TASE #$-4 - OTSIKKO -R-> K7%3400,3410,3420: OTSIKON VALINTA l-H OTSIKKO$"TASE":3430-R OTSIKKO$"AVAAVA TASE":3430-\ OTSIKKO$"P[[TT[V[ TASE":3430-f SIVU%1:1600: OTSIKKO- - VARSINAINEN TULOSTUS-?. "V A S T A A V AKSUMMAKMKUUSALDO(I)6, VSUMMAVSUMMAKMKMUSALDO(I)T, -VARSINAINEN PRINTTAUS-, (KARTTA$(I,1),4)2)KARTTA$(I,2)T1)KSALDO$T2)PK;T3)VSALDO$T4)PV, RIVI%RIVI%1:RIVI%58āJ163RIVI%:::RIVI%0:1600- II1:3100: - SEURAAVA TILI- +v VSALDO$(KMUSALDO(I))NOL$8+ KSALDO$KSALDO$:768Q+ VSALDO$VSALDO$:768g+ -TABULOINNIT -+ T137(KARTTA$(I,2))(KSALD$)+ T29((PK))+ T319(VSALDO$)+ T49((PV))+ -SUMMIEN LASKU-+ KM ON MERKKIKERROIN, KSUMMAЭ((KARTTA$(I,1),2))VERTII1:3100T*0 KUUSALDO(I)0KMUSALDO(I)0II1:3100n*: KVAIH0PK0.0:3150*D PPK(KUUSALDO(I)):PKK(P)*N VVAIH0PV0.0:3180*X PPV(KMUSALDO(I)):PVK(P)*b -NOLLIEN LIS[YS-*l KSALDO$(KUUSALDO(I))NOL$MP"# ZA$:I0500:X1$(I),Y1$(I)) d? n216,0:D$"CLOSE" "A --- DUMPPERI ---9 --- ASM8085:N KOODILLE ---p:4:"LADATTAVA TIEDOSTO > ";F$:F$""Ģ(37):30("LEVYASEMA > ";DR$:DR$""DR1:602DR(DR$):DR1DR2Ģ(37):40<D$(4)A110FD$"OPEN"F$".DMP,D"DR PD$"READ"F$".D  Lu) L2*L)Lb) L<* )   `)= "ȩOȩȱ)" L)) L))ﭡL*L'*($)##YУ8Lb) Lb) Lb) @LW)  L2*  I) 9VERTI194400: -NOLLAT JA TABULOINNIT-^910)KARTTA$(I,1)3)KARTTA$(I,2)25T)S$9 -SIVUN T[YTTYMISEN TARKISTUS-9RIVI%RIVI%1:RIVI%60āJ163RIVI%:::RIVI%0:160099 -RUTIININ LOPETUS-9J163RIVI%:: :RIVI%0KSUMMA:TVSUMMATVSUMMAVSUMMA$8&380S$S$NOL$B8:S$S$:768d8DT22(KARTTA$(VERT,2))(S$)j8N8X # SSALDOLISTA #8b -OTSIKKO-8lOTSIKKO$"SALDOLISTA":SIVU%1:16008v -PRINTTAUS LUUPPI-8I1NN9S$(KMUSALDO(I)):SKMUSALDO(%7T140(KSUMMA$):T228(VSUMMA$)77 -PRINTTAUS-S7T1)KSUMMA$T2)VSUMMA$w7RIVI%RIVI%2:KSUMMA0:VSUMMA07 -SIVUN T[YTTYMISEN TARKISTUS-7RIVI%60āJF163RIVI%:::RIVI%0:160077 -SUMMIEN KUMULOINTI-8TKSUMMATKSUMMA0āJ163RIVI%:::RIVI%0:1600'6^-6hB6r -V[LITULOKSET-p6|30)"--------------"14)"--------------"6 -NOLLIEN LIS[YS-6KSUMMA$(KSUMMA)NOL$:VSUMMA$(VSUMMA)NOL$6KSUMMA$KSUMMA$:7686VSUMMA$VSUMMA$:7686 -TABULOINNIT-LDO$(KMUSALDO(I))NOL$15KSALDO$KSALDO$:768J5VSALDO$VSALDO$:768^5" -TABULOINNIT-5,T134(KARTTA$(I,2))(KSALDO$)56T228(VSALDO$)5@ -PRINTUS-5J(KARTTA$(I,1),4)2)KARTTA$(I,2)T1)KSALDO$T2)VSALDO$!6TRIVI%RIVI%1:RIVI%6&4 RE-TILIEN ETSINT[ JA PRINTTAUS-24I0NNS4((KARTTA$(I,1),2))VERTıx4((KARTTA$(I,1),2))VERT41904 -SUMMIEN LASKU-4KSUMMAKSUMMAKUUSALDO(I):VSUMMAVSUMMAKMUSALDO(I)4 -NOLLIEN LIS[S-5KSALDO$(KUUSALDO(I))NOL$:VSAU@ TTTxHHH08DDD0HHH8TT~  R<pHz@ @=(@A@xxxx8DD8~ ~@|TTT DdTLD UTUx9DD9 TWWxU*U*>A]U~ ~III6>AAA"AA"IIIA >AAIyAA AA?"A@@@@ >AAA> >AQ!^I)FFIII1?@@@? @ ?@8@?ccxaQIEC}}=BBB=||@@@@O$*?*#db0NY&P"AA">>@0`` >AA>B@BaQIF!AEK1?'EEE9III>8@ D( @~|  ||Ac]IA$$  0H H0LrrL0HH0Px@PHhP(HX(  $.$* $  @>**>>     323$&A$"1":(4):"";AA$:VV%(AA$):VV%19860n$&A$"2":(6):"";AA$:TVA%(AA$):TVA%1TVA%129870$&A$"3"Ģ(8):"";AA$:TN(AA$):TN09880$&A$"4"Ģ(10):"";AA$:VP(AA$):VP0VP1009890 %&A$"5":(12):"";AA$:S1IVU%(AA$):S1I"P2$(1)": "VV%)#a&:"2. "P2$(2)": "TVA%B#f&:"3. "P2$(3)": "TN[#g&:"4. "P2$(4)": "VPx#k&:"5. "P2$(5)": "S1IVU%#l&:"6. "P2$(6)": "S2IVU%#p&18:"MIK[ KORJATAAN> ";A$:A$""9850#u&F1İ7000#v&9290#z&A$"1"A$"6"9810#&F11$&KARTTA$(J,2):JJ1H"4&::"VIEL[K\ MUUTA ? K/E ";A$:(A$,1)"K"9700i"9&4000: JA[RJESTEJ[RJESTELY |":&5000: EVYLLE">&9290: PALUU KORJAUSMENUUN"C&"H& APUTIEDOSTOJEN KORJAUS"M&F10"R&:14)"APUTIEDOSTO":14)"-----------"#\&:"1. !&(KARTTA$(T,1))(AA$)IT1:97400!&KT1?! &IK9725t!&:"TILI[ "AA$" EI L\YTYNYT !":I11000::9620! &A$"M"ė:12:3)KARTTA$(T,1)","KARTTA$(T,2):12:(3):"";KARTTA$(T,1),KARTTA$(T,2)"*&A$"P"KARTTA$(T,1)KARTTA$(J,1):KARTTA$(T,2)3000: LIS[YS% %4000: J[RJESTELYI %5000: TALLENNUSLEVYLS LEVYLLES %9620Y % %:"K[SITELT[V[ TILI (N:O) : ";AA$:AA$""9620 %:"POISTETAANKO VAI MUUTETETAANKO ? ";A$:A$(A$,1) %I1:KJ %T((KI)2) %KARTTA$(T,1)AA$9760&TAAN TILIEN LUKUM[[R[ MUUTTUJAAN J%:16)"HALUATKO:"::::"1. LIS[T[ TILEJ["::"2. POISTAA TAI MUUTTAA TILEJ["::"3. PALATA KORJAUSMENUUN"%12:"VALINTASI> ";A$:A(A$):A9650,9700,9290%9620: VIRHEELLISELL[ NUMEROLLA MENU UUDESTAAN %A$"0"Ģ(4):(21):"";NIMI$(0)C$A$"1"Ģ(6):(21):"";NIMI$(1)g%A$"2"Ģ(8):(21):"";NIMI$(2)%A$"3"Ģ(10):(21):"";NIMI$(3)%A$"4"Ģ12:21:"";NIMI$(4)%:9410&%9290: PALUU MENUUN+%:% TLIKARTAN KORJAUS"%JN: ASETEr$B$:9310w$:.$ NIMITIEDOSTON KORJAUS7$F10g$:14)"NIMITIEDOSTO":14)"------------":r$I04$I2)P1$(I)" "NIMI$(I)::$15:"MIK[ KORJATAAN> ";:"";A$:A$""9455$F1İ6000$9280$A$"0"A$"4"9440$F11$AUSMENU4J$:"*** ASIAKASTIETOJEN KORJAUS ***"::T$"1. NIMITIETOJEN KORJAUS"::"2. TILIKARTAN KORJAUS"::"3. APUTIETOJEN KORJAUS"::"4. ASIAKASTIETOJEN LISTAUS"::"5. PALUU"^$18:"VALINTASI> ";:"";A$:A(A$)h$A9400,9600,9800,9950,100 LVV %#VP4$D$;"READ APU,R2": TOSITE N:O < $TNd$D$;"READ APU,R3": TILIVUODEN ALKUn$TVA%$D$;"READ APU,R4": P[IV[KIRJAN SIVUN$S1IVU%"$D$;"READ APU,R5": P[[KIRJAN SIVUN'$S2IVU%,$D$;"CLOSE APU"6$@$ KORJ(12):"LUEN NIMITIEDOSTON ...":#D$;"OPEN NIMI,D2,L50"E#I04]#D$;"READ NIMI,R";In#NIMI$(I):I#D$;"CLOSE NIMI"#(12):"LUEN APUTIEDOSTON ..."#D$;"OPEN APU,D2,L10"#D$;"READ APU,R0": VUOSI #VV%#D$;"READ APU,R1":JOITT SAMMUTUS:A(# *** KORJAUSOSAN RUNKO-OHJELMA***G2#i<#:(12):"LUEN TILIKARTAN..."F#D$;"OPEN KARTTA,D2"P#D$;"READ KARTTA"Z#N:JN: TILIEN LKMd#I1Nn#KARTTA$(I,1):KARTTA$(I,2):x#D$;"CLOSE KARTTA"##): PUOLET TILEIST[ I1N1DTB(KARTTA$(I,1)KARTTA$(I,2))KARTTA$(I,1)3)KARTTA$(I,2)37TB)KARTTA$(IN,1)3)KARTTA$(IN,2)RIVI%RIVI%1:RIVI%55ĺ::35)"JATKOA":RIVI%0PRINTI$;"40 N": REMRIVIPIT 40D$;"PR#0": KIRERKKI[ JA RIVILASKURI 0Wr30)"TILITOIMISTO K & T ":30)"--------------------"::|"ASIAKAS: "NIMI$(0)10)"N:O: "NIMI$(3):"OSOITE: "NIMI$(1)::"PUH...: ";NIMI$(2)::30)"T I L I K A R T T A":30)"-------------------":N(J2";:"";A$:A$""230) AP(0)(A$):220f 6:868:"ALOITUSKUUKAUSI: "AP(3)" ";:"";A$:A$""260 AP(3)(A$):AP(3)1AP(3)12ĺB$:230 230 8:868:"TOSITENUMERO: "AP(2)" ";:"";A$:A$""280 AP(2)(A$):260, 10:868:"P[IV[K56(219)!ERR5ERR61100N:"TARVITTAVAA TIETOA EI OLE LEVYLL[ !"W940}L:"ERROR: "ERR" IN LINE: "LINE:: "LINE:1R65770$R0:I15,:5240;M MJ$MJ$"000"^MJ$MJ$:768d\f36,31(KI$(I,1)):KI$(I,1);pz36,44(MJ$):MJ$;36,57(MJ$):MJ$D$"RUN HELLO,D1" ERR(222):LINE(218)2I$(I,5):S1S1(MJ$)0780&:870/D890NNMJ$(VERO((KI$(I,5))))WX780`b910wlS2S2(MJ$):RR1}vMJ$"-"KI$(I,5):S1S1(MJ$)780870890MJ$(VERO((KI$(I,5))))780910S2S2(MJ$):RR KI$(I,4)"3.8101"İ640% 730+ 4 360> VOS2b TTTT(S2):TT(TT100.5)100u MJ$(TT):780 TT0ĺ"LVV-VELKA: "MJ$ TT0TTTT:MJ$(TT):780:"LVV-SAATAVA: "MJ$ PRINT CHR$ (9)"40N" D$"PR#0" 930&MJ$KύՠՠύύԠԍΠΠԍΠϯύԍԠԍӍӍӍӍӍӍԠԍύԠխӍԍԠԍԠԠԍԍԍԍԍԍԠԍԍԍԍԍɨΩԨŠԠԍ'&:&'& ASIAKASTIEDOSTON LISTAUS,'&F'&8000: LISTAUOHJELMAd'&9290: PALUU KORJ.MENUUNj'':: ESITET[[N UUDELLEEN'&:'& ASIAKASTIEDOSTON LISTAUS'&'&8000: LISTAUOHJELMA'&9290: PALUU KORJ.MENUUN'':(LMA!&&9290: PALUU KORJ.MENUUN'&':S3&&M&&8000: LISTAUOHJELMAk&&9290: PALUU KORJ.MENUUNq&':U4):"6. P[[KIRJAN SIVUNUMERO:":S2IVU%&&: NYTT\ NORMAALIKSI&&A$"E"ė:7000:9290: LEVYLLE &&9810: ESITET[[N UUDELLEENVU%09900B%&A$"6":(14):"";AA$:S2IVU%(AA$):S2IVU%09910L%&9840n%& ASIAKASTIEDOSTON LISTAUSt%&%&8000: LISTAUOHJELMA%&9290: PALUU KORJ.MENUUN%':PALUU KORJ.MENUUN%':I&9290: PALUU KORJ.MENUUN%':IIAUOHJENOT GO THAT WAY WITHOUT DOING":"SOMETHING FIRST":3220:230b8 SC0:X120:O(X)1SCSCOP(X)y8 :SCSC(MO4)258 SC;" POINTS IN ";TU;" TURNS"8 :"IF YOU WANT ANOTHER GAME TYPE Y";A$:A$"Y"ė:::58 :dd A KEY,93,0$7& A COPPER LAMP,76,5;70 A MINK COAT,81,80P7: A NEWSPAPER,0,0c7D AN OPAL,74,40y7N A PHONEBOOK,87,07X -,0,07b A RIFLE,56,107l SOME SHOTS,29,07v A TRUMPET,33,57 TZ150:ZX(16336)::7 ZX(16336):<8 "YOU CAN,0,99,97,95,0'6 S,98,0,0,0,0,0,97,95:6 AN AGAT,99,10K6 A BOOK,90,0a6 AN OLD COIN,14,5v6 A DIAMOND,8,1006 AN EMERALD,46,506 A FISH,64,06 A BAR OF GOLD,49,506 A HANDBOOK,94,06 A SILVER IGNOT,48,106 SOME JEWELS,66,30 7 S,0,92,0,0,0,0,94,0.5h S,0,0,90,0,0,91,0,0X5r YOU'RE IN AN OFFICE,0,0,0,90,0,0,0,05| THIS IS THE END OF THE CORRIDOR,0,0,91,0,0,0,0,05 YOU'RE ON A BIG MEADOW,0,6,98,99,97,96,0,05 S,0,95,97,0,0,0,0,05 S,95,98,99,0,0,0,96,0 6 S,0,0,0J)2):KARTTA$(T,0)TILI$1070H(KARTTA$(T,0))(TILI$)IT1:1040RJT1aIJ10108:B$"TILI[ "TILI$" EI OLE ! L[HIN:"$.8:8688B216,0:B$"TILIKARTTAA, NIMI- TAI APUTIEDOSTOA":"EI L\YDY LEVYLT[!":T03000::810ALDON..."O$"ALKUSALDO,D2"2W$"ALKUSALDO"<TLKMJI1TLKMZSALDO(I):bC$4:868:"TALLENNAN APUTIEDOT..."O$"APU,L10,D2"I05 W$"APU,R"IAP(I): C$*:D$"RUN HELLO,D1"I1:JTLKMT((I):SU$ ?:D:"VASTATTAVAA:":"------------"::SUM0HNI1TLKMcXT((KARTTA$(I,0),2))vbT14T18630l490v540PRINTI$"40N"D$"PR#0":"PAINA JOTAIN N[PP[INT[ ";:A$::360 4:958:"TALLENNAN ALKUS20530490:530CKARTTA$(I,0);:36,10:(KARTTA$(I,1),15);nSU$(SALDO(I))"000":SUMSUMSALDO(I)SU$SU$:76836,39(SU$):SU$ 540:58036,30:"----------"&SU$(SUM)"000"0SU$SU$:768:36,39(SU$URN> ";:A$:A$(13)390* :D$"PR#1"M :1657,80: RIVILLE 80 MEKKI[k (14)14)"AVAAVA TASE": NIMI$" "AP(0)" / "AP(3) I180:"-";:: "VASTAAVAA:":"----------": I1TLKM T((KARTTA$(I,0),2))(T10T13)T60 O1000I T10:868:KARTTA$(T,0)" "(KARTTA$(T,1),20)": ";:"";A$a ^SALDO(T)(A$):330 h4:958:"HALUATKO ALKAVAN TASEEN ? ";A$:A$"E"680 r:"PAPERILLE ? ";A$ |A$"E"420 4:958:"LAITA KIRJOITIN VALMIIKSI"::"JA PAINA 3 YOU ARE IN A SMALL THICKET,0,0,0,0,0,0,79,0j3 YOU'VE COME TO A FARM,0,0,79,0,0,0,0,03 YOU'RE ON A PATH,0,85,0,0,79,0,0,03 S,86,0,0,0,85,0,84,03 THE PATH ENDS HERE IN FRONT OF A CASTLE,0,86,83,0,0,0,0,884" THE PATH I  D$(4)X:12:"LAITA KIRJOITIN P[[LLE"::"JA PAINA SITTEN ";:" ";A$fD$"PR#1"s1657,80(14)" P[[TILIKARTTA"::D$"OPEN MASTER,D1"(D$"READ MASTER"-LKM2J1LKM2<A$,B$,C$,E$ FA$" "B$;: 0,0,74,0,0,0,0(2 S,0,0,0,0,0,0,70,73C2 S,0,0,0,73,0,72,0,76{2 YOU'VE COME TO AN ANCIENT TEMPLE,0,0,0,75,0,0,0,02 HERE'S A PATH LEADING NORTHWEST,0,0,0,0,19,0,0,782 S,0,0,0,77,0,0,0,79 3 A PATH LEADS TO THE SOUTHEAST FROM HERE,82,0,8YOU'RE NORTH OF A CAVE. ON THE IS A MESSAGE 'WIZARDS HATE TRUMPET MUSIC,69,0,0,67,0,0,0,01 THERE'S A JUNGLE IN THE NORTHEAST,0,70,0,0,68,0,0,01 YOU'RE IN THE JUNGLE,71,73,0,0,0,69,0,01 S,75,0,73,0,0,0,72,01 S,0,0,0,70,0,0,0,02 S,0,A SIGN SAYS 'SELL YOUR GOLD',0,0,0,0,63,61,0,0f0F NOW YOU STAND EAST OF THE LAKE,62,0,0,0,64,0,0,00P S,63,0,0,0,0,0,60,00Z YOU'RE IN FRONT OF A CAVE,0,0,58,0,0,0,66,670d YOU'RE IN THE CAVE,67,0,65,0,0,0,0,00n S,0,0,0,65,66,0,0,68Y1x ,0,0,54,0,55,0,0,0,/ S,58,0,0,0,54,0,0,0l/ YOU'RE AT THE NORTH SIDE OF THE DESERT,59,0,0,0,57,0,65,0/ THER'S A SEASHORE NORTH,60,0,0,0,58,0,0,0/( YOU'RE ON A SHORE,0,61,64,0,59,0,0,0/2 S,0,62,0,0,0,60,0,0/0< YOU'RE NORTH OF A LAKE. 0,0,0,0,0,38,0,47D. YOU'RE IN A GAMBLING CASINO,0,0,0,0,0,0,50,0r. YOU'RE IN THE DESERT,51,0,49,0,47,0,0,0. S,0,52,0,0,50,0,0,0. S,53,0,0,0,0,0,0,54. S,0,0,0,0,52,0,54,0. S,57,0,53,52,0,55,56,0. S,56,54,0,51,0,0,0,0/ S,0,0,46,0n- YOU'RE IN A SMALL CLOSET. ON THE WALL IS WRITTEN 'CALL 326-7800 FOR A HOT TIP,46,0,0,0,0,0,0,0- THE CORRIDOR ENDS HERE,0,0,44,0,45,0,0,0- NOW YOU'RE AT THE SOUTH END OF THE DESERT,50,0,0,48,0,35,0,0. YOU'RE AT A TRADING POST,,L YOU'RE SOUTH OF A DESERT,0,48,0,0,0,0,0,35[,V YOU'RE IN THE HOUSE,0,0,37,0,0,0,41,0u,` S,0,37,0,0,0,0,42,0,j S,0,0,39,0,42,0,0,0,t S,41,0,40,0,43,0,44,0,~ YOU'RE IN THE LIVING-ROOM,42,0,0,0,0,0,0,0 - YOU'RE IN A CORRIDOR,0,0,42,0H HERE,0,0,32,0,0,0,0,0N+$ YOU'RE OUTSIDE THE LITTLE TOWN,0,0,0,35,0,0,31,0+. THERE'S A DESERT IN THE NORTHEAST,0,47,0,38,36,0,0,34+8 YOU STAND IN FRONT OF A HOUSE. THE DOOR IS LOCKED,35,0,0,0,-1,0,0,0+B YOU'RE IN A HALL,36,0,0,0,0,40,39,0/N,0,29,28,0,0,0,0,26D* YOU'RE IN A SMALL TOWN,29,0,31,0,0,0,27,0v* HERE'S A NEWSPAPER STAND,0,0,30,0,28,27,0,0* YOU'RE ON THE TOWN'S MAIN STREET,0,0,0,0,31,0,29,0* S,30,0,34,0,32,0,28,0* S,31,0,0,0,0,0,33,0+ THERE'S A PHONE BOOT0,0,196) YOU'RE IN A BIG FOREST,20,0,0,0,0,22,23,0R) S,23,21,0,0,0,0,25,24n) S,0,0,21,0,22,25,24,0) S,0,0,23,22,25,0,0,0) S,24,23,22,0,26,0,0,0) THERE'S A FOREST NORTH,25,0,0,27,0,0,0,0* YOU STAND AT THE GATE OF A SMALL TOW,0,0;(p YOU'RE ON A ROAD CURVE TURNING,0,0,0,17,0,0,15,0o(z YOU'VE COME TO A TOLL BOOTH,0,0,18,0,0,0,0,16( YOU'RE ON A BRIGDE,0,0,19,0,0,0,17,0( YOU'RE IN A ROAD-CROSSING,77,0,0,20,0,0,18,0) NOW YOU'VE COME TO A NARROW PATH,0,0,0,0,21,,0,0,0,9,0,0,0C'> THIS IS A ROAD LEADING NORTH,12,0,10,0,0,3,0,0o'H YOU ARE ON THE ROAD,13,0,0,0,11,0,0,0'R S,15,0,14,0,12,0,0,0'\ YOU'RE IN A BANK. A SIGN SAYS 'WE BUY GOLD',0,0,0,0,0,0,13,15(f A ROAD LEADS SOUTH FROM HERE,0,0,16,14,13,0& S,0,11,0,0,4,1,2,0/& S,3,0,0,0,5,0,1,2d& YOU'RE ON A PATH LEADING SOUTH,4,0,0,0,6,0,0,0&  YOU HAVE A MEADOW TO THE SOUTH,5,7,0,0,98,95,0,0& YOU ARE ON A FREWAY,0,8,0,0,0,6,0,0&  S,9,0,0,0,0,7,0,0&* S,10,0,0,0,8,0,0,0'4 S,0AN OHJELMAN...") D$"RUN"FILE$(A)",D1" 801%r"NAME FOR LOADING";A$:D1$"OPEN"A$".CAS"I%wD1$"READ"A$".CAS"~%|X120:O(X)::P,MO,GB,GP,NG,NP,PH,PM,RL,RP,TU%D1$"CLOSE"A$".CAS":130%"I DON'T UNDERSTAND":230% YOU'RE IN A BIG CITY,2,3,4,0,0,0,0,0% S,0,0,3,4,1,0,0,0 HERE":3200:2301$6:"OK, YOUR SCORE: ":3240F$@A$"SAVE"1640w$J"NAME FOR SAVING > ";A$:D1$"OPEN"A$".CAS"$OD1$"WRITE"A$".CAS"$TX120:O(X)::P:MO:GB:GP:NG:NP:PH:PM:RL:RP:TU$^D1$"CLOSE"A$".CAS":230%hA$"LOAD"1600:2307#RL0ĺ"THE RIFLE IS NOT LOADED":3200:230S#"BOOOM....":3220:RL0#LI0ĺ"THE LION DIES. GOOD SHOT":LI0:230#"WHAT WERE YOU REALLY TRYING TO SHOOT?":"- ANYWAY, YOU MISSED":230#"A$"READY"1600$,P43ĺ"I CANNOT FINISH1:"MANAGER SAYS: YOU MAY NOT GAMBLE ANYMORE":3200:230E"MOMO5f"WRN(10)RN(5)GB:W0W0"RN(20)7WRN(8)50:Y110:3200:""YOU GAMBLE 5$ AND WIN ";W;" $.":MOMOW:230"I$"SHOOT"1570#O(18)1ĺ"I HAVE NO RIFLE":32AVE GATHERED ";SC(MO4)25;" POINTS IN ";TU;" TURNS":230P!I$"HELP"1450x!P17ĺ"PAY TOLL, YOU STUPID!":230!"HELP YOURSELF":3200:230!I$"GAMBLE"1510!P49ĺ"YOU CAN'T GAMBLE HERE":3200:2309"MO35(W5RN(8)1)NG1NGAVE $";MO;".00 IN CASH" Z230 dI$"QUIT"Ą"DO YOU REALLY WANT TO QUIT NOW? ";A$:(A$,1)"Y"ė:"YOU COULD HAVE GOT:";:3240 fI$"QUIT"1390 i"I THOUGHT SO ":230 nI$"SCORE"1430 xSC0:X120:O(X)1SCSCOP(X) ;!"YOU H(16336):X160:6WZ1ĺ"NOTHING HAPPENED":230^ "THE WIZARD DISAPPEARED":WZ0:230qI$"LOOK"130I$"INV"1380(Q0:"I CARRY: ":X1202O(X)1ĺO$(X):Q1<FQ0ĺ"NOTHING":3200 P:"WITH ME AT THE MOMENT AND I H1ĺ"IT'S LOADED ALREADY":3200:230PRL1:"OK, THE RIFLE IS NOW LOADED":230mA$"PLAY TRUMPET"1300O(20)1ĺ"I HAVE NO TRUMPET":3200:230"OK, TARII-TARII-TARATTAA..."Z13:Y14:3200::Q150:Q:Z3200:Z1100::ZXTLKM& dKARTTA$(I,0),KARTTA$(I,1):. nC$B xO$"APU,L10,D2"M I05] R$"APU,R"Ij AP(I):r C$ O$"NIMI,L50,D2" R$"NIMI,R0" NIMI$ C$ :12)"TILIVUODEN AVAUS":12)"----------------" 4:868:"VUOSI: "AP(0)" C D$(4):O$D$"OPEN":R$D$"READ":W$D$"WRITE":C$D$"CLOSE"\B$(7)(7):I$(9)SALDO(200),AP(5),KARTTA$(200,1)(D$"BLOAD FORMATTER,D1"2:12:"LUEN TILIKARTAN..."7:1090<O$"KARTTA,D2"FR$"KARTTA"PTLKM ZI1   OR TO OPEN":3200:230AO(11)1ĺ"I HAVE NO KEY":3200:230"OK.IT IS OPEN":P$(36)"YOU STAND IN FRONT OF A HOUSE":P(36,5)37:230A$"LOAD RIFLE"1240O(18)1O(19)1ĺ"CANNOT BE DONE - I NEED SOMETHING FIRST":3200:230#RL30LJ$"326-7800"1150JVGB1ĺ"IT MIGHT BE A GOOD IDEA TO GAMBLE"x`GB1ĺ"IF I WERE YOU I WOULDN'T GAMBLE"jGB0ĺ"WITH LUCK GAMBLING MAY PAY OFF "t230~"WRONG NUMBER":3200:230A$"OPEN DOOR"1200P36ĺ"I SEE NO DO16336)(16336)(16336)(16336)::X1200:X:Y`"A VOICE SAYS: ":J$"814-1000"1100zRN(6)3GPRN(3)2$GP1ĺ"THE PRICE OF GOLD IS GETTING LOWER".GP0ĺ"THE GOLD PRICES ARE STEADY "8GP1ĺ"GOLD IS RISING IN PRICE"B2 ";Q;".00 FOR YOUR GOLD":MOMOQ:230FI$"DIAL"I$"CALL"1160sP33ĺ"I SEE NO PHONE HERE":3200:230RN(3)21030"THE LINE IS BUSY":Y110:3200:Q140:::230"OK, THE CALL COSTS $3.00":MOMO35Y13:X140:ZX(YPE: READY":230D"I DON'T HAVE SUCH A THING TO READ":3200:230]A$"SELL GOLD"990O(7)1ĺ"I HAVE NO GOLD":3200:230P14ĺ"NOBODY VANTS TO BUY IT HERE":3200:230Q(280TUGP0.2)Q50Q50O(7)0&"OK,YOU GET CAT":230!R(J$,2)"PH"8804\O(16)1910BfPH1760skPH1:"IT SAYS: DIAL 814-1000 FOR INFO":230p(J$,2)"HA"910zO(8)1910"IT SAYS: TO FINISH THIS GAME, BRING":"YOUR TREASURES TO THE LIVING ROOM":"IN THE HOUSE AN T200:2305RP1:"THE NEWSPAPER SAYS: ":GPRN(3)2_ GP1ĺ"THE PRICE OF GOLD IS RISING!"GP0ĺ"THE GOLD PRICE IS STEADY" GP1ĺ"THE GOLD PRICES ARE DROPPING"*2304(J$,2)"BO"850>O(2)1910 H"THE BOOK SAYS: FEED THE1:"OK, I NOW BOUGHT A NEWSPAPER":"IT COST ME A DOLLAR":O(14)1:230s"YOU BOUGHT ONE ALREADY ONE":3200:230"I CAN'T BUY THAT":3200:230I$"READ"920(J$,2)"NE"820O(14)1910RP1770"I READ IT ALREADY!":3'A1ĺ"THAT WAS STUPID OF YOU":184TRRN(30)10:"THE THIEF TAKES YOUR MONEY AND SAYS :":"THAT'S NOT ENOUGH! I'LL BE BACK":TH0:230I$"BUY"720(J$,2)"NE"710P29ĺ"I SEE NO NEWSSTAND HERE":3200:230FNP0MOMO1:NPк"OK, THE CAT EATS THE FISH AND WHISPERS:":"BUY A NEWSPAPER":230\A$"GIVE MONEY"679TH1ĺ"I SEE NOBODY DEMANDING MONEY":3200:230"HOW MANY DOLLARS SHALL I GIVE? ";A:MOMOA:A25TH0:"THE THIEF DISAPPEARS WITH THE MONEY":NT1:230bQ(J$)64:O(Q)1ĺ"I DONT HAVE THAT !":3200:230nlO(Q)P:"OK, I DON'T HAVE ";O$(Q);" ANYMORE.":230vA$"FEED CAT"670CA0ĺ"I SEE NO CAT HERE !":3200:230O(6)1ĺ"I HAVE NOTHING TO FEED THE CAT WITH !":3200:230BO(6)0:ĠōΠӮʍ36,34:VI$;:36,47:VI$, jMJ$(S1):7808 kS1$MJ$K lMJ$(S2):780W mS2$MJ$ r36,44(S1$):S1$;:36,57(S2$):S2$ |RR2: VMS2 TT(S2):S10:S20 ::"VEROLLISET OSTOT 3.8101:":RR3 I1X KI$(I,3)"3.8101"İ550KELMA":$ ID$;" KUUKAUSI: "KK:8 I180:"-";:o :36,30:"TOSITE";:36,40:"SUMMA";:36,55:"LVV"u  ":"VEROLLINEN MYYNTI 1.9001:":R8 ,I1X 6KI$(I,3)"1.9001"İ550 @KI$(I,4)"1.9001"İ640 J730 T ^360:390 hX)1000.5)100) D$"OPEN NIMI,L50,D2"? D$"READ NIMI,R0"H ID$W D$"CLOSE" :10:"LAITA KIRJOITIN VALMIIKSI"::"JA PAINA ";:A$:A$ A$(13)192 D$"PR#1" 1657,80 240 290 (14)8)"LIIKEVAIHTOVEROLASET"KK",D2"* <D$"OPEN KIRJAUKSET"KK",D2"E FD$"READ KIRJAUKSET"KK] PX:X((X10000)5)h ZI1Xs dJ15 nKI$(I,J) x D$"CLOSE" D$"OPEN APU,L10,D2" D$"READ APU,R1" VP:VPVP100 D$"CLOSE" VERO(X)((VP~ 1000& :KI$(200,5),SA(200)CD$(4):VI$"----------"o14)"LVV-LASKELMA":14)"------------"(::"MINK[ KUUKAUDEN LASKELMA: ";A$:KK(A$):KK1KK12402:"LUEN KIRJAUKSET..."4D$"BLOAD FORMATTER,D1" 7D$"UNLOCK KIRJAUKS&^TUTU1::"YOUR COMMAND --> ";A$7h(A$)2510?rD0O|A$"N"D1`A$"NE"D2pA$"E"D3A$"SE"D4A$"S"D5A$"SW"D6A$"W"D7A$"NW"D8D0ĺ"THAT'S NO DIRECTION!":3200:230P(P,D)13NG ANGRY !":WZ3N@WZ1ĺ"A MEAN WIZARD APPEARS FROM A CLOUD OF SMOKE":WS2^JWZ0İ3220OMO0ė:"YOU HAVE USED ALL YOUR MONEY !":"YOU MAY NOT CONTINUE !":"YOU COULD HAVE GOT":3240TMO20ĺ"WARNING! YOU HAVE ONLY$";MO;"LEFT IN CASH":3200T HAVE GOT";:3240;LI2ĺ"THE LION ATTACKS YOU !":LI3nLI1ĺ"A LION APPEARS FROM THE BUSHES !":LI2~LI0İ3220"WZ1P86P95RN(10)3WZ1,WZ3ĺ"THE WIZARD KILLS YOU":"YOU COULD HAVE GOT";:32406WZ2ĺ"THE WIZARD IS GETTIOU:":"DON'T YOU EVER LEARN ?":"YOU'RE FINISHED WITH THIS GAME":3240 P49RN(10)3ĺ"A POLICE RAID FINES YOU $25.00 FOR BEING IN AN ILLEGAL GAMBLING HALL!":MOMO25:3220 LI1P68P77RN(30)3LI1LI3ĺ"THE LION KILLS YOU":"YOU MIGHLICEMAN STOPS YOU AND SAYS:":"YOU ARE WALKING ON THE FREEWAY 1!":"DON'T DO IT AGAIN":PM1:230 PM1ĺ"THE POLICE APPEARS AGAIN AND SAYS":"YOU WERE WARNED ABOUT THIS !":",AND FINES YOU $30.00.":PM2:MOMO30:230F "NOW A VERY ANGRY COP TELLS YWHERE":"AND RUBS AGAINST YOUR LEGS !":CA1:3200p TH1ĺ"THE THIEF KILLS YOU.":"YOU COULD HAVE GOT";:3240 NT0P35RN(TR)3ĺ"A THIEF APPEARS, ":"THREATENS YOU WITH A GUN AND SAYS":"GIVE ME MONEY !":3220:TH1 P9230a PM0ĺ"A POERM MODE   Q LRESET   H L*** SUORITUS P[[TETTY ***   Lc w o  s Lc%L 'L )L +L 8L 8L 8L 8L 8L 8L L#LOPETTAAKSESI PAINA CTRL-A Q RETURN   e LPR#2   e L IN#2   Q L'6 BAUD    Q LB1 DATA ;  Q L_3 PARITY V  Q L~ LF DISABLE s  Q LE E   Q L T L&MIKROTELESYP MIKROTELESYP MIKROTELESYP  qL! APPLE//-MIKROTELESYP-SOVITIN  {LH! (C) COPYRIGHT EMULA OY 1984 &  6  g ?  ] -  S X w o  s y    w o  s   ,խwqq膸 J즸 , hhlP,q`h8uhv] :  ڢ hgʆbcb KLf/q ߠ :۩q` S0 L,Hh*Mȱڦhwx%ȱH J hwУ8 ewwx𴰺 抦5?wtsʆwx8dedЕБt Z Z ,խvqq ", ȹ,ȹ ,W,qewix8 Z ZCBw U  yUUwyVxz`ЗПwyxz`ywzx`GH o8 UpVUVƠ UVUʆoph3]eФk ЮU 4Г U 5,wЅƩѤ wU! 5Bē唐\tsʆbc83o񁪥pTopȆbcĂbUVdf0Ѓe8oph0L8 MLh8HH`BUUȥViлh8HH`З{y SՠUEowyywxzzxwIy:e \`hH,Hops8otpf,k8UlV*U$f&łkUŁdbUȥcUUŭSVŮKsłEUŁ< UV0ЅUŕȱU喰!0UUdUV0+UiUVmVn̢͊wUV0ЦyyUUݤh.QP$  e LWHhL:5~    eȱeLaL LRwwxȆwxwHw Jhw`w5U,w`,hbhcbwȱbxcȘHH`wȄ wep`0CBe]Q=b`LicbbbE0`Ġ``MMLeڢD ! SL3LH h%LddЉ`?0 HH chh ޥ Yަ`н  eE   ࠰>Ffee0  &ߢEX$ƫv` ꥪLYDcbbwyȱbxz`ݥܦL+3UV UwȱUx`wUȥxU`Ncbbȱb`cbbȥb`cbbȱb8塅堅PEncbbȱbe HH`0S,,hdehUhVhhHHU hehHehUU HHk`UiȱUiuкe& & &eeHHqUȥqUeFdO݅܆`ycbbȱbƫ8pM䡥UȥUU +뺠ЧUV욥VHUHthhЁ HHf ㈱ۺQi e 纼 +뺊i  e HH`iiiHH`(bcbebbePE1b]  0  j=i<<=kbޙץ,,stHʈcbhH ʈpoophMm X RQtPsh`bhH    z#?  ɠ  ҠҠ Ϡ! "Š Π֭  ҭҠ ϠĸàӠ4ӠϭӠ! ĮԠĠϠ2ɮӠˮؠ Ӡ3 Ġ̸!"РŠӮʠԠ ͮʰĠ 25,3018:25,3020:18,2025K25,3522:22,2425:25,3024:22,2430:P`25,3026:26,2322,3029:28,3025:29,3030"25,3032:25,3034:32,3425:32,3430: ,@::"JA NYT VOIMMEKIN SITTEN ALKAA.."J(4)"RUNHELLO,D1"0,2035:33,3515:33,3520A 0,390:0,3939:0,390:0,3939r 20,303:5,25:5,26:4,27:4,28:5,29:5,30 25,307:7,23 25,309:9,1025 25,3512:12,23:10,1235 25,2614:29,3014:25,3016:14,1625:14,1628:14,1630+ x3,75:3,715:3,710:5,68:14,158W 10,1410:10,1510:10,1512:10,1514y 10,1516:10,1518:16,1815 5,1520 10,1122:14,1522:10,1525:22,2515:22,2510:22,2513 5,1528:5,1531:28,315:28,3115 10,1533:111 ; 4,215,4,192,8,171,6,161,2,100,8,192,4,229T < 4,215,8,192,8,171,32,215,255m FN080:D:S0N,D: KN052:D:A0N,D:: P:7 Z"T[M[ OHJELMA HELPOTTAA TY\T[SI":"NIIN PALJON, ETT[ VOIMME HETKEKSI HELLITT[[.." d ISO E n5,1535 6 136,208,12,165,253,201,100,240,3,173,48,192,164k 7 253,136,198,255,208,223,198,254,208,215,198,252 8 208,207,230,249,230,249,24,144,179 9 16,215,16,107,8,113,4,143,4,127,8,113,6,107,2 : 100,16,215,16,127,24,143,8,100,16,254,16,161,8,17A22561 #D$:70, (250,A1:251,A2:S05 -320e 2 169,1,133,249,164,249,177,250,201,255,208 3 1,96,133,252,200,177,250,133,253,166,253 4 164,253,136,169,32,133,254,169,255,133,255,202 5 208,11,165,253,201,100,240,3,173,48,192,166,253 33,40::80n 1,`ȱ d0 d0.. 2,kqqkddd :D$:S1(125):S2(126):S0S1S22561 D$:D$:A1(125):A2(126):A0A1Lg& ) (  Lg&  + L' (   L 'j  L%    +   L% ) Lg& );) I Lg& Lg& hhhh ?` +Lg& )    5 Lg& Lg& )Lg& +  Lg& :)L&  i0 )I  + %E JHHHH  ɦ:ɸ-&(' "Lg& Lg&Lw&L%L&L&    +   Lg& ) Э )ǭ );)  Lg& I Lg& Lg&    + Lg&  Lg& ) 8n   EMULA OY 1982"7)"*"( 74)"*"31)"*"T 84)"*********************************"` <:::x F(4)"RUN APPLEBSC"AS ANY KEY)";:A$: P(4);"CATALOG"y33,40>4)"*********************************"Q4)"*"31)"*"{ 4)"*"7)" A P P L E B S C "5)"*" 4)"* ^^^^^^^^^^^^^^^ "7)"*"4)"*"31)"*"4)"*"12)"# 01893"12)"*"(4)"*"31)"*" -4)"* (C) :K6%0:X(0):(,"NOMON","PR#","IN#"@ "MAXFILES","FP","INT","BSAVE","BLOAD"V$ "BRUN","VERIFY"\)h.I128v8ST$(I):|B $(I)Ĺ36,25:"*****";+0A$"K"I15ľA$3::LD:"PAINA 'RET' ";A$TN60u "INIT","LOAD","SAVE","RUN" "CHAIN","DELETE","LOCK","UNLOCK" "CLOSE","READ","EXEC","WRITE" "POSITION","OPEN","APPEND","RENAME" "CATALOG","MON":E BL)"MUUNNETUT KOMENNOT":BL)"------------------":::J1c "STANDARDI"5)"NYKYINEN" "----------------------"  I128 ST$(I);:M$"" M$M$(CM$,J,1) DE%(J)128540 JJ1:510 JJ1:36,15:M$;&M$ST"KOMENNOT ASTUVAT VOIMAAN..."- ^I1(CM$)? hCI,DE%(I):G r60M |:S :_ :1000 :"KIRJOITTIMELLE > ";A$:A$"K"460 :"ASETA PAPERI JA K[YNNIST[ KIRJOITIN" :"JA PAINA 'RET' ";:B$:J1 B$(13)420 1 BL11 (CM$)LMLU& DE%(J)DE%(JLMLU):/ 280Q J((CM$)LULM)(ILM1)1k DE%(J)DE%(JLULM):y J0LU2 "DE%(IJ)((U$,J1,1)) , 6DE%(ILU1)((U$,1))128 @CM$AL$U$LP$ J:"MUITA MUUTOKSIA > ";A$:A$"K"150 T: ";:A$:A$(13)150( A$(27)1900 60Z I1AL$"":LP$(CM$,(CM$)LM):250 AL$(CM$,I1):LP$(CM$,(CM$)LMI1) :"KOMENTO: ";::M$: :"MUUTETAAN MUOTOON: ";U$:LU(U$):LU2250 LULM280 LULM270 JILUMENTOJEN LISTAUS"= n:"VALINTASI> ";A$:A(A$):A1A360P xA130,150,400a :"BYE !":g : :"MUUTETTAVA KOMENTO: ";M$:LM(M$) I1(CM$)LM (CM$,I,LM)M$230 :"KOMENTOA "M$" EI OLE": "JATKOA 'RET',MENU 'ESC'~& DE%(200),ST$(28):C43139:CM$""3I1132XX(IC):DE%(I)X:X128XX128i(CM$CM$(X)o2<:10)"DOS-KOMENTOJEN MUUNTO"F10)"^^^^^^^^^^^^^^^^^^^^^"P:"DOS 3.2 JA DOS 3.3"Z:"1. LOPETUS"::"2. MUUNTO" d:"3. KO     Πٍō1% $NN.I1NN;8SA:KUUSALDO(I)KUUSALDO(I)SA:LBD$;"CLOSE "RLXV:s` # KIRJAUSTEN LUKU #jD$;"OPEN KIRJAUKSET";C2%;",D2"tD$;"READ KIRJAUKSET";C2%~N:N(N10000)5I1N7TN%(C3%I),PP(C3%I),DEBET$(C3%I),KR$;"OPEN APU,D2,L10"+D$;"WRITE APU ,R4"7S1IVU%ND$;"WRITE APU,R5"ZS2IVU%kD$;"CLOSE " - PALATAAN P[[MENUUN -:D$;"RUN HELLO,D1" # SALDOTIEDOSTON LUKU JA SUMMAUS #D$;"OPEN SALDO";C1%;",D2"D$;"READ SALDO";CH - HYPYT ALIOHJELMIIN-<RK1%1İ1210: P[IV[KIRJA [\K2%1İ1800: P[[KIRJA yfK3%1İ2120: TULOSLASK pK4%1İ3390: TASEzK6%1İ4460: SALDOLISTA  - P[IVITET[[N VTKK%:IAJA SIVUNOJA -D$;"PR#0"K8%01000DLOSTUS ,HYPYT ERI TULOSTEIDEN ALIOHJELMIIN -5PD1>PD1S 4928016PD,128sI120:W(49345256PD): W254820*:12::B$"*** KYTKE KIRJOITIN P[[LLE ***";:::I15000::7704D$"PR#1":>1657,80: RIVIPITUUS 80 MERKKI[[N KUNNES KAIKKI LUETTU C - LUETAAN TARVITTAESSA KIRJAUKSET -XK1%0K2%0770(12):"LUEN KIRJAUKSET ...":C2%KK%:C3%1:1120: KIRJAUSTEN LUKUC2%C2%1:C2%KK%LKM%7701120720: PY\RIT[[N KUNNES KAIKKI LUETTU, -TU)SA:XD$"CLOSE"$ZK7%26106]KK%TVA%582<bQlK7%2NNN:700qv - LUETAAN SALDTEDOSTOT -(12):"LUEN SALDOTIEDOT ..."C1%KK%:1030: SALDOTIEDOSTON LUKUC1%C1%1:C1%KK%LKM%6901030660: T[SS[ PY\RIT[AA% >N@I1N6ASA:KMUSAL(I)KMUSAL(I)SA:EBD$"CLOSE"WDAA%TVA%590FAA%AA%1:IFAA%> 12 THEN AA% = 1GAA%KK%610H572ND$"OPEN ALKUSALDO,D2"PD$"READ ALKUSALDO"RNTI1NVSA:KMUSAL(I)KMUSAL(IVUODEN ALKU: "TVA%;:A$:A$:A$(13)570[212:18:"";A$:TVA%(A$):TVA%1TVA%12562v4150:D$"WRITE APU,R3"6TVA%8D$"CLOSE":AA%TVA%::12:"LASKEN KUMULATIIVISIA SALDOJA...";K7%2590<D$"OPEN SALDO"AA%=D$"READ SALDO"N SIVUNUMERO: "S1IVU%;:A$DA$(13)Ģ5:25:"";A$:S1IVU%(A$)s7:1:"P[[KIRJAN SIVUNUMERO: "S2IVU%;:A$A$(13)Ģ7:23:"";A$:S2IVU%(A$)::"TULOSTUSP[IV[M[[R[: ";PV$:PV$""540&IFK1% = 0 AND K2% = 0 THEN 610)012:"TILI"MIK[ OTSIKOKSI TASEESEEN ?"::"1.TASE":"2.AVAAVA TASE":"3.P[[TT[V[ TASE" 24:1:"VALINTASI> ";A$:K7%(A$):K7%1K7%3460 :2:1:"OTETAANKO JUOKSEVAT SIVUNROT?";A$ K8%1 A$"K"K8%0:S1IVU%0:S2IVU%0:5405:1:"P[IV[KIRJAIV[KIRJA":K1%14 rA$"2"Ģ9:23:"P[[KIRJA":K2%1^ |A$"3"Ģ11:4:"TULOSLASKELMA":K3%1 A$"4"Ģ11:23:"TASE":K4%1 A$"5"Ģ13:4:"SALDOLISTA":K6%1  A$(27)K1%0:K2%0:K3%0:K4%0:K6%0:310 340 K4%1470M ::M%1* ,KK%(A$):KK%1KK%12ĺB$;:290[ 69:1:"1. P[IV[KIRJA":9:20:"2. P[[KIRJA" @11:1:"3. TULOSLASKELMA":11:20:"4. TASE" J13:1:"5. SALDOLISTA" T16:1:"MITK[ TULOSTEET HALUAT: ";:A$ ^A$(13)440 h:A$"1"Ģ9:4:"P[ S1IVU%! D$;"READ APU,R5"- S2IVU%= D$;"CLOSE"X D$;"OPEN NIMI,D2,L50"o D$;"READ NIMI,R0"z NIMI$ D$;"CLOSE" :12)"TULOSTUSOHJELMA":12)"----------------": :"ASIAKAS: "NIMI$: ""TULOSTETTAVA KUUKAUSI: ";A$:LK:(12):"LUEN TILIKARTAN..."7 ZD$;"OPEN KARTTA,D2"M dD$;"READ KARTTA"X nN:JNc xI1N KARTTA$(I,1):KARTTA$(I,2): D$;"CLOSE KARTTA" 150:160 D$;"OPEN APU,L10,D2" D$;"READ APU,R3 TVA% D$;"READ APU,R4"p1  **** TTI 1.2.3 ****&:,:I( # - OHJELMARUNKO - #2TN%(200):KMUSALDO(200):KUUSALDO(200):SUMMA(200):KREDIT$(200):DEBET$(200):PP(200)<D$(4):B$(7):I$(9):NOL$"000"AD$"BLOAD FORMATTER,D1"FKARTTA$(200,2) P                     45)"LOPPUSALDO.......***"T110);S$::RIVI%RIVI%2z!RIVI%55ĺ(12):RIVI%0:1600:ENNAKOIDAAN SIVUN T[YTTYMINEN !!S2IVU%SIVU%:K2%0:X(0):(12)!RIVI%0:! - NOLLIEN LIS[YS JA TABULOINNIT -!S$S$NOL$! S$S$!7682050: NOLLAT2 54)TN%(J)T1)S$:RIVI%RIVI%1U KREDIT$(J)KARTTA$(I,1)1960x S$(SUMMA(J)):2050: NOLLAT 54)TN%(J)T1)S$:RIVI%RIVI%1 RIVI%58ĺ(12):RIVI%0:1600: SIVU T[YTTYI  S$(KMUSALDO(I)):2050: NOLLAT 6!RIVI%RIVI%1?:S$(((KMUSALDO(I)KUUSALDO(I))100.5)100)ZD2050: NOLLIEN LIS[YSN45)"ALKUSALDO.........."T19);S$:RIVI%RIVI%1X - TILI[ VASTAAVIEN KIRJAUSTEN ETSIT[ -bJ1C3%lDEBET$(J)KARTTA$(I,1)1930 vS$(SUMMA(J)):K6%0ĺ20)"TILI"35)"SALDO":3SIVU%SIVU%1:F # P[[KIRJA #X - OTSIKKO -OTSIKKO$"P[[KIRJA":SIVU%S2IVU%:1600 - KIRJOITUSLOOPPI -I1NN&KUUSALDO(I)02000: JOS EI MUUTOSTA 02)(KARTTA$(I,1),4)2)KARTTA$(I,2):00-7)"TILI"41)"TOSITE"13)"MK"::1770=K3%0172032)"KULUVA KUUKAUSI"4)"%"6)"TILIVUODEN ALUSTA"4)"%"::1770K4%0174032)"KULUVA KUUKAUSI"11)"TILIVUODEN ALUSTA"::1770K5%0176027)"MK"40)"MK"::1770 #J:70)"-";SIVU%;"-"FT(14);(40(OTSIKKO$))2);OTSIKKO$:^53)"TULOSTETTU:"PV$13)NIMI$5)"KAUSI:"KK%;" - ";KK%LKM%1hN180:"-";:r|K1%016802)"TOSITE"4)"PVM"7)"TILI"33)"DEBET"9)"KREDIT"::1770K2%017ATAAN -(12)8RIVI%0:S1IVU%SIVU%:K1%0:X(0)>Z - TILINIMEN ETSINT[ -hJNN:JU0(KARTTA$(J,1))VERTTULOSJ:"JVJU,(KARTTA$(J,1))VERTJUJ:JJ(JJV)2:15606JUJ:JJ(JJV)2:1560@ # OTSIKKOALIOHJELMAT[YTT.-- -RIVI%56ĺ(12):RIVI%0:1600Z - TARKASTETAAN TOSITTEIDEN J[RJESTYS -hI11490TN%(I1)TN%(I)1ĺ" *** J[RJESTYSVIRHE ***":RIVI%RIVI%1TN%(I1)TN%(I)1ĺ:RIVI%RIVI%1 - KELATAAN UUDEN SIVUN ALKUUN JA PALT354(KARTTA$(KR,2))(S$)<Z - KIRJAUKSEN PRINTTAUS -SdDEBET$(I)""1410n4)TN%(I)T1)PP(I)3)(DEBET$(I),4)2)KARTTA$(DB,2)T2)S$xKREDIT$(I)""142018)(KREDIT$(I),4)2)KARTTA$(KR,2)T3)S$RIVI%RIVI%2  --TARK. SIVUN $(I)):1540: ETSINT[<DBTULOS: ETSINN[N TULOS TALTEENYVERT(KREDIT$(I)):1540f KRTULOS - NOLLIEN LIS[YS -S$(SUMMA(I))NOL$(S$S$2768: FORMATOINTI<T111((TN%(I)))((PP(I)))FT241(KARTTA$(DB,2))(S$)PEDIT$(C3%I),SUMMA(C3%I):PP(C3%I)PP(C3%I)C2%100:\C3%C3%N: VAPAAN INDEKSIN ARVOmD$;"CLOSE "s # P[IV[KIRJA # - OTSIKKO -OTSIKKO$"P[IV[KIRJA":SIVU%S1IVU%:1600 - TULOSTUSLOOPPI -I1C3%VERT(DEBET8,1715 ; 4,215,4,192,8,171,6,161,2,100,8,192,4,229X < 4,215,8,192,8,171,32,215,255q FN080:D:S0N,D: KN052:D:A0N,D:: D2539 6 136,208,12,165,253,201,100,240,3,173,48,192,164o 7 253,136,198,255,208,223,198,254,208,215,198,252 8 208,207,230,249,230,249,24,144,179 9 16,215,16,107,8,113,4,143,4,127,8,113,6,107,2 : 100,16,215,16,127,24,143,8,100,16,254,16,161,126):A0A1A22561 #D$:709 (250,A1:251,A2:S0:i 2 169,1,133,249,164,249,177,250,201,255,208 3 1,96,133,252,200,177,250,133,253,166,253 4 164,253,136,169,32,133,254,169,255,133,255,202 5 208,11,165,253,201,100,240,3,173,48,192,166, :"CELESTE MUSIC DEMO"y 1,`ȱ d0 d0.. 2,kqqkddd :D$:S1(125):S2(126):S0S1S22561 D$:D$:A1(125):A2(   $NN.I1NN68SA:KUUSALDO(I)KUUSALDO(I)SA:GBD$;"CLOSE "MLSV:n` # KIRJAUSTEN LUKU #jD$;"OPEN KIRJAUKSET";C2%;",D2"tD$;"READ KIRJAUKSET";C2%~N:N(N10000)5I1N2TN%(C3%I),PP(C3%I),DEBET$(C3%I),KREDIT$EN APU,D2,L10"&D$;"WRITE APU ,R4"2S1IVU%ID$;"WRITE APU,R5"US2IVU%fD$;"CLOSE " - PALATAAN P[[MENUUN -:D$;"RUN HELLO,D1" # SALDOTIEDOSTON LUKU JA SUMMAUS #D$;"OPEN SALDO";C1%;",D2"D$;"READ SALDO";C1% - HYPYT ALIOHJELMIIN-7RK1%1İ1210: P[IV[KIRJA V\K2%1İ1800: P[[KIRJA tfK3%1İ2120: TULOSLASK pK4%1İ3390: TASEzK6%1İ4460: SALDOLISTA  - P[IVITET[[N VTKK%:IAJA SIVUNOJA -D$;"PR#0"K8%01000D$;"OPLOSTUS ,HYPYT ERI TULOSTEIDEN ALIOHJELMIIN -5PD1>PD1S 4928016PD,128sI120:W(49345256PD): W254820*:12::B$"*** KYTKE KIRJOITIN P[[LLE ***"::I15000::7704D$"PR#1">1657,80: RIVIPITUUS 80 MERKKI[H[N KUNNES KAIKKI LUETTU C - LUETAAN TARVITTAESSA KIRJAUKSET -XK1%0K2%0770(12):"LUEN KIRJAUKSET ...":C2%KK%:C3%1:1120: KIRJAUSTEN LUKUC2%C2%1:C2%KK%LKM%7701120720: PY\RIT[[N KUNNES KAIKKI LUETTU, -TU)SA:XD$"CLOSE"$ZK7%26106]KK%TVA%582<bQlK7%2NNN:700qv - LUETAAN SALDTEDOSTOT -(12):"LUEN SALDOTIEDOT ..."C1%KK%:1030: SALDOTIEDOSTON LUKUC1%C1%1:C1%KK%LKM%6901030660: T[SS[ PY\RIT[AA% >N@I1N6ASA:KMUSAL(I)KMUSAL(I)SA:EBD$"CLOSE"WDAA%TVA%590FAA%AA%1:IFAA%> 12 THEN AA% = 1GAA%KK%610H572ND$"OPEN ALKUSALDO,D2"PD$"READ ALKUSALDO"RNTI1NVSA:KMUSAL(I)KMUSAL(IVUODEN ALKU: "TVA%;:A$:A$:A$(13)570[212:18:"";A$:TVA%(A$):TVA%1TVA%12562v4150:D$"WRITE APU,R3"6TVA%8D$"CLOSE":AA%TVA%::12:"LASKEN KUMULATIIVISIA SALDOJA...";K7%2590<D$"OPEN SALDO"AA%=D$"READ SALDO"N SIVUNUMERO: "S1IVU%;:A$DA$(13)Ģ5:25:"";A$:S1IVU%(A$)s7:1:"P[[KIRJAN SIVUNUMERO: "S2IVU%;:A$A$(13)Ģ7:23:"";A$:S2IVU%(A$)::"TULOSTUSP[IV[M[[R[: ";PV$:PV$""540&IFK1% = 0 AND K2% = 0 THEN 610)012:"TILI"MIK[ OTSIKOKSI TASEESEEN ?"::"1.TASE":"2.AVAAVA TASE":"3.P[[TT[V[ TASE" 24:1:"VALINTASI> ";A$:K7%(A$):K7%1K7%3460 :2:1:"OTETAANKO JUOKSEVAT SIVUN:OT ";A$ K8%1 A$"K"K8%0:S1IVU%0:S2IVU%0:5405:1:"P[IV[KIRJAIV[KIRJA":K1%14 rA$"2"Ģ9:23:"P[[KIRJA":K2%1^ |A$"3"Ģ11:4:"TULOSLASKELMA":K3%1 A$"4"Ģ11:23:"TASE":K4%1 A$"5"Ģ13:4:"SALDOLISTA":K6%1  A$(27)K1%0:K2%0:K3%0:K4%0:K6%0:310 340 K4%1470M ::M%1* ,KK%(A$):KK%1KK%12ĺB$;:290[ 69:1:"1. P[IV[KIRJA":9:20:"2. P[[KIRJA" @11:1:"3. TULOSLASKELMA":11:20:"4. TASE" J13:1:"5. SALDOLISTA" T16:1:"MITK[ TULOSTEET HALUAT: ";:A$ ^A$(13)440 h:A$"1"Ģ9:4:"P[ S1IVU%! D$;"READ APU,R5"- S2IVU%= D$;"CLOSE"X D$;"OPEN NIMI,D2,L50"o D$;"READ NIMI,R0"z NIMI$ D$;"CLOSE" :12)"TULOSTUSOHJELMA":12)"----------------": :"ASIAKAS: "NIMI$: ""TULOSTETTAVA KUUKAUSI: ";A$:LK:(12):"LUEN TILIKARTAN..."7 ZD$;"OPEN KARTTA,D2"M dD$;"READ KARTTA"X nN:JNc xI1N KARTTA$(I,1):KARTTA$(I,2): D$;"CLOSE KARTTA" 150:160 D$;"OPEN APU,L10,D2" D$;"READ APU,R3 TVA% D$;"READ APU,R4"2  **** TTI 1.2.3 ****&:,:I( # - OHJELMARUNKO - #2TN%(200):KMUSALDO(200):KUUSALDO(200):SUMMA(200):KREDIT$(200):DEBET$(200):PP(200)<D$(4):B$(7):I$(9):NOL$"000"AD$"BLOAD FORMATTER,D1"FKARTTA$(200,2) P        K1$(I,1)K02%K2$(I,J,K):+19C$JO$"APU,L10"ZW$"APU,R2"bTNjC$12:868:"VAIHDAN OHJELMAA..."D$"BLOAD CHAIN,A520,D1"520"UPDATE" 72@34,0:AX0:I0KLK*CJ04GDK2$(I,J,2)""J4:1606QEXX1WF]GJ12:"TALLENNAN KIRJAUKSET..."TO$"KIRJAUKSET"KK^W$"KIRJAUKSET"KKhX510000rI0KLK|J04K2$(I,J,2)""J4:1710K1$(I,0):";:A$:A$(13)10000LK140:"-";:8V:APO0NK1TLKbAA$(TK$(K),4)yA$AA$POK:KTLKP20:P1P11:KLKKLK1K01:K1$(P1,K)K1$(P11,K):59019:958:B$"TILI[ "A$" EI OLE !"9):K2$(P1,P2,2)K2$(P1,P2,2)NOL$:K2$(P1,P2,2)K2$(P1,P2,2):768QAA$"D"980t"DEBET> ";A$:1200:PO01550K2$(P1,P2,0)TK$(PO)AA$"K"983"KREDIT> ";A$:1200:PO01550K2$(P1,P2,1)TK$(PO)590:972"PAINA 958:"RIVI> ";A$:P2(A$):P20P24ĺB$:971N17:868:"T,P,S,D,K> ";AA$h17:868:AA$""662AA$"T"Ą"TOSITE> ";K1$(P1,0)AA$"P"Ą"P[IV[> ";K1$(P1,1):((K1$(P1,1)))1((K1$(P1,1)))31ĺB$:973?AA$"S"Ą"SUMMA> ";K2$(P1,P2,20Ģ17:B$"TILI[ "A$" EI OLE !":A%1:9102590KK2$(P1,P2,0)TK$(PO)^A$A$(2):1200PO0Ģ19:B$"TILI[ "A$" EI OLE !":A%1:940K2$(P1,P2,1)TK$(PO)A%1P2P21:760590:760590760A$"E"ĺB$:662-17::A$(2)"" I1(A$)/*(A$,I,1)" "840K4A$(A%)A$(A%)(A$,I,1)r>(A$,I1,1)" "A%A%1:A%2860xHRA%2ĺB$:760\A%0:P2P21:P24İ1500aA$(0)A$(0)NOL$:A$(0)A$(0):768fK2$(P1,P2,2)A$(0)pA$A$(1):1200)zPO%15:958:"TOSITE> ";A$:TN(A$)9K1$(P1,0)(TN)p17:958:"P[IV[> ";A$:(A$)1(A$)31ĺB$:730K1$(P1,1)A$:590P21:DS0:KS015:868:"KIRJAUS> ";A$:A$""790KLKKLK1:TNTN1:34,0:550 A%0:A$(0)"":A$(1)"" :,15:958:"CMD> ";:A$:A$?A$(27)1600QA$(8)667lP1P11:P10ĺB$:P10w:585A$(21)690P1P11:P1MXĺB$:P1MX:585A$"K"970P1KLK15:958:"TOSITE> "TN;:A$::A$(13)7205)"MK"6)"DEBET"4)"KREDIT":( D34,66 I590:662F N:7:I04m SI". "K1$(P1,0);:36,10:K1$(P1,1)s b~ lI04 q7I v36,23(K2$(P1,I,2)):K2$(P1,I,2); 36,31(K2$(P1,I,0)):K2$(P1,I,0); 36,40(K2$(P1,I,1)):K2$(P1,I,1)P11:460% :B$"MUISTI T[YTTYI !"4 1000:150< C$N O$"NIMI,L50"_ R$"NIMI,R0"h NA$p C$ O$"APU,L10" R$"APU,R2" TN C$ &:"ASIAKAS: "NA$:"KUUKAUSI: "KK;:36,26:"TILAA: "MXKLK 01100 :"TOSITE"3)"PVM" 6TN$"":P11:P20! @I1X; JAA$,BB$:AA$TN$360Z TTN$AA$:P1P11:P1MX430 ^K1$(P1,0)AA$:K1$(P1,1)BB$:P20 hJ02 rK2$(P1,P2,J): |P2P21:P24410 P20:P1P11:P1MX430 K1$(P1,0)AA$:K1$(P1,1)BB$  KLK"MILLE KUUKAUDELLE> ";A$:KK((A$)):KK1KK12ĺB$:200H 240:FL0e D$"UNLOCK KIRJAUKSET"KKn 260 (222)6Ĺ216,0:150 FL1 216,0 FL1P10:P20:KLK0:460 O$"KIRJAUKSET"KK "R$"KIRJAUKSET"KK ,X:X((X10000)5):MEM0MEMMEM65536' MX(MEM130)B K1$(MX,1),K2$(MX,4,2)j :6)"*** TOSITTEIDEN KIRJAUS ***" ::"1. LOPETUS"::"2. KIRJAUS" 10:"VALINTASI> ";A$:A(A$):A1A2ĺB$:170 :A190,200 "HEI HEI !":D$"RUN HELLO,D1"9 :(4)"MAXFILES 1"Y D$(4):O$D$"OPEN":R$D$"READ":W$D$"WRITE":C$D$"CLOSE"lB$(7):A$(2)NOL$"000":D$"BLOAD FORMATTER,D1"O$"KARTTA,D2"(R$"KARTTA"2TLK:TK$(TLK)<I1TLKFTK$(I),A$PZC$ xMEM(0)     :14107::"VARMISTA YHTEYS JA PAINA ";A$R::10:"SIGN-ON"::mD$;"OPEN";RF$;",D";DRD$;"DELETE";RF$D$;"OPEN";RF$ACKL,0MARK,212: $D4PASMRETC(RC):"PALUUKOODI = ";CT$(RE)RETC01540ELYN":1020:1310P17403Z *** RECEIVE *** Yn::"VASTAANOTTOTIEDOSTO ? ";RF$xRF$""RF$"REC.DAT":(37):23:RF$}"LEVYASEMA <1>/<2> ? ";DR$DR$""DR1:(37):23:DR:1450DR((DR$,1))DR1DR2Ģ(37):868)5CP0ĺ:" DOS-VIRHE":,216,0:EN12FD$;"CLOSE";SF$TI01740eBALKUI,ETXq CPCP1{PASMRETC(RC)(RETC1ĺ:"PALUUKOODI = ";CT$(RE):2RETC0EN1ı<ENī1740FRETC1Ė10:"WACK, SUORITAN LINJAKYS1230!VD$;"OPEN";SF$;",D";DR4`D$;"READ";SF$]jMARK,184: ASSEMBLER-KONTROLLI $B8ntBALKU1,STX~ TIETO PUSKURIALUEELLEI079SD$::SD$;BALKUI,(SD$):CPCP1BALKUI,EBT: OIK. ETB1300(222RETCODE0ī1740)(BALKUI)ETX940B *** SIGN-ON *** Ha:10:"SIGN-ON"::gMARK,166: ASSEMBLER-KONTROLLI $A6PASMRETC(RC)$ *** L[HETYS *** 8(BALKUI)EBT1130B:10::"L[HETYS"::L$""DR1:(37):(22):DR:8802\DR((DR$,1))TfDR1DR2Ģ(37):868::840p::"VARMISTA YHTEYS JA PAINA ";A$zACKL,01000: SIGN-ON"PALUUKOODI = ";CT$(RE)RETCODE0ī17401080: SEND ALIOHJELMAA$""A$"M":((37)):(29):A$:3 A$(A$,1)CA$"M"820T A$"S"1390j*(37):868:760/ *** MASTER *** 4:"L[HETYSTIEDOSTO ? ";SF$>SF$""SF$"SEND.DAT":(37):(22):SF$CH"LEVYASEMA <1>/<2> ? ";DR$RDRD LRC.OBJ0"&D$;"BLOAD INPUT.OBJ0"BD$;"BLOAD OUTPUT.OBJ0"\D$;"BLOAD PASM.OBJ0"pMARK,241:PASM *** VALINTAMODUULI *** :2:8:"**** A P P L E B S C ****":13:"^^^^^^^^^^^^^^^"::34,4"MASTER/SLAVE / ? ";A$$X VASTAANOTON KONTROLLIMERKIT >bTYO16,108: CCS #2,$6CZlTYO17,14: CCS #3,$0EtvTYO18,SYN: CCS SYNTYO19,198: CCS #1,$C634,0:33,40 ALIOHJELMIEN LATAUS MUISTIIN D$"": CTRL-D(MARK)194ė:750 D$;"BLOALTYO14:ACK-LASKURI< RBUFTYO512: VASTAANOTTOBUFFERI T  *** ALUSTUS *** u  L[HETYKSEN KONTROLLIMERKIT &BALKU8,110: CCS #2,$6E 0BALKU7,14: CCS #3,$0E :BALKU6,SYN: CCS #3,SYN-MERKKI DBALKU5,205: CCS #1,$CD N 2B00 = 110082  PASM SBR $2500 = 94728 } TY\ALUEEN, PUSKUREIDEN JA T[RKEIMPIEN MUISTIPAIKKOJEN OSOITTEET  PASM9472 TYO8192: $2000 BALKUTYO32: $2020 RCTYO10: $200A MARKTYO20: TOIMINTAKOODI ACK 6ITB31: $1F (ASCII US)7 @EBT23: $17 (OIK. ETB)B JETX03M TEOT04S ^i h****************o r | ASSEMBLER-OHJELMIEN MUISTIOSOITTEET  LRC-TARKISTUS SBR $2800 = 10240  INPUT SBR $2900 = 10496  OUTPUT SBR $$(5)"7. YRITYS"2 CT$(6)"TUNTEMATON KONTROLLI"G CT$(7)"VARALLA"f CT$(8)"PUSKURIN YLIVUOTO"} CT$(9)"BCC-VIRHE" CT$(10)"KONTROLLI- TAI PARAMETRIVIRHE ALIOHJELMISSA" :  BSC-KONTROLLIMERKIT: SYN22: $16 "SOH01 ,STX02 PUH. (931) 176 171 x= ************************ c (C) COPYRIGHT EMULA OY 1982 w RETURN CODES: CT$(0)"ONNISTUI" CT$(1)"WACK, YRIT[ KOHTA UUDELLEEN" CT$(2)"V[[R[ ACK" CT$(3)"TIMEOUT" CT$(4)"LINJAVIKA" CT# BSC-TIETOLIIKENNEOHJELMAE ************************Kn( APPLE II TOIMII MASTERINA2 TAI SLAVENA VALINNAN MUKAAN<F EMULA OYP PL 309Z 33101 TRE 10d YHTEYSHENKIL\: ALPO SOININEN n      *** ALIOHJELMA 7,LISTAUS ***"JT:"KYTKE KIRJOITIN P[[LLE JA ASETA PAPERIN"::"KATKOKOHTA KIRJOITINP[[N TASALLE":(12):"LISTAUS ALKAA RETURNILLA ";:A$:A$(13)8020^:12:"KIRJOITAN..."cD$"PR#1"h1657,80:RIVI%0: RIVIPITUUS 80 M,R1": LVV %VP8D$;"WRITE APU,R2": TOSITEN:O @TNiD$;"WRITE APU,R3": TILIVUODEN ALKUsTVA%D$;"WRITE APU,R4": P[IV[K. SIVUNS1IVU%D$;"WRITE APU,R5": P[[K. SIVU NOS2IVU%D$;"CLOSE APU":@ I04"D$;"WRITE NIMI,R";I3NIMI$(I):IHD$;"CLOSE NIMI"NT:zX *** AIOHJELMA 6,APUTIEDOSTO***bl(12):"TALLENNAN APUTIEDOSTON ..."vD$;"OPEN APU,D2,L10"D$;"WRITE APU,R0": VUOSI VV% D$;"WRITE APUTTA,D2"D$;"WRITE KARTTA"8J: TILIEN LUKUM[[R[CI1JcKARTTA$(I,1):KARTTA$(I,2)jID$;"CLOSE KARTTA" K:p *** ALIOHJELMA 5, NIMITIEDOSTO***z(12):"TALLENNAN NIMITIEDOSTON..."D$;"OPEN NIMI,D2,L50" P)I:O%(SP)YL:4140N"SPSP1:V%(SP)I:O%(SP)YL:SPSP1:V%(SP)AL:O%(SP)KX,4050`6: ***TILIKARTTA LEVYLLE ***(12):"TALLENNAN TILIKARTAN..."D$;"OPEN KARTTA,D2"D$;"DELETE KARTTA": TUHOTAAN VANHAD$;"OPEN KAR1:4070*(KARTTA$(K,1))TKK1:40808IK4120CL12APU$KARTTA$(I,L):KARTTA$(I,L)KARTTA$(K,L):KARTTA$(K,L)APU$:II1:KK1IK4070IYLIYLKALKAL(KAL)(YLI)SPSP1:V%(SP)AL:O%(SP)K:SPSP1:V%(SSORTING";:TJ0.5$I1T:"-";:412:9:F11WLKMJ:SP1:V%(SP)1:O%(SP)LKMIV%(SP):KO%(SP):SPSP1:ALI:YLK(YLAL)04060SP040504150T(KARTTA$(((YLAL)2),1))F1F1:F10ĺ">";(KARTTA$(I,1))TIILIEN LIS[YS***  :"ANNA TILINUMERO JA SIIT[ PILKULLA"::"EROTETTUNA TILIN NIMI"::"KUN LOPETAT, ANNA VASTAUKSEKSI: 0," I1: ASETETAAN INDEKSI YKK\SEKSI "> ";:"";M1$,M2$ (M1$)0ė: 2000 3040 ::12:" :7000: APUTIEDOSTO LEVYLLE_D:"ASIKASTIEDOT PAPERILLE ? (K/E) ";:"";A$:A$"K"İ8000wN100: PALUU MENUUN *** ALIOHJELMA 1,SALDOT JA TAULUKOINTI***JJ1:KARTTA$(J,1)M1$:KARTTA$(J,2)M2$: *** ALIOHJELMA 2, TI16368,0:A175İ2000 I* D$"CLOSE"I :"SIIN[ OLIVAT TILINI":T X(0)Z : "HALUATKO LIS[T[ TILEJ[ ? (K/E) ";:"";A$ A$"K"İ3000: LIS[YS 4000: J[RJESTELY &5000: KARTTA JA SALDOT LEVYLLE06000: NIMITEDOSTO LEVYLLE` :"ESIT[N SINULLE TILEJ[ JOISTA VOIT VALITA"::"ASIAKKAAN TILIKARTTAAN TILIN /-MERKILL[":u D$"READ MASTER"| N I1N M1$,M2$:8:868:I". "M1$" "M2$ 12:868:"TILEJ[ VALITTU: "J" KAPPALETTA" A(16384):A128450 $;"RUN HELLO,D1" 5  *** ASIAKKAAN LUONTI ***; "T ,D$;"OPEN MASTER,D1"{ ^6)"***...ASIAKKAAN LUONTI...***" hI04 r:P1$(I)": ";:"";NIMI$(I): |:"OIKEIN ? (K/E) ";A$:A$"K"ė:350 I03:NIMI$(I)(NIMI$(I),49): :US"::"2. ASIAKKAAN LUONTI"O x:"3. TIEDOSTOJEN KORJAUS"::" JA LISTAUS" (15):"VALINTASI> ";A$:A(A$):A1A3ĺB$:130 :A200,300,9000 100: JOS ANNETAAN V[[R[ NUMERO PALATAN MENUUN *** PALUU P[[MENUUN ***  D,P[[KIRJAN SIVUNUMERO......0 I04:P1$(I):E (I16:P2$(I):_ 2*** OHJELMARUNKO ***| FKARTTA$(200,2),NIMI$(4) KA1PU(200) PD$(4):I$(9):B$(7) Z MENU d::8)"ASIAKKAAN LUONTI" i8)"----------------":: n:"1. LOPET P1$(4),P2$(6)p ASIAKKAAN NIMI..,OSOITE..........,PUHELIN.........,ASIAKASNUMERO...,LUONTIP[IV[M[[R[  VUOSI.....................,TILIVUODEN ALKU KUUKAUSI..,VIIMEINEN TOSITE NUMERO...,LIIKEVAIHTOVERO PROSENTTI.,P[IV[KIRJAN SIVUNUMERO....             F/V:"MUUT PITK[AIKAISET SIJOITUKSET:"::RIVI%RIVI%3:VERT20:4010P/`4370Z/j4210/t:"ARVOSTUSER[T DEBET:"::RIVI%RIVI%3:VERT13:4010/~4370/4210/:"VASTAAVAA YHTEENS[:"::RIVI%RIVI%3:KSUMMATKSUMMA:VSUMMATVSUMMA:424020UMMA0:VSUMMA0.. VERT10:4010: PRINTTAUSN.4370: SUMMIEN KUMULOINIT h.:4210: V[LITULOKST.:"VAIHTO-OMAISUUS:"::RIVI%RIVI%3:VERT11:4010.$4370..4210.8:"K[YTT\OMAISUUS:"::RIVI%RIVI%3:VERT12:4010.B4370.L4210"TASE":3430--R OTSIKKO$"AVAAVA TASE":3430P-\ OTSIKKO$"P[[TT[V[ TASE":3430l-f SIVU%1:1600: OTSIKKO- - VARSINAINEN TULOSTUS-- "V A S T A A V A A :":"-------------------":"RAHOITUSOMAISUUS:":RIVI%RIVI%4- . TKSUMMA0:KSUMMA0:TVSH, (KARTTA$(I,1),4)2)KARTTA$(I,2)T1)KSALDO$T2)PK;T3)VSALDO$T4)PVz, RIVI%RIVI%1:RIVI%56ĺ(12):RIVI%0:1600, II1:3100: - SEURAAVA TILI- ,* # TASE #,4 - OTSIKKO -,> K7%3400,3410,3420: OTSIKON VALINTA -H OTSIKKO$ -TABULOINNIT -6+ T137(KARTTA$(I,2))(KSALD$)H+ T29((PK))]+ T319(VSALDO$)o+ T49((PV))+ -SUMMIEN LASKU-+ KM ON MERKKIKERROIN+ KSUMMAKSUMMAKMKUUSALDO(I)+ VSUMMAVSUMMAKMKMUSALDO(I)+ -VARSINAINEN PRINTTAUS-*: KVAIH0PK0.0:31509*D PPK(KUUSALDO(I)):PKK(P)S*N VVAIH0PV0.0:3180s*X PPV(KMUSALDO(I)):PVK(P)*b -NOLLIEN LIS[YS-*l KSALDO$(KUUSALDO(I))NOL$*v VSALDO$(KMUSALDO(I))NOL$* KSALDO$KSALDO$:768* VSALDO$VSALDO$:768+T2)PKT3)VSALDO$T4)PV*) RIVI%RIVI%3:N) RIVI%53ĺ(12):RIVI%0:1600T) }) -TILEN ETSINT[,PROSENTIT,PRINTTAUS) I1) ((KARTTA$(I,1),2))VERTı)& ((KARTTA$(I,1),2))VERTII1:3100)0 KUUSALDO(I)0KMUSALDO(I)0II1:3100KSALDO$:768&(r VSALDO$VSALDO$:768:( -TABULOINNIT-O( T112(KSALDO$)a( T29((PK))v( T319(VSALDO$)( T49((PV))( -VARSINAINEN PRINTTAUS-( T528(ALI$)( 32)"------------"16)"------------") ALI$T5)"***"T1)KSALDO$AUDEN TULOS:' -V[LISUMMAT-)' ALI$;'" -PROSENTIT-U', KVAIH0PK0.0:2880p'6 PPK(KSUMMA):PKK(P)'@ VVAIH0PV0.0:2910'J PPV(VSUMMA):PVK(P)'T -NOLLIEN LIS[YS-'^ KSALDO$((KSUMMA))NOL$:VSALDO$((VSUMMA))NOL$ (h KSALDO$-& MYYNTITUOTOT *& BRUTTOMYYNTI:c& MYYNNIN OIKAISUER[T,LIIKEVAIHTO ,MUUTTUVAT KULUTu& MYYNTIKATE:& KIINTE[T KULUT,K[YTT\KATE:& POISTOT,LIIKEVOITTO: ' MUUT TUOTOT JA KULUT, ,VARAUSTEN MUUTOS, ,KORKOKULUT , ,VEROT, TILIKERT7:3090%~ 2830% 27200% VERT8:3090:% 2830D% 2720U% VERT9:3090_% 2830w%x -RUTIINI LOPETUS-% (12)% RIVI%0:K3%0:X(0)% % -V[LIOTSIKOT-% ALI$:ALI$::RIVI%RIVI%2% & -V[LIOTSIKOITTEN K[YTT[M[ DATA3090: PRINTTAUS($2830: [LISUMMAA$2720: V[LIOTSIKKOR$VERT2:3090\$2830f$2720w$VERT3:3090$ 2830$ 2720$ VERT4:3090$$ 2830$. 2720$8 VERT5:3090$B 2830$L 2720$V VERT6:3090$` 2830$j 2720 %t VVAIHKVAIHKUUSALDO(I):VVAIHVVAIHKMUSALDO(I)4#zQ# -VARSINAINEN TULOSTUS-i#2720: V[LIOTSIKOT#PK(X)(100XKVAIH): KUUKAUSI %#PV(X)(100XVVAIH): VUOSIPROSENTTI#K(X)(X100.5)10: KATKAISU #KM1$VERT1:" T123(S$)((TN%(J)))!"*;"4 # TULOSLASKELMA #A">:l"HOTSIKKO$"TULOSLASKELMA":SIVU%1:1600"R -LIIKEVAIHDON LASKENTA-"\I120"f(KARTTA$(I,1),2)"1."KVAIHKVAIHKUUSALDO(I):VVAIHVVAIHKMUSALDO(I).#p(KARTTA$(I,1),2)"2."K0ȱ ȱ . Ș`. ԠύԠԍԠԍԠԮԍԍԠԍԍΠԍԍԍԍԠԍԍԍԍԠԍύՠϭӍԍԍԍԍԍԍԍԠԍԠԍԍԍԍԠԠɭԍԍԠԍΠύύԍԍɍɍԍԠԠԍԠΠ֭͠ԍͮԍԍԍԠΠӠԠԠԍԍԠĮԠԠΠ̍ԠԠήԍԠՠԮˮ΍˭ͮԠԍԍԠͮԠ̍ԠԍɍԍԠӍԠͭԩԍԠԍϭԍԍԠͮˮϹԠԍ˭ͮӍϠըʩӠϨʩԠϭʮԍӍԍԠԍԠԍɠϠΠ̍ԍΠԮ֍ԠܭЮήΠ܍ΠɍΠ܍ΠӍΠӍΠԍԨɩӠɩԍΠԍΠԍԮΠԍԠԍύɍΠύԠҮԍխԠԩˮՠۍύԠԍӍԍӍύԠԮԍ֭ԍԠԠԍӍԍԠӮԍԠԠթ֮ԩԠԍΠԍԠԨԩԠԠԍԠԮԍΠӍԨԩԠϨԩԠԍԠ֮ԍԠԍԠҮԍխծԠԠԍԍԍԍԠΠԍԠԠύԠԍՠϭӍΠ֍ɠɠԠήԍԠԠԍԍΠ֠ύԨԩԍԨ˩      DXX-YY V[LIN #XX-YY POISTO, DXX- POISTO RIVIST[ #XX L[HTIEN, D-XX POISTO RIVIIN #XX SAAKKA"d:"NEW : ALOITUS UUDELLEEN ALUSTA"n:"L)IST:LXX TULOSTAA RIVIN #XX, LXX-YY RIVIT #XX-YY, LXX- RIVIT #XX:STA L[HTIEN, L-XX RIVIIN #XX SAAKKA"x:"DR=1:1240!(TL1LTT1:126052CO0::S$(A):L< K[SKYVALIKOIMA tF:"H)ELP : K[SKYOPPAAN TULOSTUS":P"F)IND : F/STR/ MERKKIJONON STR ETSINT["::"I)NSERT : I LIS[YS TEKSTIN LOPPUUN, IXX ENNEN RIVI[ #XX"\Z:"D)ELETE : DXX RIVIN #XX,(TA$,1)LI$TA$(TA$,(TA$)1)CL(SE$):A1AN1ĺBE$:^L1(S$(A)):CO21330fT1(S$(A),T,L)SE$1320T1S1$"":1290S1$(S$(A),T1) BL1(S1$)L:B1S2$"":1310S2$(S$(A),B)S$(A)S1$TA$S2$:COCOIETOJA MUISTISSA"::D(C$)4ĺ:BE$"VIRHEELLINEN KENTT[ !"::ZLI$(C$,2,1):I3(C$,I,1)LI$I(C$)1II1:1180SE$(C$,I1):(SE$)2SE$(SE$,(SE$)2)(SE$,1)LI$C$"":1160TA$(C$,(C$)I):TA$LI$TA$"":1230$AA1:NN1:A$""::960.$ ETSINT[ F/STR/ D.:(C$)4ĺBE$:n8SE$(C$,(C$)2):SE$(SE$,(SE$)1){BL(SE$)LSSıVI1N:T1(S$(I))L`(S$(I),T,L)SE$ĺI;:7:S$(I)jT:I::t MUUTOS C/XX/YY/ ~N2ĺ:BE$"EI T,(C$)1)):AN860)A$"":A1ĺBE$:4A;:5KB$:B$(13)1020XA$A$B$B$(8)(A$)2A$(A$,(A$)2):1010B$(8)(A$)2A$""5:868:A$;:970A$""ıBN1A1:B01050S$(B)S$(B1):S$(A)A$:H KIRJOITUS I, IXX *R(C$)19405\N;:5NfB$:B$(13)ĺ:920apS$(N)S$(N)B$zB$(8)(S$(N))2S$(N)(S$(N),(S$(N))2):910B$(8)(S$(N))2S$(N)""5:868:S$(N);:870S$(N)""ıNN1:860A((C$BE$:'T1(C$):(C$,T,1)"-"MT-CTM:MT(C$)1nA$(C$,T):A((A$,(A$)1)):A0A1T(C$)BA:810 T(C$)BN1:810B((C$,(C$)T)) BN1ĺBE$:*TBA14CTN1:S$(C)S$(C1):C>NN1:T:1bN2700lA0A1.vCAB:C;:7](S$(C),1)"*"(S$(C),1)";"ĺS$(C):690I1(S$(C)):(S$(C),I,1)" "ĺ(S$(C),I,1);:680K21Ė(14K):KK7K21ĺ" ";I::K0C POISTO (DELETE) (C$)2ĺ  LISTAUS LXX/LXX-YY/L ; :(C$)1A1:BN1:610] T1(C$):(C$,T,1)"-"MTu :TM:MT(C$)1 &A$(C$,T):A((A$,(A$)1)) 0T(C$)BA:590 :T(C$)BN:590 DB$(C$,(C$)T):B(B$) NBN1BN1XAN1AN : N1500> TV$:TV$(13)S$(N)S$(N)TV$:410G :N] D$"CLOSE":216,0l :LS1:80  TIEDOSTOON TALLENNUS N1ĺ:BE$"EI TALLENNETTAVAA":80 D$"OPEN"F$",D"DR D$"WRITE"F$ I1N1:S$(I): D$"CLOSE"F$: CT$"I"İ850:80* CT$"L"İ510:80B CT$"Q"ė:33,33:e ":BE$"TUNTEMATON KOMENTO":80 , ALOITUS ALUSTA UUDELLEEN 6I1N:S$(I)"" @ JN1: T TIEDOSTON LUKU ^430 hLSİ310 rD$"OPEN"F$",D"DR |D$"READ"F$C$)4F$(C$,(C$)4):3509 (C$,4)"LOAD"F$""290o (C$,4)"SAVE"(C$)4F$(C$,(C$)4):460:80 (C$,3)"PR#"İ1460:80 C$"NEW"İ310:80 CT$"H"İ1350:80 CT$"F"İ1070:80 CT$"D"İ720:80 CT$"C"İ1150:80$""::":";:2( ZB$:B$(13)ĺ:1405 dC$C$B$` nB$(8)(C$)2C$(C$,(C$)2):130| xB$(8)(C$)2C$"" 2:868:C$;:90 C$""80 CT$(C$,1) (C$,2)"DR"DR((C$,1)):DR1DR2ĺBE$:DR1:80 (C$,4)"LOAD"($ ASSEMBLER-EDITORI EMULA OY:NC CROSS - ASSEMBLEREILLE P:33,40](S$(500)i2D$(4)<BE$(7):DR1:N1F::"EDITORI EMULA OY:N RISTIK[[NT[JILLE"::4)"ASM6802, ASM6803 JA ASM8085"::4)"(C) COPYRIGHT EMULA OY 1982":: PC      IVI%1:RIVI%58ĺ(12):RIVI%0:1600,9E9 -RUTIININ LOPETUS-P9(12)i9RIVI%0:K6%0:X(0)o9L9KO-+8lOTSIKKO$"SALDOLISTA":SIVU%1:1600D8v -PRINTTAUS LUUPPI-P8I1NNt8S$(KMUSALDO(I)):SKMUSALDO(I)8VERTI84400: -NOLLAT JA TABULOINNIT-810)KARTTA$(I,1)3)KARTTA$(I,2)25T)S$8 -SIVUN T[YTTYMISEN TARKISTUS-&9RIVI%RUN T[YTTYMISEN TARKISTUS-=7RIVI%56ĺ(12):RIVI%0:1600C7^7 -SUMMIEN KUMULOINTI-7TKSUMMATKSUMMAKSUMMA:TVSUMMATVSUMMAVSUMMA7&70S$S$NOL$7:S$S$:7687DT22(KARTTA$(VERT,2))(S$)7N7X # SSALDOLISTA #8b -OTSIKS[YS-76KSUMMA$(KSUMMA)NOL$:VSUMMA$(VSUMMA)NOL$P6KSUMMA$KSUMMA$:768i6VSUMMA$VSUMMA$:768}6 -TABULOINNIT-6T140(KSUMMA$):T228(VSUMMA$)6 -PRINTTAUS-6T1)KSUMMA$T2)VSUMMA$6RIVI%RIVI%2:KSUMMA0:VSUMMA07 -SIV)(KSALDO$)!56T228(VSALDO$)15@ -PRINTUS-m5J(KARTTA$(I,1),4)2)KARTTA$(I,2)T1)KSALDO$T2)VSALDO$5TRIVI%RIVI%1:RIVI%56ĺ(12):RIVI%0:16005^5h5r -V[LITULOKSET-5|30)"--------------"14)"--------------"6 -NOLLIEN LI04 -SUMMIEN LASKU-O4KSUMMAKSUMMAKUUSALDO(I):VSUMMAVSUMMAKMUSALDO(I)e4 -NOLLIEN LIS[S-4KSALDO$(KUUSALDO(I))NOL$:VSALDO$(KMUSALDO(I))NOL$4KSALDO$KSALDO$:7684VSALDO$VSALDO$:7684" -TABULOINNIT- 5,T134(KARTTA$(I,2)TVSUMMA:4240F3x30)"############"16)"############":RIVI%RIVI%1_3 -LOPETUS JA PALUU-j3(12)3RIVI%0:K4%0:X(0)33 RE-TILIEN ETSINT[ JA PRINTTAUS-3I0NN3((KARTTA$(I,1),2))VERTı4((KARTTA$(I,1),2))VERT41921:I5". "PRL$(I5,0)< " "PRL$(I,1);:24:PRL$(I5,1)D :` 22:14:"* K & T *"| 23:14:"* EMULA OY *" 19:5:"VALINTASI> ";A$:A$""ĺB$:170 A(A$):A0AMAXĺB$:170 A0ė:3:"OK, LOPETAN T[H[N!": :12:"LATAUS,SELAA-SALDOJA] < TILIVUODEN,ALOITUS,ALA-VUOSI,P[[KARTAN,LISTAUS,MASTER-LISTER,,,,,,,,h FI09 PPRL$(I,0),PRL$(I,1),FILE$(I) ZPRL$(I,0)""MAXI1:I9 d n:(40(H1$))2)H1$:(40(H2$))2)H2$: xI04 I". "PRL$(I,0);:+:33,40:( FILE$(9),PRL$(9,1)<D$(4):B$(7)\H1$"KIRJANPITO-OHJELMISTO"|(H2$"---------------------" 2 LOPETUS,,,ASIAKKAAN,LUONTI,LUO-ASIAKAS,KIRJAUS,,KIRJAUS,TULOSTUS,,TULOTUS,LVV-LASKELMA,,LVV-LASKELMA,SALDOJEN SELAUS,JA KORJA    AIEMMIN LISTATULTA RIVILT[ (LXX)"@:"PAINA RETURN > ";A$:aP((C$,1)):Pİ1500:1490lD$;C${:1657,80D$;C$X : LEVYASEMAN M[[RITYS"6:"PAINA RETURN > ";A$::"LOAD FNAME : LUKU TIEDOSTOSTA FNAME"::"SAVE FNAME : TEKSTIN KIRJOITUS TIEDOSTOON FNAME":"PR#X : TULOSTUSLAITTEEN M[[RITYS"":"C)HANGE : C/STR1/STR2/ JONON STR1 MUUTOS JONOKSI STR2RIVI%RIVI%3:VERT16:4010%24370/2(4210`22:"VARAUKSET"::RIVI%RIVI%3:VERT17:4010j2<4370t2F42102P:"OMA P[[OMA:"::RIVI%RIVI%3:VERT18:40102Z43702d42103n:"VASTATTAVAA YHTEENS[:"::RIVI%RIVI%3:KSUMMATKSUMMA:VSUMMA0:VERT14:401014370#14210f1:"VIERAS P[[OMA,PIT[AIKAINEN:"::RIVI%RIVI%3:VERT15:4010p14370z142101 :"VIERAS P[[OMA YHTEENS[:":RIVI%RIVI%1:KSUMMATKSUMMA:VSUMMATVSUMMA:42102KSUMMA0:VSUMMA0::"ARVOSTUSER[T KREDIT:"::32)"############"16)"############":RIVI%RIVI%1I0(12):UUSI SIVU U0RIVI%0q01600: OTSIKKO SVULLE0"V A S T A T T A V A A":"---------------------":"VIERAS P[[OMA,LYHYTAIKAINEN:"::RIVI%RIVI%41TKSUMMA0:KSUMMA0:TVSUMMA0:VSUMMA E$))"SIVU: "SIVU:SIVUSIVU13J180:"-";:::9_ERR(222):LINE(218)256(219)wERR6ERR520501:14:958:B$"TARVITTAVIA TIETOJA EI OLE LEVYLL[ !"LINE100ĀLINE130ī100"ERROR: "ERR" IN LINE: "LINE K",D2"W$"SALDO"KK!TLKM/I1TLKM?SALDO(I):GC$Q34,0g D$"RUN HELLO,D1"1:14:958:B$"ESC,P,E,<,-,+,> TAI TILI N:O !"1:6:868 290RIVI6:(14)15)"SALDOLISTA":NIMI$" KUUKAUSI: "KK;50(NIMITA$(T,1))(TILI$)IT1:690'JT15IJ660Z1:6::"TILI[ "TILI$" EI OLE !"c260vA$(27)790FL7751:14:958:"TALLETAN SALDOTIEDOT..."KK0729O$"ALKUSALDO,D2"W$"ALKUSALDO"740O$"SALDO"KJRIVI71::&10000,:I$"40N":DD$"PR#0"CI290ZNA$"1"A$"9"720mXTILI$TILI$A$ubA$lA$(13)650v(A$"0"A$"9")A$"."ĺB$;:610A$;:600I1:JTLKMT((IJ)2):KARTTA$(T,1)TILI$710(KART1:14:958:"KIRJOITAN...", D$"PR#1"F I$"80N":SIVU1:1000T I1TLKMn SU$(SALDO(I))"000" SU$SU$:768 T110(KARTTA$(I,1)):T241(KARTTA$(I,2))(SU$) KARTTA$(I,1)T1)KARTTA$(I,2)T2)SU$:RIVIRIVI1 RIVI58560410 |TT10:390 T1T13 TTLKMTTLKM< 260M A$"E"430 1:12:868:"UUSI SALDO> ";SU$:SALDO(T)(SU$):FL1 260 A$"P"590 1:14:958:"LAITA KIRJOITIN VALMIIKSI"::"JA PAINA ";:SU$:SU$(13)440 T))"000" SU$SU$:768] 1:8:958:T"/"TLKM" "KARTTA$(T,1)::KARTTA$(T,2)" : "SU$ "12:1:868:"CMD> ";:A$:A$; ,TILI$"" 6A$(8)330 @TT1:390 JA$(21)350 TTT1:390 ^A$"-"370 hTT10:390 rA$"+"2" R$"ALKUSALDO" 160; D$"UNLOCK SALDO"KK",D2"L O$"SALDO"KK] R$"SALDO"KKg TLKMu I1TLKM SALDO(I): C$ O$"NIMI,L50,D2" R$"NIMI,R0" NIMI$ C$ :T1:FL0::(40(NIMI$))2)NIMI$ SU$(SALDO(RTTA$(I,1),KARTTA$(I,2):! ZC$O d:3)"*** SALDOJEN SELAUS/KORJAUS ***":Y n34,2 x:"MINK[ KUUKAUDEN SALDOJA> ";A$:A$"ALKU"KK0:130 }KK(A$):KK1KK12ĺB$:120 :12:868:"LUEN SALDOTIEDOT..." KK0140 O$"ALKUSALDO,D C D$(4):O$D$"OPEN":R$D$"READ":W$D$"WRITE":C$D$"CLOSE"WB$(7):I$(9)vKARTTA$(200,2),SALDO(200)#:12:"LUEN TILIKARTAN..."$2000%D$"BLOAD FORMATTER,D1"(O$"KARTTA,D2"2R$"KARTTA"<TLKMFI1TLKM PKA!! ! ! ! ! !!!!!$  D$(4)"D$"EXEC MIKROT" D"UKSIA ON OLEMATTOMILLE TILEILLE !"* T00  TTOMILLE TILEILLE !"P T0q "TILI: "TI$" SUMMA: "SU: M" (SALDO(I))0.01SALDO(I)02 SALDO(I):: C$f 12:868:"PALAAN KIRJAUSOHJELMAAN..."~ D$"RUN KIRJAUS,D1" J1:KTLKM T((JK)2):TK$(T)TILI$1035 (TK$(T))(TILI$)JT1:1020 KT1 JK1005" 14:B$"KIRJA KUUKAUDEN "KK" TULOSTA...") I1TLKMA T(((TK$(I),2)))X T10ITLKM:185o VOITVOITSALDO(I)u SALDO(TULOS)SALDO(TULOS)VOIT 12:868:"TALLENNAN SALDOTIEDOT..." O$"SALDO"KK",D2" W$"SALDO"KK TLKM I1TLKO(SUMMA)# TILI$K2$(I,L,1):1000? SALDO(T)SALDO(T)SUMMAv TILI$"3.8101"SALDO(OLV)SALDO(OLV)VERO(SUMMA) TILI$"1.9001"SALDO(MLV)SALDO(MLV)VERO(SUMMA) SALDO(LVV)SALDO(LVV)SALDO(MLV)SALDO(OLV) 12:868:"LASKENLI$"18.2919":1000:TULOST( nI0KLK3 oL04O pK2$(I,L,1)""L4:155~ sTILI$K2$(I,L,0):SUMMA(K2$(I,L,2)):1000 xSALDO(T)SALDO(T)SUMMA }TILI$"1.9001"SALDO(MLV)SALDO(MLV)VERO(SUMMA) TILI$"3.8101"SALDO(OLV)SALDO(OLV)VER2O$"APU,L10,D2"%R$"APU,R1"7VP:VPVP100?C$bVERO(X)((XVP100.5))100rSALDO(TLK)(:12:"P[IVIT[N KUUKAUSISALDOJA..."BTILI$"2.9131":1000:MLVTCTILI$"3.8176":1000:OLVTDTILI$"14.2091":1000:LVVT ETI"" " " " "