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}' AMPOSI,BASIC.SYSTEM(β; Ѳ BLOX~-'CHECKIT 6/ ϲ CHIRP&CODE.BREAKER'ϴ  EXEC.MAKER(  +HEXADDITION) 2 δ(MATCHING0)MELBOURNE.OZ3-MISSILE.HEAD4-'NIBMENU5 ' &PRODOS> }=β8 β8 'STARTUP^ ®3p.STARTUP.SCREENhC 9`4%SUMITn,A +TEST.WRITER(IM3 δUSR.DEMO1h @մ USR.DEMO2h @3 USR1 h h USR1.Sִִ USR2h h &USR2.S]ִ3ִ4 ` , V +,:# 0P5LԆ${ : ` 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?L9LLɍ$?`?a ɍɥAH93827160hH46576879h`,C bL ɍ b ,S0 @ lLޭBDEF޾ p ޾ p($ذ v (0 C( L?ԦʚLeةީa s  lL b,FLg,DL,C0$3 >@ Ɉ 3ɾꩈL(3ɾ;Ƀ CB94 l% bʽ  ՚,S` H $݅3`(l8L3LX>(Ƀ,`3,G0]ɾ g` H`پ_پ p _پ׾`>( p۾m׾) W)ʩ@`ɾ>(O puȾ ɾ-O c־Jjjj6ﻝ7 `O>0O v POپھ p /H־Ǿh۰8L־Jjjj67ﻭɾ)Ⱦ8  OLӜ ΤLLX>(F󻩍`ڻ־ؾپھ׾` bɄ KDEF vLl v lL9 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 ؅303LK8L933LΞAAJL ةޘг uv $ 8LƞaЌ>?@`>?@`B?8`[ K  LK ҟ ҟ p 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ʻki»ljûoɻS 1⻽2$I2 U)VJ T)`l⻩8`a HbIJhjǾȾɾ p٭b=aIe f`8` gP־ǾҾ,G0C =W)_``\"׾پӾؾھ pD`־ǾY׾ؾOW)ݩȾɾʾ pD`8`W)CB) ɵ 5W) )W)@! pZ}ȾȾ󰹩 p` g־ǾҾ,G 8`׾ؾ  p ۥs׾tؾE` g ( о(־Ǿ,G 8`_`W)H־Jjjjh6ۻ7ܻ p̭ܻۻ L)Ǿ黎껠 ..8ۻܻ 黍滈ۭ (ۻ8黪ܻ껨mȾȾmɾɾʾiʾ` Lpl8l:/,s̝sƬƀ#(ZZV4G_0=( A P FjL\5p-e9ABSAVERIFYBLOADELETEBYECATALOGOPENWRITEXECREATEFRESTORENAMEBRUNLOCKCHAIN#FLUSHREADPOSITIONOMONPR#PREFIXCLOSEAPPENDf~Dp iŬ-⭚keF<{TZM@@ -!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٭   LiLMTRLLLLL9<߻)M߻ `6I߻8` ԠŬLL:49234,0:10:48:0:T768774:A:T,A::233,3:232,0:XXX0999:X,Y:(X0Y0)2:DX0:YY10:10,Y:D0X10:1DX,Y:1D,Y:DXD:D,XX| 1,0,4,0,62,44,0,19,2,19,3,19,5,18,2,18,3,18,5,17,2,17,3,17,4,17,5,15,1,15,2,15,3,15,4,15,5,13,3,13,4,13,5,12,3,12,5,11,1,11,2,11,3,11,4,11,5,9,3,9,4,9,5,8,3,8,5,7,1,7,2,7,3,7,4,7,5,5,1,5,3,5,4,5,5,3,3,3,4,3,5,2,3,1,3,1,4,1,5,0,0 !"#$%. ********** 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 L`:I14:N(I)((1)9)1:JI111:II(N(I)N(J)):::I01:"NBR:";N$:D0:P0:X14:N((N$,X,1)):PP(NN(X)):Y14:DD(NN(Y)):::DDP:(37):10:"D="D" P="P:I(P4):D$(4):33,33/"Exec Filename: ";N$BD$;"OPEN ",N$UD$"WRITE ",N$[kD$;"CLOSE"v33,40~: *+,-./' ******************************M * HEXADDITION *s * BY DAVID HICKEY-SCHIAPPA *( * COPYRIGHT(C) 1990 *2 * MINDCRAFT PUBL. CORP. *< * CONCORD, MA 01742 * F ****************************** P(17)::15:"HEXADDITION":9:"BY DAVID HICKEY-SCHIAPPA":1:"COPYRIGHT(C) 1990 MINDCRAFT PUBL. CORP.":22:"press any key to start":8 Z16368,0 dTT15:(16384)128āHT1525:HT:"+";:16336,0:ET1100::HT:" ";:: nHT1525:HT:"+";:::& x16368,0, "This program will add or subtract two":"HEX numbers of 5 digits or less each."::"Only valid HEX numbers are accepted.":"If you make a mistake, to reenter" 34,14: GET INPUT\ :HX$"0123456789ABCDEF":15:1:958:NM$"":X140:"-";:::"Enter the HEX numbers ( to accept)"t "First number: $"; GET FIRST NUMBER 16368,0:TN$:TN$(27)AH$"":1008:16:958:190: IF START OVER TN$(13)(AH$)0NM$AH$:530:ADCH:TN$"":250& TN$(13)190y 700:730:TN$;:TN$""ĺ(7);:190: CHECK FOR CASE & VALIDITY, & PRINT DIGIT AH$AH$TN$:(AH$)5Ģ18:1:958:(7);(7);::"NUMBER TOO LONG!"::ET12000::AH$"":18:1:958:170 190 GET OPERANT2 ::958:"Choose A)dd or S)ubtract: ";Y "A";(8);:AS$:AS$(13)AS$"A" 780:AS$"A"AS$"S"AS$"":(7);:18:260 "AS$:2:"( to accept; to reject)"; ,RET$:RET$(27)AS$"":20:27:958:270!6RET$(27)RET$(13)RET$"":(7);:300Z@VAS$"SUM":PM$"+":AS$"S"VAS$"REMAINDER":PM$"-"rJ GET SECOND NUMBERT::"Second number: $";:958^16368,0:TN$:TN$(27)BH$"":1008:17:958:350: IF START OVERhTN$(13)(BH$)0NM$BH$:530:BDCH:420)rTN$(13)350Q|700:730:TN$;:TN$""ĺ(7);:350BH$BH$TN$:(BH$)5:24:1:958:(7);(7);::"NUMBER TOO LONG!";::ET12000::BH$"":21:340350 ADD THE NUMBERSAS$"A"ABADBD:630 SUBTRACT THE NUMBERS+AS$"S"ABADBD:630I DISPLAY THE INFORMATION16:1:958::VAS$;:":":::"$"AH$;" "PM$;" $"BH$" = "AD" "PM$" "BD",":"= "AB" Decimal, or $";:MIĺ" -"CH$" Hexadecimal.":480CH$" Hexadecimal."/::1:"DO ANOTHER? (Y/N) ";:"Y";(8);:AN$:AN$(13)AN$"Y"|AN$;:AN$"Y"AN$"N"AN$"y"AN$"n"Ģ(37)1:(36)1:(7);:480AN$"Y"AN$"y"ī160::15:17:"BYE!": CONVERT NM$ TO DECIMALCH0:WK0M(NM$)11&J116,0(NM$,M,1)(HX$,J,1)CHCH(J1)16WK:5903:J9DENWKWK1LXMRbnl CONVERT RESULT TO HEXvWKAB:CH$"":((AB),1)"-"WKAB1:MI1DGWK(WK16)16:WK(WK16)CH$(HX$,DG1,1)CH$WK0640(CH$)2CH$"0"CH$( CONVERT LOWERCASE TO UPPERU(TN$)96(TN$)123TN$((TN$)32):[ CHECK FOR VALID INPUT OF TN$ (INDIVIDUAL DIGITS)J116TN$(HX$,J,1)ıJTN$"" AS$"a"AS$"A"AS$"s"AS$"S" 12MATCHING 5 25 25 Has a positive charge. 1 Has a negative charge. 2 Has no electrical charge. 3 Symbol for the element sodium. 4 Mass X Velocity. 5 Absolute Zero. 6 Standard pressure. 7 Standard temperature. 8 Molar volume. 9 1 mole of hydrogen. 10 Electrons are found here. 11 The atomic number of carbon. 12 One mole of calcium. 13 The unit of energy. 14 The unit of heat. 15 The unit of power. 16 Energy due to position. 17 Energy due to speed. 18 Water at 120 deg.C. 19 Mass of 980 N. 20 Unit of mass. 21 Unit of weight. 22 Speed of light. 23 Your weight in space. 24 Newton's second law. 25 proton electron neutron Na momentum -273 deg.C. 760 mm Hg 0 deg.C. 22,400 cubic cm. 2 grams in subshells 6 40 grams joule calorie watt potential kinetic steam 100 kg kilogram newton 3 X 10^8 m/sec 0 newtons F = ma :OO0:O3:O,Z:62454:IZ255:X(I)2105:W(I)3025:VXW:S157X9:YS(I)VV3S(IW)W141:Z:V,Y2X,Y1V,Y1V9,Y5:228,X:X(YS)2,Y9(YS)V1,Y:Y,I:OZ X(46):Y(46):Z(46)::3:T145:X(T)T:Z(T)(X(T)2)15::R.16.3.1:T145:X(T)(R)T:Y(T)(R)T:X(T).866Y(T).866140,X(T).499Y(T).499Z(T)10:::G$:: 6789:;<=Ԯˠ̠ϠԠҍԍ΍ԍǠҍàҍŠҍԠҍΠԮҍԍΠԍ΍Π΍ԍΠԍ뮠ӠӠ묠Ӡ뮠뮍Ӡ뮍묍󺍍Ӡ򩍪ҠӠ멍Ӎ덪퍍ō䮠Š󮍍ԠҬ뺍ԮҍǍ嬠Ǭ󮍍ӠӠ뮍Ԭ뺍ԍӍЍӠӠ뮍ά뺍΍ӠӠ뮍ǠҬ뺍ҮϱҮϲұҲӠӠ뮍àҬ뺍îҍӠӠ뮍ŮҬ뺍ŮҍӠӠ뮍Ԡ뮠ԍ宠Ԯ뮍뮍󮠠򮍍ǺԠ󺍍ұӍҲӍ?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]L !Cj" %v"w" (#M8( *% ) L5"x"y" (jB, )7(P0 ( @X p 8 " ! *j"q"0 &q"0 #%z"{" (,) &|"}" ( #%L5")0I0hx H( , #%Щ ߩ"L! )L! 8'  )ɀ)4,- U JNT) "L~"" ( !` i"M)Fi/ m"3 s"t"u" p" iL XI"LF"ίΠ`""""""*$ Fv%ZeRQ!0SB}RBiBB}] }FEL7#> ȏ6 . ) ɘ"    LE#E#ŠϠĠԠ  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&& 6&&B&Pi&0`ŠӠֱ٭ԠŠҬî̠ӠĮʎ1&… (n&Dž (\%T&Ln()8= (J 8(&(& >((ʎ1·&·&&3223 ')L&18&"m11 2H22h2舌&&12H)M0 h10200I20h2 (`LP%12 `_("L  <8# ȱ)ɀ  ) ( ` (Xp< @ ( )m ( (. (( M (i  ``) '(j21 & &!` (&&(i(&(( CBDFGE (}&$ >(,&}& … >(ŅL'JJJJ`Ϡ(8`}&h)hrȱȱȱȱ0]cȱeem*ȱ*ȱ**ȱ**ȱ* )* * )L)`LJ* &*Lw) ) L) )Lw)8e` ,$`ee` `* R** n*` * R* n*`hh8`8`***`}*`e`H)hJJ*0JJ)` (< ( < *? ( < (? ( < (? ( <*? * **? *? *? ( < *? ( <x0HH1HH "hhc+("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ҠؠӠ΢ϠԩҠŠƠԠԠŠӢɯϠҠůȠԠĠ  0h)ύh0HHHH " ׍hhhhhhh .hh8`JIMJAYKERRY&MIKE_`abcdefg ******* 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,0ijklm  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@` 80490H =============R End Main Loop\ =============fp ===========)z Subroutines; ===========e2,29,1):1,29,L1$:H190:H25:170:1,29,1):2,29,L2$:H140:H25:170:2,29,1):1,29,L1$:2,31,L1$:1,29,1):2,29,L2$B1$W1$: ========== Brick Move ==========I12223OI1,J1,A$;::1);::A$;::1);::A$;::1);_J21Ğ:A$kJ22ĺqw}$ ==========. Brick Drop8 ==========BX124:910:2,X,B$:R20:160:2,X,3):920:R20:160:LJ124:J21:980:2,24,B$:930NVY220:Y,24,B$:R1:160:Y,24,1)P1$1):H12:H22:170:a`21,24,B$:940pjY2351t:Y,24,A$:Y1,24,A$:Y2,24,A$::R20:160:Y3,24,B$:Y,24,3):H1Y:H23:170~J127:J22:980:910X2411R:2,X,B$::3,X,A$:4,X,A$:R10:160::2,X2,1):3,X2,1):4,X2,1):H130X:H24:170X{33,3:2,1,B$::3,1,C$::920I520::I:C$::I2:6):33,4:22:1:L1$H2$L2$1)P2$B1$P2$:R40:160:33,3::21:C$::20:3)33,4:23:L1$H2$L2$:R40:160:33,3:21:3)O33,4::23:A$::S110:G1,10:G2,2:CL:SE$(1)A$Z$A$:E$(2)A2$Z$A2$:E$(3)A3$Z$A3$I13:22:E$(I):R5:160::22:7): ========== Man Doomed  ==========333,3:A$(1)L1$H2$L2$P2$B1$P2$Z$Z$:A$(2)Z$H2$Z$L2$B1$L1$Z$F$WI12:21:A$(I):R50:160::n( ================2 Generate Problem< ================F1390:Q$X$:W0:VV1:1430:U(M),6,Q$E$:P =============Z Random Numberd =============+nX(9(1)1):X$(X):A1A1X:>x ============Q Math Routined ============vP$"+":E$"="1390Q$Q$(P$X$):WW1WVı1440 ===== Input =====XH(M):YU(M):CT900KEY(49152)KEY141įY,X,1):49168,0:^KEY136KEY149KEY160XH(M):T$"":Y,X,4):(7):49168,0o:Y,X,1):T51ī1580"3320,KEY176KEY185ī15206XH(M)2XH(M):T$"":Y,X,4):(7):49168,0:1520@S$(KEY128):Y,X,S$:T$T$S$:XX1:49168,0J1520,T ============?^ Ring RoutineRh ============brS12ī1670|910:33,3:I320:I,1,B$:H12:H22:170:I1,1,1)P1$1):33,4:P5$B$Z$L1$H2$L2$Z$Z$B1$Z$Z$:Z1$P5$L2$L2$Z$:Z2$P5$Z$L1$L1$:Z3$P5$Z$F$\UP,1,Z1$:R100:160:UP,1,Z2$:920:R50:160:910:R100:160:UP,1,15):UPUP3f1710{UPU(M1)ī1680UP,1,Z3$:: ======== Drop Man ========0P6$L1$H2$L2$Z$Z$B1$Z$Z$Z$F$:D1$(1)Z$Z$Z$Z$P6$:D1$(2)Z$Z$Z$Z$Z$H2$Z$Z$L2$B1$L1$Z$Z$F$:33,4JS11ī1830YKUP120g FallingwK,1,D1$(1)}W12ī3030&2000::CT0T52T53į1,5,"TIMES UP SORRY!!":1870D1,5,"SORRY YOU'RE WRONG"::33,4N:33,4 XZ11&bD1$(1)P6$Z$Z$Z$Z$flL12:20,1,D1$(L):R25:160:H110:H22:170:20,1,12):LrvZ1Z11Z110ī190020,1,D1$(2) ========= Handle Up =========(Q$)3ī2000920#NUP21:N,1,8):R2:160:N,1,B$:H1N:H22:170:R2:160:)Y:22,15,1)"YOU'RE"1)::23,16,"DOOMED":1090:::22,16,6):23,16,6):1,5,18):2080 ==============  Clear Problems ============== R50:160*S9170 4K5214:K,6,S9):S9S92:H1200:H220:170::23,6,8):C > ============V H Good Messagei R ============t \GO1: fI78:1,2,19):1,I,"GOOD JOB"::2380::I pGOGO1 zGO8ī2150 1,2,19)::  ===========  Up To Bonus ! ===========!B5B51Q!B5,35,H1$:34:L2$B1$L1$:34:P2$F$P2$:34:P1$1)P1$!17,30,H2$:31:B1$:31:P1$:R50:160:17,30,1)::29:H2$;:R50:160:29:1)!G1,10:G2,10:CL:33,22:3,1,66):!D55"D5,23,L1$H2$L2$:24:B1$:24:F$:D51,23,3):D5D51$"D522ī2270O"200:21,23,1)H2$1):22,23,L2$B1$L1$_"B56İ2530" R100:160:21,24,1):22,23,H2$L2$1):23,23,B1$1):R100:160:22,23,2):23,23,1)# R100:160:33,4:23,2,L1$H2$;:R200:160:2:2):33,3:21,1,1)H2$1)L2$B1$L1$1)F$:0# SC99999V61ġ:30206#$ B#. =====N#8 ScoreZ#B =====h#L SCSC100#V SC99999SC99999#` SC$(SC):L(SC$):2,33,5):2,38L,SC#j K15102:G1,K:G2,20:CL:K#t SC99999V61ġ:3020#~ # ========$ Men Left$ ========)$ MNMN1T$ MN0ġ::23,16,"MEN=";MN::12:2690k$ R200:160:2320:|$ ==========$ Bonus Drop$ ==========$ 6,34,L1$H1$L2$:34:1)B1$1)::34:1)F$1)$ V60$ Z10177% Z1,34,3):Z,34,P2$P2$P2$:Z1,34,P1$1)P1$:Z1,34,3):H1Z:H210:170E% R20:160K% W% Z614%( Z1,34,1)P1$1):Z,34,B$:Z1,34,L1$H1$L2$:Z2,35,B1$:Z3,35,F$:SCSC3540:2390%2 %< 15,34,1)H1$1):16,34,L2$B1$L1$:K110:BP(49200):1&F Z1351:Z,34,B$:H12:H22:170:R25:160:Z1,34,3):@&P B515:V61F&Z R&d =====^&n Loserj&x =====& 2,29,W2$B1$1):1,29,1)O$L2$:R150:160:K13:K,32,7):& :5,32,":SCORE:":SC$(SC):L(SC$):6,32,":";::5);::":":O' 6,38L,SC::7,32,":::::::"::1,31,1):2,31,L1$:R125:160:2,31,W1$:5,32,7):5,34,B$[' Z716o' :Z1,32,7):' Z,32,":SCORE:":Z1,32,":";::Z1,33,5);' :Z1,37,":"::Z1,38L,SC::Z2,32,":::::::"' R35:160' ' 200' n( 10,16,"]]]]]]]]]]]]]":11,16,P1$1)"Game"1)"Over"1)P1$:12,16,P1$3)"Play"4)P1$:13,16,P1$1)"Again Y/N"1)P1$( 14,16,"]]]]]]]]]]]]]"( W90į3,4,"You have beat Zero Boy":4,4,"Congratulations !!!":5,4,20):2840) 1,34,"Zero":2,34,"Boy":3,34,"Wins") 49168,0$)" KEY(49152)x), W90į22,1,1)B1$1):21,1,L1$H2$L2$:B51,34,1)B1$1):B5,34,L1$H1$L2$:2880)6 2,29,1)B1$1):1,29,W2$O$W1$)@ 13,24,"y/n")J R100:160*T W90į22,1,L2$B1$L1$:21,1,1)H2$1):B51,34,L2$B1$L1$:B5,34,1)H1$1):29202*^ 1,29,1)O$1):2,29,L2$B1$W1$Z*h 13,24,"Y/N":R100:160:BP(49200)m*r KEY128ī2850*| KEY206KEY238KEY249KEY217ī2970* 49168,0* 2850* KEY249KEY217Ĭ240* 49168,0:::12,17,"game over":* ====== + Winner+ ======*+ S12:W12:1750T+ 21:1)H2$2)L2$B1$L1$::BP(49200)`+ Z110+ 2,33,"-----":R20:160:2,33,"99999"+ S19010:G1,S:G2,6:CL:S+ R80:160+ Z+ 1,29,1):2,29,L2$:2,31,1):1,31,L2$:3,30,W1$L1$, R80:160),& :1,31,":SCORE:":2,31,":";J,0 :"99999";::":":3,31,":",: :K13:K,38,1)::1,29,O$L2$::2,28,L2$;::B1$;1):3,29,W1$L1$:H1222:H230:170:R80:160,D :1,27,":SCORE:":2,27,":";::"99999";,N :":":3,27,":::::::":-X Z13:Z,34,4):Za-b 3,25,O$L2$:4,24,L2$B1$:5,25,L1$L1$:Z35:Z,24,3)::H1222:H230:170-l Z621:Z,23,L1$O$L2$:Z1,23,1)B1$1):Z2,23,1)F$1):R2:160:Z1,23,3):-v 21,23,1)O$1):22,23,L2$B1$L1$:200:2,30,3)- K27. Z24:Z,K,"9":KK1:Zc. R80:160::2,27,":";::3):Z57:Z,24,"9"::R80:160:3,26,1):4,25,1)k. S5. ZSS4:Z,24,"9":Z:G1,S:G2,20:CL:Z6,24,1):SS1. S17ī3240-/ 180:16,24,1):21,24,"9":22,23,L1$O$L2$:23,24,B1$:180:R20:160:17,24,1):22,23,1)"9"1):23,23,L1$O$L2$l/ 180:18,24,1):23,23,1)"9"1):Z1923:Z,24,1):180:{/ W90:2790/ =====/ Timer/ =====/ T52CTCT5/ T53CTCT10/ CT0CT00 :CT$(CT):736,10:737,5:738:1,5,"CLOCK ";0 (CT$)3ĺCT/0* (CT$)2ĺ"0";CTF04 (CT$)1ĺ"00";CTL0> i0H CT0ġ:1750:2470:830o0R 0\ ===============0f Intro & Options0p ===============Z1z :::K715:K,13,17)::8,19,"SUMIT":9,20,"BY":10,15,"BILL THOMPSON":11,13,"COPYRIGHT(C) 1990":12,17,"MINDCRAFT":13,16,"PUBL. CORP."::22,16,"Press a Key"1 49168,0:22:27:Y$:::I717:I,14,15)::8,19,"GAME":9,18,"OPTIONS"2 11,15,"1. NO TIMER":12,15,"2. SLOW TIMER":13,15,"3. FAST TIMER":14,15,"4. QUIT"2 16:15:"SELECT (1-4)";?2 49168,0:16:28:(8);:GO$M2 T5(GO$)b2 T51T54ī3480q2 49168,0:2 T54ġ:::12,17,"game over":2 2 =============2 Error Routine2 ============="3 :(4)"CLOSE":::(7):(7):(7):ER(222):EL(219)256(218):,33580y3ER6ĺ"The files 'CHIRP' and/or 'AMPOS'":"Not Found on Disk....":36303ER8ĺ"A I/O error has occured....":36303$"A Error has occured..."3.216,0:3835803B22:1,4LER11ER16ĺ"A syntax error has":"occured in line ";EL:3690b4VER255ĺ"Ctrl-C Interrupt has occurred...":36904`"An error has occured":"in the program Maybe on line ";EL4j216,0:' ******************************M * TEST.WRITER *s * BY DWANE JACKETT * * COPYRIGHT(C) 1990 * * MINDCRAFT PUBL. CORP. * * CONCORD, MA 01742 *  ******************************G I768771:I,0::(27):(17):" ":(4)"IN#0":3690 BS$(8)" "(8):D$(4):PP$(0)" ":PP$(1)"-->":Q$(25),N(25):33,40:34,0:(768)0280 R(768):768,0:R480,1030,280 (A$"":P1240 2P$:(P$(13))70:P240::" ":(A$)1A$""ı9 <A(A$):AA32(A96):A$(A):b FP$(27)A$A$(27):P240::" ":} PP$(8)P$(127)140 Z((P$)32)120:P236Č198 dA$A$P$:P$;::" " n16368,0:VT(37):23:7:"PRESS TO CONTINUE.";:R$:22:958:VT::3 x198:P$:P$(13)P240::" ":; 70R A$""P240::40w (A$)1A$"":BS$;:P240::40 A$(A$,(A$)1):BS$;:PP1:50 Z$:Z$(13)Q$Q$Z$:170 PL44ı PF0:IIPL66:::PP1:PB$"N"230e P1ĺ" ":D$"PR#0":II13:198:::11:13:"- PAGE BREAK -":14:6:"PRESS TO CONTINUE."; P1ľR$:" ":D$"PR#1":(9)"80N" :::5:NA$;:39:" ";23);"PAGE ";P:5:ID$:::PL8: PRINTING FORMATTER - 40/80 COLUMNS) PC3240(PC$"8"):(Q$)PCĖHT:Q$:PLPL1:J XPC11:(Q$,X,1)" "Ă Q1$(Q$,X1):HT:Q1$:PLPL1:Q$(Q$,X1,((Q$)(Q1$))):X1::250 34,0:771,0:Q$"QUESTIONS"::6:"TEST.WRITER BY DWANE JACKETT":5:"(C) 1990 MINDCRAFT PUBL. CORP."o"4:11:"1. ENTER";:21:Q$::11:"2. LOAD";:21:Q$::11:"3. PRINT";:21:Q$::11:"4. EDIT";:21:Q$:,11:"5. SAVE ";Q$::11:"6. DELETE A FILE"::11:"7. CATALOG"6:11:"8. SET DISK DRIVE"::11:"9. QUIT PROGRAM"C@23:" USE ARROWS OR SELECT NUMBER: ";:NN9:R1:3820:Z20R0:3860:198:280wJMMR:R340,340,410,410,410,3230,3340,3370,3520TTYPE0ĴR480,1030^:I13:198::HT(27(TQ$)(TQ10))2:HT:5:TQ;" ";TQ$;" QUESTIONS"::13:"NOW IN MEMORY."\h10:5:"(ADD QUESTIONS FROM EDIT MENU)":P1$""(48896)76ĺ:8:"MAY NEED TO RESET PREFIX":R3r17:4:"DELETE THESE QUESTIONS? (Y/N) ";:40:A$"Y"A$"N"A$(27)Č198:370|A$"N"A$(27)280 768,R::S(769):D(770):S0SL$(S48):DD$(D48):DX$",S"SL$",D"DD$(20ITYPE0ĴR21280,2140,2980:I13:198::TQ$"THERE ARE NO QUESTIONS TO":R2430,440,450TQ$TQ$" PRINT.":460TQ$TQ$" EDIT.":460TQ$TQ$" SAVE." HT(40(TQ$))2:HT:8:TQ$:TQ$"":3600:280# ENTER QUESTIONSW:"ENTER QUESTIONS";:22:" TO MAIN MENU"4:11:"1. MULTIPLE CHOICE"::11:"2. TRUE AND FALSE"::11:"3. FILL-IN-THE-BLANKS"::11:"4. ESSAY"::11:"5. MATCHING"23:" USE ARROWS OR SELECT NUMBER: ";:NN5:R1:3820:Z20280?TYPER:R520,530,540,550,560pTQ$"MULTIPLE CHOICE":MC$(25,7),MC(25):570TQ$"TRUE AND FALSE":TF(25):570TQ$"FILL-IN-THE-BLANKS":B$(25):570&TQ$"ESSAY QUESTIONS":570 0TQ$"MATCHING":C1$(25),C2$(25),M(25)Y:34,0::EDIT0X1$TQ$:X2$" TO MAIN MENU":TQ0X2$" QUESTION MENU":590DEDIT0X2$" TO EDIT MENU":X1$"ADD QUESTIONS":EDIT3X1$"REWRITE QUESTIONS"NX1$;:22:"";X2$:34,3:TQTQ1:TQ25TQ25:280XTYPE5āII46:II:34(TQ9):":"::b5:TQ;". ";:40:A$""Č198:610l(A$(27))630:(EDIT3)2770:Q$(TQ)"":TQTQ1:(EDIT1)2140:(TQ0)280:RMM:390v(A$,1)(27)ė:600TYPE5(A$)30A$(A$,30)Q$(TQ)A$:TYPE660,790,830,950,870J64::VT(37)1/VT:1:JJ1:J70ĺ" ":730N(J);") ";:40:A$""720h(A$(27))700:620(A$,1)(27)ĢVT:1:958:JJ1:670MC$(TQ,J64)A$:VT(37)1:670J65Č198:VT(37)1:VT:660J70āKJ70:MC$(TQ,K64)"^^^":VT(37):VT21VT21v:VT:1:958:VT2:"LETTER OF CORRECT RESPONSE = ";:40:(A$)1A$""Č198:750(A$(27))770:(EDIT3)2770:Q$(TQ)"":Z16:MC$(TQ,Z)""::TQTQ1:(EDIT1)2140:(TQ0)280:RMM:390A$(A$,1):R(A$)64:R1R64JČ198:750+ MC(TQ)R:95015:1:"IS THIS TRUE (T) OR FALSE (F)?"::"ENTER OR --> ";:40:A$"T"A$"F"A$(27)Č198:14:958:790 (A$(27))810:620*A$"T"A$"F"Č198:7904TF(TQ)(A$"T"):950,>VT(37):VT5:"FILL IN THE BLANK WITH -":UHVT7:"--> ";:40:A$""Č198:840R(A$(27))620:(A$,1)(27)ĢVT6:958:840\B$(TQ)A$:950fC1TQ:C1$(TQ)Q$(TQ):VT(37)3pVT5:5:958:IIVT6VT8:II:35(TQ9):":":CzVT5:1:"THIS IS MATCHED WITH"::VT7:"--> ";:40:A$""Č198:880(A$(27))910:(EDIT3)2770:C1$(TQ)"":TQTQ1:(EDIT1)2140:(TQ0)280:RMM:390(A$,1)(27)880(A$)30A$(A$,30)EDIT3C2$(TQ)A$:M(TQ)TQ:C2TQ:950#C2$(M(I))A$:M(M(I))TQ:C2TQ:950l34,0:1:1:868:1:1:EDIT0ĺTQ$;:22:" TO MAIN MENU":970X1$;:22:" TO EDIT MENU"34,22::23:1:" TO CHANGE, FOR NEXT QUESTION ";:40:A$""A$(27)A$"C"Č198:970M34,0:Z(A$"")2(A$(27))3(A$"C")3(EDIT0):Z570,280,990,1000,1010,990^TQTQ1:570{Z1(EDIT3):Z570,2770(EDIT1)2140:2770 LOAD QUESTIONS FROM DISK34,0::" LOAD QUESTIONS";:22:" TO MAIN MENU":34,2:771,1fNA$"":8:3:"PLEASE ENTER THE NAME OF THE FILE"::7:"THAT HOLDS THE QUESTIONS.":15:8:"NAME = ";40:A$""Č198:1030$(A$(27))280:(A$,1)(27)Ģ7:958:1040.F$A$:NA$A$:DX$""DX$",S6,D1"8(48896)76İ3610:(PD0)1090:(R$(27))280:1030bBFX$F$DX$:((48896)76)1110:D$"PREFIX":P1$:P2$""FX$P1$FX$:1110zLFX$P1$P2$"/"FX$VD$"OPEN";FX$:P2$""F$P1$P2$"/"F$:1130`F$P1$F$jD$" READ ";F$:TQ$:TYPE:18:8:"LOADING QUESTIONS"tTYPE1150,1150,1150,1150,1190:~TQ:TYPE1160,1170,1180,1210VMC$(25,6),MC(25):1210hTF(25):1210zB$(25):1210C1:C2:TQC1:C1$(25),C2$(25),M(25):I1C1:Q$"":170:C1$(I)Q$:M(I):I1C2:Q$"":170:C2$(I)Q$::12603 I1TQ:Q$"":170:Q$(I)Q$:TYPE1220,1230,1240,1250::1260` K15:Q$"":170:MC$(I,K)Q$::MC(I):m TF(I): Q$"":170:B$(I)Q$ !:D$"CLOSE":33,40:34,0::"LOAD QUESTIONS":5:5:"FILE : ";NA$::5:"TYPE : ";TQ$::12:TQ;" QUESTIONS":3600:280! PRINT QUESTIONS!SP$"":PC$"":ID$"":AK$"":PB$"":34,0::"PRINT QUESTIONS";:22:" TO MAIN MENU":34,2! :NA$""1330!5:3:"PLEASE ENTER A NAME FOR THIS TEST.":8:5:"NAME --> ";:40:A$(13)NA$" ":1330"A$(27)280;"(NA$A$:(A$,1)(27)NA$"":8:1:868:1290j"234,0:22:1:" TO STEP BACK ":34,2"<:PF0:8:7:"SEND TO SCREEN OR PRINTER?":11:7:"ENTER A OR A

--> ";:40"FA$(13)Č198:1330"PA$(27)NA$""NA$"":1280#ZA$(27)1290<#dSP$A$:SP$"S"SP$"P"Č198:1330W#nSP$"P"PC$"8":1440#x14:958:15:7:"PRINT IN 40 OR 80 COLUMNS?":18:7:"ENTER A <4> OR A <8> --> ";:40#A$(13)Č198:1400#A$(27)Ģ14:868:1330"$PC$A$:PC$"4"PC$"8"Č198:14:1:868:1400s$:5:5:"IDENTIFIER NEEDED? (Y/N) ";:40:A$(13)Č198:1440: 3 SPACES$A$(27)1330$A$"Y"A$"N"Č198:1440$ID$" ":(A$"N")1500:5:958:5:5:"IDENTIFIER = ";:40:A$""Č198:1470#%(A$(27))1440:(A$,1)(27)1470.%ID$A$|%SP$"S"Ģ8:5:"PAGE BREAKS NEEDED? (Y/N) N":PB$"N":1540: 2 SPACES%8:5:"PAGE BREAKS NEEDED? (Y/N) ";:40:A$(13)Č198:1510: 2 SPACES%A$(27)1440&PB$A$:PB$"Y"PB$"N"Č198:PB$"":7:958:1510d&TYPE4Ģ11:5:"ANSWER KEY NEEDED? (Y/N) N":AK$"N":1580: 3 SPACES&11:5:"ANSWER KEY NEEDED? (Y/N) ";:40:A$(13)Č198:1540: 3 SPACES&A$(27)1440'"AK$A$:AK$"Y"AK$"N"Č198:10:958:AK$"":1540G',14:5:"FIRST QUESTION'S NUMBER = ";:40:A$(13)Č198:1580Z'6A$(27)1440'@FQ(A$):FQ1FQ0:198:13:958:1580'JFQ1P0:1650'T17:5:"THIS IS PAGE NUMBER";5);" = ";:40:A$(13)Č198:1620'^A$(27)1440(hP(A$)1:P0P0:198:1620(rSP$"P"ė:11:6:"PLEASE TURN ON PRINTER, THEN"::6:"PRESS TO CONTINUE.";:R$:R$(27)1440)|34,0::8:6:"PRESS TO STOP PRINTING":11:8:"AND RETURN TO MAIN MENU.":SP$"S"Ģ14:6:"PRESS TO CONTINUE.";:R$:R$(27)280`)12:958:SP$"P"ĺ" ":D$"PR#1":(9)"80N":PL67:190:1700):150:" ":PC$"8"ĺD$"PR#3")PL67:190)TYPE5ZTQ:1910)16368,0:I1TQ:(16384)155İ1790::1750)255:SP$"P"ĺD$"PR#0":280(*PC$"8"ĺ(27):(17):" ":D$"IN#0"1*280W*PF0:255:SP$"P"ĺD$"PR#0"::5*:::6:"PRESS TO CONTINUE.";:R$:AK$"Y"ĺ" "::1940*SP$"S"PC$"8"ĺ(27):(17):" ":(4)"IN#0"*280+190:2:PF0PF1:PLPL1:TYPE1810,1820,1830,1840+1850q+"WRITE DOWN THE LETTER OF THE CORRECT ANSWER TO EACH OF THE FOLLOWING:":1850+"INDICATE IF THE FOLLOWING ARE TRUE OR FALSE:":1850+&"FILL IN THE BLANKS WITH THE CORRECT RESPONSE:":1850,0"ANSWER THE FOLLOWING:"!,::PLPL1:FQ1QI:1870.,DQIFQ1x,NHT1(Q10):HT:Q;". ";:HT5:Q$Q$(I):250:TYPE1880,1900,1900,1900,XJ64:K16:MC$(I,K)""MC$(I,K)"^^^"JJ1:Q$(J)") "MC$(I,K):HT6:250,b,l -v5:FQ;". MATCH THE SECOND COLUMN WITH THE FIRST COLUMN."::PLPL2N-J64:16368,0:K1Z:(16384)1551720-5:JJ1:(J);") ";C1$(K);:39:" ";1(K10));K;". ";C2$(K)::1750-SP$"P"Ģ5:5:"SET UP PRINTER FOR ANSWER KEY":8:6:"PRESS TO CONTINUE.";:R$::1960K.150::::5:NA$:5:ID$:5:"ANSWER KEY : ";TQ$::::HT5:ZTQ:1990.D$"PR#1":(9)"80N"::::5:NA$:5:ID$:5:"ANSWER KEY : ";.TQ$::::HT24:ZTQ:TYPE4HT5:1990.TQ50HT19:Z(TQ2):ZTQ2ZZ1/16368,0:J64:I1Z:(16384)1552010/17207/QI:FQ1QIFQ1g/HT(Q10)(Q100):TYPE5ĺQ;". ";:2040/HT:JJ1:(J);") ";/TYPE2070,2080,2100,2110,2120:SP$"S"ĺ:::::6:"PRESS TO CONTINUE.";:R$:2130(0TQ50Ė39:" ";20);QZ;". ";:TYPE2070,2080,2090,2100,2110D0 ::" ":D$"PR#0":280X0(MC(I)64);:p0 TF(I)1ĺ"TRUE";:0*"FALSE";:04B$(I);:0>Q$(I);:0HM(I);:0R255:17701\EDIT0:Q$"QUESTIONS":34,0::"EDIT QUESTIONS";:22:" TO MAIN MENU"1f4:11:"1. ADD ";Q$::11:"2. DELETE ";Q$::11:"3. REWRITE ";Q$::11:"4. REARRANGE ";Q$::11:"5. RETURN TO MAIN MENU"1p23:"USE ARROWS OR SELECT NUMBER: ";:NN5:R1:3820:Z202801zR2190,2220,2610,2800,2802 EDIT : ADD QUESTIONS,2EDIT1:34,0:1(TQ25)570,3590B2EDIT1:34,0:570a2 EDIT : DELETE QUESTIONS2:J0:ZTQ:FLAG0:"DELETE QUESTIONS";:34,3:TYPE5J64:23302I1TQ::5:I;". ";Q$(I)::LQ1((Q$(I))40):TYPE2240,2280,2300,2310'3JJ1:(MC$(I,J)"")2270:MC$(I,J)"^^^"22703LQ1LQ((MC$(I,J))40):LQ13LQ0::CV(37)1:23:7:"PRESS TO CONTINUE.";:R$:22:958:CV:13(J64);") ";MC$(I,J):22403LQ0::"LETTER OF CORRECT RESPONSE = ";(MC(I)64)::23104TF$"TRUE":TF(I)0TF$"FALSE":4"ANSWER = ";TF$:2310a4"CORRECT RESPONSE = ";B$(I):23104 J0:FLAG0:2520:A$"Y"Q$(I)"^^":TQTQ14 34,0:1:20:958:34,2::2370"5 I1C1:JJ1::5:5:"FIRST COLUMN ENTRY -"::5:J64;". ";C1$(I):12:5:"THIS IS MATCHED WITH -":5$ 5:(J);") ";C2$(M(I)):M$"DELETE THIS PAIR? (Y/N) ":2520:A$"Y"C1$(I)"^^":C2$(M(I))"^^":TQTQ15. ::237058 UPDATE DELETED QUESTIONS 6B J0:34,0:35,23::9:15:"PLEASE WAIT":12:12:"UPDATING QUESTIONS":II12000::TYPE52460?6L I1Z:Q$(I)"^^"Ă:2450o6V JJ1:Q$(J)Q$(I):TYPE2400,2420,2430,24406` K16:MC$(I,K)""MC$(J,K)MC$(I,K)6j :MC(J)MC(I)::24506t TF(J)TF(I)::24506~ B$(J)B$(I)::24506 7 TQJ:34,0:FLAG0:214097 I1C1:N(I)M(I)::I1C1:C1$(I)"^^"2490]7 J1C1:N(J)N(I)M(J)M(J)1c7 7 :J0:I1C1:C1$(I)"^^"JJ1:C1$(J)C1$(I):M(J)M(I)7 :C1J:J0:I1C2:C2$(I)"^^"JJ1:C2$(J)C2$(I)7 :C2J:TQJ:2140>8 34,0:1:22:" TO EDIT MENU":34,22::23:TYPE5Ė5:M$;:40:2540j8 5:"DELETE THIS QUESTION? (Y/N) ";:408 A$(13)Č198:FLAG12520,25808 A$(27)Č54915:FLAG1:23708 A$(A$,1):A$"Y"A$"N"Č198:FLAG12520,25809 A$"N"FLAG1FLAG0:%9 FLAGFLAG1:FLAG1FLAG1X9 :23:5:"VERIFY - DELETE? (Y/N) ";:40:2540x9( EDIT : REWRITE QUESTIONS92 34,0::"REWRITE QUESTIONS";:22:" TO EDIT MENU":34,2:TYPE52700:< I1TQ::5:I;". ";Q$(I):J64::LQ1((Q$(I))40):TYPE2630,2670,2690,2720T:F JJ1:(MC$(I,J64)"")2660:MC$(I,J64)"^^^"2660:P LQ1LQ((MC$(I,J64))40):LQ13LQ0::CV(37)1:23:7:"PRESS TO CONTINUE.";:R$:22:958:CV:1:Z (J);") ";MC$(I,J64):2630-;d LQ0::"LETTER OF CORRECT RESPONSE = ";(MC(I)64):::2720^;n "THIS QUESTION IS ";:T$"T":TF(I)0T$"F"l;x T$:2720; "ANSWER --> ";B$(I):2720 < J64:I1C1:JJ1::5:5:"FIRST COLUMN ENTRY -"::(5((J64)9)):J64;". ";C1$(I):12:5:"THIS IS MATCHED WITH - ":&< 5:(J);") ";C2$(M(I))< 34,22::23:1:" TO CHANGE, FOR NEXT QUESTION ";:40:A$""A$(27)A$"C"Č198:2720< 34,2:Z(A$"")2(A$(27))3(A$"C"):Z2740,2760,2750< ::2140= Z3TQ:Z1C1:Z2C2:TQI1:EDIT3:570= 54915:2140:= TQZ3:C1Z1:C2Z2:Z10:Z20:Z30= 34,0::"REWRITE QUESTIONS";:22:" TO EDIT MENU":34,2::2140= EDIT : REARRANGE QUESTIONS= 34,0::"EDIT : REARRANGE";:22:" TO EDIT MENU"`> 4:11:"1. REVERSE ORDER"::11:"2. RANDOM ORDER"::11:"3. RETURN TO EDIT MENU":23:" USE ARROWS OR SELECT NUMBER: ";> NN3:R1:3820:Z20R0:3860:2140> R2840,2910,2140> 12:16:"SORTING":TYPE52860/?" JC11:I1(C12):JJ1:Q$C1$(I):C1$(I)C1$(J):C1$(J)Q$:QM(I):M(I)M(J):M(J)Q:14:19:I::2140?, JTQ1:I1(TQ2):JJ1:Q$Q$(I):Q$(I)Q$(J):Q$(J)Q$:TYPE2870,2880,2890,2900:14:19:I::2140?6 K16:Q$MC$(I,K):MC$(I,K)MC$(J,K):MC$(J,K)Q$::QMC(I):MC(I)MC(J):MC(J)Q:@@ QTF(I):TF(I)TF(J):TF(J)Q:3@J Q$B$(I):B$(I)B$(J):B$(J)Q$:9@T @^ 12:14:"RANDOMIZING":R(78)256(79):R(R):(TYPE5)2920:2950@h I1TQ:N(I)1((1)1000)::I1TQ1:14:19:I:JI1TQ Ar N(J)N(I)Q$Q$(I):Q$(I)Q$(J):Q$(J)Q$:TYPE2870,2880,2890,2900A| ::2140A I1C1:N(I)1((1)1000)::I1C11:JI1C1:N(J)N(I)Q$C1$(I):C1$(I)C1$(J):C1$(J)Q$:QM(I):M(I)M(J):M(J)QA 15:19:I::12:14:"RANDOMIZING":15:19:I::2140A SAVE QUESTIONS TO DISK4B 34,0::"SAVE QUESTIONS";:22:" TO MAIN MENU":34,2:771,2B F$"":8:4:"PLEASE ENTER A NAME FOR THE FILE"::8:"TO HOLD THESE QUESTIONS.":15:8:"NAME = ";:40:A$""Č198:2990B A$(27)280B F$A$:(A$,1)(27)F$"":15:868:2990.C (48896)76İ3610:(PD0)3030:(R$(27))280:2980GC DX$""DX$",S6,D1"YC 216,0:3110C FX$F$DX$:((48896)76)3070:D$"PREFIX":P1$:P2$""FX$P1$FX$:3070C FX$P1$P2$"/"FX$4D :D$"VERIFY";FX$:216,0::I13:198::8:(40(F$))2:F$:11:5:"THIS FILE ALREADY ON THIS DISK.":3690D 13:958:14:2:"VERIFY - OVERWRITE THIS FILE? (Y/N) ";:40:A$""3080D A$"N"A$(27)F$"":280D A$"Y"Č198:3080D& 216,0:3690E0 D$"OPEN";FX$:D$"CLOSE":D$"DELETE";FX$:P2$""FX$P1$P2$"/"F$:3140+E: FX$P1$F$WED D$"OPEN";FX$:D$"WRITE";FX$:TQ$:TYPEEN TYPE5ĺC1:C2:I1C1:C1$(I):M(I)::I1C2:C2$(I)::3210EX TQ:I1TQ:Q$(I):TYPE3170,3180,3190,3200::3210Eb K15:MC$(I,K)::MC(I):Fl TF(I): Fv B$(I)F &F D$"CLOSE":280HF DELETE QUESTIONS FROM DISKF 34,0::"DELETE A FILE";:22:" TO MAIN MENU":34,2:771,3F :F$"":5:6:"PLEASE ENTER THE NAME OF THE"::10:"FILE TO BE DELETED.":10:10:"NAME = ";:40:A$""2804G (A$(27))280:F$A$:(A$,1)(27)F$"":3240nG (48896)76İ3610:(PD0)3270:(R$(27))280:3230G DX$""DX$",S6,D1"G FX$F$DX$:((48896)76)3300:D$"PREFIX":P1$:P2$""FX$P1$FX$:3300G FX$P1$P2$"/"FX$JH D$"VERIFY ";FX$:13:3:"VERIFY - DELETE THIS FILE (Y/N)? ";:40:A$(13)Č198:3300H (A$(27))280:A$(A$,1):A$"Y"A$"N"Č198:3300H (A$"N")280:D$"DELETE ";FX$:17:10:"FILE DELETED":3600:280H CATALOG THE DISK6I :Z(48896):Z$"CATALOG":(Z76)3350:Z$"CAT":(P2$"")3350:Z$Z$P1$P2$[I Z$Z$DX$:DX$""Z$Z$",S6,D1"I 771,4:(4)Z$::::3600:280I* 34,0::"SET DISK DRIVE";:22:" TO MAIN MENU":34,2J4 2:8:"PLEASE ENTER SLOT AND DRIVE NUMBER -":11:14:"SLOT --> ";:40:A$""Č198:3370/J> A$(27)280cJH S(A$):SL$A$:S0S7Č198:S0:SL$"":3370JR 13:958:14:13:"DRIVE --> ";:40:A$""Č198:3410J\ A$(27)3370Jf (A$)0(A$)2Č198:3410Kp DD$A$:DX$",S"SL$",D"DD$:769,S:770,(A$):(48896)76280uKz 17:13:"SET PREFIX (Y/N)? ";:40:A$"Y"A$"N"A$(27)Č198:17:30:958:3450K (A$"N")280:(A$(27))280:771,5L 16:958:17:5:"PREFIX = ":D$"PREFIX";DX$:D$"PREFIX":P1$:17:14:P1$;:40:(A$(27))280:(A$,1)(27)3470>L A$""P2$"":D$"PREFIX";P1$:280PL 216,0:3690zL P2$A$:16:958:D$"CREATE";P2$:280L QUIT PROGRAML :TYPE0ĺD$"CLOSE":12:16:"BYE BYE!":-M 10:4:"QUESTIONS IN MEMORY WILL BE LOST.":13:5:"VERIFY - QUIT PROGRAM? (Y/N) ";:40:A$""Č198:3520?M A$(27)280kM A$(A$,1):A$"Y"A$"N"Č198:3520M A$"Y"TYPE0:3520M 280M HAVE OVER 25 QUESTIONSN34,0::I13:198::8:7:"YOU CAN NOT HAVE MORE THAN"::9:"25 QUESTIONS IN MEMORY.":3600:2140HN22:6:"PRESS TO CONTINUE. ";:R$:NE1(A$)15:C3((A$,1)):E2C365(C390C396)C3122:E30:I1(A$):C4((A$,I,1))N$(C446)3630:(C464C491)3630:(C447C458)3630:E31N.:E1E2E30PD0:*O8:8:7:E11ĺ"FILE NAME TOO LONG."::7UOBE21ĺ"ILLEGAL FIRST CHARACTER."::7}OLE31ĺ"ILLEGAL CHARACTER IN NAME."OV23:6:"PRESS TO CONTINUE. ";:R$:PD1:O` DOS ERROR ROUTINE9Pj((771)5)3700:(222)19Ĺ771,0:280: ERROR OCCURED WHEN DIRECTORY WAS CREATED THAT ALREADY EXISTSPt255:33,40:34,0::IJ13:198::Z(222):LN(218)256(219):M$"- DISK ERROR -":Z15ĺD$"CLOSE":3720#Q~:D$"CLOSE":3:(40(M$))2:M$:Z3720,3720,3750,3740,3780,3780,3720,3750,3760,3770,3730,3720,3720,3720,3720,3780QM$"ERROR AT LINE "(LN):(40(M$))2:8:M$:11:12:"ERROR CODE = ";Z:14:4:"SEE APPLESOFT MANUAL ABOUT ERROR.":QM1$"IMPROPER FILE NAME":M2$"PLEASE CHECK FILE NAME":3790.RM1$"WRITE PROTECTION TAB ON DISK":M2$"REMOVE WRITE PROTECTION TAB":3790_RM1$"I/O ERROR":M2$"CHECK DISK DRIVE":3790RM1$"DISK IS FULL":M2$"USE ANOTHER DISK":3790R((48896)76)3720:M1$"DIRECTORY FILE LOCKED":M2$"CAN NOT DELETE THIS DIRECTORY":3790JSM1$"FILE NOT FOUND":M2$"PLEASE CHECK FILE NAME":((771)1)3790:D$"DELETE";FX$S8:(40(M1$))2:M1$:11:(40(M2$))2:M2$:3288S21:6:"PRESS TO TRY AGAIN"::3:"PRESS TO RETURN TO MAIN MENU.";:R$:R$(27)280)T:Z(771):(Z0)10:771,0:Z1030,2980,3230,3340,3370XTNR:PSR:3860:Z0:23:31:868:16368,0T23:31:R;:Z$:Z$"1"Z$(NN)R(Z$):NPS:3860:3820TZ(Z$(21)Z$(10))(Z$(8)Z$(11))10(Z$(13))20(Z$(27)):Z3830:RRZ(Z10),U RRNN(RNN)NN(R1):NPS:3860:Z103820::HU22N:7:PP$(RPS);:' ******************************M * USR.DEMO *s * BY MARK CRAVEN *( * COPYRIGHT(C) 1990 *2 * MINDCRAFT PUBL. CORP. *< * CONCORD, MA 01742 * F ******************************" P(4);"BLOAD USR1"9 Z10,76:11,0:12,3C d:10d n"ENTER A NUMBER 1-256 ->";Aw xA1A256100 B(A): EXECUTE USR() :B :"PRESS ANY KEY; ESC TO QUIT" 16384,128:J(16384):16368,0:J155Ā 100' ******************************M * USR.DEMO2 *s * BY MARK CRAVEN * * COPYRIGHT(C) 1990 * * MINDCRAFT PUBL. CORP. * * CONCORD, MA 01742 *  ******************************" (4);"BLOAD USR2"9 10,76:11,0:12,3C :10q ("ENTER A NUMBER 1-200 (0 TO QUIT) ->";A| 2A0Ā <A20030 FB(A): EXECUTE USR() P:B Z:"PRESS ANY KEY..." d16384,128:16368,0 n30 ᤡ `ұ堠򠠪Ү㩠쮠ﮠ䬠ǠԠՠűÍРՠŲƲŠՠҠԍ٠ōٍҠЍӍ ᤡ 0`Ҳ堠򠠪Ү㩠쮠ﮠ䬠ǠԠՠűÍРՠŲƲŠՠҠՠðŠՠҠԍ٠ō٠Š占ҠЍȠؠŠҠ򍠠ŠŠٍŠŠ؍ŠŠàŠ荠ŠȍӍ