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}' ,BASIC.SYSTEM(*+BINARY.CONVERT 5W:'NIBMENUn "!"!,PRINT.MASTER#z-y;y&PRODOS; }<ͰͰSAMPLE[; y SPEED.SEARCH\{0 {).SPEED.SEARCH.S]8 {0 {(/SPEED.SRCH.DEMOd{0 {2'STARTUPh }-.STARTUP.SCREENr - . WHEELD5W: 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 ::A18:Q(A)::128,64,32,16,8,4,2,1:3:" B I N A R Y C O N V E R T E R":" B Y D A N F U R L A N I" 8:80):"1 6 3 1 8 4 2 1":"2 4 2 6":"8":8:1:I18:A$:A(A$)1:BBAQ(I):A;" ";::"= ";B:B0:16384,128:A$:A$(13)20 !"FEB 1992 DISK (VOL 13/NO 2) 4 PRINT MASTER CHICKEN LITTLE SPEED SEARCH CHECKIT 3 PRINT MASTER RUN PRINT.MASTER SPEED SEARCH RUN SPEED.SRCH.DEMO 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. @ The screen displays that follow show the files needed to create working copies of each program. @ To create a work disk for Print Master, remove all but the following files from a copy of this disk: PRINT.MASTER SAMPLE These programs are included on the ProDOS side of this disk, only. @ To create a work disk for Chicken Little, remove all but the following files from a copy of this disk: CHICKEN.LITTLE CHICKEN.LOADER CHICKEN.EXEC SHAPES.DAT CHICKEN.OBJ SHAPER.OBJ SOUNDS.OBJ CHICKEN.OBJ.S SHAPER.OBJ.S SOUNDS.OBJ.S This program is included on the DOS 3.3 side of this disk, only. @ To create a work disk for Speed Search, remove all but the following files from a copy of this disk: SPEED.SEARCH SPEED.SEARCH.S SPEED.SRCH.DEMO This program is included on the ProDOS and DOS 3.3 sides of this disk. @ In addition, we've placed a copy of the CHECKIT program on this disk. CHECKIT is a utility published in Nibble that aids in typing in programs from the magazine. The One- and Two-Liners are also included on this disk. @ The source code files for the major assembly language programs have been included on this disk. These files are included expressly for experienced programmers. These files cannot be used unless you own the appropriate assembler. WARNING: Do NOT attempt to run the following source code files: CHICKEN.OBJ.S SHAPER.OBJ.S SOUNDS.OBJ.S SPEED.SEARCH.S @ # $%&'()*+,-./0123456789:  *************************?* PRINT MASTER *^* by Charles T. Hill *}(* Copyright (C) 1992 *2* Mindcraft Publ. Corp. *<* Lincoln, MA 01773 *F*************************P:ZINITIALIZE VARIABLES d39904 n(48640)76ĺ"PROGRAM REQUIRES PRODOS":Y xD$(4):D$;"PR#3":HT1403:DL20} RI0:A0:RT0:MD$"":P$"":PL0 FI$(100),L(255),BT$(128),SV$(1100),SN(1100) NZ0:N11:N22:N33:N44:N55:N66:N88 NS32:NE127:NR178:ND131:NA64:NU95:NQ34& LM10:WL96:WLWLLM80 11006 :W READ LINE FROM INPUT BUFFERf B512250 RI1:SET FLAG FOR ERROR 2 AT EOF D$;"READ";PI$;",B512":MORE BNZ:X(0) AAN1:KNZ:K(38400B):BBN1 2470:CHECK FOR ESCAPE OR PAUSE/ AN2KNZEOFN1:3620:END OF FILEO AN3210:SKIP MEMORY BITSx "AN3LNK:210:LINE NUMBER LOW BIT ,AN4LNLNK256:210:LINE NUMBER 6KNZ360:END OF LINE @L(AN5)K:STORE LINE IN ARRAY J210:GET NEXT CHARACTER T: ^END OF LINE1 hPC6700:CROSS-REFERENCE@ rPC3400^ |23:HT,0::"LINE ";LN:r D$;"WRITE";PW$ 460:PRINT LINE PC1İ630 PC3ĺD$:RETURN TO SCREEN A0:210:READ NEXT LINE : PRINT LINE ROUTINE PCN1ĺLM);:LEFT MARGIN* LN;" ";:LINE NUMBERC PKNZ:LL((LN))N1R INZAN6] KL(I) KNS(PKNRPKND)610:OMIT EXCESS SPACES PKK:STORE CHARACTER KNEĺBT$(KNE);:LLLL(BT$(KNE)) KNSKNEĺ(K);&KNSPCN1ĺ(KNA);(N8);(NU);,0KNSPCN2Ğ:(KNA);:C:KNSPCN3ĺ(K);WDK128LLLLN1jNWWLM((LN))XLLWLPCN1ĺ(13);WW);:LLNZ:PLPLN1bIl:vPLPL1PL55āJ1(66PL):::PL0:CROSS-REFERENCE ROUTINE!:"READING VARIABLES IN ";PI$:>NJ0:A0:210:READ LINEO:LN;" - ";{BV0:RM0:QT0:DT0:VN$"":RESET FLAGSI0A6KL(I)RM1QT1DT1850:SKIP VARIABLEBV0K65840:NOT INITIAL LETTERK36K37K40810:$ OR % OR (0K48K122840:NOT LETTER OR NUMBERY K57K65840:NOT LETTER OR NUMBERK90K97840:NOT LETTER OR NUMBER BV1:LETTER FOUND*VN$VN$(K)4K40IA6840>900:NEXTHBV0İ950:STORE VARIABLERKNRRMN1:900: REM STATEMENT7\KNDDTN1:900: DATA STATEMENT_fKNQQTNZQTN1:900:BEGIN QUOTEpKNQQTN1QTNZ:900:END QUOTEzK58DTNZ:900:COLON ENDS DATAINJ10003680:PRINT VARIABLESA0:210:READ LINE:STORE VARIABLE IN ARRAYVN$;" ";-LJ1:HJNJDHJLJSJLJ:1020^CJ((HJLJ)2.5)LJVN$SV$(CJ)LN(SN(CJ))SN(CJ)SN(CJ).01:1070VN$SV$(CJ)HJCJ1:970LJCJ1:970LJNJ1060JNJLJ1SV$(J1)SV$(J):SN(J1)SN(J) J.$SV$(SJ)VN$:SN(SJ)LN:NJNJ1@.BV0:VN$"":F8:TBGREETING_L::2xV31);"PRINT MASTER"`28);"By Charles T. Hill":j28);"Copyright (C) 1992"t24);"Mindcraft Publishing Corp."~28);"Lincoln, MA 01773":H12);"This program prints Applesoft files with left margin,"12);"line wrap, and page breaks. It can also display, write"12);"as a TXT file, load, or RUN any Applesoft file, or"12);"cross-reference variables with line numbers." K12);"For file selection, use letters or Up- or Down-Arrows"12);"to change lines or Left-and Rioght-Arrows for next or"12);"previous page. Return selects file or opens subdirectory"12);"Space pauses listings, and Escape backs up or exits.":!:3INPUT PREFIXq LA$"":RESET LABELS TO INDICATE DIR NOT READ FOR RESTART:8);"PREFIX OR SLOT NUMBER: ";IS1:2080:GET LINE(GL$""GL$(27)2750:CHECK FOR END2PS$GL$:SN(PS$)<(SN1SN7)P$PS$:1400:not a slot8F:17);"DRIVE NUMBER: ";QPIS0:2080:GET LINEtZGL$(27)2750:CHECK FOR ENDdPD$GL$nP$",S"PS$",D"PD$:CONSTRUCT PATH USING SLOT,DRIVExD$;"PREFIX";P$:ENTER PATHD$;"PREFIX":P$:RETRIEVE FULL PREFIX0P$(P$,(P$)1):strip trailing slash6:JOPEN DIRECTORYs23:HT,79::AVOID BLANK LINE ABOVEPG0:EOD0:RESET FLAGS FOR BEGIN AND END OF DIRECTORYX(0):CLEAR MEMORY OF OLD VALUES OF CHANGED STRINGSD$;"CLOSE";P$D$;"OPEN ";P$;",TDIR"3D$;"READ";P$:FS11570QA$:LA$:A$:READ HEADERW:qREAD DIRECTORY FILESEOD1ī1660:NO MORE FILES TO DISPLAYPGPG123:HT,79::AVOID BLANK LINE ABOVE"J1DL:NUMBER OF DISPLAY LINES,FI$(J):READ FILEINFO-62470:CHECK FOR ESCAPE\@FI$(J)""Ą"";ST$:EOD1:1620:END OF DIRbJTNLJ1:NUMBER OF LINES READ^OI1:RESET DISPLAY LINEh:rSELECT DIRECTORY ENTRY|:PC1ĺ:(4);"PR#3"P$:2:1);LA$I1NL:1900::1970:IOI:18905EOD1ĢNL3:NL20ĺEEOD1ĺST$o1:HT,68:"PAGE ";PG;:HT,77:"-->";EOD1Ģ1:HT,77:"<--";2010:GET KEYK13KI:2310:RETURN -- CHECK FILETYPEK8İ1900:1450:LEFTK11İ1900:II1:UPK21İ1900:1540:RIGHT;K10İ1900:II1:DOWNZK272530:ESC -- RESTARTK96K123KK32:SMALL LETTERSK64K85İ1900:IK64:LETTERS A-T&INLINL0I1I1:OIID1890:1740N:XDISPLAY DIRECTORY FILESblVI2)vV:HT,1:FI$(I);:7:VAI64LV:HT,0:(VA);T:Z:uDISPLAY PROGRAM TITLE23:HT,0::2);"PRINT.BAS ";:GET KEY FROM KEYBOARDK(49152):K1282010KK128:49168,0::CLEAR LINE24:HT,0:79);:$ :@GET LINE FROM KEYBOARDS V(37)1:H30^*GL$""q42010:GET KEY>K13ı:RETURNHLL(GL$)RK272260:ESC -- BACKUP\K8K1272200:NOT LEFTfLLLL1:LEFTpLL0GL$(GL$,LL) zLL0GL$""$V:HT,HLL1:" ";E2100:GET ANOTHER CHARACTERjLL402100:LIMIT 40 CHARACTERSIS0K47K58GL$GL$(K):#IS1K31GL$GL$(K):STRINGV:HT,HLL1(GL$)LLĺ(K);2100: ANOTHER CHARACTER LL0ĢV:HT,H:LL1):2090' GL$(27)@ :escape when blankF :Z CHECK FILETYPE  NM$(FI$(I),2,16):GET PRODOS FILENAME  J115:TO STRIP TRAILING BLANKS  (NM$,1)" "NM$(NM$,(NM$)1) $ J!. MD$(FI$(I),31,15):GET MODIFICATION DATE AND TIME=!8 FT$(FI$(I),18,3):GET PRODOS FILETYPEn!B FT$"DIR"P$P$"/"NM$:2720:READ NEW DIR!L PI$P$"/"NM$:PATH FOR INPUT FILE!V FT$"BAS"2820:DISPLAY OPTIONS!` FT$"SYS"3030!j 24:HT,0: "t "Filetype is not BAS -- Press any key";"~ :2010(" 2050:1740." :D" CHECK FOR ESCAPEd" E(49152):EE128:49168,0~" E27ġ:2530:ESCAPE" E32FT$"BAS"İ2010:PAUSE" " :" RESTART" PR1ĺD$;"PR#3"::22:HT,0:PR0" D$;"CLOSE":2050:PL0# LA$""2750:DIRECTORY NOT READF# FT$"BAS"2620:NO INPUT FILE YETT# 24:HT,0u# :"SAME INPUT FILE? ";:# 2010:K78K110K27İ2050:2620#( K89K121K132570#2 2820:DISPLAY OPTIONS#< 24:HT,0$F :"DISPLAY PREVIOUS DIRECTORY? ";:5$P 2010:K78K110K27İ2050:2750R$Z K89K121K132620\$d 2050g$n NP$P$$x NP$(NP$,(NP$)1):STRIP SUBDIRECTORY NAME$ (NP$,1)"/"2680$ (NP$)12720:WAS ROOT DIRECTORY% P$(NP$,(NP$)1):STRIP TRAILING SLASH% 23:HT,0:80);C% 23:HT,0::"READING DIRECTORY ";P$;]% :1400:RESET PREFIXg% HT,0% 24::"RESTART? ";% :2010:K78K110K27Ā% K89K121K132750% 1100:GREETING% :% DISPLAY OPTIONS MENU% & "INPUT FILE: ";PI$& -&" "(1) Print file"E&, "(2) Display file"Z&6 "(3) Write TXT"o&@ "(4) Load file"&J "(5) Run file"&T "(6) Cross-reference"&^ "(7) Quit"&h :"CHOICE? <1> ";&r 2010:get key&| K272530:RESTART ' K13K49:2970:return*' K49K562930:NOT 1-7<' (K):PCK48X' PC7ĺ"READING ";PI$:x' D$;"CLOSE":CLOSE DIR FILE' PC3080,3080,3080,3010,3030,3080,3050' :(21):"LOADING ";PI$' D$;"LOAD";PI$' :(21):"RUNNING ";PI$( D$;"-";PI$( ( :!( OPEN INPUT FILEI( X(0):CLEAR MEMORY OF OLD STRINGSW( EOF0:B0t( D$;"OPEN ";PI$;",T";FT$(& IF ERROR THEN GOTO RESTART(0 A0:CHARACTER COUNTER FOR LINE CODES(: PC33380:READ BASIC TOKENS(D PC6680:CROSS-REFERENCE)N :)X OUTPUT PATHNAME )b ?)l "PATHNAME OF TXT FILE: ";`)v IS1:2080:PW$GL$:GET LINEf) ) GL$(27)2820:DISPLAY OPTIONS) ) VF1:D$;"VERIFY";PW$:VF0) IF ERROR=6 THEN FILE DOES NOT EXIST* "FILE ALREADY EXISTS. DELETE IT? "* 2010:GET KEY@* K121K89ĺD$;"DELETE";PW$:3320d* K78K1120K27K133260* 3170:GET OUTPUT PATHNAME IF NOT YES* :* OPEN OUTPUT FILE* D$;"OPEN";PW$* CM$"":CHECK FOR COMMA IN NAME WITH DRIVE NUMBER+ (PW$)3CM$(PW$,(PW$)2,1):+ CM$(44)PW$(PW$,(PW$)3)@+ :Z+* READ IN BASIC TOKENSw+4 RT13480:ALREADY READ}+> +H I1107:BT$(I)+R I36I37BT$(I)BT$(I)(58):ADD COLON TO HIMEM,LOMEM+\ BT$(I)" "BT$(I)" ":ADD SPACES+f I,p I108128:BT$(I)"":I+,z RT1:SET FLAG1, :J, PRINT PROGRAM TITLEa, PC3490,3550,3560, :(21):TURN OFF 80-COL FOR PRINTER, :"PRINTING ";PI$::PR1, D$;"PR#1":SEND TO PRINTER, HT,0:LM);:3540, PLPL2:210- "REM";PI$;WL20(PI$));MD$::*- :3540::210A- :"WRITING";PW$:U- D$;"WRITE";PW$_- 3540-D$:210: RETURN TO SCREEN-:-END OF FILE-$PR1ĺ:-.PR1ĺD$;"PR#3"::22:HT,0:PR0-8PC6ĺ-B:"END OF FILE ";PI$;:::.LPC62530:RESTART5.VNJ0ĺ"NO VARIABLES FOUND":2530_.`:(21):TURN OFF 80-COL FOR PRINTER.j:"PRINTING VARIABLES"::PR1.tD$;"PR#1".~HT,0:LM);"VARIABLES IN ";PI$;" ";MD$.NV0:630.I1NJ:I1ī3750:FIRST VARIABLE /SV$(I)SV$(I1)37704/:630:LM);SV$(I);" - ";:NVNV1s/VVLM(SV$(I))3:LVVV:RESET LENGTH OF VARIABLES PRINTED/SN(I)(SN(I))SN(I)SN(I).01/LVWLĺ:630:VV):LVVV/SN(I);" ";:LVLV((SN(I)))1:I:: 0LM);NV;" VARIABLES - ";NJ;" NUMBERS" 0::PLPL4:630L0EOF0ĺD$;"PR#3"::22:HT,0:PR0:680_02530:RESTARTe0:w0 BASIC TOKENS0END,FOR,NEXT,DATA,INPUT,DEL,DIM,READ,GR,TEXT0PR#,IN#,CALL,PLOT,HLIN,VLIN,HGR2,HGR,HCOLOR=,HPLOT#1(DRAW,XDRAW,HTAB,HOME,ROT=,SCALE=,SHLOAD,TRACE,NOTRACE,NORMALf12INVERSE,FLASH,COLOR=,POP,VTAB,HIMEM,LOMEM,ONERR,RESUME,RECALL1<STORE,SPEED=,LET,GOTO,RUN,IF,RESTORE,&,GOSUB,RETURN1FREM,STOP,ON,WAIT,LOAD,SAVE,DEF,POKE,PRINT,CONT2PLIST,CLEAR,GET,NEW,TAB(,TO,FN,SPC(,THEN,AT$2ZNOT,STEP,+,-,*,/,^,AND,OR,>O2d=,<,SGN,INT,ABS,USR,FRE,SCRN(,PDL,POS}2nSQR,RND,LOG,EXP,COS,SIN,TAN,ATN,PEEK,LEN2xSTR$,VAL,ASC,CHR$,LEFT$,RIGHT$,MID$2:2ERROR ROUTINE2EN(222):GET ERROR NUMBER3EL(219)256(218):GET LINE3216,0:3288433990: SET ERROR TRAPPINGT3EN2RI1EOF1:RI0:36203EN6VF1VF0:3320:OUTPUT FILE NOT FOUND3EN255Ā:TRAPPED CTRL-C3(4);"CLOSE":CLOSE ALL FILES3PR1ĺD$;"PR#0":PR0:TURN OFF PRINTER423:HT,0#4:"ERROR ";EN;" ON LINE ";EL;A4EN2542530:TRAPPED ESC_4EN2ĺ" -- RANGE ERROR";4EN4ĺ" -- WRITE PROTECTED";4"EN6ĺ" -- PATH NOT FOUND";4,EN8ĺ" -- I/O ERROR";46EN9ĺ" -- DISK FULL";4@EN10ĺ" -- FILE LOCKED";5JEN11EN16ĺ" -- SYNTAX ERROR";.5T" -- ";:45^S5h"PRESS ANY KEY ";::" ";f5r2010:GET KEYy5|2530:RESTART<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZL !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`BYYZLYLYLY뿭` 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@)@vvȱ@Hȱ@Ah@@cve J) LL LJiB LJ) JxNhHHHHL(  ްƠx@BEOD  ް(`( C)CJJJl`B l-`J,~@~@}J@` ߩ%S @ ~`E hhhߺ0 h ߐ(     0 HϭߍLпllllhh8` Qu")T'P() ɺiLG )?      `l@Hȱ@IױHXATȱH ɯȩ׍̕5H)/@a)_ .0 :A[8@`,뎕׮Б` L ` @>V)I38 Pghם`K8`@Nȱ@O@ IiNȽבN)/ȩ/N`@[ WHJjjjhA I'KI؍0JHi 뎈`C8` @ 3N@) S莴 ⭱i`0 e; 뮈ٝ٘ 0 W,0 .H hȑNWȮّNW8`ٍّNί0NN` G8`F@ 0 P LK8`= >I8`FHGH hGhF܌ բFܽܕF芝ܝ 밶=> ?܅I m@IHHyHȘI Lܝ` @f@ n@Ю׍V)mיVʈ@tȱ@fȱ@prsiQ{R|V)5VI0ܢܽ lS'H* 7ghFG (JK L܅IU mHIH` wt tP0ST HVHQFRG 밳QR 밨J%܈G" T)Ii)܍U*܍H'ܮ( 4 䭐 $H %HFFHGHG 됬`R8`)` HHV` /Q'܅IHHVVЍV@`8 ` ͐% ΐQ8`܅I `S܍TU p8D`F` ilH)HFȍQHGR $%܍&܍!ܢ8* J8` L ܝA)I 'ܝ=`I8iUFSGT`I܅IH3H ( )ȱHί`Α8HeHI SB=0P ٙNٙLFQJʈ p猱`8m0`,0H hi PȽίhٍ0GF8yאFG  $0 S01 E8`100 e 0ʩ 谼 谷`12)1`0`Ȏi 0U`)8`ί` W G IؙJJ c: QLHIHI`JKJK`FHIG ( Ȣ؝؈JL)eKM`)` J }J͢ $0 ΑJFJL8`JGBJ \ FإG`BH \FإG`,H hHB؅F  ؅GxDE؍00C ް(`(8` L3J  B"L H  B 9ؙ` @ P8`K8`B8` O؈VJJJJحt) ) )Ю ЪGgF $ ᭔ع+ؠ >H  Wh8` 䮈ٽ ٬ؠ@` ( O )8`)i п`  H h)N$% LL L L >  .pJ덦 )@፩NJOK >iKKΥΥ IJΦ JФ̭JjHFIH HIGxKE ް((H hH h8`8@ȭ@L>쬉8NNO 8 ؍JL`RΥʱLN1MOMEKP/MEKΥLCL-M O,p莤eNNO(`JNKOL >/  .P L8 cؑJ`L@ȱ@ `@Nȱ@O`؝}}I}ؐ` rؽ؝} r 1 r؝}؈` ` H  \h)N@ C; L  >$ )bJ e ) H @hL ) # )حJjI~HI}H؊  PLKΥʱNLMO MЈMEKݸP%MEKΥL0 O, PeNNO O(` C  7 #2J}HI~HI؊ LQ  6` #A H} ع H~ ؙ؊ؠIhHIhH  iع `  عiعi` )؍0CGHFHBFGx ް(8hFhG`@4͔ L @Ai ׭2` . W#ع؍0 e讈)`.@+ i 8` L )߹0 )p )@ ) ȩ ؝O0QR 방 STQRFG 嬉؍i؍j؝k ؝f }V) }V )حP͝ `H@h`h``N8`  ) C⬉Ȣ؝@ݡ@ʈLO KIJHȢݡ)Jn 8 λ ؍ ؍ aH8 ع)ꭸJJJJ Ȣ؝I؈ >h(8H E h(8Hh(`ؑ@`@ȱ@ ` B@8ZV p鮈ٍٍٍvHٍu8ihjVJJJJV)V@` %I -t) 0@V)N8` @LL =@ 4ȹP8` %i` Bם0 4B B)( ȹ`8m8m@8` G8`F Pt)@N8`V)@J 4טyרםVV)׍Vgh 밑 %LȹL@ȅH@IL,0` G פֿ= eH.t)N 0 PghV)@LP8` a᮷ &֩VJKJ L䬈yٙ٭yٙ٩`K OEgFhG 6%&N   & ܮ `J HH hh` 0 @ LLL w`̻Yܝ ݝ0̻ȩFG   0` ܅F݅G ` wͬ 밽܅F݅G ` * w% L`L뮷HH &hFhG܍ݍ 8 `FHGH & hGhF`ݹܙ݊`@Bɼ>K@J5 9X(K XXK تKo`V8`no` I on I9XX`) HJJJh`OeNeO࿰ 9XАO`@ȭ@` ON fNJKO`HхhꭋILhH),kx8 (8` ԍ`@Ae Or88`zw! NIJK,-NOPQRSu' @   !"#$Ԡ͠ˠ(C)1983-87APPLELKL`BL Lެެެެެެެެެެެެެެެ(C)APPLE'83xLLM Mh@8nЍLޭ 0J @,,LZP׽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/ SAMPLE PROGRAM FOR TESTING PRINT MASTERG"A";A:"B";B:CAB_C: SUM OF A AND Br("D";D:EABD2 THERE WERE 5 SPACES AFTER REM< A,B,C,D,E: THERE WERE 4 SPACES AFTER DATA ߅ ߅ ߅ ߅ȱHȱh8ȱȱ)D ȑ`iiв̠ȥiiмЬШ^_`abc ȍ î® 򍪍 é 𮍪 ҍ Ǎ ٍ ҍРՠƹԠҍРՠ ĠҍРՠĠΠԠҍРՠРӠƠԠĠҍנՠƠȠƠčàՠ ϮƠӠϠˍàՠĠϮƠӠčàՠƠϮƠӠϠˠӠԠàՠРӠƠԠàՠŠԠŠϠĠĠՠųԠŠϠԠŠӍčǠ ōҠĠԠЍЍ٠ЫҠˠҠҠĠԠЍЍ٠ЫҠˠҠҠĠԠЍЍ٠ЫҠˠҠҠĠԠÍÍ٠ë٠ٽЩ٠Ԡ׍׍٠àŠÍ٠ëϠύé٠ŠàύàϠō٠ٽéٍëЩ٠ԠЍנŠΠˍ٠ٽЩٍЫɠŠϠϠōנŠ͠ˍРĠϠϠō ōààëԠϮƠӠčŠōàÍŠ٠ٽЩ٠ԠȠƠԍÍàנŭ׍àŠȠƠĠϠǠÍààýŭ׫٠ٽЩ٠ŠЍЍ٠ٽЩٍЫϠ٠ٽԠԠǠōˠЩ٠ӠҠƠčРЩ٠ȠҠƠԍѠ٠ȠƠӍààƠϬàÍŠРȠƠԠŠӠԍŠàӠýÍРÍŠԠȠƠύëРëŠԍƠ̠ŠǍ٠ƬٽЩ٠ŠƠƩΠΠԍٍЩٍӠĠ΍ԠààРϠԠԍР٠ǠàЍЫàЫŠà̠ȍ٠٠ٽ٫٠נٽ׿ŠˠȠĠŠǠƠύ٠ƠӬŠӠȠàŠàԠРЩٍٍëЩٍààРϠԠԍР٠ǠàЍЫàЫŠŠ̠ȍРàРàЍŠύàЫŠϠ̠ȍefg************************=* SPEED SEARCH DEMO *[* by C.B. Winkler *y* Copyright (C) 1992 ** MindCraft Publ. Corp.** Lincoln, MA 01773 *************************V :(21);:12:"SPEED SEARCH DEMO"::"This demo will fill a 100 element array and then find all occurances of the word'One.'"{ (4);"BLOAD SPEED.SEARCH,A$300" A$(100),S%(100) ( ** FILL A$ ARAY ** 2I110:A$(I):I <J19:I110 FA$(J10I)A$(I)(J) PI:J Z ** DEFINE W$ AND N% ** dW$,N%9 n ** READY, SET, GO ** x:"The array is ready.":"Press to begin the search: ";D$ ** CALL SPEED SEARCH ** WHERE: 768 = ADDRESS OF SPEED SEARCH W$ = STRING TO FIND A$(1) = 1ST ELEMENT OF ARRAY TO SEARCHL S%(1) = 1ST ELEMENT OF RETURN ARRAY TO USE{ N% = NUMBER OF ARRAY ELEMENTS TO SEARCH ** NOTE: NO SPACES AFTER ADDRESS ** 768W$,A$(1),S%(1),N% ** PRINT RESULTS ** I1  "Element","Element":"Number","Contents":# JS%(I)A J0ĺJ,A$(J):II1:210H JY  ** DATA **  One,Two,Three,Four,Five,Six,Seven,Eight,Nine,Ten  "One"  100ijklmnopq ******* 8/08/86 *******;* ProDOS STARTUP *X* BY OWL *u(* COPYRIGHT (C) 1987 *2* BY MINDCRAFT PUBL. *<* LINCOLN, MA 01773 *F***********************& K THANKS TO RUSS HOUGHTON OF BALTIMORE, MD., FOR REVISING THE OPENING GRAPHIC (11-90).1 P16384H Z::D$(4):(21)R d970 n ********** GET HI-RES SCREEN AND SET DISPLAY SWITCHES x11:3:"MINDCRAFT PRESENTS NIBBLE SOFTWARE" 15:13:"PLEASE WAIT..." D$"BLOAD STARTUP.SCREEN") G(16297)(16300)(16301)(16304)Z ********** READ INFO FROM NIBMENU TEXTFILEd 1120 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 MENU9 D$;"OPEN NIBMENU"P D$;"READ NIBMENU"i A$: A$ = DISK NAME NA$"NIBBLE "A$:22:20((NA$)2):NA$:1 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$5 6I0J @II1:768,S$(I)d J(S$(I),1,1)"#"350m T320} ^D$;"CLOSE" h(1101)6İ1080: ********** UPPER/LOWER CASE ROUTINE r ********** FIRST TEXT SCREEN |::3 "Thank you for ordering the Nibble":A$;"!":C "The programs on this disk are:":\ Z1NP:5:P$(Z):Zx 1030:FLAG$"ESC"ī600  ********** CYCLE THRU NIBMENU TEXT SCREENS A1 :3 S$(A)"@"İ1030::3:((FLAG$"ESC"))490:600S$(A)"#"510 S$(A)AA1:460J ********** LAST TEXT SCREEN BEFORE MENUS:3{6:"Thanks again for your order !"12:6:"ALL PROGRAMS ON THIS DISK ARE"&6:"COPYRIGHT (C) 1992 BY NIBBLE"06:"MINDCRAFT PUBLISHING CORP."*56:"P.O. BOX 256, LINCOLN, MA 01773"Z::17:5:"UNAUTHORIZED COPYING IS ILLEGAL"dD1030N ********** SET UP MENUXMEMM2:X$(0)" ":X$(1)"-->":b1:1:"Selection: : Instructions"l3:"----------------------------------------";*v5:20((A$)2):A$QI1ME2:61I:8:I". "MP$(I):z61(ME1):8:ME1". Catalog Disk"61ME:8:ME". Quit"21:"----------------------------------------"23:1:"Type number or use arrows, then ";:PX10:SX4:SL10 ********** SELECT CHOICERNSL:OSSL:780:Z0:24:8681: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ī380DSLSLZ(Z10):SLSLME(SLME)ME(SL1)\NOS:780:Z10700e800 ********** PRINT POINTER SUBROUTINE 61N:SX:X$(SLOS);: ********** SELECTION ROUTINE SL(ME1)İ860:600*SLMEİ900:SL1:780:680;42:1:" "::2:1:RC$(SL):h> ********** EXECUTE A VALID MENU CHOICEH49168,0::1100::D$;RC$(SL)R ********** CATALOG SELECTED \:49168,0::D$;"CAT":f24:7:"Press to continue";p49168,0:49152,128:0z ********** QUIT SELECTEDo22::958:"Do you really want to quit? (Y/N)";:49168,049168,0:49152,128(49152)249(49152)217Ĺ49168,0::1100: ********** SOUND BUZZER FOR WRONG KEYSTROKE EQ110:EY(16336)(16336):EQ:F ********** ERROR HANDLING ROUTINEN:o(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. "D23:"Press to continue ";:958:49168,0:49152,128:600i ********** WAIT FOR KEYSTROKEvFLAG$""23:" for next page or for menu";:49168,0:49152,128(49152)155FLAG$"ESC"$. *********** ATTACH UPPER/LOWER CASE ROUTINEB8I013:ML:768I,ML:I:D$"PR#A$300":vB ********** DETACH UPPER/LOWER CASE HANDLER L(4);"PR#0":V ********** INSTALL INPUT-ANYTHING ROUTINE`X768839:A:X,A::j ********** INPUT-ANYTHING ROUTINE DATAOt 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,0B ********** UPPER/LOWER CASE ROUTINE DATA| 216,201,225,144,6,201,251,176,2,233,31,76,240,253,0stuvwxyz{|}~p|~p|*U*U*U*U*U*(@?p~px|xժժժժժT*@?p~px|ЪժժժՊdO U @?`p~?pxԊԪ`|yg~0 cFc U*U*U*@@P*U*U*U*U*U c `Lgsc `0L| 0@ ժժժժժժ F`pO|`*U*U*U*U*U*0p|~p|(U*U*U*U*U**@?p~px|ժժժժժ`AT*@?p~px|xժժժՂn_? U@?`p~ppp}{c0 cFc(U*UA*U*ԪժժժժՊc|`LqFn|cx``G  pO?<ժժժժժժpaGo1G1v`cOFq3\qsqpO|`*U*U*U*U*U*p|~p|(U*U*U*U*U**@?p~px|ժժժժժ`AT*@?p~Ap||xժժժՂN?p Upysc'C&0.cFc(U*U P*U*@c|@`?|1@?<Ԫժժժժժժժժժժժ3L;sL1 3N0fF3F0f`pO|`*U*U*U*U*U*@?~yg|sO?~yg|sO?~yg|sO?~ygp|~p|(U*U*U*U*U*@*@?p~px|ժժժժժpcU*@?p~p|ժժժ_?@>| Ux{w cY#8X03X0FC30*U*U*U*U*Uc ``c 3@ Ԫժժժժժ`ժժժժժժ0LsL1 ?pgF1Fq1fqappO|`*U*U*U*U*U*pp~p|(U*U*U*U*U*@*@?p~px|ԪժժժժpcU*@?`p~p|ժժժ?~ GC@F Uxsg`c00@` 80`gF1\y1\yax1~p*U*U*U*U*U*@?p~Ap||x U*U*U*U*U*P*@?p~px|ԪժժժՊpgU @?`p~p|ժժ@?~|sp#XqF1 ;FpC ;P*  U @?~yg|sO?~yg|sO?~yg|sO?~yg@*U*U*U*U*Uc `]gs`gL`0L3 ?|1@ ժժժժժժ@pO|`ժժժժժժ0p|~pp*U*U*U*U*U*@?p~px|x U*U*U*U*U*T*@?p~px|ЪժժժՊtoU @?`p~p|ժժ`~} CCk<F9 gfCgU*(U*P*U*U*U*U*U c `Lgs0c|`0L  0@ ժժժժժժ F0`pO|`ժժժժժժ0p?|~?px*U*U*U*U*U*U135:V95::J13:LJ:H0:B902015:HH1:S6.3:ZS42:AHZ2SHZ2Z:L(L2)(L1)(L3):L:CAAZ.01ZB7:X(C)BU:Y(C)BV:U,VX,Y:C,A,B:6:M11912B 0,M279,M::(4);"BSAVE/RAM/P"J",A8192,L8192":::G0:S1999:T311:GG0:(4);"BLOAD/RAM/P"T",A"8192G8192",L8192":49236G,0::