8L2C)pJJJJ IH(ȱH:=IH[H`@HcH  $ +   I/H`JLNGȄBȄF aK  haaFF  mJm# KKJ UJ )J ۈ) ;J3ȱJFȱJGJKaȄM  aaNNJFLGJL L? &PRODOS `DaElH$?EGvѶK+`L HHLy XP LM ŠϠĠӠS)*+,+`F)) (*=GJFjJJA QE'+ '== `@ STSP8QSS8 m P o R(8RNEW.DISK}' ADDRESSESW,BASIC.SYSTEM(*+'CHECKIT 6/ ϲ #DCK%4e; / DCK.INPUTY; { +DCK.INPUT.SZ ; ۲ (DCK.SORTdg; l+ *GRADESHEETh95n{JEWEL; ɲ, 'NIBMENU 55&PRODOS }<n% (REGISTER0; ̲4 RETURN.ADDRESS SORT; ŲSORT.10.ITEM; Ų'STARTUP ®3* .STARTUP.SCREENC 9`4SUMFIVE; Ͳ1 ,TM.ADDRESSES; ڲ.WORDSEARCH.WIZ&; . 0 LG ASTARTUP$#   / XXύX?klmnÍoL) "6L'?"(0`6708" = ***)<JJH !h穖tp% ;"Z/݀>">"' 1" 7"5).莀/ ;" " 6" >" 1"6"$ "g"" !"""""IzLYL 8!9 詍` "  4"/pŠϠŠà͠ӠàԠŠH06172839h` v97L75v^a ?/( va?LLLɍ$?`?a ɍɥAH93827160hH46576879h`,C bL ɍ b w,S0 @ lLޭBDEF޾ p ޾ p($ذ v (0 ( L?ԦʚLeةީa s  lL b,FLg,DL,C0$3 >@ Ɉ 3ɾꩈL(3ɾ;Ƀ B94 l% bʽ  ՚,S` H E$݅3`(l8L3LX>(Ƀ,`3,G0]ɾ g` H`پ_پ p _پ׾`>( p۾m׾) W)ʩ@`ɾ>(O puȾ ɾ-O ]c־Jjjj `O>0O l POپھ p H־Ǿh۰8L־Jjjjɾ)Ⱦ8 ѱ OLӜ ĤLLX>(F`־ؾپھ׾` bɄ KDEF vLl v lL bKɍKL?` w  vLl@3 @LtJ)s@J b  l`a?sa?,E30ɍФ3 E3HD F3 Ʉ%h3 bM E  lLthɍLL3`3,A0s0% Ipn DpnI:L ؅303L8933LΞAAJL ةޘг uv $ 8LƞaЌ>?@`>?@`B8` K  춼LK ҟ ҟ ( KK`HJJJJ8`HK)` #hhLJپھ pHJh` D!hgt}~p `~t}p8n~ni}tpi~~tso8pinii>j?k̈́>~|p|Ii||̈́ l - `>i>?Ek?!>Q>>>̀ `` \> ̀ `e>>?́?>?Emn(>e>ȱ>e?>Q>ؠ> ie>>?`|;}=:<~:<=;`||m};>:8o>oȑ>ppȑ>> :op`G DKpnG @p;G=po:i>?Ek?>Q>> L> \/ e>>?́?ޱ>ȥj>>m>` _m8injkiljo풼S 鸍긍$I2 U)VJ зT)`l8`a HbIJhjǾȾɾ p٭b=aIe f`8` P־ǾҾ,G0C f=W)_``\"׾پӾؾھ pD`־ǾY׾ؾOW)ݩȾɾʾ pD`8`W)CB) 5W) =)W)@! pZ}ȾȾ󰹩 p` ־ǾҾ,G 8`׾ؾ f p vۥs׾tؾE`  ( 8о(־Ǿ,G 8`_`W)H־Jjjjh p̭ fLᶢǾ ת..8 ۭ (8mȾȾmɾɾʾiʾ` Lpl8l:/,s̝sƬƀ#(ZZV4G_0=( A P FjL\5p-e9ABSAVERIFYBLOADELETEBYECATALOGOPENWRITEXECREATEFRESTORENAMEBRUNLOCKCHAIN#FLUSHREADPOSITIONOMONPR#PREFIXCLOSEAPPEND6D(!쫂8ֵ#ح#׮2}q :IC@@ -!S    !C- !ABELSDFRV@@ !$(19@EüϠž(+@ABCDEFGHIKLMNPSV     T[fouu~ՠٯ* PWN*]ĿNTz @n6VC/+A>@I5gN Oz @n[Dz @nd0,~z @`$仫@v$⩔,C[B?I>孓`仫6VtCicQĿUKqtVt Nʮq$6,⨁ K6, VtI=v!gNVt Vt  lg~TLLwLLL) `8` ԠŬLL !"#$. ********** NIBBLE PRD DISK **********[ * CHECKIT * * COPYRIGHT 1988 BY MINDCRAFT PUBL.CORP. *( * CONCORD, MA 01742 *2 *************************************' <:::"CHECKIT":"COPYRIGHT 1988 BY MINDCRAFT PUBL. CORP."0 F90\ PI0377:ML:CSCSML:::CS48127100 Z:"ERROR IN DATA STATEMENTS!":"PROBABLY LOCATED ON OR BEFORE LINE ";(123)(124)256: d216,0:768,0:H(3):H(0)1:H(1)16:H(2)256:H(3)40969 n6:"ARE YOU ENTERING A HEXADECIMAL":"FILE?";:A$:16368,0:A$d xA$"N"A$(110)İ370:34218,128:210 A$"Y"A$(121)110 768,1:10:958:"WHAT IS THE STARTING ADDRESS OF THE":"FILE (IN HEX)";:H$:290:AH2 A736A39424ĺ:"INVALID ADDRESS. PLEASE DOUBLE-CHECK":"AND RE-ENTER":350:140| 13:958:"WHAT IS THE LENGTH OF THE FILE":"(IN HEX)";:H$:290:BH B1B32000ĺ"INVALID LENGTH. PLEASE DOUBLE-CHECK":"AND RE-ENTER":350:160 :::34,1:2:"INSTALLING CHECKIT..."x A6144İ320:5799,(A256):5798,A256(5799):5801,(B256):5800,B256(5801):5802,0:230: ABOVE $1800 SOMEWHERE A6144İ370:34215,(A256):34214,A256(34215):34217,(B256):34216,B256(34217):34218,0:210: BELOW $1800 SOMEWHERE' (48896)76Ĺ56,0:57,133:1002:250B (4);"IN#A$8500":250l (48896)76Ĺ56,0:57,22:1002:250 (4)"IN#A$1600":250 :::34,1:2:"CHECKIT INSTALLED" (768)1ĺ:"ENTER THE MONITOR BY TYPING":" CALL -151"  Y"H0:L(H$):L1L4300:I1L:D((H$,I,1)):HHH(LI)(D48(D58D47)55(D64D71)):_,t6 $1600 VERSION@I0377:ML:5632I,ML:I:C5632JI018:ML:CML,(CML)111:T^21:"PRESS RETURN TO CONTINUE ";:CH$:CH$:16368,0:h $8500 VERSION5rI0377:ML:34048I,ML:I;| 216,32,27,253,201,154,240,31,201,141,208,26,134,224,32,178,133,32,251,218,32,128,254,56,165,8 229,9,32,218,253,32,132,254,166,224,169,141,96,32,106,134,44,170,133,16,43,169,1,133,6,169_ 8,133,7,160,0,177,6,133,251,200,177,6,133,252,240,63,200,177,6,32,79,134,200,177,6,32 79,134,165,251,133,6,165,252,133,7,208,221,173,167,133,133,7,173,166,133,133,6,160,0,177,6& 32,79,134,230,6,208,2,230,7,230,251,208,2,230,252,165,251,205,168,133,165,252,237,169,133,144 227,162,0,189,171,133,32,237,253,232,224,7,144,245,44,16,192,32,128,254,164,8,166,9,32,64 249,32,251,218,32,132,254,169,152,96,0,0,0,0,0,20,15,20,1,12,58,32,32,106,134,133> 6,169,2,133,7,160,0,177,6,201,176,144,73,201,186,176,69,177,6,44,170,133,16,53,201,210 208,4,166,251,240,61,201,162,208,8,72,169,1,69,251,133,251,104,201,160,208,6,166,251,208,25 240,26,201,191,208,19,132,226,160,0,185,117,134,32,79,134,200,192,5,144,245,164,226,176,3,32o 79,134,200,196,224,144,188,96,166,224,104,104,169,141,96,132,226,136,177,6,201,160,240,249,201,186 240,8,201,176,144,36,201,186,176,32,164,226,200,177,6,201,197,208,23,200,177,6,201,205,208,166 169,210,32,79,134,169,197,32,79,134,169,205,32,79,134,96,164,226,177,6,24,144,135,162,8,10 38,8,38,9,144,14,72,165,8,73,33,133,8,165,9,73,16,133,9,104,202,208,232,96,169,0 133,8,133,9,133,251,133,252,96,208,210,201,206,212 16,41,44,73,79,92,97,106,123,128,135,180,203,246,249,261,316,321,326 &'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWX  *************************?* DCK *^* BY LES STEWART *}(* COPYRIGHT (C) 1989 *2* MINDCRAFT PUBL. CORP. *<* CONCORD, MA 01742 *F*************************P- INITIALIZE ZU d36608:J$(27)(17)(24):J$:DE$"THE FILE DCK.SORT MUST BE ON THIS DISK":PD((48896)76)y n:2:10:"DB CONSTRUCTION KIT" x:18:"BY"::14:"LES STEWART" 12:10:"COPYRIGHT (C) 1989"::10:"MINDCRAFT PUBL. CORP." :10:"CONCORD, MA 01742"! 22:14:"PRESS RETURN";:5790B D$(4):S4:J38144:Q$(34)| A$(15),L(15),C$(15),A(15),B$(15),E$(15),M(15),F$(65) X015:A(X)1:L(X)1::W1:F1:1700 ::D$"BLOAD DCK.INPUT":216,0 :5:9:"** CREATE.SCREEN **"::34,5 - GET 40/80 COLUMN INFOE :((64435)(64448)241)PDK$"PR #3":270T K$"":340Z ` x - GET SCREEN WIDTH :5:11:"SCREEN DISPLAY"7)"COLUMNS":2530:21:8:"QUIT"3):S8290 11:20::"40";::"/80":300 "11:20:"40/";::"80":+ ,5790:Z8Z21Z13Z273009 6Z27ė:q @Z13S4((S42)1):B20(S8):(S4)1290,280 J- GET FILE NAMES T34,0::2500::1:13)"FILE NAMES":13)"**********":: - 10 *'S ^ h10:" INPUT SCREEN:":::::" DATA FILE:"x r:7:4)"DO YOU WANT A CATALOG? Y/N ";:32:ZA$:ZA$"N"ZA$(110)ZA$"Y"ZA$(121)ZA$(27)370 |ZA$(27)200 ZA$:ZA$"Y"ZA$(121)İ5400:340 Z$A$:H0:V10:M64:255,0:1630:A370 1:19:"PLEASE WAIT";5610:A$Z$:E0400,1:19:13);:Z$B$QZ$B$:H0:V15:M61:1630:A4001:19:"PLEASE WAIT";:5610:B$Z$:E0440B$A$E1:5700:440- GET # OF FIELDS:2500:10:5:"HOW MANY FIELDS? (MAX 12) "F:H30:V9:M2:Z$(F):1630:A340!F(Z$):F1F12480:- GET FIELD 'NAMES'J$::M30(S8)4:2500::2:5:"FIELD NAMES ("M" CHARACTERS MAX)"::X1F:2:4X(1(F8)):(X10))X") "E$(X):X1F:S4(A$(X))30A$(X)(A$(X),30)H5:V3X(1(F8)):Z$E$(X):255,1:1630LE$(X)Z$:A$(X)(X)") "Z$:F9X10A$(X)(32)A$(X)k&M(X)(A$(X))1:AX14800(A)XX1:530:D- GET LENGTHS OF FIELDSNS8ĺD$K$: X:2500::2:6B:"FIELD LENGTH - MAXIMUM:":X1F:S4L(X)39M(X)L(X)39M(X)7b2:4X(1(F8)):A$(X)" "L(X)::X1FilZ39M(X):ZZ(S4)40(S8)::31B:2:Z3)vHM(X)1:V3X(1(F8)):M2:Z$(L(X)):255,0:1630AX1510(A)XX1:620L(X)(Z$):L(X)1L(X)Zĺ(7);:L(X)0:630:L(0)4- GET 'PROMPT' TEXT-S8ĺD$K$:m:2500::2:6B:"INPUT PROMPTS ("2029(B0)" CHAR MAX)"xX1FY1F::4Y(1(F8)):YXĞA$(Y):::19:36)H5:V18:M2029(B0):Z$B$(X):255,1:1630B$(X)Z$:AX1590(A)XX1:7200 - GET DEFAULT INPUTS:2500::2:15B:"DEFAULTS" X1F:S4(C$(X))L(X)C$(X)(C$(X),L(X))*:4X(1(F8)):A$(X)" "C$(X)::X1F4HM(X):V3X(1(F8)):ML(X):Z$C$(X):255,0:1630>C$(X)Z$:AX1690H(A)XX1:820RB\- GET REQUIRED/NOT REQUIRED INFOf:2500::2:9B:"INPUT MANDATORY? Y/N":X1F:2:4X(1(F8)):A$(X)" "(78(A(X)1)11):pX1FzHM(X)1:V3X(1(F8)):M1:Z$(7811(A(X)1)):255,0:1630AX1790(A)XX1:890FZ$"Y"Z$(121)Z$"N"Z$(110)890hA(X)0(Z$"Y")(Z$(121)):- GET RECORD LENGTHS8ĺD$K$::2500::1:12:"# OF CHARACTERS":Z0:X1F:2:1X(1(F8)):A$(X)1(L(X)10))L(X):ZZL(X):::2:QFZ:Q1Q:"DELIMITERS: "F;:3)"TOTAL CHARACTERS: "Q:1:19:35);::2:19:"RECORD LENGTH "Q3):H15:V18:M4:Z$(Q):255,0:1630A870Q(Z$):(Q2F)QZFQQ1:980- GET SCREEN TITLEAJ$::2500::2:3:"SCREEN TITLE (25 CHARACTERS MAX)":Z$C$:H2:255,1:V7:M25:1630:C$Z$:A950_- GET FINAL INSTRUCTIONS:Z$(1)"CREATE THE SCREEN & DATA FILES":Z$(2)"CREATE THE SCREEN FILE ONLY":Z$(3)"REVIEW ENTRIES":Z$(4)"PRINT DATA FIELD NUMBERS":Z$(5)"QUIT"7:10:"*** CREATE SCREEN ***":M25:ZZ123:5290::Z271020W$M11100,1200,200,6000,1070.:7:10:(7)"QUIT. ARE YOU SURE? Y/N ";:Z$:Z$"Y"Z$(121)10408:B- ESTABLISH DATA FILE#L10:8:(7)"PLACE DATA DISK IN DRIVE"::13:"AND PRESS RETURN";:5790:Z13Z2711002VZ271040C`:W2:1140\jD$"DELETE"B$:1700t:10:11)"PREPARING DATA FILE"::(B$)38ĺ((37(B$))2));~B$D$"OPEN "B$",L"Q:D$"WRITE"B$",R0":0:D$"CLOSE"::(B$)38ĺ((37(B$))2));"B$::14)"IS COMPLETE"F- PREPARE EXEC FILE 'SCREEN.E'XX$"SCREEN.E"10:8:(7)"PLACE MAIN DISK IN DRIVE"::13:"AND PRESS RETURN";:5790:Z13Z271220Z271040:W3:1700 8:10:10)"CREATING EXEC FILE"::(X$)38ĺ((37(X$))2));X$:D$"OPEN"X$:D$"CLOSE":D$"DELETE"X$:D$"OPEN"X$:D$"WRITE"X$:"NEW"(1760,5790:- FIRST PORTION OF GENERATED PROGRAM25810:- SECOND PORTION OF GENERATED PROGRAM<"SAVE "A$:- SAVE GENERATED PROGRAMTF"NEW":- SHORT PROGRAM TO CLEANUP AFTER GENERATING PROGRAMwP"10 D$=CHR$(4):POKE34,0:HOME"Z"20 PRINTD$"Q$"CLOSE"X$Q$d"30 VTAB10:PRINT"Q$"DELETING"Q$":PRINT:PRINT"Q$X$Q$n"40 PRINTD$"Q$"DELETE"X$Q$)x"50 HOME:VTAB10:HTAB15:?CHR$(7)"Q$"ALL DONE"Q$":END"4"RUN"ED$"CLOSE"X$- ESTABLISH INPUT SCREEN PROGRAM BY EXECING SCREEN.E:8:14)"PREPARING"::(A$)38ĺ((37(A$))2));A$:W4:1700 :7)"(TAKES ABOUT 3 MINUTES)":34,15:D$"EXEC"X$:216,0:0- SUBROUTINE: CHECK DISK FILES6<BHNTZ`fl"r,x6~@JD$"DELETE"ZP$"/"ZF$:T- SUBROUTINE: 'INPUT'^37969:Z$""YSJ:XS1(Z$):YS,((Z$,XS,1))128:YSYS1:h249,H:250,V:251,M:376323rA0:(38142)27A1U|Z$"":(252)M(253)01680XSJ(252)J(253):Z$Z$((XS))::H1:V1:Z$M(Z$)):- ERROR MESSAGE:216,0:62248:(7):D$"CLOSE":14:"I/O PROBLEM":M 9:"CHECK DISK & DRIVE AND"::9:"PRESS RETURN TO RESTART"::12:"OR ESC TO END";:5790[ Z27ė:k Z131700 :W180,1100,1220,1440 *** GENERATED PROGRAM - INITIALIZATION & MENU *** 35840::J$(27)(17)(24):5810:5970t!J38144:PA249:PB250:PC251:PD252:PE253:PF255:PG38142:PH38143:A$(0)"RECORD #":AH38006:D$(4):F$(64):D$"VERIFY DCK.SORT"!:8)"CONSTRUCTED DATABASE":"COPYRIGHT(C) 1989 MINDCRAFT PUBL. CORP."::2)"MAIN MENU: "C$"ZZ124:Z$(1)"ADD/MODIFY A RECORD":Z$(2)"PRODUCE A REPORT":Z$(3)"SEARCH":Z$(4)"PURGE RECORDS":Z$(5)"CHANGE DATA FILE NAME":Z$(6)"CATALOG A DISK":Z$(7)"QUIT":L(0)4:M27:5290:ZZ0"M17ė:"W1:ZF$"DCK.INPUT":5730":(37632)162(37634)142:D$"BLOAD DCK.INPUT"'#&216,0:M11860,2550,4860,5070,5240,5400]#0*** GENERATED PROGRAM - INPUT SCREEN SECTION ***#:- PRINT SCREEN & GET # OF RECORDS#D:D$K1$:2430:ZF$B$:W2:5730#ND$"OPEN"ZF$",L"Q:D$"READ"ZF$",R0":S:D$"CLOSE ":216,0 $X- CLEAR FIELDS & GET RECORD #7$bADS1::X1F:X14:M(X)1:L(X)):$l2490:3)"ESC = QUIT"6)"RETURN = ACCEPT "AD::3)"OR ENTER NUMBER FOR PREVIOUS RECORD"$vA%0:A$(AD):H10:V2:M4:5530:A0ė:1780$A$""ZAD:1940$Z(A$):Z1ZAD1910%ADZ:3:11:10);:11:AD)%ADS12040H%- GET DATA FOR NEW RECORDs%2500:A%1:X1F:D$(X)C$(X)::X1F%:3:18:20B2):3:18:B$(X):A$D$(X):HM(X):VX13:ML(X):5530%D$(X)A$:A$""A(X)1A27İ2460:1980 &:3:18:20B2):A271980+&A27XX2:X0XF:18907&:2100e&- GET DATA FOR EXISTING RECORD FROM FILE&D$"OPEN"B$",L"Q:D$"READ"B$",R"AD:X1F:D$(X)::D$"CLOSE"&X1F:D$(X)""2070' Z$"":Y1(D$(X)):ZB((D$(X),Y,1)):Z$Z$(ZB43(ZB1)56(ZB2))::D$(X)Z$4'X14:M(X)1:D$(X);::' M'*- GET COMMAND'42490:1)"P = PREV RECORD"8)"N = NEXT RECORD"'>1)"Q = QUIT"6)"F = FILE"6)"C = CANCEL":1)"D = DELETE"4)"# = MODIFY"4)G$((S$""))((HA$"":H3:V18:M2:5530:Z$A$:((Z$"S"Z$(115))S$"")A$""2120K(R(Z$"S"Z$(115))ADAF5040(\((Z$"P"Z$(112))AD1)((Z$"N"Z$(110))ADS)2120(fZ(Z$):A%0(Z$"C"Z99Z$"Q"Z113Z$"P"Z112Z$"N"Z110Z$"S"Z115)2170U)p2490:(7):"ARE YOU SURE? Y/N"::"(RECORD HAS NOT BEEN FILED) ";:ZA$:ZA$"Y"ZA$(121)2100o)zZ$"Q"Z113ė:1760)Z$"C"Z99İ2430:1890)Z$"D"Z1002220)2490::(7)" DELETE? ARE YOU SURE? Y/N ";:ZA$:ZA$"Y"ZA$(121)2100*X1F:D$(X)""::D$(1)(5):2380D*Z$"P"Z112Z$"N"Z1102240*Z%Z%(Z110Z$"N")(Z112Z$"P"):ADAD(Z110Z$"N")(Z112Z$"P"):2430:3:11:10);:11:AD:A%0:2040*(Z$"S"Z115)ADAF1Z%Z%(ADAF1)::4980+X(Z$):X0XF2310Z+A%1:2500::3:18:20B2):3:18:B$(X):A$D$(X):HM(X):VX13:ML(X):5530+D$(X)A$:A$""A(X)1A27İ2460:2260+:3:18:20B2):A272260+A27XX1(X1):2260+2100+ Z$"F"Z1022120, Z0:X1F:ZZ(D$(X))::ZQ12350K, (7):23:"TOO LONG. DELETE "ZQ" CHARACTERS ";:Z$b,$ :23:35);:2120m,. 5980|,8 ADS2380,B D$"OPEN"B$",L"Q:D$"WRITE"B$",R0":AD:D$"CLOSE",L A%0::D$"OPEN"B$",L"Q:D$"WRITE"B$",R"AD-V X1F:D$(X)""D$(X)(5)Z$D$(X):2410_-` Z$"":Y1(D$(X)):ZB((D$(X),Y,1)):Z$Z$(ZB43(ZB44)56(ZB58)):-j Z$::D$"CLOSE":SS(ADS1):1890-t - SUBROUTINE: SET UP SCREEN-~ :D$K1$::1)"ADD/MODIFY: "C$::"RECORD #:"- X1F:1:X14:A$(X)::. - SUBROUTINE: MANDATORY INPUTW. :19:(7)"INPUT IS REQUIRED. PRESS RETURN";:5790j. :19:38);:. - SUBROUTINE: PREPARE LOWER SCREEN . 34,18::XM14881527:XM,173::34,0:21:R/ 2490:4)"ESC = BACK UP"2)"<- -> = MOVE CURSOR":1)"RETURN = ACCEPT"3)"CTRL T = TRUNCATE":1)"CTRL D = DELETE"3)"CTRL I = INSERT";^/ 18::/ 2490:1)"ESC = BACK UP"3)"RETURN = ACCEPT OPTION"::6)"<-- OR --> = TOGGLE OPTION";:18::0 2490:1)"ESC = BACK UP"10)"RETURN = ACCEPT"::8)"<-- OR --> = CHANGE";:18::K0 *** GENERATED PROGRAM - REPORT SECTION ***k0 X09:Y0F:J(X,Y)1:Y,X0 - OBTAIN REPORT OPTIONS0 :X09:R$(X)::Y0:XAHAH9:G(Y)(X):YY1:0 X06:Q$(X)::Y0:XAH10AH16:F(Y)(X):YY1::1 OUTPUT,PRINTER START,PRINTER STOP,PRINTER WIDTH,SCREEN WIDTHv1( PAGE LENGTH,TEXT LENGTH,PAPER FEED,SORTING?,SELECTION?22 # OF HEADING COLUMNS,# OF HEADING LINES,# OF BODY COLUMNS,# OF BODY LINES,# OF LINES BETWEEN BODY ITEMS,# OF TITLE LINES,REPEAT TITLE ON ALL PAGES?2< P$(0,0)"PRINTER":P$(0,1)"SCREEN ":P$(4,0)"40":P$(4,1)"80":P$(7,0)"SINGLE ":P$(7,1)"CONTINUOUS":P$(8,0)"Y":P$(8,1)"N":P$(9,0)"Y":P$(9,1)"N"2F ::11)"REPORT OPTIONS":2P D%0:2810:25203Z 2840:5790:(Z27Z13Z8Z21)Z10265093d D%D%(Z13)(Z27):D%1Ĭ1760j3n (D%3D%5)Z13G(0)D%D%(D%3)3(D%5)3x (D%3D%7)Z27G(0)D%D%(D%3)3(D%7)3 D%1029003 2810:Z13Z2726504 D%12720,2740,2750,2760,2770,2780,2790,2730,2730,2730}4 G(0)(G(0)1):G(5)24G(0)66(G(0)0):G(6)24G(0)55(G(0)0):G(7)(G(0)0):G(3)G(0)(4040G(4))80(G(0)0):26504 G(D%)(G(D%)1):26504 G(1)G(1)(Z21)(Z8)4(G(1)1Z8)4(G(1)4Z21):26505 G(2)G(2)(Z21)(Z8)4(G(2)0Z8)4(G(2)4Z21):2650T5 G(3)G(3)((Z8)(G(3)10))((Z21)(G(3)150)):26505 G(4)(G(4)1):G(3)G(3)(G(0)0)G(0)4040G(4)G(0):26505 G(5)G(5)((Z8)(G(5)10))((Z21)(G(5)150)):G(5)G(5)((G(6)G(5))(G(6)G(5))):2650U6 G(6)G(6)((Z8)(G(6)10))((Z21)(G(6)150)):G(6)G(6)((G(6)G(5))(G(6)G(5))):26506 - SUBROUTINE: PRINT REPORT OPTION NAMES6 :XS09:XS5:3):XSD%Ğ6 R$(XS):::6 - SUBROUTINE: PRINT REPORT OPTIONS@7 N$(0)P$(0,G(0)):N$(1)"PR #"(G(1)):N$(2)"PR #"(G(2)):N$(3)(G(3))" ":N$(4)P$(4,G(4))7" N$(5)(G(5))" ":N$(6)(G(6))" ":N$(7)P$(7,G(7)):N$(8)P$(8,G(8)):N$(9)P$(9,G(9))7, F$"PR#"(G(1)):G$"PR#"(G(2)):S44G(4)76 Y0:XAHAH9:X,G(Y):YY1:8@ XS09:XS5:25:N$(XS)::,8J - GET FORMAT OPTIONSb8T ::10)"FORMAT OPTIONS":P$(6,0)"N":P$(6,1)"Y"w8^ D%0:3050:25208h 3080:19:2:5790:(Z27Z13Z8Z21)Z1029208r D%D%(Z13)(Z27):D%1Į:25708| D%731309 3050:Z13Z272920/9 D%12970,2980,2990,3000,3010,3020,30309 F(0)F(0)((Z8)(F(0)0))((Z21)(F(0)9)):F(1)((F(1)((F(1)0)(F(0)0))))(F(0)0):29209 F(1)F(1)((Z8)(F(1)0))((Z21)(F(1)5)):F(0)((F(0)((F(0)0)(F(1)0))))(F(1)0):29201: F(2)F(2)((Z8)(F(2)1))((Z21)(F(2)9))::2920j: F(3)F(3)((Z8)(F(3)1))((Z21)(F(3)F)):2920: F(4)F(4)((Z8)(F(4)0))((Z21)(F(4)5)):2920: F(5)F(5)((Z8)(F(5)0))((Z21)(F(5)8)):2920: F(6)(F(6)1):2920"; - SUBROUTINE: PRINT FORMAT OPTION NAMESF; :XS06:2XS5:1):XSD%ĞX; Q$(XS):::; - SUBROUTINE: PRINT FORMAT OPTIONS; F(6)F(6)(F(5)0):XS05:N$(XS)(F(XS))" "::N$(6)P$(6,F(6)); Y0:XAH10AH16:X,F(Y):YY1:< F$"PR#"(G(1)):G$"PR#"(G(2)):S44G(4)C<& XS06:2XS5:36:N$(XS)::[<0 - GET HEADING TEXTl<: F(0)03270=X Z0:Q(Y,X)Z:Y0Q(Y,X)Q(Y1,X)(J$(Y1,X)):ZQ(Y,X)=b A$(Q(Y,X)):H0:V22(X1):M((G(3))):5530:AX0XX1:3170=l AY0YY2:3250=v A2900= Q(Y,X)(A$):(Q(Y,X)0A$"0")Q(Y,X)G(3)1Q(Y,X)Zĺ(7):3160> 19:2)"ENTER TEXT FOR HEADING"3)J> A$J$(Y,X):H4:V22(X1):M30:5530:A3170> J$(Y,X)A$:(Q(Y,X)(A$)G(3))ĺ(7):19:"TOO LONG. PRESS RETURN"6);:5790::3210> X> Y> - GET BODY TEXT & FIELDS1? Y0F(2)1::2530::1:" BODY: COLUMN "Y1","::" COL FIELD # OR TEXT.":Z0:X0F(3)1\? 2530:2)"SPECIFY FIELD DATA OR TEXT"v? 1:18:J(Y,X)03310? "LINE "X14);::"FIELD";::"/TEXT":3320? "LINE "X14);:"FIELD/";::"TEXT";:? 5790@ (Z8Z21Z13Z27)Z103320@ Z27X0XX1:32909@ Z27Y0YY2:3590]@ Z27X0Ĵ(F(0)0)13140,2900l@* Z273270{@4 Z133400@> J(Y,X)(J(Y,X)1):3290@H Z0:E(Y,X)Z:Y0E(Y,X)E(Y1,X)L((K$(Y1,X)))J(Y1,X)(K$(Y1,X))(J(Y1,X)0):ZE(Y,X)$AR 2500:2)"ENTER HORIZONTAL POSITION"hA\ A$(E(Y,X)):H1:V4X(X1)(F8):M((G(3))):5530:A03280Af E(Y,X)(A$):(E(Y,X)0A$"0")E(Y,X)G(3)1E(Y,X)Zĺ(7):3400Bp 2500:2)"ENTER TEXT":J(Y,X)ĺ:19:20)::6:5X(X1)(F8):"FIELD #"KBz A$K$(Y,X):H58J(Y,X):V4X(X1)(F8):M3026J(Y,X):5530:A3400B J(Y,X)1(((A$)0A$"0")(A$)F)ĺ(7);:3440B K$(Y,X)A$:W(A$)J(Y,X):ZZE(Y,X)(A$)(J(Y,X)0)L(W)J(Y,X)C ZZG(3)ĺ(7):19:"TOO LONG. PRESS RETURN";:ZA$::19:23):3440$C J(Y,X)03580XC 2530:2)"SPECIFY LEFT OR RIGHT JUSTIFICATION"yC 3:28:C((K$(Y,X)))13530C :"LEFT";::"/RIGHT":3540C "LEFT/";::"RIGHT":C 19:Z$:Z(Z$):Z27Ģ3:28:10):3280D (Z8Z21Z13)Z103540#D Z13ĺ:3:28:10):3580ND C((K$(Y,X)))(C((K$(Y,X)))1):3510UD X\DYmDF(5)03670D- GET REPORT TITLED$:2500:1:"REPORT TITLE":X1F(5)::"LINE "X:D.X1F(5)E8A$H$(X):H0:V12X:M40:5530:AX1XF(5)::3270EB(A)XX1:3640(ELH$(X)A$:MEVG(8)13830:- NO SORT REQUIREDiE`- GET FIELD TO SORT BYEj::3:"WHICH FIELD FOR SORTING?":2530EtX0F::2:4XX(F8):" ";:KXĞE~A$(X)::F5790:Z13Z27Ĵ1(Z13)2(Z27F(5)0)3(Z27F(5)0)3770,3620,3270EFZ8Z11KK1F(K0)(K0):3700nFZ21Z10KK1F(KF)(KF):3700xF3720F- DETERMINE IF SORT TO BE ASCENDING OR DESCENDINGF:2530:3:7:"RECORDS WILL BE SORTED BY"::((39(A$(K)))2):A$(K)@G:7:5:"IN ";::"ASCENDING";::"/DESCENDING ORDER":L13820nG5790:(Z13Z8Z21Z27)Z103790GZ13Z27Ĵ(Z13)13690,3830GL(L1)::7:8:L03780G:7:5:"IN ASCENDING/";::"DESCENDING";::" ORDER":3790HG(9)14140:- SELECTION NOT REQUIRED:H- GET FIELD TO SELECT BYjH :2530:1:1:"WHICH FIELD FOR SELECTION?"HX0F::2:4XX(F8):" ";:K1XĞHA$(X)::H(5790:Z133940I2Z27Ĵ(G(8)0)2(G(8)1F(5)0)3(G(8)1F(5)0)3690,3620,3270,I<Z8Z11K1K11F(K10)(K10):3860YIFZ21Z10K1K11F(K1F)(K1F):3860cIP3880IZ- GET SELECTION CRITERIAId:2530:1:"SELECTION CRITERIA:"::"FIELD - "A$(K1):C11(C12):C123990 Jn5::"ALPHA OR SINGLE VALUE";::"/RANGE OF VALUES":2Jx5790:(Z27)2(Z13)3850,4000AJZ103960gJZ8Z21C1(C12)1:C113950J5:"ALPHA OR SINGLE VALUE/";::"RANGE OF VALUES"::3960J2500:C124090J11:"ALPHA STRING OR SINGLE VALUE:":H0:V12:M40:A$H$:5530,KH$A$:(A0)2((A0)(A$""))3940,4010{KZ$"":Y1(H$):ZB((H$,Y,1)):Z$Z$(ZB32((ZB96)(ZB123)))::H$Z$KF10::15::"SELECT";::"/REJECT RECORD WITH STRING"L:17:"ARROWS TO SELECT"::"RETURN TO ACCEPT ";:5790:Z27Z13Ĵ(Z27)2(Z13)3940,41405L(Z8Z21)Z104050CLZ84040LZ21F11::15:"SELECT/";::"REJECT";::" RECORD WITH STRING":4050L:11:"HIGHEST VALUE TO ACCEPT: ":H25:V10:M15:A$(F1):5530 MF1(A$):(A0)2((F10)(A$"0"))3940,4090MM:13:"LOWEST VALUE TO ACCEPT: ":H24:V12:M15:A$(G1):5530MG1(A$):(A0)2((G10)(A$"0"))4090,4110M"- GET # OF RECORDS FROM FILEM,:ZF$B$:W3:5730N6D$"OPEN"B$",L"Q:D$"READ"B$",R0":AF:D$"CLOSE":216,0:AL(AF(AF0)):X1AF:AL(X)X:uN@AF0ė:(7):10:"NO RECORDS IN"::10:B$::"PRESS RETURN TO CONTINUE ";:5790:1760NJG(8)14300:- NO SORT REQUIREDNT- SORT RECORDSN^1013,76:1014,0:1015,144NhZF$"DCK.SORT":W4:5730NrD$"BLOAD"ZF$FO|216,0:::10:6)"GETTING RECORDS FOR SORTING"::M$(AF):K04250OX1AF:M$(X)"":X1000M$(X)"0":X100M$(X)"00":X10M$(X)"000"OM$(X)M$(X)(AL(X))::4260P:D$"OPEN"B$",L"Q:X1AF:D$"READ"B$",R"X:Y1K:M$(X):Y,X:D$"CLOSE"PL14280$PM$,1,AF,AL:43005PM$,1,AF,ALQP- PREPARE FOR PRINTINGP:G(0)0ĺ:5:5S:"PREPARE PRINTER & PRESS RETURN";:5790:Z13Z274300PZ27Ĭ1760PG(4)ĺD$K$:PG(0)0ĺD$F$QQ:AEF(5):F(5)0āX1F(5):((G(3)1)(H$(X)))((G(3)(H$(X)))2))H$(X)(13(G(0)(G(0)((H$(X))G(3)))));:cQF(0)0İ4820uQG(0)0ĺD$G$Q- GET DATA FROM FILEQD$"OPEN"B$",L"Q:G(0)0ĺD$F$Q&X1AF:L$(0)(AL(X)):D$"READ"B$",R"AL(X)R0Y1F:L$(Y)::L$(1)(5)4710,R:Y1F:Z$L$(Y):4790:L$(Y)Z$:WRDG(9)14590:- SELECTION NOT REQUIREDtRN- SELECT/REJECT RECORDS}RXAG0RbZ$L$(K1):Z$""4470RlZ$"":YS1(L$(K1)):ZB((L$(K1),YS,1)):Z$Z$(ZB32((ZB96)(ZB123))):YSSvC11F114510SZ$H$AG1:4570/S(Z$)(H$)4570iSZS11(Z$)(H$):AGAG(H$(Z$,ZS,(H$)))::4570ySC114550S(Z$)(H$)Z$H$AG1:4570SAG1:ZS11(Z$)(H$):H$(Z$,ZS,(H$))AG0:ZS1(Z$)(H$)S:4570TAG1:F1G1(Z$)F1(Z$)G1AG0:4570ET((Z$)G1(Z$)F1)F1G1AG0TTAG04710kT- PRINT BODY ITEMTY0F(3)1:ZH0:Z0F(2)1:J(Z,Y)0ĺE(Z,Y)ZH)K$(Z,Y);:ZHE(Z,Y)(K$(Z,Y)):4620UZA(K$(Z,Y)):C(ZA)0ĺE(Z,Y)ZH)L$(ZA);:ZHE(Z,Y)(L$(ZA)):- LEFT JUSTIFYkUC(ZA)1ĺE(Z,Y)ZHL(ZA)(L$(ZA)))L$(ZA);:ZHE(Z,Y)L(ZA):- RIGHT JUSTIFYU :(13(G(0)0)13G(0)(ZH(4040G(4))));::AEAEF(3)F(4):F(4)0āZ1F(4)::UAEF(3)F(4)G(6)4710V AE(G(5))G(0)0āZ1G(5)AE::V*G(7)46902V4G(0)1ĺ"PRESS RETURN"hV>G(0)0ĺD$G$::"PREPARE PRINTER & PRESS RETURN"VH49168,0:49152,128:49168,0::G(0)0ĺ:D$F$#WRAE0:F(6)1F(5)0āXS1F(5):((G(3)1)(H$(XS)))((G(3)(H$(XS)))2))H$(XS)(13(G(0)(G(0)((H$(XS))G(3)))));::AEF(5)3W\F(0)İ4820eWf::D$"CLOSE":G(0)0āX1G(5)AE:::D$G$WpG(0)1ĺ" PRESS RETURN";:5790Wz:G(8)4770WZF$"DCK.INPUT":W7:5730WD$"BLOAD"ZF$:216,0XY0:XAHAH9:X,G(Y):YY1::Y0:XAH10AH16:X,F(Y):YY1:"X1760OX- SUBROUTINE: RE-INSERT COMMAS & COLONSXZ$""ZB$"":XS1(Z$):ZB((Z$,XS,1)):ZB$ZB$(ZB43(ZB1)56(ZB2))::Z$ZB$XX- SUBROUTINE: PRINT COLUMN HEADINGS YAEAEF(1):YS0F(1)1:ZH0:XS0F(0)1:Q(XS,YS)ZH)J$(XS,YS);nYZHQ(XS,YS)(J$(XS,YS))::(13(G(0)0)13G(0)(ZH(4040G(4))));::Y*** GENERATED PROGRAM - SEARCH SECTION ***Y- CHECK DATA FILE AND DISPLAY MENUY:W5:ZF$B$:5730ZD$"OPEN"B$",L"Q:D$"READ"B$",R0":AF:D$"CLOSE":216,0ZAF0ė:(7):10:"NO RECORDS IN"::10:B$:34,4::"PRESS RETURN TO CONTINUE";:5790:34,0:1760Z- GET SEARCH CRITERIAZ$:2530:W1Z.:1:"SEARCH"::X1F:XWĞ[8A$(X):::F4:"WHICH FIELD FOR THE SEARCH?"6[B5790:Z8Z13Z21Z27Z10Z114930F[LZ27Ĭ1760[VZ13WW(Z8Z11)(Z21Z10):WF(W0)W(W(F1)W0)(W(F1)):4910\`2500:18:"WHAT STRING FOR THE SEARCH?":A$S$:H0:V18:ML(W):5530:S$A$:S$""A0Ĵ(A0)14960,4900\jZ%1:Q\t2490:4:J$15)"SEARCHING":22:9)"PRESS ESC TO END SEARCH"\~D$"OPEN"B$",L"Q:D$"READ"B$",R"Z%:XZ1W:W$::(W$)(S$)ĺD$"CLOSE":5020\ZA0:Y1(W$)(S$)1:S$(W$,Y,(S$))ZA1]Y:D$"CLOSE":ZA1İ2430:ADZ%:3:11:AD:SAF:2040)](49152)155Z%AFL]49168,0:Z%Z%1:Z%AF14990]::(7)"END OF SEARCH"::"PRESS RETURN TO CONTINUE ";:ZA$:ZA$(13)5040]1760]*** GENERATED PROGRAM - PURGE FILE SECTION ****^::"PURGING THE FILE WILL REMOVE ALL"::"EMPTY, (DELETED), RECORDS":X^"AND RENUMBER THE REMAINING RECORDS"::^"PRESS RETURN TO PURGE THE FILE"::"OR ESC TO RETURN TO THE MENU ";:5790^Z13Z275070^Z27Ĭ1760^:W6:ZF$B$:5730"_ D$"OPEN"B$",L"Q:D$"READ"B$",R0":AF:D$"CLOSE":216,0T_:"PURGING THE FILE"::"DO NOT PRESS RESET"r_X1:YX:D$"OPEN"B$",L"Q_(XX1:YY1:D$"READ"B$",R"X:Z1F:D$(Z):_2D$(1)(5)ĺD$"WRITE"B$",R"Y:Z1F:D$(Z)::5210_<XX1:XAFYY1:5210.`FD$"READ"B$",R"X:Z1F:D$(Z)::D$(1)(5)5180T`PD$"WRITE"B$",R"Y:Z1F:D$(Z):`ZXAFĺD$"WRITE"B$",R0":Y:D$"CLOSE":1760`d5160`n*** GENERATED PROGRAM - CHANGE DATA FILE NAME ***`x::10)"CURRENT DATA FILE IS:"::B$::(a2500:A$B$:H0:V10:M64:255,0:5530:A5270\a1:19:"PLEASE WAIT":Z$A$:5610:B$A$:E5250ha:1780a- SUBROUTINE: MENUaJ$:2490:21:3:"ARROW OR NUMBER TO SELECT"::3:"RETURN TO ACCEPT";:M11aXS1M2:Z(XS)0::Z(M1)1bXS1M2::42XS:3:XS") ";:Z(XS)1Ğ.bZ$(XS)::Rb19:5790:Z13(Z27ZZ123)ıjbZ27ZZ124Ĭ1760bZ8Z11M1M11M2(M11):5300bZ21Z10M1M11M2(M1M2):5300bZ49Z48M25330bM1Z48:5300c- SUBROUTINE: CATALOG DISK>c::10)"CATALOG DISK":::4)"SLOT #"::3)"DRIVE #"Zc":5:12:" ";:12:ZA$nc,ZA$(27)5480c6ZA$:ZA(ZA$):ZA1ZA75410c@:7:12:" ";:12:ZA$:ZA$(27)5410cJZA$:ZB(ZA$):ZB1ZB25440cT5490#d^D$"CATALOG,D"ZB",S"ZA:49168,0:49152,128:49168,05dh216,0::340wdr216,0:62248:::2)"UNABLE TO CATALOG SLOT "ZA", DRIVE "ZBd|7:6)"PRESS RETURN TO RE-ENTER"::6)"OR ESC TO ABORT ";:ZA$:ZA$(13)ZA$(27)5490e1(ZA$(13))2(ZA$(27))5400,5480e- SUBROUTINE: INPUT`e37969:A$""YSJ:XS1(A$):YS,((A$,XS,1))128:YSYS1:ePA,H:PB,V:PC,M:PF,1:37632eA0:(PG)27A27(PH)eA$"":(PD)M(PE)05580eXSJ(PD)J(PE):A$A$((XS)):f:H1:V1:A$M(A$)) f;f- SUBROUTINE: CHECK FOR VALID PRODOS NAMECfE1fXS1(Z$):NA((Z$,XS,1)):E((NA64NA91)(NA46)(NA47NA58XS1))E1:f(Z$)15E0E1:5700fE0:ff&f0f:#gD19:1:(7)"INVALID NAME. PRESS RETURN TO TRY AGAIN":5790:19:1:39);)gNCgX- DISK ERROR MESSAGEgb216,0:62248::(7):D$"CLOSE":10:"UNABLE TO ACCESS"gl:10:ZF$:::2:"CHECK DISK AND PRESS RETURN TO RESTART":gv12:"OR ESC FOR MENU":5790:Z13Z275750%hZ13ĴW1810,1860,4140,4200,4860,5070,4730/h1760Gh- SUBROUTINE: WAITlh49152,128:49168,0:Z(49152):h*** GENERATED PROGRAM - CUSTOMIZED VARIABLES ***9i"5810 G$(0)="Q$"S = SEARCH"Q$":B="B":F="F":C$="Q$C$Q$":IFF>9THENDIMA$(F),B$(F),C$(F),D$(F), L$(F),A(F),B(F),C(F),L(F),M(F),J(9,F),E(9,F),K$(9,F)"ki"5820 ";:X14:"A$("X")="Q$A$(X)Q$":";::iF4ĺ"5830 ";:X58:"A$("X")="Q$A$(X)Q$":";::iF8ĺ"5840 ";:X9F:"A$("X")="Q$A$(X)Q$":";::j"5850 ";:X18:"L("X")="L(X)":";::" 8jF8ĺ"5860 ";:X9F:"L("X")="L(X)":";::j"5870 B$="Q$B$Q$":Q="Q":K$="Q$K$Q$":K1$=K$:IFNOTBTHENK1$="Q$"PR#0"Q$j"5880 ";:X14:"B$("X")="Q$B$(X)Q$":";::jF4ĺ"5890 ";:X58:"B$("X")="Q$B$(X)Q$":";::"k F8ĺ"5900 ";:X9F:"B$("X")="Q$B$(X)Q$":";::Tk"5910 ";:X14:"C$("X")="Q$C$(X)Q$":";::k F4ĺ"5920 ";:X58:"C$("X")="Q$C$(X)Q$":";::k*F8ĺ"5930 ";:X9F:"C$("X")="Q$C$(X)Q$":";::k4"5940 ";:X1F:"A("X")="A(X)":";::l>"5950 ";:X1F:"M("X")="M(X)":";::-lH"5960 RETURN"UlR"5480 POKE 216,0: HOME: GOTO 1780"ul\"5970 PRINT"Q$DE$Q$": END"lf6010lp:(4)"PR#1":QZ1F:QZ" "E$(QZ)::(4)"PR#0":1040: 5 SPACES mz"5980 HTAB 1: VTAB 17: PRINT"Q$"ERROR--CHECK DISK DRIVE"Q$Km"5990 PRINT "Q$"PRESS RETURN TO CONTINUE, ESC TO QUIT";Q$";"m"6000 GET ZZ$:IF ZZ$<>CHR$(27) THEN HTAB 1:VTAB 17:CALL -868:VTAB 18:HTAB 1:CALL -868:GOTO 2380"m"6010 HOME:END"m1340${% .ɠɠ)` ɍɔ ɛ Эɕ ӽ Ɉ Ʉ \ ɉ6ɠКІHh  \ 詈Ўɬɺɠ ${%${% ${% ``ʩ`PB7[\]^_`abcˮԠŠŠéì㮠䬠Ǡ̠"ȱՠƹҠڠȲՠ̠ȳՠ ̠!ֱՠҠԠֲՠ̠ؠՠ ؠǠ ؠՠ ٠ՠ РՠԠՠƠΠñՠòՠ*àՠñàŠҠҠ٠ՠİàԠ$ԠՠĠԠҠΠ ƠՠҠŠ ؠؠñԠç ؠòȱŠȲȳֱֲ%ҠààŠҠҠ!ҠԠԠҠàĠӠĠӠĠؠƠԠҠ̱ؠϠԠΠŧؠؠѠ±!ƬؠԠҠ͠ РѠ̱±ؠؠؠԠҠ̲ؠϠԠΠŧѠ²!ƬؠԠҠ͠ РѠ̲²ؠ ؠ̳!ƬؠԠҠ͠!ĠƠРɠԠƠ!ƬؠŠҠΠؠŠ̳ԠԠĠҠ٠Ԡ$ΠĠĠԠũ РѠ&̠ԠĠĠŠũ РŠ³̠Ҡ#̴Ƭ٠Ӡ͠٠ϠŠ̴Ѡ"àԠàǠĠĩ ³Р Š ؠò ñŠԠנ ҠР Š!ؠؠŠƠҠԠ Ѡ!ƬؠԠҠ͠ҠԠԠҠΠ ŠԠנ ҠР ŠؠŠƠԠ ѠҠԠԠҠΠ à̠ĠũĠР Š!ؠؠŠƠҠԠ Ѡ ҠؠػҠҠҠԻ٠Ҡ à̠ɠԩɠР Š٠ؠԠԠ Ƭ٠ԠҠ͠ РŠƠԠŧ Š٠ؠ٠ŠƠҠԠ ѠؠؠԠӠ!ƬؠԠҠ͠ ŠŠΠ!ƬؠŠҠΠ#̶ƬؠԠҠ͠ !ƬؠŠҠΠ ؠؠԠ̠Š̶ؠҠԠ٠Ҡ àŠ٠٠Р Š#ؠŠƠҠԠ à!ػԠҠҠ!ҠŻĠŠ ؠػҠҠҠԻ٠ҠػŠҠ Š"ԠĠӠ$РàΧԠԠҠŠΠƠҠ ٠ ѠΠР Š ٠ Ѡ$̠РΧԠԠ̠ à&ŠԠĠӠؠؠΧԠԠѠԠ!ƬؠŠҠΠҠԠԠҠΠ à*ԠŠΠΠ̠ ԠȲŠҠȳֲؠȱԠҠȲԠȳֱֲ%ҠààŠҠҠ ؠ$̱ƬؠԠҠ͠ҠԠԠҠΠؠŠ̱ԠԠŠҠȲȳֲ%ҠààŠҠҠؠ,̠ҠȠӠ̠ ؠ ̷ƬŠ̷ Šؠؠ̵à٠ԠӠ٠ Ƭ٠ԠҠ͠!ƬؠŠҠΠؠŠ̵ԠŠԠ!ƬؠŠҠΠӠҠ àԠààààԠ ààefg b Z xXEXDJG ŐDDҢ5 А m:e`ST`ST`:,LE΅`$`%``e`45Fiȹi FLDLDL`(ȽL3)`455 `Dii`˔ڔ%5ɩ` GG VWLƑ ЍVWLƑ4VW   & 56й`ii`Hȱhs z 4zs56` L<riirGiȱirr `ooipiq0 HHpqhhoooooд5 ߍ56 O`hhGih iȹiȱ`Hȱhimmijjhh `hhL+s) z) `z)8`sz`t{`z8`s`zgHHHHtu{|gg L'8hhhh`s ꢥ #렔z `6͋ 5͊5L`ijklmnopqrstuvwxyz{|}~CM1NK1VNJ:PnS ?g9-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|| @|||||||||||||||||||||||||||||||||||||||||||||||||||||||||| @g9-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|| @|||||||||||||||||||||||||||||||||||||||||||||||||||||||||| @g9-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|| @\?ss|||||||||||||||||||||||||||||||||||||||||||||||||||||||||| ?#@@@g9-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|| @\ @ss|||||||||||||||||||||||||||||||||||||||||||||||||||||||||| ?#"@@@g 9-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|| $@\ @ss|||||||||||||||||||||||||||||||||||||||||||||||||||||||||| ?#&@@@g 9-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|| (@\ @ss|||||||||||||||||||||||||||||||||||||||||||||||||||||||||| ?#*@@@g9-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|| ,@\@ss|||||||||||||||||||||||||||||||||||||||||||||||||||||||||| ?#.@@@g9-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|| 0@\@ss|||||||||||||||||||||||||||||||||||||||||||||||||||||||||| ?#1@@@g9-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|| 2@\@ss|||||||||||||||||||||||||||||||||||||||||||||||||||||||||| ?#3@@@g9-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|| 4@\ @ss|||||||||||||||||||||||||||||||||||||||||||||||||||||||||| ?#5@@@g9-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|| 6@\"@ss|||||||||||||||||||||||||||||||||||||||||||||||||||||||||| ?#7@@@g9-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|| 8@\$@ss|||||||||||||||||||||||||||||||||||||||||||||||||||||||||| ?#9@@@g9-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|| :@\&@ss|||||||||||||||||||||||||||||||||||||||||||||||||||||||||| ?#;@@@g9-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|| <@\(@ss|||||||||||||||||||||||||||||||||||||||||||||||||||||||||| ?#=@@@g9-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|| >@\*@ss|||||||||||||||||||||||||||||||||||||||||||||||||||||||||| ?#?@@@g 9-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|| @@\!,@ss|||||||||||||||||||||||||||||||||||||||||||||||||||||||||| ?#@@@@g"9-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|| A@\#.@ss|||||||||||||||||||||||||||||||||||||||||||||||||||||||||| ?#A@@@g$9-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|| B@\%0@ss|||||||||||||||||||||||||||||||||||||||||||||||||||||||||| ?#B@@@g&9-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|| C@\'1@ss|||||||||||||||||||||||||||||||||||||||||||||||||||||||||| ?#C@@@g(9-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|| D@\)2@ss|||||||||||||||||||||||||||||||||||||||||||||||||||||||||| ?#D@@@g*9-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|| E@\+3@ss|||||||||||||||||||||||||||||||||||||||||||||||||||||||||| ?#E@@@g,9-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|| F@\-4@ss|||||||||||||||||||||||||||||||||||||||||||||||||||||||||| ?#F@@@g.9-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|| G@\/5@ss|||||||||||||||||||||||||||||||||||||||||||||||||||||||||| ?#G@@@g09-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|| H@\16@ss|||||||||||||||||||||||||||||||||||||||||||||||||||||||||| ?#H@@@g29-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|| I@\37@ss|||||||||||||||||||||||||||||||||||||||||||||||||||||||||| ?#I@@@g49-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|| J@\58@ss|||||||||||||||||||||||||||||||||||||||||||||||||||||||||| ?#J@@@g69-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|| K@\79@ss|||||||||||||||||||||||||||||||||||||||||||||||||||||||||| ?#K@@@g89-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|| L@\9:@ss|||||||||||||||||||||||||||||||||||||||||||||||||||||||||| ?#L@@@g:9-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|| M@\;;@ss|||||||||||||||||||||||||||||||||||||||||||||||||||||||||| ?#M@@@g<9-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|| N@\=<@ss|||||||||||||||||||||||||||||||||||||||||||||||||||||||||| ?#N@@@g>9-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|| O@\?=@ss|||||||||||||||||||||||||||||||||||||||||||||||||||||||||| ?#O@@@g@9-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|| P@\A>@ss|||||||||||||||||||||||||||||||||||||||||||||||||||||||||| ?#@P@@@gB9-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|| P@\C?@ss|||||||||||||||||||||||||||||||||||||||||||||||||||||||||| ?#P@@@gD9-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|| Q@\E@@ss|||||||||||||||||||||||||||||||||||||||||||||||||||||||||| ?#@Q@@@gF9-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|| Q@\G@@ss|||||||||||||||||||||||||||||||||||||||||||||||||||||||||| ?#Q@@@gH9-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|| R@\IA@ss|||||||||||||||||||||||||||||||||||||||||||||||||||||||||| ?#@R@@@gJ9-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|| R@\KA@ss|||||||||||||||||||||||||||||||||||||||||||||||||||||||||| ?#R@@@gL9-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|| S@\MB@ss|||||||||||||||||||||||||||||||||||||||||||||||||||||||||| ?#@S@@@gN9-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|| S@\OB@ss|||||||||||||||||||||||||||||||||||||||||||||||||||||||||| ?#S@@@gP9-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-||9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|9-|| T@b X76767689:A:X,A:X:1,0,4,0,18,63,32,100,45,21,54,30,7,0:232,252:233,29::0,0:62454((1)7)1:R199:24:R12:1140,96:R:20SEPT 1989 DISK (VOL 10 /NO 9) 6 DB CONSTRUCTION KIT WORDSEARCH WIZARD APPLEWORKS GRADESHEET LINES AND BRANCHING THE TINY MAILER, PART 1 CHECKIT 4 DB CONSTRUCTION KIT RUN DCK WORDSEARCH WIZARD RUN WORDSEARCH.WIZ THE TINY MAILER, PART 1 RUN TM.ADDRESSES CHECKIT RUN CHECKIT @ This disk is a double-sided disk. All of the programs that will run under ProDOS are on the ProDOS formatted front side of the disk, and all that will run under DOS 3.3 are on the back side of the disk. Some programs will run under both operating systems and are included on both sides of this disk. You're currently using the ProDOS side of the disk. @ Before using the programs on this disk, you should make a work disk for each program. This can be done by first making a complete copy of the disk with one of the following programs: * COPYA (DOS 3.3 System Master) * FILER (ProDOS Utilities Disk) * The Apple IIc or Apple IIGS Utilities Disk * Any Disk Copy Program Then boot the copied disk and delete all of the files that are not related to the program by using the DELETE command. The System Utilities program also has an option to DELETE files. @ You will not be able to delete the titles that we've placed in the catalog to separate files. However, these will not interfere with the operation of the programs. The screen displays that follow show the files needed to create working copies of each program. @ To create a work disk for DB CONSTRUCTION KIT, remove all but the following files from a copy of this disk: DCK DCK.INPUT DCK.SORT These programs are included on both the DOS 3.3 and ProDOS sides of this disk. @ To create a work disk for WORDSEARCH WIZARD, remove all but the following file from a copy of this disk: WORDSEARCH.WIZ These programs are included on both the DOS 3.3 and ProDOS sides of this disk. @ To create a work disk for APPLEWORKS GRADESHEET, remove all but the following file from a copy of this disk: GRADESHEET This program is included only on the ProDOS side of this disk. This program is not included as an option in the program menu because it requires special instructions. See the documentation for details. @ To create a work disk for LINES AND BRANCHING, remove all but the following files from a copy of this disk: SUMFIVE REGISTER These programs are included on both the DOS 3.3 and ProDOS sides of this disk. These programs are not included as an option in the program menu because they require special instructions. See the documentation for details. @ To create a work disk for THE TINY MAILER, PART 1, remove all but the following file from a copy of this disk: TM.ADDRESSES This program is included on both the DOS 3.3 and ProDOS sides of this disk. @ In addition, we've placed a copy of the CHECKIT program on this disk. CHECKIT is a utility published in every issue of Nibble that aids in typing in programs from the magazine. See the Typing Tips in the latest issue of Nibble for details on using CHECKIT. The One- and Two-Liners are also included on this disk. @ The source code file for the major assembly language program has been included on this side of the disk. This file is included expressly for experienced programmers. This file cannot be used unless you own the appropriate assembler. WARNING: Do NOT attempt to run the following source code file: DCK.INPUT.S (The Assembler) @ # L !C_" %k"l" (#M8( % ) L*"m"n" (_7, )7(P0 ( @X p 8  u"!_"f"0 ~&f"0 %o"p" (,) &q"r" ( %L*")0I0hx H( + %Щ ߩu"L! )L! 8'  )ɀ)4,- U JNT) u"Ls"t" ( !` ^"M)Fi/ b"3 h"i"j" e" iL X>"L;"ίΠ`v""""""*$ Fk%YeQP!/RB}QBiBB}\ }FEL,#> ȏ6 . ) ɘ"    L:#:#ŠϠĠԠ  m# m# J Qڨ)̰}] нȱ ̀𩠙 i V N c ɘ\   VG+ #X ɛL ' 0% '8 Jm ʈ0  0ŠϠĠ͢Š͠͠ϠŠŠϠĠخ͠ ͍B B(8`=YYZLYLYLY뿭` 8!@8` %MNЩUMߩ  L 5   8 0 8  `0 / X& & +&&7&P^&0`ŠӠֱǭԠŠҬî̠ӠĮʎ1|&… (n}&Dž (\%Tz&Lc()8= (J 8'z&'{& 3((ʎ1|&|&|&3223 ')L&18|&"m11 2H22h2舌|&|&12H)M0 h10200I20h2 (`LE%12 `_'"L  <8# ȱ)ɀ  )( ` (Xp< @( )m((.(( M(i  ``) |'(j21 z& {&!` ({&z&(i({&(( CBDFGE (r&$ 3(,}&r& … 3(ŅL&JJJJ`Ϡ'8`r&h)hrȱȱȱȱ0]cȱeem*ȱ*ȱ**ȱ**ȱ* )* * )L(`L?* *Ll) ) L( )Ll)8e` ,$`ee` `* G** c*` v* G* c*`hh8`8`***`}*`e`H)hJJ*0JJ)` (< ( < *? ( < (? ( < (? ( <*? * **? *? *? ( < *? ( <.<ʆ>,=?BC8 é&'112`HB-9F 3"aɿ LLB Nϰ H  @h( L Lj  @`eLJCAB@=?<>=?<>CAB@?A` 1 L  <>`ڢF]PL8i m L   6< L  BLRAM' hLDLآ <B*IBGF08Lé'+8H <,``h(`@ڍL3hh@ihAiH(ؠȱ@JJJJq@)@qvȱ@Hȱ@Ah@@cqe J) LL LJiB LJ) BxNhHHHHL(  ްƠx@BEOD  ް(`( C)CJJJl`B g-`J,~@~@}J@` ߩ%S @ ~`E hhhߺ0 h ߐ( ߐ ߐ  0 HϭߍLпllllhh8` Q)T'P#) ɺiL? )?      `l@Hȱ@IױHXATȱH ɯȩ׍̎5H)/@a)_ .0 :A[8@`,뎎׮Б` L ` @>O)I38 I`aם`K8`@Nȱ@O@ IiNȽבN)/ȩ/N`@[ WHJjjjhA D'KI؍0JHi 뎁`C8` @ 3N@) K莭 ⭪i`0 ]; 뮁ٝ٘ 0 W,0 .H hȑNWȮّNW8`ٍّNΨ0NN` G8`F@ 0 H LK8`6 7I8`FHGH hGhF܌ բFܽܕF芝ܝ 밶67 8܅I m9IHHyHȘI Lܝ` @_@ g@Ю׍O)mיOʈ@mȱ@_ȱ@iklbJtKuO)5OI0ܢܽ eL'A* 7`aFG (CD Lz܅IN mAIH` pm mI0LM AOHJFKG 밳JK 밨C%܈@" T)Ii)܍N*܍A'ܮ( 4 䭐 $H %HFFHGHG 됬`R8`)` AHO` 'Q'܅IHHOOЍO@`8 ` ͉% ΉQ8`܅I `L܍MN h8D`F` alH)HFȍJHGK $%܍&܍!ܢ8* J8` L ܝ:)I 'ܝ6`B8iNFLGM`B܅IH3H ( )ȱHΨ`Ί8AeHI SB60I ٙGٙEFJCʈ h猪`8m0`,0H hi PȽΨhٍ0GF8yאFG  $0 K01 E8`1ݺ00 ] 0ʩ 谼 谷`12)1`0`Ȏi 0U`)8`Ψ` W |G 4A)H ܝʈh٭0٭)ܝ٭*ܝ٥F٥G٭'ܝ٭(ܝ`)َ 8ʈ` 0ٝ)i `8`R ꍌvw zNمFمG < Ό0 FGL鮁0 ٭w٭vٽ8`H8`  ,v w 8` vw `ٽJJJJ`H͌hn)NjNjNjN. GH͌ z;٭ *Nۙ۰ڙک `Z8` G# ,`w .w .w .w8۰*Jv۩ ٰvw`JJJJ;i z묁͖ zٍ0  `H8` `ٍyٍiB0H0FG h0`FG `ϩBxED0C ް(`(8`ؑ@`M8`8@ؐʈI묂)v8vv L} LةC8`؍)@ i)v8vyJ ^ ؅F Ls) +%J(a .FإGؐ.` .JHIH IL3FHGI ҭJjHIHB>IؙJJ [: IL}HIHI`JKJK`FHIG ( Ȣ؝}؈JL)eKM`)` J vJ͛ $0 ΊJFJL8`JGBJ T FإG`BH TFإG`,H hHB؅F  ؅GxDE؍00C ް(`(8` zL+J  :"L zH  : 9ؙ` @ P8`K8`B8` H؈OJJJJحm) ) )Ю ЪG `F $ ᭔ع+ؠ 6H  Rh8` 䮁ٽ ٬ؠ@` ( H )8`)i п` H h)N$% LL L L 6 &pJ덟 )@።NJOK 6iKKΞΞ IJΟ JФ̭JjHFIH HIGxKE ް((H hH h8`8@ȭ@L6쬂8NNO 8 ؍JL`RΞʱLN1MOMEKP/MEKΞL;L-M O,p莝eNNO(`JNKOL 6/ &P L8 } [ؑJ`L@ȱ@ `@Nȱ@O`؝}}vIvؐ` jzؽ}؝v j ) j؝zv؈` ` H Th)N@ ;; L  6$ )bJ ] ) H 8hL )  )حJjIwHIvH؊ PLKΞʱNLMO MЈMEKݸP%MEKΞL( O, PeNNO J(` C  7 2JvHIwHI؊ LI  .` A Hv ع Hw ؙ؊ؠIhHIhH  iع `  عiعi` )؍0CGHFHBFGx ް(8hFhG`@4͔ L @Ai ׭2` . R#ع؍0 ]讁)`.@+ i 8` L )߹0 )p )@ ) ȩ ؝H0JK 방 LMJKFG 嬂؍b؍c؝d ؝_ vO) vO )حI͖ z`H@h`h``N8`  ) ;⬂Ȣ؝z@zݚ@ʈLJ KIJHȢݚ h魚)Jn 8 δ ؍ ؍ \H8 ع)ꭱJJJJ Ȣ؝I؈ 6h(8H = h(8Hh(`ؑ@`@ȱ@ ` B@8ZO h鮁ٍٍٍoHٍn8bhcOJJJJO)O@` %I -m) 0@O)N8` @LL =@ /ȹP8` i` =ם0 /B =)( ȹ`8m8m@8` G8`F Pm)@N8`O)@J /טyרםOO)׍O`a 밑 LȹL@ȅH@IL,0` G קּ= ]H.m)N 0 H`aO)@LP8` \᮰ ֩OCDC z L䬁yٙ٭yٙ٩`K GE`FaG 6%&N    ܮ `J HH hh` 0 @ LGL r`̴Yܝ ݝ0̴ȩFG   0` ܅F݅G ` { rͬ 밽܅F݅G ` {* r% L`L뮰HH hFhG܍ݍ 8 `FHGH  hGhF`ݹܙ݊`@Bɼ>K@J5 {9X(K {XXK تKo`V8`no` D on {I9XX`)HJJJh`OeNeO࿰ {9XАO`@ȭ@` ON aNJKO`HхhꭋILhH),fx8 (8` ԍ`@Ae J m00[roIIJK,-NOPQRSu' @   !"#$Ԡ͠(C)1983-87APPLELKL`BLL ެެެެެެެެެެެެެެެ(C)APPLE'83xLLM Mh@8nЍLޭ 0J @,,LRP׽8H  ): e: y8鰕:Jjjj<)yאi8i;i(*=>hPם8`;Zx3QZYXXWV[HEVhEhH)IWHPHHHAHHHLaVEWLӿ`` ֽ ְ& .Vӈ  JJJJH 8h Ei 8EX`'8`jӍWӥC)p> pӥCYӍY 轊( ( ӈBV ( ӭp0 \BkJ ՠ@iӦ> Ӑi'j:ZH i@ioZZH h ѐȭnWǥBJ Ӱ8XӦ>` Ր+>*L o % ԽYӍZӭoӝY 3Ѡ шNZ`rZLkӭZӍq8r7IZӐiZkӐk 8 ѹs ӭq ѹ| kн Z)*>>` @ $(,048<@DHLPTX\`dh 0ުlptx| 0($ p,&"op8`kkV꽌ɪɖxlӽ*kӽ-kәmMlӈ 꽌ɪ`8` ZԍsԍԍԍԥDEԌ8TԌ8WpԌqԠ 7I꽌ɪ꽌ɭ蠪:љVE:8`]ѾV]H)]ѾV]ҙ)]ѾT]ҙ)] >8hUD` ԝY`> Hh݌(`HCJJJJ)*h`8LխӅ:HhHh Ո թ թ ՘VYҪҦ>:Y)Ң`;R?AJ;<ȰY)Ң`Y?)Ң`ȐҰ ;HhHh=Ң`Hh `Hh`DEiȍ0֌18V%֌&8V֌֠)HV)hH)hHIhդD?DRIDQD)҅; ?JDQD]ՎՎՎ`MY pӭY)p  ӭp`C)`BFGV 8``  / XʩXύX X %   % ɍRH hɛɘɉɈ $ Ld :Ldې)ɮ۰ɺ' Ld  : X ( % ɛ$ɘɉ ɈL :Lɍ)ې)ɮ۰ɺH h 'L  ġLL ̹L)'L ȳL O'F ʻ ̹(((L $ʩ $$ $L `ީ % K@D EFby LҠؠӠ΢ϠԩҠŠƠԠԠŠӢɯϠҠůȠԠĠ  0h)ύh0HHHH " ׍hhhhhhh .hh8`JIMJAYKERRY&MIKE  X(6):TP5: 5% SALES TAXB SALE TYPE SELECTION MODULEd::14);"TYPE OF SALE:"::("1) CASH"::"2) CHARGE"::"3) REFUND"::"4) TOTALS"::"5) QUIT"2:"CHOOSE ONE: ";:A$:TY(A$)<TY1TY5ĺ(7):30 FTY90,90,310,460,550* P CASH/CREDIT SALE ENTRY MODULE; ZN1:S1:TS0b d:"PRESS RETURN AFTER EACH ITEM." n"ENTER RETURN ALONE FOR LAST ITEM.": x"ITEM #";N;" ";:A$:X(S)(A$) X(S)0ī160 NN1:SS1:S6120 TOTAL THIS SALE S1N:TSTSX(S):S( TS((TS.005)100)100F :8);"TOTAL SALE: ";TS TX(((TSTP100).005)100)100::9);"SALES TAX: ";TX:TETSTX::" TOTAL AMOUNT DUE: ";TE TY2ī260 :" AMOUNT TENDERED: ";A$:TD(A$) :12);"CHANGE: ";((TDTE.005)100)1003 NTNTN1:GTGTTS:TTTTTX> :560F 30b  CHARGE SALES MODULE NTNTN1:CTCTTS:TTTTTX :560 "30 , REFUND/CREDIT ROUTINE 6:"PRESS RETURN AFTER EACH ITEM." @"ENTER 0 FOR LAST ITEM.": JN1:S1:TS00 T"ITEM #";N;" ";:A$:X(S)(A$)R ^X(S)0NN1:SS1:S6340k hS1N:TSTSX(S):S rTS((TS.005)100)100 |:"TOTAL OF ITEMS: ";TS TX(((TSTP100).005)100)100:6);"SALES TAX: ";TX:" TOTAL CREDIT: ";TSTXJ ::"1) CASH REFUND"::"2) CREDIT TO ACCT"::"SELECT ONE: ";A$:RF(A$)u RF1NTNTN1:GTGTTS:TTTTTX:430 CTCTTS:TTTTTX :560 30  PRINT TOTALS :(3):14);::"SALES SUMMARY": :19);"ITEMS:";NT:GT$(GT):14);"CASH SALES:";GT$C:CT$(CT):12);"CREDIT SALES:";CT$n:XGTCT:X$(X):16);"SUBTOTAL:";X$:TT$(TT):15);"SALES TAX:";TT$:XGTCTTT:X$(X):10);"TOTAL RECEIPTS:";X$::10);"PRESS RETURN FOR MENU";:Z$30&:/023:"PRESS RETURN TO CONTINUE ";CH$: :N$"Your Name":A$"Your Street Address":T$"Your Town, State, Zip":D$(4):S$(27)(66):U$(27)(81):(4)"PR#1":S$;U$D$"PR#1":I12:N$;:(25):N$:A$;:(25):A$:T$;:(25):T$::I:D$"PR#0":"Again? (Y/N)":M$:M$"N"M$"n"ī20 ߅ii _iiiiiiЩ`  ȱȱ 0 ` L}  A$(10)X19+"ITEM=";A$(X)1(?2A$(10)""\<"SORTING....":768A$(1)gFX19rPA$(X)xZ~d ******* 8/08/86 *******;* ProDOS STARTUP *X* BY OWL *u(* COPYRIGHT (C) 1987 *2* BY MINDCRAFT PUBL. *<* CONCORD, MA 01742 *F***********************P16384Z::D$(4):(21)d9703 n ********** GET HI-RES SCREEN AND SET DISPLAY SWITCHESd x11:3:"MINDCRAFT PRESENTS NIBBLE SOFTWARE" 15:13:"PLEASE WAIT..." D$"BRUN STARTUP.SCREEN" G(16297)(16300)(16301)(16304) ********** READ INFO FROM NIBMENU TEXTFILE 11201 P$(20): P$ = PROGRAM NAME _ S$(300):S$ = LINES OF TEXT INSTRUCTIONS RC$(20): RC$ = COMMAND USED TO RUN PROGRAM MP$(20): MP$ = PROGRAM NAME TO APPEAR IN MENU D$;"OPEN NIBMENU" D$;"READ NIBMENU" A$: A$ = DISK NAME= NA$"NIBBLE "A$:22:20((NA$)2):NA$:1h NP: NP = NUMBER OF PROGRAMS ON DISK~ I1NP:P$(I):I MM: MM = NUMBER OF VALID MENU ENTRIES "I1MM:MP$(I):RC$(I):I ,S$ 6I0 @II1:768,S$(I) J(S$(I),1,1)"#"350 T320! ^D$;"CLOSE"^ h(1101)6İ1080: ********** UPPER/LOWER CASE ROUTINE r ********** FIRST TEXT SCREEN |::3 "Thank you for ordering the Nibble":A$;"!": "The programs on this disk are:": Z1NP:5:P$(Z):Z 1030:FLAG$"ESC"ī600M  ********** CYCLE THRU NIBMENU TEXT SCREENSU A1^ :3 S$(A)"@"İ1030::3:((FLAG$"ESC"))490:600 S$(A)"#"510 S$(A) AA1:460  ********** LAST TEXT SCREEN BEFORE MENU :36:"Thanks again for your order !")12:R6:"ALL PROGRAMS ON THIS DISK ARE"{&6:"COPYRIGHT (C) 1989 BY NIBBLE"06:"MINDCRAFT PUBLISHING CORP."56:"52 DOMINO DR, CONCORD MA 01742"::17:5:"UNAUTHORIZED COPYING IS ILLEGAL"D1030$N ********** SET UP MENUJXMEMM2:X$(0)" ":X$(1)"-->":b1:1:"Selection: : Instructions"l3:"----------------------------------------";v5:20((A$)2):A$I1ME2:61I:8:I". "MP$(I):61(ME1):8:ME1". Catalog Disk"861ME:8:ME". Quit"l21:"----------------------------------------"23:1:"Type number or use arrows, then ";:PX10:SX4:SL1 ********** SELECT CHOICENSL:OSSL:780:Z0:24:868Y1:12:SL:49168,0:16384,128::Z$((16384)128):Z$"1"Z$(ME)SL(Z$):NOS:780:700Z(Z$(21)Z$(10))(Z$(8)Z$(11))10(Z$(13))20(Z$(27)):Z950Z20ī380SLSLZ(Z10):SLSLME(SLME)ME(SL1)NOS:780:Z107008002 ********** PRINT POINTER SUBROUTINEO 61N:SX:X$(SLOS);:r ********** SELECTION ROUTINE SL(ME1)İ860:600*SLMEİ900:SL1:780:68042:1:" "::2:1:RC$(SL): > ********** EXECUTE A VALID MENU CHOICE,H49168,0::1100:D$;RC$(SL)PR ********** CATALOG SELECTED m\:49168,0::D$;"CAT":f24:7:"Press to continue";p49168,0:49152,128:z ********** QUIT SELECTED22::958:"Do you really want to quit? (Y/N)";:49168,0(49168,0:49152,128Z(49152)249(49152)217Ĺ49168,0::1100:` ********** SOUND BUZZER FOR WRONG KEYSTROKE EQ110:EY(16336)(16336):EQ: ********** ERROR HANDLING ROUTINE:(1101)6ė:D$"PR#A$300"_(222)6(222)8Ģ19:(7);"Disk Error. Please insert Nibble disk":101019:(7);"An error #"(222)" has occurred. "23:"Press to continue ";:958:49168,0:49152,128:600  ********** WAIT FOR KEYSTROKEFLAG$""`23:" for next page or for menu";:49168,0:49152,128~(49152)155FLAG$"ESC"$. *********** ATTACH UPPER/LOWER CASE ROUTINE8I013:ML:768I,ML:I:D$"PR#A$300":B ********** DETACH UPPER/LOWER CASE HANDLER *L(4);"PR#0":ZV ********** INSTALL INPUT-ANYTHING ROUTINEu`X768839:A:X,A::j ********** INPUT-ANYTHING ROUTINE DATAt 32,190,222,32,227,223,36,17,208,5,162,163,76,18,212,133,133,132,134,165:~ 184,164,185,133,135,132,136,32,44,213,173,0,2,201,3,208,3,76,99,216 169,0,133,13,133,14,169,0,160,2,32,237,227,32,61,231,32,123,218,165 135,164,136,133,184,132,185,32,183,0,96,0 ********** UPPER/LOWER CASE ROUTINE DATA 216,201,225,144,6,201,251,176,2,233,31,76,240,253,0  c` ` v`` ` v` `ݥ``8 ``+p|~p|*U*U*U*U*U*S( @?p~px|xժժժժժRT* @?p~px|ЪժժժՊ dOE U @?`p~?pxԊԪ `|yg~0 cFc& U*U*U*@@ @%P*U*U*U*U*U }<_/" p@Pgp{?"dydw!<MժժժժժժdpO|`*U*U*U*U*U*p|~p|(U*U*U*U*U*S* @?p~px|ժժժժժ `AFT* @?p~px|xժժժՂ n_?E U @?`p~ppp}{c0 cFc&(U*UA*U*uԪժժժժՊ @ [ժժժժժժdpO|`*U*U*U*U*U*p|~p|(U*U*U*U*U*S* @?p~px|ժժժժժ `AFT* @?p~Ap||xժժժՂ N?p1 U4pysc'C&0.cFc&(U*U P*U* > @p{?" NԪժժժժժ@ [ժժժժժժdpO|`*U*U*U*U*U*p|~p|(U*U*U*U*U*R@* @?p~px|ժժժժժ pcFU* @?p~p|ժժժ _?@>|. U5x{w cY#8X03X0FC30%*U*U*U*U*U L @@ " NԪժժժժժtժժժժժժdpO|`*U*U*U*U*U*pp~p|(U*U*U*U*U*R@* @?p~px|Ԫժժժժ pcFU* @?`p~p|ժժժ ?~ GC@F- U5xsg`c00@` 80 TO RE-DO:";XX$:20:958:140t 20:868:" = ACCEPT... R = RE-ENTER:";XX$:XX$""XX$"R"XX$"r"190 XX$"R"Ģ20:868:"PRESS RETURN TO ACCEPT EXISTING DATA":140 : : : SAVE ADDRESS TO DISK D$;"OPEN ADDRESSES,L87" D$;"READ ADDRESSES,R0", R:RR1J D$;"WRITE ADDRESSES,R";R^ "F15:A$(F):{ ,D$;"WRITE ADDRESSES,R0" 6R @D$;"CLOSE" J T: ^: h: SETUP r:5 |10:"NIBBLE TINY MAILER"/ :"THIS PROGRAM LETS YOU ENTER NAMES AND":"ADDRESSES INTO A RANDOM DISK FILE." :"YOU'LL ENTER:"::" NAME:":" STREET:":" CITY:":" STATE:":" ZIP:" :"THEN YOU'LL HAVE THE CHANCE TO RE-ENTER":"AND CORRECT ANY MISTAKES BEFORE SAVING"."THE NAME AND ADDRESS TO THE DISK FILE."::" (CHECKING THE DISK FILE)"P: CHECK WHETHER FILE EXISTS D$(4):D1$".........................":D2$"..":D3$".....":D1$=25 DOTS D2$=2 DOTS D3$=5 DOTS560D$;"VERIFY ADDRESSES":"PRESS RETURN TO BEGIN:";XX$110: ENTER ADDRESS0250: SAVE ADDRESS:10:" = ENTER ANOTHER... E = END:";XX$:XX$""XX$"E"XX$"e"500XX$"E"ĺ"END OF ADDRESS ENTRY":480: ENTER ANOTHER::&: CREATE NEW FILE 0216,0: RESET ERROR POINTER>::"PRESS TO CREATE ADDRESSES FILE";XX$[DD$;"OPEN ADDRESSES,L87"xND$;"WRITE ADDRESSES,R0"X0bD$;"CLOSE"l470 ************************=* WORDSEARCH.WIZARD *[* BY LEE SMITH *y(* COPYRIGHT(C) 1989 *2* MINDCRAFT PUBL. CORP.*<* CONCORD, MA 01742 *F************************PPRODOS(48896)76:PRODOSD$(13) Z(21):D$D$(4)5 dSL6:DR1: DEFAULT SLOT&DRIVEC nLB$(91)Q xRB$(93)_ FF$(12) A$(20),AA$(40,21),BB(320,1) LF5:RT35:TP3:BT21 T$"":K0 MT20:MW15 2110 ********************* * * * MAKE PUZZLE *. * *I *********************Q :[ 1980c L0o T110 X((1)(RTLF))LF:Y((1)(BTTP))TP "V((1)24)65 ,X:Y:(V); 6LL1:BB(L,0)X:BB(L,1)Y @AA$(X,Y)(V) JT TJ1K ^23:1:868:23:1/ hJ;") ";A$(J);@ rX:Y::K$;H |E1d R((1)6)1:R1430 X((1)(RTLF))LF:Y((1)(BTTP))TP:K$AA$(X,Y) X:Y::K$;: 500 M((1)L)1 XBB(M,0):YBB(M,1):K$AA$(X,Y) X:Y::K$;: E1(A$(J)). (A$(J),E,1)K$5005 E> 370P N((1)8)1w N520,530,540,550,560,570,580,590 AA1:BB0:600 AA1:BB0:600 AA0:BB1:600 &AA0:BB1:600 0AA1:BB1:600 :AA1:BB1:600 DAA1:BB1:600 NAA1:BB1:600: XCAA(E1)X:(CLF)(CRT)370_ bDBB(E1)Y:(DTP)(DBT)370 lGAA((A$(J))1)C:(GLF)(GRT)370 vHBB((A$(J))1)D:(HTP)(HBT)370 AA0STD:EDH:SBB:660 STC:EDG:SAA CCC:DDD:N0ISTEDS!NN1:W$(A$(J),N,1)IW$AA$(CC,DD)AA$(CC,DD)" "370_CCCCAA:DDDDBBfIxCCC:DDD:N0ISTEDSNN1:W$(A$(J),N,1)CC:DD:W$;AA$(CC,DD)W$LL1:BB(L,0)CC:BB(L,1)DD CCCCAA:DDDDBBI K$AA$(X,Y)*J)423:1:868O>I110:BB(I,0):BB(I,1):" ";:HI11L:XBB(I,0):YBB(I,1):X:Y:AA$(X,Y);RI\I11LfXBB(I,0):YBB(I,1)p(AA$(X,Y))91900zAA$(X,Y)((AA$(X,Y))32)I ******************** * *: * FILL SCREEN *U * *p ********************}YTPBTXLFRT(AA$(X,Y))91ī1010V((1)26)65:AA$(X,Y)(V)X:Y:(V);XY23:1:"PRESS ";LB$;"RETURN";RB$;" FOR MENU ";!A$= *********************Y$ * *u. * PRINT/SAVE MENU *8 * *B *********************LVA$"WORDSEARCH WIZARD":4090`3:A$"BY LEE SMITH":4090-j5:A$"COPYRIGHT(C) 1989 MINDCRAFT PUBL. CORP.":4090Gt1:6:I140:"=";:e~9:10:"1) PRINT PUZZLE"10:10:"2) SAVE PUZZLE TO DISK"11:10:"3) EDIT PUZZLE"12:10:"4) VIEW PUZZLE"13:10:"5) RETURN TO MAIN MENU"/15:10:29):10:"ENTER CHOICE --> ";:16368,0:A$:A(A$)OA1230,1690,2510,3690,2110Y1200t ****PRINT PUZZLE****FL0:1300:3"PRINT ANSWER SHEET (Y/N) ";A$A$"Y"FL1:13501100  <<<< PRINT >>>>D::"USE '";T$;"' AS TITLE? (Y/N)";:16368,0:Z$:Z$"Y"Z$"N"Z$"y"Z$"n"1300\Z$"N"Z$"n"1330f(13502PF1:9::"TITLE OF PUZZLE: ";:X18:Y10:MAXMT:3850:PF0:A$""T$A$<F11100FPD$;"PR#1"Z(9);"255N"dnFL1ĺFF$x#::40((T$)2));T$::5LM40(RTLF)BYTPBTMLM);ZXLFRTiFL11480(AA$(X,Y))91ĺ((AA$(X,Y))32);" ";:1490AA$(X,Y);" ";X:YN0:::I1(K3)110);J14320 NK1580,"NN1:A$(N);20(A$(N)));3,J96@@IFJUTD$;"PR#0"[^wh *********************r * *| * SAVE PUZZLE * * * *********************:192012)"WORDSEARCH WIZARD"+4:15)"SAVE PUZZLE"V10:"SAVE PUZZLE AS '";T$;"' (Y/N) ";16368,0:A$:A$"Y"A$"y"F$T$:4100:NF0ĺ:"INVALID PRODOS FILENAME"::"PRESS RETURN TO CONTINUE ";:16368,0:Z$:1100A$"Y"A$"y"1780 A$"N"A$"n"173011:PF1::"ENTER NEW NAME: ";:X17:Y12:MAXMT:3850:PF0:F$A$:4100:NF0ĺ:"INVALID PRODOS FILENAME"::"PRESS RETURN TO CONTINUE ";:16368,0:A$:1100F1ī1100::"SAVING...."D$;"OPEN ";F$D$;"WRITE ";F$LF:RTTP:BT &YTPBT-0XLFRT;:AA$(X,Y)BDXINYPXKdbI1K:A$(I):xlD$;"CLOSE ";F$v216,0:1100216,0::"<<<>>>"::"PRESS RETURN TO CONTINUE ";:16368,0:A$:1100 ********************* * *4 * SET AA$(X,Y)=" " *P * *l *********************10:12)"ONE MOMENT PLEASE"YTPBTXLFRTAA$(X,Y)" "XY  ******************** * *#  * MAIN MENU *>* * *Y4 ********************_>HA$"WORDSEARCH WIZARD":4090R3:A$"BY LEE SMITH":4090\5:A$"COPYRIGHT(C) 1989 MINDCRAFT PUBL. CORP.":4090f1:6:I140:"=";:p9:10:"1) CREATE NEW PUZZLE">z10:10:"2) LOAD PUZZLE FROM DISK"dK0Ģ11:10:"3) PREVIOUS MENU"|12:10:K0ĺ"4";K0ĺ"3";") QUIT";:13:1:40):10:"ENTER CHOICE --> ";16368,0:A$A(A$):A2340,3090K0A31100(K0A3)(A4)3650(2230B *******************\ * *u * EDIT WORDS * * FOR NEW PUZZLE * * * *******************$ PF1:. 12)"WORDSEARCH WIZARD"$8 5:"TITLE OF PUZZLE: ";:X18:Y5:MAXMT:3850:T$A$7B PF0:F12110?L K0OV 5:1:868h` 3:15)"EDIT WORDS"j 23:1:LB$;"ESC";RB$;" FOR WORD TERMINATES ENTRIES"t KK1~ K11Ė1:K4:X5:YK4:2450 21:K6:X25:YK6 " ";:K9Č1008 K;") ";:MAXMW:3850:A$(K)A$8 F1KK1:K0ī2110G F1ī2510V K202510` 2420j 2940t 16: 5)"OPTIONS:"  10)"D)ELETE A WORD" 10)"A)DD MORE WORDS" 10)"# TO CHANGE"  :10)LB$;"RETURN";RB$;" TO BEGIN PUZZLE";4  PF1:17:13:868:17:13:"";A$:PF0M ( A$"D"A$"d"ī2740s 2 (A$"A"A$"a")K20İ2940:2410 < (A$)0ī240 F A(A$) P A1AK2590 Z <<<>>> d 17:1:958 n 18:"CHANGE <";A$(A);">";!x :10)"TO: ";! X14:Y19:MAXMW:3850)! F127206! A$(A)A$@! 2510Z! <<< DELETE WORD >>>k! 17:1:958! PF1:"# OF WORD TO DELETE: ";:X22:Y17:MAX2:3850:PF0! F12510! A(A$)! A1AK2510! ! :"DELETE <";A$(A);"> (Y/N)"; " "";G$#" G$"Y"G$"y"25100" IA1KB" A$(I1)A$(I)H"" \", KK1:K02110f"6 2510"@ ********************"J * *"T * DISPLAY WORDS *"^ * IN TWO COLUMNS *"h * *#r ********************#| +# 12)"WORDSEARCH WIZARD"D# 3:15)"EDIT WORDS"O# I1Kg# I11ĢI4:1:3000t# I6:21# I10ĺ" ";# I;") ";A$(I);:# # *********************# * *# * LOAD IN OLD *$ * PUZZLE *+$ * *G$ *********************T$ ::PF1q$ 12)"WORDSEARCH WIZARD"$& :13)"LOAD IN PUZZLE"$0 5::"NAME OF PUZZLE (? FOR CATALOG)":16:"(ESCAPE TO CANCEL)";:$: :"--> ";:X5:Y8:MAXMT:3850:F$A$ %D PF0:%N F$"?"ī3390)%X F12110K%b <<< VERIFY FILE EXISTS >>>V%l 3560k%v D$;"VERIFY ";F$v% 216,0% <<<<>>>>% 3500% ::"LOADING...."% % D$;"OPEN ";F$% D$;"READ ";F$% LF:RT% TP:BT& YTPBT& XLFRT& AA$(X,Y)%& X,& Y3& KH& I1K:A$(I):I\& D$;"CLOSE ";F$s&* T$F$:216,0:1100&4 <<<>>>&> 3500&H 34,9:&R "ENTER SLOT OR PRESS RETURN FOR SLOT ";SL;:1008:16368,0:A$:A$;:A$(13)ī3430'\ SL(A$):SL1SL7SL6:3400'f 12:1:"ENTER DRIVE OR PRESS RETURN FOR DRIVE ";DR;:1008:16368,0:A$:A$;:A$(13)3450'p DR(A$):DR1DR23430'z :D$;("CATALOG",74PRODOS);",S";SL;",D";DR:PRODOSĺ(4)"PREFIX,S";SL;",D";DR' A$( 216,0( :30902( <<<<>>>:( :X( ::"<<<>>>"( :"PRESS RETURN TO CONTINUE ";:16368,0:Z$( 216,0( 3090( <<< FILE NOT FOUND >>>( ::"<<<>>>") :"PRESS RETURN TO CONTINUE ";:16368,0:Z$) 216,0$)3090@) *********************\) * *x)$ * END *). * *)8 *********************)B:*L12:A$"ARE YOU SURE YOU WANT TO QUIT?":4090:16368,0:A$:A$"Y"A$"y"ė:23:*V21103*` *** VIEW PUZZLE ***;*j:C*tTPP*~YTPBTX*LFe*XLFRT*(AA$(X,Y))91ĺ((AA$(X,Y))32);:3760*AA$(X,Y);*X**Y*1030* ********************* * *+ * GET A WORD *0+ * *L+ ********************V+ X:Yb+HX:VYj+F0t+(A$""+2 ---> C$=CURSOR+<C$(32)+FH:V:C$;+PH:V:AA$+ZAA$(96)AA$(123)AA$((AA$)32)+dAA$(13)(A$)04080,nAA$(8)HH1:4030C,xAA$(27)(A$)0ĖX:Y:MAX1);:3850d,AA$(27)(A$)0F1:4080,PF(AA$"A"AA$"Z")3920,H:V:AA$;,A$A$AA$,(A$)MAX1A$(A$,MAX):3910,HH1:3910,HXHX:3910-(A$)1A$"":4060-A$(A$,(A$)1))-H1:V:" ";3-3910E-H:V:" ";:^-20(A$)21:A$;:r-PRODOSNF1:-NF1:(F$)0āNC1(F$):NA((F$,NC,1)):NF((NA64NA91)(NA46)(NA47NA58NC1))NF1::(F$)15(F$,1)"."NF0.: PRODOS PATHNAME CHECKER