17-7-82 TEKSTVERWERKERE21-9-82,,US 1982,,...............eT$(500):L$"":LL1:G36876A(X)(209)256(210)(211)G2,15:TP3:K$(12):B70(14)"  " UNCTIES:":" '@' + CIJFER = TAB '@' OP EIND = GROTERN ")NVOER REGEL(S)":")IJZIG REGEL(S)":")ERWIJDER REGEL(S) ")IJVOEGEN REGEL(S) )ERSCHRIJF REGEL":")IST OP SCHERM ")ENU OP SCHERM":")RINTEN":")ILE COMMANDO'S":")EHEUGEN WISSEN ")TOPPEN":")DRESBESTAND":" ELKE? -> ";:15( 198,0:198,1:A$:\:"ELKE ,,,,,,,,,,,)ENU->";:N713:J0:I112:A$("IWVFBLHMSPGA",I,1)JI:I12I:A$:J014J21,58,74,82,118,122,133,7,137,142,18,266 "EHEUGEN WISSEN ?":"AN BEN JE ALLES KWYT.EET JE HET ZEKER ?413:A$"J"14<:X" ":A2151"1 = RIVE BRIEFHOOFD 2 = BRIEFHOOFD 3 = ONDER BRIEFHOOFDTP4"4 = UDE BRIEFHOOFD"ELKE?":A1A13:A(A$):A1ATP25A21:TP4303"AX. AANTAL LETTERS":"PER REGEL";B`Q1B:S$S$(45)::Q112:K$(Q)" ":zK$(0)S$:K$(2)S$:33A433"ATUM VERANDEREN?":13:A$"J"34 AA1:51!(826)1:K$(12):35""EEF DE DATUM":K$(12):826,1:55)#A1A3"ITEL ";:180:K$(1)L$<$A37,44,45,45%K$(3)".AELDE":K$(4)"ASSAUSTRAAT 135":K$(5)"3281 UMANSDORP"&K$(6)"EL 01865 - 1154":H$"":HB:B30:Q1H36:H$H$" ":'"AN ";:180:K$(8)H$"AN "L$:"DRES ";:180C(H$H$" ":K$(9)H$L$:J0:"XTRA ";:180:L$" "S0J1w)K$(10)H$L$:"LAATS ";:180:K$(11)H$L$:BH*J1K$(10)K$(11):K$(11)" "+45,K$(1)" - ":K$(7)"OFTWARE -20":37-A47,47,49,46.AA1:45H/H$"":Q1B36:H$H$" "::K$(12)H$"UMANSDORP, "K$(12)0H$"":Q1B(K$(1))2:H$H$" "::K$(1)H$K$(1):511H$"":Q1B(K$(12))(K$(1)):H$H$" ":2K$(1)K$(1)H$K$(12):K$(12)" "3 INVOER4" 5:LL">";:180:(L$)01476T$(LL)L$:LLLL1:53S7C4643: PLAATS 1E DATA8Q1(K$(12)):D((K$(12),Q,1)):D44D469C,D:CC1::C,44:C1,44:: WIJZIGEN;:"YZIGEN":228:HI014<LOHI73="UDE TEKST":"->";:180:H$L$:(L$)014K>"IEUWE TEKST":"->";:180:L$"<"H$"<"L$"<"w?L(L$):J0:I2L1:(L$,I,1)"<"JI@:F$(L$,2,J2):J1LS$"":66AS$(L$,J1,LJ1)BF(F$):ILOHI:T(T$(I)):S1:N$"":J1TF1C(T$(I),J,F)F$69*DN$N$(T$(I),S,JS)S$:SJF:JS1PEJ:S1N$N$(T$(I),TS1):71[FI:14vG(N$)BT$(I)N$:70H"EGEL"I"WORDT TE":"LANG. IET VERANDERD.":70IL$T$(LO):""LO">";L$;:S(L$):CS1:182:T$(LO)L$:14J WEGHALENK" Ғ":228:DF79PL"ELEMAAL VERWIJDEREN?";:13:A$:A$"N"14eMA$"J"A20:79mN76}OHILL114PHILL1LLLO:14QJHILO1:ILOLLJ1:T$(I)T$(IJ)::LLLL(HILO)1:14R FILES" Œ COMMANDO'S":"YP":"1 = VAN SCHIJF LADENOT"2 = OP SCHIJF SAVEN":"3 = VAN TAPE LADENxU"4 = OP TAPE SAVEN":"WELKE? ";VM$:M$"1"M$"4"86WM$X254:(L$)014YFI$L$:(M$)103,90,105,93Z DISK SAVE[LL194\1,8,15,"I":1:3,8,2,FI$",S,W":96%] TAPE SAVEG^LL1"R IS GEEN FILE":14V_3,1,2,FI$j`3,A:3,B:3,LLaI012:H$K$(I):99:I:I1LL1:H$T$(I):99:Ib3:FI$;" SAVED":14cH$"*"H$:J1(H$) d(H$,J,1)","H$(H$,J1)"_"(H$,J1). e(H$,J,1)":"H$(H$,J1)"&"(H$,J1)D fJ:3,H$;(13);:T g DISK LOAD~ h1,8,15,"I":1:3,8,3,FI$",S,R":107 i TAPE LOAD j3,1,0,FI$ k3,A:3,B:3,LL:"FOUND "FI$ lI012:110:K$(I)H$:I:I1LL1:110:T$(I)H$:I!m3:FI$;" GELADEN":TP4:140!nH$"":B85116:112:!o3,H$T!pH$(H$,2):J1(H$)!q(H$,J,1)"_"H$(H$,J1)","(H$,J1)!r(H$,J,1)"&"H$(H$,J1)":"(H$,J1)!sJ:!t#3,A$:A$(13)!uH$H$A$:116!v BYVOEGEN$"w"IJVOEGEN VOOR REGEL":239:LOLLLO1119D"x:LO;">";:180:(L$)014"yLLLL1:ILLLO1:T$(I)T$(I1)::T$(LO)L$:LOLO1:120"z LIST"{""7)"LIST":228:HI014"|SS$"N"::LO1126"}I012:K$(I):127: #~:ILOHI:I;">";T$(I):127::14!#A$:A$(13)131H#SS$"Y":A$:A$(13)SS$"N":131[#A$(32)128d#132u#SS$"Y"128{## HERSCHRYF#" ERSCHRYF REGEL":239:LOLLLO1134#:LO;">";:180:(L$)014#T$(LO)L$:14# STOPPEN/$" Β":"WEET JE HET ZEKER? ";P$13:A$:A$"J"A$"N"138_$A$"N"14n$788,191:$47143: PRINTEN$2,4:2,(23):ST128"PRINTER STAAT NIET AAN":2:14%" Β":TA$"":Q(132B)2:CH1:B80Q(80B)2:CH2%Q1147-%J1Q:TA$TA$" ":E%A20:"NSTELLEN:%"1 = MET REGELNUMMERS2 =ZONDER REGELNUMMERSWELKE ?%13:C1(A$):C11C12149%"1 = OP 4 FORMAAT":"2 = TOT HET EIND":"WELKE ?%13:D(A$):D1D2151=&"1 = KLEINE REGELAFST.":"2 = GROTE REGELAFST.":"WELKE ?]&13:ES(A$):ES1ES2153&173:H75(ES1)15:"":228:HI02:2:14&N1269&172:168:A3LO12,(10):E6:159&Q311:I$K$(Q):175:'Q14:2,(10)::I$K$(12):175:2,(10):E200'174:ILOHI:I$""['C11I$((" "(I)),4)" : "T$(I)n'C12I$T$(I)w'175'EE1:EHD1170:172:168:2,(10):E6:174':D2166'QE1H:2,(10):'170:N1155'TP4:2:2:14(173:Q02:I$K$(Q):175:4(Q01:2,(10)::E5:f(Q1H6:2,(10)::E0:"LAD AFSCHEUREN(13)"[SHIFT]":653,1:198,0:("K GA VERDER MET":"PRINTEN":(2,(2):2,(27);(54):(2,(CH):2,(27);(582ES):)H$"":I$" "2,(10):))(I$,1)"@"1789)2,TA$;I$:Y)I$(I$,(I$)1):2,(1CH)~)2,(TA$,(TA$)2);I$:2,(CH):) INPUT TEKST)L$"":C1)"";:V$A$)S(L$):S1(S10):S2SS110*4117,S2176:37909,6:4116,S1176:37908,6*A$:A$""185@*SB11SBC(S)G,220:W150::G,0a*SB5G,240:W150::G,0*SB1CS1G,245:W1100::G,0:192*V$"@"A$"0"A$"9"225*A$" "A$(96)223*A$(192)A$(219)223*A$(13)CS1" ":+A$(13)219::A+A$(132)A$(141)S0L$" ":" ":U+A$""C1204s+A$(29)(SBCS1)206+A$""C22209+A$""CS21211+A$(20)C1212+A$""CSSB214+A$""C1215+A$""S0217+185,CS1" ";:CC1:2217,219:"";:CC1:221N,CS1A$" ":223p,219:(29);:CC1:CS1182y,221,CS1" ";:CC22:221,219:"";:CC22:221,219:"";:CC22:221,A$;:CC1:C(S)L$(L$,S1):182-L$(L$,C1)(L$,C1):183C-219:"";:L$(L$,C1)" "(L$,C):221U-CS1" ";x-219:Q1C1:"";::C1:221-CS1Q1S1C:(29);:-Q1S:"";::181-DA(X):(D)127D,(D)128--DA(X):(D)128D,(D)128.183'.CC1:A$;:CS2L$L$A$:182H.L$(L$,C2)A$(L$,C):221[.S(A$)B183t.L$(L$,S1):(20);.Q1(A$):L$L$" ":" ";::CC(A$)1:182."BEREIK(LAAG-HOOG)":"-> ";:180.LO1:HILL1:L(L$):DF0:L0DF1:)/J0:I1L:A$(L$,I,1):A$"0"A$"9"233>/A$"-"JI:233L/J99:I99\/:J99228v/J0LO(L$):HILO:/J1LO((L$,J1))/JLHI((L$,LJ))/LOHI228//"-REGELNR.->";:180:L(L$):L02390J0:I1L:A$(L$,I,1):A$"0"A$"9"242%0J99:IL50:J99239D0LO(L$):q0"EEF FILENAAM-> ";:180:(L$)152540L$"?"(M$"3"J12)25700"ANWEZIGE FILES01,8,15,"I":1:1,8,0,"$0":T00#1,A$:A$(34)ST02591ST01:2541#1,A$:A$""259'1T0"";F1A$;:#1,A$:A$(34)2631:TT1:T15T1:13)"[SHIFT]":653,1:198,0:""1 2591 " DRESBESTAND":N1:"RIEF PRINTEN VOOR ELKADRES.1 254:(L$)014 2 D$L$:228:N1LO:N2HI:1,8,15,"I":1:142+2 "VEN EEN ADRES LEZENP25,8,5,D$",S,R":5,H$:N11272g2Q1(N11):281:w2281:5:J02Q1(N$):(N$,Q,1)" "JQ:Q(N$)2:J02762N$(N$,J1)" "(N$,J1)2H$N$:282:K$(8)(K$(8),B31)H$3H$A$:282:K$(9)(K$(9),B31)H$K3H$P$" "W$:282:K$(10)(K$(10),B31)H$b3N1N11:N1N2N7k315635,N$,A$,P$,W$,H$,H$:3Q1(H$):O((H$,Q,1))3O64O91H$(H$,Q1)(O128)(H$,Q1)3: