!766#6#61A!QRB G0)WRBORB_RBW ,UB~ RBW!BB,~ !76{ 8_6 !7BS76B67QB~BN‡BN‡BN F(N ~(~6 { ~B6 !B~(#3BF ~>= ERRORNO SYS!766#6#61A!QRB G0)WRBORB_RBW ,UB~ RBW!BB,~ !76{ 8_6 !7BS76B67QB~BN‡BN‡BN F(N ~(~6 { ~B6 !B~(#3BF ~>= ERRORNO SYSPP PP PP PP H(PP P@#HP$A#($AP(@ wj:COPYRIGHT (C) 1979, INSTANT SOFTWARE, INC. (P) j16553,255:j 20000: DD$(22),DL$(22),N$(22),D(22),L(22),P(22),T(22),M$(12),P1(22,12),V(22),A(22),C$(22,12),V1(22)kP$"###,##.##"#k S,I,N,J,H,K,W`k N1 22:N$(N)"NOT ON FILE":DD$(N)" ":DL$(N)" ": NlM$(1)"JANUARY":M$(2)"FEBRUARY":M$(3)"MARCH":M$(4)"APRIL":M$(5)"MAY":M$(6)"JUNE":M$(7)"JULY":M$(8)"AUGUST":M$(9)"SEPTEMBER":M$(10)"OCTOBER":M$(11)"NOVEMBER":M$(12)"DECEMBER"#l )lSl15);"PERSONAL BILL PAYING - MENU"Yl(l2"1- ADD ACCOUNTS OR BUILD NEW FILE"l<"2- LIST ALL ACCOUNTS"lA"3- LIST CURRENT ACCOUNTS"lD"4- SAVE FILE ON DISK"lF"5- INPUT FILE FROM DISK"mK"6- PAY BILL",mP"7- ENTER NEW BILL"pmU"8- PAYMENT HISTORY OF INDIVIDUAL ACCOUNT WITH CHECK NUMBERS"mW"9- PAYMENT HISTORY OF SELECTED MONTH"mX"10- DELETE ACCOUNT FROM FILE"mY"11- DELETE PRIOR MONTH PAYMENT"n\C0::"ENTER YOUR CHOICE";CAn_ C1 C11 @896,"INPUT ERROR ": 92Gnbnd C 1025,2000,10000,4000,5000,6000,7000,8000,9000,3000,9500n: :"PRESS ENTER TO"n"ADD ANOTHER ACCOUNT":n"IF FINISHED TYPE 'DONE'";X$n X$"DONE" 1070ooN0: ::.o"ACCOUNT NUMBER (1-22)";NYo  N1 N22 :"INPUT ERROR": 1025fo @ 0," "loo@ 270,"***************"o@ 256,"";:"ACCOUNT NAME";N$(N)o$ 1000o.X$" ": 10op 0)"DATE DUE";10)"AMT DUE";24)"ACCOUNT";45)"LAST PAYMENT"jp0)"--------";10)"-------";20)"----------------";38)"-------------------------"zp N 1 22p 0)DD$(N);9)"";: P$;D(N);: 20)N;24)N$(N);39)"";: P$;L(N);: 51)"ON";55)DL$(N)pTTD(N)p N13 2060q NFq"-------------------------------------------------------------"aq"TOTAL ";: P$;Tiq:tq11020|qT0q 10q 11010qq0)"DATE DUE";10)"AMT DUE";24)"ACCOUNT";45)"LAST PAYMENT"0r0)"--------";10)"-------";20)"----------------";38)"-------------------------";r  2030Ur N0:::"ACCOUNT#";Nmr N1 N22 3000r "ACCOUNT#";N;"IS ";N$(N)r :"IS THIS THE CORRECT"r X$"":"ACCOUNT TO DELETE";X$r (X$,1)"N" 3100r (X$,1)"Y" 3050s :"INPUT ERROR": 3020bs DD$(N)" ":DL$(N)" ":N$(N)"NOT ON FILE":D(N)0:L(N)0:P(N)0:V(N)0s M1 12:P1(N,M)0:C$(N,M)" ": Ms :"ACCOUNT DELETED"s X$""::"ANOTHER DELETION";X$s (X$,1)"N" 3100s (X$,1)"Y" 3000t :"INPUT ERROR": 3070t 10&t:Ot:"MAKE PREPARATIONS FOR DISK SAVE"ot"WHEN READY PRESS ENTER";Xt:"COPYING..."t"O",2,"ACC/DAT"tN122t#2,V(N),D(N),L(N),P(N);","DD$(N);",";DL$(N);",";N$(N)tZZ112 u#2,P1(N,ZZ);",";C$(N,ZZ)uZZu N"u:9u:"COPY COMPLETE"\u"PRESS ENTER FOR MENU";X: 10eu: u"MAKE PREPARATIONS FOR DISK LOAD"u"WHEN READY PRESS ENTER";Xu:"INPUTING..."u "I",1,"ACC/DAT"u(1)5070uN122#v#1, V(N),D(N),L(N),P(N),DD$(N),DL$(N),N$(N)0vZZ112?v(1)5070Yv#1,P1(N,ZZ),C$(N,ZZ)avZZivN;qv Nv::"INPUT COMPLETE"v"PRESS ENTER FOR MENU";X: 10vpN0:: :"ACCOUNT #";Nvu N1 N22 6000wz"ACCOUNT #";N;"IS ";N$(N)-wX$"":"IS THIS THE CORRECT ACCOUNT";X$Fw (X$,1)"N" 6140_w (X$,1)"Y" 6040yw"INPUT ERROR": 6020w"AMOUNT DUE IS";: P$;D(N)wP(N)0:"AMOUNT OF PAYMENT";P(N)wDL$(N)"":"PAYMENT DATE(00/00/00)";DL$(N)xM0:"PAYMENT MONTH (1-12)";M(x M1 M12 6065OxC$(N,M)"":"CHECK NUMBER";C$(N,M)xX$"":"IS EVERYTHING CORRECT";X$: (X$,1)"N" 6040x (X$,1)"Y" "INPUT ERROR": 6069xP1(N,M)P(N)xD(N)D(N)P(N)xL(N)P(N)xDD$(N)" ":V(N)0$yX$"":"ANY OTHER BILLS TO PAY";X$=y (X$,1)"N" 6140Vy (X$,1)"Y" 6000py"INPUT ERROR": 6110yy 10yXN0:::"ACCOUNT #";Ny] N1 N22 7000yb"ACCOUNT #";N;" IS ";N$(N)ylX$"":"IS THIS THE CORRECT ACCOUNT";X$zv (X$,1)"N" 7100*z{ (X$,1)"Y" 7050Dz"INPUT ERROR": 7020pzDD$(N)"":"DATE DUE (00/00/00)";DD$(N)zV$(DD$(N),2)(DD$(N),2)(DD$(N),4,2)zV(N)(V$)zD(N)0:"AMOUNT DUE";D(N){X$"":"IS EVERYTHING CORRECT";X$: (X$,1)"N" 7050/{ (X$,1)"Y" "INPUT ERROR": 7065X{X$"":"ANY OTHER BILLS TO ENTER";X$q{ (X$,1)"N" 7100{ (X$,1)"Y" 7000{"INPUT ERROR": 7070{ 10{@N0:: ::::"ACCOUNT #";N{E N1 N22 8000$|FX$"":"PAYMENT MADE THIS MONTH";X$: (X$,1)"N" 8009O|G (X$,1)"Y" "INPUT ERROR": 8006|HG0:"WHAT IS CURRENT MONTH(1-12)";G: G1 G12 8008 : 8010|IG0:"WHAT WAS LAST MONTH(1-12)";G: G1 G12 8009 }J:"PRIOR 12 MONTHS PAYMENTS FOR ACCOUNT #";N;" ";N$(N)T}T"- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -"}^ RG12 G1 1:MR: M12 MM12}`K$"# "}c P1(N,M)0 K$" "}h M$(M);: 25)" ";: P$;P1(N,M);:48)K$;50)C$(N,M)}rT1T1P1(N,M)}| R ~ 5)"TOTAL";25)" ";: P$;T1a~X$"":T10:11010::"DO YOU WISH TO SEE ANOTHER ACCOUNT";X$z~ (X$,1)"N" 8110~ (X$,1)"Y" "INPUT ERROR": 8080~ 8000~ 10~(#: ~2#:"WHAT MONTH WOULD YOU LIKE"<#M0:"TO EXAMINE (1-12)";MF# M1 M12 9010RP#: " PAYMENT HISTORY FOR MONTH OF ";M$(M)tZ# 5)"ACCOUNT"; 31)"PAYMENT"d#"- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -"n# N1 22x# 0)N; 5)N$(N); 27)" ";: P$;P1(N,M)#TZTZP1(N,M)# N12 9170"# Ng#"- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -"# 5)"TOTAL";27)" ";: P$;TZ#TZ0π#X$"":11010::"DO YOU WISH TO SEE ANOTHER MONTH";X$怹# (X$,1)"N" 10# (X$,1)"Y" "INPUT ERROR": 9140# 9000'#11010\#:" PAYMENT HISTORY FOR MONTH OF ";M$(M)}# 5)"ACCOUNT";31)"PAYMENT"#"- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -"́# 9110%N0:::"ACCOUNT #";N&% N1 N22 95000%"ACCOUNT #";N;"IS ";N$(N)M:%X$""::"IS THIS THE CORRECT ACCOUNT";X$dD% (X$,1)"N" 10I% (X$,1)"Y" "INPUT ERROR": 9530N%M0:"MONTH TO DELETE (1-12)";M܂S% M1 M12 "INPUT ERROR": 9550X%X$"":"IS MONTH CORRECT";X$b% (X$,1)"N" 9550Ag% (X$,1)"Y" "INPUT ERROR": 9560[l%C$(N,M)" ":P1(N,M)0tv%"DELETION COMPLETE"%X$"":"ANOTHER ACCOUNT TO CORRECT";X$% (X$,1)"Y" 9500ハ% (X$,1)"N" "INPUT ERROR": 9600샔% 10 ': :::"SORT OF ACCOUNTS" '"BY DATE DUE"<'"NOW IN PROGRESS....."K' N1 22V.'A(N)Ne8'V1(N)V(N)mB' N{L'W22:H22V'WW2[' W0 10170`'J1:KHWe'IJj'SIW҄t' V1(I)V1(S) 10140~'EV1(I):V1(I)V1(S):V1(S)E'QA(I):A(I)A(S):A(S)Q'IIW*' I1 101406' 10090@'JJ1R' JK 10070^' 10085':0)"DATE DUE";10)"AMT DUE";24)"ACCOUNT";45)"LAST PAYMENT"'0)"--------";10)"-------";20)"----------------";38)"-------------------------" ' I1 22'NA(I)*' V1(I)0 10200' 0)DD$(N);9)"";: P$;D(N);: 20)N;24)N$(N);39)"";: P$;L(N);: 51)"ON";55)DL$(N)'CCCC1'T2T2D(N)' CC11 10320†' I '"---------------------------------------------------------------"%'"TOTAL ";: P$;T20'11020>'T20:CC0G' 10RP(11010XZ(d(: 0)"DATE DUE";10)"AMT DUE";24)"ACCOUNT";45)"LAST PAYMENT"n( 0)"--------";10)"-------";20)"----------------";38)"-------------------------"x( 10200)@::HK2: 5040/*BQ$:BQ$""110005*r+"Press 'SPACE BAR' to continue or 'P' to Print";:11000+BQ$"P"ʑ11050+ψ +"Press 'SPACE BAR' to return to menu or 'P' to Print";:11000܈+11012:*+A%64:P%096064:11060:AN$::N4+AN$" ":(AN$),A%:(AN$)2,(P%256)60:(AN$)1,P%(P%256)256:C),TA(LC),TB(LC),TL(LC)::"INPUT CATEGORIES ALONG WITH BUDGET FIGURES"l*I1LC8l,"CATEGORY";I,:C(I),TA(I)Bl0::l4>K101:@SUM(K73-K100) >K100:@SUM(K77...K98) >K98:@SUM(B98) >K97:@SUM(B97) >K96:@SUM(B96) >K95:@SUM(B95) >K94:@SUM(B94) >K93:@SUM(B93) >K92:@SUM(B92) >K91:@SUM(B91) >K90:@SUM(B90) >K89:@SUM(B89) >K88:@SUM(B88) >K87:@SUM(B87) >K86:@SUM(B86) >K85:@SUM(B85) >K84:@SUM(B84) >K83:@SUM(B83) >K82:@SUM(B82) >K81:@SUM(B81) >K80:@SUM(B80) >K79:@SUM(B79) >K78:@SUM(B78) >K77:@SUM(B77) >E69:+H15 >D69:+F15 >C69:+D15 >B69:+C15 >A69:"Income >E68:+H63 >D68:+F63 >C68:+D63 >B68:+C63 >A68:"Expenditure >E67:6 >D67:4 >C67:2 >B67:1 >A67:"Month >I65:+I23+I24+I25+I26+I27+I28+I30+I31+I32+I36+I37+I42+I44+I58 >B65:+B23+B24+B25+B26+B27+B28+B30+B31+B32+B36+B37+B42+B44+B58 >A65:"Fixed Payments >L64:+K64-J64 >K64:+K15-K63 >J64:+J15-J63 >I64:+I15-I63 >H64:+H15-H63 >G64:+G15-G63 >F64:+F15-F63 >E64:+E15-E63 >D64:+D15-D63 >C64:+C15-C63 >B64:+B15-B63 >A64:"Savings >L63:@SUM(L19...L61) >K63:@SUM(K19...K61) >J63:@SUM(J19...J61) >I63:@SUM(I19...I61) >H63:@SUM(H19...H61) >G63:@SUM(G19...G61) >F63:@SUM(F19...F61) >E63:@SUM(E19...E61) >D63:@SUM(D19...D61) >C63:@SUM(C19...C61) >B63:@SUM(B19...B61) >A63:"Total expenditure >M62:/-- >L62:/-- >K62:/-- >J62:/-- >I62:/-- >H62:/-- >G62:/-- >F62:/-- >E62:/-- >D62:/-- >C62:/-- >B62:/-- >A62:/-- >M61:(K61/K63)*100 >L61:+I61-K61 >K61:@SUM(C61,D61,E61,F61,G61,H61) >J61:+B61*4 >I61:+B61*6 >F61:10.49 >E61:112.89+49.95+4 >D61:75.6+10.49+17.45+28.88 >C61:379.76+18+.4 >B61:30 >A61:"Other >M60:(K60/K63)*100 >L60:+I60-K60 >K60:@SUM(C60,D60,E60,F60,G60,H60) >J60:+B60*4 >I60:+B60*6 >F60:0 >E60:0 >D60:15+20 >C60:26.94 >B60:5 >A60:"Subscriptions >M59:(K59/K63)*100 >L59:+I59-K59 >K59:@SUM(C59,D59,E59,F59,G59,H59) >J59:+B59*4 >I59:+B59*6 >F59:0 >E59:0 >D59:0 >C59:0 >B59:4 >A59:"Lawyers Fees >M58:(K58/K63)*100 >L58:+I58-K58 >K58:@SUM(C58,D58,E58,F58,G58,H58) >J58:+B58*4 >I58:+B58*6 >F58:0 >E58:0 >D58:0 >C58:0 >B58:10 >A58:"Accountant Fees >M57:(K57/K63)*100 >L57:+I57-K57 >K57:@SUM(C57,D57,E57,F57,G57,H57) >J57:+B57*4 >I57:+B57*6 >F57:0 >E57:0 >D57:0 >C57:8.62 >B57:4 >A57:"Parties >M56:(K56/K63)*100 >L56:+I56-K56 >K56:@SUM(C56,D56,E56,F56,G56,H56) >J56:+B56*4 >I56:+B56*6 >F56:0 >E56:0 >D56:41 >C56:20.8 >B56:20 >A56:"Plays and shows >M55:(K55/K63)*100 >L55:+I55-K55 >K55:@SUM(C55,D55,E55,F55,G55,H55) >J55:+B55*4 >I55:+B55*6 >F55:0 >E55:0 >D55:0 >C55:0 >B55:40 >A55:"Shoes >M54:(K54/K63)*100 >L54:+I54-K54 >K54:@SUM(C54,D54,E54,F54,G54,H54) >J54:+B54*4 >I54:+B54*6 >F54:0 >E54:0 >D54:0 >C54:80 >B54:20 >A54:"Resturants >M53:(K53/K63)*100 >L53:+I53-K53 >K53:@SUM(C53,D53,E53,F53,G53,H53) >J53:+B53*4 >I53:+B53*6 >F53:0 >E53:60.06+3.04 >D53:5.9 >C53:7.7+2.9 >B53:10 >A53:"Gifts >M52:(K52/K63)*100 >L52:+I52-K52 >K52:@SUM(C52,D52,E52,F52,G52,H52) >J52:+B52*4 >I52:+B52*6 >F52:32.4 >E52:0 >D52:0 >C52:0 >B52:2 >A52:"Computer supplies >M51:(K51/K63)*100 >L51:+I51-K51 >K51:@SUM(C51,D51,E51,F51,G51,H51) >J51:+B51*4 >I51:+B51*6 >F51:0 >E51:0 >D51:25.78 >C51:33.64-24.78 >B51:5 >A51:"Books >M50:(K50/K63)*100 >L50:+I50-K50 >K50:@SUM(C50,D50,E50,F50,G50,H50) >J50:+B50*4 >I50:+B50*6 >F50:0 >E50:5.75+9.95+4.3+2.95+15.6+57 >D50:29.43+70.21 >C50:70.35-3 >B50:10 >A50:"Music >M49:(K49/K63)*100 >L49:+I49-K49 >K49:@SUM(C49,D49,E49,F49,G49,H49) >J49:+B49*4 >I49:+B49*6 >F49:0 >E49:0 >D49:0 >C49:11 >B49:4 >A49:"Travel >M48:(K48/K63)*100 >L48:+I48-K48 >K48:@SUM(C48,D48,E48,F48,G48,H48) >J48:+B48*4 >I48:+B48*6 >F48:0 >E48:0 >D48:48.3+16.5 >C48:65.7+25.65 >B48:50 >A48:"Baby goods >M47:(K47/K63)*100 >L47:+I47-K47 >K47:@SUM(C47,D47,E47,F47,G47,H47) >J47:+B47*4 >I47:+B47*6 >F47:0 >E47:0 >D47:91.5+47 >C47:0 >B47:100 >A47:"Clothes >M46:(K46/K63)*100 >L46:+I46-K46 >K46:@SUM(C46,D46,E46,F46,G46,H46) >J46:+B46*4 >I46:+B46*6 >F46:1.6 >E46:8.9 >D46:3.6+.4 >C46:6+.4 >B46:12 >A46:"Dominion >M45:(K45/K63)*100 >L45:+I45-K45 >K45:@SUM(C45,D45,E45,F45,G45,H45) >J45:+B45*4 >I45:+B45*6 >F45:0 >E45:32.12 >D45:0 >C45:19.25 >B45:11 >A45:"Even Std >M44:(K44/K63)*100 >L44:+I44-K44 >K44:@SUM(C44,D44,E44,F44,G44,H44) >J44:+B44*4 >I44:+B44*6 >F44:96 >E44:0 >D44:0 >C44:0 >B44:12 >A44:"Dentist Bills >M43:(K43/K63)*100 >L43:+I43-K43 >K43:@SUM(C43,D43,E43,F43,G43,H43) >J43:+B43*4 >I43:+B43*6 >F43:0 >E43:58.95 >D43:0 >C43:14 >B43:10 >A43:"Booze Requirements >M42:(K42/K63)*100 >L42:+I42-K42 >K42:@SUM(C42,D42,E42,F42,G42,H42) >J42:+B42*4 >I42:+B42*6 >F42:0 >E42:0 >D42:15.2 >C42:0 >B42:1 >A42:"Bank Charges >M41:(K41/K63)*100 >L41:+I41-K41 >K41:@SUM(C41,D41,E41,F41,G41,H41) >J41:+B41*4 >I41:+B41*6 >F41:0 >E41:0 >D41:0 >C41:19.7 >B41:9 >A41:"Rubbish Container >M40:(K40/K63)*100 >L40:+I40-K40 >K40:@SUM(C40,D40,E40,F40,G40,H40) >J40:+B40*4 >I40:+B40*6 >F40:84.75 >E40:128.92 >D40:19+45+2.75 >C40:4 >B40:40 >A40:"House Maintenance >M39:(K39/K63)*100 >L39:+I39-K39 >K39:@SUM(C39,D39,E39,F39,G39,H39) >J39:+B39*4 >I39:+B39*6 >F39:0 >E39:124.1 >D39:75.6 >C39:30+2.15 >B39:30 >A39:"Car repairs >M38:(K38/K63)*100 >L38:+I38-K38 >K38:@SUM(C38,D38,E38,F38,G38,H38) >J38:+B38*4 >I38:+B38*6 >F38:31.55 >E38:33+30.32 >D38:57.35+30 >C38:78.33+29 >B38:110 >A38:"Petrol >M37:(K37/K63)*100 >L37:+I37-K37 >K37:@SUM(C37,D37,E37,F37,G37,H37) >J37:+B37*4 >I37:+B37*6 >F37:0 >E37:0 >D37:0 >C37:140.17 >B37:50 >A37:"Telephone >M36:(K36/K63)*100 >L36:+I36-K36 >K36:@SUM(C36,D36,E36,F36,G36,H36) >J36:+B36*4 >I36:+B36*6 >F36:0 >E36:0 >D36:74.32 >C36:0 >B36:50 >A36:"Power + Gas >M35:(K35/K63)*100 >L35:+I35-K35 >K35:@SUM(C35,D35,E35,F35,G35,H35) >J35:+B35*4 >I35:+B35*6 >F35:2.5 >E35:4.65 >D35:4.98+2.3+4.9+6+1.8+1.69 >C35:16.27+3.45+2.94+.8+.79 >B35:0 >A35:"Lunches >M34:(K34/K63)*100 >L34:+I34-K34 >K34:@SUM(C34,D34,E34,F34,G34,H34) >J34:+B34*4 >I34:+B34*6 >F34:176.59+2.87+2.78 >E34:302.06+10.86+5.42+16+6.5+2.35+9.52 >D34:339.98+3.85+9.85+.9+3.16+10+90.93+6.1+3.28 >C34:374.54+1.8 >B34:300 >A34:"Groceries >M33:(K33/K63)*100 >L33:+I33-K33 >K33:@SUM(C33,D33,E33,F33,G33,H33) >J33:+B33*4 >I33:+B33*6 >F33:0 >E33:1.2+0 >D33:90+15 >C33:30 >B33:20 >A33:"Church Donations >M32:(K32/K63)*100 >L32:+I32-K32 >K32:@SUM(C32,D32,E32,F32,G32,H32) >J32:+B32*4 >I32:+B32*6 >F32:16.6 >E32:16.6 >D32:16.6 >C32:16.6 >B32:8.3 >A32:"Life Insurance >M31:(K31/K63)*100 >L31:+I31-K31 >K31:@SUM(C31,D31,E31,F31,G31,H31) >J31:+B31*4 >I31:+B31*6 >F31:99.33 >E31:0 >D31:0 >C31:0 >B31:7.5 >A31:"Registration (2) >M30:(K30/K63)*100 >L30:+I30-K30 >K30:@SUM(C30,D30,E30,F30,G30,H30) >J30:+B30*4 >I30:+B30*6 >F30:0 >E30:0 >D30:0 >C30:0 >B30:7.5 >A30:"Registration (1) >M29:(K29/K63)*100 >L29:+I29-K29 >K29:@SUM(C29,D29,E29,F29,G29,H29) >J29:+B29*4 >I29:+B29*6 >F29:0 >E29:68.42 >D29:0 >C29:34.21 >B29:35 >A29:"TV Rental >M28:(K28/K63)*100 >L28:+I28-K28 >K28:@SUM(C28,D28,E28,F28,G28,H28) >J28:+B28*4 >I28:+B28*6 >F28:0 >E28:0 >D28:0 >C28:0 >B28:4.48 >A28:"Car 2 Ins >M27:(K27/K63)*100 >L27:+I27-K27 >K27:@SUM(C27,D27,E27,F27,G27,H27) >J27:+B27*4 >I27:+B27*6 >F27:0 >E27:0 >D27:0 >C27:0 >B27:22.24 >A27:"Car 1 Ins >M26:(K26/K63)*100 >L26:+I26-K26 >K26:@SUM(C26,D26,E26,F26,G26,H26) >J26:+B26*4 >I26:+B26*6 >F26:239.17 >E26:0 >D26:0 >C26:239.17 >B26:75.09 >A26:"Rates >M25:(K25/K63)*100 >L25:+I25-K25 >K25:@SUM(C25,D25,E25,F25,G25,H25) >J25:+B25*4 >I25:+B25*6 >F25:0 >E25:0 >D25:0 >C25:42.87 >B25:7.15 >A25:"Rent >M24:(K24/K63)*100 >L24:+I24-K24 >K24:@SUM(C24,D24,E24,F24,G24,H24) >J24:+B24*4 >I24:+B24*6 >F24:0 >E24:0 >D24:0 >C24:0 >B24:20.74 >A24:"Cont Ins >M23:(K23/K63)*100 >L23:+I23-K23 >K23:@SUM(C23,D23,E23,F23,G23,H23) >J23:+B23*4 >I23:+B23*6 >F23:0 >E23:0 >D23:0 >C23:0 >B23:34 >A23:"House Ins >M22:(K22/K63)*100 >L22:+I22-K22 >K22:@SUM(C22,D22,E22,F22,G22,H22) >J22:+B22*4 >I22:+B22*6 >F22:0 >E22:0 >D22:60 >C22:12 >B22:12*4.3 >A22:"Housekeeper >M21:(K21/K63)*100 >L21:+I21-K21 >K21:@SUM(C21,D21,E21,F21,G21,H21) >J21:+B21*4 >I21:+B21*6 >F21:0 >E21:848.76 >D21:70 >C21:70 >B21:60 >A21:"Video >M20:(K20/K63)*100 >L20:+I20-K20 >K20:@SUM(C20,D20,E20,F20,G20,H20) >J20:+B20*4 >I20:+B20*6 >F20:242.74 >E20:242.74 >D20:242.74 >C20:242.74 >B20:242.74 >A20:"Car loan >M19:(K19/K63)*100 >L19:+I19-K19 >K19:@SUM(C19,D19,E19,F19,G19,H19) >J19:+B19*4 >I19:+B19*6 >F19:930.08 >E19:884.24 >D19:884.24 >C19:884.24 >B19:884.24 >A19:"Mortgage >A18:/-- >A17:"EXPENDITURE >M15:@SUM(M6...M13) >L15:@SUM(L6...L13) >K15:@SUM(K6...K13) >J15:@SUM(J6...J13) >I15:@SUM(I6...I13) >H15:@SUM(H6...H13) >G15:@SUM(G6...G13) >F15:@SUM(F6...F13) >E15:@SUM(E6...E13) >D15:@SUM(D6...D13) >C15:@SUM(C6...C13) >B15:@SUM(B6...B13) >A15:"Total >M13:(K13/K15)*100 >L13:+K13-I13 >K13:@SUM(C13,D13,E13,F13,G13,H13) >J13:+B13*4 >I13:+B13*6 >F13:0 >E13:45+20+50 >D13:20 >C13:0 >B13:0 >A13:"Other >M12:(K12/K15)*100 >L12:+K12-I12 >K12:@SUM(C12,D12,E12,F12,G12,H12) >J12:+B12*4 >I12:+B12*6 >F12:300 >E12:150 >D12:125 >C12:175 >B12:50 >A12:"Weddings and funerals >M11:(K11/K15)*100 >L11:+K11-I11 >K11:@SUM(C11,D11,E11,F11,G11,H11) >J11:+B11*4 >I11:+B11*6 >F11:0 >E11:0 >D11:0 >C11:0 >B11:53 >A11:"Family benefit >M10:(K10/K15)*100 >L10:+K10-I10 >K10:@SUM(C10,D10,E10,F10,G10,H10) >J10:+B10*4 >I10:+B10*6 >F10:0 >E10:0 >D10:235.83 >C10:932.84 >B10:0 >A10:"Part time >M9:(K9/K15)*100 >L9:+K9-I9 >K9:@SUM(C9,D9,E9,F9,G9,H9) >J9:+B9*4 >I9:+B9*6 >F9:18 >E9:72 >D9:48 >C9:0 >B9:0 >A9:"Stats >M8:(K8/K15)*100 >L8:+K8-I8 >K8:@SUM(C8,D8,E8,F8,G8,H8) >J8:+B8*4 >I8:+B8*6 >F8:0 >E8:135.95+7 >D8:14 >C8:160.05+14+92 >B8:((10*7)+(3*8)+(5*8.5))*4.2 >A8:"Music pupils >M7:(K7/K15)*100 >L7:+K7-I7 >K7:@SUM(C7,D7,E7,F7,G7,H7) >J7:+B7*4 >I7:+B7*6 >F7:170.54 >E7:170.54 >D7:152.59+170 >C7:159.38 >B7:156 >A7:"Church >M6:(K6/K15)*100 >L6:+K6-I6 >K6:@SUM(C6,D6,E6,F6,G6,H6) >J6:+B6*4 >I6:+B6*6 >F6:1775.17 >E6:1775.17 >D6:1775.17 >C6:1775.17 >B6:1775.17 >A6:"My Salary >A5:/-- >A4:"INCOME >M3:/-- >L3:/-- >K3:/-- >J3:/-- >I3:/-- >H3:/-- >G3:/-- >F3:/-- >E3:/-- >D3:/-- >C3:/-- >B3:/-- >A3:/-- >L2:/FR >K2:/FR"to date >J2:/FR"to date >I2:/FR"Budget >H2:/FR"Actual >G2:/FR"Actual >F2:/FR"Actual >E2:/FR"Actual >D2:/FR"Actual >C2:/FR"Actual >B2:/FR"Budget >Y1:/FR >X1:/FR >W1:/FR >V1:/FR >U1:/FR >T1:/FR >S1:/FR >R1:/FR >Q1:/FR >P1:/FR >O1:/FR >N1:/FR >M1:/FR"Percent >L1:/FR"Residual >K1:/FR"Actual >J1:/FR"Budget >I1:/FR"Total >H1:/FR"July >G1:/FR"June >F1:/FR"May >E1:/FR"April >D1:/FR"March >C1:/FR"February >B1:/FR"Monthly >A1:"BUDGET /W1 /GOC /GRM /GF$ /GC9 /X>A1:>A3:/TH >A3:/TV /X>A1:>A1: IAG2 RLE guy.6IAGNOSEEXE ~.<ELP3 LDR Ml- NTERRPTCMD Rn-j By Terry Stewart, Palmerston North, New Zealand, 1983j 51000j:8000:IJ:MN$(12):CA$(13):A$(40,4):BG(12,13):SG$(63,131):TR$"TRANSACTIONS":N1:U$"$#####.##"4k(I112:MN$(I)::I113:CA$(I)::I14:HE$(I):\k<:"HOME ACCOUNTANT - Menu ";SG$;kP" <1> To open Chequebook and Savings Files <2> To see Total Cash on hand <3> To open Budget Files <4> To load data <5> To record data ";SG$Hld@896,"Press the number of your selection, or press to end....";ulx40500:B$"["170:(B$)1(B$)5120lA(B$)lA500,1000,1500,2000,2500l:"ARE YOU SURE YOU WANT TO END?":40500lB$"Y"ʀ:60m:"ACCOUNTS FILE: Do you want to........ ";SG$;m" <1> Add data to Chequebook File <2> See Chequebook File <3> Print Chequebook File <4> Make Corrections to Chequebook File <5> Enter Savings <6> Delete Chequebook file ";SG$m40600:B$"["60:A(B$):A1A6500nA600,700,50200,690,800,52000GnX:23)"Data Entry":23)"----------":{n]"Type 'DONE' when data entry is finished."::nbIN40nl"Transaction";I;nvJ14n,,HE$(J),:A$(I,J)nA$(I,J)"DONE"A$(I,J)"":670nJ:NN1::I(o:"Do you wish to make a correction?":40500=oB$"Y"690:500po:"Which Transaction do you want to change";Io:"Transaction";I;:J14:,,HE$(J),:A$(I,J):::"Is this the correct Transaction?":40500:B$"N"690/p:"Type in the new data"::"Transaction";I;:J14:,,HE$(J),:A$(I,J)::mp"Do you wish to change another?":40500:B$"Y"690:500}pLN0:40700pI1N1pLNLN1:LN11ʑ40800:40900:40700:LN0pEZ(A$(I,4))pA$(I,1),A$(I,2),A$(I,3),U$;EZpTTTTEZq0q40800:,,"Total =",U$;TT:40900:TT0:500Uq :"Enter the total for......":uq*"Countrywide Savings",:CWq4"Terry's Home Ownership Acc",:THq>"Alison's Home Ownership Acc",:AHqH:"Is everything correct?":40500:B$"N"800:5008r:18)"Total Cash on Hand":18)"------------------":YrI1N1:TT(A$(I,4))TT:I s"Total Cheque Account","=",U$;TT::"Countrywide Sav.","=",U$;CW::"Terry's Home Ownership Acc.","=",U$;TH::"Alison's Home Ownership Acc.","=",U$;AH::,,,"---------"@s,"TOTAL","=",U$;TTCWTHAH::50400:TT0:60es:"BUDGET FILES - Menu ";SG$; t" <1> To build a Monthly File <2> To See a Monthly File <3> To See a Cumulative Total <4> To make Corrections <5> To delete Yearly File <6> To See Graph ";SG$6t40600:B$"["60:A(B$):A1A61500]tA 1600,1700,1800,1625,4000,53000t@:23)"Data Entry":23)"----------":tE"Which Month do you wish to enter (1 - 12)";I:I1I121605uF:"Enter data for ";MN$(I);". Type '0' when finished each Category.":.uGJ113:CA$(J),,:uIK120BuJBNJuK,,ZuLBN001617quMBG(I,J)BG(I,J)BNwuOuQ:JuT:"Do you wish to make a correction?":40500:B$"Y"1630:1500vY:"In which month is the change to be made (1 - 12)";I:I1I1216250v[:"Month of ";MN$(I);".":bv^:"Which Category do you want to change";CO$vhJ113:(CA$(J),3)(CO$,3)1650:::"No such Category!":1630 wr:"Is this the data that requires amendment?"::CA$(J),,BG(I,J):40500:B$"Y"1660:1630:w|:"Type in new data."::CA$(J),,:BG(I,J)w:"Do you require another Correction?":40500:B$"Y"1630:1500w:"Which Month do you wish to examine (1 - 12)";I:I1I121700w:"Budget data for ";MN$(I);" 1983.":xJ113:CA$(J),U$;BG(I,J);:,(xGTBG(I,J)GTQxJ:,"---------":,,"TOTAL =",U$;GTix:50400:GT0:1500x:"Cumulative Budget data from January 1983":xJ113xI112:GTBG(I,J)GT:x&CA$(J),U$;GT;:,x0CMGTCMy:GT0:J:,"---------":,,"TOTAL =",U$;CM4yD:50400:GT0:CM0:1500py:"dir"::"Prepare to load data. Input File Name";F$y:"Loading......":y51000y"I",1,F$y#1,Ny"Number of transactions =";N1yI1N1y(1)2080z#1,A$(I,1),A$(I,2),A$(I,3),A$(I,4)zI;%zI6z #1,CW,TH,AH\z%::"Budget data":"-----------"hz*I112tz4J113z9(1)2140z>#1,BG(I,J)zHJzMI;zRIz\zf::50400:60{ :"DIR"::"Prepare to record data. When ready Input File";F$#{ ::"Recording......":1{ "O",2,F$;{ #2,N_{ "Number of Transactions =";N1l{ I1N1{ #2,A$(I,1);",";A$(I,2);",";A$(I,3);",";A$(I,4){ I;{ I{ #2,CW,TH,AH{ ::"Budget data":"-----------"{ I112{( J113|2 #2,BG(I,J)|< J|A I;$|F I*|P ?|U F1ʄ:F2:2520R|Z ::50400:60|"Press 'SPACE BAR' to delete all entries...":40500|I112|J113|BG(I,J)""|J:I|:"Done. Press 'SPACE BAR' to return to Menu"|40500}60v}"JANUARY","FEBRUARY","MARCH","APRIL","MAY","JUNE","JULY","AUGUST","SEPTEMBER","OCTOBER","NOVEMBER","DECEMBER"}"RENT","FOOD","CLOTHING","POWER","INSURANCE","BOOKS","CAR","GIFTS","HOMEWARE","HIRE PURCHASE","CASH","ENTERTAINMENT","MISC."~"DATE","NUMBER","PAYEE","AMOUNT6~4B$:B$""40500:~@896,"Press the number of your selection, or press to return to Main Menu";~40500:~:J14:HE$(J),::40800:~`K164:"-";::ğ"Press 'SPACE BAR' to turn the page......":40500:BPA%64:P%096064:50100:N$::N$" ":(N$),A%:(N$)2,(P%256)60:(N$)1,P%(P%256)256:TT0:"Cheque Account":"---------------":"į,:X14:HE$(X),::X180:"-";::,āX1N11EZ(A$(X,4))76į"TRANSACTION";X,A$(X,1),A$(X,2),A$(X,3),U$;EZD;TTTTEZ|@ć:X180:"-";:::,,,"Total =",U$;TT::::500؀IJ"Press 'SPACE BAR' To return to Menu or 'P' to Print screen.":40500:B$"P"ʑ50000:ހĒ;8Ǧ::"* OOPS, A NUMBER";21;"ERROR IN LINE";;"! * Press 'SPACE BAR' for Menu":40500C:ǟ60y ˄:"ARE YOU SURE YOU WISH TO DELETE FILE!":40500*ˏB$"Y"52020:5004˲:"Deleting.........":I140:J14:A$(I,J)"":J,I:N1::"Deletion completed."::50400:500τ:XU$"##":XV$"$$####">ϲ25)"BUDGET GRAPH":25)"------------"TρI112:XU$;I:iρI642:(8,I):!ρI8127:(I,43)::I2012712:(I,43):&ϲ+ρI02700300:XV$;I;:Ƃ0ρI1122ρK113:GTBG(I,K)GT:5ρJ1GT25:σ(J7,(I3)4)?χ:GT0Dχ&Iϑ40500:1500Gd͝ ͝Qx/0GA Ljhj" * COST ANALYSIS *"rj:49j:"ENTER THE TOTAL FIXED COST( OVERHEAD COST ) VALUE ";FjF04j" ENTER THE VARIABLE COST PER UNIT ";VjV0.0169k" ENTER THE PRODUCTION OR SALE QUANTITY PER MONTH ";NDk N18Pk CFVNhk :" * * * * * *"k :"THE TOTAL COST OF ";N;" UNKTS IS $";Ck k"THE AVERAGE COST PER UNIT IS $";CNk:" * * * * * *"l:"DO YOU NEED MORE ANALYSIS (YES/NO) ";A$'lA$"Y"A$"YES"20>lA$"N"A$"NO"44Fl16~l:" ENTER THE SELLING PRICE PER UNIT DESIRED ";UlU0.0120l:RNUl:" * * * * * *"l"THE TOTAL REVENUE OF ";N;" UNITS AT $";Ul" IS $";RmPP(RC)C100mPP0303m"THAT IS ";PP;"% PROFIT.";m31[m"THAT IS ";(PP);"% LOSS."gmCR36wm BN:CS39m!:"THE BREAKEVEN POINT CANNOT BE ACHIEVED"m""IF ALL THE INFORMATION GIVEN ARE CORRECT."m#44m$B(F(UV))m%B0B1n&CBU!n':" * * * * * *"Yn("THE BREAKEVEN POINT IS ACHIEVED WHEN ";B;" UNITS"zn)" ARE PRODUCED OR SOLD."n*"THE BREAKEVEN AMOUNT IS $";Cn+:" * * * * * *"n,"DO YOU LIKE TO TRY AGAIN (YES/NO) ";A$n-A$"Y"A$"YES"4o.A$"N"A$"NO"48o/44o0No1:"DO YOU NEED INSTRUCTIONS (YES/NO) ";A$fo2A$"YES"A$"Y"53{o3A$"NO"A$"N"o449o5:"THIS PROGRAM CALCULATES THE BREAKEVEN POINT OF CERTAIN PRODUCT."p6"THE BREAKEVEN POINT IS LOCATED WHERE THE TOTAL REVENUE CAN"3p7"JUST COVER THE TOTAL EXPENSE."lp8"THE USER IS EXPECTED TO INPUT THE FOLLOWING DATA:"p9" 1. THE OVERLEAD COST OF THE COMPANY."p:" 2. THE VARIABLE COST PER UNIT."p;" 3. THE MAXIMUM PRODUCTION QUANTITY PER MONTH."-q<:"PRESS THE NEWLINE KEY WHEN READY ";A$3q=j: * DATABASE - FOR 48K DISK BASED SYSTEM 80. PRINTER OPTIONAL */k: * WRITTEN BY T.M. STEWART 55 COLLINGWOOD ST PALMERSTON NORTH NEW ZEALAND VERSION 3 MK 1 WRITTEN NOV 1984 *ck: * DELETE @CLEAR IN LINE 5 IF ESF NOT USED *k:20000:AZ:T,S,A:SG$(63,131):N1:UX(20,1)k40700k : * BUILD DATABASE OR LOAD? *l :23)"GENERAL DATABASE":23)"----------------"::9l : * CHANGE LINE 12 TO SUIT YOUR CONFIGURATION *l "Do you wish to Load Data from dDisk (1), or build a New File (2)?";l 40500:B$"1"2000:B$"2"8000:13l;: * MENU *l<:;DB$;" DATABASE ";SG$;mO: * CHANGE LINE 80-160 TO SUIT YOUR CONFIGURATION *mP" <1> To Insert Data <2> To Search Data <3> To Sort Data <4> To Print whole Library <5> To Edit Data <6> To Record Data to Disk <7> To Delete Data <8> To Hide a Field To Check Memory ";SG$Bnd@896,"Press the number of your selection, or press to end....";nx40500:B$"["170:B$"M"B$"m"9000:(B$)1(B$)9120nI(B$)nI500,1000,6200,1500,617,2500,3000,10000n:"ARE YOU SURE YOU WANT TO END? (Y/N)";:40500 oB$"Y"B$"y"ʀ:60wo: * NO. OF ENTRIES IN LINE 500 AND 510 CAN BE CHANGED TO SUIT INDIVDUAL USERS REQUIREMENTS *o: * DATA ENTRY * p::"170 Entries are permitted. Type in 'DONE' to 1st Field when finished."::"Press 'NEW LINE' to start....";:40500pIN170;p:"Entry no.";I:"-----------"GpJ1FI[pT(J)"?",:5000rp SA(I,J)XX$:XX$""p :SA(I,J)"DONE"SA(I,J)"done"SA(I,J)"Done"SA(I,J)"":600p(SA(I,J))255ʲ"ENTRY TOO LONG! MAX 255 CHARACTERS":520qJ:NN1:Iq:"Database Full!"=qW: * CORRECTION ROUTINE *vqX:"Do you wish to make a correction? (Y/N)";:40500qbB$"Y"B$"y"ʑ40600:700qg690qi40600:690q::"Another change? (Y/N)";:40500:B$"Y"B$"y"ʍ617:700q60r: * SEARCH SUBSECTION * r6600mr:CN1:FL0:"Which Field would you like to search?"::I1FI:I,T(I):xr40500r(B$)1(B$)FI1002rK(B$):"Input the Data You wish to find... ";:5000rTEXX$:XX$""#s:"Do you wish to search for Data > or = to Data specified?";Qs40500:B$">"S1%0:B$"="S1%1:1012s:"Now just sit back while I search....."sQS1%1ʑ6500:6400sVFL1ʲ"Data Base searched. Do you wish to search again? (Y/N)";:40500:B$"Y"B$"y"1001:60Pt`:"FILE NO.";I::J1FI:H31H1:JH2(H3)1122:H3:SA(I,J):PR1ʯSA(I,J)etbJ:PR1ʯ:1140tj:"Do You wish to continue (C), Edit Data (E), or Stop (S)?":40500:B$"C"B$"c"1140:B$"S"B$"s"60:B$"E"B$"e"ʄ:40605::1130uo1130utCNI1:1105.u: * PRINT WHOLE FILE *Eu:6600::I1N1uJ1FI:H31H1:H2(H3)J1515:H3:SA(I,J):PR1ʯSA(I,J)uJuPR01518:1520u:"Press 'SPACE BAR' to continue ":40500uuPR1ʲ:::uIu606v: * DELETE 1999-2574 IF YOU ARE A CASSETTE USER ONLY *Lv: * LOAD FILE *v:"DIR"::"Input File to be loaded or 'M' to return to Menu";SF$:SF$"M"60v:"Loading ";SF;" ....":v"I",1,SF$v(1)2070v#1,N,FI,H1,DB$wJ1H1:(1)2070w#1,H2(J)wJ2wT(FI),SA(120,FI)KwJ1FI:(1)THE2070Xw#1,T(J)awJ:nwI1N1}w(1)2070w J1FIw(1)THE2070w#1,SA(I,J)w Jw Iw x ::"Load completed. Press 'SPACE BAR' to return to Menu":40500:60#x : * RECORD FILE *x :"DIR"::"Input File to Name to Record New Data or 'M' to return to Menu.";SF:SF"M"60x :"Saving Data......File";SFx "O",2,SFx #2,N,FI,H1;",";DB$x J1H1x #2,H2(J)x Jx J1FIy #2,T(J)y J:y I1N1)y J1FI9y #2,SA(I,J)@y JGy IMy y ::"Press 'SPACE BAR' to return to Menu.":40500:60y : * FILE DELETION *y y "Input the Record No. you wish to delete or Press 'M' for Menu";FL$ z FL$"M"60:FL(FL$)Fz FL1FLN1ʲ"* NO SUCH RECORD * TRY AGAIN":3002z J1FI:SA(FL,J)"":J:IFLN1:J1FI:SA(I,J)SA(I1,J):J:I:NN1z :"Record Deleted. Press 'SPACE BAR' to return to Menu.":40500:60z: * DATA INPUT SUBROUTINE *{:PS(0):(14);({X$:X$""5005?{X$(13)ʲ(15):Q{(0)63PS0b{X$" "PS0t{(0)PS5005{X$;:X$(08)5040{XX$XX$X$:5005{(XX$)0ʲ" ";:5005{XX$(XX$,(XX$)1):5005{7: * SORT SUBROUTINE *1|8:"Which Field do you wish to sort to ( 1 -";FI;") ?":S|B40500:(B$)1(B$)FI6210_|LJ(B$)||Q:"Sorting on Field ";J|VN2N1:6300|`60|N20ʒ|PA0:PB0|PC1:PDN2|DNPC:UPPD:FAG1|SA(DN,J)SA(UP,J)ʍ6335}PAPA1:FAGFAGV}JA1FI:@479,DN:A2(JA)SA(DN,JA):SA(DN,JA)SA(UP,JA):SA(UP,JA)A2(JA):r}FAG1DNDN1:UPUP1}UPDNʍ6320}DNPD1PBPB1:UX(PB,0)DN1:UX(PB,1)PD}PDDN1}PCPDʍ6315~PB0ʒ:PCUX(PB,0):PDUX(PB,1):PBPB1:6315+~: * SEARCH SUBROUTINE (INSTRING) *Q~ICNN1:J1(SA(I,K))(TE)1m~TE(SA(I,K),J,(TE))|~::FL1:~c: * EQUAL STRING SEARCH *~dICNN1~iTESA(I,K)ʒ~n:FL1:~: * SCREEN OR PRINTER? SUBROUTINE *:"Press (S) to view Data on the Video only, or (P) to output Data to the Printer as well.":40500:B$"S"B$"s"PR0:B$"P"B$"p"PR1:6600PR1ʑ6700+: * PRINTER CHECK - CHANGE INP(253) TO PEEK(14312) FOR TRS-80 MODEL 1 *X,(253)127ʲ:"* PRINTER NOT READY *"::"Press 'SPACE BAR' to return to Menu":40500:60^6?: * DEFINING OF PARAMETERS *@:"What is the Name of your Database? ";:5000ɀBDB$XX$:XX$""E:"How many Fields (1-9)";FIFFI1FI9ʲ:"* INCORRECT INPUT *":8005=J:"Specify Headings........":SOT(FI),SA(120,FI)_TJ1FI^"Heading for Field";J;"? ";:5000cT(J)XX$:XX$""dhJ܁r:"Press 'SPACE BAR' to return to Menu":40500|60'#: * STRING MEMORY CHECK *=(#:"You have ";(C$);" Bytes of String Memory left."v2#:"Press 'SPACE BAR' to return to Menu.":40500:60': * HIDING FIELD *':J1FI'J,T(J)$':.'"How many Fields to Hide ? (0 to Reset)";8'40500:(B$)0(B$)FI110040(;'(B$)0ʁJ1H1:H2(J)0::605B'H1(B$)?G'H1:L'"Enter the Field numbers, pressing 'NEW LINE' after each one..."V'J1H1`'H2(J)b'H2(J)1H2(J)9ʲ"* MISTAKE * FIELDS MUST BE BETWEEN 1 AND";FI;". TRY AGAIN.":10080j't'60$3: * INKEY$ SUBROUTINE *94KI01:KJ120L5B$:B$""ʒj6KJ:(14KI);:KI:40500: * RECORD CHANGER *"Which Record would you like to change";I儚I1IN1"* NO SUCH RECORD *":406017:J1FI:SA(I,J):::"Is this the Record you wish to change? (Y/N)":40500WB$"Y"B$"y"40611:40600ƅ:"Which Field would You like to amend ( 1 -";FI;")?"::J1FI:J,T(J)::40500:(B$)1(B$)FIʍ40611҅J(B$)入::SA(I,J): "Type in the correct Data..":T(J)"? ",:50006SA(I,J)XX$:XX$""w(SA(I,J))255ʲ"ENTRY TOO LONG, MAX 255 CHARACTERS":40630}ʞ:"YOU HAVE A NO.";21;"ERROR IN LINE";:"PRESS 'NEW LINE' TO RETURN TO MENU...":40500 60k:6000:L:A:I,J,X:A(101):LB(101):LT(101):"* * H O U S E H O L D A C C O U N T S F O R D I S K * * * VER. 4.0 (C) M I C R O - 8 0 18/3/82 * "::7k40:Q1 1000:kF1$"DATE REF.NO DETAILS TOTAL ACCOUNT DEBIT CREDIT":F3$"#####.##":F4$"#,###,###.##-":S2$(3,132)(95)(2,132):EE$(138)l:" * * * M E N U * * * * 1 * KEYBOARD INPUT : * 6 * PRINT JOURNALS * 2 * LOAD : * 7 * PRINT LEDGER BALANCES * 3 * READ MEMORY : * 8 * LINEPRINTER UTILITY"m"* 4 * CHANGE MEMORY : * 9 * LEDGER ACCOUNTS * 5 * SAVE : * * * ";mST$EE$(6,132)EE$(6,132)EE$(15,132)EE$S2$EE$(6,132)EE$S2$EE$S2$EE$:BL$(64,32):X$"":X$:X(X$):X$""6m X 8,26,29,33,38,43,77,90,95mI1100:m 10::4m AD$"":PR$"":@0,"";:F1$:ST$n H448:@H,"SIX DIGIT DATE ";:EN6:P1470:P265:16:@H,"SIX DIGIT REFERENCE NO. (I.E. CHEQUE NO.) ";:P1497:P272:16:@H,"FIFTEEN DIGIT DETAILS ";:EN15:P1478:P279:16:@H,"TOTAL (THREE DIGIT DOLLARS) ";:EN3:P1482:P295:16o @H,"TOTAL (TWO DIGIT CENTS) ";:EN2:P1478:P299:16:@H,"SIX DIGIT PREFIX AND ACCOUNT NO. ";:EN6:P1490:P2102:16:@H,"DEBIT (THREE DIGIT DOLLARS) ";:EN3:P1482:P2109:16:@H,"DEBIT (TWO DIGIT CENTS) ";:EN2:P1478:P2113:16Up @H,"CREDIT (THREE DIGIT DOLLARS) ";:EN3:P1483:P2116:16:@H,"CREDIT (TWO DIGIT CENTS) ";:EN2:P1479:P2120:16:"CORRECT YES/NO"pAN$:AN$""14:AN$"Y"15:AN$"N"10:14pA$(I)AD$:AD$"EXIT"4:pIN$"":P3P1:P4P2:IT1EN qIN$:120:IN$""17:P3P31:P4P41:PR$PR$IN$:@P1,PR$;:@P2,PR$;:PR$"EXIT"4(q24Oq:25:AD$AD$PR$:PR$"":@448,BL$nq(AD$)33AD$AD$(46):q(AD$)47AD$AD$(46):q(AD$)54AD$AD$(46):q(AD$)57AD$AD$(32):qPI1643816444:PI,0::rIN$:IN$""25:Sr"O",1,"ACCOUNTS/DAT":"SAVING DATA NOW":I1 100:#1,A$(I),",",LB(I)::vr"DATA SAVED": Q1 500::4r"PRESS ENTER WHEN READY";RE$:"THANK YOU":r:"CONTENTS OF MEMORY":I1100:"<";I;">":A(I):A(I)""327sI8I16I24I32I40I48I56I64I72I80I88I96ʁT%1250:T%>sIs "CONTENTS OF MEMORY READ":"PRESS TO CONTINUE "; X::4s!I1t":@640,"LINE NO ";I:@704,F1$:@768,ST$:@769,A(I):@0,"MEMORY CHANGE TYPE E TO EXIT TYPE N FOR NEXT LINE TYPE C TO CHANGE AN ENTRY"Ut#K$:K$""35:K$"E"4:K$"C"36:K$"N"37:35t$"CHANGE WHICH LINE";I:10:A(I)AD$:34t%II1:@769,A(I):34u&"I",1,"ACCOUNTS/DAT":"LOADING DATA NOW":I1 100: #1,A$(I),LB(I):::"DATA LOADED": Q1 500: u'4Yu("ERROR RECOVERY ROUTINE PLEASE INSERT PROGRAM TAPE AND PRESS ANY KEY"nu)IN$:IN$""41wu*114av+" * * * JOURNALS AVAILABLE * * * * 1 * PRINTOUT OF MEMORY * 2 * CP CASH PAYMENTS JOURNAL * 3 * CR CASH RECEIVED JOURNAL * 4 * GJ GENERAL JOURNAL * 5 * SJ SALES JOURNAL * 6 * RETURN TO MAIN MENU"v,X$"":X$:X(X$):X$""44v- X 46,52,52,52,52,4v.:"PRINTOUT OF MEMORY"v/ I1100v0A(I)""50v1"<";I;">": A(I)v2$w3"PRINTOUT COMPLETE":"PRESS ENTER";GO$::43Pw4"IS THE LINEPRINTER REQUIRED (Y/N)";P$kw5P$"Y" P$"N" 52w6"WHICH DATE DO YOU REQUIRE ";E$w768w8 I1100:A(I)""62w9(A(I),38,2)KA$62w:E$(A(I),6)62w;A(I):P$"N"61x<P$"Y"ʯA(I)x=DA$(A(I),31,6):DA#(DA$):DG#DG#DA#:DR$(A(I),45,6):DR#(DR$):DT#DT#DR#:CR$(A(I),52,6):CR#(CR$):CT#CT#CR#:BL#BL#DR#CR#x>x? E$;" TOTALS";:31)F4$;DG#;:46)F3$;DT#;CT#y@P$"Y"ʯE$;" TOTALS";:31)F4$;DG#;:46)F3$;DT#;CT#2yADG#0:DT#0:CT#0:51[yB"IS THE PRINTER REQUIRED (Y/N) ";P$zyCP$"Y" P$"N" 66 :yD X1 69,70,73,74yE:PT$"CASH PAYMENTS":KA$"CP":71:yF:PT$"CASH RECEIVED":KA$"CR":71:9zGPT$;" JOURNAL FOR (DATE)";E$:F1$:P$"Y"ʯPT$;" JOURNAL FOR (DATE)";E$:F1$?zHbzI:PT$"GENERAL":KA$"GJ":71:zJ:PT$"SALES":KA$"SJ":71:zK"IS THE PRINTER REQUIRED (Y/N) ";P$zLP$"Y" P$"N" 75 :zM9{N"* * * LEDGER BALANCE OPTIONS * * * * 1 * DISSECTION SUMMARY THIS BATCH * 2 * RETURN TO MAIN MENU"[{OX$"":X$:X(X$): X$""79j{P X 82,89r{Q75G|R"* * * W A I T":J1100:LB(J)0:J:I1100:J((A(I),42,2)):L1((A(I),45,6)):L2((A(I),52,6)):LL1L2:LB(J)LB(J)L:LT(J)LT(J)LB(J):L0:L10:L20:I:"DISSECTION TOTALS":P$"Y"ʯ"DISSECTION TOTALS"a|S J1100:LB(J)085|TJ;:16)F4$;LB(J):LLLB(J):P$"Y"ʯJ;:48)F4$;LB(J)|UJ:"TOTAL";:16)F4$;L:P$"Y"ʯ"TOTAL",:48)F4$;L|VL0:"END OF RUN" }WP$"Y"ʯ"END OF RUN"1}X"PRESS ENTER TO CONTINUE ";X:778}Y4}Z::"LINEPRINTER UTILITY (TYPE HEADINGS OR NOTES AS REQUIRED - TYPE 'EXIT' TO RETURN TO THE MAIN MENU)"}[M$"":M$:M$"EXIT"94}\M$:M$}]91}^4#~_" * * * LEDGER ACCOUNTS * * *"P~`"IS THE LINEPRINTER REQUIRED BBUSINESS00/00/00 |f9K:vf^BOOT SYS` ACCOUNT BASBB & BUDGET2 VC BB) CHEQUE BASBB$ COSTANLYBASBB  DBASE BASBB  SORT BASBB)]DIR SYS  HOMEACCOBASBB LEDGER BASBB# BARCHARTBASBB " TALLY CMDBBC  VC CMDBBM VISISET CMDBB% VISISRT BASBB%$ RECALL CMDBB  VISICON CMDBB ((Y/N) ";P$h~aP$"Y"P$"N"96~b"WHICH ACCOUNT NO DO YOU REQUIRE ? (ENTER '9999' TO EXIT AND RETURN TO MENU) ";N~cN1N9998101~dN9999113:98~eF1$:P$"Y"ʯF1$fI1100:A(I)""1064gN((A(I),40,4))106KhA(I):P$"Y"A(I)iDR#((A(I),45,6)):CR#((A(I),52,6)):DT#DT#DR#:CT#CT#CR#:GT#GT#DR#CR#jk"TOTALS...................";:31)F4$;DT#;CT#lP$"Y""TOTALS.................";:31) F4$;DT#;CT#Cm"BALANCE OF ACCOUNT.......";:31)F4$;GT#ynP$"Y""BALANCE OF ACCOUNT.....";:31) F4$;GT#oGT#0:DT#0:CT#0:::P$"Y"" ":" "p98q4r:"HOUSEHOLD ACCOUNTS ERROR RECOVERY MODULE":::t"ERROR CODE="21;"IN LINE"0u:"PRESS ANY KEY TO RESTART"FvIN$:IN$""118Mw4x(15360P3)32ʱ15360P3,132:15360P4,132:y(15360P3)132ʱ15360P3,32:15360P4,32:? *l :23)"GENERAL DATABASE":23)"----------------"::9l : * CHANGE LINE 12 TO SUIT YOUR CONFIGURATION *l "Do youj By Terry Stewart, Palmerston North, New Zealand, 1983j :20000:AC:DZ:CA$(63,131):CB$(60,"-"):CC$(80,"-"):U$"####.## ":Tj 7000Xk20);"GENERAL LEDGER":20)"--------------":::"Do You wish to Load Data (1), or Build a New Ledger (2)?"zk40500:B"1"2000:B"2"30k20k:"TYPE IN THE NAME OF THE LEDGER";CNk":"HOW MANY INCOME AND EXPENDITURE CATEGORIES WILL YOU HAVE";LCIl&C(LC),C1(LC),TA(LC),TB(LC),TL(LC)::"INPUT CATEGORIES ALONG WITH BUDGET FIGURES"Ul*I1LCtl,"CATEGORY";I,:C(I),TA(I)~l0::l4:"HOW MANY ENTRIES DO YOU REQUIRE PER TRANSACTION (MIN OF 5)";ETl8A(200,ET),AH(ET),AV(ET),AI(ET): m<"LIST THE ENTRY HEADINGS":m@I1ET1mD"HEADING";I,:AH(I)?mH::N1:mL:"INPUT THE NUMBERS OF THE HEADINGS YOU WANT TO APPEAR......"mN"ON THE SCREEN....(4)mPH1,H2,H3,H4mR"ABOVE THE PRINTOUT....(5)"mTH5,H6,H7,H8,H9mV:40600:100nd:;CN;" LEDGER ";CA$;nn" <1> To Insert Transactions <2> To Change Transactions <3> To Print out Transactions (Screen) <4> To Print out Transactions (Printer) <5> To See Expenditure vrs Income <6> To Save Data <7> To Delete Data ";CA$Fox@896,"Press the number of your selection, or press to end....";so40500:B$"["160:(B$)1(B$)7130oI(B$)oI500,700,1000,1200,1500,2500,3000o:"ARE YOU SURE YOU WANT TO END?":40500oB$"Y"ʀ:100(p:"You have the following Categories to Enter........"::4pI1LCFpI;" = ";C(I)Np:Yp&40600p0:"Please Enter the Data - Type 'DONE' when Finished":p:IN200pD"Transaction No.";I:"---------------":pNJ1ETpXAH(J),:A(I,J)q[A(I,J)"DONE"A(I,J)"":660Fq](A(I,1))0(A(I,1))LCʲ:"TOO LARGE!":600Zql::NN1:::q:"Do You wish to may a Correction?":40500qB"Y"700:100q:"Enter the Transaction No. that you wish to change";Iq"Transaction";I:qJ1ETrAH(J),A(I,J)rHr:"Is this the Correct Transaction?":40500WrB"N"100yr:"Type in the Correct Data"r"Transaction";I:J1ETr AH(J),:A(I,J)r:r "Any more Corrections?":40500r*B"Y"700:100r40700sI1N1sTP(A(I,H4))8sA(I,H1),A(I,H2),A(I,H3),U$;TPEsTQTQTPpsNPNP1:NP11ʲCB$:40650:40700:NP0wsIs$CB$:,,"TOTAL =",U$;TQ::TQ0:NP0s.40600:100s:45000:"PRINTING........"sAH(H5),AH(H6),AH(H7),AH(H8),AH(H9):CC$ tI1N1tTP(A(I,H9))ItA(I,H5),A(I,H6),A(I,H7),A(I,H8),U$;TPVtTQTQTP\ttCC$:,,,"TOTAL =",U$;TQ:::TQ0t::"PRINTING COMPLETE."::40600:100t:45000:"Calculating.......":tI1N1tJ1LCu(A(I,1))JTL(J)TL(J)(A(I,H9))uJ,IJu"Done.";:" Please Enter the Date";CDdu":"Printing........"u,CN;" LEDGER. ";CD:u6"CATEGORY",,"BUDGET","INCOME/EXP","BALANCE":CC$u@I1LCuJTPTA(I)TL(I)uTC(I),U$;(TA(I)),(TL(I)),(TP)v^TBTA(I)TB:TSTL(I)TS:TQTPTQ/vhTL(I)0::8vrCC$_v,,U$;TB,TS,TQ:::TB0:TS0:TQ0qv:40600:100v:"DIR"::"Input File name to Load Data";Z$v:"Loading File ";Z$v"I",1,Z$v#1,N,LC,ET,H1,H2,H3,H4,H5,H6,H7,H8,H9,CN?wA(200,ET),AH(ET),C(LC),AV(ET),AI(ET),C1(LC),TA(LC),TB(LC),TL(LC)Lw I1N1TwI;`wJ1ETow #1,A(I,J)yw*::w4"Headings ";w7I1ETw;I;w>#1,AH(I)wH:wR"Categories";wUI1LCwYI;w\#1,TA(I),C(I)wf:wpxz:40600:100Bx :"dir"::"Input File Name to Save Data";Z$[x :"Saving File ";Z$ix "O",2,Z$x #2,N,LC,ET,H1,H2,H3,H4,H5,H6,H7,H8,H9;",";CNx I1N1x I;x J1ETx #2,A(I,J)x( ::x2 "Headings ";x< I1ETxF I; yP #2,AH(I)yZ :%yd "Categories";1yn I1LC9yx I;Py #2,TA(I);",";C(I)Xy :^y py :40600:100y :"Press 'SPACE BAR' to delete data":40500y I1N1y J1ETy A(I,J)""y :y N1z :"Deletion Done.....Press 'SPACE BAR' for Menu":40500:100NzX:@450,"A NO. ";21;" * ERROR ON LINE #";:Tzbdzl40600:100xz4B:B""40500~z>z"Press 'SPACE BAR' to return to Menu or 'P' to Print"z40500:B"P"ʑ45000:46000z{ʞ"Press 'SPACE BAR' to turn the Page....":40500:@{:AH(H1),AH(H2),AH(H3),AH(H4):CB$:{ȯ(253)127ʲ:"* PRINTER NOT READY *"::"Press 'SPACE BAR' to return to Menu":40500:100{ү{K164:PO096064|AN" ":(AN),K1:(AN)2,(PO256)60:(AN)1,PO(PO256)256|ijAN::?!ޜݜ 4?! >~?/2ԟ!ݜП~'OQj :600ijA(12),B(18),B$(18)j:" ** CHARTS PLOTTING PROGRAM **"::1300j("TYPE IN (1) FOR DATA ENTRY,"j2" (2) FOR CHART PLOTTING."k<:"ENTER 1 OR 2 ONLY "k=30005kFA$"1"ʑ730AN1ʑ730:AN2ʑ90EkGA$"2"ʑ90MkH61WkP:40]kZkd"PLEASE ENTER THE INPUT DEVICE NUMBER:"kn" 1. CASSETTE NUMBER 1."kx" 2. CASSETTE NUMBER 2."k" 3. DISK.l" 4. KEYBOARD."lDN!lDN1DN490.lI1:B199lJ!904RlDN220,240,2000,200Zl90wl800:UB(UB$):LB(LB$)l290l"LOADING STARTS... ":#1,S$l250l"LOADING STARTS... ":#2,S$l520lI1NNlA(I)B(I2)lI m"UBLB700m,F30(UBLB) m6.m@@130,UB;FmJ@514,((UBLB)2);TmT@834,LB;\m^I1qmhX16(NN1)88mrY4040((A(I)LB)F)1m|(X,Y)m(X1,Y)m(X2,Y)m(X3,Y)m(X4,Y)mYm@J!,ImJ!J!4mII1mXn"CONTINUE ";CN$,nCN$"YES"CN$"Y"ʒDnCN$"NO"CN$"N"ʀMn480VnT12cnLS(S$)snNN$(S$,3)n&S$(S$,4,LS3)n0NNM(NN$):NNNN100n:I1NN2nDCT$(S$,T1)nNCT(CT$)nXLSLST1nbS$(S$,T11,LS)olB$(I)(S$,CT)ovB(I)(B$(I))!oLSLSCT6oS$(S$,CT1,LS)=oIIoLBB(1)UoUBB(2)[oo"LOWER BOUND AND UPPER BOUND NOT COMPATIBLE."oooo"-- DATA ENTRY --"o:"THIS PROGRAM STORES A SET OF DATA"p" ON CASSETTE TAPE."2p:"PLEASE LOAD A TAPE IN CASSETTE NO.1"rp "PRESS BOTH THE 'PLAY' & 'REC' BUTTONS ON THE CASSETTE.":p800:1090p "HOW MANY DATA YOU HAVE (MAX. 12; MIN. 2) ";NNp*NN2NN12800p4:"ENTER DATA NUMBER 1":A(1)q>UB(A(1)):LB(A(1))qHI2NN0qR"ENTER DATA NUMBER ";IGq\A(I):A(I)(A(I))\qfA(I)UBUBA(I)qqpA(I)LBLBA(I)xqzIqLB$(LB)qUB$(UB)qL1(UB$):L1L12qL2(LB$):L2L22qB1$(UB$,2)qB2$(LB$,2)qUB(B1$)1rLB(B2$)1rUB$(UB)rLB$(LB).rL101040;rB11L1KrUB$UB$"0"SrB1`rL20ʒmrB21L2}r$LB$LB$"0"r.B2r8rBNNNN100:S$(NN):NNNN100rLCL(LB$)rVCL$(CL)r`S$S$CL$LB$rjCL(UB$)rtCL$(CL)s~S$S$CL$UB$sI1NN$sAA$(A(I))2sCL(AA$)@sCL$(CL)RsS$S$CL$AA$YsIhsS$S$" "ts#1,S$s"DATA STORED ON TAPE."s:"CONTINUE ";CN$sCN$"YES"CN$"Y"ʒsCN$"NO"CN$"N"ʀs1250s t"DO YOU NEED SOME INSTRUCTIONS ?":3000:)tA$"Y":1340>t(A$"NO"A$"N"Ht21300t<"THIS PROGRAM PLOTS A BAR GRAPH ACCORDING TO THE DATA INPUT FROM:"tF" 1. CASSETTE # 1."tP" 2. CASSETTE # 2."tZ" 3. KEYBOARD."t[" 4. DISK."2ud:" OR SAVES A SET OF DATA TO CASSETTE TAPE FOR FUTURE USE."cun:"PRESS THE NEWLINE KEY WHEN READY ":3000mux::u A$:A$""3000u %!!͚!6 @:08:8>0202%!$D¨>22K>26D:ʨ:ʘ̈́ (AO?̈́ (D!͚:%I >:%G!>2͐B!~A8y0!!͚ya8Þ>2>2KBDC!6D?:=2 Þ`# !~ 4 !͚:<28 2+( [*:(#Rx~ ( 88>.3# x STEP BAS ENTER DRIVE NUMBER (DEFAULT=0) ? DIR/SYS:0RîSS)!%+͌R 6 (,  (++(%(-( .(08:0͌R .(08:8!$Vs#rͽW#+͌R "( (͌R ,( (#+6+͌R "(͢Rw#6RR !:_wR6DR9DR$DR DR(DRD!R: } DA~(#> ͽW͌R +~ (w#*pD6 #mD6"s{S!4YV1U!$""2Xi:@8]î!6:a| TbUS | T8URT|T T8U!z(+z#|g}o|g}o|g}oYT9U_ogK_o J".~T{G͘W: [ @}{(!?o&:*@͇C~d#͖C5w#>2@[!A"!A+| A9U<bTU))yO+| z {{{~w# x ɯ 0< o&!\"DM!˺z>=#EU#B]U = R8}!0# *!$|> ( w#T!YV^R8<(0w###{ 0= 6$")*V#s#r"T#~0U 8 ))))_!FV%((-((+ #)))FV0 0_#FV0 8T~ #}&;$ SV (YO0 Oo0!|?gy?FxPV wPV /wPV!Ƞ+>3|3!$"FX86#N#F+z( )B^#VWW)^#V) s#r:! @(!~͘W͘W!$0͗UV|~W}͇WƐ'@' ́UV> > O:=y3˜R! 84 6;bU)*~#~#"ͽW*^#V#"Ww#Rgo+ɯRgo+X+X+zW| }!(#(!X+X+X+X+nM*{(Gq#6"nM{yC͞W(z(_x([+ K|( (+C}x x( A~w##+o&"!ͽW*w(#X"yA(((~((( #((i&.'d ADPCompiled by ZBASIC 2.2 SIMUTEK INC. TUCSON,AZ (C) 1982 Andy Gariepy ? ͏Z#(& #8 'w+w  [_[͏Z.[!!~(2Y(G [~(#????G!o+ [!7[++ !_[.[!! @[(V@[(PN[0++N[(0  '+~wy #++9[@[ !_[!`6!ͲZ!ͲZ!  - 6!$6# (+(.( 08Z:0w # (08:0w#6#6A( 9 oo# 'w+[͏Z2g#~ # #~> (>-#~ >0#>.͠[0  ~0#Ġ[دo0o#!$6 #w(.(# #w 6.#[ 60#6(.( (.( (#(w## ##(  ~:0 08w:8w+~.(:00061+ww# Vs#rl=(ͱ !!Ae!A>A>!AO2@2@6 ###########.##00: sub-total: --more-->TOTAL:########.##\;ENTRIES;ID'S; LATEST: CATEGORY, AMOUNT/DESCRIPTION ==> A00I.D. NOT FOUNDCATEGORY NOT YET DEFINED** CATEGORY ALREADY DEFINED **CHANGE ITS NAME (Y or *N) ==> ?Yy Total by Worksheet or by Sub-category (*W or S) ==> S 0.00]These sequences are available: D - Descending by value A - Ascending by value N - alphabetical by Name I - ascending by category I.D. (normal) H - HELP / - CANCEL Select by letter ==> ? DANIHNOTHING TO SAVE THE ORIGINAL FILE WAS: WHAT FILE NAM^E SHOULD BE USED ==> WHAT RANGE OF CATEGORIES SHOULD BE SAVED...@ @@%ERROR WHILE WRITING. FILE NOT SAVED<*> <*> <*> TALLYMASTER (c) 1983, PROSOFT <*> <*> <*> TO RETURN TO THIS MENU LATER ON, PRESS H - HELP (INSTRUCTIONS) _ R - READ WORKSHEETS FROM DISK $ - DISPLAY AS DOLLARS & CENTS W - WRITE WORKSHEETS TO DISK % - DISPLAY PERCENTS OF TOTAL A - ADD A FILE TO WORKSHEETS I - DISPLAY VALUES AS INTEGERS D - DISPLAY DIRECTORY M - MATH AND MOVE ` Z - ZERO VALUES S - SORT/SEQUENCE CATEGORIES C - CLEAR NAMES AND VALUES T - TOTAL SUB-CATS TO 1ST PAGE Q - QUIT (EXIT TO DOS) P - PRINT / - SWITCH TO WORKSHEETS SELECT BY LETTER OR SYMBOL ==> ? ZPWCQHRATS%$IMDaWORKSHEETS ALREADY CONTAIN INFORMATION. USE FILE 'ADD', OR ELSE 'WRITE' AND 'CLEAR', THEN RETRY 'READ'. Add an offset (Yes,No,Help) ==> ? To what I.D. should file category 'A' be assigned ==> Printer Setup What range of values goes in column 1...b What I.D. goes in column( if done ) ==> /** INVALID I.D., PLEASE RETRY ** How many characters fit on a print line (DEFAULT=80) ==> .. ** ALL THOSE COLUMNS WON'T FIT ON THAT PRINT LINE ** PRINT A BAR GRAPH ALSO (Y or *N) ==> Y00 c CURRENT REPORT TITLE IS: ENTER REPORT TITLE (OPTIONAL), UP TO 70 CHARACTERS ==> ENTER COLUMN HEADINGS (OPTIONAL) CURRENTLY ---------00 ==> PRESS WHEN PRINTER IS READY, OR AT ANY TIME TO CANCEL ==>: 050 * d ** TOTALS ** EJECT PAPER (Y or *N) ==> 0 Page ...10...20...30...40...50...60...70...80%ENTER STARTING I.D. (DEFAULT='A') ==> /ENTER ENDING I.D. (DEFAULT='ZZ') ==> /** INVALID RANGE **00100 0.0000MATH e/ MOVE: C - Copy one range to another (duplicate) R - Relocate a range of categories (move) A - Add SOURCE range TO TARGET range S - Subtract SOURCE range FROM TARGET range M - Multiply TARGET range by SOURCE range D - Divide TARGET range by SOfURCE range K - Multiply TARGET range by constant from KEYBOARD V - Divide TARGET range by constant from KEYBOARD H - HELP / - CANCELSelect by letter ==> ? CRASMDKVHSPECIFY 'TARGET' (RESULT) FIRST ! TARGET <--- TARGET cmd SOURCEEnter Multipliger or DivisorWhere does the SOURCE range begin ==> 0.00HELP/TAL'HELP/TAL', NOT FOUND@Default is: ==> >@ ENTER NAME OF FILE TO BE READ ==> ** FILE NOT FOUND **@OFFSET RESULT ABOVE 'ZZ' - RECORD BYPASSEDNON-MATCHING RECORD BhYPASSED: : .** INVALID FILE FORMAT ** %>>> PRESS ANY KEY TO CONTINUE <<< THIS MAY TAKE UP TO SECONDS...0.001-..NUMBER TOO LARGE: PRESS 'Y' IF OK ==> ? YV!"!"!"!"! "!"!\X!ͺV!! hX!jͺV!"hi!@"f!"d-vV*b!W|ik*!W|i!"j*+*hS*hS#"*!W|j!"**bX|1j**hR"jFj*!W|Fj!"**bX|bj*b"`lj*"`*b!W|~jkV*"!!\!\̓Y*"j*`Xژk**R*fS"** W|j!X!ΔͺVk** X| k!\X!ΔͺV*"k!X!ΔͺV*͚V!\V*@W"̔q!V!\V*@W"͏!iX!ͺV!Ӓ*ڑ́X!ͺV*bͽW**!ͬX!?iV͌p!VW!!Vi@X|v-@=wtqFD|n |T.+RRs{ͻR͢R.VR*I@}o">!}o"@K͞"`*>"s~09> A>Cw>ww͢RgRiR͵>GV*T"2>GV*T"4>GV*T"6!"?o͢RgR !{!66@66>!*R!CR!=R*I@Rw#z(!C>wR!<>w >>2S>Vw#>Cw!&"!"#> 2%>2 222P2!"N!Fw#:^V>2 S>2ʹTfS!S~ a8z8  ! g:%^V|*!wnT"!:%=2%ͣSëS>2 ͳS:(>T: (~:(}T:% NSUS V:%<2%*#FnT"#x UóS UóS >2>G>2 xA8Z8 0898   [  wwa8 z8  wyw~#}F | !&0 ͏T>2> TͣSٖ>22w>wˬ˭!;T!F8Oq U##TT:% ( >! "Q*N:PG~([QSQz :P/w;T!("Q>O x  y2P"N>98<OFR} !U ~ ͝U! "Q:8(}oU~,8/8  <8?8 @ >`` >@ ͝U! "Q O:8(xy`hpx08@HPX ( [  U:2V V*| !!"KxK x(CV[S(Vqp:V:":#w[8*6:;G::O>2!<"T> @w# _#!<"T:(<2!<>ͫV= >2!<ͫVͫV!VVV!VVyV> XV@@q#VX@XSV= KVVCV< !˟w# !˟՟Nwy#!˟"> 29W8W: :*r2*7* +* "+: D = :=2 W:8 % D!ߟ՟ = * B":<W2:(>r2П7ɷɷWDW>2ӟ/Wd8d 2ϟx2П>2ԟYW!ӟ~(DrWx:П :ԟ0> :Пd0>d7%X!˟ !7X!/W˟ ͥ[:ПrW:ڟuW:ޟG:ԟ[iXD WX!՟O ՟DOG>X:XO:ݟ Xd8d#Y0 WXXd#YuWvYEX˟!՟:ӟG:ݟx(X(?:ޟG:ԟП!ڟY+(:ԟ(Yw[w«W!ҟ~=Y+[xG:ԟ2ԟx B˟!"џПxOp+< :П(:ӟY2ӟͥ[X8 WuWͥ[X0 WuWͥ[NSy[:ԟG:ޟ2!՟(O˟GZ##uWW!~Y+[: 2ԟПy :2ӟ!X90 }d&Z$o#{d2Z_y ~d8dw#~d8dw#z ͥ[NS:П[:ڟrWy[:pZԟG:ޟ2۟!ڟ>2՟!˟~'d8dw# :ҟ !џҟ2˟:<2!ܟ">2!!˟*:G Y8 *yG՟!:OBG[d#!~0d?w+x9 *+"!5w+!˟:2ԟ `[ZX:Пd8 d2П>2џY:ӟG:ݟ2!>w#: 8:r2П[:8>r [0 :ڟ[:ڟ[0:ПG:П2ڟrW:Пp> !˟w#ͫWuW͐[:ԟD[8WO!˟ >w+ \Y>2ӟͥ[XrW"X.XXZ[.X͡YvY4XEX:ӟN\.XEXP\XW>W~{\"X̓\͡YEX4X.X͡YrW̓\/W˟~2ԟ#~2ӟ#~\0^*+~\ U~\$A\~\D `9:ԟ'2/:П 0 > W͡Y!/5>2ԟ9WáY͐[:ӟ\ëW:П ëW\~\BM͡YX>WX.X>WEXXZ9W9W͡Y9W!@]`O\ W!`O\XZ͡Y:/ʹWEX~\2X\ͧ\áY͐[͛\͡Y:ӟ249W[:4]>ʹWEX"XvYEXͧ\͡Y>WXZ9W\X> WXZWEX( .X WXZ9W>WEX WvY>WEXXZ:ԟ'ʹW4XEX:ԟ(:П(ëW:П!ӟ~(DrW2ԟ0>0^ W͡Yͥ[:П23:ӟ22 W:П21:ӟ20:0^:3 rWrW>W W9W[X( rWrWëWrW:ԟD^> O!˟ ~/20 W>2ӟ:1 :2^:3(rWWrWëWj]͡Ys]:02ӟ͐[:ӟ24\9WͿ\\ WͿ\XZ>W\[:ПrW(_Ϳ\8 _ WX0vY:ԟ;_0c_9W\!`O\͡Y:ԟc_(:ӟrW>W2ӟ:4G:ӟ2ӟͿ\EX^9W^ Wo_XZ~\28^͐[:ӟ25>2ӟ~\W NGFX0,rW>WX0rWëW W\vYEX͇_:5@25rW:ԟ_89W\9W!aO\ W!?aO\XZ͡Y!5`v( vYͿ\EX:5G:ӟ2ӟ͕_vYͿ\EX͐[:ӟ25>2ӟ>WX0:5@25 WXZrW:ԟr`0 `9W\9W!haO\ W!aO\XZ͡Y `aF3>^ F (V]2?< ^] /N4[6 CBBBB!!!!!S)b)b\9KUS a42$&;<Q%/LS@_*$H XEGa= -!B]- 1GK$R@_*$c YLMc7 7W'/Q-XV,PJ_UT8C17R?2675 :VY ZV,PJ>4!N+A#7X-Xa>a*6"p>>w>X d*pG~ȷ( p#"p=w˼wOa!b N#FCQ*Qb072a~b.d)dj~#,ba~a#0a>GPbG>G> a~Nctdb$bAPPEND TO WHAT?4*h~ ~ 7!hgI4!w#5b4+"h~ 8 *4[4#?*4> *k dw#"k>_bw>až*4"k!g"hJp> w>Sb*kb~($b$bCURRENT_APPEND IS NOT EDIT4} |Nc0~J(=*h(>w+"h4~ 8 *k> w+*h[k?+~ d*k>_w"k7[0z(>G> >>a˼*0"b>w>w͔cc*c#"*0|(->O :#G"6~(2:p+:"G"8~(2;p>2` >[:Sda8z8  ~b dG~ 47*bp#"b5~(5*b+> w| }8 7"b4NcJdͫ͢Sˎ~#d, ˎ ~ ~ ## ˎ~(dͣS ##ˎ^#V"8[hS;>wͫS ͣS~ 7Nc5e0~~a84ͣS*8~/e(  #7~ 7*;~#";5>ace`h(1~(( hge(w(G xO!( ~ !҃͢Cg~(}d8f 8f;8efͫS ͣShgbf0`h#WKpM!Q">w#!">P!w#*h"!Q"(!yw#~ 9 *w#"5*^#V+u׏GfͪÃz͔v^f>2ʞ͞fc^fcͤWK>2ʞ͈!˞w5#˟ Пp8fw#5"+!f^#V#( ^#V >2ʞ*F b$bBIG EXP4w# ~ }d#(hggg;g.g@hͣS~(#h!1h.nh!̆!ӆ yͣSfòg #97þ*R~#foc*~(p*} 7++^#Vz 7+"SCg,Cggz͈f!˟~( ~f##rWCgþu*} ^#V~(p#9##"[s#r+R[hs#rͻ|*א9"ògYh9*#"-Fh*++OwhgÔg׏VwÔgͣS͔vXeb.XÔg`h 7~ 7Fh÷*}+~+ngYh9*#"->4gh}d.hg*+"/~0hg7>@a*ͱh0tg7!Ɇd׆hyfͲg}d(h*; 7Gh#~ ~ x(h( i8Siͪˬ~ ˭~(͌z?oˮ~(moͪ NS!~(͏T!zdj:kPe":k~i+Pe-Pe#Pe.Pe@Pe(Pe!piz>;j/i ~i;!؃zd/i-2kBiCiDFiG[jIM>PՋRSTQViXkWb>w!zd lklk!ۅzd!ƅzdYRiw_i(wmoê!ͫ͢SͣS!:j x=+9~ > a$b/F!4jO ~aD$I*GRL!͢͜|0׏(kͪo*+"#í!^z`jdCnjRjOjFi!n͢Ͷz8 8?o9!{zdRjCj>RÚj>Cw͠oÃz!zdAjMj͌z˫˫ojí}dj k[j k!{j!|~ݾ G~ݾ(kx=(kݾ8+()w!{c!{k!|~<ݾ(kw!{c!{̓Vc>!?k>!w͢cc*0Pk| xͬci0ͮoê}d lk:ʞK~J(~2ʞ!g˞F~#>J _ܔckÃz>wlk!nzd>kVkHk-.l!.l;j6~=w#5 ++ͭ?o!|k!{!{>AͶz8.ˀ~  8 "8w98 8=2?>w4p!{sq2ПXf*4!{Ͷm0bmzmmWmͶmͶmmͫSͣSm ͫS (,(ͣSDATVECTORTUPLE!7͢!;o!xn!͢Ͱn!nϛ> a$bTAB nLE 0,1 "" VECTORS 0,*n$b "" TUPLES 0,*n$b "" DATA 0,0 "" $b-1,0 *~ݾ!{8F*~w!{$bBOT *~ݾ8NS!~nn*4 *4!{ $bEOD S~ݖr:ʞn$b1,0 ""p$b" $b0,Vw:Пp8$bo0, :ПG(>>͚u$b >Jr$b V DIFEoê!"NK3V͠o˭mo~( ՓmoՓ׏ˮK>w>wp4~ݾ84~ݾ8H*6>~wςH8p~( ՓpՓ~5p44p05͛*0N > w5͛wpk˭~(H0~͔cpaͯc#WK~(~p:ʞhp/W!˞~\pͧ#П~G#x(>=FJr(Y "~ ~ !˞~(#xHbp ˼~(:˞(p0pb$bBAD NODE TYPE4!˞~# a0~ݶ > Pb:!ap~(z˼~(~͜q: a~q(Ox(@ay@a˼~(=~8 ~8 : a~=͜q~8( ~8 :$a~(&W~(>Jr~ ˼~(:!aG˼~(~8(8~ : PbKͺap~(j~ > a:ʞqq(r:ʞ ~ $b (L) $b"p ~ $b (/-) $b/-p~ $b (V) ׁuW>JrPrrW{w1p0q2S|˼~( 2~ > a~0 ~w0ou 2:Пp8+˼~ >@a:ПG(>>2v HbyÚu !~ +pJrr4?:ӟr6D~?wMr/wL5L 8x1wN~?swE>wF~0 >I >I~J?8s>wH8pG~1DEu I~( G~(juwGwHGGI~ #FuOK~ F~(J0 ~ND=uxH0 I~(juwHHjuOI~(OFExy Gs(O=2v wCs~EHF!ݜ_ 0S#< 0p> 8 w>+s>w(" !>w34?K~(4Jsÿr!ݜ"> w/> 5CStaD~(-O~(~3 >0xaO~(>0aFEtG~(>.a>4Ft :b5HFHt˼~(C>O*0t W+ t~0(.(- > w  #~0  #y0 ~0  +> wtt*~/( ~#5/">:bI~(juK~(juK~Nw1>w?s>EaM~(>-a!ݜ"> w/~L ^u x:b:b>>?b:ӟu:ԟu(  :ПG>*Pb>@a͌v~GO!׆uu~ ##~a~ #!( ~(>(au!"NS*##"~#fo("u:Q >+aK-fR[hs#r%v[v>Jrw |v $b...oʏug O!̆ ~a$b??/W͌v~ͧ#~(П{v+~͌vͷp*'"#*~v#foͫvK-f(#Ws>!"!"NS#Wˬ~(*~ *~[v*w~ *}(+~+ "~x> ͺwv-f [vCww LwCwʟwxCw{>#W*##"-f~#foͷ/W*,##~iw7#~(~ͧП w#ww*,~#fo",##~{w-f0xwwCwO~qYx>r/W2П/W"Ҝ>w+*px##~#fo~ ͝yz8*Ҝb4+~+*Ҝw"Ҝw+bJz0!EXbx!rWbxrW~+W!EXbx~+WXZ!Y>/W2ӟ>c˟>?2ԟgx!Y>x>W>WwEXXZXWJz0z͝y0]zz8 EX.X͡YJz8zwJz8R͝y8MJz0H*~ B[,`yz8XrW8(*Μ5,rW,~ /W>q2П*Μ5*М4Vwz{zͷ8o*#"5Cw-f _Cw{zͷ8T*#"7Cw~ݾ !$#F!| !#$F!{p-"ΜSМ~ݾ8>>w*!{*5"#ͫW -8(7>Vw84+w-f PzCwCw76~Fwp#5 ++y*~#fo˫~(êKo*6?>!w!z ͠o> wcׁGfb͚{0}d z:zb7bzvY}d-z+z@{0ͫSD(E GaͣS}d-{+%{({{,rW7a͚{0{D0{a͚{0{S|?w?{@{!Ćd0/W{;e8A. B ~/ B~(5?>B~ 4?G5/{*p#"4/{!džC{:ԟ :П 7& :П0:П0 !{_:ϟ77rWd{> w/!ݜ"!ݜ>w#W~?G('~3 5?!ޜݜ 4?! >0|~?/2ԟ!ݜП~'O''##Y{П!ݜ j| p#w# v| :ԟw?~3 ~4(!ޜݜ 6>5?ceͻ|8 }d |:|b7b׏|*#"+׏09}dH}|>|;H}2ͫSa@w͝S~ '~a~/!A}_V~@@/ }w͝S͚{/w//~/4NhþcCgpͫSo}d;o}j}t}͊g7͚je}d2g8Yh*#"-}d }:}.}}nh0hg}d }:}}׏hghgÊ}>fͲg6~ww#5 ++g~ú}hg~}e*#"+gÊ}K-[~/x y8 qs!{"y x8 pr!|"7*.>w#wV~0*,| 7^#V+S,[*s#r+"*KuCu**| !*u|(b$bBAD CELL COUNT47",~#V_+S*Ku x(b$bNEGATIVE CELL COUNT4Cu*`}o"wNS| }(p!"u*w }oNS| }(F(s#r+*u#"uT] S*~ݾ8b ~ݾbK)̀0C)9ς64 7~ݾ0~ݾ8(7ww#5 ++^!~?0# %[@͘8 7[>͘87";"w!"#Ȁ*.^#V+z(4 {0$~~0 *`"w7}|*.##".[`͘8*;[`K9C#y(/ x(%>+w+wyݾ0xݾ0w>#w>+F*;"`K9͞|}C)*@Y[@"^q.H!}| 5. ~ݾ0 ~ݾ0*@N ^#fkN ".!".7Ȁ0!",F#fh",| 7K0 ~wʞ*,##~#fo :ʞGwx2ʞPp>!ʞw#>2ʞc~ bH~͑0 H~9K:ʞ2ʞͮo:ʞG2ʞ*.x ~w#>wʞ~~}|>w#w#Ё ߷eQ:ʞ .5:˞!˞~ #x( ~+5UB!˞~ ##"~'8 ~ \'8\(\U!Q"!"{z~#5>k>w}d ͣS~ ~~ aWb0b7ηK| }ς>Xς"N[2~ d#*u%|>*2  8 x~̷ ~0+>Mw0w#"Ŝ~C !#$FN !$#FNpq"ɜS˜>>*ɜwNS8%*, ~ *Ŝb0 9ê*ɜ4~8*˜4~8ê:ԟ @8 W>r2П>G:ӟx@G'2򰃟x?2ԟɀLabelLabel: RepeatingValueCommand: BCDFGIMPRSTVW-Go to: CoordinateReplicate: Source range or ENTERReplicate: Target rangeReplicate: N=No Change, R=RelativeGlobal: C O R FColumn widthReeval Order: R CRecalc : A MWindow : H V 1 S UTitles : H V B NStorage: L S D Q #Data: Save LoadData load: R, C or ENTERData save: R, C or ENTERData save: Lower rightFile to LoadFile for SavingFile to DeleteDelete: Y to confirmQuit: Y to confirmInsert : R CDelete : R CMove : From...ToFormat : D G I L R $ *BlankClear : Y to confirmCopyright (c) 1980 Software Arts Inc. V1.20ZPrint: Lower right, ", &, -, or +Print: File, Printer, RS-232Print: Setup or ENTERPrint: File nameXPrinter not readyEXXYXZ8^3vYRxWxxxxx@yxx[\^o_x__+`7`\j]s]\_.+-*/`),+-(NERROSUNPMIMALOOKUCOUNAVERAGINABSICOTAASIACOATALOG1LEXPSQR!͢b}*"‹[/S#J*>p~(>5w~w~w!{:!ͣ͢>&}dC·Rԇb}dC·Rԇ ԇ߇ͣS^V!|ׇ!{"‹7!~ͣ͢*~ݾ!{*)"#*5!{b>w*~w~=w*>w!{NS~w!{NS~GfъK!QʞMc*4~ݾ!{8(Ʒ!"-f(5U=y~(#ͷ6~݆w#5 ++אL*~#fo:ʞ1NSc0ׁ-f Þf nͷ*~8\ ~(~( >w#>wB~å8 (~(- ~ ~ ~åw!{*#"+א!{L7~ { !|!{"!*zdFPRJՋKՋLՋͣS9p!!a!]ؕ͢!pϛ!zd" +&-݌{> ͬc~ݾ81~wЌ~ݾ8p> a04 ͯc> a4 pٖ7͢͜|p*+"/6~ݾ0!{7#5 ++!Gzd nj:nj> ͬc~aͣS?oNS!~p>>2%> ͬc> a:P:RG~ 75xj!zdS]D4#/lQ!zdS]D4#/lLQ!G͢ͻ!VzdYQͣS9ٖ>` ܡ!7͢ޕo> a!Sϛ~w~wNS:S:ʞ ~( q\5 5 $b/W1 /GO~a$b /GR>A˫~(>Ma\~(Փ~(a$b/Xˠ~(H!{V!|~ݖ!{OxH  yxa>r\a>;aՓa~ >;aˢ~($b/WS a\זٖ> a~(O!4j ~$b/GFa\$b/GC~>r\~ݶ(GK 6~(+=w!{$b/Tˀ~ >H>Va\#5 ++KKC# C#$b/X>>ap>:a!*͢ͻoˬæT!kzdY&3V-@9ͣS79^V7~ >~ˬ~( Z GV*T@q#ào6~("ݾ8(݆݆0!{7ݾ8!{7w#5 ++Ȁ׏6~ww#5 ++~wcbþq~(Փ͠o*'"#c*K#p#q#"*+N+FC#"H8%6~(ݾ0 ~ݾ>#5 ++!{K!"06~('ݾ0ݾ8 !{7ݖݖݾ8 !{7ݾ8!{7w#5 ++K~݆GVN!= N*T "0~G x?w#~w+>Аww7~07K+x?w#q#;đˢ~(?*"ˡ~(!{!|~ݾ(wՓ~ݾܩ!{đՓ!{6~w~ w8ݾ0Fpݾ(0ͩݖ0 ~=wݾ8 ~ݖww~A?o6>wwwˢ66@6 !{p!|~~ڍˀ~ ˡˠˡˠ4E!B!R!=~݆=w~w*"~w5ˀ~( O!= ~݆ˀ~(8>w~!=w#w# V8 (+ >wq (5~07!zdHgVnNBdn!{r!|~w~w4ݖw!{ˮ򐔪6ͩ#5 ++ˮ>www~<ʔ~=w~ݖO~݆wp<ݾ8V^~=;~DW^~ݾ0:݆GV~ݖK!= N*T ={Jy(T] N<~=wp5@^ @ `0@>2![sǛ¡>2!^![sǛF¡>2:@BD@9D( >2ٖá@6D( ٖ¡7>2!"-w#wʖ@! D(͡VC PRFgyJDwpÃ"bdͣS!`!`g>JGa8z8  w#> wߙ0>͡7 :(:P@!` ɷǛ: :(>2@(DǛʖ@!$DǛ@,Dá:H*:= Fx2~#" ٖ>7P 7R _^ >`7`(:(R hP ã*w:#= :!>"2!ȗ#8 8 #û#~(#7>2ͫ͢S7I/O errorWrite protectedIllegal file nameDirectory errorFile not foundEnd of fileDisk fullOther filesystem errorP: nx87Gn(7͚ԇ(7x2!@ 2Fm>@BD¡6D!~ 5 [ #(:(H >> 8 (7 = 7 Bb~ a#>/a~ a#>:wa#:0wa͝S Wb0@>$ ̓ͣS>~ ͣS7~aK&> @BD¡6D:!_ ##DMx8(7!@!֙@ 0> !$D (D7 7ɷBOOT/SYS:>22>2>2!`~ >: ͙~ 7/ E#~ >2> $ͻS> 0~ٚ0#: ͙~ (7ͻ~/ #ͻ>/[~. #ͻ~: ͙~ (7#~P( R(0#82>2~ #~ٚ 0#~ٚ .:/7 00798(7ɷA07Z8(7ɷ  R( }DGw#RFPʋ!`O ~"DUfw|ͳ( |' x w(>;!p͢NS;ͳ; :%> ɿ` >[::>U"sDUDNS>2{*7 > w#>2:ɀRw#RFPʋ!`O ~"DUfw|ͳ( |' x w(>;!p͢NS;ͳ; :%> ɿ` :20)"--------------":::"Do You wish to Load Data (1), or Build a New Ledger (2)?">k40500:B"1"2000:B"2"30Fk20@@4 MWWEFGHSSTA C!BN7lMQc@DHLPTX\`dhlptx|VisiSet Logitec(c) Briggs Software Napier NZ Select Printer Characteristics required - - (1) Reset Printer (2) S@tandard ASCII (3) Italic ASCII (4) Pica (5) Elite (6) Compressed (7) Double Width (8) Cancel Double Wid (9) Emphasized (A) Cancel Emphasized (B) Double Strike (C) Cancel D/Strike (D) Superscript @ (E) Subscript (F) Cancel Sub/Super (G) Line Feed n/72" (H) # Lines to Page (I) Skip Perf/# Lines (J) Left Hand Margin (K) Right Hand Margin (L) Output Code (M) Return Line Feed (1-127)/72"Lines to Page 1-127 Skip Perf@. 1-127 Left margin 1-255 Right margin 1-255 Ready Printer or Press (M)Enter Code :8p!FT>2> c>2!?" @>:(yc:8o / [a8 18:8+A8L ͷzM >2͖:8 <00!G##~#fo~< #=y@##8xʸԨ!c< 6 ! @~2T!>"I@Insert VC/CMD,VC/CMD vjZ:500:S9(20,2),A$(14),S$(14):X1400:X225jdPP68:N1307:N2499:N3371:N412:N517:N6883:A162:A276:A372jn@460,(23)"-=< VISISORT >=-"#kx@896,(34);"TRS-80";(34);" OR ";(34);"SYSTEM-80";(34);" (T/S)"RkJ00:CC$:J((CC$"T") (CC$"S")):k:CC$"T"ʲ(23):PP72:N1310:N2502:N3374:N40:N50:N6886:A160:A278:A372k5N5)"# V I S I S O R T #"kN5) (30,61)kN5)"(1)..STANDARD BUBBLE SORT"'lN5)"(2)..BUBBLE SORT WITH SINKER"IlN5)"(3)..SUPER BUBBLE SORT"glN5)"(4)..EXCHANGE SORT"lN5)"(5)..DELAYED REPLACEMENT SORT"lN5)"(6)..SHELL SORT"lN5)"(7)..SHELL-METNER SORT"lN5)"(8)..QUICK-SORT"mN5)"(9)..EXIT PROGRAM",m@896N5,"SELECT SORT ROUTINE...."YmJ00:CH$:J((CH$"1") ("9"CH$)):rmCH(CH$):CH92320m": CC$"T"ʲ (23)m,490m6K0NS:A$(K)S$(K):@64K64,A$(K);:m@NE0:NC0:NO0:NI186mJNS9NI184nT@152N4,"NO OF ITEMS ...";"##";NS1*n^@216N4,(18,61);Lnh@280N4,"COMPARSIONS... 0";nnr@344N4,"EXCHANGES..... 0";n|@408N4,(18,61);n@472N4,"TOTAL ACTIONS. 0";n@536N4,(18,61);n CH 1210,1480,1330,1590,1690,1840,1970,2120n860o@600N4,"*****************";>o@664N4," * SORT COMPLETE *";`o@728N4,"*****************";o@856N4,"RE-SORT ORIGINAL ";o@920N4,"LIST..........(Y/N)";oJ00:RF$:J((RF$"Y") (RF$"N"))::140oRF$"Y"750oFF0:NS$""pN5)"HOW MANY ITEMS TO SORT"DpN5)"SELECT BETWEEN 4 AND 15 == ";apSS$"":SS$:SS$""530pSS$"1"NS$"1"NS$NS$SS$:F1:SS$:530p&(FF1 (SS$"0"SS$"5")) (FF0 (SS$"4" SS$"9")) 530p0SS$:NS$NS$SS$:NS(NS$)1!q::N5)"SUPPLIED BY COMPUTER OR USER ?"aqDN5)"PRESS ";(34);"C";(34);" OR ";(34);"U";(34);"...";qNRI$:RI$"U"680: RI$"C"ʲ"COMPUTER":600:590qX:N5)"NUMBERS OR LETTERS ?"qbN5)"PRESS";(34);"N";(34);" OR ";(34);"L";(34);"...";%rl J00:R$:J((R$"N")(R$"L")):RrvR$"N" "NUMBERS":R$"L" "LETTERS"^rK0NSrR$"L"S$(K)((26)64):S$(K)((89)10)rKr750r:CC$"T"ʲ(23)rN5)"ONE CHARACTER PER LINE MAXIMUM"sN5)"(LETTERS OR NUMBERS ONLY"sK0NS(sN5)"ITEM #" K"= ";wsJ00:S$(K):J(S$(K)"O") ("Z"S$(K)) (("9"S$(K)) (S$(K)"A")):sS$(K):sRF$"N"s:CC$"T"ʲ(23)ss @918,"PRESS TO";s@982,"START SORT..";s KI$:KI$(13) 800t*8601t4@856N4,"SPEED SET AT :-";(X125);Rt>@920N4,"0-9 ALTERS SPEED";tH@984N4,(34);".";(34);" TERMINATES SORT";tRt\SC%17:@530SC%64,(30);::tf:tpNCNC1:@N1,"###";NC;tzNONCNE:@N2,"###";NO;u@64XPP,"<=-";u@64YPP,"<=-";(uT11X1:=u@64XPP," ";Ru@64YPP," ";[uW$uW$""X1(W$)225:X2(X1):@N6,(W$);uW$"." ʑ860:@664N4,"SORT TERMINATED.";:460uu:uK082u@64IK64," ";A$(I);v@64IKA1," ";A$(J);vK5v@64I74," ";A$(I);@vDFJIMv$K1 DFhv.@64(IK1)A2," ";v8@64(IK)A2,A$(I);vBTI1 X2:vL@64(JK1)A3," ";vV@64(JK)A3,"A$(J);v`KvjK802vt@64JK64,A$(I);" ";w~@64IK64,A$(J);" ";wK)wNENE1=w@N3,"###";NE;awTE$A$(I):A$(I)A$(J):A$(J)TE$gww@N5,"=========== BUBBLE SORT ==============";w780wFL0wI0NS1wXI:JI1:880wA$(I)A$(J)1290wFL1w1000w Ix FL11230x420x(:x2@N5,"SUPER BUBBLE SORT"Cx<780QxFI0NS1hxPJI1:XI:YJ:880xZA$(I)A$(J)1460xd1000xnI1Ixx I01450xJI:II1:XI:YJ:880xA$(I)A$(J)1450x1000x1400xII1xIx(y@N5,"====BUBBLE SORT WITH SINKER===="7ySSNS:780HyFL0:SSSS1TyI0SSkyXI:JI1:YJ:880yA$(I)A$(J)1550yFL1:1000y Iy FL11500y"420y,y6@N5,"========EXCHANGE SORT=========="y@780yJI0NS1 zTJI1 NSz^XI:YJ:8801zhA$(I)A$(J)1660;zr1000Dz|J,IMz420Sz}z@N5,"===DELAYED REPLACEMENT SORT==="z780zJ0:R0:I1zII1z INS1820zJI:RJ1zXJ:YR:880zA$(R)A$(J)1780zJRzRR1{IJ1720{1000{1720${420*{&T{0@N5,"========SHELL SORT ==========";]{:780f{DMNS}{NM(M2):M01950{XH0{bIH:FL0:JIM:XI:YJ:880{lA$(I)A$(J) 1930{v1000{FL1{HH1:JNS1890{ FL1 1880:1870|420 |-|@N5,"===SHELL-METZNER=====";6|780?|MNSW|M(M2): M02100b|PMSNj|H0r|IH|JIM:XI:YJ:880|A$(I)A$(J)2080| 1000|IIM:I02040| HH1|*HP2000:2030|4420|>}H@N5,"========QUICK-SORT=========";}R7800}\I10:J1NS:P0Y}f@600N4,"STACK COUNTER..";"###";P;b}pII1}z@664N4,"SUPER-RECORD..";A$(I);}JJ1:S1}XI:YJ:880}A$(X)A$(Y)2230}1000}SS}S1II1:JJ1} IJ 2190~I2J12270(~PP1:S9(P,1)I1:S9(P,2)J13~J1I1D~ I1J12150Q~P0420q~I1S9(P,1):J1S9(P,2):PP1{~ 2150~ 50::͚:%I >:%G!>2͐B!~A8y0!!͚ya8Þ>2>2KBDC!6D?:=2 Þ`s1ccIa8 ZY (bc͵>":%cg(r18:8A8M-@L002!"͵c:G!##~#fo~ # ̓>,:##"$c !+x(Zs,# 6:c[͵>":%ce(p:c*^#V#"͵>":%cg(rc*~̓%c!xZ*s!x 8w#6 #͍Gd͝ ͝Qx/0GA >0{: :c![ ( 08406:#w#6 c!͵>":! D 4@!%_E_>z>z>z>z(D!<" @ Dc:8(>z>z{zzzz Press any key to continue ......VISISET/CMD Enter Drive # - or writes to first available Drive. Writing " Codes are - Default Value =  Press if no change, or write CHANGES and ->Printer Name as displayed = "}Menu Message = "Input Prompt Message = "Press (Y) to change Printer Name or (Z) to write 'VISISET/CMD' to Disk.@@54BBWWEFGHSSTA C!BN7MMQc@DHLPTX\`dhlptx|VisiSet : Star (c) Briggs Software Napier NZ Select Printer Characteristics required - - (1) Reset Printer (2) S@tandard ASCII (3) Italic ASCII (4) Pica (5) Elite (6) Condensed (7) Enlarged (8) Cancel Enlarged (9) Emphasized (A) Cancel Emphasized (B) Double Strike (C) Cancel D/Strike (D) Superscript @ (E) Subscript (F) Cancel Sub/Super (G) Line Feed n/72" (H) # Lines to Page (I) Skip Perf/# Lines (J) Left Hand Margin (K) Right Hand Margin (L) Output Code (M) Return Line Feed (1-127)/72"Lines to Page 1-127 Skip Perf@. 1-127 Left margin 1-255 Right margin 1-255 Ready Printer or Press (M)Enter Code :8p!FT>2> c>2!?" @>:(yc:8o / [a8 18:8+A8L ͷzM >2͖:8 <00!G##~#fo~< #=y@##8xʸԨ!c< 6 ! @~2T!>"I@Insert VC/CMD,VC/CMD ETTER & FASTER. *lF:***********************************************************fR * 7W͸vz_f#ͣi#*VRMSg!Me^Ćf˿YSʹh@f (!!fS˿Ovi!f5 vi