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}' APPLEMATE6@+APPLEMATE.S] BASIC.COPYB!Ѵ;BASIC.FIX.IT5##,BASIC.SYSTEM( 'CHECKIT' 6/ ϲ DEMO.MACROS/@)+EDIT.MACROS0%EFFECT.MAKER@3!״*FIELD.SORTA_',FONT.DISPLAYF%L%4$LIFEJ $Ǵ .-LIFE.SRC.CODES7k+.*MACRO.INITZ 6#+METRIC.CONV x,)'NIBMENU ..PLOADER?!״POINT.M16P(P)&PRODOS"}@#(SCRAMBLER,'.SCRAMBLER.DEMO/,3+SCRAMBLER.S+ , 'STARTUP ®3p.STARTUP.SCREENC 9`4?إ )M )A )C L2hL٩h2ȭ3h23i*L Ja0bG E80< 8e0(0ȱ0F  F꩘EL?  ǠҠɠ͠ǠӠԠ±Ԡ·Ҡ¸ĹҠ̠ųΠðԠčŠƳƍŠƴčҠ 䍠Ҡ 󮍠ҫҫҠԠ â 俍ĠƍРͧŠӍҠԍĠƍРŠӍҠԍĠƍРçѠčӠҠ ҍҫҫҠԠ 䍠РƠ č 占ҫ 򮍠̠ 忍Р΍Š̍Р ̠Π Ҡ宍٠̠ 썠ҩ٠ ٠ ̫ҩٍΠ 占̠ 󮍠ɠ Χ̫Íà 占٠ҫΠ ҩ٠ 宍Р Р ЍР ΠҠƠ ̍ҠŠ 占٠ ؠΠ 俍ɠٍؠΫ忍̠Π 􍍠٠ 卍٠٠͠ Ǡ 俍Íà° ɠ΍Р Ӡ΍à͠ 占͠ 䍠٠ ٠Ҡ Ҡ 占ҫ 占 宍α 䍠à͠ ç Ƭɠò βҩ٠ Р 獠àҠ ŠγàҫγР 俍̠β 獠ɠα ñ٠ òҩ٠ 򮍠ɠР ᅪؠӠ Ҭ؍ҠԠ ؠ ؠӍؠư 򿍠àñ 占 ؍РǠ ΠРŠ  D$(4):V$D$"VERIFY":L148825:L248826:A$",A$4000,T":I010:J:768I,J:I:"SOURCE:";F1$:V$F1$:TY(48824):A1(L1):A2(L2):"DESTINATION:";F2$A D$"CREATE"F2$",T"TY:D$"BLOAD"F1$A$TY:L(48857)(48858)256:D$"BSAVE"F2$A$TY",L"L:V$F2$:L1,A1:L2,A2:48820,7:768::169,195,32,112,190,144,3,76,9,190,96 XLL$L1L& f` !"#$%&LG ASTARTUP$#   / XXύX?klmnÍoL) "6L'?"(0`6708" = ***)<JJH !h穖tp% ;"Z/݀>">"' 1" 7"5).莀/ ;" " 6" >" 1"6"$ "g"" !"""""I򭭻LYL 8!9 詍` "  4"/pŠϠŠà͠ӠàԠŠH06172839h` v97L75v^a ?/( va?L5LLɍ$?`?a ɍɥAH93827160hH46576879h`,C bL ɍ b ,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 $݅3`(l8L3LX>(Ƀ,`3,G0]ɾ g` H`پ_پ p _پ׾`>( p۾m׾) W)ʩ@`ɾ>(O黩 puȾ ɾ-O c־Jjjj껝2뻝3 `O>0O v POپھ p +H־Ǿh۰8L־Jjjj2껽3뻭ɾ)Ⱦ8껰  OLӜ ΤLLX>(F﻽ﻝﻩ`ֻ־ؾپھ׾` bɄ KDEF vLl v lL5 bKɍKL?`  vLl@3 @LtJ)s@J b  l`a?sa?,E30ɍФ3 E3HD F3 Ʉ%h3 bM E  lLthɍLL3`3,A0s0% Ipn DpnI:L ؅3ݷ03LG8H933LΞAAJL ةޘг uv $ 8LƞaЌ>?@`>?@`B;8`W K  黐LK ҟ ҟ l KK`JJJJ8`轌K)` #hhLJپھ pHJh` D!hgtp `tp8nnitpiͱtso8pinii>j?kͷ>pIiͯͷ l - `>i>?Ek?!>Q>>>Ͳͳ `` \>Ͳ ͳ `e>>?ʹ?>?Emn(>e>ȱ>e?>Q>ؠ> ie>>?`;=:<:<=;`ͯm;>:8o>oȑ>ppȑ>> :op` DKpn͋ @p;틻=po:i>?Ek?>Q>> L> \/ e>>?ʹ?ޱ>ȥj>>m>` im8iŻnjƻkiljoŻS -޻.߻$I2 U)VJ T)`l޻8`a HbIJhjǾȾɾ p٭b=aIe f`8` cP־ǾҾ,G0C =W)_``\"׾پӾؾھ pD`־ǾY׾ؾOW)ݩȾɾʾ pD`8`W)CB) ŵ 춰5W) )W)@! pZ}ȾȾ󰹩 p` c־ǾҾ,G 8`׾ؾ  p ۥs׾tؾE` c ( |о(־Ǿ,G 8`_`W)H־Jjjjh2׻3ػ p̭ػ׻ L%Ǿ廎滠 ..8׻ػ 廍⻈ۭ (׻8廪ػ滨mȾȾmɾɾʾiʾ` Lpl8l:/,s̝sƬƀ#(ZZV4G_0=( A P FjL\5p-e9ABSAVERIFYBLOADELETEBYECATALOGOPENWRITEXECREATEFRESTORENAMEBRUNLOCKCHAIN#FLUSHREADPOSITIONOMONPR#PREFIXCLOSEAPPENDbzDl e|Ŭ-⭚ݴgaB<{P~VM@@ -!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~T٩   LiLMTRLLLLL58ﻀۻ)Iۻ `2Eۻ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 CACATALOLOABLOASAVBSAVDELETVERIFLOCRENAMHOME:LIS?CHR$(4)INPU?PEEK(Z)+PEEK(Z+1)*25CALL-15POKE36DEFFNRIGHT$LEFT$MID$123456789:;<=>?& *******************************K* AppleMate *p* The Complete Keyboard *(* Macro System *2* *<* By Chris Chapman * F* Copyright 1990 by *) P* MindCraft Publ. Corp. *N Z*******************************j d------- Set-Up Section n:(21)::MA$(19):1820 xD$(4):LA16384: $4000 L127:D:767L,D: 169,4,32,245,190,133,7,96,162,2,160,0,177,8,145,6,200,208,249,230,9,230,7,202,16,242,96: (64435)61980: ][+T (977)290: DOS 3.3 ------- MacroMate installer for ProDOS Make sure prefix is the same as the one where EDIT.MACROS lives. (640)āI1(640):P$P$((640I))::NI21:(P$,N,1)"/"Ă: (640)N3P$(P$,N1):D$"PREFIX"P$j 430:BFF1:S1:520: AppleMate installed 460: BLOAD AppleMate 768:BF(7): Allocate buffer 470: Poke in Ampersand vectors 490: Poke in relocated address 500:776: Set up for relocate, do itR MAC:520: Continue with loading/saving/editing ------- MacroMate installer for DOS 3.3 "430:BFF1:S1:D$(13)(4):520: AppleMate installed ,(40193)149ĺ:(4)"MAXFILES4":40192,218:40193,149::(4)"MAXFILES3"6 6D$(13)(4):LA16384:BF150:7,BFQ @460: BLOAD AppleMatev J470: Poke in Ampersand vectors T490: Poke in relocated address ^ Patch for DOS 3.3 hLA55,85:LA56,170:LA71,85:LA72,170 rLA77,86:LA78,170:LA84,56:LA85,0$|LA89,57:LA90,0GLA98,32:LA99,234:LA100,3r500:776: Set up for relocate, do itMAC:520: Continue with loading/saving/editing------- Subroutines for installationI(116)150((I256)1)165((I256)2)184Ă:#MAC:BF(7):BD$"BLOAD APPLEMATE,A"LA:dLA48,(1014):LA49,(1015){1014,0:1015,BF:LA51,BF:9,LA256:8,LA((9)256):6,0:------- Main Menu F$"NEW":BFBF1:RBBF256UE1:(64448)234UE0:49167,0C:36,15:"AppleMate":36,12:"By Chris Chapman"s&36,3:"The Complete Keyboard Macro System"0" Copyright 1990 by MindCraft Publ. Corp.":I140:"_";::34,6<D:33,29:32,11:9:"1. Load Macro File":"2. Edit Current File":"3. Print Current File":"4. Save Macro File":"5. Exit"fN15:" . Choice";:36,0:49168,0:CH$XCH$"0"CH$"5"ĺ(7):590bCH$:32,0:33,40l(CH$)640,730,880,1060,1740v------- Load File&F1ĺ:::5)"Replace file in memory (Y/N): ";:YN$:YN$"Y"YN$"y"580;CM$"LOAD":1250ZD$"BLOAD"F$",A"LA:F1:S19,LA256:8,LA((9)256):6,0:7,BF776: Relocate table to protected buffer1140:730------- Edit Macros in memorye35,24:34,21::22:"Type number to edit, SPACE for next pg.,";:36,9:"or for Main Menu":35,21:34,6:Fĺ::36,12:"No file in memory":1970MA$(0)""İ1140720:"Open Apple Commands ":I09:UEĺ" ";:790 :"A";:%I" ";MA$(I);35(MA$(I))):5 :P1:1170_*:"Closed Apple (Option) Commands":{4I1019:UEĺ" ";:840>:"@";:HI10" ";MA$(I);35(MA$(I))):R:P2:1170:760\------- Print Macrosf in memory"pFĺ::36,12:"No file in memory":19707zMA$(0)""İ1140:"Enter slot printer is in, RETURN to":"accept, or to exit."SL1::"Slot: "SL;(8);:SL$SL$(27)580:SL$(13)950SL$"1"SL$"7"910SL(SL$):D$"PR#"SL:(9)"80N")"AppleMate Macro Commands";IF$"NEW"ĺ" for file "F$;Q:" Open Apple Commands"20)"Closed Apple Commands"" ---- ----- --------"20)"------ ----- --------"I09" "I" "MA$(I);37(MA$(I)));:I" "MA$(I10) :(12)D$"PR#0":5706------- Save Filed$Fĺ::36,12:"No file in memory":1970n.138087,LA256:6,LA((7)256):8,0:9,BFB776: Relocate table to $4000LCM$"SAVE":1250VD$"BSAVE"T$F$",A"LA",L";L:S1:XT580:`------- Initialize 1j macro arraysht22:36,14:"Please Wait.";:LRB:I019:MA$(I)""~1690:X(L):MA$(I)MA$(I)(X(X127)128):LL1:X1281150::------- Edit Macro49168,0:49152,128:X(49152)128:X32ı X27ġ:35,24:580!X48X57117035,24:34,21::22:" Enter macro and press RETURN when you ";:36,3:"are finished, or to go back.":34,6:35,21XX48:XX(P2)109X10(P2):36,3:49168,0:Y0:Y$MA$(X):1430:MA$(X)Z$:S0:PK0:720:P760,810/------- Get Filenamen:49168,0:"Type '?' to catalog, type file name to "CM$;CM$"LOAD"ĺ", or 'NEW' for a new file"10:"Enter Filename: ";:Y$F$:Y1:1430(Z$,1)"?"1330 (Z$)1Z$"CAT"(Z$,(Z$)1)4(Z$)4(48896)761320:ZZ$(Z$,(Z$)3)GD$"PREFIX"ZZ$(D$("CATALOG",74((48896)76))::"Press Return to continue.":49168,0:49152,128:F$"":12502CM$"LOAD"Z$"NEW"MA$(0)"":I019:RBI,160::F1::730<Z$""ġ:580 FF$Z$:%P------- Poke Macros>Z into place HdPKın22:36,14:"Please Wait.";:LRB:I019:X1(MA$(I)):1690xL,((MA$(I),X,1)):LL1::L1,(L1)128::LLRB:PK1------- Input SubroutineH(36)1:V(37)1+H:V:Z$Y$:Z0:Y$;35(Y$));:V]HZ:G$:G(G$):YY1:Y(Z$,1)"?"YY1222G1271510:(Z$)1ZZ$"":Z0:H:35YYY22);:1450(Z$)ZZZZ1:Z$(Z$,Z):H:Z$" ";:1450Z1ZZ1:Z$(Z$,Z)(Z$,(Z$)Z1):H:Z$35YYY22(Z$));:1450TZZZ1:Z$(Z$,(Z$)1):H:Z$35YYY22(Z$));:1450^1450(G13Z)1670:G13Z$Y$:Z(Z$):1670G21Z(Z$)ZZ1:1450G27Z$Y$1440G27YZ$"":G27Z$Y$:G25Z0Z$"":35YYY22);:1450="G25Z$(Z$,Z):H:Z$;35Y22Z);:1450Y,G24G25:Z0:H:1560{6G8Z1450:G8ZZ1:1450@G31Z35YYY22ĺ(7);:1450JZ(Z$)Z$Z$G$:1660TZ0(Z$)1Z$G$:1660^Z0Z$G$(Z$,(Z$)1):1660$ hZ(Z$)1Z$(Z$,(Z$)1)G$:1660F rZ$(Z$,Z)G$(Z$,(Z$)Z1)[ |ZZ1:G$;:1450 H:Z$(Z$,Z):Z$;35YYY22Z);: ------- Pinwheel routine PW0Ĺ36,12:"!";:36,27:"!";:PW1: PW1Ĺ36,12:(92);:36,27:"/";:PW2:$!PW2Ĺ36,12:"-";:36,27:"-";:PW3:K!36,12:"/";:36,27:(92);:PW0:e!------- Exit routine!::36,10:"ARE YOU SURE(Y/N)? ";:YN$:YN$:YN$"Y"YN$"y"580"F1S1ĺ::36,4:"FILE NOT SAVED. SAVE NOW(Y/N)? ";:YN$:YN$:YN$"N"YN$"n"XT1:1070'"F1770:S1380?"(21):::F1790q":D$"PR#3":::MAC:"AppleMate Installed":w""------- Error Trap" routine ":34,6::ER(222)"&R$"APPLESOFT":ER0ER22ER$"DISK"C#0ER$ER$" ERROR":ER0ER21ER$ER$" # "(ER)" AT LINE "((218)(219)256):1960t#:ER4ER$ER$", DISK WRITE PROTECTED":1960#DER6ER$ER$", FILE NOT FOUND":F$"":1960#NER8ER$ER$", CHECK DISK IN DRIVE":1960$XER9ER$ER$", THIS DISK IS FULL":19604$bER10ER$ER$", THAT FILE IS LOCKED":1960b$lER13ER$ER$", NOT A MACRO FILE":1960$vER16ER11ER$ER$", DOS/PRODOS SYNTAX ERROR":F$"":1960$ER$ER$", UNKNOWN PROBLEM":1960$15:"ERROR IN SETUP SECTION. Check to see"$%"that all files have been correctly"U%"saved and all lines correctly keyed in.":x%15:36,20(ER$)2.5:ER$"."%24:36,8:"Press RETURN to continue.";:49168,0:49152,128:580%:"THIS COMPUTER CANNOT RUN APPLEMATE"173,33,3,170,202,240,3,76,4,3,173,46,192,41,15,170,234,234,234,141,34,192,44,0,192,16,229,169,240,141,34,192,96,138,147,157,165,173,182,187,247:I76876832:A:I,A::I18:X(I)::R((1)8)1:801,X(R)1 :"EFFECT.MAKER":"By Marco Tabini":::"Let's see this effect : it's great!!!!":768 BCDE! *************************A * FIELD.SORT *a * By James T. Parr *( * Copyright (c) 1990 *2 * MindCraft Publ. Corp. *< * Concord, MA 01742 *F *************************P **** Program Data Z Williams,"The Green Tree",1990,Phillips,"Concord & Computers",1989,Davidson,"How To Become Very Rich",1992,Phillips,"Concord & Computers II",1991 d Phillips,"Building Your Own Plane",1991,Peters,"Insects And You",2000,Williams,"Grass",1992,Smith,"The Green Tree",19882 n **** Variable InitializationB x(4)"pr#3"} NB7:MAXFIELDS3:I%(NB,MAXFIELDS),BOOK$(NB,MAXFIELDS) **** Reading the data I1NB:BOOK$(I,1),BOOK$(I,2),BOOK$(I,3): 330: Start of program **** Display subroutine I1NB! BOOKI%(I,IN)Q J1MAXFIELDS:BOOK$(BOOK,J);J25);:::Y : **** Insertion Sort. Initialize and sort indexes: IN1MAXFIELDS:I1NB:I%(I,IN)I::I15:S1((1)NB1):S2((1)NB1):TMPI%(S1,IN):I%(S1,IN)I%(S2,IN):I%(S2,IN)TMP:::2 **** Sorting RoutineP MOVE2NB:T%I%(MOVE,IN)d UPMOVE111 BOOK$(T%,FIELD)BOOK$(I%(UP,IN),FIELD)300 I%(UP1,IN)I%(UP,IN) "UP ,I%(UP1,IN)T% 6MOVE: @ **** Program Start$ J230: Initialize indexes (only need to do once) T::"FIELD.SORT, By James T. Parr. Copyright (c) 1990":"MindCraft Publ. Corp."::34,3:IN1:FIELD1:180 ^"Sort by which field (1-3, Esc to quit, Press Return to scramble): "; hCH$:CH$;:CH$(27)ĉ::rCH$(13)ī330I|FIELD(CH$):FIELD1FIELDMAXFIELDSĺ(8);:360^:250:180:350GHI" *************************C * FONT.DISPLAY *d * BY: LEO C. CURRAN *( * COPYRIGHT (C) 1990 *2 * MINDCRAFT PUBL. CORP. *< * CONCORD, MA 01742 *F ************************* P:13:"FONT DISPLAYER" Z11:"BY LEO C. CURRAN"C d8:"(C) 1990 MINDCRAFT PUBL."] n12:"PLEASE WAIT..."i xD$(4) (48896)76ĺD$;"PREFIX/RAM" D$;"OPEN FONT.TXT" D$;"WRITE FONT.TXT" "<1=NEW.YORK.12>":"<2=>":"<1>FONT DISPLAYED: ":Y "Keyx1x2x3Keyx1x2x3 Key x1 x2 x3"f J3364x KJ32:LJ64 J60J62NJ:J32: SUPERFONTS DELIMITER "<1>"(J)"<2>"(J)""(J)""(J); N60N62JN:N0: SUPERFONTS DELIMITERl "<1> "(K)" <2> "(K)" "(K)" "(K); "<1> "(L)" <2> "(L)" "(L)" "(L) J D$;"CLOSE" 12:958$ "THE FILE 'FONT.TXT' HAS BEEN CREATED":(48896)76ĺ"ON /RAM."KLMNOPQRY,C ~ExpressLoadY +"#x4I #+"0E +"K"" h "  H " h h H H""  iH@ H" " L H iH"  J i H )  i H )JJiH i'H )JJiHJ" w""7" HH:" HH<" HH<" i ɐж7"ဪ 7"" " ":"" ":"""8  H   &  &Vt  H LL"  Ǟ©  i HV" @'  )>  )>>  )>  )>>  'C  )>A  )>>E     0L &  i HV"- "hL H L Hd "hHH "h H &"e  #G F( ɂ   HL"zJZ)>0  h H H"ဳH &"H &"`H "#"T"4:""2;H" "T""T""T"8:""`H  "h h18 H m HO"hh JJ `8``E>"(8H2< JO"h``HU""""" H H" H""")q Please InsertOkayAbort'Major Malfunction - Error: UU   ||}}    uu ttwx  }~  tsvvwwNݾݾ۾ݻNDDNDDNDDNDDNDDNDDNLIFE GS Copyright 1990 MindCraft Publishing Corp. Select Live Cells 000 Selected! Generation 0000, 000 Live Cells  0000% Success Rate Unbelievable! Outstanding! Good job! Holding your own... Not so hot... A losing proposition...'Quit Start Restart$Done Generate Continuous tx "1EKQV`ru%CFIMX[_jmq|) #&)25------- Error Trap routine\15:"Error in setup section. Check to see"f"That all files have been correctly"p"saved and all lines correctly keyed in.":Yz15:36,13:"HARDWARE ERROR":36,3:"THIS COMPUTER WILL NOT RUN APPLEMATE":! *************************A * METRIC.CONVERT *a * BY JARY NEMO * * COPYRIGHT (c) 1990 * * MINDCRAFT PUBL. CORP. * * CONCORD, MA 01742 * *************************X 1170: The following fields (between : symbols in print statements) contain 28 characters (including the colons) :7:7::": :" (7:": CONVERSION :" 27:": BY JARY NEMO :"f <7:": :":7:": COPYRIGHT (C) 1990 :":7:": BY MINDCRAFT PUBL. CORP. :":7:": :": F20:7:"Press any key to continue.";:ZZ$ PX31:I$(X):M$(X):MI(X):IM(X):NT(X):T$(X):X1:VC11 ZNT(X):T$(X):T$(X)"LAST"ī130 dFRX:WDXNT(X)6 nXFRWD:I$(X):M$(X):MI(X):IM(X):> x90M 34,6::4a X039:"_";:s MAIN MENU :3:64668:10:"MAIN MENU" :"[1] LENGTH" :"[2] MASS" :"[3] AREA" :"[4] VOLUME" :"[5] VOLUME (liquids)" :"[6] TEMPERATURE"@ ::"[0] OTHER";:15:"[9] QUIT";:R X:S(49200)a X9ī1140o X1ī490 X2X5:490 X3X8:490 "X4X13:490 ,X5X17:490 6X6X22:490 @X0ī340 J170 T:"[1] FORCE" ^:"[2] PRESSURE"* h:"[3] ANGULAR VELOCITY"@ r:"[4] VELOCITY"T |:"[5] ENERGY"g :"[6] POWER" ::18::"[0] GO BACK";: X:S(49200) X1X23:490 X2X24:490 X3X26:490 X4X27:490 X5X28:490 X6X30:490170A:3:64668:C((T$(X))2):16C:T$(X)e:10:"[1] IMPERIAL TO METRIC":"[2] METRIC TO IMPERIAL"::16:"[0] GO BACK";::CN:S(49200):CN1CN2ī170 Secondary MenuCN2ī720 & Imperial to Metric menu0NT(X)0ī610X::M0NT(X):"[";M1;"] ";I$(XM);" to ";M$(XM)::qD::"[0] GO BACK":NCH:S(49200):CHNT(X)1ī570XXXCH1:CH0ī160b:"Convert ";I$(X)l"to ";M$(X)vVC:"Enter the No. of ";I$(X)#"to be converted and press [return]"8:I$(X);:":";DYADIM(X):X22A59(D32):"ANSWER":VC:D;" ";I$(X);" Equals.....":A;" ";M$(X)880610 Metric to Imperial menuNT(X)0ī770:M0NT(X):"[";M1;"] ";M$(XM);" to ";I$(XM)::5::"[0] GO BACK":YCH:S(49200):CHNT(X)1ī730qXXCH1:CH0ī160:"Convert ";M$(X) "to ";I$(X)VC:"Enter the No. of ";M$(X) "to be converted and press [return]"*:M$(X);:":";D4ADMI(X):X22A1.8D32K>:"ANSWER":VC:D;" ";M$(X);" Equals....."^H:A;" ";I$(X)gR880p\770f Continue or notp17::"[SPACE] TO CONTINUE"::"[ESC] TO MAIN MENU"z:RT$:S(49200):RT$(32)ı:1600 3,LENGTH,inch(s),centimetre(s),.394,2.5380,feet,metre(s)s 3.28,.3049,yard(s),metre(s),1.0941,.914,mile(s),kilometre(s) .6211,1.61,2,MASS,ounce(s),gram(s),.0353,28.3,pound(s) kilogram(s),2.2,.4545,ton(s),tonne(s),.984,1.0163,4,AREA& squ inch(s),squ centimetre(s),.155,6.45,squ feet] squ metre(s),10.8,.0926,squ yard(s),squ metre(s) 1.1963,.836,acre(s),hectare(s),2.4691,.405,squ mile(s) squ kilometre(s),.3861,2.59,3,VOLUME,cubic inch(es) cubic centimetre(s),.0610,16.4,cubic feet,cubic metre(s)W 35.3,.0283,cubic yard(s),cubic metre(s),1.3072,.765,bushel(s) cubic metre(s),27.4725,.0364,4,VOLUME (fluids),fluid ounce(s) millilitre(s),.0352,28.4091,pint(s),litre(s),1.7599,.5682& (imp) gallon(s),litre(s),.2198,4.5496,(imp) gallon(s),(US) gallon(s)k .8327,1.2009,(US) gallon(s),litre(s),.2642,3.785,0,TEMPERATURE degrees Farhenheit,degrees Celcius,0,0,0,FORCE,pound-force,newton(s)$ .2247,4.4503,1,PRESSURE,pound(s) per squ inch,kilopascal(s)3. .1451,6.89,inch(s) of mercury,millibar(s),.0295,33.9z8 0,ANGULAR VELOCITY,revolution(s) per minute,radian(s) per secondB 9.55,.1047,0,VELOCITY,mile(s) per hour,kilometre(s) per hourL .6211,1.61,1,ENERGY,British thermal unit(s),kilojoule(s),.9434IV 1.06,therm,megajoule,9.48E-3,6.0445,0,POWER,horse power,kilowattb` 1.3405,.746,0,LASTrj QUITt::"DO YOU REALY WANT TO QUIT (Y/N)"::A$:AS(49200):A$"Y"A$"y"ī170~34,0:: ERR ROUTINEER(222):LN(219)256(218)w:10:8:(7)::"SORRY! I DON'T RECOGNISE THAT COMMAND.":::"Press any key to continue ...";:ZZ$:160NOV. 1990 DISK (VOL 11 /NO 11) 6 APPLEMATE METRIC CONVERTER LIFE GS FONT DISPLAYER STRING SCRAMBLER SORTING ARRAYS 5 APPLEMATE RUN MACRO.INIT METRIC CONVERTER RUN METRIC.CONV STRING SCRAMBLER RUN SCRAMBLER.DEMO SORTING ARRAYS RUN FIELD.SORT 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 APPLEMATE remove all but the following files from a copy of this disk: APPLEMATE EDIT.MACROS MACRO.INIT DEMO.MACROS These programs are included on the ProDOS and DOS 3.3 sides of this disk. @ To create a work disk for METRIC CONVERTER, remove all but the following file from a copy of this disk: METRIC.CONV This program is included on both sides of this disk. @ To create a work disk for LIFE GS, remove all but the following file from a copy of this disk: LIFE This program is included only on the ProDOS side of the disk. It 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 FONT DISPLAYER, remove all but the following file from a copy of this disk: FONT.DISPLAY This program is included only on the ProDOS side of the disk. It 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 STRING SCRAMBLER, remove all but the following files from a copy of this disk: SCRAMBLER.DEMO SCRAMBLER These programs are included on the ProDOS and DOS 3.3 sides of this disk. @ To create a work disk for SORTING ARRAYS, remove all but the following file from a copy of this disk: FIELD.SORT 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 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 files for the major assembly language programs have been included on this side of the 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: APPLEMATE.S (Merlin) SCRAMBLER.S (MindCraft) LIFE.SRC.CODE (Orca / APW) POINT.M16 (Orca / APW) @ # 24,251,139,194,48,162,0,32,160,0,128,169,255,31,84,225,0,171,56,251,96,0,12288,0,48,0,32,3000,12288,0,48,0,80,6000,8191,255,31,0,128:I76876820:A:I,A:::"File name?";A$:49193,97:I13> B$,B:(4)"BLOAD"A$",A$2000,B$"B$",L"B",T$C1":A,B,C,D:780,A:781,B:777,C:778,D:768::49193,129:A$:49193,1***************************************************************** * POINT Macro - Pushes an address pointer * ***************************************************************** MACRO &LAB POINT &LOC &LAB PEA &LOC|-16 PEA &LOC MEND * BNE SELECT2 elected? * BNE SELECT2 L !C}" %"" &)#M8( Y% ) LH""" &)jB, )7(P0 ( @X p 8 " ! +}""0 &"0 R%"" &)?) ;",")ɂ """ &) R%LH")0I0hx H( , R%Щ ߩ"L! )L! 8'  )ɀ)4,- U JNT) "L"" &) !` |"M)Fi/ ƀ"3 """ " iL X\"LY"ίΠ`"""""(#*(% F%Z]eRQ!0SB}RBiBB}` }FELT#> ȏ6 . ) ɟ"     Lb#b#ŠϠĠԠ  m# m# J Qڨ)̰}]! нȱ ̀𩠙 i  a Y n ɟg   VR6  .X ɛL " e ' 0% '8 Jm ʈ0  0ŠϠĠ͢Š͠͠ϠŠŠϠĠخ͠ ͍B B(8`<YYZLYLYLY뿭` 8!@8` R%MNЩUMߩ  L 5   8 0 8  `0 / X?&G& e&&q&P&0`ŠӠֱ̭ԠŠҬî̠ӠĮʎ1&… )n&Dž )\%T&L()8= )J 81(&2(& m((ʎ1ζ&ζ&&3223 ')L&18&"m11 2H22h2舌&&12H)M0 h10200I20h2 C(`L%12 `_3("L  <8# ȱ)ɀ  );( ` (Xp< @;( )m;(;(.;(>( M;(i  ``) '(j21 & &!` )&&(i(&(( CBDFGE !)&$ m(,&& … m(ŅL7'JJJJ`Ϡ3(8`&h)hrȱȱȱȱ0]cȱeem+ȱ+ȱ++ȱ++ȱ+ )+ C* )L2)`Ly* U*L) ) L2) )L)8e` ,$`ee` `+ *+ *` * * *`hh8`8`+++`}+`e`H)hJJ*0JJ)` (< ( < *? ( < (? ( < (? ( <*? * **? *? *? ( < *? ( <x0HH1HH "hh+("i 0Ꮻ\Ꮸ0hh8(`hhh8k/<ʆ>-=?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@)@pvȱ@Hȱ@Ah@@cpe J) LL LJiB LJ) BxNhHHHHL(  ްƠx@BEOD  ް(`( C)CJJJl`B f-`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 C'KI؍0JHi 뎁`C8` @)0 3N0" K莭0 ⭪i` ]; 뮁ٝ٘ 0 W,0 .H hȑNWȮّNW8`ٍّNΨ0NN` G8`F@ 0 F 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 ΊJFȱJL8`GBJ R FإG`BH RFإG`,H hHB؅F  ؅GxDE؍00C ް(`(8` zL)J  8"L zH  8 9ؙ` @ P8`K8`B8` H؈OJJJJحm) ) )Ю ЪG `F $ ᭔ع+ؠ 6H  Qh8` 䮁ٽ ٬ؠ@` ( 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ΞL9L-M O,p莝eNNO(`JNKOL 6/ $P L8 } [ؑJ`L@ȱ@ `@Nȱ@O`؝}}vIvؐ` hzؽ}؝v h ' h؝zv؈` ` H Rh)N@ 9; L  6$ )bJ ] ) H 6hL )  )حJjIwHIvH؊ PLKΞʱNLMO MЈMEKݸP%MEKΞL& O, PeNNO N(` C  7 2JvHIwHI؊ LI  ,` A Hv ع Hw ؙ؊ؠIhHIhH  iع `  عiعi` )؍0CGHFHBFGx ް(8hFhG`@4͔ L @Ai ׭2` . Q#ع؍0 ]讁)`.@+ i 8` L )߹0 )p )@ ) ȩ ؝H0JK 방 LMJKFG 嬂؍b؍c؝d ؝_ vO) vO )حI͖ z`H@h`h``N8`  ) 9⬂Ȣ؝z@zݚ@ʈLN 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 F`aO)@LP8` `  zHOCDC h`yٙ٭yٙ٩`H GB`FaG 3%&N    ܮ `J HH hh` 0 @ LJL t_̴Xܝ ݝ0̴ȩFG  0` ܅F݅G ` } tͬ 밽܅F݅G ` }) t$ L`L뮰HH hFhG܍ݍ 8 `FHGH  hGhF`ݹܙ݊`@Bɼ>K@J5 z9X(K zXXK تKo`V8`no` C on zI9XX`)HJJJh`OeNeO࿰ z9XАO`@ȭ@` ON `NJKO`HхhꭋILhH),ex8 (8` ԍ`@Ae Hk00YpmGIJK,-NOPQRSu' @   !"#$Ԡ͠(C)1983-89APPLELKL`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ҠؠӠ΢ϠԩҠŠƠԠԠŠӢɯϠҠůȠԠĠ  ح o âXoύX1021ʆ ")i/ d+ M# L $0)0ei B = )n  Э` M )ЏL6  9 X [ ?  W" !# n. n'% n% n ɍ+Ɋɋɉɛݮʽ/ L6L[  Mȱ蝀` ̭  ( 9 X L $ ` & & & &e`{8i [`0{2H* Ah2  Mȱ  L `κºú` GAB0h)ύh0HHHH " ׍hhhhhhh .hh8`JIMJAYKERRY&MIKEL` { lݠ``#m{O ڢ` \ Wۦ``L&````" *************************C * SCRAMBLER.DEMO *d * BY ROGER CLEMENTS *( * COPYRIGHT (C) 1990 *2 * MINDCRAFT PUBL. CORP. *< * CONCORD, MA 01742 *F ************************* P24576:*** Protect memory above $6000 Z180> d(4)"BRUN SCRAMBLER":216,0n n:3:"APPLE II CHARACTER STRING SCRAMBLER" x11:"BY: ROGER CLEMENTS" 8:"(C) 1990 MINDCRAFT PUBL." 12:"STRING (PRESS RETURN TO QUIT): ";A$: A$""Ā A$ ::"PRESS ANY KEY... ";:A$:110. (222)191Ħ''Ҡ堠'󠠠'㩠'𮠠'䬠'򠠠'!Ҡՠ#Ƞՠ'Ǡՠ󠽾%ؠՠ»ح%àՠӠ ҠՠƵ#ȸՠ»"ҠՠĴӠ&Ϡՠ»Ԡՠµ"ϠՠµûӠ)ҠՠĶû+̠ՠķ»Ӡ%Ӡՠ Ǡ$ûý Ի ҫԯ ҫӻ-2堧ԠҠ̻Ҡһ٠РéҬ ̠ٻŠ٭栾ӻ !0-ؠ&٠$Ӭػ ؠ(ŠԻ0箠ح$ !àȸ堳򠴰'Р򠴰&àԭà#Ҡϻ嬠ؠ)Ԡ٠Ӭػǩ"Ҡϻ ؠ!ŠԻ(ҠԻ笠ؠȻح(Šλ堨-Ԡ+宠'Ԡ$ŠӰ٠ӻ ٠&Šλ"ӻ塠(Πػ䮠Рٻ$Πػ*àӬػŠԻ ӰӬػ$РȻ$Ѡλ ؠػ ٠ػРРӬ#ѠŻٻ嬠٠ƻ"ŠлѠλ#ŠàӬػŠӰ ******* 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) 1990 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