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}' ADDRESSER//,BASIC.SYSTEM(- BORDERS.S'CHECKIT -ϲ LPLOT&<SLPLOT.DEMO1'+LPLOT.DEMO2(N'LPLOT.S+ .,MEMORY.PROBE12  .MEMORY.PROBE.S81^ 'NIBMENUi Ӷ Ӷ!.PHONETIC.CODERp: " &PRODOSt"}@-(SAUDI.NIGHTS,0x,'STARTUP }-Ӷ).STARTUP.SCREEN - . &TEASER 02)TEASER.SC2`- D$(4):"#OF ";L:"NA ";N$:"STREET ";S$:"CITY ST ";R$:"ZIP ";Z$:A(N$):B(S$):C(R$):D(Z$)4:WABACAD:XBABCBD:YCACBCD:ZDADBDC:PPAW:PPBX:PPCY:PPDZ D$"PR#1":I1L::X13:N$;PA);" | ";:X::X13:S$;PB);" | ";:X::X13:R$;PC);" | ";:X::X13:"ZIP ";Z$;PD);" | ";:X::M1(P3)6:"_";:M::I:(12):D$"PR#0" 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`ﻀ ԠŬLLW::"BORDER CHARACTER:";:B$:::1:A140:B$;::A222:A:1:B$;:40:B$;:23:A140:B$;:A:20:20:33,2:32,1:33,38:34,1:35,22:  !"#$%. ********** 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 0ȱȱ :ii8逅ȱ0 ȱ ` *********************9 * LPLOT.DEMO1 *U * BY DAVID HARRIS *q( * COPYRIGHT 1991 BY *2 * MINDCRAFT PUBL. *< * LINCOLN, MA 01773 *F *********************PLOOP026ZV:16384LOOP,VdLOOP n(4);"BLOAD LPLOT,A$300" x:3$ 7,64- 6,0` 768:22:"PRESS ANY KEY TO EXIT ":B$:::: 128,0,0,1,4,0,1,4,100,0,0,100,0,0,0 1,4,100,129,4,0,0,0,100 128,128,0)* *********************; * LPLOT.DEMO2 *X * BY DAVID HARRIS *u( * COPYRIGHT 1991 BY *2 * MINDCRAFT PUBL. *< * LINCOLN, MA 01773 *F *********************PLOOP026ZV:16384LOOP,VdLOOP n:3 xLOOP0# XH(16384LOOP)4 XH127ī180] XH256(16385LOOP),(16386LOOP)m LOOPLOOP3v 130 XL(16385LOOP) XL127Ģ22:"PRESS ANY KEY TO EXIT ":B$:::: XHXH128 XH256XL,(16386LOOP) 160 128,0,0,1,4,0,1,4,100,0,0,100,0,0,0= 1,4,100,129,4,0,0,0,100M 128,128,0,-./0 Ԯ é 卪 卪 κ 卪 Ϋ 卪 Ϋ 卪 ƍ  Ƭ 卪 󮍍Ǡ̠ՠ ōРՠ ōΠՠƴ ȭ ҍϠՠƵ ԍР٠ ō̩٠ ɠР Ѝؠ ҍ٠ ō̩٠ Р ٍ٠ ō̩٠ ō٠ ҍР ҍ 򬍪 Ϻ غ ō ú ō ٺ ōҠϠ ōà ҍԠ̠ ōà Ӎ̠ ō̫ ōà ō̫ ōÍàР ōРÍà ԍР ٍ٠ ō̩٠ ɠԠ ԍؠ ҍ٠ ō̩٠ ō٠Р ٍ 򬍪 κ ٺ ō غ ō ú ō 󮍍ҠΠ ҍÍàԠ ōԠӠ ō234567 / X L ց멈 !"     C " > C N ɍWɈɕɠaɛ$    L F R ɛ NL / XL ˉ̉ L ݉+މ, *LL>L> R{  > ׅ >LN LI Άφ LL L hΆφ`0i҆L R:;#"1 ; h: h L ? Dž;>: ą? X  c;(   c ; N L> > R ɍ ɛ "# X LNА;7562)! ą Ȱ څ` # X#Q #аs s - #s s 筂`H) J A hH)` Hh L Jh L h } ) `{$L[  LH h`O `7on# <>ٮŠ<><><><><><----------------------箠ĩþ󮠠Ҡź󠼭ξᬠþξ򮍼þ󮠠ξ󺠤þþٮŠӠŠҠîӠ٠٠ϠŮ0;F>>>>'Fwˁ򁪃  %2?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefgh ٮ 򍪍 󍪍Š Ƞ Ԡ Ƞ Ԡ ȠР͠Ƞ ̠֠ ̠ ̠ ̠Š Ǡ ͬ ͱ ͲŠà ٠Ġ ٍؠƹ Ǡ 㮍Ǡ  ؠà ŠĠ ҠōˠΠ ӠİȠ  ȍ ð 󍪍٠ðҸƠð ƍҸΠð Πð ˍؠð ˍ͠ð ͠ð ͍Рð İƍРð İƍŠð ҠðŲΠð Ųؠð Ǡð ͠ð İƍͲðͬ İ ͱðͬ İ 󍪍ؠƹ ؍ˠƹ ̲ƹ Ԡ²Ơ ֠µ  Π³ Šð Ű䍻Šõ Ԡ޲ ԠĸŠ Š ԠĠ ԲŶ ֠Ÿ ͠Ÿ ĠŹ ңԠŹң ͠ Š÷Ǡ 퍪ҠԍҠԍҠōΠ 占Р 忍ѠŠ٠Рɬ٠ ɍѠɍҠԍٍŠРɠҠ٠ 占РŠ ӍŠؠ ˩ҠӠ 썠ؠ̫ 占ؠƠ Ӡ 占٠Š Р¬٠ ˬ٠ 덠ٍ̠Ѝؠ Рƹؠ ؠƹō̠Р Š 占 ū ͱǠ 捠Š ͱؠͯͱͲ ㍠Š 㿍ѠȠ㍠ؠͯͱͲԍȠؠū 􍪍  ԍȍЍҠҠ ٠РŬ٠ 占Ѡ̍ҠԍٍŠР̠Ҡ٠ 󍪍  ҠԠ РҠР 占à؍ؠ؍ؠ ŠР 占ؠؠؠ ҠР 占ҠȠ 占Ҡ  Р ҠŠ 占ҠȠ ፠ҠԠ 󍪍 䍪РҠ٠ РĠѠĠ 䍠Р Ѡؠ Р Ѡؠ Р ѠŠ Р  ѠԠҠ̠ ѠР󍪍 򍪍ؠҠР 썠àؠ ̠Р ؠ ŠԠؠҠР 썠ؠ؍ؠ ؠ ŠԠؠ Ԡؠؠ РҠР 占РР 䍪 퍪ԠҠ̍Ǡ ؠǍҠԠ 占Ҡ٠ Р  ſѠŠҠԠ РР ŠҠĠ 򣰍ҠԠ 퍠ҠŠ РӠ Ӎ 卪Ġؠ ̠ ٠ 占Ŭ٠ 占ī ū٠ 占ī ĠҠĠ 占РР 󍪍Šؠ ̍٠ 占ٍٍ̬̫̫̫ ̠Ҡ̠ 占РР 󍪍Šàū ūРð ðѠŠ РŠ 卍Šàū ūРð ðѠŠ РŠ 卍ŠǠ ؠǍҠԍΠ ؠȠ ؠԠ 䍠ؠ 䍠ؠȍҠԠ Ӡ̠ 占ҠŠ Ҡ͠ ፠̠ Рð ðŠԠҠ̠ ðѠŠ Ԡū ҠŠ ̠РԠ 󍪍 ԠؠǠ ؠ 占̠͠ 占ؠ͠ؠǠ ̠̍٠ ؠ РԬ٠ Ѡ͍Ьؠ 占ٍ؍ŠР͠РР  ٠Ǡ Ҡ Ǡ Ѡٍ ٠٠ ؠ РԬ٠ ѠˍЬؠ 占ٍ؍ŠРˠǠ Šˠ占Ы Ы Šˠˠؠ Ҡˠ ˠàؠ ҠР àؠ РР 卪 򍪍ˠؠǠ ŠˠР̠ ˠؠؠ ؠ ̠ؠ Šˠ ؠ ˠҠˠ РР ˠؠؠ ̬ؠ Š Ҡà 鍠Ы ؠЫ 占Ӎ ͯͱͲ ͠ؠ͠ ͍ؠǠ 占ؠ Šؠ àˠؠˠؠǠ ؠ 俍Š͠ؠ͠ ͍̬͠ؠ Š 荠à Рؠ ɠ٠à ŠР ٠٠ ؠ РԬ٠ Ѡ͍Ьؠ 占ٍ؍ŠР͠РР  卪̠Ǡ ؠǍҠԍŠ ̠ ū̫à͍àР 卍 Рؠ ؠԠ Ҡ؍̫ Ҡà 鍠Π ؠΫ ̠ 䍠Ҡà Ϋ ؠΫ 썠Ƞ 䍠ҠԠ ӠӠ 占ҠŠ Ҡ͠ ̫̍ 占Рð ð 忍Š٠Ҡ̠ ðѠР ٠̫ ̠ 占̠ Ǡ Ѡˠ Ҡ͠ ˠ̫ؠǍҠð 卍 󍍠Ҡō 占 ҠԲ ̫ ð 덠Рð 荠ѠР Ԡ ҠҠ ҠԲ  ԍѠРӠؠ̫ 占ؠð 捠ŠР ð؍РؠūҠԠ Ҡ  РŠ ፪ 򍪍ҠҠŠ Ǡ ؠǍҠԍ٠Ҡ٠ РĠѠԠР  ѠРҠ̠ Ѡ٠ ԠР ፠͍ҠŠ ҠР РРԠ 󍪍 卪ˠū ؠǠ ͍ͯРİ İàð٠Ǡ ѠİР İؠ Ѡͱ 퍠ؠ 퍠ѠͱİРؠ 俍Ѡ͠ ͍РŰ İƿàˠ ؠͲŠˠ Ѡͱ ͱðРð ƿàð ͱ ٠ǠðƬ ѠԠҠ͠ ū ؠǠ ؍Ԡؠ 俍Š͠Рó óѠ͠ Рø øƿӠ͠ àˠ ͠ؠ 俍Ѡˠؠ ͍Š͠ðؠͱ 俍Ѡˠ ͱؠ ͱ͠ؠǍҠ͠ ͱ ͍ˠӠ䍪 ፪ŠҠˠ 占à͠ ҠŠ ፠à͠ 퍠Š 荠ȫ ፠ȲȠð ፠٠ 䍠٠Ҡ Ǡ ѠIJū Р àijРİ İӠijıŠ ˍǠ 䍠Ҡˠ 占ؠ ؠǍҠԠ 占ٍŠı ѠĠ 卍IJũ٠ ҠԠ 占ٍŠIJ ѠĠ 卍ijŠ ፠ū ū 占ū РŠ 䍠ǍР ŠŬ٠ Р ؠ 덠ؠǍҠԠ 占٠ 占ŠР Ġ͠ ͍ӠӠ 卍 Ԡ 占٠٠ ͠ ҍĠƠ 忍ŠҠؠҠ̲ ū ؠҠ Ҡؠ ҠԠ ҠؠǠ Ѡؠ 彰؍Ѡà 影ɠ 占Ġ Ѡؠ ፠Ҡˠ ҠԠ РԠ䍍ؠؠҠ̲ ҠŠ 占РԍàҠԠ 占 Ҡ̠ 썠ؠ РҬؠ ҠԠ ؍̠Р 卍ԠàҠ Ҡ ĠƠ 占ŠȲ ҠԠ Ȳð 䍠٠٠ čӍ 󍪍Ҡؠ ؠؠȠ ؍ؠȍР֠ РҠ֠ Рؠؠ ̬ؠ ؠ ؍ 占Ҡؠ Рάؠ ѠЍҠԠ ؍ŠЍРР͠ 卍Р ƍҠԠ ҠР 썠ؠ ӍȠ 占ؠ РҠԍ؍̠ЍӍԠǠ ؠǍԠū 占ؠū ͍ ԍȍР ٠ŠŬ٠ 占ѠǍҠԍٍŠŠǠ ͍ Ѝȍ ԍӍ٠٠ 䍠̠٠ ԠŠ 䍠ӍԠؠԠؠҠ ؠԍؠȍؠȠ ؠƠ ٠Ơ Рٍ؍ؠȠ 忍ѠŠάؠ 占Š̠ ߢ ̠ 婍ԠҠԠ άؠ Рߢ 忍ŠР 忍ŠԠ Šάؠ٠Ƞ ፍҠؠҠ άؠ ŠĠ ፠ Ġ Ҡ 占ҠȠ ҠȠ ̠Ҡ 䍠٠Ƞ ٍؠҠ ؍ԠŠ 䍍РĠ ѠΠР ѠčР ѠЍРĿѠЍРƠ ѠЍР  ѠǍР 򿍠ӠӠӠҠ̠ѠҠ Ԡ̠Ԡ ԍРؠ 忍ѠҠ 䍠ؠ Р ѠԠ ؠҠ Рؠ άؠ ؠ ά؍ؠ ؠȠ忍ŠРؠҠ ̠Ԡ ፍĠؠȠ ῍àŠѠҠ 썍ӠؠȠ ῍ѠӠР 򿍠àӠР àԠ РǢ ƿӠӠ Р àӠ Ԡάؠ Šؠ ̠ԠΠ٠ ῍ѠǠà ӍǠà 獠Ӡ 卍Ƞ ÍҠ àԠ Ƞ ȍ 덠ҠԠ ٠РؠƠ Р٠ 俍ɠȠؠŠЍٍŠЍȠӍà ĠƠ 占ҠԠ 鍠ؠ Ҡ 占Ҡ 占ҍҍԠ° 鍠Р 򿍠àؠà ƩؠӠ 卻ؽ 卍̠٠° 驍٠ҫ 占٠ҫ ٠Рà ؠƠ Ԡ؍à ӠԠ ؍à ° 鍠Ҭ٠ ٠ ŠР 占Ӎ ҠҠ ٠РӬ٠ 󺢍ѠԍҠԍٍŠЍԠҠ֠ 占٠ РҠˠ  Ҡà 鍠 占ҠԠ ƍٍ٠忍ŠРР͠ 卍͠Ҡ̠ ؠ  ؠ Ҡ٠  Рؠ ѠDZ 占РР DZӍ͠Ҡ̠ ؠ ͍ͯ؍Ҡ͠ 占 Рؠ ͯͿѠDz 占РР DzӍ̠ؠ б٠ в 捠ҠԍԠҍٍŠв؍ŠбӍ ҸƠ ƍؠ ũ٠ 占Π ҸΠ Ӎ 卪Р֍ ̫ 덠̍ؠñ ؠ̫ ׍ؠ 占ؠ̍ؠҠ Ҡ؍ԭؠ ѠР 占ҠԍŠҠ РҠ֠ ٠ РԠŲؠ ̩٠ 占Р ԠŲΠ Р ҠŠ 占̩٠ 퍠ҠŠ 占٠ ٠ 󿍠àР ҠԠ àҠ Ҡ 占Р 󿍠àР 占̠ ׍̫ ؍؍ѠР ؍Рؠ֠ Ӎ ŠɠԠ 鍠ؠŠ ؠ 忍ѠԠ Р 占àҠ Р 占à̠Ԡ ԠРƠ 򿍠Ѡ̠ Р 򿍠ӠԠ ̠占ɠԠ Ҡð ðƍРŰàԠðƬ 占ҠƬ ԠҠԍӍ 卍Ԡؠɍà΢ؠİ 卪Πà 墸İà墸İà 墸İРàİРà İРà İ Рàͱİàİàİ Ԡàà㢰à㢰ԠààԠà 占àͱàͲàԢŠ֠ij à øij à ٮ øijōà øijōà øijōà 𮢳øijōà øijōà ø ֠ĸ à İǠà à ĩčàþ ź Ǡà à čà à 󮢸čà ξ àþ İӠà 󺢰 Ǡàξ 򮢸čàþ Ǡàξ čàþ İǠà þ čà İɠàٮ îĸčà Ůİ 󍪍ŠōōōŠ ፠ōōō̍ҍ̠Ӡ Ӡ 占ōԍٍˍ͍ӍӍҠؠ ̠ؠ ̠ؠ±ô̠ؠ ؠ 卪 󍪍͠Р ؠ ٠ Р٠Ǡ 덠٠Ҡ 占٠Ҡ Šˠ 덠 ̬ؠ 占؍ˠ٠ 덠٠ ŠР٠٠Ǡ Р ӍjklmnoAUGUST 1991 DISK (VOL 12 /NO 8) 5 MEMORY PROBE CALLING ALL GRAPHICS TEASER GS PHONETIC CODER CHECKIT 3 MEMORY PROBE BRUN MEMORY PROBE PHONETIC CODER RUN PHONETIC.CODER 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 Memory Probe remove all but the following files from a copy of this disk: MEMORY.PROBE MEMORY.PROBE.S This program is included on the ProDOS and DOS 3.3 sides of this disk. @ To create a work disk for Calling All Graphics, remove all but the following files from a copy of this disk: LPLOT.S LPLOT LPLOT.DEMO1 LPLOT.DEMO2 These programs are included on the ProDOS and DOS 3.3 sides of this disk. They are not included as options in the program menu, because they require special instructions. See the docu- mentation for details. @ To create a work disk for Teaser GS, remove all but the following files from a copy of this disk: TEASER.SC TEASER This program is included only on the ProDOS side of this 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 Phonetic Coder, remove all but the following file from a copy of this disk: PHONETIC.CODER 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: MEMORY.PROBE.S LPLOT.S TEASER.SC @ # qrs! *************************A * PHONETIC.CODER *a * BY JOSEPH LARSON * * COPYRIGHT (C) 1991 * * MINDCRAFT PUBL. CORP. * * LINCOLN, MA 01773 * ************************* A,0,B,1,C,2,D,3,E,0,F,1 ( G,2,H,0,I,0,J,2,K,2,L,4; 2 M,5,N,5,O,0,P,1,Q,2,R,6Y < S,2,T,3,U,0,V,1,W,0,X,2g F Y,0,Z,2 PCL$(26),CO$(26):"Phonetic Coder by Joseph Larson":"Copyright (C) 1991, MindCraft Publ.": ZA126 dCL$(A):CO$(A) nA x"Enter a word to encode (ALL CAPS):"" IN$G (IN$)0ĺ"Nothing to Encode":R PH$""^ A126 (IN$,1)CL$(A)PH$PH$CL$(A) A (PH$)0ĺ"Word must begin with a letter!"::120 (IN$)1B2:350 PR$(PH$,1): PREVIOUS DIGIT B2: POSITION IN PH$# A2(IN$)0 DIG$"0"< C126_ (IN$,A,1)CL$(C)DIG$CO$(C)f Cx DIG$"0"340 "DIG$PR$340 ,PH$PH$DIG$ 6PR$DIG$ @BB1 JB4380 TA ^AB4 hPH$PH$"0" rA |"The Phonetic Code for ";IN$, " is ";PH$9 ::120uvwxyz{|}~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&MIKE:S16336:C(33)1:A(C):35,23:24:Z1C:"^";:Z:Z768785:A%:Z,A%:Z:56,251,226,48,162,255,160,150,173,48,192,136,208,253,202,208,245,96:Z1C+ H(1)C::(A(H)0)2:A(H)H:24:36,H:" ";:36,13((C79)19):"]Saudi Nights[":23:36,H:"^":36,H:(34):768::Z124::::1 ******* 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) 1991 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,0p|~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* ,@ K"" %h" %H " %hhHH" %iH@H" %" %LHiH" %"C w 5"""7" T"T"T"7"kS"sS" w m m Ly߬Y- \ BYY m B zZV" B7"T"᭡z w LLyH] "h]_)0;mY`z0!ZgHO"hhY`8`M[zR7"{T"᭥H &":""᭣`Z[9-7"zZHY"Ly7"zZHT"7"zZHS"zZHT"Ly@0ࢀ0`000`" [H:"zZ) H" H"[i [H:"ွ;"[WHUH" %L "Lh``E>"(H2"h``H"""""HH"H""")/ Please InsertOkayAbort7 Major Malfunction! Error: DA,p   123456789QRqr  @6I$#+3;CKS[cks  W(WWz\zzS\uSuSu,\N,N,NYzizzVirVrVr6iN6N6N|f||XfpXpXp4fL4L4L Teaser GS Quit Restart Congratulations! You've solved the puzzle! Sorry, You lost. Teaser GS By Timothy // Shay Copyright 1991 By MindCraft Publ. Corp. - Start - - Win - - Lose - 789 789 789 456 456 456 123 123 123 - Moves - - Moves -789 789 789 789 789 789 789 789 789456 456 456 456 456 456 456 456 456123 123 123 123 123 123 123 123 123 %"%1E%KQVYcn%q%%%Cw55   !$8k;kEsHsRUw[^dmjmmwyY\BYmBBzwy ]]]$_1m69YOgRgUXgYnqt[{{[y "%25@yx[[[[WU %!3?BEHKNQTmp/#+3;CKS[cks  ***************************************************************** * TEASER GS Source Code * * By Timothy // Shay ORCA/M GS Assembler * * Copyright 1991 By MindCraft Publ. Corp. Lincoln, MA 01773 * ***************************************************************** KEEP TEASER MAIN START PHK ;Environment: Data Bank PLB ;equals Code Bank ***************************************************************** * Start up all the necessary tools * ***************************************************************** WAKEUP LDX #$0201 ;Start Tool Locator JSL $E10000 ;TLStartup PEA 0 ;Start Memory Manager LDX #$0202 ;MMStartup JSL $E10000 JSR ERRORS ;Check for errors PLA ;Keep our UserID STA USERID LDX #$0203 ;Start Misc Tools JSL $E10000 ;MTStartup JSR ERRORS ;Check for errors PEA 0 ;Get direct pages PEA 0 ;for toolbox use PEA 0 ;Space for handle PEA $500 ;5 pages LDA USERID ;Our ID PHA PEA $C005 ;Locked, fixed, aligned, PEA 0 ;fixed address in PEA 0 ;Bank 00 LDX #$0902 JSL $E10000 ;NewHandle JSR ERRORS ;Check for errors PLA ;De-reference our handle STA 0 STA HANDLE PLA STA 2 STA HANDLE+2 LDA [0] ;Get our direct page STA DPAGES ;address and keep it LDA DPAGES ;Start Quickdraw PHA ;DP address PEA 0 ;320 mode PEA 0 ;Default pixel map size LDA USERID ;Our ID PHA LDX #$0204 JSL $E10000 ;QDStartup JSR ERRORS ;Check for errors LDA DPAGES ;Start Event Manager CLC ADC #$300 PHA ;DP address PEA 20 ;Event queue size PEA 0 ;Minimum X for mouse PEA 320 ;Maximum X for mouse PEA 0 ;Minimum Y for mouse PEA 200 ;Maximum Y for mouse LDA USERID PHA ;Our ID LDX #$0206 JSL $E10000 ;EMStartup JSR ERRORS ;Check for errors TOOLOAD PEA $1B ;Load Font Manager PEA 0 ;Any version LDX #$0F01 JSL $E10000 ;LoadOneTool JSR ERRORS ;Check for errors CMP #$DE01 ;Recoverable disk error? BEQ TOOLOAD ;Yes, try loading again CMP #$DE00 ;Non-recoverable error? BNE FMSTART ;No, continue JMP FIN1 ;Yes, we're through FMSTART LDA USERID ;Start Font Manager PHA ;Our ID LDA DPAGES CLC ADC #$400 PHA ;DP address LDX #$021B JSL $E10000 ;FMStartup JSR ERRORS ;Check for errors ***************************************************************** * Get Ready - Initialize game screen and variables * ***************************************************************** BEGIN PEA $EEEE ;Clear screen to LDX #$1504 ;light grey JSL $E10000 ;ClearScreen LDA #HIMSG ;Send 'Hello' message JSR MSG JSR GETMK ;Get any event PEA 0 ;Change color table 0 PEA COLORS|-16 ;to our color table PEA COLORS LDX #$0E04 JSL $E10000 ;SetColorTable BEGIN1 PEA 0 ;Clear screen to black LDX #$1504 JSL $E10000 ;ClearScreen LDX #$CA04 ;Show the mouse JSL $E10000 ;InitCursor PEA 14 ;Pen = light grey LDX #$3704 JSL $E10000 ;SetSolidPenPat PEA TOPREC|-16 ;Draw title box PEA TOPREC LDX #$5404 JSL $E10000 ;PaintRect PEA MIDREC|-16 ;Draw game box PEA MIDREC LDX #$5404 JSL $E10000 ;PaintRect PEA BTMREC|-16 ;Draw Q-R box PEA BTMREC LDX #$5404 JSL $E10000 ;PaintRect PEA 0 ;Pen = black LDX #$3704 JSL $E10000 ;SetSolidPenPat PEA QREC|-16 ;Draw Quit box PEA QREC LDX #$5304 JSL $E10000 ;FrameRect PEA RREC|-16 ;Draw Restart box PEA RREC LDX #$5304 JSL $E10000 ;FrameRect LDA #GAMMSG ;Send game message JSR MSG LDA #$1FF ;Old field = all stars STA OLDPIC BEGIN2 STZ MOVES ;Restart Reenters here LDA #0 ;New field = all holes JSR FIXPIC ;Draw game field LDA #16 ;New field = start JSR FIXPIC ;Draw game field ***************************************************************** * Start Playing! - This is the main 'thinking' loop * ***************************************************************** THINK JSR GETMK ;Get an event BCS THINK ;Not valid, get another CMP #18 ;Quit? BNE THINK1 JMP FIN THINK1 CMP #20 ;Restart? BEQ BEGIN2 LDY BXPTR ;Get the field bit for LDA STRPTS,Y ;our chosen system AND OLDPIC ;Check for a hit BNE THINK2 JSR BLOOP ;Miss, bloop and get BRA THINK ;another event THINK2 JSR BLEEP ;Hit, bleep INC MOVES ;Add to move count LDY BXPTR ;Make the changes to the LDA OLDPIC ;game field EOR HITMODS,Y JSR FIXPIC ;Draw game field LDA OLDPIC ;Check for a winning or BEQ WL ;losing field CMP #$1EF BNE THINK ***************************************************************** * Win/Lose Routines * ***************************************************************** WL JSR BLEEP ;Win or lose - bleep and PEA 9 ;flash the game board WL1 LDY #$FFFF ;several times with a WL2 DEY ;short pause between BNE WL2 ;flashes PLY DEY BEQ WL3 PHY PEA MIDREC|-16 ;Invert game box PEA MIDREC LDX #$5604 JSL $E10000 ;InvertRect BRA WL1 WL3 JSR BLEEP ;Bleep again and PEA 14 ;Pen = light grey LDX #$3704 JSL $E10000 ;SetSolidPenPat PEA MIDREC|-16 ;Fill the game box PEA MIDREC ;with light grey LDX #$5404 JSL $E10000 ;PaintRect LDA OLDPIC BEQ LOSE WIN LDA #WINMSG ;Send the winning or BRA WL4 LOSE LDA #LOSEMSG ;losing message WL4 JSR MSG WL5 JSR GETMK ;Get an event CMP #20 ;Restart? BNE WL6 JMP BEGIN1 WL6 CMP #18 ;Quit? BNE WL5 JMP FIN ***************************************************************** * Get mouse/keyboard events and evaluate them * ***************************************************************** GETMK PHA ;Get an event PEA $FFFF ;All events PEA EVREC|-16 ;Location of event record PEA EVREC LDX #$0A06 JSL $E10000 ;GetNextEvent PLA BEQ GETMK LDA EVWHAT ;Check for keyboard CMP #3 ;event BNE GETMK2 LDA EVMSG ;Keyboard event, check AND #$7F ;for a match in MKData LDY #26 ;and set the BxPtr GETMK1 DEY ;accordingly DEY BMI GETMK4 CMP MKDATA,Y BNE GETMK1 LDA MKDATA1,Y STA BXPTR CLC ;Valid event, carry is RTS ;clear on return GETMK2 CMP #1 ;Check for mouse event BNE GETMK PEA 22 ;Mouse event, check if GETMK3 PLY ;it was inside a game DEY ;system or box and set DEY ;BxPtr accordingly BMI GETMK4 PHY PEA 0 PEA EVWHERE|-16 PEA EVWHERE PEA RECPTR|-16 LDA RECPTR,Y PHA LDX #$4F04 JSL $E10000 ;PtInRect PLA BEQ GETMK3 PLA STA BXPTR CLC ;Valid event, carry is RTS ;clear on return GETMK4 SEC ;Invalid event, carry RTS ;is set on return ***************************************************************** * FixPic - Redraws the screen if any changes were made * ***************************************************************** FIXPIC STA NEWPIC ;Save our new field EOR OLDPIC ;Note any changes from STA TRSHVAR ;old field in TrshVar PEA 18 ;Starting at system 9 FIXPIC1 PLY ;and working down DEY DEY BPL FIXPIC2 ;Done? PEA 14 ;Yes, pen = light grey LDX #$3704 JSL $E10000 ;SetSolidPenPat PEA MVREC|-16 ;Fill move count area PEA MVREC ;with light grey LDX #$5404 JSL $E10000 ;PaintRect LDA MOVES ;Change the move count PHA ;from an integer into PEA MOVES2|-16 ;an ASCII string PEA MOVES2 PEA 6 PEA 0 LDX #$260B JSL $E10000 ;Int2Dec PEA 147 ;Move pen to move count PEA 183 ;location LDX #$3A04 JSL $E10000 ;MoveTo PEA MOVES2|-16 ;Draw the last three PEA MOVES2+3 ;digits of the move count PEA 3 LDX #$A704 JSL $E10000 ;DrawText LDA NEWPIC STA OLDPIC RTS FIXPIC2 PHY LDA TRSHVAR ;Was there a change to AND STRPTS,Y ;the current system? BEQ FIXPIC1 ;No, next system AND NEWPIC ;Changed to star or hole? BEQ FIXPIC3 PEA 7 ;Star, pen = red LDX #$3704 JSL $E10000 ;SetSolidPenPat PLY ;Draw the star PHY PEA CPTRS|-16 LDA CPTRS,Y PHA LDX #$5904 JSL $E10000 ;PaintOval JMP FIXPIC1 FIXPIC3 PEA 1 ;Hole, pen = dark grey LDX #$3704 JSL $E10000 ;SetSolidPenPat PLY ;Draw hole's interior PHY PEA RECPTR|-16 LDA RECPTR,Y PHA LDX #$5404 JSL $E10000 ;PaintRect PEA 0 ;Pen = black LDX #$3704 JSL $E10000 ;SetSolidPenPat PLY ;Draw hole's outline PHY PEA RECPTR|-16 LDA RECPTR,Y PHA LDX #$5304 JSL $E10000 ;FrameRect PLY ;Draw space behind hole PHY PEA PTRS2|-16 LDA PTRS2,Y PHA LDX #$5404 JSL $E10000 ;PaintRect JMP FIXPIC1 ***************************************************************** * Bleep and Bloop - The sound routines * ***************************************************************** BLEEP LDY #$40 ;Bleep! BLEEP1 TYA ;Bleep and Bloop are TAX ;modified //e 'speaker BLEEP2 DEX ;peeker' routines for BNE BLEEP2 ;sound with various LDA $E0C030 ;time delays between LDX #$180 ;speaker clicks BLEEP3 DEX BNE BLEEP3 STA $E0C030 DEY BNE BLEEP1 RTS BLOOP LDY #$30 ;Bloop! BLOOP1 LDX #$110 BLOOP2 DEX BNE BLOOP2 LDA $E0C030 LDX #$110 BLOOP3 DEX BNE BLOOP3 STA $E0C030 DEY BNE BLOOP1 RTS ***************************************************************** * Speedy Message Delivery Service * ***************************************************************** MSG STA MSG2+1 ;Store message address PEA 4 ;Text mode = foreCOPY LDX #$9C04 JSL $E10000 ;SetTextMode PEA 4 ;Move cursor to top left LDA #9 ;X = 4 and Y = 9 STA TRSHVAR PHA LDX #$3A04 JSL $E10000 ;MoveTo PEA $FFFF MSG1 PLY ;Get message pointer INY ;Go to next character PHY MSG2 DC H'B90000' ;Equates to LDA XXXX,Y AND #$7F ;Keep bits 0 through 6 CMP #$1F ;Control character? BCC MSG3 ;Yes, handle it. PHA ;No, draw the character LDX #$A404 JSL $E10000 ;DrawChar BRA MSG1 MSG3 CMP #$10 ;Color change? BCS MSG4 PHA ;Yes, pen = current LDX #$A004 ;character's value JSL $E10000 ;SetForeColor BRA MSG1 MSG4 CMP #$11 ;New line? BNE MSG5 LDA TRSHVAR ;Yes, Y = Y plus 10 CLC ADC #10 STA TRSHVAR PEA 4 ;X = 4 PHA LDX #$3A04 JSL $E10000 ;MoveTo BRA MSG1 MSG5 CMP #$13 ;Line adjust? BNE MSG6 PEA 0 ;Yes, Y = Y plus 1 PEA 1 LDX #$3B04 JSL $E10000 ;Move INC TRSHVAR BRA MSG1 MSG6 CMP #$14 ;Venice font? BNE MSG7 LDA VENICEF+2 ;Yes, install PHA ;the new font LDA VENICEF PHA PEA 1 ;No scaling LDX #$0E1B JSL $E10000 ;InstallFont JSR ERRORS ;Check for errors CMP #$DE01 ;If we can't find venice BEQ MSG6 ;font on system disk, JMP MSG1 ;ignore the font change MSG7 CMP #$15 ;System font? BNE MSG8 LDX #$131B ;Yes, restore the font JSL $E10000 ;LoadSysFont JMP MSG1 MSG8 PLA ;Non-recognized control RTS ;characters = end msg ***************************************************************** * Errors handled here free of charge * ***************************************************************** ERRORS BCS ERRORS1 ;Did an error occur? RTS ;No, we're done ERRORS1 CMP #$45 ;Was it the wrong disk? BNE CRASH BEGDISK JSL $E100A8 ;GetBootVol DC I2'$28',I4'BVPARM' ;Get the boot disk for PHA ;tool set and font PEA 20 ;loading PEA 50 PEA PROMPT|-16 PEA PROMPT PEA VOLNAME|-16 PEA VOLNAME PEA OK_MSG|-16 PEA OK_MSG PEA CNCLMS|-16 PEA CNCLMS LDX #$1101 JSL $E10000 ;TLMountVolume PLA CMP #1 ;Is the right disk in? BNE NODISK LDA #$DE01 ;Yes, load 'Disk OK' RTS ;message and return NODISK LDA #$DE00 ;No, load 'Wrong Disk' RTS ;message and return CRASH PHA ;Major Malfunction, PEA CRSHDAT|-16 ;display error message PEA CRSHDAT ;and crash LDX #$1503 JSL $E10000 ;SysFailMgr ***************************************************************** * FIN - Shut down, quit, go home * ***************************************************************** FIN LDX #$031B ;Shut down the tools JSL $E10000 ;FMShutDown FIN1 LDX #$0306 JSL $E10000 ;EMShutDown LDX #$0304 JSL $E10000 ;QDShutDown LDX #$0303 JSL $E10000 ;MTShutDown LDA HANDLE+2 ;Give back our PHA ;DP memory space LDA HANDLE PHA LDX #$1002 JSL $E10000 ;DisposeHandle LDA USERID PHA LDX #$0302 JSL $E10000 ;MMShutDown LDX #$0301 JSL $E10000 ;TLShutDown JSL $E100A8 ;GSOS Quit DC I2'$29',I4'FINDATA' ***************************************************************** * Data Space - Where no man has gone before * ***************************************************************** USERID DS 2 HANDLE DS 4 DPAGES DS 2 BVPARM DC I4'VOLNAME' PROMPT DC H'0D',C'Please Insert' VOLNAME DS 18 OK_MSG DC I1'4',C'Okay' CNCLMS DC I1'5',C'Abort' CRSHDAT DC I1'55,13,10,10',11I1'32',C'Major Malfunction!' DC I1'13,10',14I1'32',C'Error: ' FINDATA DC 6H'00' COLORS DC H'0000440441082C070F008000700F000D' DC H'A90FF00FE000DF04AF0D8F07AA0AFF0F' VENICEF DC I4'$0E000005' BXPTR DS 2 TRSHVAR DS 2 EVREC ANOP EVWHAT DS 2 EVMSG DS 8 EVWHERE DS 6 MKDATA DC I'49,50,51,52,53,54,55,56,57,81,82,113,114' MKDATA1 DC I'0,2,4,6,8,10,12,14,16,18,20,18,20' OLDPIC DS 2 NEWPIC DS 2 MOVES DS 2 MOVES2 DS 6 STRPTS DC I'1,2,4,8,16,32,64,128,256' HITMODS DC H'1B00070036004900BA002401D800C001B001' RECPTR DC I'ORECS,ORECS+8,ORECS+16,ORECS+24,ORECS+32' DC I'ORECS+40,ORECS+48,ORECS+56,ORECS+64,QREC,RREC' PTRS2 DC I'IRECS,IRECS+8,IRECS+16,IRECS+24,IRECS+32' DC I'IRECS+40,IRECS+48,IRECS+56,IRECS+64' CPTRS DC I'STRS,STRS+8,STRS+16,STRS+24,STRS+32' DC I'STRS+40,STRS+48,STRS+56,STRS+64' TOPREC DC I'10,87,29,232' MIDREC DC I'40,87,160,232' BTMREC DC I'170,87,189,232' ORECS DC I'122,92,156,133,122,139,156,180,122,186,156,227' DC I'83,92,117,133,83,139,117,180,83,186,117,227' DC I'44,92,78,133,44,139,78,180,44,186,78,227' QREC DC I'172,89,187,146' RREC DC I'172,173,187,230' MVREC DC I'172,147,187,172' IRECS DC I'122,105,146,133,122,143,146,176,122,186,146,214' DC I'86,105,114,133,86,143,114,176,86,186,114,214' DC I'54,105,78,133,54,143,78,176,54,186,78,214' STRS DC I'124,102,148,131,124,145,148,174,124,188,148,217' DC I'88,102,112,131,88,145,112,174,88,188,112,217' DC I'52,102,76,131,52,145,76,174,52,188,76,217' GAMMSG DC H'1114',4H'13',24H'20',C'Teaser GS',16H'11',H'15' DC 24H'20',C'Quit',11H'20',C'Restart',H'16' WINMSG DC 7H'11',H'0414',19H'20',C'Congratulations!',2H'11' DC 21H'20',C'You''ve solved',2H'11',23H'20' DC C'the puzzle!',H'001516' LOSEMSG DC 8H'11',H'0414',27H'20',C'Sorry,',2H'11' DC 25H'20',C'You lost.',H'001516' HIMSG DC H'1114',23H'20',C'Teaser GS',H'151111',23H'20' DC H'01',C'By Timothy // Shay',H'111102' DC 19H'20',C'Copyright 1991 By',H'11' DC 19H'20',C'MindCraft Publ. Corp.' DC H'111104',9H'20',C'- Start -',10H'20',C'- Win -' DC 10H'20',C'- Lose -',H'1101',14H'20',C'789',17H'20' DC H'0737383901',17H'20',H'37383911',14H'20',H'3407' DC H'35013607',17H'20',H'340135073601',17H'20',C'456' DC H'11',14H'20',C'123',17H'20',H'0731323301',17H'20' DC C'123',H'111104',16H'20',C'- Moves -',16H'20' DC C'- Moves -',H'1101',3H'373839202020',H'03370138' DC H'3920202037033801392020203738033920202007370338' DC H'0139202020033707380339202020013703380739110334' DC H'3501362020203435362020203403353620202007340135' DC H'3620202003340735033620202001343507362020200334' DC H'3501362020203435362020203403353611073103320133' DC H'2020200331073203332020200131033207332020200331' DC H'01323320202031033201332020203132033301' DC 3H'202020313233',H'11110F202020',C'',H'001516' END