S9S LH LL1: 2200 4700 4 5 F0A$(J)A$(L): F0 3090H F0A$(J)A$(L)i F0 A$(J)A$(L1) L1Jo  F0N$(J)N$(L): F0 3090& F0N$(J)N$(L)0 F0 N$(J)N$(L1) L1Jv  K00 4090d *** LFS DISCO ***"n<x 5/31/87 VERSIONB\ COPYRIGHT, 1987v LOUIS F. SANDER 153 MAYER DRIVE PITTSBURGH, PA 1523753280,11:53281,15:(142);"" AU$" LOU DISK NAME IS: "DN$&#2,A$,A$,A$,B$:CI$A$B$D" COSMETIC ID IS: "CI$_15,"M-R"(18)(0)(2)x#15,A$,B$:ID$A$B$ " REAL ID IS: "ID$ :*AU$;"DISK LOCK/UNLOCK4" THIS LOCKS OR UNLOCKS AN ENTIRE DISK.> < JF15,E,E$,E1,E2P 1/Z E0 ">>> ERROR >>>";E$;E1;E2Pd E0 "< FILE WRITTEN >"Vnr "WANT A SUMMARY BY "; "ACCOUNT OR ITEM";X$X(X$) X78  X65 X73 2060 2010  "DETAIL(D) OR SUM (".0",V6);(V$,V5);" **"  X$"Y" 4830BP2(P100)100:P3PP2:P$" "(M$,3P3,3)" "M 6000aT9T9T:S9S9SrPP1:T0:S0x V(J)0 5080D1D(J):D2(D110000):D1D1D210000:D3(D1100):D1D1D3100 TO THE MENU..."; A$:A$(13)430& , 2 :Q AU$;"DISK NAME/ID CHANGERz " THIS CHANGES THE DISKNAME AND/OR " COSMETIC ID CODE OF ANY DISK. 2680: WAIT AU$;"DISK NAME/ID CHANGER " PRESS RETURN TO KEEP OLD NAME  K01:K(1)1: N1 4090 J2 N K11 K02 A$(J)A$(K(K1)) 4080; K1GK0K01SK(K0)J[ Jm "ACCOUNTS":| J1 K0 J;A$(K(J)) J"J0K01, J0;" << ALL >>"6 "WHICH OF THE ABOVE (1 TO";J0;IS F. SANDER  ", HX$"0123456789ABCDEF"_ OL$"" SH653:(65534)23SH211: C128 XL$" WK$" WORKING... AU$;"DISCO" " THIS PERFORMS VARIOU2680: WAITH15,8,15,"I0":2,8,2,"#"-R READ DISKNAMED\15,"U1:";2;0;18;0Yf15,"B-P:";2;144pDN$"":J116:#2,A$:DN$DN$A$:z LOCK/UNLOCK15,"U1:";2;0;18;015,"B-P:";2;2:#2,A$:15,"B-P:";2;2S1$"UNLOCKED":S3$" LMARY(S)";X$ X$"D" X$"S" 2060 L1*H1,4 J2 NM> X65 A$(J)A$(L) LJnH X73 N$(J)N$(L) LJR X65 A$(J)A$(H) HJ\ X73 N$(J)N$(H) HJf Jz "OUTPUT TO PRINTER N";P$P4,(D2);" ";(M$,D33,3);(" "(D1),3);" ";%4,(A$(J)" ",12);CV$(" "(V(J)),9)mV58:V61: ((V$,8))48 V59:V624,(V$,V6,7);(".0",V6);(V$,V5);4," ";N$(J)p4,(" "(S),6);P$;z X65 OR ID... 15,8,15,"I0":2,8,2,"#"% 7003 &18);XL$W 0NN$DN$:" NEW NAME";NN$~ :(NN$)1614)"TOO LONG!":550 DNN$NN$"": SH SPACES N18)"":NI$CI$ X" NEW COSMETIC ID";NI$: b(NI$)2590$"YES" 1120.: 4,38 JN01 N!B 5000)L J1V 47`Bj 2000Pt F0 v "READY TO WRITE OUTPUT FILE";X$ X$"Y" X$"YES"  15,8,1515,"S0:"F$".X"15,E,E$,E1 E$,E115,"R0:"F$".")";@ XJ X1 XJ0 4150T "WANT MONTHLY TOTALS";X$.^X$(X$,1)9hKK(X)\r "OUTPUT TO PRINTER N";P$~|P3: P$"Y" P$"YES" P4 4,PS90:T90P(D(1)100):T0:S0 J1 N XJ0 A$(J)A$(KS DISK UTILITY3 " OPERATIONS ON THE C-64 AND C-128.Z "" PRESS THE KEY FOR YOUR CHOICE: ," 1 - CHANGE DISK NAME AND/OR ID 6" 2 - LOCK OR UNLOCK AN ENTIRE DISK @" 3 - LOCK OR UNLOCK A FILE J" 4 - EXAMINE A FILE T" 5 - FIND ADDR3: P$"Y" P$"YES" P4 4,PT90:S90&T0:S0:L1H4 J1 NT X65 3000: F0 2260t X73 3100: F0 2260J0J: JN9 TTV(J):SS1 X$"D" 5000 JP$" ITEMS ": 6000T9T9T:S9 4,(A$(J0)" ",12); X73 4," ";.V$(" "(T),9)XV58:V61: ((V$,8))48 V59:V624,(V$,V6,7);(".0",V6);(V$,V5); X73 4," ";N$(J0);4210000:D3(D1100):D1D1D3100l WRITE NEW NAME & ID#v15,"B-P:";2;144G2,(NN$,16);(160);(160);NI$;^15,"U2:";2;0;18;0g700t15,"I0"z READ&PRINT DISKNAME&ID15,"U1:";2;0;18;015,"B-P:";2;144DN$"":J116:#2,A$:DN$DN$A$:"X=0:"F$".D"15,E,E$,E1"  1,8,3,"0:"F$".D,S,W"/15,E,E$N E0 ">> DISK >>";E$\( J1 Nn* JN9 1330, JN 1330- KJ1 N. A$(J)A$(K) N$(J)N$(K) 1340/ K21,D(J):1,A$(J):1,V(J):1,N$(J)) 4350P1(D(J)100): P1P 4800) JN9 5000:SS1:TTV(J)1 J< 4800G 4700O 4Z& 1120~\4," **";S9;" ITEMS TOTAL ";fV$(" "(T9),9)pV58:V61: ((V$,8))48 V59:V62z4,(V$,V6,7);ESSES FOR A PRG FILE* ^" 6 - PRINT A SEQ FILEG h" 7 - UNSCRATCH FILE(S)l r" PRESS ANY OTHER KEY TO QUIT. |A$:A$""380 (A$)0(A$)7450 (A$)470,810,1060,1400,1860,2120,2430 2:3:15 OL$;" PRESS TO RETURN k38,7,1,38,8,1,38,9,1,38,10,1,38,11,1,38,12,1,38U13,1,12,13,27,12,14,1,12,14,27,12,15,1,12,15,27,12 MODIFY *N"":I115:CNCN(I)1:LNLN(I):50:"";(I96):X"":60:SP$""b7)"E-ENTER WHICH LINE? (-)lA$:A$""620v Y: Y1980 Y2079 410.  N0 Y(Y$) 440b D0Y1E4100:"<< MAYBE START A NEW DISK ?? >>" M0$(M$,3(((D0),6,2)),3)  "MONTH ";M0$;"";  M1$:M1$(M1$"..",3)  M11 12  M1$(M$,M13,3) 510  M1  (SP$,13)C$(11)?Y13(C$(12)):C$(11)C$(12)(SP$,Y)(SP$,13)C$(13)zY13(C$(14)):C$(12)C$(14)(SP$,Y)(SP$,13)C$(15)4,4,4: * UPPER/LOWER CASE FOR EPSON MX-80 AND TYMAC INTERFACE *60:SP$"":9);:"OW MANY COPIES 1";NC FILE <";F$;".D>"> dM$" JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC"l nM300: D(M),A$(M),V(M),N$(M),K(30),B(30)z x 15,8,15 T90: 1,8,3,F$".D" 15,E,E$ E62 260 NN1:1,D(N),A$(N),V(N),N$(N) T9T9(V(N)): T90 N9N91  )A$(N1) K00 8396 B0 838>8 K1 B: N$(B(K))N$(J) 839F: Kj> A$(J)A$(N1) K00 880FBB1:B(B)J: B30 840G JHJ0B1M J1 J02.9R J;N$(B(J));19);TKJ(J02.9)W KB1 K;N$ P$"" (P$)LL(I) "";3 A$:A$""270e A$(133)"LOADING MENU":"STA.STORE",8,1:y A$CR$" ": "A(A$):(A32A20)(A95A193)A218270 ,A$BS$(P$)0" ";:P$(P$,(P$)1):250 6A$BS$270 @P$P$ ;X$0 X$"Y" X$"YES" "<<<<< CANCELLED >>>>>": 1010CNJ: "OK":F1q MN10 "DATA FILE ALMOST FULL !!!!"w "MORE";X$ X$"Y" X$"YES" 440 F0  "WANT A SUMMARY OF ENTRIES";X$$ X$"Y" X  450  "DAY";D11  D11 D131 D1(D1) 510J D0Y10000M1100D1z  D0D "(OUT OF CHRONOLOGICAL ORDER??)" &DD0:D(N1)D 0 N0 750 : K00 660 DK01:K(1)1: N1 660 N J2 N X K11 K0b A$(J)* *'ROLOPRINT' BY TERRY KRYGER 6/87*fCR$(13):BS$(20):C$(15),LN(15),CN(15),LL(15):(14)53280,6:I139:SP$SP$" ":(I115:LN(I),CN(I),LL(I)::702214,LN:211,CN:58640:<LN20:CN0:50:F"";:330 P"":L$ NC(NC$):NC0150NC1NC10510+J1NCB&I112:4,C$(I):K04:T:4:eD * MODIFY *N"":I115:CNCN(I)1:LNLN(I):50:"";(I96):X"":60:SP$""b7)"E-ENTER WHICH LINE? (-)lA$:A$""620v ST0 160 15,E,E$,E1,E2# 1M E0 "*** ERROR ***";E$;E1;E2:k N;"ITEMS FOUND ON FILE" N90 "(INCLUDING";N9;"DUMMIES)" DD(N): 300  1  "I DON'T FIND A CURRENT JOURNAL FILE"  "SHOULD I START A NEW ONEA$:A$;:2506 J"";B TN110u ^" ";: h" "; r"   "; |"(B(K));\ KB1 K;"<< OTHER >>";a$p JE "COMMENT/CATEGORY ABOVE";Xg X0 XB1 X(X) 900 XB1 N$(N1)N$(B(X)): 940 "COMMENT/CATEGORY /";N$(N1)JN1 4,3: 5000: 4 "IS ABOVE OK"A$(K(K1)) 650 l K1vK0K01$K(K0)J, JG "EXISTING ACCOUNTS":cJ0K0: K030 J0K01w J1 J02.9 J;A$(K(J));19);KJ(J02.9) KK01 K;A$(K(K)); KK01 K;"<< NEW ACCOUNT >>";N8:B$" ":410K Z"":LN10:B$"BY .. RYGER ":410:""t dI11000::LN8:CN1:50:(SP$,38) nLN10:CN1:50:(SP$,38) x60:"NTER DATA - IT Β TO SKIP A FIELD" }" IT 1 TO " I115:LNL(A$)65(A$)80600?60:SP$"":8)"E-ENTER TEXT ON LINE "((A$)128)~I(A$)64:C$(I)"":CNCN(I):LNLN(I):50:(SP$,LL(I))""50:240:C$(I)P$"";:330:I115:CNCN(I):LNLN(I):50:C$(I):1504,1,38,5,1,38,6,1,";X$ " X$"Y" X$"YES" % , 15: 6N0N: N0 390T @ "1. ENTER NEW DATA"j J "2. PRINT DATA" T "YOUR CHOICE (1 OR 2) 1";X ^ X1 390 h X2 4000 r 320 D0D: Y$((D),2,4)  "YEAR ";Y$;""; " /  * HEADING PRINTER *E CN20(B$)2:50y I1(B$):K$((B$,I,1)):Z65:(K$)192Z193 JZ(K$):(J);""; N13:::K$;:   * PRINTER ROUTINE *Y13(C$(10)):C$(10)C$(10)(SP$,Y)""2 "JOURNAL - JIM BUTTERFIELD"K "V1 - 1987 MAY 20"ZD19870503t RECEIPTS,EXPENSES,*} F$( F$"*" JJ1: J;F$: 302 "YOUR CHOICE (1 TO";J;")"< X: X1 XJ 60F: J1 X: F$: J P "DATA  J "WHICH OF THE ABOVE (1 TO";J0;")";% X< X1 XJ0 710b XK01 A$(N1)A$(K(X)): 770 "ACCOUNT NAME";A$(N1)K00"AMOUNT";V V(N1)(V100.5)N$(N1)"/"  N0 930*B0/ J1 N 4 A$(JN(I):CNCN(I):50:240! C$(I)P$:1 60:SP$""] 7)"В ͒ Ò"p A$:A$""170 A$""A$"P"470:210 A$""A$"M"590 A$"C"A$""150 "";:330:120 A$:A$""220 * INPUT * , OR "PRESS TO RETURN TO THE MENU.*23);""gF$"":" EXISTING FORM NAME";F$:F$"F/"F$:F$"F/"15,8,15:2,8,2,F$",S,R"15,A,A$:A201580"" ";A$;" ":2:15:"":1530,2,LR%,LW,NC%,N", LEAVING";PLTL%!"LINES UNPRINTED."+"" IS THIS O.K. (Y OR N) Y";A$E"(A$,1)"Y":1890q""NOW WE WILL DO THE OPTIONAL LABELS.""YOUR FORM HAS";NC%;"VERTICAL COLUMNS,""WHICH YOU CAN LABEL IF YOU WISH."  (RL$)LW" WRONG LENGTH!! - TRY AGAIN ":2300 '8 RL$(J)RL$'B 2'L "YOUR FORM IS FINISHED!"8'V >'` :l'j ("",2((A)));:: ALIGN INPUTr't :'~ "ENTER THE LABELS RIGHT NOW. YOU MUST"' "KEEP THEM BETWEEN THE QUO "" ROW 2 ̯̯"G" "s(" ROW 3 ̯̯"2:"THE FORM CAN BE AS WIDE AS YOUR PRINTER,"<"LESS ONE SPACE. THERE ARE 10 PRINTED"F"SPACE THERE""ARE";PWW;"SPACES AVAILABLE FOR LABELING#"THE HORIZONTAL ROWS.S&WPW" TOO WIDE! - TRY AGAIN ":17300" IS THIS O.K. (Y OR N) Y";A$:(A$,1)"Y":1730D"NOW WE WILL SET UP THE HORIZONTAL ROWS,"  ERROR! -";PWW;" MAXIMUM ":2240&LW$"":J1LW:LW$LW$" ":&2430&&J1NR%^&RL$RL$(J)LW$:"LABEL FOR ROW";J;"-";LW;"SPACES";o& LW2" ";& :" ";Q$;(RL$,1,LW);& A(0):Q$:A38"";&$ "";:K1,29:K2,1:RL $.H1NR%:1220;:J1NC%:4,(207);:K1CW%(J)168CW%(J)14,(163);XB::4,(165);GR$:LR%21130LI1LR%1:1220;:J1NC%:4,(165);:K1CW%(J)1VCW%(J)14," ";`::4,(165);GR$:j:1220;:J1NC%:K1CW%(J):4, R%,PI,PW,TL%:2,CL$6J1NC%:2,CW%(J):@J1NR%:2,RL$(J):(J2:15ITLW$"":J1LW:LW$LW$" ":O^Uh:jr ** FORM EDITOR|" YOUR PRINTER WIDTH IN SPACES ";PW;:APW:2410PW:PWPW1:PW1PW80:1660" YOUR PA" LABEL THE COLUMNS (Y OR N) Y";A$#(A$,1)"Y"CL$" ":2200.# 2430:LS0:J1NC%^#*"LABEL FOR COLUMN";J;"-";CW%(J);"SPACES";s#4CW%(J)2" ";#>:" ";Q$;(20);Q$;#HCL$""K1CW%(J):" ";::2150#R(CL$)WCL$CLS PER INCH OF FORM WIDTH, AND NINE".P"PRINTER LINES PER INCH OF FORM HEIGHT._Z:"YOU CHOOSE AN INDIVIDUAL WIDTH FOR EACH"d"COLUMN, AND ONE HEIGHT FOR ALL THE ROWS."n"YOU CAN LABEL THE COLUMNS AND ROWS.x:"FORMS MAY BE SAVED TO DISK N"WHICH CAN FILL UP TO";PL1;"PRINTER LINES.", X"THERE ARE 9 PRINTER LINES PER INCH.e b" HOW MANY ROWS ON THE FORM ";NR%;:ANR%:2410 lNR%:NR%1EM$:1890 v:NW((NR%))1:NW$(" ",NW) "HOW MANY PRINTER LINES PER ROW "$&. (RL$)LW" WRONG LENGTH!! - TRY AGAIN ":2300 '8 RL$(J)RL$'B 2'L "YOUR FORM IS FINISHED!"8'V >'` :l'j ("",2((A)));:: ALIGN INPUTr't :'~ "ENTER THE LABELS RIGHT NOW. YOU MUST"' "KEEP THEM BETWEEN THE QUO(163);::t4:4'~"PRINT ANOTHER COPY (Y OR N) N";A$D(A$,1)"Y"LC0::990JP:o PUTS ROW LABELS IN PLACEJ1TL%:LL$(J)LW$:LN1:K1((LR%1)2)TL%1LR%:LL$(K)RL$(LN):LNLN1:4,TX$;LL$(LC);:LCLCPER LENGTH IN INCHES ";PI;:API:2410 PI:PL(9PI):PI1PI11:1680P"THE VERTICAL COLUMNS CAN OCCUPY AS MANY|"AS";PW;"PRINT SPACES ACROSS THE PAGE."THERE ARE 10 PRINT SPACES PER INCH." HOW MANY COLUMNS ON THE FORM ";NC%;$" ":2130#\(CL$,LS1,CW%(J));:LSLSCW%(J)$fA(0):Q$:A38"";/$p"";:K1,29:K2,1:A$k$z(A$)CW%(J)" WRONG WIDTH! - TRY AGAIN ": 2090$L$L$A$::CL$L$$:$" LABEL THE ROWS (Y OR N) Y";A$$(A$,1). SAVED FORMS"CAN BE REPRINTED AND/OR EDITED.;" PRESS ANY KEY TO CONTINUE..."OA$:A$""1430U[:j *** QUIT}53280,14:"""STA.STORE",8,1:: ** FORM LOADER"ENTER THE NAME OF AN EXISTING FORM;LR%;:ALR%:2410 LR%:LR%1EM$:1920 !TL%NR%LR%1=!"THESE ROWS TAKE UP";TL%;"PRINTER LINES,"h!"INCLUDING A LINE FOR COLUMN LABELS."!"YOUR PAPER HAS";PL;"LINES.";!TL%PL:" ERROR! - TOO LONG FOR THE PAPER ":1890!TATION MARKS,"' "BUT YOU CAN CENTER THEM OR POSITION"( "THEM AS YOU LIKE."( ( :3( ** FORM SAVERg( 2,LR%;R$;LW;R$;NC%;R$;NR%;R$;PI;R$;PW1;R$;TL%x( 2,Q$CL$Q$( J1NC%:2,CW%(J):( J1NR%:2,Q$RL$(J)Q$:( 2:15(1:: ROW LABELS: *** INSTRUCTIONSC"THIS LETS YOU MAKE FORMS ON THE PRINTER:"k" COLUMN 1 COLUMN 2"" ϷϷ"" ROW 1 " " Ϸ:ANC%:2410NC%:NC%1EM$:1730:W0:J1NC%K" HOW MANY SPACES IN COLUMN";J;CW%(J);:ACW%(J):2410bA:A1EM$:1760|CW%(J)A:WWCW%(J):"THESE COLUMNS TAKE UP";W;"OF THE";PW"AVAILABLE SPACES ON YOUR PRINTER."Y"2390: THIS DEST OK??%"THE FORM IS";W;"SPACES WIDE, LEAVING"M%"";PWW;"SPACES FOR LABELING ITS";NR%:"HORIZONTAL ROWS.%" HOW MANY TO ALLOW FOR LABELS ";LW;:ALW:2410%LW:LW1EM$:2240: MAYBE NOT NEEDED%LWPWW" IGN THE PAPER IN THE PRINTER,3"THEN PRESS THE 'P' KEY... "IA$:A$"P"102015,4,15:15:ST" PRINTER IS OFFLINE! ":990TX$(15) : TEXT MODEGR$(8) : GRAPHICS MODE (FOR LINE SPACING)$4,4:1200:4,LW$;CL1,(15)7);1,(15)3);C1," SUN MON TUE WED THU FRI SAT";Iv1," SUN MON TUE WED THU FRI SAT"|1,(15)3);1," ";1," ""< 53280,6:53281,6B H :\  *** MAIN MENU TL$;" LFS FORM MAKER - LOUIS F. SANDER - 5/87" "THIS LETS YOU DESIGN FORMS. SELECT:" "" 1 - CREATE A NEW FORM ," 2 - EDIT AN NDER WHICH YOU WANT)"TO SAVE THE EDITED FORM, OR PRESSU " TO RETURN TO THE MAIN MENU."*"'@' WILL SAVE IT UNDER ITS ORIGINAL4"NAME, WHICH IS ";(OF$,3);"">15);""HF$"":" FORM NAME";F$:F$"F  %M04M06M09M011E1302 &M02Y4(Y4)E128M 'M02Y4(Y4)1400S (r AD171,(15)36);D;:330 BD161,(15)31);D;:330 CD151,(15)26);D;:330 DD141,(15)21);D;:330 ED131,(15)16);D;:330 F(Y2100M03)(Y2100)D1D11:D10D17G(Y2200M03)(Y2200)D1D11:D10D17v(Y2300M03)(Y2300)D1D11:D10D17|x(Y100(Y100))(Y400(Y400))E128:1410}E129" THIS IS A PROGRAM":" TO  RESS&" TO RETURN TO THE MENU.>015);""s:F$"":" FORM NAME";F$:F$"F/"F$:F$"F/"D15,8,15:2,8,2,F$",S,W"N15,A,A$:A192:15:" ";A$;" ":560X2500bl:v *** EDITTL$;"  M01M013:YY1:1080&$M02M014:YY118MM02\LD1(2.6M0.2)DY1900((Y1900)4)s~D1D1(194)219D1D1(D17)71M04M09D1D11M013M01:YY1:1250M014M02:YY1:D1D11D18D11 EXISTING FORM. 6" 3 - PRINT AN EXISTING FORMJ @" 4 - INSTRUCTIONSd J" 5 - STORE MENUw TA$:A$""340 ^A(A$):A1A5340 h r: | *** CREATE TL$;" CREATE A NEW FORM " "THIS LETS YO/"F$RF$"F/"900-\15,8,15:F$"F/@"F$OF$:15,"S0:"F$Bf2,8,2,F$",S,W"pp15,A,A$:A192:15:" ";A$;" ":830zz2500: *** PRINTTL$;" PRINT AN EXISTING FORM ""THIS LETS YOU LOAD AND121,(15)11);D;:330+GD111,(15)6);D;:330CH1,(15)3);D;:330VI1,(15)2);D;\JxKDE11,(15)5);:350LD11D91,D;:350MD11D91,D;:350OD91,(15)2);D;:350P1,(15)1);D;^DE11,( *** LFS FORM MAKER2 ***%? 5/31/87 VERSIONE(_2 COPYRIGHT, 1987y< LOUIS F. SANDERF 153 MAYER DRIVEP PITTSBURGH, PA 15237Zx *** MAIN LOOP190: INITIALIZE270: MAIN MENU& A  EDIT AN EXISTING FORM "C"THIS LETS YOU LOAD AND MODIFY ANm"EXISTING FORM. YOU CAN THEN SAVE IT"UNDER THE SAME NAME OR A NEW ONE.1510OF$F$1660" PRINT A COPY NOW (Y OR N) Y";A$(A$,(Y2100M03)(Y2100)D1D11:D10D17G(Y2200M03)(Y2200)D1D11:D10D17v(Y2300M03)(Y2300)D1D11:D10D17|x(Y100(Y100))(Y400(Y400))E128:1410}E129" THIS IS A PROGRAM":" TO U CREATE A NEW FORM AND- "SAVE IT ONTO YOUR DISK.Z "PRESS TO RETURN TO THE MENU, "OR PRESS ANY OTHER KEY TO CONTINUE... A$:A$""440 A$R$610 1660 " PRINT A COPY NOW (Y OR N) Y";A$ (A$,1)"Y"D PRINT A FORM THATHAS BEEN SAVED ON THE DISK."1510X"THE FORM IS" (((LWW)10),5);Q$;" WIDE BY";w((TL%9),5);Q$;" LONG,""OR";LWW;"SPACES WIDE BY";TL%;"LINES LONG.""";:15,4,15:15:ST"PUT THE PRINTER ONLINE,"AL15)9);:435328#DE11,(15)9);:435,329?1,(15)1);D;EaDE11,(15)9);:535j532DE11,(15)9);:5355331,(15)5);D;:5351,(15)4);D;1,(15)3);:9921,(15)6);390,640,930,1250,1470: MENU SELECTIONS, 2 :G *** INITIALIZEh CW%(255),LL$(255),RL$(255) PW80:PI11:K1631:K2198:(65534)72K1842:K2208: 64OR128? EM$"  ERROR! MUST BE AT LEAST 1 ":Q$(34)& R$(13):TL$"1)"Y"960+"TO SAVE THE FORM AS A FILE ON THE DISK,Y"YOU MUST GIVE IT A UNIQUE FILE NAME OF"w"14 CHARACTERS OR FEWER."SAVED FORMS CAN EASILY BE PRINTED OR"EDITED USING OPTIONS FROM THE MAIN MENU. "ENTER THE NEW NAME USHOW A"" YEARLY CALENDAR.":" ON THE PRINTER."d" PLEASE TYPE IN THE":" YEAR THAT YOU":" WANT TO SEE.~" USE ALL 4 DIGITS."";Y"" THANK YOU. NOW TURN ON THE%"PRINTER AND HIT A KEY.,J$:J$""15806960) "TO SAVE THE FORM AS A FILE ON THE DISK,W "YOU MUST GIVE IT A UNIQUE FILE NAME OF"u "14 CHARACTERS OR FEWER. "SAVED FORMS CAN EASILY BE PRINTED OR "EDITED USING OPTIONS FROM THE MAIN MENU. "ENTER THE FORM NAME NOW, OR P6050,6040,6030% X$":":F1X$".":XF1:6060@ 4,":"(B$,1,S);:6070_ X$":":F2X$".":XSF21 4,(B$,1,X)"."(B$,1,SX); Z$"":(J1)(J6)Z$" "R$(J1):6110 (JW(6))(JW(6)6)((J2)J2)6110Z$AD$((JW(6))21):CZ292:20:351 D1:1050:W28D1:W4(M8)W21:321? D1730X D2W2:1050:331:^ z #990:M0J:M82:292:20 ,W31 -M0I:M81:292:200 .W4(2)91,(15)1); 2991:M0J:M82:292:200 8W31W4(1)91,(15)0); 9W314560 Z0 L1$"":X169:L1$L1$" ":X:L1$L1$""O L$"":X171:L$L$"-":Xg X010: AA$(X):X  0,1,2,3,4,5,6,7,8,9," " S$" ":D$" ":S1$" ":E$" " 4,S$;L$;(LF); 4,S$;L1$;(LF);:4,S$;L1$;(LF);3 :W(2)W(2)4:W(5)W(5)5:W(6)W(6)2L  TE W(1)W(1)4: ET1 W(3)W(3)2` J14:T$(J): " SE DEFAULT RETURN ADDRESS";:6290 A$"Y"5870 A$"N"5830 P$" RETURN":6220 J14:R$(J)T$(J): P$"":6220:K14:AD$( 1)""T$(1):11)""T$(2)"":U 32,253,174,32,139,176,133,251,132,252,32,143,173,160,0,32,207,255 201,13,240,6,153,0,2,200,208,243,192,1,208,8,173,0,2,201,32,208,1,136 132,253,152,32,125,180,165,99,160,2,145,251,136,165,98,145,251,1364 A$"A"A$"M"4850;D$;D$;D$;D$;"";(LF);;\4,S$;L$;(LF);FfW16tpT0:ZZ17:TTC(W,ZZ):ZZ: T7 4830z4,S$;D$;D$;D$;D$;D$;D$;D$;"";(LF);4,S$;Y17:ZC(W,Y) Z1A110:A210:4790A1(Z10):A10 (Z$):CF0CZCI*X((W(1)CZ)2):Z$(B$,1,X)Z$XZ(Z$):Z$Z$(B$,1,W(1)Z):4,":"Z$":";wX$":": Y 6150,6140,6130F1X$".":XF1:F1F11:6160X0:6160F2X$".":XSF21:F2F214,(B$,1,SX);X$:6270:J1W(5 W4(1)101,(15)1);1 :W34W4(2)301,(15)0);= AW3W31L FW3C045W G1," "d HI186q II396 JI5106 KI7116 LI9126 MI11199 V1,(14)9)"MARCH"16)"APRIL XI3:J4:12 `1,(14)10)"MAY"17)"JUNE4,S$;" ";N$;" ";(LF);Y 4,S$;L1$;(LF);:4,S$;L1$;(LF);m*4,S$;L$;(LF);44,S$;D$;D$;D$;D$;D$;D$;D$;"";(LF);>4,S$;" SUN MON TUE WED THU ";H4," FRI SAT K)T$(K):: " ENTER ADDRESS LINES";:6290:CF(A$"Y")I  CF 5930t CI0:J14:(AD$(J))CICI(AD$(J))z  *"POSITION PAPER & TURN ON PRINTER 4" PRESS ANY KEY TO BEGIN PRINTING." >A$"":A$:A$""5950 HS5 165,97,145,251,165,253,240,10,185,0,2,145,98,200,196,253,208,246,96K 57,26,6,13,19,14h DEFAULT RETURN ADDRESS "CHANGE LINES " "6390-6420 "  "FOR THIS ADDRESS " " AND ZIP "J180:: 1?DTE0:PDEV4:SA7: SET TE TO 1 IF YOU HAVE A 1526 PRINTERhN53280,0:53281,0:(14):(30):""XSUB49152:JSUBSUB76:N:CSCSN:J,N:bCS10586"ERROR IN DATA STATEMENTS.":l4:4,PDEV,SA:B$" ":B$B$B$B$B)$4,(B$,1,W(3)1)":"(B$,1,W(1))":":U.6270:J16:4::" AKE ANOTHER";:6290h8A$"Y" 5700B4:4:"STA.STORE",8,1:L"":X$"NTER"P$" ADDRESS LINES:":(40(X$))2)X$""VZW(1)1: J14`((J),2)"> ";: bI5:J6:12+ j1,(14)9)"JULY"16)"AUGUST; lI7:J8:12b t1,(14)7)"SEPTEMBER"13)"OCTOBERs vI9:J10:12 ~1,(14)7)"NOVEMBER"13)"DECEMBER I11:J12:12 1,(15)1):1:"STA.STORE",8,1: D4W4(M8):D7W4(M8)6 DD4:1 ";(LF);'R4,S$;D$;D$;D$;D$;D$;D$;D$;"";(LF);;\4,S$;L$;(LF);FfW16tpT0:ZZ17:TTC(W,ZZ):ZZ: T7 4830z4,S$;D$;D$;D$;D$;D$;D$;D$;"";(LF);4,S$;Y17:ZC(W,Y) Z1A110:A210:4790A1(Z10):A10:4,(B$,1,W(3)S2);, RJ1W(1)2S:4,"-";::4> \JS 1 1n f4,(B$,1,JW(3))"."(B$,1,W(1)2J2)".": pJ1W(4)S:4,(B$,1,W(3)1)":"(B$,1,W(1))":": z6270:SW(3):F1S:F2S:J1W(2) Y1(1(JS))(1(J(W(2)S))): Y % FROM COMPUTE GAZETTE APRIL 84H65517:A(781):A4053281,1f1,4:W4(3):1510:I1:J21,(14)" CALENDAR FOR";Y:1:1,(15) 1,(14)8)"JANUARY"13)"FEBRUARY 1009:1000:1012:C06:1019:1000:1022 M0I:M81:$- v""13)"Š":K16:W(K):d T$(1)"1) TANDARD ETTER":T$(2)" 2) RENCH OLD" ""9)"HOOSE ENVELOPE TYPE:":6320 A$"":A$:(A$"1")(A$"2")5780 ET(A$):T$(ET)""T$(ET):"":6320  ET1 W(1)64SUB,T$(J)::;j(T$(J))Z"INE TOO LONG, MAX IS "Z"CHARS. E-ENTER."Ct:Z~4,(B$,1,W(3)2);wJ1W(1):4,"-";::4:" [Y/N]? ";A$"":A$:(A$"Y")(A$"N")6300("YESNO ",1(A$"Y")4(A$"N"),3):J180:: 1050 D11"WHY D1=";D1, M81(D1)10528C M81(D1)9530[ M82(D1)10428} M82D430D4E1433:217 M82(D1)9430 DD41D7:1050:331: W4(M8)D71 $M01M03M05M07M08M010M012E131A110 A2Z((Z10)10)*4,S1$;AA$(A1);AA$(A2);E$;?Y:4,"";(LF);sX16:4,S$;D$;D$;D$;D$;D$;D$;D$;"";(LF);:X4,S$;L$;(LF);W:4"[A]GAIN OR [M]ENU?"A$A$"A" 4100A$"M" "STA.STORE",8,1:,3300,3355,3435,351510 LG LINED PAPER - JOHN R. COLLINS'25 "POSITION PAPER & TURN ON PRINTER":"PRESS 'P' PRINT"/2: A$@2? A$"P"3145R2D A$"P"3130n2I A$(164):4,4:4:4:42N J179:A$A$(164):2S K1202X L11:4,A$:L"POSITION PAPER AND TURN ON PRINTER"8"LARGE OR SMALL GRAPH PAPER?"$9"'L' OR 'S' OR [M]AIN MENU";: X$79 X$"S" 3920K9X$"L" 4000\9X$"M" 10f9(384092 *** GRAPH PAPER PROGRAM ***9< FOR P "?PI?4?4,(14);?4," COUPON SPECIALS"?4,(15);?4?I18E@"4," "L@,IS@h4a@r4,(14);q@|4," MISC."@4,(15);@4@I 85 L15:4,A$:L5 4:45 K5 4:29005 ALPHABET PRACTICE/6 "POSITION PAPER & TURN ON PRINTER":"PRESS 'P' PRINT"76% A$H6* A$"P"3380Z6/ A$"P"3365n64 T$" "69 J179:SL$SL$(195):6> K179:DL$DL$( MISC."<4<4," SUNDAY "=4T=4," MONDAY "[=4=4," TUESDAY  "(  " J U N E "L  " J U L Y "p  " A U G U S T "  " S E P T E M B E R "  " O C T O B E R "  " N O V E M B E R "  " D E C E M B E R  2] 4:42b K2g 4:29002l MED LINED PAPER - JOHN R. COLLINS13q "POSITION PAPER & TURN ON PRINTER":"PRESS 'P' TO PRINT"93v A$J3{ A$"P"3205\3 A$"P"3190x3 A$(164):4,4:4:4:43 J179:A$A$(164):3 K1303 L1 RINTER OUTPUT9F ------- BY TOM NIELSEN ------9PI16:A:A$A$(A)::Z255,137,137,255,137,137:d1,4:1,(8);N:n"# OF SHEETS";N:A1N:I195:J180:1,A$;::r:xI14:1:::1,(15):1:3800: *** LARGE GRAPH PROGRAM ***:19@4," "@I@4:4A"[A]GAIN OR [M]ENU?"AB$+AB$"A"49004," WEDNESDAY " >4Y>4," THURSDAY "`>4>4," FRIDAY  " I112:M$(I,2):2  31,28,31,30,31,30,31G  31,30,31,30,31Y DM(M$(M,2))u 4(YR4)YRM2DM29 YYR:M3YY1 &R%(Y1903)4 0P15R%:SY19034R% :S0P1P11S DM1M5P1P15:4480 NM2M6P1P111:4,A$:L3 43 K3 4:29003 FINE LINED PAPER - JOHN R. COLLINS94 "POSITION PAPER & TURN ON PRINTER":"PRESS 'P' TO PRINT"A4 A$R4 A$"P"3265d4 A$"P"32504 A$(164):4,4:4:4:44 J179:A$A$(164):4 K16 FOR PRINTER OUTPUT: ------ BY TOM NIELSEN ------:I16:A:;I16:A:A$A$(A):;255,129,129,129,129,1290;4,4:4,(8);g;"# OF SHEETS";N:A1N:I195:J180:4,A$;::;I14:4:::4,(15):4:3800;$"553280,0:53281,0:"";12)"ALENDAR RINTER"JI140:"";:Ia"ONTH (1-12)";My" M1 M12 4120,"EAR (YYYY)";YR6YR1904YR2099"NLY YEARS FROM 1904-2099 ARE COVERED":4140@10,4,10:10:10:4,4 J A$(10 T$" "7 J179:SL$SL$(195):7 K179:DL$DL$(45):7 4,4 8 4,40(T$)2);T$8 J 1 15(8 4:4,SL$68 4:4,DL$<8 J8 4:4,SL$X8 4: 2900`8 10}853280,0:53281,0:646,784,4:4,(27)(64):48 ">4? 4," SATURDAY "?4:4?4,(14);6?(4," MAIN ITEMS"D?24,(15);P?<I117?F4," :4480 XM4M7P1P13:44800 bM8P1P11:4480L lM9M12P1P12:4480d vM10P1P14:4480x P1P17(P17) X16:Y17:C(X,Y)1:Y,X D1:ZP11100 X((Z1)7)1 YZ7((Z1)7) C(X,Y)D DD1: DDM 04 L11:4,A$:L4 K4 4:29004 MAGIC MUSICAL STAFF - M.L. OAKES85 "POSITION PAPER & TURN ON PRINTER":"PRESS 'P' TO PRINT"@5 A$Q5 A$"P"3320c5 A$"P"33055 A$(164):4,4:4:4:45 J179:A$A$(164):5 K1POSITION PAPER & TURN ON PRINTER":"PRESS 'P' TO PRINT";.A$;8A$"P"4940(4," "(4," "(4,"  . 5)"3) INE INED APER". 5)"4) USIC HEETS" / 5)"5) LPHABET RACTICE"(/ 5)"6) 'IG HIEF AD'"@/ 5)"7)AIN ENU"H/ :]/ DISPLAY PROMPT/ 5)" RESS ETURN O NTER HOICE "/ 5)" RESS PACE AR O OVE UR (83)(0),"REPLY>";4,(27)(84);:4," "FI1264," "I4,"";4,(27)(83)(0),"  "G%44," "%>4," "%H4,"  I1X:4,A$;:+ 6,(S)(51)(20)+ I1X:4,B$;:+ 2790 ," 6:6:4:4.,, "[A]GAIN OR [M]ENU?"E,6 B$:B$"A" 2700V,@ B$"M" 10p,J B$"A"B$"M"2870,T *** MAGIC MENU ***,Y **** VARIABLES ****,^ ,c N=N 4," CALLED. CALLED."P"4," ""4," HE/SHE WANTED: HE/SHE WANTED: ""4,"  " )4," WHEN WHEN "R)4," ")4," ")4,"̤ SOR "/ "";:L1: POSITION CURSOR ON FIRST LINE ITEM/ CR$;0 GET ANSWER TO PROMPT)0 A$: A$"" 3060c0 A$(13) A$(32) 3060 : IGNOR INVALID KEYS0 A$(13) 3090 : CHOICE MADE, SO BRANCH.0 MOVE CHECK MARK CUR SIGNED"; 4,(27)(84),""\4," "4,""4:4"[A]GAIN OR [ "&R4,"̺ WILL CALL BACK AT ̺ WILL CALL BACK AT "[&\4," "&f4," AM/PM AM/PM "&p4," UMBER OF LINE ITEMS IN MENU,h CR$=CHECK MARK CURSOR-m E$=ERASER-r A$=ANSWER TO PROMTM-w L=LINE ITEM WHERE CHECK MARK APPEARS|-| I=INDEX COUNTER USED BY FOR/NEXT LOOP- ******************- 53280,15:53281,15:646,0 "#4," "d#4," "#4," "#4,"  ̤")4:4:4:4)I)P 4:4*Z "[A]GAIN OR [M]ENU?"&*d B$8*n B$"A"1900J*x B$"M" 10e* B$"A"B$"M"2660* "POSITION PAPER & TURN ON PRINTER":"PRESS 'C' TO CONTINUE"*SOR0 E$: LL1 : LN 30450 30500 PRINT MENU CHOICE,1 "";: I1 N8 ::: DROP CURSOR BELOW PROMPTC1 LINE CHOICE IS Lh1! "OUR CHOICE IS ITEM ";L"."::1& BRANCH HERE FOR REMAINDER OF PROGRAM1+ L 3125,3185,3245M]ENU?"B$:B$"A"800&B$"M" 10 0B$"A"B$"M"1820d l"POSITION PAPER & TURN ON PRINTER":"PRESS 'P' TO PRINT"z vA$:A$"P" 4,4 A$"P" 1910 4,(27)(51)(22) I12 4,"ϣ "*'z4," "o'4," "'4,"̺ WANTS YOU TO CALL ̺ WANTS YOU TO CALL "'4," - (14): UPPER/LOWER CASE- N7: SET NUMBER OF LINES IN MENU. CR$" "(186)" """;. E$" ": 3 SPACES 3 LEFTL. PRINT MENUV. "";r. 15)"INE-P ENU":. 5)"1) IDE INED APER". 5)"2) ED. INED APER" "i4,""4," "4,"";4,(27) "3$ 4," "x$4," "$ 4," "%*4," BY "]4," "4," "4,""4," "F$4,"",(27)(83)(0);.4,"DATE / / SUBJECT";84,(27)(84),""B4,"  ONE TODAY !" <T12000:! FV P2)(28)"CBM (1525) COMP"21)"STAR SL-10C COMP" Z2)""21)"" n2)"(1)LINE-UP"21)"(7)RECIEPT MAKER" x 2)"(2)GRAPH PAPER"21)"(8)MEMO MAKER"  2)"(3)CALEND ϣ "fb4," REC'D FROM $̤ "l4," "v4,"  FROM>"; 4,(27)(84)," "Y4," "4," "4,"  ) |J179:A$A$(164): K1152 L15:4,A$:L< 4:4C Kg 4:"[A]GAIN OR [M]ENU?"o B$  B$"A" 320  B$"M" 10  B$"A"B$"M"440 "POSITION PAPER & TURN ON PRINTER":"PRESS 'P' 4:4" [A]GAIN OR [M]ENU?"'B$:B$"A"5008 B$"M" 10RB$"A"B$"M"770 "POSITION PAPER & TURN ON PRINTER":"PRESS 'P' TO PRINT"*A$:A$"P" 4,44A$"P"810>4,(27)(51)(22): "8L4,""V4," "`4,"";j4,(27)(83)(0),"MESSAGE>";t4,(27)(84)," AR MAKER"21)"(9)TELEPHONE MEMOS"# V 2)"(4)GROC/MENU LIST"21)"(10)VAR. GR/PAPER"\ 2)"(5)ENVELOPE MAKER"21)"(11)YEAR CALENDAR" 2)"(6)MUSIC SHEETS"21)"(12)FORM MAKER" 2)"(13)ROLO PRINT" "YOUR CHOICE"54," "z4," DOLLARS "4," "4,"  "I4," "4," "4,"  TO PRINT"A$:A$"P" 4,4%A$"P"510>4,(27)(51)(22)4,""&4," " 04," 4:4:4:4@H4,""R4," "\4,"";f4,(14)," MEMO",(15)" "p4,"  "~I124S4," "ZIfn4,"";x4,(27)(83)(0)," SIGNED";4,(27)(84),""4," ";CH CH1 2900 CH2 38009 CH3 "SS-1",8,1:J CH4 4900c CH5 "SS-2",8,1:s CH6 300 CH7 500 CH8 800 "CH9 1900 #CH10 2700 $CH11 "SS-3",8,1: %CH12 "SS-4",8,1: &CH13  "I4," "4," FOR "4," "4,"  "94," "4,""4," ") "":53272,21,53280,07:53281,15X8)(156)(18)" THE STATIONARY STORE "w9)"********************"9)(28)"D.C. BUG EUGENE OR"(5)"461-0750 998-6525 688-2056"-5)"" 211)(158)"CALL "R:4," DATE,19 NO. "D4," "N4," "!X4,"  "iz4,""u4,"";4,(27)(83)(0),"TO>";4,(27)(84);4," ";4,(27)(83)(0),""SS-5",8,1: *CH110100 , MAGIC MUSICAL STAFFQ 6 STAR MODS. BY JOHN COLLINS @"POSITION PAPER & TURN ON PRINTER":"PRESS 'P' TO PRINT" JA$:A$"P" 4,4 TA$"P"330 hA$(164):4:4:4 r4,(27)(51)(20A$ G$:G$""2590$( 970% " SEARCHING... ":2390E ENTRY "K# " ENTER TO CONTINUE SEARCH "}# " ENTER '@' TO ABORT SEARCH "# 2150:TE$A$# TE$"*"KCTN1:AA$(K)AA$(K1)::AA$(N)"":NN1  "ME$(7)" SCRATCH A FILE "IME$(8)" DISK DIRECTORY "m"":C18:5)ME$(C):::u$C1.""5)ME$(C)8G$:G$""1080BG$"" 1120LG$""G$"" 1150VG$(13)1190`CC "" """0"","* * * BY: * * *",""I""b" KEITH COLEMAN "{"" ENDA$"":M6)""B$:B$""B$""B$""B$""B$""B$""B$""1810 ,S:15". ""ER", "ER$","T","S:DE12000::970""8 " INPUT SEARCH STRING">"B 2150:SS$A$:LE(SS$)]"L " SEARCHING... ":CT1y"V (AA$(CT),LE)SS$2430"` CTCT1"j CTN2540"t 2390"~ ""CT" "AA$(CT)""" " ENTE  X:1:1:1:N841890/>1:1,TA)NO$" PAGE 8":1:X841900XH1,TA)AA$(X)35(AA$(X)))AA$(X60)tR X:1:1:1:N961890\1:1,TA)NO$" PAGE 9":1:X9611020f1,TA)AA$(X)35(AA$(X)))AA$(X60)p X:1:1:1z" ANOTHER $:8,8,8,"@0:"F$",S,W"8,N T1N!8,(34)AA$(T)) T58:970>""h" ENTER FILE NAME ":2150:NO$A$y15,8,15:15ST01550""6)" DRIVE IS NOT READY "6)" HIT ANY KEY TO TRY AGAIN " *AA$(MW)A$4AA$(MW)"*"KMWN1:AA$(K)AA$(K1)::AA$(N)"":NN1D>" ARE THERE ANY MORE? (Y/N) "YHG$:G$"Y"2040iRG$"N"970s\2120fA$"":""pB$:B$""B$""B$""B$""B$""B$""B$""2160z(A$)0B$ 1:C85)""ME$(C1): 1060j5)""ME$(C1)7t5)""ME$(C):1080A~CC1^C1C8:5)""ME$(1)C8""5)ME$(C): 10805)""ME$(C1):5)""ME$(C):1080:C42220: START NEW LIST (A$)0B$(20)A$(A$,(A$)1):1860&(A$)0B$(20)1810<0B$(13)""M6)A$" ":h:A$A$B$:A(A$):A32A$(A$,(A$)1)D""M6)A$" ":1810N" F1-SEARCH":" F3-LIST ALL "XG$:G$""1880bG$""1920l R CORRECT SPELLING "# " ENTER '*' TO DELETE ENTRY "K# " ENTER TO CONTINUE SEARCH "}# " ENTER '@' TO ABORT SEARCH "# 2150:TE$A$# TE$"*"KCTN1:AA$(K)AA$(K1)::AA$(N)"":NN1  COPY? (Y/N)"AC$:AC$""900 AC$"Y"370G" SAVE LIST ON DISK? (Y/N)"\SS$:SS$""930SS$"Y" " ENTER FILE NAME (15 CHAR.MAX.)" SS$"Y"" ":F$:(F$)161340SS$"Y"(F$)15940ME$( GG$:GG$""1530 149015,8,15,"UI+":1512,8,2,"0:"NO$",S,R";"2,R$f,R$""2:"LOADING: "NO$: 1620m62@15,8,15,"UI+":15J""NO$" NOT FOUND ON THIS DISK ":130T8,8,8,"0:"NO$",S,R"^8,N:" (20)A$(A$,(A$)1):2210 (A$)0B$(20)2160" B$(13)""A$" ":N A$A$B$:A(A$):A32A$(A$,(A$)1)c ""A$" ":2160i : N0:"":120 " THIS WILL ERASE LIST IN MEMORY-":" GO AHEAD? (Y/N)" G$:G$ C2230: ADD TO LISTC31870: SPELLING CHECKBC1"":370: PRINT LISTVC51280: ENDpC6920: SAVE LISTC72280: SCRATCH FILEC82570: DIRECTORY" QUIT PROGRAM? (Y/N)" G$:G$""1290G$ G$"" 2360v1880$" RECORD NUMBERS OF MISPELLED ENTRIES ";U" HOLD SPACE BAR TO LIST RECORDS "`W1NpW6)AA$(W)G$:G$""1960W" THAT'S ALL "G$:G$(13)1990" ARE THERE ANY :2700# TE$""" SEARCHING... ":2400$ TE$"@"970$ AA$(CT)TE$"$ 2400G$ " THAT'S ALL - HIT RETURN "[$ G$:G$""2550e$ 970$ " HIT SPACE BAR TO TOGGLE LIST HOLD ":X11000:$ ::@"$:*=S":" HIT ANY KEY " 1)" PRINT LIST ";ME$(2)" ADD TO / SORT LIST "hME$(3)" CHECK SPELLING / DELETE ENTRY "ME$(4)" LOAD FILE / START NEW LIST "ME$(5)" EXIT PROGRAM "ME$(6)" SAVE LIST "N" RECORDS IN FILE "h" LOADING RECORD #":Y1N,r8,AA$(Y):""18)YRw(AA$(Y))32AA$(Y)(AA$(Y),32)Z| Yf8:970o""""" "" SORT 'N SWEET "" 64 V5 ""2240 G$"Y":120 G$"N"970!2240@!" ENTER FILE NAME TO BE SCRATCHED ": 2150:SF$A$e!" SCRATCH  "SF$" ?(Y/N)"y!G$:G$""2300! G$"Y"15,8,15,"S0:"SF$: 2340! G$"N" 970! 2300!$ 15,ER,ER$,T "Y"1330G$"N"970( 129021:64738%<15,8,15:154FST01400eP""8)" DISK DRIVE NOT READY "Z8)" HIT ANY KEY TO TRY AGAIN "dGG$:GG$""1380n 1340x15,8,15,"S0:"F$:15" SAVING "F ERRORS? (Y/N) "G$:G$"Y"2040G$"N"970 2010B" WHAT IS THE NUMBER? ":2150:MW$A$_MW(MW$):MW1MWN230 ""AA$(MW):" ENTER THE CORRECT SPELLING HERE "" ENTER '*' TO DELETE ENTRY " 2150:A$"" 2110  ݩ L B Ly+,z%, .z%.- Y 3zɭ/L LL|L YLͤ')ẅ') wi wLy sL:ϩ`|zH{H" sh{hz y"{\ hh sV"R=:[ ' S AT" 9)"THE TOP OF THE RIBBON"R 8)"PUSH ANY KEY WHEN READY" "g GG$:GG$""530x 15,4,15:15 &ST0600 06)" PRINTER IS NOT READY! " :6)" HIT ANY KEY AND TRY AGAIN " DGG$:GG$""580 N d"":53281,6:53280,68nLL1:L1"FILE1",8,1NxL2"FILE2",8,1e L3"FILE3",8,1q 52224" "(34)"FILE4"(34)",8":""631,131:198,1:ձ_ ː``_`21_e_ȱ_e`_Q_۠_ ie__`_  ː`e__``OYNXNXYO`Hx5heO_N83_3ȑ_44ȑ__ N36X4` SOLVING HACKER IT - 1000 ";J " ENTER: _ TO SORT, \ FOR SPELLING CHECK ":""^ MN1:M99Q0 M1001 " FILE FULL ":W12000::340 M9M100Q1 M10Q2 "1800 ,A$"_" 340 6A$"\" 1870 @NN1 JJ(0):AA$(N) M QMȱQN M LL`OHQOhQ`  ` ``mm` 8 ``QUICKSORT LOA* 20,READ ERROR,18,00QUICKSORc̍y s.x s&]"y*ʩ?, 'xâL|LL| y s`{ `$QLqƷ(̅L?ͥ o ' ķ Lͥ o  L  Ly`  Ĥ>å ͽ  &  490%X1:1,4:1:1,TA)NO$" PAGE 1":1:X160Nb1,TA)AA$(X)35(AA$(X)))AA$(X60)Vl Xnv1:1:1:N1218901:1,TA)NO$" PAGE 2":1:X1211801,TA)AA$(X)35(AA$(X)))AA$(X60) X1:1:1:N241890 1:1,TA)NO$ Ld   8GKHL  (<P<P( /í 0`<P eý( /í 0L L!!!!!xGGG~k%/^_>@#Q DOS MANAGER V5.1/071382 BY BOB FAIRBAIRN (C) 1982 COMMODORE BUSINESS MACHINES L̢̕|wLKυ A$:2504 T""6)"PLEASE WAIT...I'M THINKING!"N ^49152,N,AA$(1): 970T h:r r"F1-SEND TO SCREEN" |"F3-SEND TO PRINTER" GG$:GG$""390 GG$""NO$"":"NAME OF LIST";NO$:490 GG$"""":430  3 T LOADER 4<<ʽPP eí( ʭ<PL <Pʽʽ(( e eí(LKOQLPROmOPmPQmQRmR` OQȘ  L> LÌ OMȱON   51744153281,0:53280,0: POKE808,234<""U(N$:N$"END":110z2MM(N$):MM2(M2)N$" "N$<NN(N$)FX1(NN2)P20X)""(N$,1,X)Z20)""(N$,NN1X,X)dX::40nT12000::53281,1:53280,1 x " PAGE 3":1:X24130021,TA)AA$(X)35(AA$(X)))AA$(X60)N X:1:1:1:N361890w1:1,TA)NO$" PAGE 4":1:X3614201,TA)AA$(X)35(AA$(X)))AA$(X60) X:1:1:1:N4818901:1,TA)NO$" PAGE 5":1:X4815401,TA  í ­ 0ڭ eí /í # ­ 0 /í  L( í Qý( eí 0<P Ɍɧɤ :LLz Φ'̅w̅HH`E ' '$QLqƷ(̅L?ͥ o ' ķ Lͥ o  L  Ly`  Ĥ>å ͽ  &  90, " HOLD DOWN SPACE BAR TO LIST ":I1N8 AA$(I)M GG$:GG$""450w I:" THAT'S ALL - HIT RETURN " GG$:GG$(13)470  970 " INPUT LEFT MARGIN (0-12)";TA:TA12490 ""6)"MAKE SURE PERFORATION I  ʩ76!}Uʝ&`LXʩ˩4822i84i8˥7˅38˅4i2i-_.`/ː84Ii˰ ˦0 ʰ .˥L:`_i_`E/`_Q__  AA$(1100):N06 8)" LOAD OLD FILE? (Y/N) "K OF$:OF$""140\ OF$"N"230m OF$"Y"180w 140 8)" DISK DIRECTORY? (Y/N) " GG$:GG$""190 GG$"Y"2570 GG$"N"1470 190 " WORD LIM )AA$(X)35(AA$(X)))AA$(X60)* X:1:1:1:N601890S1:1,TA)NO$" PAGE 6":1:X601660| 1,TA)AA$(X)35(AA$(X)))AA$(X60) X:1:1:1:N721890 1:1,TA)NO$" PAGE 7":1:X721780*1,TA)AA$(X)35(AA$(X)))AA$(X60)4  eé 4<<ʽPP eí( ʭ<PL <Pʽʽ(( e eí(LKOQLPROmOPmPQmQRmR` OQȘ  L> LÌ OMȱON ICNDL1yDE$(I)DE$(I1)~DE(I)DE(I1)'DLDL10880<JD640EJD1V(DL1)640cDC$68)p981(OB)vTD0TW0SBOBG4I1DL646,G225G5G3H(214)679,H,28 E3$E3$SP$E3$(E3$,1,20) AM(NC)E41+CH$(NC)E1$" "E2$" "E3$4BNC=315NYN380,1585WWW3h(J31)380t NCNC1}WW2BNC11585!:605&"BALANCE CHANGING:"R$"F1) SKIP"R$"F3) OL 4SUB BAL -";"8 981(TDTW)"= #B R$"WITHDRAWS-";#G 981(TW)*#L D$"24OLD BALANCE-";7#Q 981(OB)=#V R#[ R$"SUB BAL -";b#` 981(TDTW){#e D$"24NEW BALANCE-";#j 981(NB)#o Q$(TC)#t D$"46NO. CHKS WITHDRAW- "Q$#y 1#~ 1# WW1YN2BCN1585 820NCNU1# BNC1,J325WW1?1585NCH$(NC)""["AM(NC)0g'NUNC1p,640y1DC$6YA1;V9@WW775,805,720,55EU(((AM(NC))))JQ$CH$(NC)OYN2679,H14,0 0>C170H605 MYN2679,H12,0:CO$ R195 W1P \D$"21OUTSTANDING CHECKS DATED: "YR$R$"CK#"D$"04DATE";Z aSBNB fD$"11PURPOSE"D$"43DEPOSIT"D$"57AMOUNT"D$"67BALANCE"R$D$"63"; k981(SB) p uI1NU zSBSBAM(I) FILE FROM DISK"' "F3...WITHDRAW A CHECK","F5...CORRECT OR DELETE A WITHDRAWAL"P' "F7...CORRECT A CHECK","F2...INSERT A CHECK"' "F4...DELETE A CHECK","F6...DISPLAY ALL WITHDRAWALS"' "' 1,8,0,"$"' #1,A$,B$' #1,A$, 981(SB)679,H,19981((DE(I)))679,H,01(DE$(I),1,20);GG1GDCDC1aDC20IDL295:DC0h I"TOTAL DEPOSIT"28)981(TD)"TOTAL WITHDRAW"28)#981(TW)(-33)""2J11 D & NEW"R$"F5) NEW+3350(G1G3)18305T$"OLD/"&:G3T$""1?G640RD""T$"NEW BALANCE"`I679,7,17gNPtSP1640}XNBP]679,7,15b981(P)g295lJ11qJD2v(G3)1170{TBPOB  605$ 1,10,2,32,162,,221,,1,240,6,232,224,12,208,246,24>$ 96,169,69,32,64,3,176,90,173,60,3,240,94,173,2,1,208y$ 11,172,61,3,169,48,153,2,1,136,208,250,169,46,32,64,3$ 168,144,2,160,48,169,,32,64,3,152,157,,1,169,46,32$ 64,3,172,62,3,2 :" "CO$T679,H3,0 Y"CHECK ENTRIES:"(^"CHECK# "(Q$,1,4)Ec"DATE "(Q$,6,6)dh"PURPOSE "(Q$,13,20)omE3$""xrE40w(Q$"")1670|679,H12,2U981((AM(NC)))679,H12,0"AMOUNT"679,H (CH$(I),1,38); AM(I)02200 D$"39";!981(AM(I))!2210&!D$"52";6!981(AM(I))C!D$"63";P!981(SB)V!\!q!DL11:1:605{!SBOB!R$D$"19*** DISPLAYING ALL WITHDRAWS ***"D$"63";!981(SB)!!TW0 B$' #1,A$,B$' C0 ( ""(((A$(0))(B$(0))256),2,3)4)"";( #1,B$&( ST02635:( B$(34)2555F( I117Q( #1,B$g( B$(34)B$;:s( I132~( #1,B$(# B$(32)(( 21);(- C$""(2 C$C$B$(7 #1,B$( 13457TB(TDTW)<NB(OBTB)AJ10Z0F28)(K981(TB).PEU"OLD BALANCE"28)RZ981(OB)X_jd33)""i"NEW BALANCE"28)n981(NB)sx" F1..CLEAR";}" ALL WITHDRAWS"335(G1) P1170I0410)L$(I)"" 335RG%R1R419305(R1)605LR2R3NU1420U115fYN605,1930yR12130,2040LS$"LOADING "B$"R"1408,NU,DL,NB,OB,TBN1NU8,CH$(N),A 32,136,208,252,236,61,3,176,33,172,61,3$% 169,,153,1,1,189,,1,201,32,208,3,169,32,234,153,0_% 1,202,16,6,173,63,3,136,16,244,136,16,231,169,,133,97% 160,1,132,98,96,169,,032,64,3,144,240,138,168,173,2,1% 240,9,169,46,32,64,3,144,2,138,168,1 6,VE1$""E1$E1$""380679,H8,VE2$""%E2$5679,H10,V>E3$N679,H12,VVE4E3$"SURE PAY"E3$"DEPOSIT"E3$"DIVIDEND"E4E41E1$E1$SP$E1$(E1$,1,4)E2$E2$SP$E2$(E2$,1,6) !TD0!TC0!I1DL!225"(DE$(I),1,38);"DE(I)02315'"D$"39";7"981(DE(I))D"D$"63";Q" 981(SB)[" 2335h" D$"52";x" 981(DE(I))" D$"63";" 981(SB)" "$ ") R$"DEPOSITS -";". 981(TD)"3 D$"2W< B$""2610(A ""(C$,3)(F ST02535)K "BLOCKS FREE ")P 1)U 610"P' "F7...CORRECT A CHECK","F2...INSERT A CHECK"' "F4...DELETE A CHECK","F6...DISPLAY ALL WITHDRAWALS"' "' 1,8,0,"$"' #1,A$,B$' #1,A$, 455640NC0B0WW5H2CH$(0)"")AM(0)031585FCH$(0)""820XINU1CN1lCH$(I)CH$(I1)~AM(I)AM(I1)NUNU1CH$(CN)CH$(0)AM(CN)AM(0)820NCCN"NEW BALANCE"28) M(N)I1DL8,DE$(I),DE(I) 2090LS$"SAVING ")B$"W"2140P8,NU","DL","NB","OB","TB\ I1NUr8,CH$(I)","AM(I)xI1DL 8,DE$(I)","DE(I)%*LNNU/INU1M4CH$(I)""9AM(I) 52,170,202,16,181,0 & 032,158,173,32,221,189,32,78,3,32,30,171,96,0K& 032,155,183,138,72,32,155,183,104,170,164,101,24,76,240,255& "PRESS:","F1...RETURN TO PROGRAM","F3...SEND TO PRINTER"& "F5...SAVE FILE TO DISK","F7...LOAD JD2YA185 ICNNU CH$(I)CH$(I1)2AM(I)AM(I1)8DNUNU1MJ11V880g(DL1)420yT$T$" "T$(T$,4)CN1DLT$(DE$(CN),1,4)1035CN280295820 ""679,1  "(L$(R),17,20) DF$ " I1DL0 DE$(I)""< DE(I)0B K TW0T TD0] DL0g TBNBq OBNBw  M100 I20 CH$(M),AM(M),DE$(M),DE(M) I04 L$(I)  J27 C$(J) ! &C$(0)L$(0) ********** ""% P1$""K LP2$""X D$(144)b 3900 xR0I:D$(R)"":R:I0:A$"":B$"":C$"":1,8,0,"$0" #1,A$,A$ @#1,A$,A$:A$""1:2400 #1,A$,B$ C$(((A$(0))(B$(0))256), ,"0:NAMNSDAG,S,R") ""OCH DET [R ....";? ,I112:S:J1SR 62,NA$(I,J):J_ @IMI JNA$(M,D)""NA$(M,D)"NONNSENS!!!" TNA$(M,D);:2 ^(NA$(M,D))5" DAGEN.":370 hNA$(M,D)"NONNSENS!!!"(NA$(M,D),5)"DAGEN"" D 15 ""YR$" ! "T$ 2951 LS$"SENDING "> D$(16)E 1N 1,4Y NBU1b 440n SDE(I) S0TDTDS:245 TWTWS TCTC1 SBSBS T$T$" " T$(T$,4) CN1NU T$(CH$(CN),1,4)J31:P1$;"";P2$;"˚"9 ( I18D$(16)(I18)" MORE FILE(S)"M Q$:Q$""2700X 3,4,7p T 3,(27);"8";(29);{ R18  3,;D$(R);D$(R8) R 3 H "";P1$;" ANOTHER? " P1$;" [Y]/[N] " 0(CH$(I),1,22)""CC11"(YA1)380(.8SBNBC I1BSSBSBAM(I)YaIBj 720r%IB*SBSBAM(I)/7204I0794)C$(I)"">C335H(G1G7)820MG640RENGWX28\ +C$(1)L$(1)0R$(13)5C$",">:SP$" "[?ST$"STAND-BY PLEASE"dD455IDC$"CK# DATE PURPOSE AMOUNT BALANCE"NCO$" CORRECTING"R$SP4$" DELETED"R$ XP9$"CHANGE BALANCE:"R$ 2)(32) l#1,A$:A$""21004 D$(I)D$(I)A$:1900k 4D$(I)C$D$(I):D$(I)(D$(I),22):D$(I)(D$(I),17)~ I0I1:1600 I;"-";D$(I):II1:1600 ` P1$;"";P2$;"":P1$;" BE SURE PRINTER IS SET UP " P1$;" PRESS ANY KEY TO PRINT AGEN" r" RUN"* |"TRYCK RETURN F\R START"_ 631,145:632,32:633,32:634,32:635,32:636,32z 637,32:638,19:198,8  31,29,31,30,31,30,31,31,30,31,30,31VDAN(AN7)7 "DATUMET "A$" [R EN "D$(VD)"DAG" 2,8,2  . "CHK NO "T$" NOT FOUND!! TRY AGAIN! "6 R8< "_ '" HIT A KEY"j ,198,0u 1198,1{ 6 ;"CORRECT (Y/N/R)" @T1 E198,0 J345 O198,0 TT2 Y198,0 ^198,1 cKY$ h(KY$"")3  CHECKBOOK  I828994'X0I,X6EJ679694L#XU(J,X[-d2505u7(DC$,1,32)<""DE$(CN)A679,2,19F981(DE(CN))K"PU(DC$,1,32)Z""CH$(CN)_679,2,19d981(AM(CN))i" DC0a""fJD2k(G7)1170:JD1:REN3p""(C$(EN),8,X)=uT$""Wz"ENTER CHECK# ";T$gT$""1170x(EN3)990255R1925,1005,1505,1425,945REN880DLDL1DE$(DL)CH$(CN)DE(DL)AM(CN) " F1..SKIP F3..NEW/OLD F5..NEW*]""7b53280,0Dg53281,0l" F1-LIST F3-C/D/W F5-DIR F7-ENTER F2-STOP F4-S/L/P F6-BALq335v(G1G7)625{G645,820,2520,1540,1825,1930,1830LNNU655620  ":P1$;"";P2$;"˚"9 ( I18D$(16)(I18)" MORE FILE(S)"M Q$:Q$""2700X 3,4,7p T 3,(27);"8";(29);{ R18  3,;D$(R);D$(R8) R 3 H "";P1$;" ANOTHER? " P1$;" [Y]/[N] " 0,8"F1..CORRECT F3..DELETE"335)G1G210352$JD2;)J11D.J31R3G11135e8CH$(0)DE$(CN)v=AM(0)DE(CN)BNC0GB0LH2QWW4VYN2[1590`DE$(CN)CH$(0)eDE(CN)AM(0)j880o55t 45 mE(KY$) rGE132 wT1385& |/ YN3@ (E89)380I YN2Z (E78)380c YN1t (E82)380} 345 "THERE WAS NOT ENOUGH DATA FOUND !!!!!" 620 ""(L$(R),8,28)""  DF$""LS$" ' "YR$" ' "d **************************C * PUBLIC DOMAIN *d, * BY MARK BIM-MERLE * * 10/18/87 * * SET UP WITH OKIDATA120 *X * NLQ DISK LABELER * * UP TO 15 FILES PRINTED * ****************  n s430$ x"MONTH YEAR "YR$2 }679,3,11; YR$D 315M 440Z 15,8,15 B$"W"15,"S0:CB: "(YR$,8)".BAK": B$"W"15,"R0:CB: "(YR$,8)".BAK=CB: "YR$ 8,8,8,"0:CB: "YR$",S,"B$ 8 15,T,T$,E$,S$ LNNULN0:SBNBSNLN1LNLN20-DC$68);:981(SB)@QLNNULNNUYC3bYA2oISNLNz646,CSBSBAM(I)C14C8H(214)679,H,28981(SB)679,H,19981((AM(I)))679,H,  Q$:Q$""3600" tQ$"Y""":3900; "DONE":4500h <"";P1$;"";P2$;"" P1$;" INSERT DISK TO BE LABELED " P1$;" HIT ANY KEY TO CONTINUE " hP1$;"";P2$;"˚" Q$:Q$""4300 0"":1400  A$ = ]R M]NAD & DAG.6 D$ = VECKO DAGEN.S NA$ = NAMNSDAGS BARNETj VD = VECKO DAG.( AN = ANTAL DAGAR FR]N ]R NOLL.2 A = ]R.< M = M]NAD.F D = DAG.P S = ANTAL DAGAR I M]NADEN Z *************** HM [R MOTST]ND"I"P]"; B(I) I* T1 A7EEB(T)? TK(147)Y""" DEN SAMMANLAGDA RESISTANSEN " " [R P]"E"OHM"" V[LJ(F,S,P)  S$: S$"" 800* S$"P" 2604  B$"GR\N" N15 B$"BL]" N16) B$"VIOLETT"N17@ B$"GR]" N18W B$"VIT" N19n C$"SVART" N20 C$"BRUN" N21" C$"R\D" N22, C$"ORANGE"N236 C$"GUL" N24@ C$"GR\N" N25 SSON *** > *** STR[DET 28 ***.H *** 29152 KRISTIANSTAD ***RR *** ***v\ *****************************f *****************************816,\NNESTAD,?????,-----,-,1d nx RUN" F39 D$"R\D" F32% D$"ORANGE"F38< D$"GUL" F37S D$"GR\N" F35j D$"BL]" F36 D$"VIOLETT"F34 D$"GR]" F315 D$"VIT" F31(147)" DITT MOTST]ND:"   60,55628,100 1199,160,55471,200,1200,160,55472,200B 1239,160,55511,200,1240,160,55512,200n 1279,160,55551,200,1280,160,55552,200 1319,160,55591,200,1320,160,55592,200 1359,160,55631,200,1360,160,55632,200 1203,160,55475, **************1 d * SKRIVET 851218 AV: *V n * *z x * RICKARD.F. dYK\PING * * * * F\R COMdRORE + dr. * * * ************** S$"S" 600> S$"F" 850H 800*R(147)3\""@f53281,3Lp:::nz" H]LL MOTST]NDET MED": " GULD/SILVER ]T H\GER"" VILKEN F[RG HAR RING:"" ETT";B$" TV]";C$" J C$"BL]" N26T C$"VIOLETT"N27'^ C$"GR]" N28>h C$"VIT" N29Ur D$"SVART" N30l| D$"BRUN" N31 D$"R\D" N32 D$"ORANGE"N33 D$"GUL" N34 D$"GR\N" N35 D$"BL]" N36 "(.4:@FLRX^djp"v,6 0,0,0,0,0,0': X0 " FINNS EJ I REGISTERT"':::" V[LJ(O,P,N,T)";Z$'$' Z$"P" 150.' Z$"O" 10008' Z$"N" 1300%B' Z " "4" "\(" "2" ===== ====="<" "F" "P" 300,1204,160,55476,300 1243,160,55515,300,1244,160,55516,300J 1283,160,55555,300,1284,160,55556,300v 1323,160,55595,300,1324,160,55596,300 1363,160,55635,300,1364,160,55636,300 ***************************** ************* ***************4 "":NA$(12,31):53280,6:53281,15 D$(0)"L\R":D$(1)"S\N":D$(2)"M]N":D$(3)"TIS":D$(4)"ONS":D$(5)"TORS" D$(6)"FRE":"]R M]N DAG (]]]]MMDD)";A$ (A$)8"DET SKALL SKRIVAS MED ]TTA TECKEN!!!":190 A((A$,4))  TRE";D$ B$"SVART" F10' B$"BRUN" F19> B$"R\D" F12U B$"ORANGE"F18l B$"GUL" F17 B$"GR\N" F15 B$"BL]" F16 B$"VIOLETT"F14 B$"GR]" F115$ B$"VIT" F11. C$"SV  D$"VIOLETT"N37 D$"GR]" N38% D$"VIT" N392N4N110?N510N3PR(N4N2)N5]""" DITT MOTST]ND [R P]"R"OHM"" V[LJ(F,S,P)" V$: V$"" 1820& V$"F" 85002$"T" 2000>L' 53281,6: 53280,14GV'""*.H *** 29152 KRISTIANSTAD ***RR *** ***v\ *****************************f *****************************816,\NNESTAD,?????,-----,-,1d nx " Z I1 30d E,G,H,K.n K100 TF1Ax K200 TF2T K300 TF3^ E,Gh H,Tp I B$"SVART" N10 B$"BRUN" N11 B$"R\D" N12 B$"ORANGE"N13 B$"GUL" N14 **************** *** ***2 *** VILL DU BYTA SPEL P] ***V  *** KASSET? SKICKA LISTA ***z *** ***  *** TILL: **** *** ***4 *** MAGNUS ENAR :M((A$,5,2)):D((A$,2))C M12M1D1D31A1582"FEL!!!":190s AN365A31(M1)D:M3ANAN(.4M2.3) M3AA1 ANAN(A4)(.75(A100).75) VDAN(AN7)7 "DATUMET "A$" [R EN "D$(VD)"DAG" 2,8,2 ART" F208 C$"BRUN" F29&B C$"R\D" F22=L C$"ORANGE"F28TV C$"GUL" F27k` C$"GR\N" F25j C$"BL]" F26t C$"VIOLETT"F24~ C$"GR]" F215 C$"VIT" F21 D$"SVART" F30 D$"B  V$"S" 600: V$"P" 260D 1820:N 1195,160,55467,100,1196,160,55468,100fX 1235,160,55507,100,1236,160,55508,100b 1275,160,55547,100,1276,160,55548,100l 1315,160,55587,100,1316,160,55588,100v 1355,160,55627,100,1356,1 AN EMIL LEOPOLD EDMUND NAPOLEON MAGNHILD ELISABET PONTUS HELGA CECILIA KLEMENS GUDRUN KATARINA TORKEL ASTRID MALTE SUNE ANDERS OSKAR BEATA LYDIA BARBRO SVEN NIKOLAUS AGATON VIRGINIA ANNA MALIN DANIEL ALEXANDER LUCIA STEN GOTTFRID ASSAR INGE ABRAHAM ISAK ( *********************************O*** ***v*** MAGNUS ENARSSON 85-10-13 ***(*** ***2*********************************<F 53281,15: 53280,14P""Z(147)! d"SCANDINAVIA",8,14|䧆LH1fGJP3W>/f YL   (147) """) ,10)"PARALLELLKOPLING"E 610)""Q @:::v J" HUR M]NGA MOTST]ND";A T (147) ^ B1 A h: r " MOTST]ND"B |" [R P] OHM:";C(B)   C(B)0 260  B  N1 A TORIA GREGER MATILDA KRISTOFER HERBERT GERTRUD EDVARD JOSEF JOAKIM BENGT VIKTOR GERDA GABRIEL MARIE BEB]DELSEDAG EMANUEL RUDOLF MALKOLM JONAS HOLGER ESTER HARALD GUDMUND FERDINAND AMBROSIUS NANNA VILHELM INGEMUND HEMMING OTTO INGVAR ULF JULIUS ARTUR TIBU :" (LIST2020-)"::i n" MOTST]ND "q x: " DETTA PROGRAM KAN BER[KNA" " RESISTANS VID SERIEKOPPLING" " PARALLELLKOPPLING SAMT F[RGKODER" " DU BALRIK KAROLINA KONSTANTIN HENNING DESIDERIA RAGNVALD URBAN VILHELMINA BLENDA INGEBORG BALTSAR FRITJOF ISABELLA NIKODEMUS RUTGER INGEMAR HOLMFRID BO GUSTAV ROBERT SALOMON B\RJE SVANTE BERTIL ESKIL AINA H]KAN JUSTINA AXEL TORBORG BJ\RN GERMUND FLORA ALF PATVID OLOF ALGOT ELIN PER KARIN TAGE ARNE ULRIK SIXTEN ARNOLD SYLVIA ROLAND LARS SUSANNA KLARA HILLEVI EBBE STELLA BRYNOLF VERNER HELENA MAGNUS BERNHARD JOSEFINA HENRIETTA SIGNE BARTOLOMEUS LOVISA \STEN ROLF AUGUSTIN HANS ALBERT ARVID SAMUEL JUSTUS ALFHIL D(N)1C(N)  N  M1 A+ EED(M)3  M: EF R(1E)R (147)c "" " DIN ERS[TTNINGS RESISTANS " " BLIR"R"OHM" " V[LJ(F,S,P) &QW$: QW$"" 550 0 QW$"P" 260 : QRLING VALFRID TEOFIL MANFRED HEDVIG FINGAL ANTOINETTA LUKAS TORE SIBYLLA BIRGER SEVED S\REN EVERT INGA AMANDA SABINA SIMON VIOLA ELSA EDIT ALLHELGONADAGEN TOBIAS HUBERT SVERKER EUGEN GUSTAF ADOLF INGEGERD VENDELA TEODOR MARTIN LUTHER M]RTEN KONRAD KRISTI^ISRAEL TOMAS NATANAEL ADAM EVA JULDAGEN STEFAN JOHANNES MENL\SA BARNS DAG ABEL SET SYLVESTER VERT INGA AMANDA SABINA SIMON VIOLA ELSA EDIT ALLHELGONADAGEN TOBIAS HUBERT SVERKER EUGEN GUSTAF ADOLF INGEGERD VENDELA TEODOR MARTIN LUTHER M]RTEN KONRAD KRISTIEST[MMER OMR]DE GENOM:" 4 10)"F.......F[RGKOD"T 10)"S.......SERIEKOPLING"x 10)"P.......PARALLELLKOPLING" A$: A$"" 210 A$"P" 260 A$"S" 600 A$"F" 850 210   B(100),C(100),D(100)   W$"S" 600 D QW$"F" 850! N550' XB b B(100),C(100),D(100)N l(147)] v""| " SERIEKOPPLING" " " "" " HUR M]NGA MOTST]ND";A  I1 A  " HUR M]NGA ORTIUS OLIVIA PATRIK ELIAS VALDEMAR OLAVUS PETRI AMALIA ANSELM ALBERTINA GEORG VEGA MARKUS TERESIA ENGELBREKT TURE TYKO MARIANA VALBORG FILIP G\TA MONIKA GOTTHARD SIGMUND GUSTAVA ]KE JONATAN ESBJ\RN M[RTA CHARLOTTA LINNEA HALVARD SOFIA HILMA REBECKA ERIK  ULINA ADOLF JOHANNES D\P.DAG DAVID RAKEL SELMA LEO PETRUS ELOF ARON ROSA AURORA ULRIKA MELKER ESAIAS KLAS KJELL G\TILDA ANUND ELEONORA HERMAN JOEL FOLKE RAGNHILD REINHOLD ALEXIS FREDRIK SARA MARGARETA JOHANNA MAGDALENA EMMA KRISTINA JAKOB JESPER MARTA BO D MOSES ADELA SAKARIAS REGINA ALMA AUGUSTA TORD DAGNY TYRA AMBJ\RN IDA SIGFRID EUFEMIA HILDEGARD ALVAR FREDRIKA AGDA MATTEUS MAURITS TEKLA GERHARD SIGNILD ENAR DAGMAR LENNART MIKAEL HELGE RAGNAR LUDVIG EVALD FRANS BROR JENNY BIRGITTA NILS INGRID HELMER E# N GOOFPROC V1.2 MARK JOERGER 1987 RUN 10 TO INPUT TEXT - F7 ENDSe53280,11:60B$((I)):B$""A$;"";:A$B$C$;:II1:J152::4z   `z z Fy΁  S ~i@ k L   z  $ $  $  L   zy2y @  y%y $  |ʭ 3 L0  D  * &    0 `  26 Q L31?   ` hhzLL  L-I 0 `    .! .  L-V 0 L 0 L- L  Ѣ  `L{PRESS ANY KEYI/0 ERROR DEVICE NOT PRESENT.. TURN DISK DRIVE ONNO DISK IN DRIVE REMOVE ANY WRITE-PROTECT TAB FROM DISK YOU HAVE SWITCHED DISKS!STOP KEY PRESSEDVALIDATE? Y/NVALIDATING...PLEASE WAITDONE..PRES _  hh` ȱ `   L/ ͽ  ɀ  ?@L> м иL| hh  `  @@?L"  `+@з hh HH   `U   3 ` i L LHh `| [8 ΁L~| i L~i i@Li`i@Hh `  ) AM WILL AUTOMATICALLY VALIDATE AFTER CONTROL F (FINISHED) IF YOU HAVE USED DELETE (DELAYED) OR UNSCRATCH BUT NOT SCRATCH (IMMEDIATE). DELSEQPRGUSRREL8RG INSPECT SEQ FILES MOVE ALL DELS DOWN SHIFT MOVE DELS UP ALPHABETIZEBLKS  !    L0 ~`Hh`|`ɿ 3  }`E    `rLh ɿW,ݠ  L- ЩS 0 :    ` Щ 3  ` @  `)   ͽ,  ͽ `U1:2,0,+  L- `# H ` hi0 5  hhzL" L  `Hőh`h   Ѝ!Щ L P` (` `  @ LS 1 PRG OR 2 SEQOR TO CANCEL *TO CANCEL USE SHIFTED * ^---NEW NAME---^YOU MUST OFFLOCK BEFORE YOU CAN SCRATCHYOU MUST USE DELETE TO REMOVE UNCLOSED FILES (*) OR COMMA (,) FILES NAME EXISTS ERROR!DIRECTORY MAGI ͽ `     - L+ LH ɀ. h ?L| @  L|  H ʝhLK8轞0轞0 L)`ؙٙڙۈ'و` F΁ `   1D4EFG ! e`0DE L-> L. `B-P:2,144 L-n LVy ͽ `U2:2,0,18, Э I  L $  $ L  Х@`8  8 NY]RSDAGEN SVEA ALFRED RUT HANNA TRETTONDAG JUL AUGUST ERLAND GUNNAR SIGURD HUGO FRIDEBORG KNUT FELIX LAURA HJALMAR ANTON HILDA HENRIK FABIAN AGNES VINCENT EMILIA ERIKA PAULUS BOTILDA G\TE KARL VALTER GUNHILD IVAR MAX KYNDELSM[SSODAGEN DISA ANSGAR AGATA  ` ~ Lh    ʽ LH k   `8Lu ;㩁 ~} ` V ʝƈ K ɑɓɔɝ"$*,?! 8ɍL" 𳝂 @L L  ` L``LL  ̑LL  ̏Le`Pi ɿ L*L<  01ɠ L CDISK NAME..ID. #REMEMBER TOCTRL F WHENYOU'RE DONE UP F5 DOWN F7 GRAB F1 DROP F3 OFFLOCK LOCK DELETE UNSCRATCH CHANGE READ PRG INSPECT SEQ FILES MOVE ALL DELS DOWN SHIFT MOVE DELS UP ALPHABETIZEBLKS   %  `L`  ȑ``!Э  Э   բ `  ) `  #G g  `` L- L8L))͆ L  _   F΁  Щ   `y  L" F   ky  I  y `  Э}(   @' x  Ѝ!Т  . .DOROTEA RIKARD BERTA FANNY EUGENIA YNGVE EVELINA AGNE VALENTIN SIGFRID JULIA ALEXANDRA FRIDA GABRIELLA HULDA HILDING MARTINA TORSTEN SKOTTDAGEN MATTIAS SIGVARD TORGNY LAGE MARIA ALBIN ERNST GUNBORG ADRIAN TORA EBBA OTTILIA FILIPPA TORBJ\RN EDLA EDVIN VIKK L  ΋ ʩ K L  L" L ~?Խ  ~` `  `    L ~L i  ݂~` Э!Щ  l  ȩ"L L  i(i L` ) mj)? ȱ ͽ  ͽ  ͽ `0? " L_)?L%Lɠ ɿ)?L)`"` i LTRK SEC  IMMEDIATE  DISK ACTIONS CONTROL SCRATCH CONTROL FINISHED LOCKED FILE = < UNCLOSED = * PROGRAM -- STARTS AT STOP TO STOP OR ANY KEY TO --PAUSE--ASCIISCREEN-POKE INSERT DISK IN DRIVE NOTE: THIS PROGR}0x[l[ڡ.6@=C槁ahxL: KpNsn! ̨@a鷪n:4C+Dh6{Ĝ%ٶNWN5Qro'|G*M=+OMAWx՚(j'z3b(=_m~~UA<^ىSl`%-U#;=t|1*ǫU[0~Oáxg2H"o]0 ToW30?̭c<'rV:Rj)bCM:GmJ~hw扟Ȓe$?"z.O:GmJ~hw%eڲZ}y"ժl)! 61ƌЍl̆ Ҡݚ{td~x=>s#%vr| g˵+>}F@lS߭G|9[X-e]ܡ Z _m~>[ 4=pA漶wm5 T:꼑6?xKA<^2uuW߫h6=-\Hٶt|i / | XmR* COj R[*ЋToՃU_*Z֧t|;xL^UzK.Ѽ>>͏x ɖ{ d>FYS7>G?m;. A8~c(m{ݣ٬~ ;52/!ntv&l[qʼntf({n_ثNh~a[虗bh^u`^ty^E4aB]F;_ u⏇n2̲ѐal)Y2E\_g#1 S=24ghvuea3z|32ez >.z- ˵wnw\O#6>B?"k&w%O`5&?a>Hocx.cx]<=+ޣ]?ntB71TDKNc;{wk2B}Cp4p\zHE]p|>+LGkWcE?)ɜ: #**_5^ko'vB|S䛶8h(@g=eN'n iw boɫn}~6,_m~)NjUSO;x,@@D*6?qw1PLfnm  Kn-UbroU]z:l /RnvW[{Ġ<8t|i PWٰ1q28>-oZ8@76?xLX\y[oz 찹D >)2]<}'_LedO ?Xƕe iL,MUb0E63z^zv0YacU]e{y 8"~X_坭e"d2EсLQ?Ӌ-E &ss_nΪ6do}y_ԙ`8#uaLLz?P߾V_2鲛:JLTM=m=BtǦrUoV=VP7 y٦K/|pKˑuXD TRI;{^Nףz1TLG]JlO6'H9W~L]|qqQݔ\,O:]YBUKNWoctBIu"%poci{:ia<2>R*4*8 1)K֟ˎ/aǀY%ZK5Ƌ"n9ǒ=`q$sZkɱdx㽤?̜v,j|,:߾9/-v9Qoxo8s%]SZԇ#cNxZ6T7 )i0G OƜmG^؃{`zŲ,&o Šm%]u8;/VydK%'mul!->CGA<^,d2S: K !}8;`m' )ǫf&*Ӂ3{Ĝe<_m~=x=(uw[3T4oȶt|1SWvC]$~{'PXjx7Ds!KaHo~d6?V{ 4QUiiU`qRO~+_m~hx=7QpKU8=_m~xd:¡zODn'}m<_m~<ЊxLPw{kZg PX8TI ~'im"@k ~>6~o N:ɏS"OSUHu= Hkcܣ?UkjH\-Y׏x7$tQ{ą*U KW]㕝(msjPz nit9jAx'Jќ6-Ti#ՐZ*M܃t|i Zjyb=]^OCx%[U6?eahx16g0^DCk7j(kO0QԍOQ|o۞  2075 !Э  Щ  . . ΢       .  . . . ΢  ߢ  z}| F  _    ) F     k yI:5u5Nm~P Żkuy*LbL)KKU5TCn=YTĴAV71*?Ia0f4% ,/ޕ_M%J/J/oťpCh\kAS0{YRgť1dx?L?}S>Df[taV˹nncX \mBZ| xkL(,*n}~n׃KW6(k*ĎQ:Rק)|ȥ}x:xӳ2f8䧧]:XV5p{U[rni@j ZQק_u@q4OE3(.HWA+ DMцS: De0^DCk7j(kO0QԍOQ|o ~?.eN'D?mKS: `zRa6? 쳍xeլSԀSgdw`d߇v@Sn=BCDΖ2VKbz 'Cӣ6jAc;O)w@)?VukmiSӕ4`'K~S4E*.CEuT%H i'_,,U3](|\AhJ5^hG^F?U+y$ddH+y*ڕ?ZP_%$")%ogrDe]{'~xPGd[ PCHUNK!%!;qlBiz Vɬ(sqfd5jj;$Cɢ/| w2 j:2,}NFd1$ctc%VӪBwYO LUM_z(y?;X]pL)2FŬ>VW {Տjo 5` 4g  AͅX% ,58*Y OSxu&XP鿰GG/e*ߊ:OO][Q1a%S_\-]4] wJJ;F'Rg^evg^ъt%8}j2&V2\?n@Ct٣[s&bp{n?==˵o+ kx ؘZj^Ř_5^߭0s6fV9bO}{gʮP 1Bnx mc^boL\qB'~U}xjo m۶m۶m嵊`5nb:9tm۶mk(Vg=顇E5TԵ+)yٶm۶m[FRZ VWDSYJ^'ׯhn۶m۶m۶m۶m۶m۶m۶-׬VXCÂJٶm۶m۶m۶m۶m۶m۶m۶-GPi-[UXT$kE:EZ۶mWR5AR,#m۶m۶-Wԭg"H2U,K%Ģum۶Ne bANJZضm۶J hL}@'Ǣ0GE*_a/?=T](Itdp*Uu뙗_4rb>=+_c}X5q/辯w+1>=<1ީ(?'[3 Soi鶾 39cΘ39c06$4 DU=Wqcѕ/-3!W}PIaa ‚:pI I95'Y냍'* S(I5g&?S/ZP5g&?S/9՚BMMH-BEMmPݙ@9]HfN̆@16F v^eyC8 UOUa}eXOC0iX;X;L `H)hX`H )xh` ,08 Lz  *  H Xh  ,```HMm   h`L `э hhLP ፻ L f3LŏLfRXm3Y+Nl[%[gw7-Kf ټòC9om|je)fv%nn-Z#qkNmsޝ;eMim-M~GH Y--f-Dh ,Km|KH&RlD mZ>c!QDeiTs"HmaY}87ܜ[ksckMYF)q72*RB$'k6/)e'4IujuMkoZc4 y9[u>UUa2k*}Ֆs:ɏ]1mzưVK'"+^;Sb[.G`-psK'"~WV=NEDFaq4]NEDXKo:,U[R:ɏ]?$SHED-]4]NEDWpSNE+~S:ɏt&H ضm۶m۶m۶m۶m۶m۶m۶m۶m۶m۶m۶m۶m۶m۶m۶m۶m۶m۶m۶m۶m۶m۶m۶m۶m۶m۶m۶m۶m۶m۶m۶m۶m۶m۶m۶m۶m۶m۶m۶m۶m۶m۶m۶m۶m۶m۶m6URBy@WH}ӛ<zEQg5&k|tר!xP΃xUAC<: sjj3ؚxTufCNQUBa'|ސÝ+;Wў(Ƈy@VaIk= /854ڽkxuH"wOO5Ohy 8=ْl)! 6S)yT mc^EE7:I6Fac62iivgn= XzCN]/To"/<6}_n `Y           . 8L Ͱ    `͌Y LT  @  9 $8(` *  eȌL 1234567890c7š^D/>keY +x؃p}z]}w9(>^ŋQ׽T]u|#7\W{'$\ED׊=Ϲ<*tKɯLׯb.ߊ+Hc=ߥrL?+ߊ}Wq']Mz]8lW<Ɖ ѣRVeMzK6@^"%UPMiIhfs3S;F3/Qų_f;x1YK.@1B6gNKīrμwȜ;,ש5{e*;[<@N̼;節ܚG(>w%{ܭG/3/7GpCpg)xw-2V/~XνAV71,A%a*єa^"^"GK5qf[H  (2063)  l, $0` 7 ,0 $0JL2  ,0ƥw+   O K,? L  L{ 0:   Ǫi   , ȭ z%P RUN ME FIRST!Ŧ&A$nUͫzjE 6@8LUCg]5r|`4WNl qJbj8U1MnJs*f/g5T (`K7aj `58@8jX-\-Z-ji,jjj}% M{Ҫ- &C##dڸj;XQP CHAOS 3.0!%2O?,@ʨB*4)9H8uĩ]rPG&6@P0`^XY*HeQeh>Ss=S#}R++k+iʆ\=ʔl%'}(F=W*#eM`e l,,r%`X\t&mX+Grg\E%++MgWSr W3SINTRO!TSi V@jM=TO(DQ.>(ĪS? {:PiMU_N 5&M5m۶m۶m۶m۶m۶m۶m۶m۶m۶m۶m۶m۶m۶A HSCANDINAVIEN PD222ACHAOS 3.0 SDA)DIRECTORY MAGIC NAMNSDAG RESISTANS64#CLUB NAMEBILLIGA PD-PRGC64/128/AMIGASCANDINAVIEN PDBOX 52519105 SOLLENTUNATEL 08-964072 ALMANACKA64 NLQ-DISK-LABELER CHECKBOOK" SORTNSWEET FILE1TEL 08-964072SC PD.INFO #S FILE2 FILE3 FILE4STA.STORE:SS-1  SS-2 SS-3   SS-4"SS-5 JOURNALLFS DISCO!DSCALC1DSCALC.HLPSAMPLE.CALC VIDEO DATABASE BOWLER BASE CLUB MEMBERSFCLUB RAFFLE5!TV ALIGN GEN"DOS WINDOW"DW.OBJ"ELKON UTILITIESCK":S4$"LOCKED!"4TY64S1$"LOCKED":S2$"<":S3$"UNLOCK":S4$"UNLOCKED!"=S2$V " STATUS: "S1$" ";S3$;" IT N";:A$:A$(A$,1)A$"N"1370(A$"Y"13002TY(TY191)((255TY)64)<15,"B-P:2"2FO32:2,(TY);286015,"M-W";(1);(1);(1);(65)615,"M-W";(2);(7);(1);(65)S15,"U2:";2;0;18;0:2860r" NEW STATUS: ";S4$2:15,"I0":$AU$;"FILE LOCK." THIS CAN LOCK OR UNLOCK ANY FILE."8A$"LOCK OR UNLOCK":2753"V 3,"** ";F$;" - RINTED BY OUIS . ANDER'S **""` 3"j #"t :7"~ AU$;"UNSCRATCHd" " THIS CAN RETRIEVE PROGRAMS AND OTHER" " FILES THAT HAVE BEEN SCRATCHED FROM A" " DISKETTE." " TO USE IT SAFELY,YOU  SCREEN\" OR ONTO YOUR PRINTER.fA$"PRINT":2750: WAIT;p15,8,15,"I0":2,8,2,F$",S,R":2860wz" PRINT TO SCREEN OR PRINTER P";A$:A$(A$,1)A$"S"DN3:2210A$"P"DN4:22302170"";17)"  lSH653" IT WORKS IN C-64 MODE ONLY.":v2750H * THESE LINES FROM ADDR FINDER. BAD ON 128 & +/4?QWK$z15,8,15,"I0":2,8,2,F$",P,R":2860782,1:65493:EA(174)256(175)1: OK ON 128/+4?H(EA256):LEA256H:2080:E (HX$,H1,1)(HX$,L1,1); 6" ";A;16);B$@(ST)1800.JC$:C$""1610?TC$" "1530I^1830Xh HEX DUMPirC0:T100000|" PRESS SHIFT OR SHIFT LOCK ";"TO PAUSE.":" PRESS ANY OTHER KE F15,"U2:2 0"TC;SC:2860P" NEW STATUS: ";S4$'Z15,"I0"-d3n:KxAU$;"FILE EXAMINERy" THIS LETS YOU SEE THE CONTENTS OF ANY" PRG, SEQ OR USR FILE.A$"EXAMINE":2750: WAIT15,8,15,"I0":2,8,2,F$:2860" YOU 0: WAIT'B15,8,15,"I0":2,8,2,"0:"F$:2860:2:2,8,2,"#"HL(F$)16F$F$(160):1100]VT18:S1:N$(0)w`15,"U1:2 0"T;S:2860j15,"B-P:2,0":#2,T$,S$:TCT:SCS:T(T$N$):S(S$N$)tI07~15,"B-P:2"2I32#2,A$:TY(A$MUST BE FAMILIAR" " WITH THE INSTRUCTIONS. # 2680: WAIT# WK$F# BL$(255):TR18:SE1:15,8,15,"I0":1,8,2,"#"t# 15,"U1:2,"8,TR,SE:P0255:#1,BL$(P):P# NT(BL$(0)(0)):NS(BL$(1)(0)):NM1:FI225532# PN318:BL$(FIPN) (14);" O PAUSE, PRESS Ԓ OR  ˒. 3,DN,7: U&LC* DN322908 5,4,5:5u ST0" PRINTER IS OFF LINE! PROGRAM ABORTED.":2410 " LEFT MARGIN (0-20) 9";LM:(LM0)(LM20)2270 SP$(" A$H$#2,L$:L(L$N$) #2,H$:H(H$N$):2080D" ":" HEX LOAD RANGE: ";H$;" - ";EA$l" DEC LOAD RANGE: ";H256L;"-";EAPLEA1(H256L)H(PL256):LPL256H:2080" PROGRAM LENGTH: ";PL;"BYTES (";H$;")"Y TO QUIT."" ";((TC),5);": ";J110(SH)17007A$:A$"":1830Q#2,X$:X$""X$(0)`(ST)1800X(X$):H(X16):LX(H16)(HX$,H1,1)(HX$,L1,1);" ";CC10:1680 END OF FILE CAN CHOOSE A FAST HEX DUMP OR AD" SLOWER BYTE-BY-BYTE DISPLAY IN HEX,":" DECIMAL AND ASCII." DISPLAY (H OR B) H";D$:D$(D$,1):D$"H"1650D$"B"1470 BYTE-BY-BYTE" TO STEP THROUGH THE FILE, PRESS SPACEN$):(TY128)01220 #2,A$,B$0D$"":J015:#2,C$:C$""C$N$?D$D$C$:PF$D$1220`FOI:I1000fwI100112501120" FILE TYPE: "("DELSEQPRGUSRREL?????????",(TY7)31,3);S1$"UNLOCKED":S2$"":S3$" LOOCK":S4$"LOCKED!"9A$(65)S1$"LOCKED":S3$"UNLOCK":S4$"UNLOCKED!"X" DISK NAME IS: ";DN$v" STATUS: ";S1$" ";S3$;" IT N";:A$:A$(A$,1):A$"Y"1030S1$"UNLOCKED"2,(1);:2860:10102,(65);: ",LM):" PRINTING...";!" TO ABORT, PRESS .":DN3 " (!3:3,SP$;?! B$:B$(13)2400]! (SH)12320: SHIFT KEYh! #2,A$u!$ ST2380!. 3,A$;:A$(13)LL1:3,SP$;!8 L60DN4L0:J16:3:J!B 2310!L 3:"LOAD ADDR LO/HI: ";L;"/";H : HEX CONVERSIONL H$"$":N(1)256HL:I26:N(I)0::K14:M16(4K)*H(K)(N(K)M):N(K1)N(K)H(K)M:H$H$(HX$,H(K)1,1):4>:HAU$;"FILEPRINTERR" THIS LISTS SEQ FILES ONTO THED$"H"(ST)64" END OF FILE":1840" ST=";ST;" ",&" ABORTED!"208::QDAU$;"ADDRESS FINDERN" THIS SHOWS THE LOAD AND END ADDRESSESX" FOR ANY  PRG FILE. (OTHER FILE TYPESb" WILL GIVE TYPE MISMATCH ERRORS).." " TO QUIT, PRESS ANY OTHER KEY."'"BYTE#HEXCHR$ASCII"1JJ1Z#2,A$:A$(A$(0),1):A(A$):B$A$}A$(34)B$(34)(20)(34)A$(32)B$"N/A""A$(127)A$(160)B$"N/A",H(A16):LA(H16):J;6);"$";" ";E$:410'@ HEN PRESS D.& " TO RETURN TO THE MENU, PRESS .(& A$:A$(13)6& A$"D"@& 2700F& :j& * INSERT DISK, ENTER FILENAME& " TO PROCEED, PUT THE DISK IN DRIVE #8,& " THEN ENTER THE NAME OF THE FILE YONM12610 %( P0255:15,"B-P:"2,P:1,BL$(P);:P:15,"U2:2,"0,TR,SE"%2 NT0NS25526308%< TRNT:SENS:2520?%F 1|%P XS0" VALIDATING DISK. PLEASE STAND BY...":15,"V0"%Z %d :%n * INSERT DISK, PRESS D%x " TO PROCEED, PUT THE DISPLAY A SCREEN4440: CLEAR MENU AREAECR20:CC0:2090: CRSR TO MENU AREAi4690: PRINT FUNCTION KEY MENUX2224:781,X:59903:: CLEAR TEXT AREACR22:CC0:2090:""FX$(R0,C0)"";CRR0R12:CCWC(C0C1)C0C142090: UATOR 5270: SEQ FILE READER4  TY(R,C)=0 BLANK CELLR  =1 NUMERIC VALUEk  =2 FORMULAS  =3 TEXT ( =4 SUM COMMAND 2:SP$" " <NR30: NUMBER OF POSSIBLE ROWS FNC20: NUMBER O ANSACTOR VOL 5, ISSUE 04 B:? L ----------------------------Y V TITLE SCREEN| ` ---------------------------- j53281,1:53280,1:(14)"" tPA$"======================================" ~VM1024:VXVM999:CM55296:CXCM999  CURSOR RIGHT<C0C2C2NCC1C11:C2C21:C0C01:1480: SHIFT SCREENZC0C21560: CAN'T SHIFTlC0C01:1520r: CURSOR LEFTC0C1C11C1C11:C2C21:C0C01:1480: SHIFT SCREENC0C11560: CAN'T SHIFTC0C 01:1520v:: DISPLAY SPREADSHEET SCREEN/""(142);PC03:C$"0"((CC1),2,3)p(WC1)C4);"C"(C$,2);:x:RR1R2:R$"0"((R),2,3)"R"(R$,2);C03(WC1)C4);: ROW NUMSTY(R,CC1)0D SK IN DRIVE #8,":" THEN PRESS D.& " TO RETURN TO THE MENU, PRESS .(& A$:A$(13)6& A$"D"@& 2700F& :j& * INSERT DISK, ENTER FILENAME& " TO PROCEED, PUT THE DISK IN DRIVE #8,& " THEN ENTER THE NAME OF THE FILE YODX$(R0,C0);:2090: PRINT DATA IN CELL32120: GET A CHARACTER9":U, CHECK FOR CURSOR KEYS6(A$"")1(A$"")2(A$"")3(A$"")41730,1780,1830,1880@:J CHECK FOR FUNCTION KEYSTA$(133)T1:2230: NUMBERS^A$(1F POSSIBLE COLS) PSR18: MAX NUM OF DISPLAY ROWSM ZSC4 : MAX NUM OF DISPLAY COLSf dWC8 : COLUMN WIDTH nBK$" ": BLANK CELL xRN(NR),CN(NC),FX$(NR,NC),DX$(NR,NC),TY(NR,NC),FM$(NR,NC),FX(NR,NC) N(21): NESTED FORMULA LEVELS/:VM,240:CM,2:VX,253:CX,2T X123:VM40X,221:CM40X,2:VX40X,221:CX40X,2 :VM39,238:CM39,2:VX39,237:CX39,2:X138 VM39X,192:CM39X,2:VX39X,192:CX39X,2: ""PA$"" " - PREAD01:1520:  CURSOR DOWNK&R0R2R2NRR1R11:R2R21:R0R01:1480: SHIFT SCREENi0R0R21560: CAN'T SHIFT{:R0R01:1520D:N CURSOR UPXR0R1R11R1R11:R2R21:R0R01:1480: SHIFT SCREENbR011560lR0RX$(R,CC1)BK$DX$(R,CC1);:  :H  POSN CRSR AT CURRENT CELL (CR,CC)l*781,CR:782,CC:783,0:65520:r4:> TURN ON CRSR & GET KEYPRESSH204,0:A$:A$""2120R205,2\ (207)02140f204,1:p :U& " WANT TO ";A$;"." ' " TO RETURN TO THE MENU, PRESS -' " WITHOUT ENTERING A FILENAME.;' 13);XL$W' F$"":" FILENAME";F$d' F$""j' p' :'" * DISK ERROR CHECK', 15,E,E$:E632880'6 E19" ";(OL$,(E$)):""2590$ PN318:BL$(FIPN);:::(BL$(FI)(0))02590A$ "UNSCRATCH THE ABOVE FILE N";A$:(A$,1)"N"2590{$ XSXS1:NM0:"FILE TYPES: 1=SEQ 2=PRG 3=USR 4=REL$ "FILE TYPE 2";TY:BL$(FI)(TY128):TY4TY12580$ FI:WK$: FL(NR,NC),R(100),C(100),RA(100),RB(100),CA(100),CB(100)_R1NR:C1NC:TY(R,C)0::: BLANK CELLSe: DISPLAY COLUMNS/ROWSC11:C2SC:R11:R2SR: DEFAULT DISPLAY SIZERO2:CO4:R01:C01: CURSOR AT R01C011940:X(0): DISHEET":PA$:I1500:8 " (C) 1985 BY ICK OWA^ " ENTON, " REE TO COPY/USE/MODIFY" " OT FOR SALE. ::::" TANDBY..." 4860: DYNAMIC EXPRESSION EVALM DSCALC - A SPREADSHEET PROGRAM FOR THE COMMODORE 64S:x ORIGINAL PROGRAM VER 851207 BY~: DICK SOWA: RENTON, WA$:. DYNAMIC EXPRESSION EVALUATION ROUTINE BY CHRIS TAMARA 8 TR34)T2:2230: FORMULAS3hA$(135)T3:2230: ALPHANUMERIC TEXTNrA$(136)2610: HELPi|A$(137)2720: LOADA$(138)2920: SAVEA$(139)3080: PRINTA$(140)3140: RECALC1560: NOT VALID CHAR-START OVER:P FORMULAS THAT ONLY REF VALUE CELLS &` ENTRY:NF = TOTAL # OF FORMULAS>&j TY(R,C)=0 FOR ALL TEXT & BLANK CELLSh&t FL(R,C)=1 FOR ALL VALUE CELLS&~ FL(R,C)=2 FOR ALL FORMULA CELLS& EXIT: FL(R,C)>=3 FOR ALL CELLS CALLING FX(R,C)(FX$(R,C))#> (FX$(R,C))WCDX$(R,C)"!!!!!!!!"#H 3460@#R DX$(R,C)"0":IN$FX$(R,C):4380:FM$(R,C)IN$J#\ 3460e#f DX$(R,C)(FX$(R,C),8)o#p 3460#z DX$(R,C)"0"# ::X(0):1470# :# CALCULATE COL/ROW SUMS# FX0:MRA(:4:& 4:4:14900 : : F8 - CALCULATE SPREADSHEET D 4440: N 3560: ANALYZE FORMULA NESTINGP X ER0ER0:1490Z b 4440{ l CR21:CC0:2090: POSN CRSR v "FORMULAS TO CALCULATE:";TF I2FL: FORMULA LEVELS TO CALC J1NF: EASE WAIT..." R1NR:C1NC TY(R,C)0:::X(0)+ :"ENTER FILENAME";D FI$:(FI$)162820a 15,8,15:2,8,2,"0:"FI$ 15,E,E$:E02:15:""E,E$"";:" 2,R,C,TY(R,C),FX$(R,C), ST 64 28806 2850@ 2:15 R0,C0)4:1490 FX$(R0,C0)IN$:DX$(R0,C0)"0 ":TY(R0,C0)2E 4380: CONVERT TO USABLE FORMULAX FM$(R0,C0)IN$b 1490v TEXT TYPE = 3 FX$(R0,C0)IN$:DX$(R0,C0)IN$:TY(R0,C0)3 1490 :( DISPLAY HELP SCREENS2 15,8, T4710,4720,4730: MENU TEXT=L0:FX$(R0,C0);:CR21:CC0:2090: PRINT CURRENT CONTENTST2120: GET A CHARZ:t FILTER ENTERED DATA A$(20)4510:2280 A$(13)L02440 A$(13)2410: CLEANUP$ T2350,2370,2370. A$ FORMULA CELLS'FL2:N(FL)NF: N(FL)=# OF FORMULAS AT EACH LEVEL8'N(FL1)0:I1N(FL):A$FX$(R(I),C(I)):L(A$)S'TY(R(I),C(I))44040^'J1L'(A$,J,1)"["3840: TRY NEXT CHARACTER'4270: PARSE CELL REFERENCE'ER0RR(I): J)RB(J):NCA(J)CB(J)# FXFXFX(M,N)# ::$ :#$ ANALYZE FORMULA NESTING ANDA$ DETERMINE CALC SEQUENCEx$ ISOLATE FORMULA CELLS FROM VALUE AND BLANK CELLS$ ER0: ERROR FLAG$ NF0: # OF FORMULAS$ FL0: CURRENT FORMULA NES # OF FORMULAS! FL(R(J),C(J))I3290: NEXT FORMULA-WRONG LEVEL4! TY(R(J),C(J))43490:3260K! IN$FM$(R(J),C(J))[! FX(0),IN$! DX$(R(J),C(J))(FX):FX(R(J),C(J))FX! ((FX))8DX$(R(J),C(J))"!!!!!!!!"! TFTF1:CR21:CC23:209J 3330T :^ SAVE A SPREADSHEET TO DISK#h "SAVE A SPREADSHEET"::r "ENTER FILENAME";S| FI$:(FI$)162930d FI$""3050 15,8,15:2,8,2,"0:"FI$",S,W":Z$"," 15,E,E$:E02:15:"E,E$";: R1NR:C1NC 15:2,8,2,"0:DSCALC.HLP"$< 15,E:E02:15:""E,E$"";:4810:1480/F "";IP 49152:ST 64 2670yZ :"=NEXT SCREEN =ABORT";d A$:(A$"")2660:A$(32)2630n 2:15x :"END OF HELP FILE ":4810 A$:("0"A$"9"A$"."2280#8 4560:2280: GOOD CHAR & GET ANOTHER;B A$"!"A$"_"2280eL 4560:2280: GOOD CHAR & GET ANOTHERkV :` CLEANUP AFTER j 4600: GET IN$ FROM SCREENt T12440,2460,2500,2570~ BLANK TYPE=0 FX$(RCC(I):JL:IN(FL):3840(TY(R,C)0TY(R,C)33820: BLANK/TEXT CELL REF TEST@(ER1:RR(I):CC(I):J(A$):IN(FL):3840(FL(R,C)FL1FL(R(I),C(I))FL:3840: CURRENT CELL LEVEL IS OK(FL(R,C)FLFL(R(I),C(I))FL1:JL:N(FL1)N(FL1)1TING LEVEL$CR21:CC0:2090:4830$R1NR:C1NC,%TY(R,C)1FL(R,C)1:3630: VALUE CELLSg%$TY(R,C)2TY(R,C)4NFNF1:R(NF)R:C(NF)C:FL(R,C)2u%.::TFNF%8NF0: NO FORMULAS FOUND%B4440:2090:4820%L:%V FLAG AND DRO0:" "TF;! J:I! 1480! :" RE-GENERATE SPREADSHEET/" : "LOADING COMPLETE."Z" "RE-GENERATING SHEET, PLEASE WAIT..."n" R1NR:C1NC" TY(R,C)13370,3380,3410,3430,3450"* 3460: SKIP BLANK CELLS"4 DX$(R,C)FX$(R,C):TY(R,C)03030: SKIP BLANK CELLS) IN$(R)Z$(C)Z$(TY(R,C))Z$FX$(R,C):X(0)4 2,IN$] 15,E,E$:E02:15:"E,E$";:e :p 2:15z 1480 : PRINT SPREADSHEET 4,4 RR1R2:4,R;:CC1C2 4,DX$(R,C);:A$"")2690:(142):1480 : LOAD A SPREADSHEET FROM DISK; "LOAD A SPREADSHEET":i "CAUTION! YOU WILL LOSE CURRENT SHEET." "CONTINUE? (Y/N)" A$:A$""2750 A$"Y":2780 1480 :"CLEARING CURRENT SHEET. PL0,C0)BK$:DX$(R0,C0)BK$:TY(R0,C0)0:1490 VALUES TYPE = 1N FX$(R0,C0)IN$:TY(R0,C0)1:FX(R0,C0)(IN$)j DX$(R0,C0)(IN$BK$,8)t 1490 FORMULAS TYPE=2 AND TYPE=4 (IN$,3)"SUM"2520 FX$(R0,C0)IN$:DX$(R0,C0)"0 ":TY( ERROR???z: PRINT CELL CONTENTS ON LINE 226X2224:781,X:59903:O""FX$(R0,C0)"";:U:v F1,F3,F5 ACCEPT CELL INPUTROCR:COCC: SAVE CRSR POSN4440: CLEAR MENU AREACR20:CC0:4480: CRSR TO MENU AREA --- NSCREEN ELP --- BY ICK OWA SPREADSHEET IS SIMPLY A GRID OF ROWS AND COLUMNS. T THE INTERSECTION OF EACH ROW AND COLUMN IS A . OW NUMBERS ARE DISPLAYED ALONG THE LEFT SIDE OF THE SCREEN, (EX:01,02.ITH:5 'USR(0),STRING VARIABLE'5:5532,253,174,32,158,173 632,143,173,160,0,177&6100,170,200,177,100,133C6251,200,177,100,133,252[6  160,0,185,0,2,153t6 60,3,177,251,153,062,200,192,80,208,2406(169,0,157,0,2,S ANY KEY";:2"INFINITE LOOP CELL REFERENCE ERROR"2"PRESS ANY KEY";:*3"NESTING EXCEEDS 20 LEVELS ERROR"D3"PRESS ANY KEY";:l3"CHECKING FORMULA NESTING...";:3"SCANNING FORMULAS...";:3"SYNTAX ERROR IN CE /l:/v POSN CRSR AT CR,CC (ROW,COL)/781,CR:782,CC:783,0:65520:0:0 HANDLE DELETE10L1" ";:LL1:M0LML1" ";:LL1:h0LML1" ";:LL1:n0:0 HANDLE GOOD CHARACTER0LML1LL1:A$;:0LML 0,JMRA(I)RB(I):NCA(I)CB(I),TTY(M,N)0TY(M,N)34200/-^ER5:MRB(I):NCB(I):RR(I):CC(I):IN(FL):4230X-hFL(M,N)FL1FL(R(I),C(I))FL:4230m-rFL(M,N)FL4230-|FL(R(I),C(I))FL1:MRB(I):NCB(I):N(FL1)N(FL1)1:4230-: LOOP ERROR)PFLFL1:FL21ER4:3960: EXCESSIVE LOOPS ERROR*Z3740 *d:/*n HANDLE CELL REFERENCE ERRORSF*x4440: CLEAR MENUj*ROCR:COCC:4480: MOVE CURSOR*ER4740,4760,4780,4800,4840*A$:A$""3990**:*:* PA ..). OLUMN NUMBERS ARE ALONG THE TOP EDGE, (EX: 01, 02....). ACH CELL IS EITHER BLANK OR CONTAINS DATA OF SOME SORT. LANK CELLS ARE IGNORED DURING CALCULATIONS AND ARE NOT SAVED TO DISK. ATA STORED IN ONE CELL CAN BE USED TO CALCULAT 16562122,72,165,123,72,1696<0,133,122,169,2,1336F123,32,121,165,169,07P133,122,169,2,133,123*7Z32,158,173,104,133,123F7d104,133,122,162,79,189\7n60,3,157,0,2,202n7x16,247,96,-1t7:7 SEQ FILE READER7AD4915249194:LL R"R"C"C"":47903:4 *DATA LOADER FOR "EXPEVAL" DYNAMIC EXPRESSION EVALUATION%4 BY CHRIS ZAMARAF4 TRANSACTOR VOL 5, ISSUE 04g4 TRANSACTOR PROGRAMS ARE IN4$ THE PUBLIC DOMAIN, FREE TO4. COPY, NOT FOR SALE.481A$"";:0:0 GET IN$ FROM SCREEN0CR21:CC0:2090:1,3:IN$""1I0L!1 #1,A$:IN$IN$A$:A$""'101 1:61*:<14:B1>:W1H MENU AREA TEXT1R"F1NUMS F3FORMULA F5ALPHA F7HELP"1\"F2LOAD F4SAVE F6PRINT:X(0)-3850-:- EXTRACT CELL REFERENCES & CHECK SYNTAX!.B$(A$,J,2)(A$,J4,1)(A$,J7,1)I.X1((A$,J2,2)):X2((A$,J5,2))_.X10X20ER5:s.B$"[RC]"4330.B$"[CR]"4340.ER5:.RX1:CX2:.RX2:CX1:RSE SUM STATEMENT/EXTRACT CELL RANGE*L154120+B$(A$,5)(A$,8,1)(A$,11,1)(A$,14,1)R+X1((A$,6,2)):X2((A$,9,2)):X3((A$,12,2))k+X10X20X304120+B$"SUM[CR-]"4130+B$"SUM[C-R]"4140+B$"SUM[RC-]"4150+E VALUES FOR ANOTHER CELL. ESULTS OF ONE CALCULATION CAN BE USED TO CALCULATE VALUES FOR OTHER CELLS. CALL THIS FORMULA 'NESTING'. === === :ELLS ARE REFERENCED BY ROW AND COLUMN, USING THE FORM [DA:AD,DA:AD:7169,14,32,210,255,16070,162,2,32,198,255732,207,255,141,42,192832,183,255,208,15,1733842,192,32,210,255,201N813,208,235,200,192,21i8208,230,32,204,255,96813,32,253,174,32,158,2406(169,0,157,0,2,:4BCS0: CHECKSUM4LOS49195: OBJECT START4V:4`RD01: DATA LOOP4jB5tB0OS,B:OSOS1:CSCSB75~RD(B0): UNTIL B<0?5RDE5:p5CS10928 "***CHECKSUM ERROR***":v5:5 785,43:786,1925 **CALL EXPEVAL W F8RECALC":1f"ENTER NUMERIC VALUES":ML8:2p"ENTER FORMULA":ML79:-2z"ENTER ALPHANUMERIC TEXT":ML8:Y2"BLANK/TEXT CELL REFERENCE R"R"C"Cs2"PRESS ANY KEY";:2"NO REFERENCE TO VALUE CELL ERROR"2"PRES.:. CONVERT ENTERED FORMULA TO. MACHINE USABLE FORMULA /I1(IN$):I1$""&/&(IN$,I,1)"[":l/0IN$(IN$,I1)"FX("(IN$,I2,2)","(IN$,I5,2)")"(IN$,I8)t/::z/D:/N CLR MENU AREA/XX2024:781,X:59903:/bB$"SUM[R-C]"4160+ER5:RR(I):CC(I):IN(FL):3850: SYNTAX ERROR-,"RA(I)X2:RB(I)X3:CA(I)X1:CB(I)X1:4170[,,RA(I)X3:RB(I)X3:CA(I)X1:CB(I)X2:4170,6RA(I)X1:RB(I)X1:CA(I)X2:CB(I)X3:4170,@RA(I)X1:RB(I)X2:CA(I)X3:CB(I)X3:417: NEXT FORMULA(( (FL2N(FL)N(FL)N(FL1))FL2N(FL)N(FL1)N(FL1)')(ER03960W)2N(FL1)0:: CURRENT LEVEL IS LAST LEVEL)<FL2N(FL)0ER2:3960: NO REF TO VALUE CELLS ERROR)FN(FL)N(FL1)ER3:3960: INFINITE  1, 2, 3,INCOME 1, 3, 3,RENT 1, 4, 3,UTILITY 1, 5, 3,PHONE 1, 6, 3,EXPENSES 2, 2, 3,======== 2, 3, 3,======== 2, 4, 3,======== 2, 5, 3,======== 2, 6, 3,======== 3, 1, 3,JAN 3, 2, 1,2400 3, 3, 1,650 3, 4, 1,253.55 3, 5, 1,34.33 3, 6, 4,SUM[ SPREADING OUT BUT NEVER CLOSING BACK ON ITSELF. 20 : NE FORMULA CELL CALLS ANOTHER, WHICH IN TURN CALLS ANOTHER, ETC. HIS HEIRARCHY OR BRANCHING IS LIMITED TO 20 LEVELS MAXIMUM. HIS IS AN  PRINTING TO YOUR PRINTER. 8 : AKES ENTERED DATA AND FORMULAS, CALCULATES THE RESULTS AND DISPLAYS THEM ON THE SCREEN. ==== ==== MSGS: TANDARD DISK ERROR MSGS.  BOTTOM. 1 ALUES: LOATING POINT NUMBER. 8 CHARACTERS MAX INCLUDING DEMIMAL. 2 ORMULAS: TANDARD SYNTAX. 79 CHARACTERS MAXIMUM. ELL REFERENCES ARE PERMITTED. 100 FORMULAS MAX PER SPREADSHEET. 5 EXT: 8 CHARACTERS MAXIMUM - ULATION MEANS THE VALUE CALCULATED IS TOO LENGTHY, (HAS TOO MANY DIGITS), TO FIT IN THE CELL. RY USING THE () FUNCTION TO DROP ANY DECIMALS. 5. HE COMMAND BE INCLUDED WITH ANY OTHER FORMULAS. HE F ERENCES IS ONE WAY TO COPY DATA FROM ONE CELL TO ANOTHER. HE COMMAND SPECIFIES A RANGE OF CELLS TO BE ADDED TOGETHER. OR EXAMPLE: [0814-25] OR [01-2509] N THE FIRST EXAMPLE WE ARE ADDING ALL THE VALUES (OR C R03C03-05] 4, 1, 3,FEB 4, 2, 1,1975 4, 3, 1,650 4, 4, 1,275.22 4, 5, 1,58.26 4, 6, 4,SUM[R04C03-05] 5, 1, 3,MAR 5, 2, 1,1200 5, 3, 1,650 5, 4, 1,202.44 5, 5, 1,109.22 5, 6, 4,SUM[R05C03-05] 6, 1, 3,APR 6, 2, 1,2356 6, 3, 1,650 6, 4, 1, ARBITRARY LIMIT SET TO SIMPLIFY THE PROGRAMMING. T SHOULD BE PLENTY. : HE SYNTAX OF A FORMULA OR COMMAND IS NOT CORRECT. HE OFFENDING CELL IS IDENTIFIED FOR YOU. : NE OR MORE OF YOUR CELL REFERENCES CALLS A BLANK CELL OR TEXT CELL. : HIS MESSAGE MEANS THAT ALL CELL REFERENCES ARE TO OTHER FORMULAS, AND NONE TO A VALUE CELL. : . 7 ELP: ISPLAYS THIS FILE ON YOUR SCREEN. AKE SURE YOUR SYSTEM DISK IS IN DRIVE 8 FIRST. 2 OAD: ILL LOAD A PREVIOUSLY SAVED SPREADSHEET FROM DISK. OU WILL BE PROMPTED FOR A FILENAME. : URRENT SHEET WIORM ABOVE MUST BE THE ONLY FORMULA ENTRY IN A CELL. :URSOR KEYS ARE USED ONLY TO MOVE THE CURSOR FROM ONE CELL TO ANOTHER. : F ANY, CELL CONTENTS ARE DISPLAYED BELOW THE FUNCTION KEY MENU AND IN THE CALCULATED VALUES) IN ROW 8 BETWEEN, AND INCLUDING, COLUMNS 14 THROUGH 25. IMILARLY, IN THE SECOND EXAMPLE ROWS 1 THROUGH 25 IN COLUMN 9. OLUMN AND ROW NUMBERS CAN BE IN ANY ORDER, (ROWS BEFORE COLUMNS OR COLUMNS LISTED BEFORE ROWS).205.33 6, 5, 1,18.22 6, 6, 4,SUM[R06C03-05] 7, 1, 3,MAY 7, 2, 1,4500 7, 3, 1,650 7, 4, 1,175.33 7, 5, 1,23.44 7, 6, 4,SUM[R07C03-05] 8, 1, 3,JUN 8, 2, 1,1000 8, 3, 1,725 8, 4, 1,109.89 8, 5, 1,44.33 8, 6, 4,SUM[R08C03-05] 9, 1, 3,JUL 95 ELF. 20 : NE FORMULA CELL CALLS ANOTHER, WHICH IN TURN CALLS ANOTHER, ETC. HIS HEIRARCHY OR BRANCHING IS LIMITED TO 20 LEVELS MAXIMUM. HIS IS AN NE FORMULA CALLS ANOTHER FORMULA CELL, WHICH IN TURN CALLS ANOTHER, WHICH EVENTUALLY REFERS BACK TO THE ORIGINAL FORMULA CELL. ELL REFERENCES HAVE TO END SOMEWHERE. HINK OF CELL REFERENCES AS BRANCHES IN A TREE, LL BE OVERWRITTEN BY THE LOADED FILE. OADED FILES ARE NO CALCULATED. 4 AVE: AVES CURRENTLY DISPLAYED SHEET TO DISK FILE. OU ARE PROMPTED FOR A FILENAME. ILL NOT OVERWRITE A FILE WITH THE SAME NAME. 6 RINT: LLOWSELL ITSELF, (UP TO 8 CHARACTERRS). :ORMULAS ARE DISPLAYED BELOW THE FUNCTION KEY MENU. HE OF THE FORMULA IS DISPLAYED IN THE CELL. ARE ACTIVE WHENEVER THE FUNCTION KEY MENU IS DISPLAYED AT THE SCREEN 1. ELL REFERENCES CANNOT BE MADE TO BLANK OR TEXT CELLS. 2. SE NO SPACES WITHIN THE BRACKETS. 3. AKE SURE EACH CELL REFERENCE IS TO VALUE CELLS OR TO CELLS WHICH CAN BE CALCULATED FIRST. 4. !!!!!!!! IN THE CELL AFTER A CALC0113]. HEN THE REFERENCE IS TO ANOTHER FORMULA, THE CALCULATED VALUE OF THE OTHER FORMULA IS USED. HESE REFERENCES ARE USED WITHIN MATHEMATICAL EXPRESSIONS JUST LIKE ANY VARIABLE. OR EXAMPLE: 3*[1306]/3.14 SING CELL REF'***PROGRAM BY JOSEPH W. TEALL***I***7430 MAPLE ISLAND ROAD***e***HOLTON, MI 49425***x***4/10/86***143:"":(142):A$(650):53280,1:53281,1:""71:" (1) READ FILES" " (2) INPUT OR EDIT FILES":" (3)1C:D$A$(B):97:F$I$100 :11S M$"TMENU":76:D1:85:I$A$(G):M$"NMENU":76w B1C:D$A$(B):97:H$I$100 :11 "":"GET WHAT TAPE NUMBER";I$:M$"NMENU":76 B1C:D$A$(B):97:E$I$100 :11 M$"NMENU":"RATING: "F$:134:C$"Y"42#)"RATING";F$D*"TIME: "G$:134:C$"Y"44T+"TIME";G${,Z$H$:"TYPE: "H$:134:C$"Y"46-"TYPE";H$."DISCRIPTION:":J1H:J$(J)::134:C$"Y"49/H10J$(H):112:C$""HH1:48"111 C:A$(M)A$(M1):-ACC1:132:C10:C20:B1C:D$A$(B):97=BF$Y$C11MCH$Z$C21^D:C10137mEC20140tF6G"":6)"*****VIDEO TAPE CATALOG*****"H" CODE FUNCTION":" ---- --------":IA$:A$""73JA R16C06]) , 1,725 14, 4, 1,246.23 14, 5, 1,99.23 14, 6, 4,SUM[R14C03-05] 15, 2, 3,======== 15, 3, 3,======== 15, 4, 3,======== 15, 5, 3,======== 15, 6, 3,======== 16, 1, 3,TOTALS 16, 2, 4,SUM[R03-14C02] 16, 3, 4,SUM[R03-14C03] 16, 4, 4,SUM 11, 6, 4,SUM[R11C03-05] 12, 1, 3,OCT 12, 2, 1,1233 12, 3, 1,725 12, 4, 1,159.98 12, 5, 1,56.56 12, 6, 4,SUM[R12C03-05] 13, 1, 3,NOV 13, 2, 1,1309 13, 3, 1,725 13, 4, 1,174.88 13, 5, 1,14.23 13, 6, 4,SUM[R13C03-05] 14, 1, 3,DEC 14, 2, 1,1 COPY FILE"H " (4) DELETE FILE":" ENTER A CODE (1 TO 4)"[ 73:A1A49n A11,28,54,57 71:" (1) GET FILES BY NAME" " (2) GET FILES BY RATING":" (3) GET FILES BY TYPE"! " (4) GET FILES BY TAPE  76:B1C:D$A$(B):97:100::11B 71:" (1) INPUT A NEW FILE"j " (2) EDIT AN EXISTING FILE" " (3) RETURN TO MAIN MENU":" ENTER A CODE (1 TO 3)" 73:A1A331 A33,37,6 !"":"PROGRAM NAME";D$:"TAPE6:M$"NMENU":76:B1C:D$A$(B):97:F$Y$C1122H$Z$C21C3:C10137R4C20140Z5286M$"NMENU":76:D1:85:D$A$(G):977"":11)"INSERT BACKUP DISK"88)"PRESS ANY KEY WHEN READY":83:116:69M$"NMENU":76:D(A$)K'L78:15,8,15:2,8,2,"0:"M$",S,R":79:2,CJMB1C:2,A$(B)::79:2:15:pN"":15)"PLEASE WAIT":O15,W,X$,Y,Z:W20P2:"":10)"*****DISK ERROR*****"Q" "X$:" PRESS ANY KEY TO CONTIN[" ENTER A CODE ("D" TO "E")";:G \GDGE91+]G1B^E7GDDD6:85W_ECGEDE:85]`a78:15,8,15:2,8,2,"0:"D$",S,R":79:2,E$b2,F$:2,G$:2,H$:2,H:J1Hc2,J$(J)::79:2:15:d"":""D$:"TAPE200 14, 3, 1,725 14, 4, 1,246.23 14, 5, 1,99.23 14, 6, 4,SUM[R14C03-05] 15, 2, 3,======== 15, 3, 3,======== 15, 4, 3,======== 15, 5, 3,======== 15, 6, 3,======== 16, 1, 3,TOTALS 16, 2, 4,SUM[R03-14C02] 16, 3, 4,SUM[R03-14C03] 16, 4, 4,SUMNUMBER":" (5) REVIEW ALL FILES"b " (6) RETURN TO MAIN MENU":" ENTER A CODE (1 TO 6)"v 73:A1A615 A17,18,21,24,27,6 M$"NMENU":76:D1:85:D$A$(G):97:100:11 M$"RMENU":76:D1:85:I$A$(G):M$"NMENU":76 B NUMBER";E$:"RATING";F$? ""TIME";G$:"TYPE";H$:H1:"DISCRIPTION"a #J$(H):112:C$""HH1:35n $116:28 %M$"NMENU":76:D1:85:D$A$(G):97:"":D$ &C10:C20:"TAPE NUMBER: "E$:134:C$"Y"40 '"TAPE NUMBER";E$(Y$F$:1:85:"":8)"WARNING!"2:"USE OF THIS OPTION WILL"F;"ERASE "A$(G)<"FROM THE DISK. PRESS Q TO QUIT OR":"C TO CONTINUE"=83:C$"Q"C$"C"61>C$"Q"6?D$A$(G):97:Y$F$:Z$H$@15,8,15,"S:"A$(G):79:15:MG UE":83R15,"I":15:6SC$:C$""83TIU"":6)"*****VIDEO TAPE CATALOG*****"\VED6:ECECWE7DD1:" ("D") PREVIOUS MENU"XD1D:E7D1D1YFD1E:" ("F") "A$(F):ZECEE1:" ("E") NEXT MENU" NUMBER: "E$:"RATING: "F$;$e18)"TIME: "G$:"TYPE: "H$]f"DISCRIPTION:":J1H:J$(J)::"HARDCOPY (Y/N)"zg83:C$"Y"C$"N"103hC$"N"i PRINTER ROUTINEj78:4,4:EO$(14):EF$(15):PO$(16)k4,EO$;PO$;"10";"*****[R03-14C04] 16, 5, 4,SUM[R03-14C05] 16, 6, 4,SUM[R16C03-05] 17, 1, 3,AVERAGE 17, 2, 2,INT(([R16C02])/12) 17, 3, 2,INT(([R16C03])/12) 17, 4, 2,INT(([R16C04])/12) 17, 5, 2,INT(([R16C05])/12) 17, 6, 2,INT(([R16C06])/12) 18, 6, 2,([R16C02]-[, 2, 1,0 9, 3, 1,725 9, 4, 1,110.33 9, 5, 1,75.56 9, 6, 4,SUM[R09C03-05] 10, 1, 3,AUG 10, 2, 1,0 10, 3, 1,725 10, 4, 1,114.76 10, 5, 1,98.14 10, 6, 4,SUM[R10C03-05] 11, 1, 3,SEP 11, 2, 1,1200 11, 3, 1,725 11, 4, 1,124.87 11, 5, 1,44.23 GE":G1$"GAME 1":G2$"GAME 2":G3$"GAME 3"l  A(2,36),B(2,36),C(2,36),SER(2,36),AVG%(2,36),BLNK$(36),WK(36)  AX1 10 ::  8)"BOWLING MANAGER PROGRAM" AC1 8::: 16)"BY VINCENT J.BARBARO" AB112:::"HIT RETURN";TT:(1 K2:15: 10B P "": A112::: 7)"E N D O F P R O G R A M ":] d FILE RETRIVE ROUTINEl f L5 80 n 15,8,15 : (147) x"ENTER FILE NAME":"(TO DISPLAY UPDATE OR AMMEND)";AA$ } (147) 2,8,2,"@0:"AA$"S,R" "ENTER 2: 2,8,2,"@0:"AA$"S,W": CD 900? WRITE OLD DATA BACK TO FILEQ G1 (C1)^2,WK(G)v2,A(1,G):2,A(2,G)2,B(1,G):2,B(2,G)2,C(1,G):2,C(2,G):2," " G  WRITE NEW DATA TO FILE IC D12,I VIDEO TAPE CATALOG*****":4:4+l4,D$;EF$:4:4,"TAPE NUMBER: "E$:4Sm4,"RATING: "F$;PO$;"40";"TIME: "G$n4:4,"TYPE: "H$:4:4,"DISCRIPTION:":J1Ho4,J$(J)::X17:4::4:p"PRESS F1 TO CONTINUE INPUT OR"q"F7 TO END INPUT O W62C1:A$(C)N$:CK1:132178:15,8,15:2,8,2,"@0:"M$",S,W":79:2,CTB1C:2,A$(B)::79:2:15:s"IS THIS CORRECT (Y/N)?"83:C$"Y"C$"N"135M$"RMENU":76:B1CA$(B)Y$MBC:A$(M)A$(M1)::CC1: *";"* FIVE DOLLARS (OR WHATEVER YOU *";H"* *";y"* THINK IT'S WORTH). N ANY CASE *";"* *";"* PLEASE DISTRIBUTE IT TO YOUR C**********************************"; AA$:AA$""168 FRIENDS OR ANY PUBLIC DOMAIN *";n"* *";"* LIBRARIES THAT YOU HAVE ACCESS TO. *";"* *"; 47). "":12)"PLEASE CHOOSE ONE": AF15::h 9) "1 = START NEW FILE":9) "2 = UPDATE OLD FILE" 9) "3 = LIST OLD FILE": 9) "4 = AMMEND OLD FILE"  9) "5 = EXIT PROGRAM":: "CHOOSE";L:L1L5"":10  L 20,100,100 CURRENT WEEK NO. ";WK D1 WK[ 2,WK(D),A(1,D),A(2,D),B(1,D),B(2,D),C(1,D),C(2,D),BLNK$(D)} SER(1,D)A(1,D)B(1,D)C(1,D) SER(2,D)A(2,D)B(2,D)C(2,D) AVG%(1,D)SER(1,D)3 AVG%(2,D)SER(2,D)3 "WEEK ";WK(D),G1$,G2$,G3$,S1$N DISCRIPTION"r83:C$""C$""114sFt78:15,8,15:2,8,2,"@0:"D$",S,W":79:2,E$hu2,F$:2,G$:2,H$:2,H:J1Hv2,J$(J)::79:2:15:N$D$:M$"NMENU"w129:CK1122x76:B1C:A$(B)D$122y:CC1:A$(C)D$:132132:M$"TMENU":76:B1C2A$(B)Z$MBC:A$(M)A$(M1)::CC1:132::[53280,1:53281,1:(14)"";"****************************************";"* *";"* IDEO  *"; "* *";="* FRIENDS OR ANY PUBLIC DOMAIN *";n"* *";"* LIBRARIES THAT YOU HAVE ACCESS TO. *";"* *";# FILE NAME = BOWLING MANAGERI53280,0:53281,0: (5): (147)"NAME FOR BOWLER 1 ";NAME$(1):"NAME FOR BOWLER 2 ";NAME$(2):D1BL$"************************ BOWLING SCORES 1984-85 ************************"( S1$"SERIES":A1$"AVERA,100,80(  (147): 15,8,15: AD1 10::b "ENTER FILE NAME";AA$: 2,8,2,"0:"AA$"S,W":(147)l ( 900 - WRITE DATA TO FILE 2 G1 (D1) 42,G 72,A(1,G):2,A(2,G) <2,B(1,G):2,B(2,G) A2,C(1,G):2,C(2,G):2," " F G,A1$/ NAME$(1),A(1,D),B(1,D),C(1,D),SER(1,D),AVG%(1,D)f NAME$(2),A(2,D),B(2,D),C(2,D),SER(2,D),AVG%(2,D)n:y 1110 L2 190 L3 2: 15:"HIT RETURN";GG: 350 L4 480 L5 80 FILE UPDATE ROUTINEzN$F$:M$"RMENU":129:CK1125{76:B1C:A$(B)F$1258|:CC1:A$(C)F$:132\}N$H$:M$"TMENU":129:CK1128y~76:B1C:A$(B)H$128:CC1:A$(C)H$:13278:CK0:15,8,15:2,8,2,"0:"M$",S,R":15,W,X$,Y,Z2:15:APE ILE *";""* --------------- *";S"* F YOU FIND THIS PROGRAM USEFUL *";"* *";"* PLEASE CONSIDER SENDING THE AUTHOR *";"* "* OSEPH . EALL *";2"* 7430 APLE SLAND OAD *";c"* OLTON, 49425 *";"* *";"* RESS ANY KEY *";"******-400"E " 5 401-500":" 6 501-600"e ""12)"LOAD WHICH FILE?" 22:(A$)9,10,11,12,13,14 CC$"1-100":15 CC$"101-199":15 CC$"201-300":15 CC$"301-400":15 CC$"401-500":15 CC$"5$"":650,2556 DO$"SEARCH FOR: ":DI$"DOES MEMBER HAVE: "P E1(NM),E2(NM),ED(NM)x 15,8,15:8,8,8,CC$",S,R":15,E,E$ !E$"OK"8:15:I1NM:CN%(I)I::49 " WRITTEN BY DAVE LOVELOCK, MODIFIED BY TOM D'ANGELO & DOUG DAVIS #8,N:" 6)B(2,E)6)C(2,E),SER(2,E),AVG%(2,E)!1,BLNK$(E)) E4 1030N F16:1,BLNK$(E):g1:15: (147): 11 "ENTER WEEK NUMBER TO AMMEND": 2: 2,8,2,"@0:"AA$"S,W": CD N: N 1NA 450HN FILE DATA AMMEND $(AA):2,4)SREET$(AA)+v2,4)STATE$(AA):2,4)NUMBER$(AA):2," "CAAAA1: AAA 75M 615d2,H;") ";NAME$(H)2,SPEC$(H):2,SREET$(H):2,STATE$(H)2,NUMBER$(H):2," "AAAA1 : 620 WRITE OLD DATA BACK TO FILE B ): "ENTER SCORE FOR ";NAME$(2);" GAME 2": B(2,D):Q "ENTER SCORE FOR ";NAME$(1);" GAME 3": C(1,D): "ENTER SCORE FOR ";NAME$(2);" GAME 3": C(2,D): (147): "SAVE RECORD (1=YES 2=NO)";YN YN 1 YN2 980 YN 100jNAME$(1)5)TW(1)9)GW%(1) GW%(2)TW(2)(WK3)*NAME$(2)5)TW(2)9)GW%(2)@TW(1)0:TW(2)0:V J1 WKoTW(1)TW(1)SER(1,J)$TW(2)TW(2)SER(2,J):.1,9)"TOTAL WOOD"5)"AVERAGE"3GW%(1)TW(1)(WK3)81,NAME$(1)5)TW(1 01-600":15@ ""13)"PLEASE WAIT":S$(34):198,0:NM101:184p "@0:CCCC MEMBERS",8:"SAVED & VERIFYING" "CCCC MEMBERS",8: X$"\":198,4:631,20:632,20:633,42:634,32:X$ X$"*"51  " A$:A$""22 @ ST$( "3)"LOADING"N"MEMBERS OF FILE "CC$""4 $A1N:8,ST$(A)B %8,FI$(A)P &8,SA$(A)^ '8,CS$(A)k (8,ZP(A)y )8,ID%(A) *8,E1(A) +8,E2(A) ,8,ED(A) -8,TN$(A):""A: .A1NM:8,CN%(A): / A PUBLIC DOMAIN PROGRAM 2,A(1,I):2,A(2,I)"2,B(1,I):2,B(2,I):,2,C(1,I):2,C(2,I):2," "B6 IS@2,A(1,G):2\J 15eT 10}^ PRINT OUT ROUTINE` (147)c"FOR A PRINT OUT ENTER (1=YES OR 2=NO)"h YN: YN1YN2 360r YN 380,375w ( ROUTINE "WEEK NUMBER = ";H:>"ENTER STORE NAME ( OR STOP)":: NAME$(H):Y NAME$(H)"STOP" 10 "ENTER SPECIALTY":: SPEC$(H): "ENTER STREET ADDRESS":: SREET$(H): "ENTER TOWN STATE AND ZIP CODE":: STATE$(H): &1 (C2)2,NAME$(B)(2,SPEC$(B):2,SREET$(B):2,STATE$(B)A2,NUMBER$(B):2," "I Bf WRITE NEW DATA TO FILE}2,H;") ";NAME$(H)2,SPEC$(H):2,SREET$(H):2,STATE$(H) 2,NUMBER$(H):2," "2,NAME$(A):2  15*5,900DD1:"": 910(147):12)"WRITING TO DISK..."$G TOTAL WOOD + AVERAGE PRINTERV J1 WKoTW(1)TW(1)SER(1,J)$TW(2)TW(2)SER(2,J):.1,9)"TOTAL WOOD"5)"AVERAGE"3GW%(1)TW(1)(WK3)81,NAME$(1)5)TW(1H MEMBERSHIP PROGRAM - CATALINA COMMODORE COMPUTER CLUB, TUCSON AZ_:53281,1:646,11""12)"CLUB MEMBER FILES"" 1 1-100":" 2 101-199" " 3 201-300":" 4 3011)ST$(0):ID%(1)1:ZP(1)ZP(0):E1(1)E1(0):SA$(1)SA$(0):CS$(1)CS$(0)x TN$(1)TN$(O):FI$(1)FI$(0):E2(1)E2(0):ED(1)ED(0)~  ST$(NM),ID%(NM),ZP(NM),SA$(NM),CS$(NM),TN$(NM),CN%(NM),FI$(NM) SP$" ":ZS$" " F1$"":F5$"":F7147): 11| 1,4,28 (147): " PLEASE WAIT WHILE PRINTING LISTING"D1, BL$T1,"":1,""f E1 (D1)1,"WEEK ";E5)G1$5)G2$5)G3$8)S1$9)A1$1,NAME$(1)8)A(1,E)6)B(1,E)6)C(1,E),SER(1,E),AVG%(1,E)1,NAME$(2)8)A(2,E) "ENTER PHONE NUMBER":: NUMBER$(H);0 (147): "SAVE RECORD (1=YES 2=NO)";YNS: YN1 YN2 560fD YN 590,490N(147):14)"WRITING TO DISK..."S H1 750X H(A1) 690bAA1g HAA 650l2,NAME$(AA):2,4)SPEC 10 DATA INPUT SUBROUTINE"WEEK NUMBER = ";D:_"ENTER SCORE FOR ";NAME$(1);" GAME 1 (OR 0 = STOP)": A(1,D):u A(1,D)0 1010 "ENTER SCORE FOR ";NAME$(2);" GAME 1": A(2,D): "ENTER SCORE FOR ";NAME$(1);" GAME 2": B(1,D)9)GW%(1)=GW%(2)TW(2)(WK3)B1,NAME$(2)5)TW(2)9)GW%(2)5LTW(1)0:TW(2)0:XV TOTAL WOOD AND AVERAGE VIDEOg` J1 WKjTW(1)TW(1)SER(1,J)tTW(2)TW(2)SER(2,J):~9)"TOTAL WOOD"5)"AVERAGE"GW%(1)TW(1)(WK3)(A)8,FI$(A)8,SA$(A)8,CS$(A)8,ZP(A)8,ID%(A)+8,E1(A)88,E2(A)E8,ED(A)[8,TN$(A):""A:sA1NM:8,CN%(A):z851IN$(29):I029:IN$(I)::426C-64,PROG BASIC,C-128,PROG MACH LANG,OTHINGS9" 4 SEARCH FOR A MEMBER BY NAMEI:" 5 SEARCH FOR A MEMBER BY EQUIPMENTb;" 6 EDIT A MEMBER~<" 7 COPY MEMBER FILE=" 8 LIST EXPIRED MEMBERS">" 9 FURTHER OPTIONS"?22:(A$)65,209,243,327,338,443,165,562,3613:P43:382:CN(X$)OA$F1$143"PCNNM:83VQJ13:((X$,J,1))48((X$,J,1))57J3:83aRJ:84S:12)"INVALID NUMBER":78TST$(0)LN$ZS$X$UCN%(CN)0:"ALREADY USED":78V:"STREET ADDRESS ";:P326:P42: ::12)"INVALID NUMBER";:997h:"TELEPHONE ";:P314:P48:382:TN$(0)X$UiJ1(X$):W((X$,J,1))|jW32W45W39W44W47W58108k:" ONLY 1234567890 ( ) - + * ALLOWED":104lJmQA1483n:A$F1$143o"# ,,""ED(0)OD"MORE ISSUES"$ED(0)OD2,,"ONE MORE ISSUE"FED(0)OD1,,"LAST ISSUE"cED(0)OD1"EXPIRED"22:A$"Y"CN%(CN)0:FL1:137A$"N"143134NN1:N124:143ANL1:ST$(A1)ST$(A):ZP(A1) M8NP8F80- PUBLIC DOMAIN PROGRAM BY CCCC INC, TUCSON, AZ. NOT FOR SALE:J81M8GK8J8P8iZP(ID%(J8))ZP(ID%(K8))159ID%(0)ID%(J8):ID%(J8)ID%(K8):ID%(K8)ID%(0):F81F80153151"HERE ARE THE MEMB ER COMPUTER,OTHER LANGUAGES/ 1541 DISK,SCIENTIFIC USE,HAM RADIO,BUSINESS USE,1571 DISKwHOUSEHOLD USE,OTHER MEDIA,GAME PLAYING,OKIDATA/GEMINI,GAME WRITINGVIC-1525,MUSIC,OTHER PRINTER,GRAPHICS/SPRITES,1660 MODEM,TEACHING OTHER MODEM,C@63A""12)"ADD A MEMBER"JB:"LAST NAME ";:P312:P42:382:LN$(X$SP$,12)ZCA$F1$143yDJ1(X$):WW((X$,J,1))EWW32WW37WW39WW45WW64WW9171F:" ONLY SPACES AND % ' - AND ALPHA ALLOWED":66GJ(H:382:SA$(0)X$WQA1478XA$F1$143AY:"CITY ";:P315:P42:382:CI$X$QZA$F1$143p[J1(X$):WW((X$,J,1))\WW32WW65WW90J15::"ALPHA ONLY, PLEASE":89]J^:"STATE ";:P32:P42:382:ST$X$:CS$(0) OF NEWSLETTERS PAID FOR ";:P32:P42:382:ED(0)(X$)OD.pA$F1$143cqJ12:((X$,J,1))48((X$,J,1))57J2:115orJ:116s::12)"INVALID NUMBER";:111tED(0)16OD115uQA1491v195wN0127xL1:UNyULZP(A):E1(A1)E1(A):SA$(A1)SA$(A)RCS$(A1)CS$(A):FI$(A1)FI$(A):TN$(A1)TN$(A):E2(A1)E2(A):ED(A1)ED(A)XST$(L)ST$(0):ZP(L)ZP(0):E1(L)E1(0):SA$(L)SA$(0):CS$(L)CS$(0)TN$(L)TN$(0):FI$(L)FI$(0):E2(L)E2(0):ED(L)ED(0)ERS LISTED BY ZIPS"'A1N:ST$(ID%(A))ZP(ID%(A))E1(ID%(A))32)E2(ID%(A)):0168O"IS DISK IN DRIVE?"cA$:A$"Y"168l16615,8,15,"S0:OLD"CC$:15,"R0:OLD"CC$CC$:158,8,8,"@0:"CC$",S,W"8,NA1N:8,ST$HILDREN 7-12 ,VIC MONITOR,CLUB VOLUNTEER,OTHER MONITOR=HARDWARE REPAIR,NO FILE DATA,WRITING NEWSLETTERjN$"":EQ(0)0:"":I07:""DI$EQ$(I);198,2:631,78:632,157:N$:EQ0(N$,1)"Y"EQ1EQ(0)EQ(0)(2I)EQ::"":J08:15(1""6)"NEXT NEWSLETTER TO BE MAILED"F28)"MONTH":430:ODDAz34:"PRESS ANY KEY TO CONTINUE!":5474""14)"CLUB ";CC$5FL0:""16)"OPTIONS"6" 1 ADD A MEMBER7" 2 DELETE A MEMBER8" 3 LIST:"FIRST NAME OR INITIALS ";:P312:P42:382:FI$(0)X$8IA$F1$8?0WJJ1(X$):WW((X$,J,1))KWW32WW45WW38WW39WW46WW64WW9177L:" ONLY SPACES AND .&'- AND ALPHA ALLOWED":72MJN370::"MEMBERSHIP # ";:P3CI$" "ST$_A$F1$143`J12:WW((X$,J,1))UaWW65WW90J15::"ALPHA ONLY, PLEASE":94\bJc:"ZIP CODE ";:P35:P45:382:ZP(0)(X$)dA$F1$143eJ15:((X$,J,1))48((X$,J,1))57J5:103fJ:104g127 zI((LU)2):ST$(0)ST$(I)125!{ST$(0)ST$(I)126Y| PRINT:PRINT:PRINT"DUPLICATE NAME":GOSUB70:GOTO630h}UI1:121w~LI1:121:"DO YOU WISH TO ADD"""FI$(0)13)ST$(0)""SA$(0):""CS$(0)" "ZP(0):""TN$(0)"ANY MORE MEMBERS?":22:A$"Y"65A$"N"FL051&A$"N"147/143Z"PLEASE WAIT - I'M WORKING HARD!""ALPHABETICAL LIST OF MEMBERS"A1N:ID%(A)A:ST$(A)ZP(A)E1(A)32)E2(A):P8NP81162P8(P82):0292 " "(65J)" "IN$(J)20)""(66J)" "IN$(J1)' J:E1(0)0:E2(0)0::: A$:A$""198J A$"_"195Z A$(13)u A$(65)A$(94)198 A$(80)207 (E2(0)(2((A$)80)))2((A$)80)198 E2(0)E2(0)(2((A$DN$ST$(I)225""FOUND":227"UI1:220 #LI1:220##"NOT HERE":2371#IN232m#ST$(N)"":ZP(N)0:E1(N)0:SA$(N)"":CS$(N)"":FI$(N)""#CN%(((ST$(N),3)))((ST$(N),3))#TN$(N)"":E2(N)0:FL1:ED(N)0#NN1:237%A$"P"514:4,4:4:4," "FI$(I)" "ST$(I).&A$"P"4," "SA$(I):4," "CS$(I)" "ZP(I)H&A$"P"4:4:4:249c&A$F5$I1II2:260|&A$F5$I1I0:260&A$F7$ININ1:260&A$F7$250&:51&""13)" );(4,(16)"39";(AA1:AN282)TT$(" "TN$(A),10) )((ST$(A),3))(LK1)277d)4,(16)"42"ST$(A)","(16)"59"FI$(A)(16)"70"(" "TN$(A),10)j))4:4," FOR CHANGES OR CORRECTIONS CONTACT DOUG AT 790-4162")4,"****** /4," "SA$(ID%(A))+04," "CS$(ID%(A))" "ZP(ID%(A)):4:4,1ED(ID%(A))OD25032,2ED(ID%(A))OD1509;,3:4C,451T,54,4:4:CZ1,6A1N:ZP(ID%(A))ZP(ID%(A1))CZCZ1:A,74,(ZP(ID%(A)))((CZ1)" ",4);:CZ1:A, 'S LAST NAME";PT$.HK1N:PT$ST$(K)330.IK:KN1/JPT$ST$(K)UKW:332/KUKW1/LLKW*/MUNUN7/NL1L1Q/O"":LL1:IL:374:Z/P409b/Q51{/R""13)"OUTPUT ON/S PROGRAM BY CCCC INC TUCSON AZ/T" 1 SCREE )80))!IN$((A$)65)" ";:KJ14,4:4,IN$((A$)65)"; ";:4!198F!(E1(0)(2((A$)65)))2((A$)65)198j!E1(0)E1(0)(2((A$)65)):205!"DELETE A MEMBER"!"LAST NAME ";:P312:P42:382:LN$(X$SP$,12)!A$F1$237 #CN%(((ST$(I),3)))((ST$(I),3))4$AIN1:ST$(A)ST$(A1):ZP(A)ZP(A1):E1(A)E1(A1):E2(A)E2(A1)x$SA$(A)SA$(A1):CS$(A)CS$(A1):TN$(A)TN$(A1):FI$(A)FI$(A1)$ED(A)ED(A1)$:228$"ANY MORE DELETIONS?";$22:A$"Y"20HARD COPY OF&" 1 TELEPHONE LIST (ALPHA ORDER)'" 2 MAILING LIST/'" 3 QUANTITY OF ZIP CODESU' " 4 TELEPHONE LIST (ZIP 0RDER){' " 5 ADDRESS LIST (ALPHA ORDER)' " 6 EXPIRATION DATES"' " 7 MAIN MENU"' B$:(B$)27**************************************************************";*4,"************"#*4:4:4:51G*""252)80)"ZIP CODE ORDER"g*57)"OR"74)"ALPHA ORDER{* A$:A$"Z"298*!A$"A"288*"514*#4,4:A1N*$ED(A)OD1""84:4:51,9 621,:4,4:A1N-;4,ST$(A)(16)"17"FI$(A)(16)"29"SA$(A)(16)"57"ZP(A);F-<4,(16)"67"(" "TN$(A),10)::4:51n-= PRINTER HERE FOR ELECTIVE LISTING~->4,4:A1N-?(TN$(ID%(A)))8TT$"26"TN$(ID%(A)):321-@TN/U" 2 PRINTER/VB$:(B$)344,359/W3420XKJ0: CHANGE THIS TO REFLECT E1 & E2)0Y""13)"EQUIPMENT"C0Z195:KJ14,4:4:4N0[I1Nl0\(E1(I)E1(0))E1(0)3540](E2(I)E2(0))E2(0)3540^KJ0"":3740_KJ1360!::"MEMBERSHIP # ";:P33:P43:382"A$F1$237="I13:((X$,I,1))48((X$,I,1))57I3:216H":217l":""12)"INVALID NUMBER":212"DN$LN$ZS$X$"N0226"L1:UN"UL226"I((LU)2):DN$ST$(I)224"9$A$"N"FL0147$A$"N"51$238$51%""15)"OUTPUT ON(%" 1 SCREEN;%" 2 PRINTERR%B$:(B$)248,261[%246f%I1Nt%"":374%A$:A$""250%A$""ZZI:IN:I:IZZ:FL0:474%A$F1$IN:2601,286,309,317,313,550,51'269("LIST ONLY MEMBERS ABOVE NUMBER 0";LKT(LKN"NOT THAT MANY MEMBERS.":PV12000::271g(4,4:4:A1N(((ST$(A),3))(LK1)(4,ST$(A)","(16)"16"FI$(A)(16)"27"(" "TN$(A),10*%4:4," "FI$(A)" "ST$(A)*&4," "SA$(A)+'4," "CS$(A)" "ZP(A)"":4:4!+(:4)+)51V+* PRINTER HERE MAILING USING ST$(ID%(A))_++514o+,4,4:A1N+-ED(ID%(A))OD1AA1+.4:4," "FI$(ID%(A))" "ST$(ID%(A))+T$"28"TN$(ID%(A)).A4,ST$(ID%(A))","(16)"16"FI$(ID%(A))(16)TT$;:AA10.B(TN$(ID%(A)))8TT$"70"TN$(ID%(A)):324I.CTT$"72"TN$(ID%(A)).D4,(16)"44"ST$(ID%(A))","(16)"60"FI$(ID%(A))(16)TT$.E.F4:4:51.G"":W1:"MEMBER0`A$:KJ0A$""3520aA$F1$IN:511b::""13)"THAT IS ALL":11)"ANOTHER SEARCH?"<1cKJ14,4:4,"THAT'S ALL":4:4:4U1dA$:A$"N"KJ0:51e1eA$"Y"345n1f356|1gKJ1:3451h4,4:4,ST$(I)" ";:4:1i""16)",4:4:4," "FI$(I)" "ST$(I)6A$"P"4," "SA$(I):4," "CS$(I)" "ZP(I)7A$"P"4:4:4:408$7A$F7$409:7LN1LL1:408I7LNLN1V7LN:408^751o71,4:T130y71,T,7:1:1:715,8,15:15,A4,B$,C309A$"Y"44099""12)"NAME, CITY, STATE":9)"ZIP CODE, MEMBERSHIP#":12)"CANNOT BE EDITED"/:11)"RETURN TO MENU AND"T:6)"DELETE AND RE-ENTER MEMBER"r:14)"YOU CAN EDIT":11)"STREET ADDRESSES":11)"T "FOUND":QQ12000::474<UI1:467<LI1:467<"NOT HERE":QQ12000::498.="DO YOU WISH TO CHANGE THE ADDRESS":""SA$(I)B=A$:A$"N"479S=A$"Y"475`=QA1:86|=QA0:SA$(I)SA$(0):FL1="DO YOU WISH TO GAIN AND SAVE?""10)"EDIT ANOTHER MEMBER?"?A$:A$"Y"457?A$"N"499?FL1165?51)@4,"*********************************"W@4,"*"(14)" RENEW NOW"(15) " *"@4,"* *"@4,"*" ****":3B 3,"* THIS IS A TEST *"C 3:3,"**** ****":3:5184C ""6)"NEXT NEWSLETTER TO BE MAILED"RC 8)"MONTH":526:ODDA~C:I112:" "(64I)" "M$(I):CA$: OPTIONS"1j" 1 RETURN TO MENU"1k" 2 SET NEW DATE & RESUME"2l" 3 LOAD NEXT MEMBER FILE"82m" 4 MAKE RETURN ADDR. LABELS"\2n" 5 MAKE 4-LINE MAIL LABELS"m2o" 6 QUIT"2p22:(A$)51,49,2,580,597,3692q2r:"THE FOLLOW 20)3964A$(148)3854A$(34)3854A$","3854A$":"3855A$(13)4065A$"_"400&5(X$)0385H5PL(X$):Q1PL:"";::384W5X$""385o5(X$)1X$"":3995X$(X$,(X$)1)5A$"":4045A$" "3 $,D$7A$,B$,C$,D$7M$(12):I112:M$(I):8JAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV,DEC8I15:Y$(I)::27=81983,1984,1985,1986,1987i8:I112:" "(64I)" "M$(I):8A$:A$"A"A$"L"4318MO(A$)648,"ELEPHONE NUMBER":9)"SUBSCRIPTION RENEWALS":15)"SELECT":14)"RETURN TO MENU";14)"EDIT"!;A$:A$"R"512;A$"E"454;;FL0t;"LAST NAME ";:P312:P42:382:LN$(X$SP$,12);A$F1$498;::"MEMBERSH CHANGE THE TELEPHONE #":""TN$(I)=A$:A$"N"484=A$"Y"480=QA1:104>QA0:TN$(I)TN$(0):FL1R>"DO YOU WISH TO CHANGE THE EXPIRATION":,""ED(I)OD"MORE ISSUES"x>ED(I)OD2,,"ONE MORE ISSUE">ED(I)OD1,,"LAS(14) " ONE MORE ISSUE"(15)" *"@4,"*********************************"@4:A4,"*********************************"=A4,"*"(14)" DONT WAIT"(15) " *"kA4,"*"(14)" RENEW NOW"(15) " *"A4,"*"(14) " LAST ISSUING IS THE NEXT FREE MEMBER":"NUMBER ";2sI1NM3tCN%(I)0("00"((I),((I))1),3):INM3u::<3v"PRESS P FOR MAIL LABELV3w""FI$(I)13)ST$(I)3x""SA$(I):""CS$(I)" "ZP(I):""TN$(I)3y,,""ED(I)OD"MORE ISSUES"3z855A$""3855(X$)P3:"RE-ENTER DATA, PLEASE":3825X$X$A$5A$;63856(X$)P4385616"":IL:374P6A$:A$F5$L1LL1:408e6A$F5$L1:4086A$""IL:FL0:4746A$F1$516A$"P"514:4 "M$(MO)8""15)"AND YEAR"8"":I15:20)" "(64I)" "Y$(I)::9A$:A$"A"A$"E"43669YE(A$)65:DA12YEMOK9,,""Y$(YE1)o96)"ARE THEY CORRECT? (Y/N)9A$:A$"N"""15)"TRY AGAIN":4IP # ";:P33:P43:382;A$F1$498;J13:((X$,J,1))48((X$,J,1))57J3:463<J:464%<:""12)"INVALID NUMBER":4528<DN$LN$ZS$X$E<N0473Q<L1:UN^<UL473<I((LU)2):DN$ST$(I)471<DN$ST$(I)472<T ISSUE">ED(I)OD1,,"EXPIRED">A$:A$"N"492>A$"Y"488>QA1:111 ?QA0:ED(I)ED(I)(X$):FL19?"DO YOU WISH TO CHANGE THE EQUIPMENTM?A$:A$"N"497^?A$"Y"493g?195?E1(I)E1(0):E2(I)E2(0):FL1? AE "(15)" *"A4,"*********************************":4:A" PRESS"B" TEST TO ALIGN LABELS"5B" RUN WHEN READY">B3,4UB ZY$: ZY$""518gBZY$"R"3:yBZY$"T"518B 3,"**** ED(I)OD2,,"ONE MORE ISSUE"3{ED(I)OD1,,"LAST ISSUE" 4|ED(I)OD1"EXPIRED"4}34~198,0: P3 IS MAX LENGTH OF X$P4 P4 IS MIN LENGTH OF X$z4X$"":Q1P3:"";::Q1P3:"";:4A$:A$""3854A$F1$4A$(4:4JP X8JQ"DO YOU WANT MORE (Y/N)"JR K9$: K9$"" 594JS K9$"Y" 581JT361KU SUBROUTINE FOR 4-LINE LABELS&KV"MAILING LABELS"BKW"HOW MANY LABELS";N7UKX N7 0 361nKYA6$"":B6$"":C6$""KZ"E2076BLITZ!L LL    tb* 2V0rfI6$$$$$$$$$$zttAC`ڞmmںkk22\\\ =uuuvuuuuuuutuuw#*18?FMT[bipwLan0fEn0ajbkcld pme𺐰РijklnIlmImmllmm0m*jmkilm <L U VnEfoa TLldme Ed0%<deLadD$p dePaɁJFic;bJ3 kcm&l&kީ L9:z{=>Lᧅ15,A,B$,C,DH?A,B$,C,D,H@4,4HAA1NIB4,ST$(A)(16)"17"FI$(A)(16)"29"SA$(A)(16)"61"ZP(A);CIC4,(16)"67"(" "TN$(A),10)::4:51lID SUBROUTINE FOR RETURN ADDR. LABELSIE" NTER THE LABEL INFORMATION"K["1ST LINE";A6$K\"2ND LINE";B6$K]"3RD LINE";C6$K^"4TH LINE";D6$K_4:4,4#L` PROGRAM BY CCCC INC TUCSON AZ5La X9 1 N7ULb"PRINTING LABEL";X9;""`Lc4,A6$kLd4,B6$vLe4,C6$~'d jS+{ $d -qbd ' eKd " #8ȥe#ed"dee#ede"db b 0qqqe 0L LafIfL0 BdIdeIeLLXoedanoieaaf348a21 zdc(bJf( d(e$f <L L L1 \ 0 BF< l%ddm%e lddmeeLLHkiɁjJfknIlkIm` 9P:Q L# LP9Q:L-.`_0/ȑ_e_7834hhHH;06" "$p a-ȥf %b-ȥc-ȥd-ȥe-;L8e-I.iLa;9 LLe:;;~padD$p deEaɁ?;ic0bJ(dc(bJf(d(e$f LeHdHcHbHaHfHHeHdHH;ɠHk-ȱ-dȱ-e A$"A"A$"L"527CMO(A$)64C," "M$(MO)C""15)"AND YEAR"D"":I15:20)" "(64I)" "Y$(I)::/DA$:A$"A"A$"E"532KDYE(A$)65:DA12YEMO`D,,""Y$(YE1)D6)"ARE THEY CORRECT? (Y/N)::S24,0:F&4,4F'I112:4F(4,"THESE MEMBERSHIPS EXPIRE "I"MONTHS FROM "M$(MO1)" "Y$(YE1)F)A1N G*ED(A)ODI556G+::5571G,4,ST$(A)" ";:iG-4:4,"THESE MEMBERSHIPS ARE EXPIRED AT THIS TIME!"tG.A1NG/ED(A)RETURN ADDRESS LABELS"IF"HOW MANY LABELS";N9IG N90 361IH4:4,4II X8 1 N9IJ"PRINTING LABEL";X8;""'JK4,"CHANGE LINE 587 FOR NAME OF CLUB"AJL4,"CHANGE LINE 588 "[JM4,"CHANGE LINE 589 "uJN4,"CHANGE LINE 590 "JOLf4,D6$Lg4:4Lh X9Li"DO YOU WANT MORE (Y/N)"Lj K8$: K8$"" 618Lk K8$"Y" 598Ll361Mm SUBROUTINE FOR PRINTING MEMBER LISTS@Mn4,4:4,(14)12)"CCCC MEMBERS"(13)dMo4,13)"(";CC$;")"(15)(13):4jMpZ"E3b54c6o#o"i"5"5ie556d#d"n"5"5L edc4b3 a e334oȱojȱokpok4j3 ej34aaf jb%<de Lfi"af0,%<deAB`NmeeldL meeeleddpLbcff p ۼLbcd0f LdElfd lIlmImmldel llmmbcdejkF()()F(f)eemedeldcekcbejbm&l&k&jѥdIdeIeed`JeemedeldceDA$:A$"N"""15)"TRY AGAIN":526)::DA$"Y"440$"E"436D(A$)65:DA12YEMO6E"DO YOU WISH TO CHANGE THE EXPIRATION":,""ED(I)OD"MORE ISSUES"\EED(I)OD2,,"ONE MORE ISSUE"~EED(I)OD1,,"LAST ISSUE"EOD0556G0:4:51G1G2 LIST CURRENT EXPIRATIONSG3"MEMBERSHIPS"H4"EXPIRED NOW"H5A1N%H6ED(A)OD0571+H7[H8(13)"HIT ANY KEY TO RETURN TO MENU"qH9PP$: PP$""569yH:51H; eb34a L0\adK$p de9aɁ3/ic$bJdc(bJf( d( ݽ e$f  mQnlkPȹaLdLH a34821 z34bcebL ed  ;L H 0h0:]ȥadJ$p de8a48/ic$bJdc(bJf( d( ݽ e$f    9=:=8 Ii<0 dJeF<Ӑ ;L  C L edLH  9DȄ;Lf %bb"#LC + 8:H9HJHIH HLiJI iL0JI Ȱ&iHi$h f IJ g л ]LqIIe  qIId de Ed0' i;L8 :9Lِيi;L; d 湩HHLo< {9 9:`F LLHhiEhiFh hhelEh0h8ܨhhhhJ   ƹ     Z LLL &348a21`L5:;; ڪL 16001733220820116240152 9dȱ9e L)99: )a9ea9::ȆbcL  -ɬ {Lɯ HLLʆdeL L9e/iȱ9e0j9:ie/_ȊifiLձ9/e/_Ȋ/N/e0`_F_E_ ie_Xe`Yh0hnhihjhkhh \  dhelUfʆde`pabcdf dee0e*becade`) 0$p aɁEf0(ibJd bJfcdce` Mb8jfc ed+LHf0$p aɁ㪥bJfcc`ed`$p f0aɁ )ed$0L-LLhac4b3 bLaa)ia34821 z34bcibL0 d2h h,h.&h0#h8hhhhJ  edLH hhPhQPPi95#ʊniIeeiI iinaa=348a21 0 dߥe L87L L@,,%L9=:>L<' YLq). "C L9:LCZZ  ' MM/DD/YY! İmHlHhr_ h_LEhq Nh0hnhihjhkhh \ mHlHhl_ h_LEhmrq Lem"elqr гr &r$E0F$F0p &reqeXIereYJ$;PL)IeIdIcIf bIa pLeXIreYJ$;pȱIeId L0} BveqeXI$;pxderbJed`aedc4b3 ea34bL 9 i( կL0fLd L0aɐ $p  ̼L BLd0eȘA0> +Lw edLLedc4b3 ea34a edLbc#"eda4 3 zb3c4Pen"ȱPi#a"b"babc ȆdeiLLд<  "ȁ4<ENTER TODAYS DATE : <>/2XR5 6/R&ٙ6/R&ٰ۱и62ܜ/9 R&ٙ61ݝ R&ٙ61ݝ R&ٙ61ݝVc R&ٙ/5A5Z R&ٙñ"a0:,S,W`HUQR(@@ 4<ENTER DATE : <>/Ã2XR5 6/R)6/R)۱и62Ɔ/9 R)61ݝ R)61ݝ R)61ݝVc R)/5A5Z R)"a0:,S,R`HUQR+a@ >4<+VALUE OF PRIZE : =; >PRESS RETURN TO CONTINUE>ԔFА"3R- " +#5 # WELCOME TO TODAYS MEETING>;AOF>/ A<>" >$ LIST OF RAF $$F$ ͠$</$ ͠$</$3 ͠$</$"3R/$:R/$,R/$R0Ma`H$Fa<$<꒝<Ц"$<<Ц"/ $3R/$3R0|$2Ɔ _ R0$</"٠#͍"YTп< >' !<0/@>:8bTTETT1TAT@TTTTbTKTT "ؽȁ4<ENTER WINNERS NAME < >/ ȁ4<ENTER PRIZE RECIEVED < >/ ȁ4<PRIZE DONATED BY < >/ ȁ4<VALUE OF PRIZE < >/ *ARE THESE ENTRIES CORRECT, PRESS Y OR N>ԔFА  >DOS ERROR #<=>'PLEASE CHECK SYSTEM, THEN PRESS RETURN>ԔF3R(2&2BCBC֚BCBCB CB CB CB Ca#5 # WELCOME TO TODAYS MEETING>;AOF>/ A<>" >DOS ERROR #<=>'PLEASE CHECK SYSTEM, THEN PRESS RETURN>ԔF3R+ (}HSHS֚HSHSH SH SH SH Sa" >( <6DATE : FLE DATES ># >"a$0`"HF"3R-HF"3R.ѶHFذɰ >HFH FHF"3R.:!!R.ɸHF<R.FA! ?٘б5 4Й/4  /6?> ɿa:=WE THANK THE MEMBERS>;AOF>/ A>:=FOR USING THIS PROGRAM>:=IF YOU LIKE IT, PLEASE>:= SEND A DONATION TO> T:бѦcTHUQR#@ >DOS ERROR #<=>'PLEASE CHECK SYSTEM, THEN PRESS RETURN>ԔF3R#z5  '(@*e+-5 ֹ? ? ? ? # "%NR#YR%XR5 % #֚ ? ? ? ? # WELCOME TO TODAYS MEETING>;AOF>/ A>* IF YOU HAVE MORE THAN ONE RAFFLE TODAY>% THEN ADD A LETTER (A-Z) TO THE DATE>;  >$ CHECK PREVIOUS WINNERS >" >"* REMEMBER: IF THEIR WAS A LETTER ON THE>( OLD FILE DATE, YOU MUST INCLUDE IT NOW>)ENTER DATE YOU WANT CHECKED OR X TO EXIT>ȿɹ؁ WINNER# :TICKET# >   < A>4<+WINNERS NAME : =; >4<+WINNERS PRIZE : =; >4<+WINNERS PRIZE : =;  >R..FC  PRESS M FOR MORE, OR PRESS X TO EXIT >ԔFА"Xa5 MR/!@a. >""' > >ذ.F́44##<<    (ŧƧĠK"2="2='Ȋɀ<≮ ><(  >T  WELCOME TO TODAYS MEETING>;AOF>/ A<>" >$ ENTER WINNERS NAMES >" > = WINNER # :TICKET # >  !ST TICKET : <'<ɷ'/XR5 ''1ʊR7,ARE THESE CORRECT, PRESS Y OR N>((F(NR6(YR7"R8]+I CAN'T PLAY THESE NUMBERS, PRESS RETURN>ԔF3R68O!{۱"""" R8_:0#"aI0`a0:CLUB NAME,S,R`HUQ>R3R3HSa3^aBI0CDOS ERROR #<=>)PLEASE FIX THE PROBLEM THEN PRESS RETURN>ԔF3R2=3PA PRESS RETURN>ԔFА"3R5 3p2PLEASE ! XXXXXXXXXXXXXXXXXX>;START THIS RAFFLE...1>;ENTER WINNERS NAMES.2>;LIST OLD RAFFLES....3>;CHECK OLD RAFFLES..4>;END RAFFLE PROGRAM..5>"$ MAKE SELECTION, PRESS NUMBER>ԔFА"1R62 R#3R-94R(}! >)<Ж <#<><R9O" PRESS RETURN FOR NEXT SPIN>ԔF3R9" >"8_& THAT'S ALL FOLKS >ְ":07ANTTCF2F1 >ԔFА"3R5 9׵˦<ʊɬ'Ȱ' !?<=T1>II=T2>:T!!TTTT))T***T)z# >)!" A. "CR$:" B. "V$:" C. "H$r x" D. "DT$:" E. COLOR BARS " F. RASTER" " HIT F1 TO RETURN TO MENU. PRINT" HIT CRSR TO MOVE SCREEN." A$! A$"3""":SC,5:SC1,5! rA$"": |(A$)0(A$)5150C 330q SC,3:SC1,1:" "N$:R0 " SELECT COLOR:" " 1. WHITE":" 2. YELLOW" " 3. CYAN" !ENTER THE NAME OF YOUR CLUB OR>'ORGANIZATION : ( UP TO 16 CHARACTURES )>ȿ؁4< CLUB NAME>/חR4a`a0:CLUB NAME,S,W`HUQR54<DOS ERROR #<=>(PLEASE FIX THE PROBLEM THEN PRESS RETUN<3ԔF3R44<'!5R06fꓞ>/ A>1ARAFFLE TICKET PROGRAM.>#/ENTER NUMBER OF TICKETS TO DRAW (1 TO 9)>"%%F%XR5 %1ښ R7 Ч"ȁ4ԔFА"3R5 9׵˦<ʊɬ'Ȱ' !?<=T1>II=T2>:T!!TTTT))T***T)z# >)"" 4. MAGENTA"$ A$:A$""4308 A$"1"CO$""L A$"2"CO$""` A$"3"CO$""t A$"4"CO$"" A$"" (A$)5(A$)0A$"":490 430 ""CO$; SC,0:SC1,0:X1999 C$;: ""C$;: XC$!:A$""150& A$"A"C$"":N$CR$:400D A$"B"C$"":N$V$:400b A$"C"C$"":N$H$:400 A$"D"C$".":N$DT$:400 A$"E""";:600 A$"F"300 (A$)C$"-"R0440 (A$)R1340 A$"" 150$ ,SC,3:S!:=BOULDER CITY SOFTWARE>:= P.O. BOX # 1012>:= BOULDER CITY NEVADA>:= 89005>ɉ0  RAFFLE TICKET PROGRAM>" FROM BOULDER CITY SOFTWARE> (C) COPYRIGHT 1986> ! >( > 3BCaa3^# WELCOME TO TODAYS MEETING>;AOF>/ A<>! XXXXXXXXXXXXXXXXXXXXXXXXXX># X MAIN MENU X># XXXXXXXX"5(147):A0A1:"LOADING...":"DW.OBJ",8,1j: T(4):A$(157)(157)(157):N$"DOS WINDOW"(147)134)N$:43)"WANT TO SET THE T.O.D. CLOCK ? Y";A$;: B$:B$"Y"8:" HOURS ";T(1):T(1)12"":5! "MINUT"`L=1xʭʩʍX` lʩ ʭ Ѝʭ!Ѝx؝ٝڝ۝X!Щ Ў fͩ '@ ͢ "":R0:SC,0:SC1,0@YB$"      "PbX124:B$^l:B$"";v"REDGRNBLU";:4X1200:: WHITE":" 2. YELLOW" " 3. CYAN" " w B LK˽ ` ` w ` n ͩ o  L `   ` n΢ n΢ n΢ fͩcʅʠ(` n΢ fͩ=ʑ`ӱ hhL) .+ 0"Ǡ ӱ"  DN8$ 15,8,15: 2,8,4,"#"1 (147)I "ELKON UTILITIES"q( "WRITTIEN: BY ERNEST T.TRAVIS II"2 "ANN ARBOR, MICHIGAN. PO 7528. 665-2857"< "ZIP 48105."FP "1-VALIDATE DISK"Z "2-DISPLAY DIRECTORY" d "3-FORMAT " (A$(0))# 6#1,A$:BLBL256(A$(0))8 @N$"": K1 BYS J#1,A$: ST0 370d TN$N$A$: Kv ^ BL;N$:BY28 h ST0 290 r BL;N$ wN$"":BY0:BL0 | 1  A$: A$"" 390  20   "DISK NAME:";DN$  (DN$" ES ";T(2):T(2)59"":6Q "SECONDS ";T(3):T(3)59"":7 I13:H(T(I)10):LT(I)10H:T(I)16HL: C56587:C4,(C4)127 I03:CI,T(I1): "1. TO USE "N$", PRESS CTRL-D.":! "2. PRESS RETURN AT" D ͩ)LIQLVyL kx6ؽٽڽ͢9*Xʍʍ Эʍ!ЩʅLS  LRLCL^kL8LHC ΢L,ʢc "20 15,"I"  20 0 & "NEW DEVICE NUMBER";DNU 0 DN6 DN15 (145);: 550 :15,"M-W"(119)(0)(2)(DN32)(DN64) D 15: 15,DN,15: 2: 2,DN,4,"#": 20 N X "LOCK WHICH FILE";WF$ b 1,DN,5,WF$",M" l15,"M-R"(1")L `Ύ L ΢  F  ` έ 0 : c LK˥ o ` ݢH)  H)JJJJih)iܭ`$ D:DIRECTORY N:FORMAT L:LOAD,8 I:INI"DISK" n "4-INITALIZE A DISK"= x "5-CHANGE DEVICE MUMBER"S "6-LOCK A FILE"k "7-UNLOCK A FILE" "8-SCRATCH A FILE" "9-UNSCRATCH A FILE" "10-RENAME A FILE" "11-CHANGE FILE TYPE" "12-CHANGE DISK NAME" "13-C")16 (145);: 430$  "DISK I.D:";ID$E  (ID$)2 (145);: 440K h  "ARE YOU SURE(Y/N)";A$  A$"N" A$"":DN$"":ID$"": 20  A$"Y" (145);: 470 15,"N:"DN$","ID$ A$"":DN$"":ID$"":15,"M-R"(0)(0): THE "(18)"STATUS:"(146)" LINE, TO"D 2)"CLOSE WINDOW AND RETURN."v "3. TO DEACTIVATE, PRESS RUN/STOP-RESTORE." "4. SYS 51808, TO REACTIVATE.":51808:A$;: B$:B$"Y"8:" HOURS ";T(1):T(1)12"":5! "MINUT"+, L -./012L_%` ΢ʢc -.+ LN 8 LU ΩU ;LLW nΩ wͩ `  ĤRå ͽ ? L ͩ  w͢ f  ͩ w͠L̢ #44)(2)v#15,A$:SE(A$(0))-15,"M-R"(148)(2)G#15,A$:PT(A$(0))]15,"U1:4 0 18"SEo15,"B-P:4"PT#2,A$:FT(A$(0)) FT192 740 FT4 FTFT192: 710 FT128 FTFT64 FT128 FTFT12815,TIALIZE _:SAVE ^:LOAD,8,1 V:VALIDATE C:COPY U:RESET R:RENAME S:SCRATCH STATUS:PRESS RETURN, OR STOPNEW FILENAME:OLD FILENAME:NAME,ID:ʑ`ӱ hhL) .+ 0"Ǡ ӱ"HANGE DISK I.D"# "14-EXIT PROGRAM") @ "CHOICE(1-14)";A A 250,270,410,520,540,590,750,920,1000,1180,1250,1430,1530,1630 (145);: 220 15,"V"   1,DN,0,"$0" #1,A$:#1,A$:BY26 "#1,A$:#1,A$ ,#1,A$:BL:D$"":BL$"": 20^ 2:15,"I": 15: (147);::: 1:T$"":N$"":FT0:SE0:PT0: 20KfBL$" " "NEW DISK NAME";ND$ (ND$)16 (145);: 145015,"U1:4 0 18 0"15,"B-P:4 144"2,BL$;15,"BSCANDINAVIEN PD TTCF2F1 >ԔFА"3R5 9׵˦<ʊɬ'Ȱ' !?<=T1>II=T2>:T!!TTTT))T***T)z# >)# * *************** *************** ET SVENSKA RPPROGRAMBIBLIOTEKET MED DET STORSTA URVALET, INTE TILL AN- TALET DISKAR, MEN TILL MANGDEN BRA PROGRAM, BADE NYTTOPRG OCH SPEL., BA- DE IMPOERTERA# "B-P:4"PT 2,(FT);15,"U2:4 0 18"SEA 1:FT0:PT0:SE0:A$"": 20Ge "UNLOCK WHICH FILE";WF${ 1,DN,5,WF$",M" 15,"M-R"(144)(2)#15,A$:SE(A$(0)) 15,"M-R"(148)(2)*#15,A$:PT(A$(0))415,"U1:4 0 # #15,A$:PT(A$(0)). "FILE TYPE(P/S/U/R)";T$*8FT130@B T$"S" FT129VL T$"P" FT130lV T$"U" FT131` T$"R" FT132j15,"U1:4 0 18"SEt15,"B-P:4"PT~2,(FT);15,"U2:4 0 18"SE 1:15,"VO":T$"":US$# En15,"B-P:4"PTx2,(FT);15,"U2:4 0 18"SEE 1:T$"":N$"":FT0:SE0:PT0: 20KfBL$" " "NEW DISK NAME";ND$ (ND$)16 (145);: 145015,"U1:4 0 18 0"15,"B-P:4 144"2,BL$;15,"B#1):AG CP INB}A'VALKOMMEN TILL EN NY DISKETT FRAN CANDINAVIEN ĝSӛ8(CÚNΚěIIɚΞ֞ɚŞ О *************DEL @@************************************** *************** ET SVENSKA RPPROGRAMBIBLIOTEKET MED DET STORSTA URVALET, INTE TILL AN- TALET DISKAR, MEN TILL MANGDEN BRA PROGRAM, BADE NYTTOPRG OCH SPEL., BA- DE IMPOERTERA#18"SE>15,"B-P:4"PT H#2,A$:FT(A$(0))3R FT192 910@\FTFT64Rp15,"B-P:4"PT`z2,(FT);v15,"U2:4 0 18"SE 1:FT0:PT0:SE0:A$"": 20 "SCRATCH WHICH FILE";S$ (S$)16 (145);: 930 "ARE YOU S#"":FT0:SE0:PT0: 20$ "RENAME WHICH FILE";OL$G (OL$)16 (145);: 1190a "NEW FILE NAME";NF$ (NF$)16 (145);: 121015,"R:"NF$"="OL$NF$"":OL$"": 20 "CHANGE WHICH FILE";N$ 1,DN,5,N$#-P:4 144"2,ND$;15,"U2:4 0 18 0"&ND$"":BL$"": 20A: "NEW DISK I.D";ID$NBL$" "p (ID$)2 (145);: 145015,"U1:4 0 18 0""15,"B-P:4 162",2,BL$;615,"B-P:4 162"@2,ID$;J15,"U2:4 0 18 0"TI# 53280,12:45,183:46,9::60:A(2000)B$:B$""20 A$B$C$;:I,(B$):II1# (B$""700 220h <53281,11:A$"":C$"*":""C$;:I2560: F252,(I256):251,(I((252)256)) P46,(252):45,(25#T OCH SVENSKTSKANDINAVISKT. NGEN MEDLEMSAVGIFT TORSTA ANTALET PROGRAM TILL LAGSTA MOJLIGA PRIS CANDINAVIEN OX 525 191 05 OLLENTINAUNANA S- 191 -191 VERIGE EL 08-964072 #URE(Y/N)";A$ A$"N" S$"":A$"": 20: A$"Y" (145);: 950J15,"S:"S$_S$"":A$"": 20e "UNSCRATCH WHITCH FILE";US$ 1,DN,5,US$",M"15,"M-R"(144)(2)#15,A$:SE(A$(0))15,"M-R"(148)(2)$#",M"15,"M-R"(144)(2) #15,A$:SE(A$(0))615,"M-R"(148)(2)P#15,A$:PT(A$(0))n( "FILE TYPE(P/S/U/R)";T$y2FT130< T$"S" FT129F T$"P" FT130P T$"U" FT131Z T$"R" FT132d15,"U1:4 0 18"S