2 DATUM 14-1-1982&< GEGEVENS1Z(14)Ad110::135`n"EMAAKT DOOR "x" !"G12000:"ILT INSTRUCTIE'S ? (J/N)"A$:A$"J"A$"N"150A$"N"310"R ZIJN 11 NSTUCTIE'S":1570I"1. Ò = KAN GEGE- VENS VERANDEREN":1570"2. Ē = KAN GEGE- VENS WEGHALEN":1570"3. Œ = STOPT HET PROGRAMMA":1570"4. ɒԠ = INVOEREN VAN ALLE GEGEVENS":1570&"5. ̒ = ZIEN VAN ALLE GEGEVENS.":1570M" RUK OP ˒":290"6. Β = MAAKT AL- LES SCHOON EN START":1570"7. Ғ = LEEST GE- GEVENS VAN TAPE":1570"8. Ӓ = SORTEERT ALLEEN OP NAAM":15701"9. ƒ = ZOEKT AL- LEEN OP NAAM":1570i "10.ڒ = ZOEKT AL- LEEN OP PLAATS":1570"11.ג = SCHRIJFT GEGEVENS OP TAPE":1570" RUK OP ˒ VOOR START!":290:310"B$:B$" "290,26:NA$(200),ST$(200),TE$(200),PL$(200),BA$(200):HU$""\@"LLE REGISTERS GEWIST ":"EADY"T"AT IS W OPDRACHT?"^"Ò, Ē, Œ, ɒ, ̒, Β,"h"Ғ, Ӓ, ƒ, ڒ, ג."rA$:A$""370|""'A$"L"500@A$"E"1700:110:PA$"N"310aA$"S"1170qA$"D"670A$"I"550A$"F"700A$"R"840A$"C"780A$"Z"1800A$"W"1030340"EGEVENS ZIEN.":"AN BESTANDNR:";A"OT BEST.NR:";BBBA"VERKEERDE GRENZEN":500KWA0t"":IAB:950:Q8$;:1330:NA$(I)1340:ST$(I):1350:PL$(I)1360:TE$(I):1370:BA$(I):WAWA1WA2WA0:545:"EADY":340!" RUK OP ˒":290:"":P&1510:"EEINDIGING INVOER, GEEF EEN '*' OP RG.1"0"EGELS ZONDER GEGEVENSEEN '-' INGEVEN!":CC1:CCCC1D:"ESTANDSNR. IS: ";ACCN1580:Q1$XQ1$"*"Q1$HU$:"":650b1590:Q2$l1600:Q3$ v1610:Q4$1620:Q5$@NA$(ACC)Q1$:NA$(ACC)HU$340ST$(ACC)Q2$:PL$(ACC)Q3$:TE$(ACC)Q4$:BA$(ACC)Q5$:570"ELK BESTANDSNR. ";AIA150:NA$(I)NA$(I1):ST$(I)ST$(I1):PL$(I)PL$(I1):TE$(I)TE$(I1)BA$(I)BA$(I1)::"EADY":340?" ZOEKT ALLEEN IN DE NAAM (REG.1)"]"OEKEN NAAR LETTER(S)"o" ";A$}WA0:""I1150A$(NA$(I),(A$))750:WAWA1WA2WA0:545:"EADY":340950Q8$;:1330:NA$(I)'1340:ST$(I):1350:PL$(I):1360:TE$(I)=1370:BA$(I)::_ "ELK REGISTER NR. ";A:1330:" ";NA$(A):1340:" ";ST$(A):1350:" ";PL$(A) 1360:" ";TE$(A):1370:" ";BA$(A) 4"":"";NA$(A):"";ST$(A):"";PL$(A):"";TE$(A),>"";BA$(A):"EADY":340IH"EES () VAN TAPE."eR"IGEN NAAM (/) ?"x\A$:A$""860fA$"J""":890pA$"N""":A$""::1430:900z"ELKE NAAM ";A$:14301,1,0,A$:"ILE: '"A$"'":"WORDT GELEZEN!";I1150:1,NA$(I):NA$(I)HU$1010g1,ST$(I):1,PL$(I):1,TE$(I):1,BA$(I)vQ9$HU$950:1000Q8$(I)(Q8$)2Q8$(Q8$,1)(Q8$)3Q8$(Q8$,2)(Q8$)4Q8$(Q8$,3)Q8$;:1380:$1::"ERSTE VRIJE PLAATS IS: ";IY"ILE: '"A$"' IS":"GELEZEN!":"EADY":340w"CHRYF () OP TAPE""IGEN NAAM (/) ?"A$:A$"N"A$"J"1050$A$"J""":1080.A$"N""":A$"":1470:10908 8"ELKE NAAM ";A$:" DEZE NAAM:":""A$"":1470o B1,1,1,A$:"ILE: '"A$"'":"WORDT GESCHREVEN!"| LI1150 VNA$(I)HU$1150 `1,NA$(I):1,ST$(I):1,PL$(I):1,TE$(I):1,BA$(I) jQ9$HU$I o950 tQ8$;:1380:&!~1,NA$(I):1:"E EERSTE VRIJE PLAATS IS: ";I^!"ILE: '"A$"' IS":"GESCHREVEN!":"EADY":340!"AN HET SORTEREN!":"ENK ERAAN DAT DIT UREN KAN KOSTEN!"!I1150!NA$(I)""1210!!PI2!IP21!J1I"NA$(J)NA$(J1)1290#"""3)" "M""EN BEZIG MET BESTANDSNR: "JV"J,I""LLES GESORTEERD OP ALFABET ":"EADY":340" Q1$NA$(J):Q2$ST$(J):Q3$PL$(J):Q4$TE$(J):Q5$BA$(J) #NA$(J)NA$(J1):ST$(J)ST$(J1):PL$(J)PL$(J1):TE$(J)TE$(J1)#BA$(J)BA$(J1)f#(NA$(J1)Q1$:ST$(J1)Q2$:PL$(J1)Q3$:TE$(J1)Q4$:BA$(J1)Q5$:v#23)":";:#<3)":";:#F3)":";:#P3)":";:#Z3)":";:#d1330:NA$(I)#n1340:ST$(I)#x1350:PL$(I)#1360:TE$(I)$1370:BA$(I)::;$"RINTEN TIJDENS LADEN? (/)"\$Q9$:Q9$"J"Q9$"N"1440$Q9$"N"Q9$HU$:"Ԓ PRINTEN TIJDENS LADEN!":$Q9$"J""̒PRINTEN TIJDENS LADEN!":$"RINTEN TIJDENS SCHRIJVEN (/)"%Q9$:Q9$"J"Q9$"N"1480Q%Q9$"N"Q9$HU$:"Ԓ PRINTEN TIJDENS SCHRIJVEN!":%Q9$"J":"̒PRINTEN TIJDENS SCHRIJVEN!":%A15011%NA$(A)""%A:AA1:%LP0A1:%%"G1250::%,": *";:&6": ";:&@": ";:-&J": ";:@&T": ";:~&"IETS VERGETEN OP DE":"BAND TE ZETTEN(J/N)?"&A$:A$""1710&A$"N"340&&"ELKE STAD ZOEKT ":" ";A$:WA0&I1150:(PL$(I))9"EADY":340='L(PL$(I)):K$(PL$(I),L8):A$(K$,(A$))750:WAWA1Q'&WA2WA0:545f'0:"EADY":340'VIC COMPUTING (C) '82