d INIT'nVG$(50,26),VE$(50,26)LxKO$"ABCDEFGHIJKLMNOPQRSTUVWXYZ"dKO1:RY1:R21:K21n8000x9000HU$""HU$VE$(R2,K2)VE$(R2,K2)HU$1000@ SCREEN FORMAT" ";(KO$,KO,1);" "(KO$,KO1,1);8" "(KO$,KO2,1);" "(KO$,KO3,1);MKO326" ";jRY1750IRY50:8150zIRYRY17"";:I10" ";I;" ":" ":""(KO$,K2,1)R2VE$(R2,K2);:I139(VE$(R2,K2)):" ";::""VE$(R2,K2)""" "&"";LRY1750XRY50:"";:8195eXRYRY17:""; KO326ZKOKO:8202 ZKOKO3 R3R2:K3K2:R2X:K2Z:10000:R2R3:K2K3 XR2ZK2""VG$(X,Z)"";:8216 VG$(X,Z); KO326""5 Z,X:"C 1984 VOORDENSCALC";:HU$"":"";:A(# INPUTL%20000d%(HU$)3710000:%A$""R250R2R21:29000:&A$""R21R2R21:29000: &A$""K226K2K21:29000:&A$""K21K2K21:29000:' &A$"A"A$"Z"A$"="A$" "HU$HU$A$:A$;:9710R*&A$"/"(HU$)0HU$HU$A$:A$;:9710}4&A$"0"A$"9"HU$HU$A$:A$;:9710>&A$"."A$"*"A$"+"A$"-"HU$HU$A$:A$;:9710C&A$"^"HU$HU$A$:A$;:9710H&A$"/"21000!R&A$(20)(HU$)0HU$(HU$,(HU$)1):" ";:9710R\&A$""RY1:KO1:R21:K21:HU$VE$(R2,K2):df&A$"!"10030p&A$""A$(13)9710'A$(13)" ":' EVALUATE$'VE$(R2,K2)""VG$(R2,K2)" ":.'G1$(VE$(R2,K2),1)30'G1$"0"G1$"9"G1$"."10100c8'(VE$(R2,K2))9VE$(R2,K2)(VE$(R2,K2),9)B'(VE$(R2,K2))9VE$(R2,K2)VE$(R2,K2)" "L'G1$VE$(R2,K2):10830t'EE$VE$(R2,K2):I1:G1$(EE$,I,1)'II1:G2$(EE$,I,1)'G2$"0"G2$"9"G2$"."G1$G1$G2$:10120U'G2$"*"G2$"-"G2$"+"G2$"/"G2$"^"10830v'BE$G2$:II1:G2$(EE$,I,1)'G2$"A"G2$"Z"10260'HK(G2$)64:G2$"":II1'G2$G2$(EE$,I,1)'II1:(EE$,I,1)"0"(EE$,I,1)"9"10240'(EE$,I,1)""(EE$,I,1)"."10210Y((EE$,I,1)"0"(EE$,I,1)"9"(EE$,I,1)"."10300y(II1:(EE$,I,1)"."10270((EE$,I,1)"0"(EE$,I,1)"9"10300(G2$G2$(EE$,I,1):10260<(HK010400F(BE$"*"G1$((G1$)(VG$((G2$),HK)))*P(BE$"+"G1$((G1$)(VG$((G2$),HK)))WZ(BE$"-"G1$((G1$)(VG$((G2$),HK)))d(BE$"/"G1$((G1$)(VG$((G2$),HK)))i(BE$"^"G1$((G1$)(VG$((G2$),HK)))n(HK0:BE$"":G2$(EE$,I,1):10150(BE$"*"G1$((G1$)(G2$))(BE$"-"G1$((G1$)(G2$))=(BE$"/"G1$((G1$)(G2$))_(BE$"+"G1$((G1$)(G2$))(BE$"^"G1$((G1$)(G2$))(HK0:BE$"":G2$(EE$,I,1):10150N*HU$G1$:F$"I"32000X*F$"$"33000b*F$"*"34000l*35000:VG$(R2,K2)HU$: N HAAL TOETS**NA$:A$""2001004NAR COMMANDO'Sa R" ";w R"G P S F C B L"R20000RA$"G"22000&RA$"P"230000RA$"S"24000:RA$"F"27000DRA$"C"26000NRA$"B"25000SRA$"L"28000XRU GOTO LOCATIONMU"LOCATION ";HU$:HU$"""":22000mUHU(HU$):RY((HU$,HU1))VKO(((HU$),1))64:KO26KO1"";22000VRY50"";:22000VR2RY:K2KO:HU$"":Y PRINTER ROUTINEY"FROM WHERE ";HU$:HU$"""";:230008YHU(HU$):R1((HU$,HU1))jYK1(((HU$),1))64:K126K11"";:23014YR150"";:23014 Z"TO WHERE ";HU$:HU$"""";:23050ZHU(HU$):R2((HU$,HU1)) ZK2(((HU$),1))64:K226K21"";:23064! [(K2K1)1423000O [1,4:1,(29)(27)(65):IR1R2:JK1K2i ,[1,VG$(I,J);:J:1,"" @[I:1,"":R21:RY1:KO1:1:HU$"": ] SAVE ]"SAVE FLOPPY OR TAPE" ]20000 ]A$"F"A$"T" ]A$"F"24050!]" "(!]F$"":"FILENAME :";3!]20000`!]A$;:(F$)16A$(13)F$F$A$:24007~!]1,1,1,F$:I150:J126!]VE$(I,J)""1,"@":24013!]1,VE$(I,J)!]J:I:1:!]" "!]F$"":"FILENAME :";!]20000,"]A$;:(F$)16A$(13)F$F$A$:24052T"]FL$"0:"F$",SEQ,WRITE":2,8,2,FL$h"]I150:J126"]VE$(I,J)""2,"@":24058"]2,VE$(I,J)"]J:I:2:"a BLANK"a"BLANK ""aVE$(R2,K2)"":VG$(R2,K2)"":"e CLEAR#e"CLEAR: Y TO CONFIRM ")#e200007#eA$"Y"=#eQ#xi FORMAT CHOOSEp#yi"FORMAT: I R $ * "#iF$:F$""27010#i#`m LOAD#am"LOAD FLOPPY OR TAPE"#bm20000#cmA$"F"A$"T"#dmA$"F"28050$em" "$fm"FILENAME :";'$gm20000T$hmA$;:(F$)16A$(13)F$F$A$:28007r$jm1,1,0,F$:I150:J126$km1,VE$(I,J):VE$(I,J)"@"VE$(I,J)""$nmJ:I:1:$m" "$m"FILENAME :";$m20000%mA$;:(F$)16A$(13)F$F$A$:28052<%mFL$"0:"F$",SEQ,READ":2,8,2,FL$P%mI150:J126z%m2,VE$(I,J):VE$(I,J)"@"VE$(I,J)""%mJ:I:2:%Hq CURSOR MOVEMENT%RqA$""A$""29060%\qI117:R2RY17RYRY1:RY50RY50::I14&fqK2KO3KOKO1:KO26KO26%&pq:HU$VE$(R2,K2):K&qI117:R2RYRYRY1:RY1RY1r&q:I14:K2KOKOKO1:KO1KO1&q:HU$VE$(R2,K2):&} INT FORMAT& }HU$""&}(HU$,1)"A"(HU$,1)"Z"(HU$,1)"-"&耏 $ FORMAT&HU$""%'(HU$,1)"A"(HU$,1)"Z"(HU$,1)"-"X'HU(HU$):HU$(((HU0.51102)102)102)i'H1$(HU$,3)'$(H1$,1,1)"."35000'.(H1$,2,1)"."HU$HU$"0":35000'8(HU$)((HU$))HU$HU$".00":35000'Є * FORMAT'ڄHU$""(HU$,1)"*"/(䄋(HU$,1)"A"(HU$,1)"Z"(HU$,1)"-"O((HU$)9HU$"*********":(K1(HU$):HU$"":R11K1:HU$HU$"*"::R119((HU$)9HU$HU$" "::( RIGHT ADJUSTMENT((HU$)9HU$(HU$,9):(ˆ(HU$)9HU$" "HU$:35010(̈