' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#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 ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`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-(  Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠z# u` z18::840 X11905$ 890J B$B$(A$(X),X11):A$(X)S$:890f 18::18:EC:L$;A$(X) U$:"IS THIS LINE CORRECT NOW? ";Y$:(Y$,1)"Y"Ĺ34,0:10:EC:7);"WAIT FOR LINE ADJUSTMENT";L$:925 835!(A$(X))1A$(X)(A$(X),(A$(X34,17CB$""XHD(B$):X1(A$(X)):18:EC:L$;B$;:IN:(A$(X),1);:NM:(A$(X),2)kM155:V21945xRV8960WV271420\V24980aV34V39fV13A$(X)B$A$(X):910kV26D0B$SP$:890pV5895uC$(V):B$B$C$ :ZZ1:7859 X1V1:XYZ:A$(X)A$(X1):X1X11::570M%(222)255980^*216,0:595g/595x4216,0:8059:"WHAT LINE DO YOU WANT CHANGED?";X:X(X):A$(X)A$(X)S$:B$"":H2:3:7);"C H A N G I N G T E X T":10:7);"LINE ";X>SE CHECK.";G2$::700VZ:A$(Z)E$ZZ1:VZ:760LA$(V)E$760[VV1:750fX1V1XYZ:A$(X1)A$(X):X1X11:IY785YI1800 A$(Z)A$(Y1):YY1:ZZ1:775ZI800A$(Z1)E$800 A$(Y)A$(Z1):YY1):660645:"WHICH LINES ARE TO BE MOVED?":"(FIRST LINE),(LAST LINE)";Y,Z::"WHAT LINE IS THE BLOCK TO FOLLOW?";I:I(I):Y(Y):Z(Z)ZY735IZIY735XYA$(X)E$735XZ740XX1:720::"ERROR! PLEA85?105:13537,0:L$;:B$:EC:(B$,1)Z$B$SP$(B$,2)XTE$B$:95:X1L690lB$E$ČBY:570vZY1A$(Z)E$675ZZ1:665A$(Z1)A$(Z):ZZ1:ZY685675A$(Y1)B$:YY1::645X0:A$(X)B$:110:D0B$A$(X(Y):Z(Z):XY:YZĺG2$:605YbA$(X)E$ĺ::"DO NOT REMOVE END MARKER";G2$:::605fgXZ625ulXX1:610qA$(Y)A$(Z1):A$(Y)E$570vYY1:ZZ1:625{:"AFTER WHICH LINE ARE THE NEW LINES TO":"BE ADDED?";Y:Y(Y):Y(Y):H2:4"7. FINISH EDITING?"_I"(TYPE 1,2,3,4,5,6 OR 7) ";D:D(D):D1245,605,635,820,700,1155,1375mNG2$:585SV1(222):V1254ĺ"?REENTER";G$:XBY::80:570]:"WHICH LINES ARE TO BE DELETED?":"(FIRST LINE),(LAST LINE)";Y,Z:Y(Y):Z(Z):Y0E5G$:"ERROR #";(222):22:"PRESS ANY KEY":216,0:155:465Q::595?6:"DO YOU WANT TO:":"1. SEE THE DOCUMENT?":"2. DELETE LINES?":"3. INSERT LINES?":"4. CHANGE LINES?":"5. MOVE A BLOCK OF LINES?"D"6. CHANGE THE LINE LENGTH?"::DR(Y$):DR1DR2ĺG2$:::"INVALID DRIVE NO.":I13000::510:10:"** WRITING "B$;" **"::4);"IN DRIVE ";DR:525: X1D$;"OPEN";B$;",D";DRD$;"WRITE";B$L!Q$;A$(X);Q$:A$(X)E$ĺ0:555&XX1:545+D$;"CLOSE"X1272510 2490$ 16368,0:0 :15406 <( P2 (4);"CATALOG"l< X(16384):X1272640vF 2620P 16368,0:d 1540THIS ACCOUNT"0` ::"PRESS RETURN WHEN READY"Lj X(16384):X1272430Vt 2410f~ 16368,0:p 1870y :5 "REPLACE THIS MONTH'S DISC IF" "CONTINUING WITH THE PROGRAM" :"PRESS ANY KEY WHEN READY TO CONTINUE"  X(16384): 270:15:7 "ERROR! ERROR! ERROR!"= k :"CHECK THE FILE NAME OR FILE CONTENTS"$ :"OTHERWISE START NEW FILE". T12000:T8 :1540B :5L "INSERT ** NEXT MONTH'S ** DISK" V :"TO SAVE DETAILS OF "3. MAKE CORRECTIONS"0:"ENTER 1,2 OR 3";XJX(X):X1X3ī2160`X2220,1540,1630:5:"DO YOU WANT TO CATALOG THE DISC?"" Y OR N? ";QC$QC$"N"270(4);"CATALOG"X(16384):X1272280226016368,0::"PAYMENTS LAST MONTH $";A$(6)Af:"BALANCE OWING: $";A$(7)Ij:gk"HIT RETURN TO CONTINUE"lX(16384):X1272158m2156n16368,0:o::p:"YOUR OPTIONS: "z:"1. CARRY ON WITH STATMENT":"2. GO TO MENU":I17A$(I)I-(4);"CLOSE ";J$6 :5X"DATA FROM CUSTOMER RECORDS"s :"CUSTOMER CODE ";J$*:"NAME: ";A$(1)4:"ADDRESS: ";A$(2)>:"ADDRESS: ";A$(3)H:"ADDRESS: ";A$(4)R:"CHARGES LAST MONTH $";A$(5) \";M:::"DO YOU WANT ANOTHER COPY? ";Y$:Y$(Y$,1):Y$"Y"MM1:1495W0,Y$"N"465f01G2$:157506X1(A$(X)):X11A$(X)(A$(X),X11):15150;:15650@75:Y$"YES"16100E4650J16200O1450V1T:8::" PLACE THE WORD PROCESSOR DG2$D1:1530"/(B$,1)G$D2>/TE$A$(X):13584:TB);L/D01560s/D1ĺEH$;:Z(L.6(TE$))2:1550/ D2Z(L(TE$))2/Z0Z0/Z);/TE$:13567,0:H$"Y"ĺ/XX1:1500/"D$;"PR#0"G0'255::10:"COPIES PRINTED - .14:"WHAT 'TAB' POSITION? ";Y$:TB((Y$)):TB0TB50ĺ"BETWEEN 0 & 50":1490n.X1:PR%(1)195,225,225.A$(X)E$1570.D0.(A$(X))0ĺ:1565.(A$(X),1)" "(A$(X),1)(18)(A$(X),1)(19)(A$(X),1)Z$1590/B$(A$(X),2):B$5-D$,"RUN MENU, D1"!-165<-13563,LM4:13564,L1-:10:M1:"DO YOU WANT DOUBLE SPACING? ";H$:H$(H$,1):H$"N"H$"Y"1470-13565,0-12:"DO YOU WANT THE TEXT JUSTIFIED? ";Y$:Y$(Y$,1):Y$"Y"Ĺ13565,1:1490-Y$"N"1480R400 ,360,D0V18:885;,(B$,D,1)L$V18:885Z,(B$,D,1)(18)V19:885j,DD1:1420,75:Y$"YES"270,465-:10:"IF THE WORD PROCESSOR DISK IS NOT IN":"DRIVE 1, PLACE IT THERE NOW.";G2$::"PRESS A KEY TO CONTINUE":15D1+AV80M7'+FV58V48FV481+K1320C+PXXMD:1260X+UM0XXD:1260b+Z1360w+_216,0:EP0465+dX1+iA$(X)E$EP0:1395+nXX1:1385+sIX2:I1I1+xX1ČH2:6:1410+}H2:DIX1:L$;"#";D:A$(D):::,X6II1:1270*M11320'*Y0N* V(16384):V127Ĺ16368,0:1305e*YY1:YF101360o*1290*VV128:V32M0:1320*V48V58FV48*#1295*(155:V321365*-V13M1:1360*2V27ČBY:570*7V85D1+<V685)B$"N"1180)1230C):3:8:"V I E W I N G T E X T"~)10:"AT WHICH LINE IS VIEWING TO BEGIN? ";X:X((X)))F5:D1:M7:H2)HM:X1X1:D1:M1M0)IX)IN:(((IX)3)1):L$;"#";I:NM:A$(I):A$(I)E$D1:1320*IY KEY":155:216,0:270)(216,0:1225:(510::1155u(:6:"ERROR #";(222):20:"PRESS ANY KEY":155:1220)19:958::"WARNING";::" THIS PROCESS MAY DESTROY":9);"THE FILE"::"DO YOU WISH TO SAVE IT ON DISK? ";B$:B$(B$,1):B$"Y"121 L E N G T H":10:7);"WAIT FOR LINE ADJUSTMENT":X1O'A$(X)E$Ĺ216,0:570i'A$(X)""XX1:1195'YX:995:XX1:1195(10:958:"DOCUMENT DESTROYED."::"RETRIEVE IT FROM DISK AND TRY A":"SMALLER CHANGE NEXT TIME":A$(1)E$:20:"PRESS AN? ";Y$:Y$""Ĺ216,0:570M&(Y$)39(Y$)79ĺ"INVALID LINE LENGTH":1160&(Y$)L10ĺ"TOO BIG A CHANGE - MAXIMUM RECOMMENDED":"IS 10":1160&(Y$)L1230&V1L:L(Y$):LML10:L79P4:1190&P35':3:"C H A N G I N G L I N E A$(Z1):A$(Z)E$1145&%jZZ1:1125H%o(A$(Y),D,1)S$DD1:1105%tA$(Y1)A$(Y1)S$(A$(Y),D1):A$(Y)(A$(Y),D1):TE$A$(Y1):95%yX1LM1090%~995%216,0:1210&19:"PRESENT LINE LENGTH IS ";L::"WHAT LINE LENGTH DO YOU WANT95 $310702$8(A$(Y),1)W$(A$(Y),1)G$1005<$=YY1Q$B(A$(Y))01005$G(A$(Y),1)Z$(A$(Y),1)W$(A$(Y),1)G$A$(Y)E$1005$LD2$QTE$(A$(Y),D):95:LMX11005$VD(A$(Y))1135$[A$(Y1)A$(Y1)S$A$(Y)$`ZY%eA$(Z)=#B$(A$(Y),D1):A$(Y)(A$(Y),D1):YY1:(A$(Y))01060q#(A$(Y),1)Z$(A$(Y),1)W$(A$(Y),1)G$1060#A$(Y)E$A$(Y)B$:A$(Y1)E$:995#A$(Y)B$S$A$(Y):995#$ZY#)ZZ1:A$(Z)E$1065$.A$(Z1)A$(Z):ZZ1:ZY1A$(Y)B$:9"A$(X)(A$(X),X11):890H"TE$A$(Y):95:X1LD(A$(Y)):M0:1015^"X1LMMX1:1080d"n"1255"(A$(Y),D,1)S$1030"DD1:M1:D3A$(Y)(A$(Y),L):1005"1015"M0A$(Y)(A$(Y),D1):995" TE$(A$(Y),D):95:X1L1020))1):YX:995:935)!A$(X)"":YX:995:!216,0:595D!1255R!X11955[!890!B$B$(A$(X),1):A$(X)(A$(X),X11):890!D1975!D1A$(X)B$A$(X):B$""!890!A$(X)(B$,1)A$(X):B$(B$,D1):890!X11990!890)RNR%(I)1ĺ"ILLEGAL ENTRY":1900d$v::8:"ITEMS REMOVED:":I1S%(0):J0A:R%(J)S%(I)1930$:::22:"PRESS RETURN ";Y$:1350$S%(I)1:R%(J),:1920$$8:"HOW MANY ITEMS ARE TO BE ADDED? ";Y$:A((Y$)):A11350%A11ĺ:"1KNOW THE NUMBERS OF THE ITEMS":"TO BE REMOVED? ";Y$:Y$(Y$,1):Y$"N"1350^#NY$"Y"1860#X:8:"HOW MANY ITEMS ARE TO BE REMOVED? ";Y$:A((Y$)):A1AS%(0)A11ĺG2$:1880#b:3:"TYPE THE ITEM NUMBERS":AA1:I0A:#$l:"> ";R%(I):R%(I(T$(0,I)):LL(A$(5))X11:J1LL:T$(0,I)(A$(5),J,X1)VV1W"::D1V(A)1830e"D11820s"V01830":1640"&S%(0)S%(0)1:S%(S%(0))R:1820"0A51940":S%(0)0ĺ:"NO SELECTION IS CURRENT":I15000::1350L#D:8:"DO YOU CT? ";Y$:Y$(Y$,1):Y$"N"16702!Y$"Y"1730E!A1D2:1760!::"ARE THE CODES TO BE:":"1. 'ANDED'":"2. 'ORED'"::"WHICH? ";Y$:D((Y$)):D1D21750!I1A:Y$T$(0,I):810:T$(0,I)B$:!840:300:R1RN:320:V0?"I1A:X1 B 8:"HOW MANY CODES ARE THERE? ";Y$:A((Y$)):A11350h A5Ģ20:"5 CODES MAXIMUM":1680 :3:"TYPE IN YOUR CODES":I1A :"#";I;:" ";T$(0,I):T$(0,I)""ĺ"ILLEGAL CODE":1710  !:3:I1A:T$(0,I)::::"IS THIS CORRE"> ";Y$6Y$""B$"":16108@810:X6B$(B$,7)PJX1(B$):X10X11T840:300:R1RN:320:B$(A$(X),X1)S%(0)S%(0)1:S%(S%(0))R^h340::12:S%(0)1ĺ"1 ITEM SELECTED":1660rS%(0);" ITEMS SELECTED"|I12000::1350 POSTCODE;":"4. REMOVE ITEMS FROM A SELECTED LIST;":"5. ADD ITEMS TO A SELECTED LIST.":"WHICH? ";Y$:A((Y$)):A1A51530A31840S%(0)0:A21670":3:A3ĺ"TYPE THE POSTCODE"::"> ";Y$:X4:1590,X6:"TYPE THE SURNAME"::U$;"RECORD #";R:22:U$;:"PRESS RETURN ";Y$:HM:BY:PR%(1)540,600,600:"#";R:J05:Y$,LL:Y$;16(Y$)):TE$A$(J):1290:V1ĺ:152013567,0:13584:TE$::690::X:3:"DO YOU WANT TO SELECT BY:":"1. SURNAME;":"2. CODE;":"3.0:320:340:1490::1350"DO YOU WANT TO:"::"1. PRINT THE WHOLE LIST?":"2. SELECTED LIST"::"WHICH? ";Y$:A((Y$)):A1A2ĺG2$:1420A11430D1S%(0):S%(D)11480300:RS%(D):320:340:1490:13507M1ČH2:420:18:" P:"WHICH? ";Y$:A((Y$)).ZA11400MdA1420,1530,2020,2120,990\nG2$:1350x:3:"DO YOU WANT:"::"1. SCREEN DISPLAY;":"2. PRINTOUT ON PAPER."::"WHICH? ";Y$:M((Y$)):M1M214001420:8:S%(0)01440R1RN:30$,1)Z$(TE$,1)L$(TE$,1)U$1320*T(X1(TE$):X11TE$(TE$,X11):1300^2V1:i<1270F:3:"DO YOU WANT TO:"::"1. PRINT THE LIST;":"2. SELECT ITEMS FROM THE LIST;":"3. DELETE AN ITEM;":"4. CHANGE AN ITEM;":"5. FINISH EDITING.:8:"ARE THERE MORE ENTRIES? ";Y$:Y$(Y$,1):Y$"Y"1170LY$"N"990\G2$;:1240340:RNRN1:216,0::8:"ERROR #";(222):20:"PRESS RETURN ";Y$:990::"THIS FILE IS NOW FULL"::1000 V0:(TE$)0V1:$(TE$,1)" "(TEA$(1):710:X10:I06:X1X1(A$(I))::1212EY$"N"ĺG2$:1190T460:1190X115128ČHM:10:U$;"TOTAL LENGTH OF DATA IS TOO LONG"::"RE-ENTER DATA.":I18000::1210HM:BY:840:1270RNRN1:RRN:300:360:400:340:216,0<D R I V E ";DR'tD$;"CATALOG,D";DRC~16384,128:16368,0:XENTER ADDRESSESiRN4991280H2:I05:Y$,LL:32I:U$;Y$;L$;:15:450:32I:15:"";Y$:510:A$(I)Y$::-430::U$;:"IS THIS CORRECT? ";Y$:Y$(Y$,1):Y$"Y"A$(6))1X2PR%(1)1PR%(2)1PR%(2)2PR%(2)1UPR%(3)1PR%(3)255PR%(3)2556:"THE PRINTER IS USUALLY CONNECTED TO A":1040::"ERROR # ";(222):::"CONSULT THE HANDBOOK.":216,0:110ISK IN ":" DRIVE 1 AND SHUT THE DOOR ":::"PRESS RETURN WHEN READY";Y$:14555AL DATA."% X(16384):X1273100/ 30609 3220O0 "CUSTOMER # ";J$iD "DATE ../../.. ";H$}X "NOTATION ";G$l "PREV. A/C REND";F$ "LAST ACCOUNT TOTAL ";Z (4);"OPEN ";J$;HH$ (4);"WRITE ";J$;HH$ G$ F$ ZE TO"& "'BRIGHT COMMUNITY OFFICE'"7 (4);"PR#0"A, 2980M@ Z(F$)XT I1Aih ZZ(Y$(I))p| I ZZ(PM$) 2820 :10 "PLACE DATA STORAGE DISC IN DRIVE 1" :"WHEN YOU HAVE DONE THIS PRESS "  :"TO SAVE ESSENTIx "QTY DETAILS",,"COST""z C| 16);"ACCOUNT RENDERED ";F$I~ T I1Ar W$(I);" ";X$(I),,Y$(I)x  I  19);"LESS PAYMENTS ";PM$ :: 2880 "TOTAL NOW DUE ",,"$";Z :: "PLEASE MAKE CHEQUES PAYABL,,"BOX 30"1` "CUST. CODE: ";J$,,"BRIGHT 3741"Kt ,,"TEL: 057 55 1166"S :d 10);"TO: "q 13);A$~ 13);B$ 13);C$ 13);D$ 13);E$ ::( "NOTATION: ";G$P d "--------------------------------------------"DO YOU WANT TO TRY AGAIN? ";Y$:Y$(Y$,1):Y$"Y"590NVY$"N"Ĺ216,0:1000X`1080S:8::" PLACE THE WORD PROCESSOR DISK IN ":" DRIVE 1 AND SHUT THE DOOR ":::"PRESS RETURN WHEN READY";Y$}/ 2440E0:"IF THE WORD PROCESSOR DISK IS NOT IN":"DRIVE 1, PUT IT THERE NOW":20:"PRESS RETURN ";Y$i.~ 2510t. :840. D$;"OPENTR,D1". D$;"WRITETR". F$(2):DR%(0):S%(0):S%(0)02490. I1S%(0):S%(I):. D$;"CLOSE". D$;"RUNLW"s/ ORD PROCESSOR DISK IS NOT IN":"DRIVE 1, PUT IT THERE NOW":20:"PRESS RETURN ";Y$]-L 2410f-V 840|-` D$;"RUN MENU,D1"-j :8::" PLACE THE WORD PROCESSOR DISK IN ":" DRIVE 1 AND SHUT THE DOOR ":::"PRESS RETURN WHEN READY";Y$:^.t :140:2320::990B, D1S%(0):300:RS%(D):320:340:2320::990, A$(3)A$(3)", "A$(4)".":PR%(1)540,600,600:J13:TE$A$(J):1290:V1ĺ:2340, 13567,0:13584:TB);TE$,$ :B$"Y"ĺFF$:2360,. J4LL::,8 690:R-B :10:"IF THE W5ĺ:"YOUR LABELS ARE TOO SHORT":I15000::990H+PR%(1)1LLLL1N++8:"WHAT 'TAB' POSITION? ";Y$:TB((Y$)):TB1TB50ĺ:"A NUMBER 1 - 50":2274+:8:"SET UP YOUR PRINTER AND PRESS RETURN ";Y$+A22310,R1RN:300:320:3Y$:A((Y$)):A1A22210*:8:"IS YOUR PRINTER SET UP TO MOVE TO THE":"NEXT LABEL USING A FORM FEED? ";B$:B$(B$,1):B$"Y"2280*B$"N"22402+:8:"HOW MANY LINES FROM THE TOP OF ONE":"LABEL TO THE TOP OF THE NEXT? ";Y$:LL((Y$)):LL5128ČHM:10:U$;"TOTAL LENGTH OF DATA IS TOO LONG"::"RE-ENTER DATA":I18000::2160)HM:BY:840:300:360:340:1350):8:S%(0)02230)A1:2240*"DO YOU WANT TO PRINT:"::"1. THE WHOLE LIST;":"2. THE SELECTED LIST."::"WHICH? ";RY$"Y"2120V(\:8:"WHICH ITEM IS TO BE CHANGED? ";Y$:R((Y$)):R1RRN2120m(f300:320:340:H2{(p460:420(z20:U$;:"IS THIS CORRECT? ";Y$:Y$(Y$,1):Y$"Y"2200(Y$"N"2170(2160Y)710:X10:I06:X1X1(A$(I))::X11:2020'Y$"Y"20600' BY:840:ARN2110L'*RRN:300:320:RA:360'4RNRN1:400:340::8:"ITEM DELETED":S%(0)0:I13000::1350'>300:2100'H:8:"DO YOU KNOW THE NUMBER OF THE ITEM":"TO BE CHANGED? ";Y$:Y$(Y$,1):Y$"N"1350(HE ITEM":"TO BE DELETED? ";Y$:Y$(Y$,1):Y$"N"1350H&Y$"Y"2020&:8:"WHICH ITEM IS TO BE DELETED? ";Y$:A((Y$)):A1ARNĺG2$:2020&RA:300:320:340:H2:420' 20:U$;:"DO YOU WANT THIS ITEM DELETED? ";Y$:Y$(Y$,1)::Y$"N"ČBY1 ITEMS ONLY AT ONE TIME":1950N%:3:"TYPE THE ITEM NUMBERS":AA1:I0A%:"> ";R%(I):R%(I)1R%(I)RNĺ"ILLEGAL ENTRY":1980%:I0A:S%(0)499IA:2010%S%(0)S%(0)1:S%(S%(0))R%(I)%:13506&:8:"DO YOU KNOW THE NUMBER OF TNATIONAL TRUST":35797J$"TE"JJ$"T.E.A.C.":3579cJ$"AN"JJ$"ANTE NATAL CLASSES":3579J$"WP"JJ$"WANDILIGONG PRESERVATION SOCIETY":3579J$"SV"JJ$"SUPA VALU":3579VJJ$"NO FILE LISTED. UPDATE FILE PLEASE"X3579@ JJ$:) "ACCOUNT RENDERED = $";K$(3)3::Z"DO YOU WANT TO OPEN MORE FILES?"q"Y OR N ";U$$U$"Y"3422.5008:500opJ$"AP"JJ$"APEX CLUB OF BRIGHT"zJ$"BH"JJ$"BRIGHT HOSPITAL":3579J$"NT"JJ$""CUSTOMER CODE? ";J$` 3421Rb ::"DATE OF LATEST STATEMENT? DD/MM/YY ";HH$kp (4);"OPEN ";J$;HH$ (4);"READ ";J$;HH$ T13 K$(T) T (4);"CLOSE ";J$;HH$  5 "CUSTOMER CODE ";J$ 6000: CUST.CODE FILE (4);"CLOSE ";J$;HH$1 :(4);"NOMON C,I,O"; :10V "READY TO READ FILE?"w4 :"HIT ANY KEY TO CONTINUE"6 16368,0H X(16384):X1273440\ 3400] :5:"NO SUCH FILE EXISTS":"RE-ENTER OR CHECK CATALOG":T11000:T^ :5:AL DATA."% X(16384):X1273100/ 30609 3220O0 "CUSTOMER # ";J$iD "DATE ../../.. ";H$}X "NOTATION ";G$l "PREV. A/C REND";F$ "LAST ACCOUNT TOTAL ";Z (4);"OPEN ";J$;HH$ (4);"WRITE ";J$;HH$ G$ F$ ZE TO"& "'BRIGHT COMMUNITY OFFICE'"7 (4);"PR#0"A, 2980M@ Z(F$)XT I1Aih ZZ(Y$(I))p| I ZZ(PM$) 2820 :10 "PLACE DATA STORAGE DISC IN DRIVE 1" :"WHEN YOU HAVE DONE THIS PRESS "  :"TO SAVE ESSENTIx "QTY DETAILS",,"COST""z C| 16);"ACCOUNT RENDERED ";F$I~ T I1Ar W$(I);" ";X$(I),,Y$(I)x  I  19);"LESS PAYMENTS ";PM$ :: 2880 "TOTAL NOW DUE ",,"$";Z :: "PLEASE MAKE CHEQUES PAYABL,,"BOX 30"1` "CUST. CODE: ";J$,,"BRIGHT 3741"Kt ,,"TEL: 057 55 1166"S :d 10);"TO: "q 13);A$~ 13);B$ 13);C$ 13);D$ 13);E$ ::( "NOTATION: ";G$P d "--------------------------------------------"Y$(I) pI:*"TOTAL NOW DUE "S"WHEN PRINTER IS READY HIT ANY KEY"oX(16384):X1272280y224016368,0:(4);"PR#2" "B R I G H T C O M M U N I T Y O F F I C E"$ :8 "DATE: ";HH$,,"BRIGHT SCHOOL" L OUNT OF PAYMENTS"$N"XX.XX $";PM$*X2lA$:B$BC$JD$RE$Z:n"ACC.REND ";F$:"ACCOUNT NOTATION ";G$ : "----------------------------------"4"QTY DETAILS ","COST"HI1A\W$(I);" ";X$(I),ҠĠȍՠԍĠԍԠà NATIONAL TRUST":35797J$"TE"JJ$"T.E.A.C.":3579cJ$"AN"JJ$"ANTE NATAL CLASSES":3579J$"WP"JJ$"WANDILIGONG PRESERVATION SOCIETY":3579J$"SV"JJ$"SUPA VALU":3579VJJ$"NO FILE LISTED. UPDATE FILE PLEASE"X3579T JJ$:) "ACCOUNT RENDERED = $";K$(3)3::Z"DO YOU WANT TO OPEN MORE FILES?"q"Y OR N ";U$$U$"Y"3422.5008:500opJ$"AP"JJ$"APEX CLUB OF BRIGHT"zJ$"BH"JJ$"BRIGHT HOSPITAL":3579J$"NT"JJ$""CUSTOMER CODE? ";J$` 3421Rb ::"DATE OF LATEST STATEMENT? DD/MM/YY ";HH$kp (4);"OPEN ";J$;HH$ (4);"READ ";J$;HH$ T13 K$(T) T (4);"CLOSE ";J$;HH$  5 "CUSTOMER CODE ";J$ 6000: CUST.CODE FILE (4);"CLOSE ";J$;HH$1 :(4);"NOMON C,I,O"; :10V "READY TO READ FILE?"w4 :"HIT ANY KEY TO CONTINUE"6 16368,0H X(16384):X1273440\ 3400] :5:"NO SUCH FILE EXISTS":"RE-ENTER OR CHECK CATALOG":T11000:T^ :5:2)::"DO YOU WANT TO TRY AGAIN? ";Y$::Y$(Y$,1):Y$"Y"340MY$"N"620W1030y$:8:"ERROR #";(222)::64020 Z);'TE$:13567,0:H$"Y"ĺ6XX1:820DT1ĺFF$SD$;"PR#0"^255:X1(A$(X)):X11A$(X)(A$(X),X11):850:950:8:"ERROR #";(222):20:"PRESS RETURN ";Y$:350216,0:620=:216,0:8:"ERROR #";(22$(X))0ĺ:950VR(A$(X),1)" "(A$(X),1)(18)(A$(X),1)(19)(A$(X),1)Z$990y\B$(A$(X),2):B$G2$D1:880f(B$,1)G$D2pTE$A$(X):13584:TB);zD0940D1ĺEH$;:Z(L.6(TE$))2:920D2Z(L(TE$))2Z0Z730D$;"CLOSE",PRINT ROUTINE9 T1800:"PUT A SHEET OF PAPER IN THE":"PRINTER ":20:"PRESS RETURN ";Y$:12:958 13565,0:J$"Y"Ĺ13565,1*X1:13563,LM4:13564,L1:PR%(1)200,260,2604A$(X)E$960>D0H(AOW AND PRESS":" ";Y$3D$;"RUN MENU,D1"R(16384)127Ĺ16368,0:[660rDISK READ ROUTINEX1::10:17);"PAGE ";ID$;"OPEN";F$;" P.";I;",D";DRD$;"READ";F$;" P.";IL:LML10A$(X):A$(X)E$750XX1:1&DIP%(J):680:770:JJ1:JP600/N580X:12:G2$;"DO YOU WANT TO PRINT ANOTHER DOCUMENT?":"";Y$:Y$(Y$,1):Y$"Y"Ĺ216,0:340bY$"N"600l216,0:1060v:8"IF THE WORD PROCESSOR DISK IS NOT IN":"THE DRIVE PUT IT THERE NH$,1):H$"Y"H$"N"520k :"WHAT 'TAB' POSITION? ";Y$:TB((Y$)):TB0TB50ĺ"BETWEEN 0 & 50":525:8:"PUT THE DISK WITH YOUR FILES":"IN DRIVE ";DR:20:"PRESS RETURN";Y$216,0:1030&PT25700IP1PN:680:770::600:J(((Y$)))::8:"WHAT TYPE OF PRINTER?":"1. TRACTOR FEED?":"2. SHEET FEED?":"(1 OR 2) ";Y$:T((Y$)):T1T2ĺG2$:500:"DO YOU WANT THE TEXT JUSTIFIED? ";J$:J$(J$,1):J$"Y"J$"N"510:"DO YOU WANT DOUBLE SPACING? ";H$:H$(((Y$))):PT440,460$G2$::420n:"WHAT PAGES? (FIRST),(LAST) ";Y$,B$:P1(((Y$))):PN(((B$)))w500:"HOW MANY PAGES? ";Y$:P((Y$)):P1460P40ĺ:"40 PAGES MAXIMUM":460:"WHAT NUMBERS? ":I1P:"#";Y$:P%(I)OF FILES TO BE PRINTED?"::"> ";F$; PR%(2)1DR1:420 :"WHICH DRIVE? ";Y$:DR((Y$)):DR1DR2ĺ"INVALID DRIVE NO.":410:8:"DO YOU WANT TO:":"1. PRINT A CONSECUTIVE SERIES OF PAGES?":"2. PRINT SELECTED PAGES?":"(1 OR 2) ";Y$:PT(6:3:4);"C A T A L O G - D R I V E ";DRF @D$;"CATALOG,D";DRQ J120:\ T1010 ^:8:"DO YOU WANT TO CATALOG THE DISK? ";Y$:Y$(Y$,1):Y$"N"380 hY$"Y"340 r290:350 |216,0:1020# :8:"WHAT IS THE NAME OF THE SERIES 10::"TURN THE PRINTER ON"::I15000::200; PR%(3)P D$;"PR#";PR%(0)` I$;L1;"N"f r PR%(3) D$;"PR#";PR%(0)  "PR%(2)1DR1:310 ,:"WHICH DRIVE? ";Y$:DR(Y$):DR(DR):DR1DR2ĺG2$:"INVALID DRIVE NO."::300/ X24X156PR%(1)3" PR%(1)ı :5:"THERE IS NO APPLE I/O CARD":"IN SLOT #";PR%(0)::"GO BACK TO MENU AND SET UP":"PRINTER PARAMETERS.":20:"PRESS RETURN";Y$::630 4928016PR%(0),128:K120:V(49345256PR%(0))::V254220/ 23:255:A$(200),P%(40)! n140:340L xV(16384):V127VV128:16368,0:U 120 V49152256PR%(0):X0:X10:IVV25:XX(I)::IVV25:X1X1(I)::XX1190 X(V5):X1(V7):PR%(1)0::X72X172PR%(1)1 X56X124PR%(1)2 z 24576:175,0:176,96.D$(4):216,0DD$;"BLOADP.3,D1"Y(D$;"BLOADA48/5"q2D$;"OPENSTATUS,D1"<D$;"READ STATUS"FI03:PR%(I):PD$;"CLOSE"ZTE$"":FF$(12):Z$(26):E$"END":G2$(7)(7):I$(9):EH$(1):G$(7) d     :"OTHERWISE START NEW FILE"4. T12000:T@8 :1540IB :5sL "INSERT ** NEXT MONTH'S ** DISK"V :"TO SAVE DETAILS OF THIS ACCOUNT"` ::"PRESS RETURN WHEN READY"j X(16384):X1272430t 2410~ 16368,0: 1870U WANT TO CATALOG THE DISC?"4" Y OR N? ";QC$EQC$"N"270Y(4);"CATALOG"uX(16384):X1272280226016368,0:270:15: "ERROR! ERROR! ERROR!"  :"CHECK THE FILE NAME OR FILE CONTENTS"#$ $";A$(6))f:"BALANCE OWING: $";A$(7)Vp::"IS THIS CORRECT? IF NOT THEN YOU"z:"WILL ENTER THE 'NEW CUSTOMER' ROUTINE":"SO THAT YOU CAN ENTER THE CORRECT":"DETAILS. Y OR N "CD$:CD$"Y"22201630:5:"DO YOCLOSE ";J$2300 :5@"DATA FROM CUSTOMER RECORDS"[ :"CUSTOMER CODE ";J$t*:"NAME: ";A$(1)4:"ADDRESS: ";A$(2)>:"ADDRESS: ";A$(3)H:"ADDRESS: ";A$(4)R:"CHARGES LAST MONTH $";A$(5)\:"PAYMENTS LAST MONTH lA$(I)vI&(4);"CLOSE ";J$,61530Z:5:"BRIGHT COMMUNITY OFFICE"y:"STATEMENT PREPARATION"::"PLEASE ENTER CUSTOMER CODE ";J$2300(4);"OPEN ";J$(4);"READ";J$I17A$(I)I (4);"(4)(:"CHARGES LAST MONTH: $";A$(5)M:"PAYMENTS LAST MONTH: $"A$(6)m:"BALANCE OWING: $";A$(7)::"CORRECT ? Y OR N ";ND$&ND$"N"16400ND$"Y"İ1870:1530D1640N(4);"OPEN ";J$X(4);"WRITE ";J$bI17 ME: ";A$(1)$:"ADDRESS: ";A$(2)=:"ADDRESS: ";A$(3)V:"ADDRESS: ";A$(4){:"CHARGES LAST MONTH: $";A$(5):"PAYMENTS LAST MONTH: $";A$(6):"BALANCE OWING: $";A$(7):5J$A$(1)A$(2)A$(3)A$:"SO THAT YOU CAN ENTER THE CORRECT"C%(:"DETAILS. Y OR N "[%(CD$:CD$"Y"10500e%(9000%):5:"DO YOU WANT TO CATALOG THE DISC?"(2)$((:"ADDRESS: ";A$(3)5$<(:"ADDRESS: ";A$(4)Y$>(:"CHARGES LAST MONTH $";A$(5)~$@(:"PAYMENTS LAST MONTH $";A$(6)$B(:"BALANCE OWING: $";A$(7)$P(::"IS THIS CORRECT? IF NOT THEN YOU"$d(:"WILL ENTER THE 'NEW CUSTOMER ROUTINE"%%x(TION"/#8'::"PLEASE ENTER CUSTOMER CODE ";J$D#L'(4);"OPEN ";J$X#`'(4);"READ";J$c#t'I17n#'A$(I)u#'I#'(4);"CLOSE ";J$#':5#'"DATA FROM CUSTOMER RECORDS"#':"CUSTOMER CODE ";J$#(:"NAME: ";A$(1)$(:"ADDRESS: ";A$$:"BALANCE OWING: $";A$(7)>",$::"CORRECT ? Y OR N ";ND$P"T$ND$"Y"9340Z"h$9020o"|$(4);"OPEN ";J$"$(4);"WRITE ";J$"$I17"$A$(I)"$I"$(4);"CLOSE ";J$"$8100"':5:"BRIGHT COMMUNITY OFFICE"#$':"STATEMENT PREPARAA$(4)*!#:"CHARGES LAST MONTH: $";A$(5)P!#:"PAYMENTS LAST MONTH: $";A$(6)u!#:"BALANCE OWING: $";A$(7)~!#:5!#J$!#A$(1)!#A$(2)!$A$(3)!$A$(4)!$:"CHARGES LAST MONTH: $";A$(5)!$:"PAYMENTS LAST MONTH: $"A$(6)"0 TM$:(TM$)38000( D (TM$)08000C X (TM$)9000,10000,500d (#:5:"NEW CUSTOMER DETAILS" <#::"ENTER DETAILS AS REQUIRED" P#:"CUSTOMER CODE ";J$ d#:"NAME: ";A$(1) x#:"ADDRESS: ";A$(2) #:"ADDRESS: ";A$(3)!#:"ADDRESS: ";T5:"BRIGHT COMMUNITY OFFICE">h"ACCOUNT WRITING PROGRAM"F|:WT11000:T]~5:"YOU HAVE THREE OPTIONS":"1. ENTER NEW CUSTOMER DETAILS.:"2. PREPARE STATEMENTS:"3. GOTO MAIN MENU : "ENTER 1, 2 OR 3 " ԠؠïŠٍؠԍ "BRIGHT COMMUNITY OFFICE"9:"STATEMENT PREPARATION"c::"PLEASE ENTER CUSTOMER CODE ";J$x(4);"OPEN ";J$(4);"READ";J$I17A$(I)I(4);"CLOSE ";J$ :5"DATA FROM CUSTOMER RECORDS" :"CUSTOMER CODEONTH: $"A$(6)-:"BALANCE OWING: $";A$(7)O::"CORRECT ? Y OR N ";ND$a&ND$"N"1640t0ND$"Y"İ1870~:1530D1640N(4);"OPEN ";J$X(4);"WRITE ";J$bI17lA$(I)vI(4);"CLOSE ";J$1530:5::"ADDRESS: ";A$(4);:"CHARGES LAST MONTH: $";A$(5)a:"PAYMENTS LAST MONTH: $";A$(6):"BALANCE OWING: $";A$(7):5J$A$(1)A$(2)A$(3)A$(4):"CHARGES LAST MONTH: $";A$(5) :"PAYMENTS LAST M(:"DETAILS. Y OR N "3%(CD$:CD$"Y"10500=%(9000j%):5:"DO YOU WANT TO CATALOG THE DISC?"%)" Y OR N? ";QC$%)QC$"N"1220%)(4);"CATALOG"%")X(16384):X12710550%,)10530%6)16368,0:%@)1220)RESS: ";A$(4)1$>(:"CHARGES LAST MONTH $";A$(5)V$@(:"PAYMENTS LAST MONTH $";A$(6)w$B(:"BALANCE OWING: $";A$(7)$P(::"IS THIS CORRECT? IF NOT THEN YOU"$d(:"WILL ENTER THE 'NEW CUSTOMER ROUTINE"$x(:"SO THAT YOU CAN ENTER THE CORRECT"%DE ";J$#L'(4);"OPEN ";J$0#`'(4);"READ";J$;#t'I17F#'A$(I)M#'Ic#'(4);"CLOSE ";J$l#':5#'"DATA FROM CUSTOMER RECORDS"#':"CUSTOMER CODE ";J$#(:"NAME: ";A$(1)#(:"ADDRESS: ";A$(2)#((:"ADDRESS: ";A$(3) $<(:"ADDORRECT ? Y OR N ";ND$("T$ND$"Y"93402"h$9020G"|$(4);"OPEN ";J$]"$(4);"WRITE ";J$h"$I17s"$A$(I)z"$I"$(4);"CLOSE ";J$"$8100"':5:"BRIGHT COMMUNITY OFFICE""$':"STATEMENT PREPARATION"#8'::"PLEASE ENTER CUSTOMER CO5)(!#:"PAYMENTS LAST MONTH: $";A$(6)M!#:"BALANCE OWING: $";A$(7)V!#:5^!#J$i!#A$(1)t!#A$(2)!$A$(3)!$A$(4)!$:"CHARGES LAST MONTH: $";A$(5)!$:"PAYMENTS LAST MONTH: $"A$(6)!$:"BALANCE OWING: $";A$(7)",$::"C X (TM$)9000,10000,500< (#:5:"NEW CUSTOMER DETAILS"a <#::"ENTER DETAILS AS REQUIRED"| P#:"CUSTOMER CODE ";J$ d#:"NAME: ";A$(1) x#:"ADDRESS: ";A$(2) #:"ADDRESS: ";A$(3) #:"ADDRESS: ";A$(4)!#:"CHARGES LAST MONTH: $";A$(COUNT WRITING PROGRAM"|:/T11000:T5V5:"YOU HAVE THREE OPTIONS"}:"1. ENTER NEW CUSTOMER DETAILS.:"2. PREPARE STATEMENTS:"3. GOTO MAIN MENU : "ENTER 1, 2 OR 3 "0 TM$:(TM$)38000 D (TM$)08000T.E.A.C.":3579;J$"AN"JJ$"ANTE NATAL CLASSES":3579uJ$"WP"JJ$"WANDILIGONG PRESERVATION SOCIETY":3579J$"SV"JJ$"SUPA VALU":3579VJJ$"NO FILE LISTED. UPDATE FILE PLEASE"X3579@T5:"BRIGHT COMMUNITY OFFICE"h"AC) ::2"DO YOU WANT TO OPEN MORE FILES?"I"Y OR N ";U$Z$U$"Y"3422d.500o8:500uopJ$"AP"JJ$"APEX CLUB OF BRIGHT"zJ$"BH"JJ$"BRIGHT HOSPITAL":3579J$"NT"JJ$"NATIONAL TRUST":3579J$"TE"JJ$""DATE OF LATEST STATEMENT? DD/MM/YY ";HH$Cp (4);"OPEN ";J$;HH$\ (4);"READ ";J$;HH$g T13r K$(T)y T (4);"CLOSE ";J$;HH$  5 "CUSTOMER CODE ";J$ 6000: CUST.CODE FILE JJ$: "ACCOUNT RENDERED = $";K$(3 :5, "REPLACE THIS MONTH'S DISC IF"O "CONTINUING WITH THE PROGRAM"} :"PRESS ANY KEY WHEN READY TO CONTINUE" X(16384):X1272510 2490 16368,0: :1540 0:T^ :5:"CUSTOMER CODE? ";J$` 3421*b ::Ԡ΍Πōԍ F 2620P 16368,0:"d 15400٠čϠōȠōٍ Ӡ͠ӍӠ٠čԍ 70  :5/ "REPLACE THIS MONTH'S DISC IF"R "CONTINUING WITH THE PROGRAM" :"PRESS ANY KEY WHEN READY TO CONTINUE" X(16384):X1272510 2490 16368,0: :1540 ( 2 (4);"CATALOG"< X(16384):X1272640$ :"OTHERWISE START NEW FILE"7. T12000:TC8 :1540LB :5vL "INSERT ** NEXT MONTH'S ** DISK"V :"TO SAVE DETAILS OF THIS ACCOUNT"` ::"PRESS RETURN WHEN READY"j X(16384):X1272430t 2410~ 16368,0: 18 YOU WANT TO CATALOG THE DISC?"7" Y OR N? ";QC$HQC$"N"270\(4);"CATALOG"xX(16384):X1272280226016368,0:270:15: "ERROR! ERROR! ERROR!"  :"CHECK THE FILE NAME OR FILE CONTENTS"&(16384):X1272158m2156/n16368,0:9o::Qp:"YOUR OPTIONS: "tz:"1. CARRY ON WITH STATMENT":"2. GO TO MENU":"3. MAKE CORRECTIONS":"ENTER 1,2 OR 3";XX(X):X1X3ī2160X2220,1540,1630:5:"DO ";J$*:"NAME: ";A$(1)74:"ADDRESS: ";A$(2)P>:"ADDRESS: ";A$(3)iH:"ADDRESS: ";A$(4)R:"CHARGES LAST MONTH $";A$(5)\:"PAYMENTS LAST MONTH $";A$(6)f:"BALANCE OWING: $";A$(7)j:k"HIT RETURN TO CONTINUE"lXŠٍԠ̍ΠԍԠ ҠǠӍǠԍȠōÍŠԠҤǢؠˠƠؠΠϠŠŠϠŠӠȧӠàƢԠǠȠŠ͢ԠԠӠ٠٠Π٠ϠŢؠˠƠؠΠϠŠŠŠϠĠԠԠϠŠӠƠӠԢԠԠԠӠΠΠ٢ؠˠƠؠΠϠŠŠ Š Ԡ̇ҡ̠ԠԠˠŠŠŠҠŠӢԠԠԇɇŠԠ·נƇɇŢҠԠϠԠԍŠϠŠ ԠԠԠȧӠˢԠ٠ҠοäƠä΢ϠԠҤǢؠˠƠؠΠϠŠŠϠŠ ȠԠҡ҇ԠϠϠբԠԠŠӢԠԠҠҠ؍ؠԠةƠؠҠؠΠϠΠؠϠŠ ԠϠՠԠϠǠŠÿɵԠԠΠϠŢؠˠƠؠΠϠŠŠԠԠԠԠԠҠӺԠԠ٠ΠȠԢԠY$(I) pI:*"TOTAL NOW DUE "S"WHEN PRINTER IS READY HIT ANY KEY"oX(16384):X1272280y224016368,0:(4);"PR#2" "B R I G H T C O M M U N I T Y O F F I C E"$ :8 "DATE: ";HH$,,"BRIGHT SCHOOL" L OUNT OF PAYMENTS"$N"XX.XX $";PM$*X2lA$:B$BC$JD$RE$Z:n"ACC.REND ";F$:"ACCOUNT NOTATION ";G$ : "----------------------------------"4"QTY DETAILS ","COST"HI1A\W$(I);" ";X$(I),-----------":1740=10:"COST = $ (XX.XX) ";Y$(I)E:gW$(I);" ";X$(I);" ";Y$(I):"CORRECT? OR "0N$:N$"N"1700:DIFH"WERE ANY PAYMENTS MADE? Y OR N ";QP$IQP$"N"ī1880K"LIST TOTAL AMXXX ";W$(I) (W$(I))31730B"ENTRY MUST BE 3 CHARACTERS"^"RE-ENTER IN FORM 000"h1720n8:"DETAILS ";X$(I)(X$(I))231750"LINE TOO LONG. 23 SPACES MAX.""RE ENTER YOUR DETAILS"8:" -------------:H$"N"10003:"PRINT DETAILS OF ACCOUNT NOW"L:"HOW MANY LINES?"W"A(35)^,Ai6I(30)u8W$(30)9X$(30):Y$(30)@IL(30)TNUM0A1hIL(NUM)NUM1|NUMI1A"LINE ";I500 "QTY MM/YY ";HH$)16:"CUSTOMER CODE ";J$/F"ACCOUNT DETAILS"N(:b<A$,"DATE ";HH$jPB$}dC$,"CODE ";J$xD$E$:"ACCOUNT RENDERED ";F$:"ACCOUNT NOTATION ";G$:::"CORRECT SO FAR? OR " H$"STATEMENT"$:086:"NAME ";A$LL7:"ADDRESS ";B$h`8:"ADDRESS ";C$t9:"ADDRESS ";D$10:"ADDRESS ";E$:13:" ACC. REND. ";F$14:" ACC.NOTATION ";G$ 15:"STATEMENT DATE DD/)b"REMEMBER, YOU WILL HAVE TO RE-RUN"Xl"THIS PROGRAM AFTER THE CATALOG IN ORDER"vv"TO PREPARE STATEMENTS."::"(TYPE 'RUN' TO START PROGRAM AGAIN)T12000:T(4);"CATALOG""BRIGHT COMMUNITY OFFICE"  GET ACCOUNTS RENDERED FROM THE"H" FILES YOU HAVE JUST COLLECTED"b" THE DETAILS OF."h!&"3. START PREPARING STATEMENTS"+:"4. QUIT"0::"ENTER YOUR CHOICE 1,2,3 OR 4":VDV600,3422,1000,999N:500SX:5N."2 :"HAVE A PEN AND PAPER READY IF YOU ARE"T "GOING TO CATALOG THE DISC."y ::"PRESS ANY KEY TO CONTINUE" X(16384):X127490 470 16368,0::5 "YOU HAVE FOUR OPTIONS:" : "1. CATALOG THE DISC"  "2.THE LATEST."/ h:"PRESS ANY KEY TO CONTINUE"J rX(16384):X127390S |370f 16368,0::5 "IF ALL THE CUSTOMERS YOU ARE GOING" "TO PREPARE STATEMENTS FOR HAVE NO" "MONEY OWING, YOU WILL NOT HAVE TO" "COLLECT THIS INFORMATIO2 MN31/10/81" "::@ ,"THE LATEST STATEMENT PREPARED FOR"h 6"THE CUSTOMER CODED 'AN' WAS DONE"| @"ON 30/09/81." J:"THE LATEST FOR 'MN' WAS DONE ON 31/10/81" T:"YOU WOULD IGNORE THE 'MN' STATEMENT" ^"ON 30/09/81 BECAUSE IT IS NOT AND NOTE DOWN THE CUSTOMER CODES"Q "AND THE DATE OF THE LATEST STATEMENT."t ::"HIT ANY KEY TO CONTINUE" X(16384):X127240 220 16368,0::5:"FOR EXAMPLE:" :: "T 003 MN30/09/81" "T 002 AN30/09/81" "T 00T COMMUNITY OFFICE" :F "YOU MAY NEED TO COLLECT DATA BEFORE"s "YOU START. IF THE CUSTOMER HAS DEALT" "WITH US BEFORE YOU WILL NEED TO READ" "THE DATA FILE TO COLLECT THE ACCOUNT" "RENDERED. TO DO THIS, CATALOG THE"" "DISC ::255:56"BRIGHT COMMUNITY OFFICE"W(:" STATEMENT WRITER "p2:" PROGRAM"<T12000:TF:5P"DO YOU WANT INSTRUCTIONS?"U" OR ";Q$VQ$"N"ė:500d:10n500 x"FOR THE BRIGH            ӺԠԠӺԠԠӺԠԠӠԠȠԠԠӠԠȠԠԠŠǺԠԠʤҠɠϠԠɩԠɍԠҤŠʤŠ Ԡ͠ҠӢԠԠҠŠʤԠԠźԠԠŠʤΠϠŠ ԠԠ٠ŢԠԠԠ΢ԠԠԠŠҠҠŠʤԠҤΠʤԠҤĠ٠ҠΠĤƠĤ΢ϠƠĤ٢Π ϠϠԠҤΠʤԠҤŠʤҠɠϠԠɩԠɍԠҤϱԠԠԠԠԠԠӠԠȺԠԠӠԠȺԠԠŠǺԠԠԠԠԠԠӺԠԠӺԠԠӠԠȺԠԠӠԠȺԠԠŠǺŠ ԠʤͤϠŠ ԠנҠӢԠԠԠҠӠӠĢԠԠҠŠʤԠԠźԠԠӺԠԠŠӍԠԠǠŠˢԠԠԢԠԠԠҠҠͤƠ̠ͤϠƠ̠ͤϠΠ̠Š ԠԠ٠ŢԠԠǠ͢ԠԠҠԠϠԠԍŠŠ ԠՠŠҠӺԠԠҠנҠӮԠΠԠӠکϠԠԠԠԠŠŠӠŠϢԠԠ٠ŧԠҤңŠϠ͠àŠō̠٤ɩԠɍנڍҤשڠڠ̠ͤͤҤکƠڠϠԠ̠נŠڍϠĠԠҠɠϠԠפɩؤɩ٤ɩԠԠɍԠԠ¨ӠӠͤԠԠԠڠ̠ҠɠϠڠڠ֢ēčՠԍĠԍԠÍ͓Ӡ“ԍ͓ӠÓ̠“ԍǍÍԍēҠ͓àÓٍēҠӠàٍԠÍԠÍٍ͓Ӡ͓ҍ͓ӠǠҍΠԍԠÍҍ̓Ԡ̍ΠԍԠÍ  ¨Ԡ¨ԠԠԠԠκǤԠԠԠ٠ӢԢԠԠ¨ԠԠźȤԠ̢ԠؠԠԮźʤԠԠ̺ԠԠԠ¨ϺԠ¨Ԡ¨ԠԠԠΠҠӠ٠Ԡ٠٢ؠˠƠؠΠϠŠŠԠҤңԠ ҠɠǠȠԠàϠ͠͠ՠΠɠԠ٠ϠƠƠɠàŢԠԠЍƠΠؤɩΠԠפɩؤɩ٤ɩϠԠפɩؤɩ٤ɩϠԠפɩԤؤɩ٤ɩԠɍԠԠԠӠӠͤԠԠԠԠԠԠĠԠԠԠΠǤԠԠԠԠ٠ӠԢҠɠϠƠΠؤɩΠԠɍŠԠŠ٠Ӡſ٠ҠΠФƠФ΢ΠϠԠԠ̠ԠƠӢԠخؠͤŠԠԠԠԠРϠԠ ԠԠخة٤ɩԠԠԠפɩؤɩ٤ɩԠԠԿپҠξԠΤƠΤ΢ϠŠ٠ԠŠӢԠŭҠΠ͠ϠԠ ԠӠؤɩƠΠؤɩϠԠŠϠǮӠخԠŠҠҠӢ ԠӿԠҠ͠Ϡ̨ͩ͠Ԡ͍ҠɠϠԠŠɍԠԠ٠ؠפɩƠפɩΠϠƠΠפɩΠԠĠԠԠԠΠǤԠԠԠԠԠϠҿپҠξԠȤƠȤ΢ΠϠŠԠԠӠƠԠעԠԠנ٠ӠΠǤԠԠԠԠŠįͯ٠ȤŠԠԠӢԠԠԠŠȤԠԠԠԠԠԠԠԠҠԠԠ͢ҠԠϠԠԍŠϠԠԠŠ ԠԠ΢ԠԠҠӠӠĢԠԠԠԠŠĽ͠͠ɨ͠פ͠ؤ͠٤̨͠͠ԠŠĽŠ ԠԠ٠ŢԠԠ          ӠԠˍҍӠԠŠΠӍ٠ōٍؠٍàӍĠԍÍȍԮ¯ÍӍĠčӍӠӢ̠Ġ̠٠ŠĠ٠ŠҮГŠĢӠŠŠҠŠά̢ӠŠĠϠŠēήדŠ٢ӬŠĠ٠ŠĠҠŠΠҠˢΠ̠ӬǠΠȠŠҮÓŠǠΠȠ͠ŠēҠǢŠŠƠŠ̠ΠӠĮĠ΢ɓԠӠĠԠ٠ΠȠӠԢ͠Ǡ˓ήԓϠŠԠŠԢŠϠŠϠ̠ŠǠ̠ΠŢǠҠҠϠ̠Π٠ŠȮƠʓŮԓŠŠƠŠĠ٠ĠΠŠǢԠƠҠŠ٠ŠĠϠŠǢԠƠҠŠƠҠƍԓŠӠǠԠĠŠΧӠӠŢĠȠĠϠҠƠΠĠŠҢŠĠ̠ŠǠ̮דΠŠ΢ΠΠŠĠŠǠά٢̠ŠΠԠȠԠϠŠŠԢ٠ĠȠΠӠŠӠԠ٠͠Ţ˓ήɓƠ٠ĠΠŠ٠ӠϢԠȠΠӠŬĠՠŢŠŠēӮǠӢŢÓΠ٠ŠĠŠǠ˓άԢӠ٠ӠŠ٠ƠӮ΢ӠŠŠԠŠ˓ήӠӢɓԠӠŠ٠    ؠ΍ōčàz #???? Š Ϡ  ɠ Ҡ îΠҠ ̮ΠҠҮΠҠ Ҡ Ӡ ؠ ҠЮ! ҠЮ" ҠЮ ҠЮ РԠ ͠  Ӡ"РϠ ̠!Ƞ Ơ ˠ  ȠРà ֠ŠҠ!  Ҡ Р ֠ԠȠӠӠ̩ Ӡ ҠҠ)ΠЮנŠԠ ɠϠԠҠĠҠ+ՠŠҠ ŠҠ-----------":1740=10:"COST = $ (XX.XX) ";Y$(I)E:gW$(I);" ";X$(I);" ";Y$(I):"CORRECT? OR "0N$:N$"N"1700:DIFH"WERE ANY PAYMENTS MADE? Y OR N ";QP$IQP$"N"ī1880K"LIST TOTAL AMXXX ";W$(I) (W$(I))31730B"ENTRY MUST BE 3 CHARACTERS"^"RE-ENTER IN FORM 000"h1720n8:"DETAILS ";X$(I)(X$(I))231750"LINE TOO LONG. 23 SPACES MAX.""RE ENTER YOUR DETAILS"8:" -------------:H$"N"10003:"PRINT DETAILS OF ACCOUNT NOW"L:"HOW MANY LINES?"W"A(35)^,Ai6I(30)u8W$(30)9X$(30):Y$(30)@IL(30)TNUM0A1hIL(NUM)NUM1|NUMI1A"LINE ";I500 "QTY MM/YY ";HH$)16:"CUSTOMER CODE ";J$/F"ACCOUNT DETAILS"N(:b<A$,"DATE ";HH$jPB$}dC$,"CODE ";J$xD$E$:"ACCOUNT RENDERED ";F$:"ACCOUNT NOTATION ";G$:::"CORRECT SO FAR? OR " H$"STATEMENT"$:086:"NAME ";A$LL7:"ADDRESS ";B$h`8:"ADDRESS ";C$t9:"ADDRESS ";D$10:"ADDRESS ";E$:13:" ACC. REND. ";F$14:" ACC.NOTATION ";G$ 15:"STATEMENT DATE DD/)b"REMEMBER, YOU WILL HAVE TO RE-RUN"Xl"THIS PROGRAM AFTER THE CATALOG IN ORDER"vv"TO PREPARE STATEMENTS."::"(TYPE 'RUN' TO START PROGRAM AGAIN)T12000:T(4);"CATALOG""BRIGHT COMMUNITY OFFICE"  GET ACCOUNTS RENDERED FROM THE"H" FILES YOU HAVE JUST COLLECTED"b" THE DETAILS OF."h!&"3. START PREPARING STATEMENTS"+:"4. QUIT"0::"ENTER YOUR CHOICE 1,2,3 OR 4":VDV600,3422,1000,999N:500SX:5N."2 :"HAVE A PEN AND PAPER READY IF YOU ARE"T "GOING TO CATALOG THE DISC."y ::"PRESS ANY KEY TO CONTINUE" X(16384):X127490 470 16368,0::5 "YOU HAVE FOUR OPTIONS:" : "1. CATALOG THE DISC"  "2.THE LATEST."/ h:"PRESS ANY KEY TO CONTINUE"J rX(16384):X127390S |370f 16368,0::5 "IF ALL THE CUSTOMERS YOU ARE GOING" "TO PREPARE STATEMENTS FOR HAVE NO" "MONEY OWING, YOU WILL NOT HAVE TO" "COLLECT THIS INFORMATIO2 MN31/10/81" "::@ ,"THE LATEST STATEMENT PREPARED FOR"h 6"THE CUSTOMER CODED 'AN' WAS DONE"| @"ON 30/09/81." J:"THE LATEST FOR 'MN' WAS DONE ON 31/10/81" T:"YOU WOULD IGNORE THE 'MN' STATEMENT" ^"ON 30/09/81 BECAUSE IT IS NOT AND NOTE DOWN THE CUSTOMER CODES"Q "AND THE DATE OF THE LATEST STATEMENT."t ::"HIT ANY KEY TO CONTINUE" X(16384):X127240 220 16368,0::5:"FOR EXAMPLE:" :: "T 003 MN30/09/81" "T 002 AN30/09/81" "T 00T COMMUNITY OFFICE" :F "YOU MAY NEED TO COLLECT DATA BEFORE"s "YOU START. IF THE CUSTOMER HAS DEALT" "WITH US BEFORE YOU WILL NEED TO READ" "THE DATA FILE TO COLLECT THE ACCOUNT" "RENDERED. TO DO THIS, CATALOG THE"" "DISC ::255:56"BRIGHT COMMUNITY OFFICE"W(:" STATEMENT WRITER "p2:" PROGRAM"<T12000:TF:5P"DO YOU WANT INSTRUCTIONS?"U" OR ";Q$VQ$"N"ė:500d:10n500 x"FOR THE BRIGH         :215:"BRIGHT SCHOOL DISC. 3.3 DOS"c:"APPLE 48K. SYSTEM. DATA STORAGE SYSTEM"t(T11000:T2(4);"RUN BOOT" :"2. PREPARE STATEMENTS.":"3. QUIT"6,:N6"ENTER 1, 2 OR 3 "f@TM$:(TM$)31480yJ(TM$)01480T(TM$)1630,1950,2530^:5:"NEW CUSTOMER DETAILS"h::"ENTER DETAILS AS REQUIRED"r:"CUSTOMER CODE ";J$ |:"NA"'BRIGHT COMMUNITY OFFICE'",(4);"PR#0"2Q2370: DISC WRITE ROUTINEWy5:"BRIGHT COMMUNITY OFFICE""ACCOUNT WRITING PROGRAM":T11000:T5:"YOU HAVE THREE OPTIONS":"1. ENTER NEW CUSTOMER DETAILS.WZA$(7)"0",(A$(6)"0":A$(5)"0";2A$(5)(W)J<ZZ(PM$)XFA$(6)PM$gPA$(7)(Z)uZZ01400d"TOTAL NOW DUE ",,"$";Zn1420x"ACCOUNT IN CREDIT ",,"$";(Z)1450::"PLEASE MAKE CHEQUES PAYABLE TO"------------------------"7~"QTY DETAILS",,"COST"=a16);"ACCOUNT RENDERED ";A$(7)grI1AW$(I);" ";X$(I),,Y$(I)I19);"LESS PAYMENTS ";PM$::Z(A$(7))I1AZZ(Y$(I)) I";HH$,,"BRIGHT SCHOOL"&,,"BOX 30"M"CUST. CODE: ";J$,,"BRIGHT 3741"g,,"TEL: 057 55 1166"o:$10);"TO: ".13);A$(1)813);A$(2)B13);A$(3)L13);A$(4)V::`"NOTATION: ";G$jt"--------------------zI1A#W$(I);" ";X$(I),Y$(I)*I2:H"TOTAL NOW DUE "q"WHEN PRINTER IS READY HIT ANY KEY"X(16384):X12797095016368,0:(4);"PR#2""B R I G H T C O M M U N I T Y O F F I C E":"DATE: LIST TOTAL AMOUNT OF PAYMENTS"1 "XX.XX $";PM$7 B A$(1)M A$(2)X *A$(3)c 4A$(4)k >: H"ACCOUNT RENDERED $";A$(7) R:"ACCOUNT NOTATION ";G$ \: f"----------------------------------" p"QTY DETAILS ","COST" ------------------------":600' L 10:"COST = $ (XX.XX) ";Y$(I)T :v W$(I);" ";X$(I);" ";Y$(I) :"CORRECT? OR " N$:N$"N"520  I  "WERE ANY PAYMENTS MADE? Y OR N ";QP$ QP$"N"ī780 "  "QTY XXX ";W$(I)2 &(W$(I))3590T 0"ENTRY MUST BE 3 CHARACTERS"p :"RE-ENTER IN FORM 000"y D540 N X8:"DETAILS ";X$(I) b(X$(I))23650 l"LINE TOO LONG. 23 SPACES MAX." v"RE ENTER YOUR DETAILS"! 8:" NDERED $";A$(7). :"ACCOUNT NOTATION ";G$W :::"CORRECT SO FAR? OR "_ H$p H$"N"ī270 :"PRINT DETAILS OF ACCOUNT NOW" :"HOW MANY LINES?" A NUM0A1 IL(NUM)NUM1 NUM I1A  "LINE ";I# :14:"STATEMENT PREPARATION"F :"ENTER DETAILS AS REQUIRED"d ":"ACCOUNT NOTATION ";G$ ,"STATEMENT DATE DD/MM/YY ";HH$ 6 @"ACCOUNT DETAILS" J: TA$(1),"DATE ";HH$ ^A$(2) hA$(3) rA$(4) |: "ACCOUNT REd::255nA(35)$xI(30)0W$(30)<X$(30)HY$(30)TIL(30)`A$(10)lA$(30)y::255:5"BRIGHT COMMUNITY OFFICE":" STATEMENT WRITER ":" PROGRAM"T11000:T:1530 :               (16384)127Ĺ16368,0:! 200' C (4);"RUN SUPERBILLER"XE(4);"NOMONI,O,C" ;12:13:"A P P L E II"T14:15:"DOS 3.2.1"gP11000:P:q(:102"DO YOU WANT SUPERBILLER? Y OR N "7A$:A$"Y"ī1000F"DO YOU WANT WORD PROCESSOR?";B$KB$"N"ĀZ(4);"RUN MENU"  ;"OPEN ";J$!X(4);"WRITE ";J$,bI177lA$(I)>vIT(4);"CLOSE ";J$Zd1530:5:"BRIGHT COMMUNITY OFFICE":"STATEMENT PREPARATION"::"PLEASE ENTER CUSTOMER CODE ";J$(4);"OPEN ";J$(4);"READ";J$J$A$(1)A$(2)&A$(3)1A$(4)V:"CHARGES LAST MONTH: $";A$(5){:"PAYMENTS LAST MONTH: $"A$(6):"BALANCE OWING: $";A$(7)::"CORRECT ? Y OR N ";ND$&ND$"N"16400ND$"Y"İ1870:1530D1640 N(4)EQUIRED"#r:"CUSTOMER CODE ";J$9|:"NAME: ";A$(1)R:"ADDRESS: ";A$(2)k:"ADDRESS: ";A$(3):"ADDRESS: ";A$(4):"CHARGES LAST MONTH: $";A$(5):"PAYMENTS LAST MONTH: $";A$(6):"BALANCE OWING: $";A$(7):5R DETAILS.(:"2. PREPARE STATEMENTSE":"3. CATALOG THE DISK"V$:"4. QUIT"^,:|6" ENTER 1,2,3 OR 4 ";TM$@(TM$)41480J(TM$)01480T(TM$)1630,1950,2600,2530^:5:"NEW CUSTOMER DETAILS"h::"ENTER DETAILS AS RTO"$"'BRIGHT COMMUNITY OFFICE'"5(4);"PR#0";Z2370: DISC WRITE ROUTINE`5:"BRIGHT COMMUNITY OFFICE""ACCOUNT WRITING PROGRAM":T11000:T:5:"YOU HAVE FOUR OPTIONS:" :"1. ENTER NEW CUSTOME IWZA$(7)"0"5(A$(6)"0":A$(5)"0"D2A$(5)(W)S<ZZ(PM$)aFA$(6)PM$pPA$(7)(Z)~ZZ01400d"TOTAL NOW DUE ",,"$";Zn1420x"ACCOUNT IN CREDIT ",,"$";(Z)1450::"PLEASE MAKE CHEQUES PAYABLE -------------------------------">~"QTY DETAILS",,"COST"Dj14);"ACCOUNT RENDERED $";A$(7)p{I1AW$(I);" ";X$(I),,Y$(I)I19);"LESS PAYMENTS ";PM$::Z(A$(7))I1AZZ(Y$(I))"DATE: ";HH$,,"BRIGHT SCHOOL"-,,"BOX 30"T"CUST. CODE: ";J$,,"BRIGHT 3741"n,,"TEL: 057 55 1166"v:$10);"TO: ".13);A$(1)813);A$(2)B13);A$(3)L13);A$(4)V::`"NOTATION: ";G$j t"-------------OST"zI1A*W$(I);" ";X$(I),Y$(I)1I9:O"TOTAL NOW DUE "x"WHEN PRINTER IS READY HIT ANY KEY"X(16384):X12797095016368,0:(4);"PR#2""B R I G H T C O M M U N I T Y O F F I C E":% "LIST TOTAL AMOUNT OF PAYMENTS"8 "XX.XX $";PM$> I A$(1)T A$(2)_ *A$(3)j 4A$(4)r >: H"ACCOUNT RENDERED $";A$(7) R:"ACCOUNT NOTATION ";G$ \: f"----------------------------------"p"QTY DETAILS ","C" ------------------------":600. S 10:"COST = $ (XX.XX) ";Y$(I)[ :} W$(I);" ";X$(I);" ";Y$(I) :"CORRECT? OR " N$:N$"N"520  I  "WERE ANY PAYMENTS MADE? Y OR N ";QP$ QP$"N"ī780INE ";I % "QTY XXX ";W$(I)9 &(W$(I))3590[ 0"ENTRY MUST BE 3 CHARACTERS"w :"RE-ENTER IN FORM 000" D540 N X8:"DETAILS ";X$(I) b(X$(I))23650 l"LINE TOO LONG. 23 SPACES MAX." v"RE ENTER YOUR DETAILS"( 8:OUNT RENDERED $";A$(7)5 :"ACCOUNT NOTATION ";G$^ :::"CORRECT SO FAR? OR "f H$w H$"N"ī270 :"PRINT DETAILS OF ACCOUNT NOW" :"HOW MANY LINES?" A NUM0A1 IL(NUM)NUM1 NUM I1A  "L" :14:"STATEMENT PREPARATION"E :"ENTER DETAILS AS REQUIRED"c ":"ACCOUNT NOTATION ";G$k ': ,"STATEMENT DATE DD/MM/YY ";HH$ 6 @"ACCOUNT DETAILS" J: TA$(1),"DATE ";HH$ ^A$(2) hA$(3) rA$(4) |: "ACC 2300d::255$nA(35)/xI(30);W$(30)GX$(30)SY$(30)_IL(30)kA$(10)x::255:5"BRIGHT COMMUNITY OFFICE":" STATEMENT WRITER ":" PROGRAM"T11000:T:1530:         00,490,1440,1600G2$:480(565X:3:14);"C A T A L O G":240:216,0:465d:565y510:216,0:465:3:7);"S A V I N G A F I L E":9:"WHAT IS THE NAME OF THE FILE?"::"> ";B$:PR%(2)1DR1:520C:"WHICH DRIVE? ";Y$:6"DO YOU WANT TO:":"1. PRINT THE DOCUMENT?":"2. EDIT THE DOCUMENT?":"3. SAVE THE DOCUMENT ON DISK?":"4. CATALOG?""5. USE THE PROGRAMME FOR ANOTHER FILE?":"6. END THE PROGRAM?""(TYPE 1, 2, 3, 4, 5, OR 6)";D:D(D):D1460,570,5:DR1DR2ĺG2$:"INVALID DRIVE NO.":410f:10:"** READING ";B$;" **"::4);"IN DRIVE ";DR:X1D$;"OPEN";B$;",D";DRD$;"READ";B$LA$(X):A$(X)E$445XX1:435D$;"CLOSE"216,0LML10:L79P4:465P3w90:X1L385"|:XX1:3604110:D0380?:360M150:375nBY:80:EP1:A$(X1)E$:570:3:7);"R E A D I N G A F I L E":8:"WHAT IS THE NAME OF THE FILE?"::"> ";B$:PR%(2)1DR1:415*:"WHICH DRIVE? ";Y$:DR(Y$))79ĺG2$:320JL(Y$)@O12:25:L:LML10:L79P4:345HTP3aYI11000:::H2:6o^X1:400wc85h13537,0:L$;"#";X:105:A$(X):EC:A$(X)E$Ĺ216,0:BY:465mA$(X)"EDIT"A$(X)E$:EP1:216,0:BY:570r(A$(X),1)Z$395$"Y"405,Y$"N"310'1G2$:2956:216,0:3:7);"E N T E R I N G T E X T":6:"LINE LENGTH:"::"MAXIMUM - 79";20);::"DEFAULT ";L::;"MINIMUM - 39"@12:"WHAT IS YOUR CHOICE?";25);L:12:25:"";Y$:Y$""335E(Y$)39(Y$155 70R:6:"PUT THE DISK YOU ARE USING FOR FILING":"IN DRIVE ";PR%(2):"DO YOU WANT TO CATALOG THE DISK? ";Y$:Y$(Y$,1):Y$"N"295Y$"Y"ĺG2$:275"240::8:280 ':8:"IS THE DOCUMENT ON FILE ON DISK? ";Y$:Y$(Y$,1):YL1;"N" :PR%(3)0D$;"PR#";PR%(0)6NPR%(2)1DR1:250:"WHICH DRIVE? ";Y$:DR(Y$):DR(DR):DR1DR2ĺG2$:"INVALID DRIVE NO."::245:3:4);"C A T A L O G - D R I V E ";DRD$;"CATALOG,D";DR155: ET UP":"PRINTER PARAMETERS."::"SAVE THIS FILE FIRST":20:"PRESS RETURN";Y$:::4654928016PR%(0),128:I120:V(49345256PR%(0))::V25420523:10::"TURN THE PRINTER ON"::I15000::195:PR%(3)D$;"PR#";PR%(0)I$;IVV25:XX(I)::IVV25:X1X1(I)::XX1190k X(V5):X1(V7):PR%(1)0::X72X172PR%(1)1 X56X124PR%(1)2 X24X156PR%(1)3 PR%(1)ıW:5:"THERE IS NO APPLE I/O CARD":"IN SLOT #";PR%(0)::"GO BACK TO MENU AND S1X11:X12145 125b :IN:U$;"LINE TOO LONG";:NM:" LINE NOW READS -";G$;L$::A$(X): :IN:U$;"RETYPE THE LINE";L$:NM:D1: A$(X)SP$(A$(X),2): V(16384):V127VV128:16368,0: 1555 V49152256PR%(0):X0:X10:13184:X1(13312):_ iS$;:D1L1I2:F$;::":";:D1I2:F$;:::M(37):MMP:37,M:: nD0:X1L(A$(X),1)S$A$(X)(A$(X),(A$(X))1):90:110 sX1Lı xX1L((A$(X))X1) }B$(A$(X),X1):(B$,1)S$A$(X)(A$(X),X11):140 X:6:"ERROR #";(222):20:"PRESS ANY KEY":155:275i K:12:11::"ARE ALL FILES SECURE";G2$;:Y$:: P:12::"ERROR #";(222)::"WE WILL GO TO 'EDIT' WHEN YOU PRESS":"A KEY":155:216,0: U13536,LI2: ZTE$A$(X) _(TE$)0X10: d2823:IN931:NM935) D$;"BLOADP.3,D1"> #D$;"BLOADA48/5"T (D$;"OPEN STATUS"j -D$;"READ STATUS" 2I03:PR%(I): 7D$;"CLOSE" <216,0:270 A:6:"PUT THE WORD PROCESSOR DISK IN DRIVE 1":20:"PRESS RETURN WHEN READY ";Y$::54 FW)"24576:175,0:176,96:216,0 TE$"":D$(4):L79:W$(23):Z$(26):F$".":S$(32):E$"END":G$(7):G2$(7)(7):I$(9):EH$(1):Q$(34):L$(19):U$(18)I28:SP$Z$:D1I2:SP$SP$S$:255:A$(200),PR%(3) HM897:EC891:BY846:H           IS ";PR%(3)RV"(MAX. 255; MIN. 1)"::"NO. OF DISK DRIVES ";PR%(2):"(MAX. 2)"`::"IS THIS CORRECT ";Y$:Y$(Y$,1):Y$"Y"1150jY$"N"1120t1160~710:100:770:1120PR%(0)1:990PR%(0)1PR%(1)1PR%(1)3PR%(1PRINTER INTERFACE CARD":1090FX22ĺ"SERIAL INTERFACE CARD":1090w$X23ĺ"COMMUNICATIONS INTERFACE CARD":1090.PR%(0)610108:"THERE IS NO APPLE I/O CARD RESIDENT":1180B:"LOCATED IN SLOT #";PR%(0) LPR%(1)X2::"PRINTER SPEED $)):PR%(1)1PR%(1)3ĺG$:960,::770TPR%(0)1:216,0:PR%(3)255:PR%(2)1]540lXX11030PR%(0)PR%(0)1:PR%(0)61080990640::2:10);"P A R A M E T E R S":6:"THE PRINTER IS CONNECTED TO A":X21ĺ"A PARALLEL L PRINTER CARD";:940::"SERIAL INTERFACE CARD";:940X:"COMMUNICATIONS CARD";" CORRECT? ";Y$:Y$(Y$,1):Y$"Y"ıY$"N"ġ:4:81010:"1. PARALLEL CARD":"2. SERIAL CARD":"3. COMMUNICATIONS CARD"::"WHICH? ";Y$:PR%(1)((Y503>(Y$)1(Y$)255ĺG$:"1 TO 255 ONLY":820DHPR%(3)(Y$)WR7:20:PR%(3)\9:"NO. OF DISK DRIVES";20);PR%(2):9:20:"";Y$:Y$""890f(Y$)1(Y$)2ĺG$:"1 OR 2 ONLY":860pPR%(2)(Y$)z9:20:PR%(2):"PARALLED$;"CLOSE"216,0:\3:"PRINTER SLOT #";:20:PR%(0):3:20:"";Y$:Y$""800 (Y$)1(Y$)6ĺG$:"1 TO 6 ONLY":770PR%(0)(Y$) 3:20:PR%(0)*PR%(1)910,920,93047:"PRINTER SPEED";20);PR%(3):7:20:"";Y$:Y$""8:ITT25DXX(I)N,XITT25;bX1X1(I)AlGvTX(T5)bX1(T7)kX20X72X172X21X56X124X22X24X156X231240D$;"OPEN STATUS,D1"D$;"WRITE STATUS"I03:PR%(I):B$:X(((Y$))):Y(((Y$)))8:PR%(2)1DR1:500"WHICH DRIVE? ";Y$:DR((Y$)):DR1DR2ĺG$;"INVALID DRIVE NO."::490IXYD$;"DELETE";F$;" P.";I216,0:320TEST FOR PRINTER&T49152256PR%(0)0X0:X10 6,0:::B:"WHAT IS THE NAME OF THE SERIES OF":"FILES? ";F$:"WHAT PAGES ARE THERE TO BE DELETED?"::"TYPE THE FIRST PAGE, THEN A COMMA AND":"THEN THE LAST PAGE."::"IF THERE IS ONLY ONE PAGE, TYPE THE":"SAME NUMBER TWICE.":"> ";Y$,(TYPE 1, 2 OR 3) ";Y$:X(((Y$)))5 X450,430,90E G$;G$:400 :"SEE THE DISK SYSTEM HANDBOOK FOR":"EXPLANATION OF THE DISK COMMANDS."::"TO RESUME OPERATION TYPE 'RUN',":" - WITH THE WORD PROCESSOR DISK IN":"DRIVE 1." 216,0: 21R ^D$;"CATALOG,D";DR: h(16384)127Ĺ16368,0:380C r360 |:"DO YOU WANT TO:":"1. DELETE A SERIES OF FILES PRODUCED BY":" THE PAGE MAKER PROGRAM?"::"2. OPERATE OF ANY OF THE FILES?" :"3. CONTINUE WITH ONE OF THE PROGRAMS?"# "$;"RUNLIST JOINER,D1"4 "D$;"RUN LETTER WRITER,D1"R ,D$;"RUN PAGE PRINTER,D1"e 6D$;"RUNSD,D1"} @PR%(2)1DR1:340 J:6:"WHICH DRIVE? ";Y$:DR((Y$)):DR1DR2ĺG$;"INVALID DRIVE NO.":330 T:3:3:"C A T A L O G - D R I V E ";DSING THE":".";Y$:X(Y$)0 1240f X((X)):X0X7ė:12::14:"WAIT FOR DISK": X250,260,270,290,300,310,320,1170,440 G$;G$:100 D$;"RUN WORD PROCESSOR,D1" D$;"RUNFILE JOINER,D1" D$;"RUNPAGE MAKER,D1" DE JOINER" "3. PAGE MAKER"6 "4. LETTER WRITER"M "5. PAGE PRINTER"p "6. STANDARD DOCUMENT WRITER" "7. CATALOG" "8. PRINTER & DISK PARAMETERS" "9. END PROGRAM"% :"SELECT FROM THE MENU BY TYPING A":"NUMBER 1 - 9 AND PRES :255:216,0/D$(4):G$(7):PR%(3)DD$;"NOMONI,O,C"N(980g2D$;"OPEN STATUS,D1"}<D$;"READ STATUS"FI03:PR%(I):PD$;"CLOSE"Z216,0d:4:7);"APPLE WORD PROCESSOR MENU"n6:"1. WORD PROCESSOR" x"2. FIL     )$.`@9()%q`@9()%q_n7]ŠĠΠ̠ٮӠԠŠԠſHa@@p()a(ӠŠ̠էŠǠƠ)GUVWM`@*#r9@*#r%a()GYca@*rGS()&@`7;@r$na@ xa@F0R@`@*#r9()$TTh]נŠΠϠˮҠӠԠĠϠϠϠƠŠӠӬҠƠŠӠϮa@Jca@GS()&@q`7;@r$@p@*#r`@:()@:(m_]]]Ӻ]Ԡ٠]ŠҠî]],dq]ŠӠŠ͠    ӠǠҍ̠ԠٍΠԍԠàSSOR DISK IN ":" DRIVE 1 AND SHUT THE DRIVE DOOR ":::"PRESS RETURN WHEN READY";Y$_440D:460z:8:"IF THE WORD PROCESSOR DISK IS NOT IN":"DRIVE 1, PLACE IT THERE NOW."::"PRESS WHEN READY.";Y$D$;"RUN MENU, D1":8:"ERROR #";(222):22:"PRESS ANY KEY":16384,128:16368,0::70V:8::" PLACE THE WORD PROCE1 JP1Z4:350 TZ1B ^JZY:A$(X)X$(J):XX1::XX1: hXX1::11:"WRITING ";F$(0):"********";:J1(F$(0)):"*";:: rD$;"OPEN";F$(0);",D";DR%(0) |D$;"WRITE";F$(0) L2 K1X:Q$;A$(K);Q$::0 D$;"CLOSE"216,02ĺ"INVALID DRIVE NO."::220& X11 K1Iv :11:"READING ";F$(K):"********";:J1(F$(K)):"*";:::Y1 D$;"OPEN";F$(K);",D";DR%(K) D$;"READ";F$(K) L1 "X$(Y):X$(Y)E$ĄP:310 ,YY1:290 6D$;"CLOSE" @L1L2L2LJ):PR%(2)1DR%(J)1:200m :"WHAT DRIVE? ";Y$:DR%(J)(Y$):DR%(J)1DR%(J)2ĺ"INVALID DRIVE NO.":190u : :8:"WHAT IS THE NAME OF THE NEW FILE?"::"> ";F$(0):PR%(2)1DR%(0)1:230 :"WHAT DRIVE? ";Y$:DR%(0)(Y$):DR%(0)1DR%(0)4,128:16368,0::70V :8:"HOW MANY FILES ARE TO BE JOINED?";I:I(I):I20I20k I2Ĺ216,0:420 :3:"FILES MUST BE NAMED IN THE ORDER":"THAT THEY ARE TO APPEAR IN THE NEW":"FILE." 9:J1I:"WHAT IS THE NAME OF FILE#";J::"> ";F$(TO CATALOG THE DISK? ";Y$:Y$(Y$,1):Y$"N"150@ PY$"Y"100H Z70` dPR%(2)1DR1:120 n:"WHICH DRIVE? ";Y$:DR((Y$)):DR1DR2ĺ"INVALID DRIVE NO.":110 x:3:3);"C A T A L O G - D R I V E ";DR D$;"CATALOG,D";DR 1638` 216,0:450WD$(4):A$(400),X$(200),F$(20),PR%(3),DR%(20):E$"END":Q$(34)pD$;"OPEN STATUS,D1"(D$;"READ STATUS"2I03:PR%(I):<D$;"CLOSE"A:10:"PUT THE DISK WITH YOUR FILES IN":"DRIVE ";PR%(2)0 F14:"DO YOU WANT      ŠҍĠ̍ϧ̠ōĠ89`6`$`P" PUT THE WORD PROCESSOR DISK IN ":" DRIVE 1 AND CLOSE THE DOOR ":::"PRESS RETURN WHEN READY";Y$:770Y$:770WHEN READY";Y$:770770NO($`,NO($`,(,ɈC0H :hɢ`667 THERE NOW AND THEN":"PRESS ";Y$?D$;"RUN MENU,D1" :8:"ERROR #";(222):22:"PRESS ANY KEY":16384,128:16368,0::14:100:8:"ERROR #";(222):22:"PRESS ANY KEY":16384,128:16368,0:216,0:780 :10:100m*:10::"""":"":CC3&Q$;A$(R);Q$DA$(R)"END"FL1:1:720ZCL1RR1:710oRR1:CC1:670}"END":1D$;"CLOSE"FL1Ĺ216,0:750PP1:570810):10:"IF THE WORD PROCESSOR DISK IS NOT IN":"DRIVE 1, PUT IT:I1(B$):"*";:: DSP$""NC0:P$"Y"H1$"PAGE "(P):X1LM(H1$)(H$)1:D1X1:SP$SP$S$::B$H$SP$H1$:610XB$(7)"- "(P)" -"bD$;"OPEN";F$;" P.";P;",D";DR%(1)lD$;"WRITE";F$;" P.";PvLMP1ĺQ$;B$;Q$:660":460216,0:790R:12:"READING ";N$:"********";:I1(N$):"*";::ZR1xD$;"OPEN";N$;",D";DR%(0)D$;"READ";N$LMA$(R):A$(R)"END"550RR1:530&D$;"CLOSE"0R1:FL0::12:B$"WRITING PAGE "(P):B$CH DRIVE? ";Y$:DR%(0)((Y$)):DR%(0)1DR%(0)2ĺ"INVALID DRIVE NO.":430:8:"WHAT IS THE NEW SERIES OF FILES TO":"BE CALLED?"::"> ";F$PR%(2)1DR%(1)1:470:"WHICH DRIVE? ";Y$:DR%(1)((Y$)):DR%(1)1DR%(1)2ĺ"INVALID DRIVE NO.:(H$)30ĺ"":::22:16:" TOO LONG "::11:360D r0:0:1002q |:H$::"CORRECT? ";Y$:(Y$,1)"Y"400 :11:350 H$(18)H$ :8:"WHAT IS THE NAME OF THE FILE TO BE":"PAGENATED?"::"> ";N$ PR%(2)1DR%(0)1:440K:"WHI DO YOU WANT PAGE":"NUMBERING TO START? ";P:P((P)) @:10:"DO YOU WANT A HEADING ON EACH PAGE? ";P$:P$(P$,1):P$"Y"350 JP$"N"410 T"":320 ^50954 h:"TYPE IN YOUR HEADING. IT SHOULD BE":"NO MORE THAN 30 CHARACTERS"::"> ";H$SPECIFIED NUMBER OF LINES?"::"(1, 2, 3 OR 4) ";Y$:L((Y$))U L270,280,290,250d :10:220 :::"HOW MANY LINES PER PAGE? ";Y$:L((Y$)):L10ė:10:220 300 L51:300 L62:300 "L71 ,L(LS)6 6:10:"AT WHAT NUMBER28:16368,0::8:100 750o :8:"DO YOU WANT THE FINAL PRINTOUT IN":"SINGLE OR DOUBLE SPACING? ";Y$ (Y$,1)"S"S1:220 (Y$,1)"D"S2:220 180> :"WHAT PAPER SIZE DO YOU WANT?":"1. QUARTO?":"2. A4?":"3. FOOLSCAP?":"4. THE DISK? ";Y$:Y$(Y$,1):Y$"N"Ĺ216,0:180= nY$"Y"130E x90] PR%(2)1DR1:150 :"WHICH DRIVE? ";Y$:DR((Y$)):DR1DR2ĺ"INVALID DRIVE NO.":140 :3:3:"C A T A L O G - D R I V E ";DR D$;"CATALOG,D";DR 16384,1  216,0780KD$(4):A$(400),PR%(3),DR%(1):S$(32):Q$(34)d2D$;"OPEN STATUS,D1"z<D$;"READ STATUS"FI03:PR%(I):PD$;"CLOSE"Z:8:"PUT THE DISK WITH YOUR FILES":"IN DRIVE ";PR%(2):14- d:"DO YOU WANT TO CATALOG      0,2370.G2$:990811005B1110:216,0:990rL216,0:10:"ERROR #";(222):20:"PRESS RETURN";Y$:990VPR%(2)2DR1:1130`:"WHICH DRIVE? ";Y$:DR((Y$)):DR1DR2ĺG2$:"INVALID DRIVE NO."::1120j:3:4);"C A T A L O G - $)),A2420,2210,1160,1340,1080,850,2370:G2$:9903:"THERE ARE NO DATA IN THIS FILE":6:"DO YOU WANT TO:"::"1. ENTER ADDRESSES;":"2. CATALOG;":"3. SELECT A NEW FILE;":"4. END THE PROGRAM."$:"WHICH? ";Y$:A((Y$)):A1160,1080,85;Y$:850340)216,0::RN010503:"DO YOU WANT TO:"::"1. PRINT A LETTER;":"2. PRINT ADDRESS LABELS;":"3. ENTER ADDRESSES;":"4. EDIT A LIST;""5. CATALOG;":"6. SELECT A NEW FILE;":"7. END THE PROGRAM.":"WHICH? ";Y$:A((Y880A216,0:10:"ERROR #";(222):20:"PRESS RETURN ";Y$:880:8:"WHAT IS THE NAME OF THE FILE YOU WANT TO OPERATE ON?"::"> ";F$(2)960300:380:980(222)5RN0:400:980216,0::3:"ERROR #";(222):22:"PRESS RETURN"2Ģ10:"INVALID DRIVE NO.";G$:I12000::860f:8:"PUT THE DISK WITH YOUR FILES IN":"DRIVE ";DR%(0):20:"PRESS RETURN ";Y$p:8:"DO YOU WANT TO CATALOG THE DISK? ";Y$:Y$(Y$,1):Y$"N"930zY$"Y"ĺG2$:8809201110:216,0:810:A$(I)B$% :A$(6)(A$(6),7):S*B$"":X1(Y$):K1X1:((Y$,K))33830g4B$B$(Y$,K,1)o>:H:12::14:"WAIT FOR DISK"::RPR%(2)2DR%(0)1:870/\:8:"WHICH DRIVE ARE YOUR FILES IN? ";Y$:DR%(0)((Y$)):DR%(0)1DR%(0)255:-PREPARE SURNAME, CODE, POSTCODE=X1(A$(6))KX13750I((A$(6),1)):I65I90A$(6)(A$(6),X11):720X11780(A$(6),X1,1)" "X1X11:A$(6)(A$(6),X1):780X1X11:750 I46:A$(I)""800 Y$A$(I):R%(1)0:X72X172PR%(1)15X56X124PR%(1)2NX24X156PR%(1)3\PR%(1)ı:5:"THERE IS NO APPLE I/0 CARD":"IN SLOT #";PR%(0)::"GO BACK TO MENU AND SET UP":"PRINTER PARAMETERS.":20:"PRESS RETURN ";Y$::2370D$;"PR#0":10::"TURN THE PRINTER ON"::K15000::540>0:PR%(3)S:D$;"PR#";PR%(0)aDI$;"80N"gNuX:PR%(3)bD$;"PR#";PR%(0)lvV49152256PR%(0):X0:X10:KVV25:XX(K)::KVV25:X1X1(K)::XX1680X(V5):X1(V7):PI:14:"";Y$:(Y$)0Ģ32I:15:A$(I):500G (Y$,1)S$Y$(Y$,2)Y 510:A$(I)Y$c ::r (Y$)0ı TE$Y$:13184:X1(13312):X1LLY$(Y$,(Y$)1):510  4928016PR%(0),128:K120:V(49345256PR%(0))::V2545600&23 |D$;"READ";F$(2);" (L),R0"' RN:G D$;"WRITE";F$(2);" (L),R0"Q RN:b DISPLAY S/Rm HM:3 I05:Y$,LL:U$;Y$;L$;13);A$(I):::: K1LL:".";::: HM:CORRECTION S/R, I05:Y$,LL:32I:U$;Y$;L$;15);A$(I):32140! 216,0:13565,0:13536,40/ 630:850H "ADDRESS READ, WRITEr ,D$;"OPEN";F$(2);" (L),L128,D";DR%(0)x 6 @D$;"READ";F$(2);" (L),R";R JK06:A$(K):: TD$;"CLOSE" ^ hD$;"WRITE";F$(2);" (L),R";R rK06:Q$;A$(K)::STATUS" D$;"READ STATUS"2 I03:PR%(I):B D$;"CLOSE"H [ D$;"DELETETR" 216,0:DR%(0)1ė:8:"PUT THE DISK WITH YOUR FILES IN":"DRIVE 1":20:"PRESS RETURN ";Y$ 13565,0:13536,40:940 D$;"CLOSE" D$;"DELETETR" 4,"ADDRESS",24,"CITY, STATE",24,"POSTCODE",6,"CODE",10 H F216,0:240Y PD$;"OPENTR"j ZD$;"READTR" dF$(2):DR%(0):S%(0):S%(0)0120 nI1S%(0):S%(I): xD$;"CLOSE" 160:210 D$;"BLOADA48/5,D1" D$;"BLOADP.3" D$;"OPEN~' 24576:175,0:176,96&TE$""lA$(6),T$(0,5),F$(2),PR%(3),S%(500),DR%(2),R%(10):D$(4):I$(9)(G$(7):G2$(7)(7):S$(32):Q$(34):FF$(12)2HM897:EC891:BY846:H2823:IN931:NM935:L$(19):U$(18)7 <"SALUTATION",12,"NAME",2               ٬Š٧)a(ΧŠӠԩ)WBa(ƠɠϠԠӠԠҠ̠Ӭ)a(ɠ̠ˠՠנӠϠ)6La(ԠŠɠ̠נԠҠ)a(Ӯ)cQVa(ϠՠԠŠϠԠǬ)a(ŠՠԠŠ$dg$ca(Ӻ)ca(ՠ̠ˠƠΠ̬Ġɠ)a(٠ϠӠԠ̠ՠ)U.a(ǠƮɠ̠ϠӠ٠)a(ՠӠƠӠԠ)r8a(̬ϠȠՠĠ)a(ӠҠϮԠƤŠԠŠҢӠҠ͠ӠϠӮ]a(LJҠŠ٠Ԡ)a(ŠĠΠҠϠ٠)a(š)moa(̠ǠŠ)ca(ŠՠҠĠſ)GR@`;@r%`@*#r9()Ŭ)@p(ŠŬ)@p()@p(ΠŬ̸)a@v]ŠŠӠŠԠϠԠŠ٠ĠϠԠǠҠΠŠŠŠήźq]ҠΠԠĤĠŬҢŠ] ] ]ĺ ]a(ΠɬϬ)^KM6N@"FrC@"FrC@"FrC@"FrC@"rC@"rC@" rC@"rC@"(rf@p(Ġ]͠ӠӠ ]ԠӠӠ ]͠ŠҮ ] ]͠Ӻ ]ˠ٬ˠɠ ] ]ҮΠ )FE(ӡ)_> ]ɠԠԠԡ*UVW cY4a(ɠԠԠԡ)>>cS(ԠϠ٠ο)&@`;@r%`@*#r9()%Q_d ] ] ]̺ 5qqbE()Fa@FR@TTa@F*a@`@9()$bb_bba@F$a@`@9()$bb_bb a@Fa@a@(a(ɠננ)E@*ra(Ġ)E@*rG-DS()&@`@*;@rr9()%@p@*#;@rrkNca(ԠĠŠԠҠҠ)a@*rE(ſ)GR@@p@*#r`@:()@:()$NXa@ ba@Fl]ŠҠĮvT'a@F6@p@*#r`@:()@:()$`@9()$ ,]ɠΧԠנԠ̠ԠӬˠF&cca(̠ԬɠŠЮԠ̠)a(ՠǠƿ)G0@p()R@Brd:ca(ŠŠΠԠ)a(ȠΰӍӍĠōïŠčˠԍԍ X1:80 dD$;"CLOSE" iX12 nD$;"OPEN";F$E xD$;"WRITE";F$M }79s Q$;A$(X);Q$:A$(X)"END"ĺ0:150 XX1:130 D$;"CLOSE" :12:16:"FINISHED":22d  D$(4):A$(400):Q$(34)O:3:"FILE CONVERSION PROGRAM - 4.2 TO 5":~10:"WHAT IS THE FILE'S NAME?"::"> ";F$((F$)0Ā-X12:12::15:" WAIT FOR DISK ":<D$;"OPEN";F$FD$;"READ";F$PA$(X):A$(X)"END"100 ZX  aaaah$`) i>J&*J&'J&&ȱ>J&*J&'J̻&*)')3*)f>)JJJ`80|'x&Hh & 󸩪 󸩭 󸘠Y'&Yxꪽ' 󸩪 󸽎`Hh ($hhh :HLI:L$7+,L/:L8+0H :hɢLS74hHLM7 S7LI:ɛ3L70 4hHLM744hHLM744hHLM7L7LM744LM7H4LZ7H4L7  !``BC`54 544 544 5444`L6094844' 5 4 5 )4 44 54`4 5 4444 5 54L6444 5 4L64л44L5840L06JȠ4`ȴ)  ````4`4`i55j55 5TL"5 5444 5]5 5\54 54H4hL5 4hL5h 0A0X[TI L5^K4L5  L[54L54L5H4hL5>4L5 0 54L[5<4L5>4LܝN* this is t   :::::::,,5,,5,,5,,5,,5::********************************************************************************aaaaa aaaaaaa aaaaaaa aaaaaa aaaaaaa aaaaaa aaaaaa aaaaaaa aaaaaa aaaaa aaaaaaa ( aaaaa3 _]ӠŠ̠٬"H]Š٠ԠŠנ#R]ĠΠϠ \]Ԡ͠ҠӬ f]ŠŠ a@F a()_d"]]͠"]]]٬Ӡ]ӠŠŠƠ" ]٠ŠŮ#]ŠҠϠӠſ)XWa(ŠŧҠŠϠԠԠ)a(ŠĠРϠנҠƠϠŠ)4XS(ԠŠǠԺ)&@`@:()$d `a@F ja() ta@F*~a(ӠԠŠΠŠ)bb a@F a() ŠΠٍïĠ΍ԍee < (ȠA@JJJJ ?]> C F=M,T ,U HL TO CONTINUE.";Y$tD$;"RUN LETTER WRITER,D1":8:"PLACE A SHEET OF PAPER IN THE PRINTER":"AND PRESS RETURN. ";Y$::8:(222)5(222)41070$"ERROR #";(222)::1020".":X13:TE$A$(X):510:V1950A13567,0:13584:TB);TE$_:TE$A$(0):510:V197013567,0:13584::TB);"D";(101);(97);(114);" ";TE$;",":I0:Y1:J$"Y"Ĺ13565,1390360:1010:8U"IF THE WORD PROCESS1S%(0):RS%(X2):190:210:230:1040:880::1000afR1RN:190:210:230:1040:880::1000p13565,0:PR%(1)270,330,330:J1900zI0:Y0:390:TE$DA$:510:V193013567,0:13584:L(TE$)TB);TE$#A$(3)A$(3)", "A$(4)3,LM4:13564,L1::8:"PUT THE DISK WITH YOUR FILES IN":"DRIVE ";DR%(0):H"DO YOU WANT THE TEXT JUSTIFIED? ";J$:J$(J$,1):J$"N"J$"Y"830M14:"WHAT 'TAB' POSITION? ";Y$:TB((Y$)):TB0TB50ĺ"BETWEEN 0 & 50":845RSL18703\X2&" IS IN DRIVE ";DR%(I1);:" ";Y$e:12:"** READING ";F$(I1);" **"::"IN DRIVE ";DR%(I1)D$;"OPEN";F$(I1);",D";DR%(I1)D$;"READ";F$(I1) X0:L:LML10T$(I,X):T$(I,X)E$810 XX1:790*D$;"CLOSE"4L>1356"INVALID DRIVE NO.":670 H28:"WHAT IS THE DATE?";L$::"> ";DA$:HM:8:L$;DA$::U$;:"CORRECT? ";Y$:Y$(Y$,1):Y$"Y"ČBY:720HM:690DA$:BYIJ1:10:"PRESS WHEN THE DISK WITH YOUR":"LETTER";:I0ĺ"HEAD";2)1DR%(1)1:650i:"WHICH DRIVE? ";Y$:DR%(1)((Y$)):DR%(1)1DR%(1)2ĺ"INVALID DRIVE NO.":640:"WHAT IS THE FILE NAME OF THE LETTER?":"> ";F$(2):PR%(2)1DR%(2)1:680:"WHICH DRIVE? ";Y$:DR%(2)((Y$)):DR%(2)1DR%(2)2ĺ"2. SELECTED LIST."::"WHICH? ";Y$:SL((Y$)):SL1SL2570ID1080N:8:"DO YOU HAVE A LETTER HEAD ON FILE? ";Y$:Y$(Y$,1):Y$"N"J1:650XY$"Y"J0:620b590l:"WHAT'S THE FILE NAME OF THE LETTER HEAD?"v:"> ";F$(1):PR%(Z0Z0 Z); TE$+ II1:390C V0:(TE$)0V1:} (TE$,1)" "(TE$,1)Z$(TE$,1)L$(TE$,1)U$540  X1(TE$):X11TE$(TE$,X11):520 &V1: 0S%(0)1SL1:580>::8:"DO YOU WANT:"::"1. THE WHOLE LIST;":& |:12::14:"WAIT FOR DISK"::8 T$(Y,I)E$ı@ D0e B$(T$(Y,I),2):B$G2$D1:430y (B$,1)G$D2 TE$T$(Y,I):510:V1ĺ:500 13567,0:13584:TB);:D0490 D1ĺEH$;:Z(L.6(TE$))2:470 D2Z(L(TE$))2 RN:O 4928016PR%(0),128:K120:V(49345256PR%(0))::V254290 23:10::"TURN THE PRINTER ON"::K15000::270 ":PR%(3) ,D$;"PR#";PR%(0) 6I$;"80N" @ J:PR%(3) TD$;"PR#";PR%(0) ^ hD$;"PR#0" r255:FILES":"IN DRIVE 1.":20:"PRESS RETURN ";Y$L 190:250:230:216,0:560e ADDRESS READ, WRITE D$;"OPEN";F$(0);" (L),L128,D";DR%(0) D$;"READ";F$(0);" (L),R";R K06:A$(K):: D$;"CLOSE" D$;"READ";F$(0);" (L),R0"M935:L$(19):U$(18)" F1050: PD$;"OPENSTATUS,D1"P ZD$;"READ STATUS"e dI03:PR%(I):v nD$;"OPENTR" xD$;"READTR" F$(0):DR%(0):S%(0):S%(0)1150 I1S%(0):S%(I): DR%(0)2170- 230::8:"PUT THE DISK WITH YOUR Y !24576:175,0:176,96,TE$""m(A$(6),T$(1,100),F$(2),PR%(3),S%(500),DR%(2):D$(4):I$(9)2G$(7):G2$(7)(7):L79:LM69:W$(23):Z$(26):S$(32):EH$(1):E$"END":I28:Q$(34):FF$(12) <HM897:EC891:BY846:H2823:IN931:N     2,3 OR 4 ";TM$!@(TM$)414804J(TM$)01480TT(TM$)1630,1950,2600,2530u^:5:"NEW CUSTOMER DETAILS"h::"ENTER DETAILS AS REQUIRED"r:"CUSTOMER CODE ";J$|:"NAME: ";A$(1):"ADDRESS: ";A$(2):"ADDRESS: ";A$(3)HT COMMUNITY OFFICE"3"ACCOUNT WRITING PROGRAM";:LT11000:TRu:5:"YOU HAVE FOUR OPTIONS:":"1. ENTER NEW CUSTOMER DETAILS.:"2. PREPARE STATEMENTS":"3. CATALOG THE DISK"$:"4. QUIT",:6" ENTER 1,Z)ZZ01400-d"TOTAL NOW DUE ",,"$";Z7n1420[x"ACCOUNT IN CREDIT ",,"$";(Z)e1450o::"PLEASE MAKE CHEQUES PAYABLE TO""'BRIGHT COMMUNITY OFFICE'"(4);"PR#0"2370: DISC WRITE ROUTINE5:"BRIG I1A+W$(I);" ";X$(I),,Y$(I)18I>]19);"LESS PAYMENTS ";PM$g::vZ(A$(7))I1AZZ(Y$(I)) IWZA$(7)"0"(A$(6)"0":A$(5)"0"2A$(5)(W)<ZZ(PM$)FA$(6)PM$PA$(7)(:$10);"TO: ").13);A$(1)9813);A$(2)IB13);A$(3)YL13);A$(4)cV::x`"NOTATION: ";G$~jt"--------------------------------------------"~"QTY DETAILS",,"COST"14);"ACCOUNT RENDERED $";A$(7)T ANY KEY"%X(16384):X127970.950>16368,0:O(4);"PR#2""B R I G H T C O M M U N I T Y O F F I C E":"DATE: ";HH$,,"BRIGHT SCHOOL",,"BOX 30""CUST. CODE: ";J$,,"BRIGHT 3741",,"TEL: 057 55 1166" DETAILS ","COST" zI1A5(X$(I))12905J(X$(I))18906jW$(I);" ";X$(I),Y$(I):910W$(I);" ";X$(I),,Y$(I):910W$(I);" ";(X$(I),18),Y$(I)I:"LESS PAYMENTS ",,PM$:: "WHEN PRINTER IS READY HI QP$"N"ī7806 "LIST TOTAL AMOUNT OF PAYMENTS"I "XX.XX $";PM$O Z A$(1)e A$(2)p *A$(3){ 4A$(4) >: H"ACCOUNT RENDERED $";A$(7) R:"ACCOUNT NOTATION ";G$ \: f"----------------------------------"p"QTY DETAILS"9 8:" ------------------------":600? d 10:"COST = $ (XX.XX) ";Y$(I)l : W$(I);" ";X$(I);" ";Y$(I) :"CORRECT? OR " N$:N$"N"520  I  "WERE ANY PAYMENTS MADE? Y OR N ";QP$;I  "QTY XXX ";W$(I)6 !W$(I)"999"ī730J &(W$(I))3590l 0"ENTRY MUST BE 3 CHARACTERS" :"RE-ENTER IN FORM 000" D540 N X8:"DETAILS ";X$(I) b(X$(I))23650 l"LINE TOO LONG. 23 SPACES MAX." v"RE ENTER YOUR ED $";A$(7)* :"ACCOUNT NOTATION ";G$S :::"CORRECT SO FAR? OR "[ H$l H$"N"ī270 :"PRINT DETAILS OF ACCOUNT NOW" :"HOW MANY LINES OF DETAILS? " A NUM0A1 IL(NUM)NUM1 NUM I1A "LINE ""STATEMENT PREPARATION": :"ENTER DETAILS AS REQUIRED"X ":"ACCOUNT NOTATION ";G$` ': ,"STATEMENT DATE DD/MM/YY ";HH$ 6 @"ACCOUNT DETAILS" J: TA$(1),"DATE ";HH$ ^A$(2) hA$(3) rA$(4) |: "ACCOUNT RENDER#d::255nA(35)$xI(30)0W$(30)<X$(30)HY$(30)TIL(30)`A$(10)m::255v:5"BRIGHT COMMUNITY OFFICE":" STATEMENT WRITER ":" PROGRAM"T11000:T:1530: :14:       o #8:13:"A P P L E II"<10:15:"DOS 3.2.1"c12:8:"WORD PROCESSOR FILE DISK"m23:XRӠԠŠΠŠҍǍō !"ϠҍΠōԍà ԠȠï̠Ӎ٠ōԠӠԠԠˍԍ!"" Ġ٠ϠҢŠӠƠҠēӠĠҠԮГŠĢϓҠ˓ΠӠĠ٠ŠȓȠēԬҠŢԠƠҠҠҠǠӻǢԬӠĠΠŠ˓άĠ̢ǠӮϬӠԠӠӠΠĠ٠РӠЭϭŠȠӮדŠŠŠǠΠӠŠƠҠӬƢԬŠ˻Š̭ǠƠҠ˓ΠĠŠӢԠϠՠӠԠӠϠӡӢŠϠӠΠĮϓҠГŭӓ̠ҠӠ͓ӠӓדƬϠӠӠ٠ϢРŠēӠĠÓŠĠŠĠŮӓŠϢӠҠΠ٠ϠӠӠĢӸ̠ͮЮͮȠ٠Ƞԓ٠ĠƓ٠ӠԠŢҠΠӮ٠ԠǠϠӠǢǠҠΠȠŠēӠ͓ΠÓĩӠĠϠРŠӠϠ̠ŬĠӠĠ٠ĠҮГӠŠĠΠŠԠĠŠƠҢŠĠ٠ŠΠԠԠӠƢάӬӠîϓҠŠӠΠ͠ҠҠԢϓҠ˓ΠӠĠ٠ŠȓȠēԧӠēΠƢГŭӓ̠ÓĠēԮɓԠӠ͠Ơ٠ĠΠϠΠ͢   ΠŠ٠ӍĠԍԍ ӠԠŠ٠̍̍ӠԠԠ͠ӍĠ٠ϠҠŠӠƠҢēӠĠҠԮГŠĢӢϓҠ˓ΠӠĠ٠ŠȓȠēԬҠŠԠƠҠҠҠǢӻǠԬӠĠΠŢ˓άĠ̠ǠӮϬӢԠӠӠΠĠ٠ТӠЭϭŠȠӮדŠŠŠǢΠӠŠƠҠӬƠԬŢ˻Š̭ǠƠҠ˓ΠĠŠӢԠϠՠӠԠӠϠӡŢϠӠΠĮϓҠГŭӓ̠ҠӠ͓ӠӓדƬϠӠӢ٠ϠРŠēӠĠÓŠĠŠĢŮӓŠϠӠҠΠ٠ϢӠӠĠ̠ͮ͠ЮͮȠ٠Ƞԓ٠ĠƓ٠ӢԠŠҠΠӮ٠ԠǠϢӠǠǠҠΠȠŢēӠ͓ΠÓĩӠĠϠРŠӠϠ̠ŬĠӠĢ٠ĠҮГӠŠĠΠŢԠĠŠƠҠŠĠ٢ŠΠԠԠӠƠάӬӠîϓҠŠӠΠϵҠҠԢϓҠ˓ΠӠĠ٠ŠȓȠēԧӢēΠƠГŭӓ̠ÓĠēԮɓԠӠ͠Ơ٠ĠΠϢΠ͠! ! ! ! !!!ΠčҮ§ӠЍΠԍԍ!ӠԠΧӠԠčǍĠԍˠԍ͠ύӠԍٍҠҍ̠ͮГŠĢӢ٠˓ΠԠŠĠҮɓԠӢ٠ԠĠԠӠΠ٠Ԡ̠ӢԠΠŠΠŮɓԠӠŠ٠ƠŢԠϠРŠҠ٠Ԡ٢Ò͓٢͠Ġ͓٠ϠŠȠԢԓ͠ȠӓҠϠŠȠēҢŠˠŠӠ٠Š˓ΠӢĠȠҠҠŠԠƠˠĠǢˠĠԮŠƠŠ٠ƠŢӠϠԠ٠ӮԓŠӠƠҠΠԠԠŠĠҠͬǠΠŠŠƠŠĠĠŠҢƠӠҠˠĮ͠ԠƓ٠ϠŠȠЮͮРº͓٠Ġד٠ӮЮͮԓ٠ĠƓ٠ǮͮΓϠĠӠĠõΠӠĠӢדŠŠϠӠƠΠǠϠĠƢҠӠҠˮР͓٬ԓ٠Ġד٠Ǯͮԓ٠" " " " ""Ӡ̠ԍǠӮٍǍî"