' +JJJJ ?\>m0M='+l> /+l     d]@ŵLҦ]]LF L}BBL] X  `  H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`     LDcpq` [` ~ 0'?TERMINA I?TERMINA k'ABOR IABOR k'BLOC* IBLOC5 k'CA I CL k 'CVU I"CV] k"'EMIg I$EMIp k$'ERRO{ I&ERRO҅ k&'EXPECԑ I(EXPECԜ k('HOMũ I*HOMŵ k*'INTERPRE I,INTERPRE k,'KE I.KE k.'LOi@9ȥLȑ L  Hhi8`L 鷎귭෍ᷩ췭ⷍ㷍JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` `MA`HIHHHHhHH݌hHhHh݌H6 eO% ЦDAkED , p , 2Y 0C, 跄, T, , T, RY    c Q Y c G Y B @DZ 2 #COLL9768T; ؆80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠ >J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭh@(LH9LHH/Hh/ H-З( ܸ(& ¸$8 H` *HVDP (ED Z $0x8x D- ܸDD#lLi `? &Y&&Y&&P\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`A I0LOA k0'MESSAG I2MESSAG k2'NUMBE I4NUMBE, k4'R/9 I6R/E k6'VHTAO I8VHTAX k8'WORd I:WORo k:>Iz IBLˍ I@CONTEXԗ IBCSР IDCURRENԭ IFDP̶ IHFL IJHL ILOFFSE INOU IPR IRSCLOTuȱu8Hȱ8h騊ȥLHHLA RPXLRPPiLF SPa~HL? CREATvo C f, 1@Z Ck:, ) C p ES, RCR, fSCSu kCu CS, C, VEo p , k R#TYP 0%!ʕ j LCMOVoS 6 K$#TuuLF +NmuuLf8uuLF DuuuuL1LF 1LF 2iLF C=C =C p Y iHeL? VARIABLŅo C#CONSTAN o=CHȱL? 5o| Y p Y CFHHieLF Sob@ G#C G#<;CODEoCC Y #DOESob@ G, NC G#ie8hhLoVOCABULARٰo, =CL  L LF HHLF RoSS#DEPTo|u k#PICoS 6, 1@|Rp #ROL'oS 6, 1@S.u|RSp dY |d|#?oST#MUou9#M*fouudu99 ttuKu#Mo\\#ModStuӪժԊժԪժժժЪԪӪժݻݻݻժժԪݻݻժժժժժժݻӪժѪբԪЪՊժժЪԪӪժݻ݀ݻݻԪժՀժԪݻݻժժժժժժժժժԪժӪժѪբժժըժԪՊժըժЪԪㅀݻժԪժժժժՀժժԪժӪժѪբժժըժԪՊժըժԪ⣪ժժժժԪժժժժԪժ, -##o p -Cd Y #D. o, 6 1@udSdK#D(o .:#\o\a#.ko\.#Uwo a#op o#CONVERԕoS p ,u p 9K p 9 p  k#ALLOT TOP IS ONLY ժՂԪԪժӪժѪբժժըժԪՊժըժЪԪⳗժԪժժժժժժԪժӪժѪբժժըժԪՊժըЀժժԪⳀݻԪժu#M/MOo tut#o9K#*/MO%ok#*1o9uK#/MOEo\#To[uK#MOgo[K#ZoUZp ^Zp %('OokSR#Oo, " p  GP  C S -CuT-Ck#(S=PVP Q``SMPsP   VPHJL? CHRlPo-CY -C #ASÐPoK #VẠPo-CT -CR -CK#STRINDZPo NC C #$ARRAPoUo, tT#OUoVlJ#O VoUlJVQUlJ, , U #@Vo lJV#L?Vo DVQ#ORVo DVQ#LaVolJV, , Q, R #TpVouV, , MQ#SŕVoSVS Y uVQSY p , , #OVoUp 2LdKo, !HC Y , FC Y , WFC Y uI#<KolK6K|LNH#MM.BAS(Lo#SEEFLLJSETSEETLo, Np [LY #RN_LL]L^L]L.^L]L.^Lm]Lm^L]L.^Lm]Lm^LiH]Li^LL? RANDOwLo}L9uK#RL*@LRLoL#RLoL#CAL yAI NuKu yA I RY yA#F2Qo, , QQ#F2#Ro, M, ., ., , QQ#FBYTEARo6 I dR6 #IMAkR>FCMOVňRoSRY , .'R, ., .' tRyARp 'ESTSK#FCMOVERoSRY , .Y TY HSp , Rp Up W, Up Sp W&Oo6|#<3Oo|#RANG@Oo, .8O8O#UMMOo #2PICiOoS..#3DUwOo#C,2BARRAٍOo=CK Sp R)R R#2BARRA٤OoO) R C#ERASOo #ED FORWARD REFERENCE#FORWARTo, T=C Tp Y TY p #RESOLVEUo| Y ES|GUNDECLARED REFERENCE p Y FC, ,  CC, =CC=C p Y C Go TY u #OVERIUX68NHCU2OU-OUNU: OMM#DMIMoJJfJ#DMANoJJJ#DU Nou   #SQUIS9NtNLHILiNNL>{NoNurN#LIB-BASŋNo#BEL̚No,  #)No#&No#(NoE, N#(No#READYNoZ ~ READY?Z#<ZoUZp ^Zp ZfZ#POL [o p , ZC<gZ4&ZUZp R UZp Z[KS^Zp ,  KUZY #VHTAB&:[oA[#KEY(ESC[o S, Z#RETURΡ[o[, Y|#TYPEO[o UZY ^ZY , ZC Y &``('`J``J`HPOSfc2d rcL(REGION(dEd9`:`B`C`K`L` `T`U` ``HPLO8dd rc Ed``` aLSETMSˉddN```LF (COLORdo`Y j`Y ^`Y `, Td#BLACdo` , 0 3?0>3>3333300>333>3<>33>03333  33 !3?-!333333333>33>00='>0 > 3333>33 !-?3!3 3333> ? ?>>>>>ND_HND_H N `H X`Y`X'`X2`Y;`YD`HCOLM`CPAIV`HPAGb` HMASn`AHBAz`?XND؆`GREGΑ`ʃREʜ` ANǧ` gaDOTֱ`H`MSKTB̾` @1DOTTB` @2DOTTB` 0` , T #GDepU8Y/HX/fHASCBE#fHASCB-fHASCF:fHASCDCFfHASCDCRfHASCES_fHKBlfHKEYCLyfHGRAFI؃fHPTXTSCҐfHQFULSCҝfHRMIXSCҪfHSPAGEfHTPAGEfHUPAGfHTLOREfHVHRSEfHW, [Ca Y #TYPEOF[o UZY ^ZY , 'C Y , Ca Y #$BAS \$CHRCN:\$MAXLEF\ LOCHT\ HICHb\~KEYIn\o[#ADDCHz\oP\p ^\p 6*Sj\p v\p UO P\kSB\p P\p R S K#BACKSPACň\o P\p 6$ B\p P\p R , P\k $p&&((UDab01,_",_i8i#Hiihifil`i,_i,_iPIIx`ifΈ(LINETObb``8#` $` 8  #`$`.` /` 0.` /` .`/` f8  `JCSSIZgHCSEhK  ??  , #323 < 00000**>  00 >3333  3 ?000??0033?3 33333>0   (B2DOT` a'ȩ~1 l`)I1 l``(W2DOTa:a'ȩ) l`) l``(BWDOT.agaE%Q`(CDOT[a}aE%Q) l``(RDOTraa'ȩ%Q)%Q`(NDOTaa`(TODOTaal`(LRaa!Fl` @'` &l`HRfH CNfH$LN gH%CSWgH6CSWgH7KSW(gH8KSW3gH9INAD>gHINADIgHHUg&EHagEHjgEHCOLOsgSHPT|ghOCSW̉gOCSWȕgSOKSW̡gOKSWȭgL˹gEULg OSg ALTSEgS^gNLMg  #RETFLA\CRETUR ]o"O]Y #ESCAP]oY| P\Y #DE-]HESH]HKEYCASR]oS d KK\BN]d KK\. d KK#]X]d KK6]\K#GETKE\]o\f]#TEXPECT]o^\Y B\Y P\Y O]Y B\p ^\p ]`` &`8 a8 e e  b e e P`````LINETzb\c bL(HPOSNQcrc%`&`0`1`.`8/`#`$`)JJ` & & n`) x``**&*&*&*&*&*&*  60 3;>33?33333333333333???3;3333?333 3333#?!3?/###137?;3333333333333<3333303? 33333?3333? ###/?3!33 3333 ?0 ? 0$, dK, C E^K"OKSK] Y|B#NUMo^oSu uKfdUOu#INNU<_o, $^CC_fY KE^ C #s_H1é_H_HNHBAӺ_HNCOL_HNMAS_HNCNT_HNQDRN_Hgad#WHITdo`, , gad#REVERSeo, a`Y #GREE eo`, , }ad#ORANG6eo`, , , }ad#VIOLEPeo`, U , }ad#BLUmeo`, U, , }ad#NONňeo, a`Y #FUḶee,RLF MIXEĶee,SLF VIEWPOReoR`Y I`Y @`Y 7`Y #Teo, Q]p Y|P\p B\p #TEXPEC]oSCuCu]#$SCR.ERAS^o C EOC    #YOR8^oOO] Y[, , , YdK~YesK"O"O&, NdK~No KO"OOuKY|YLO[, dKK"O"O] >AAAAAA~~nncs3sssaCgfap;[XXXOYY_X_O@O_]YY33333oFFf667sagw66666y}L<|x|BfZBPXZZZZZZ********ZZZZz~~****??@`px@@@`0POP0`@@@<???~||???@||~sosp ) #"""">>"""">>"""">>"""">>"""">>"""">>"""">>"""">>"""">>"""">>"""">>"""">>"""">>"""">>"""">>""""gp $gY gY gp gp :gY gY #CLRSCqo, nM#O(rosq hgY q1r#OF;ro, Q Kq#FLDCXRroxgY fgY , oM#FPLOfro, ogY xgY fgY , ]oM#NفrHHPLOԥror ud#TϮror uZc#REVERSro, gY #NORMAro, w%}MCHOICwNORMALxHINxVIN"xXLEF-xXR8xYDOWDxXYUNxMSPACINZxMWINDOdxCHAsxROׁxCǑxDEM-DELAٖxBIT-MASˠxJ @CMD-BYTŰxRDEMO-STARxDEMO-OFFSExSTOP5Ʌ7Ɇ>ɌC%0 zg$hg ]oqgwnnn `g`g`gg`gg` nnnwn`TEX fo, Q K#HGZqo, v`Y ,  , ee 0d, P , R , T , W #GRAFOmqo, p$gp |$gp gY :gp gY , p$gY , .p:gY #FORTHOαqogp SHvodfuK uuu, RY #>"""">>"""">>"""">>"""">>"""">>"""">>"""">>"""">>"""">>"""">>"""">>"""">>"""">>"""">>"""">>"""">>"""">>"""">>"""">>"""">>"""">>"""">>"""">>"""">>"""">>"""">>"""">>"""">>"""">>"""">>B=EEgY #SEMIrsH hLPs6EPDs PD's (TONE1sFs/s/s%s0%s%s/sLPITC;sJyslf`[VQLHD@<9630-+(&$" LENGTssJ (<PZxRs(LSsKRES-DEMxWAIxo #BEL yo, , it#0<yof|#PICT-MOD3yo,  #TEXT-MODAyo,  #H>Wyo)f)#V>myof)#FLIPCOLO{yoxp  erdr#SETCOLO҉yoxp  drer#SET-׭yosyJxY yVxY sy)fR@xY yfX٫no /nzg)** /n/nzg)8jjjj /n/nj)$nzgj)` $n$nzgjjj) $n$nhgm$n$n`PLOn]oqg8`H ;nhJJJJJGngm;n;ngmGnGn;nmg;nGnmgGnzgHhPnHHHH o$n/n;nGnggIYnQMYngIQzg;nGnPnhhCtHSTtHSLu HZu YuEX&uEV/u}EBP8u FSAuSu ~ `  `PSKuu~E `} E  `"""">>"""">SBAShvSBASn< OBAS&n"bOBAS1nh9T=nETInESHIFRnWX[nEYgnEBASLpnHBASHynHOBASL΅nHOBASHΑnHERASŞnnHHHRTWP hgzggggI@ Xhhh`LDCox , _k#GET-0PRESzox  w #GET-1PRES{ox ( w #GET-CMD-BYT3{oxlJxlJ}Qx #PGET-CMT{o "OyY yp O w "O w "Oc{xp y{z!{@{z"O#PRO-DIw{owdK )xY , KdK )xY DEMO.OVL.DEMWOPT.OVL-OPTION%W2TIT-WAI:HTWIJH THYH DIFdHBOXWInHBOXHyH#COLӆH#ROWӒH #MAZEӞH(#DIGIӪH #LEVELӷHBOXCĄH-BOXSHADC҄H1NAMLEބHNUL-you want. Then press p ~ button one.~ [RETURN]. , l ~Press 5~ to escape.#.BESԘop ', Rzl ~ HIGH SCORE: #.INST`o:p  n#DISK-TYPśo I SgSkQ !IkQK,#.OKKEٺop 8uKRz#PRINT-MENo~p ~p k~p )~Y c~p ~p R~p E~p '8l 'NkS~p K#FORWRo~p ~p ~p R6 ~p ~p #BACKWRko~p ~p 8O ~p ~p ~p R#PRO-CMĞo, u,   CORLEVEJOY DELASMENU.PT!DATA-DNAM-P DWMAZEDATAJOYHOLEVHOL<JOYHOL[ISOUNDHOLiNORMHOLwHIHOLćMOPERATOҖLIM,MENU-YORβo oxY "O}xY  ~Y PYESEPNOEjf#SPIDowdK, )xY ~, JdK, )xY dwdK, 4xY L, IdK, 4xY 2wdK 4xY , MdK 4xY K#PRO-PRES{o dK"O w 4 dK"O w X]dK"O w K#L>՘|oSS, E-MENo~Y ~Y ~Y ~Y ~Y , ˁY , Y , ,Y #OPToK~p Y ~k~p ~Y #MEN>o}xp 3#QUAcorrddruur#EMIT-DOU|o, xY f )f gp xp f)R-R 'x EO xp )f)'Rxp f)--LEH2BUZo, < }L,  it#DADAD o, _it, _it, , it#DEDED3o, _it, _it, _it#CHORZo _it, _it, _it, , it#DCHORo, _it, _it, _it _it#SOUND-OΫo, tC^tY "OY #NOTONֈou t~p , E_it, y#SELECT-OPԀo{~ހ w ~p xY "OO w , xY "OO it,  it, itxp #MENU-ARRA&"K˕eINITION )VHPOSooxp )~p R~p #OPT-ADRop #NU݁o#CREATp {#ERASE-LINEod l u, ()K#Box d , d u #B.oxu !#B-ARRAYo, kSCu  C u, [Ru#MAZ-ARl-F%Pzթ޷MAZLEΣHMAZ-MAɇou)R#MAZLOևHZREC`u, {6, #KGET-CM|oOS w w )xY 4xY |S|{)xp 4xp "O #GET-VIN}o 6MSw6 K, , w  #GET-HINi}o 6MSw6 K, , w  #JGET-CMĦ}o} RM"OR#MAZE-BASţo#PTRIHpPADDL!HdGOT-JOY-GpdHJL? CH:mHJL? ZEDIT.OVLe</ZEDItWҨZGEԋWRPLAY.OVLٙ.PLA٦WୋACTUAL-PLAټWqTITLE.OVLɃ\-TITL݃WuK, x)y#SOUND-OFo, C^tY OY #.ESop ~ button two~the escape key#.KEYSTO.o_l ~Press any key to halt the demo.#.RINSTcoSS_l ~Use the p ~joystick~ arrow keys~ to point to the  l ~option cy#'VHPO~ˁ'OPT-ADꁇ'HEADEVHPO"op  #OPT-AD0op  #HEADEDo,p  #POINTHANZo~p 8l ~#ERASEHANoo~p 8l K#MOVEHANċo~Y {#MENU-WINDOשo 8_uu~p 8K ~p 'N /DIGHFOREIGHMASTE HDATHDEM-FL%XPO0CYPO> CROIDCCOTRRTSID_NMODjCONNECw VISIB̂ZNAMŐPEASY1 MAZEBLKHVMAZE-ADDMXDIG-ARRAąK&z[SKRSOUNDօHISO w RM"OO w t}9yu9y w  w #JOY-O}o, }CxY #KEYBRD-O<~o, '}CxY #PHONY-OS~o, {CxY #GET-CMm~oxp #OPԆ~NOPTӚ~VPOӤ~HPOӰ~NSHO׻~ NCHAR~WORD~HAN~oMy, | , }~ button one ~[RETURN]#.PRES-o_l ~Press ~ to continue.#PRES-CON!o:p n+~K w w #CANCEL-MSNo, , , , l ~Command Cancelled, Z#CHK-MASTE҆oBƊ!|n , z, _, , #z, with the disk., ZҋDgTITLE.OVLٵHNOTE-OFF TTDU/HTSTO?TPLAY-NOTKoS ;p R, {u it#DO-TUNWoSp |<,  S'RS , 6cK  "OSY SK#TUNo #TI-TUNӔ l ~HIT A KEY TO CONTINUE K#SEE-MAZoBr"OY OY # oOY Y !p Nd KdXd KRbd Kْ>nd Ko,xd K+dK"OY Kp nY#PLAY-BASAo#BONUS-DEߚH, l ~Background color, Kxp ~(White) ~(Black)#.INVIo, , l p ~(Invisible walls!)#.SPIBo, , l  ~(Spider)#.LEVEzo, , l ~ Skill level, Kp dK~ (1-Novice)[ dK~ (2-MasAp p 'A#HLINӕo dr, ur#OUTLIN%oxe, -, -, , r, , r#DISP-CMD?o,  l ~& #-EDIT MAZE #-EDIT DIGITSZ Z ~ #-CHANGE DIGIT ( )I#GET-ZCMoo , ktp p 6, l ~Please place the Master Disk, , l ~in the disk drive., Z#BOX-ENŋ kkCHADPo, f) hhR#DIGIkou)R, u, '⅓ d ' K#DISP-DIGɇoyS⅓ S6[xY xY , 0R^,  , h"O}xY oxY , , P Play the gameEPSee a demonstrationEPGet a maze from a diskEPDesign your own Math MazeEPChange the game settingsEj~Y #INIT-MAZo UY "OY O:Y p EE~_~#MAZE-LOOаo@ryҋ~, &z#EDIT-MAZŹoƗ w "O w MO#STU o,  l , (K,  l x#CANCEL-MS@oG~COMMAND CANCELLED, Rx#CLR-DIGITco 6, #ZERO-MAZŐo  O-''z' kt#EDIT-NE׭o-p ter)> dK~ (3-Expert)!_dK~ (4-Pro )K, SK#DISP-OPTӡo, , l ~The current game settings are s#SHOW-NAMRo 4, R Rzl ~ CURRENT MAZE: k:#CHOICEӖo 8Y z_ ͏p 6؏#PRO-EΖop p  , kt۔#PRO-CHANGop 6Rp ە JٖdKORY 2͏dK"ORY ؏dK"ORY K#ZINIT-MAZ@oO-Y BrؐԆOY ^Y {O9Y Y Y ,ORY , #DISP-DIGITŌo 'ь##-THEREo, #TOP-COLO%oxp Yee#DOWN-COLOo!,p Rl , ? #PROB-DISРo!,, l xp SS _|:I H:1 _|:-DONEЩoO#oܩmfep p p /Y #SAVE)HE MAZE, GENERATE)120NERATE)12011A158 'p _|#DEC-BONUo'p R/'Y #DO-BONU o5p a{S5Y f#POS-PLY+oKp n Kp V u)uKp p v#PLYR-OTo_vKp p vKp p u Kp p vKp p u#PLYR-OFƇovKp p vKp p u#WRAàoKp  ,op ʜ #DONEop p #PLACE-DIGoΠ!,p Rl |΅#PRO-PUS$on V Dn V S1 k٥ȥu Y Ϥ ,  kt#CONVMo Y Y OY p [S!p p ʜ k"OY OHVILHSDONBONUPBON-CNSCOR+'PL9XNEEK MXOLOK OYNE[K0YOLgKPL-ENs"K:ITPL-BA"K۝XLADIGIS/ANӐPLACšANS-DARRAٱKES MFOUNĽFACTOҜ1STޜEXIT-WANԃSK Kp V #CALC-YNEݡoKp n Kp b |Kp z Kp n #CALC-XNE#oKp n Kp V |Kp b Kp V #DO-MOV]o/iKp b Kp V Kp z Kp n |*ΠKp V Kp b Kp n Kp z "OYKY #SOLVͧoڧϤfp  w Xp p ПKY Πfp  KY Π#DRAW-BONU o, _l ~BONUS:, , r, , r, f, r, f, r#DRAW-SCRBR\o, , l ~SCORE:, , r, , r, , r, , r#MAKE-PROBӦ x#BUMP-SOUNo kt#HIT-PR oXAp E /AY ПΠKp KY Πk KY KY #HIT ofp  V V n n #CALC-NXTfoKp z RSTK S K Kp n #CALC-NXTؗoKp b RSTKKp , kSY fK#CONV-ANӸo ʜ Y #APPLY-Ooxp I _Ed KR:d Kk(țd K)қd KK#CALC-ANEoxp  xp 1 P'#INIT-SOLVŪo Y OY 'Y KY fp  BUMP1OPANK R2OPANK OPERATO(K7ANS-O>KAL OPERATOCUR-PROBVVXDIlVYDI|VIL-CNԈROWINÔHERO-ENԢ  Dl۝dlHERO-BKGRNįP #HERO-MOVŗoKY OY 6} Ep xEY p A EY fp  m*#TASo#DIR-DECID_o LFV V  ,  Y n n  ,  Y _LY _LY #VILAN-MOVjop  {SY 4o, @xx#GET-NXT-PROo I,  , }L,  1, }L,  xY #INIT-GR oBr"OY , , &ziП#INIT-PLAUoOY AY `kfp #SET-DONE~oO#op Zp Ap /ZY #SAVE-TAS˼o#HGR->DIS-'|2-Kp z -Kp n 'Kp b 'Kp V "OڜY p Sڜp p S#HERO-INI̞o KY מ#VIL-INI_o  KY מ#CHK-EXIԁo w  "OY #DISP-SCORŢo, , l Ap , |#DISP-BONUßo, , l~=!,l p , _ , K!,, !,_Ry#SHOW-ANäo!,l p 'ʜ |#CORRECT-DIS;o AyFXdyFX#PRO-CORECfoQAk'p AkkП΅"OY #RECYCLŏo#SCORE-DOWξoAp 7'p  /AY П#DIGI-OK̥REP-HER˝o n4w~w vٝv#VIL-EN  lX$lVIL-BKGRN.PREP-VIIo 84w8w 8vV8v#POS-OK{o'|K #INIT-POӪoOڜY  , Y -'$ ($$( ((($$(((($$($))( $$(((($ $(((((  ($ ($(($$$$$  (($( $(($ ((($  ($ ( IF CR ( STK ) IF ." (*)" ELSE ." (-)" THEN 7 SPACES ." (" LEVEL @ . ." ) " TEST @ 1+ 2TEMP 2@ 1. D+ FC@ DISP-TO ." " P-OBJS 2@ I 1+ 40 M* D+ A$ 40 FCMOVE> A$ COUNT TYPE IF 2TEMP 2@ 1. D+ FC@ Z2 ! ( OBJ ) 2TEMP 2@ 2. D+ FC@ Z3 ! ( START ) 2TEMP 2@ 3. D+ FC@ Z4 ! ( END ) 2TEMP 2@ 4. D+ FC@ Z5 ! ( CRITERION )  ( (((((((($$$ LOOP CR 0 Z1 ! 0 Z2 ! PRINTING @ IF 74 DASHES 17 SKIP CR ." MASTERY OBJECTIVE DESCRIPTION" DO I ANSWERS C@ I SANSWERS C@ = I RESULTS C! PRINTING @ IF 14 SPACES I 1+ 2 .R 7 SPACES I ANSWERS C@ ($ (**((* !$(((((((((($$$ LOOP CR 0 Z1 ! 0 Z2 ! PRINTING @ IF 74 DASHES 17 SKIP CR ." MASTERY OBJECTIVE DESCRIPTION" CR 11 SKIP PRINTING @ NOT IF 4 SPACES THEN ." (" LEVEL @ 1 .R ." ) " Z1 @ Z2 @ DISP-TO PRINTING @ IF CR ELSE 4 SPACES THEN 0 Z6 ! Z4 @ Z3 @ 1-  ((($   $(( (($  $ $($($$$($$$%%$ (($$$ $(( ((($($ $(($ (($  $$%!   CR THEN #O 0 DO P-TESTS 2@ I 5 M* D+ 2DUP 2TEMP 2! FC@ TEST @ 1+ = IF 1 Z1 +! I 2 * FORM @ + SCORES C@ 128 >= DUP IF 1 Z2 +! THEN PRINTING @ ((( ($$ $$$$ $($$((($ CR THEN #O 0 DO P-TESTS 2@ I 5 M* D+ 2DUP 2TEMP 2! FC@ TEST @ 1+ = IF 1 Z1 +! I 2 * FORM @ + SCORES C@ 128 >= DUP IF 1 Z2 +! THEN PRINTING @ $$$$$$ DO P-TESTS 2@ I 5 M* D+ 2TEMP 2! 2TEMP 2@ FC@ Z1 ! ( TEST ) Z1 @ TEST @ 1+ =  IF CR ( STK ) IF ." (*)" ELSE ." (-)" THEN 7 SPACES ." (" LEVEL @ . ." ) " TEST @ 1+ 2TEMP 2@ 1. D+ FC@ DISP-TO ." " P-OBJS 2@ I 1+ 40 M* D+ A$ 40 FCMOVE> A$ COUNT TYPE $$$$$$$$$(((((( (  %%% $($$ $$  %%%$((($$$($$$(((($%%%%%%%%$$$ $$Io GC =C #THEoK@ @CduY #ELSo @ GC =Cu  #BEGI/oK@C #AGAIPo @ GC=C#UNTIbo @ GC=C#WHIL|o#REPEAԖoj#ON-ERROҦo p  GuGuG#TURNKEo|@ЇC' Y #ABO, 6NC=C#ADC֦`nANDצ nCMP#צnEOR/צ@nLDA;צ֠nORAGצnSBCSצnSTA_צրlASLkצ DECwצ INCצ LSRצA ROLצ! RORצa STXצցCPXצCPYצLDXצ֢LDYצ֠ STY IF PR-OFF ELSE CARD-WAIT @ IF RETURN-MSG RETURN THEN THEN ; |:' p Z #THRoZ u' #FREEZoK p , R , 6T, 2p Y #79-STANDAR9o, EC Y #ASSEMBLEd168!CSo| Y #EXԖo p Y ES| 1@ #XSAVŧHHIHHPOHPOPTW$$ (($$$$$$$$$$$$$ $$   $$$$$$$$$$$$$$ Y #BOo #SEo #RPo, #UPMOD op , f , k p ,  SRdp f#CP0oNC  NC#BRKՏCLCՏCLDՏ؄CLIՏXCLVՏոDEXՏʄDEYՏՈINXՏINYՏȄNOPՏP HPUSH0HPUHA PUSH? NEXHF SETU&H CALL-FORT1Hj INDE=   ,MODN.xo Y #o Y #ME͒o Y #,ؠo, Y #,ٰo, Y #Xo, Y #)o, Y #o,  <KoSoUF#--o p f, 1@ Y k p o#<-o p f, 1@ Y , k p o#[COMPILE=oK@ESf 1@=C#go | 1@K#V|oܓ R#(BOT-SHOWoSK(ܓ Rۍ' l S* RK5Y >>ܓ  #SCLo p I 6  yA&#CDATE' "!,DATBNCHAcHINDENnH0PUT-DATzoK p I RvTyA#ZEROS-OUԇoKv S'RS K , u K#PUT-IN-PARENӨo, (K , 1@CuY #LoSp &S  S RCdu K CuY C, #LRE oSp >dp |, 1@S , .p , ., . RKK#?LREWo,  'p , 1@#B/CPլoNC u, @ NCCS, d,Z #RDBLo p I K B܅ (Y Y Y #PUoSܓ R yA#REVIV8oܓ R #CCTo] 2#CUmo], #CDOW΁o] #CLEFԓo], #CRIGHԥo] #TUйo]۾#TDOWo]۽#TLEFo]۾B&#BLKLOAo p  #RENEo, G p Y #TLCLo-C, TRSYY MY #LBRAC5o, [ #CMDADSJ߸ xAs\ ެܮ=%ܬܣxEDITSCfo= Y CY 5ܓ R  | Sۅ S,  >#BOT-SHOoܓ #ALL-SHOo #o /ESY (ܓ STu6|$۷ۇܓ dku9K* ۇE(Y &#H.oܓ R2#ALL-SHOWo& E l ~SCREEN # p , |:#FLIБo(ܓ SR2(ܓ  2#CURBOo l )KvR #GET-DAToKv Z ~DATE CODE? ..........., sK, Rv,  #DATE-SCREEoG p p 6jp #NEEDDATE\ojp K , (|#FWĄoj  k #RE֨oj,  k #BYżo 5܅ >j Y #SCRFLUSojt 6, 1@NC#BCCِBCSٰBEQBMI%0BNE/ЄBPL9BVCCPBVSMpBEGINWoC #UNTILao|@ @NCCNC#IFroNCC NC #THENo|@ @Cd  uY  du #ELSEo @C uCdu #NO#TRIGHo]ۅ#C==o]* Gܓ K 2#CDEo Sܓ RSuܓ TR ܓ yA#C<=:oܓ !5ܓ A >#CHROUqoۓ 5ܓ  ܓ RSܓ uܓ >ܓ 6#(LINSo6S EK, !o  ܓ #DATE-OΛo jY #DATE-OFo jY #EDI1o%  Y 5Y (Y 2޿#WHERFoS* @  Y 5Y (Y * [2޿#LOAD-BUFFER{otBB /SA, 1@c u , . p Rdu U d p R EXITFLۂVEHEHOF INSFL!܆NEWFL,TLS9 TLORF)CQom uKl #C]om Kul #SWAPDROnouK#(LINEo p #BEL̒o,  #TINIԥo#TDONŶo#LADoܓ  p K#?FULoۛܲG#RCH܁#LPOЯoMp * SYp |*|ܓ S* TMY KK#(LCOPYoMp * R p Mp * T* Mk#LCOPSo]s#LMOVʼno]ܓ #DOGGLřo]ܓ ܓ  ۀ(ܓ  2& 2#INSTOǯo5p fSo, R#CH0 H0H>HEND-COD(o p Y |@b@,  '^#CODŀo|@CSY Ӵئԝ#;COD^ob@ئ G G#EDITO8MARGIH TA®HL/BL˻HL/BLK-HC/L-H?C/SLH(LK:', R'' , |  K', R'' , S 6d, K, .    , Z Y #.oZ ~ PARAMETER: u'.o, S#ASCI|o  oS / E, { #yo dK~ UNKNOWN  dK~ EMPTY STACK dK~ DICTIONARY FUWS  , , , M, R [uZ o~BLOCKS #END.MOD Y , (y,  #INITIALIZoS 6d  R6|, 1@-C,  #FORMAo 6 1@ p -C6  1@Z ~ MOUNT DRIVE Sob6S-C6 u p u -Cd'R U KK#CASKo p f, 1@ p | Y , #Oo, , 1@ Gd SbK~ ;Z "Sw4S #COLONop #SHOW-CONTENT9oSp K#?FINLoESf 1@#DECOMnovSBSZ ~: Z \/Z K~$SORRY, THAT'S NOT A COLON DEFINITIONZ #SAVńo0C |, 1@C Y B 1@X Y #VLISo p @ p p   | df|CSXCp K Y #READY o~ . READY(CR)? , #(L/SYoSZ Z ~ INSERT SOURCEbKZ ~ INSERT TARGETbKtB#(COPY}o6DRuRuS!*SAELL `, dK~ BAD ARGUMENT =, dK~ NOT UNIQUE , d%K~ NOT IN CURRENT VOCABULARY, dK~ DISK RANGE ERROR , dK~ FULL STACK , dK~ DISK I/O ERROR , dK~ COMPIL  dS, ) fKH#(S=% Q``SB   %HJL? IN;g  ʔȔ %٩LF DO_ou,  'RS|, R6|:#HUNԣo kJu'TED `, d"K~ USE ONLY WHEN LOADING 4, d"K~ INPUT LONGER THAN 255 SHK#NU͘oB p YGKho 0 p 6H.DL2BLKLH/DDBLKZH0DGBLKhH1W/LINuHDEMONSTRATło6 kx , , x x~OyY #H+LOGϏo , z#DWAIԽo   "OyY , y #2CԔoZ Z #2CRo Ke~% in which you solve math problems by~# picking up the answers in a maze., n_)#RESTORE-OPTӭop Y sp Y p xY ep Y p Y #SAVE-OPTyop Y p sY xp Y p eY p Y #INIT-DEMϴo fOyY "O:Y #oS# GET-MAZEo yY ~Y O^S K}O"OS, yp R#GET-ZNAMoyp [Rhl Kl , ]#DotB , zS,  ,K#STORE-MAZxo鄝R k#R k ԅRtB#p |, xY ~#DD-MSoƔ,  l ~You may design your own mazes~ to be stored on a disk.~ Here's an example:, n#DEMO-DESIG2oyp |;yp | xY q#DL2-MSǨoƔ,  l ~In level 2, you must avoid a~dangisk that you have, , l ~created., , l ~Please place either one, , l ~in the disk drive now, bSu#STK-CHho  , . , S0~ PARAMETER:  u'.o, S K#INSTR-NAMxouu#READ-WAI o)ܔ#II+o, , EO#.MOVEKEY3o:F~the I, J, K, and M keys:~ (I-up, J-left, K-right, M-down).~the arrow keys.#DIRECTION-MSJoyp |Ɣ,  l ~ When using the keyboard, the fly~!may be moved around thdivision., n, )#DEMO-LEVWoyp |> Y , Y Y yp |O w xY , d[LY d׃#DEMO-LEV1oyp |> Y O w aƕyp |" xY Y Y , d[LY V׃#DOC-MSLJoƔ_ l ~You may alter the game settings~& WAY?#CONFIRM-MAZEeo\, , m, , ʆ"O#INSTR-STORouu, R, Rzul ~PLEASE CHOOSE THEu_Rl ~MAZE STORAGE SLOT.#INSTR-GE*ouu, R, Rzul ~PLEASE CHOOSE THEu_Rl ~MAZE YOU WISH erous spider while you are~collecting digits., n )#DL1-MSܙoƔ,  l ~!In level 1, you move a fly around~ the maze, picking up the correct~digits as you go., l ~You may practice addition,~subtraction, multiplication, or~ , R, Rzul ~TYPE IN A NAME u_Rl ~FOR YOUR MAZE, ANDu, Rl ~PRESS 'RETURN'. #.SURܛoddl ~THIS WILL DESTROYddl ~THE MAZE CALLEDddl , " k, " d_Rdl ~DO YOU WISH TOu_Rul ~PROCEED ANYe maze withV,  l ~#The [RETURN] key is used to pick up~a digit., n, )#INSTR-MSGŶoyp |Ɣ,  l ~You may always escape from the~!part of the program you are in by~"pressing the escape key (keyboard)~or button two (joyusing the 'Change the game settings'~ option of the main menu., n#DEMO-OPT-CHANGݛoyp |*yp |, xY HDyp |_)#INTRO-MSeoyp |@ryƔ,  l ~ Welcome to MATH MAZE!~# MATH MAZE is a math practice gamTOu, Rl ~USE.#.ZNAMőo k鄗 K~ #INIT-MEN o~Y [~Y h~Y oxY #ALTER-TOPMAZCoyp RS8OK yY #DISP-LOCmo ['Rhl 'yp R,R[Rhl ~** SEE MORE MAZEe master disk., n_)#DL4-MSӗoƔ,  l ~#At more difficult levels, the walls~of the maze are invisible!, n )#DEMO-LEV4oyp |>_Y , Y _Y >yp |O w xY , d[LY :׃#DEMO-GEԛoyp |*ܗyp |9y=wyp p E~_~O:Y #fpXo2k…#LOAD-NAM o,R#MAZE-OCC8oD )y#EITHER-IPoB , z, _, , "z, , l ~You may get mazes from, , l ~-- the Master disk or, , l ~-- a Data dstick)., n_)#INSTR-MSroƔ_ l ~#Here's how to choose a menu option.,  l ~When using a joystick:"OY , ,  l ~When using the keyboard:OY , , n, )#DG-MS-oƔ,  l ~#You may choose from 40 mazes stored~ on thCHK-DAToO w Bb| w |l , z, _, , #z, , l ~Please place the Data Disk, , l ~in the disk drive.,  w |#MAZE#-Io , z8S, S"OKO("O#ZSTORŐoB,S, 0 PR-LINE ! 0 PR-PAGE ! PR-ON THEN CONTINUE? IF ITEM-OBJ THEN THEN CONTINUE? NOT IF LEAVE THEN LOOP CONTINUE? IF ON TITLE 3 " CHAPTER TEST RESULTS " S-OKCUR-PROBRVXDI- VYDI=IVIL-CNI ROWINU1STIMcNLIMITp TOPLI}PMLIMITӊK"3DUfw2BRQP`pUDLIMITӗKION)OBLEM CONSTRAINTS FBONUS-DEýPSP ADMA SUMAAMAXA^, ;#CHANGo dKsOX dKOB d KO._dKߔO, d K"OK#OPTS-CHOICE$oO}xY oxY , , PSoundEPJoystickEPBackground colorEP Skill levelE8p ~Y jS8Y -#o 2 .R ." , CHAPTER " TEST @ 1+ DISP-T CR PRINT-MAIN PRINT-CLASS CR ." STUDENT" 28 SPACES ." OBJECTIVE" CR 33 SPACES Z3 @ 0 DO TEST @ 1+ I 1+ DISP-TO SPACE LOOP CR CR ; SPY ,KKY#CALC-NEWPOנoMkMp /EMY XkXp /EXY #MOVE-CROSoy~$ڙ$, , itRp yRY "O w |ÔRY O w #CHToa #CHANGE-DISЯov !vMp Xp !߇#GET-CHOICĦo y z_ ,  oxY "O}xY , _3PEdit the current mazepPStart with a blank mazepPGet a maze from a diskpP"Make a data disk for storing mazespP Store the current maze on a diskpP"View the maze with connected wallspHHCOMHHERO!HVIL-HPSHOR9HPLONDHVRANQH HRAN]HDIVCHAiH{#LSHOuH LASTLI̓HSCR-NICŐo, , , #FLUԞo_  #PDONŻMSDONԕNBONU BON-CN SCORIPL 8Y ^, ;p E~_~#fpXS WILL ERASE THE CURRENT MAZE.,  l ~DO YOU WANT TO DO IT ANYWAY?, , "ʆ#CLR-DIGITo ԅ, #ZERO-MAZqo  O-' _' it~#EDIT-NE׎o9p  ݥ ݥ( PLAY.OVLٵHBONUSHdMIN-BO0H VAN=HHANKHLOSVHHITLOSaH(PRIZlHBON-INTVzH2HEROCHEHE-SHADCHIVILCH=VIL-SHADCHA#PROBӿH PLUДHSUݔHMULHDIHFACTORH'VCOMvvvu#CHANGE-MAoMp Xp S|Mp Xp _#CTUNo, # '_it, S#CHANGE-E,o ϡ4#GET-PONoa#DISP-CDIGdol kp |#NEW-tokp , {kY , _it#TIC˓o_ it#ERASE-okp ԅ vvuv#SEE-MAZo "O~Y , _, O~Y #oOY d Kݥtd KϦb"d K˃P-d Kޘ>9d K,Cd KNdK"OY Kp nY#fpX"AND IF 0 N1 ! START-PRINT ELSE XNEKUMXOLK OYNE(KYOL4KPL-EN@"K7ITPL-BAL"KULADIGIS/AN]LPLACnTANS-DARRA~KIES MFOUNĊTFACTOҟF1STīCEXIT-WANԸTBUMPÖSDELAӖT1OPANߖK )BASE VAR2OPANKD)R)AN"OPT.OVLٵH2OPT-INSTo l ~Press p ~ button one~ [RETURN] ~ to change a setting.#TOGL-SOUN/op  O"OY #TOGL-JOيop |EY #CHANGE-LEVE̳op ΄{Y #TOGL-BKGNДoxp |xY y,  l , hK CENTER-TITLE " ALL REPORTS HAVE BEEN PRINTED" ERR-MSG THEN THEN ; : HEAD-CCH BIG " CLASS CHAPTER REPORT " CNTR-PRINT CR BIG BIGMODE @ IF 9 ELSE 25 THEN SPACES ." LEVEL " LEVEL @ vu#PUT-CDIGʢoykp ԅ 4kp Mp Xp vvukp vvu#PRO-oMp Xp "Mp Xp kp ԢMp Xp #HLINRo dr, ur#MODE-SHOפo,  , , _p Jl Kl ~#H 2LOH2H DIVL*.DIVH4 LS@o, #MSLo, k#RAND\odLR#DIVLIMlop , 6p S,p , 6 p ,  p , HY OY Y "O8Y ȕY Kp { &ȕY K#SOLVoڠp { w p p ȕY p { &ȕY #DRAW-BONU[o, _l ~BONUS:, , r, , r, f, RZEDIT.OVLٵHCONHNE1HGEo , z, _, , #z, , l ~The Data Disk is ready to use, Z#INSERT-MSwo , z, , l ~ This option allows you to set up, , Y #MOREoSp fu#MULT-LI%o Y e~Y q~Y oxY ~Y p S- K O"O#ADD-LIIo oxY "O}xY , eqP Sums up to 10EP Sums up to 20EP Mental mathEj#GET-LIMo , zp p 6~through divide by #DIV-LI̩o,  'Y , 'RWl ש, ~Y , ~Y W~Y ~Y oxY ^#LIM-SHOo'` '` K'RRp Wl |~ timesK, K~ through |~ timesKKRRp Wl ~*Rp ql |~ timesK, K~ through |~ timesKeRp ql ~** To see moreuul , K#MULT-LIMHoY ~Y 3S, p R#MULT-LIMLϙo Y ~Y 3#ALTERTOPLIثop  y%y%y, , l ~* * * CAUTION * * *, , l ~Any information on the disk you, , l ~insert will be destroyed.#WAIT-MSo , z, , , , z, , l ~Please wait while I, , l ~prepare your data disk.#DSUREo, _l ~!A~Please place the Data Disk, , l ~in the disk drive., Z w |#MAZE#-Iɠo , zԟS, SÝ"OKO"O#ZSTORjoBԠ,uS, S$Y 皏KKY#CALC-NEWPOӱo[k[p /E[Y fkWANT TO DO IT ANYWAY?, , "Ɇ#ZERO-MAZѦo  O-'3' it#EDIT-NE;oqp  Gڦ G#GET-CHOICqo y z_ ,  oxY "O}xY , _PEdit the current mazeEPStart with a blank mazeEPGet a maN'. #.SURřoddl ~THIS WILL DESTROYddl ~THE MAZE CALLEDddl , " k, " d_Rdl ~DO YOU WISH TOu_Rul ~PROCEED ANYWAY?#CONFIRM-MAZE"o, , *, , Ɇ"O#INSTR-STORųo, R, Rzl ~NGE-EoԢ#GET-POo;#DISP-CDIG,o=2l p |#NEW- #IPRO-ģo[p fp 0"[p fp p [p fp ^У#HLINo dr, ur#MODE-SHOlo,  , , p Jl Kl ~#OUTLINņove, t, t, , r, , r#DISP-CMDӸo,  l ~& EDIT MAZE ovvu vu#CROSS-OFovvu#LOAD-CSE7oI hh hT#LC-CHQokP LOAD CHARSqP K]#LOAD-MAZkoR k҇R҇ k R |#CALC-ZADėokЅ# LOAD-NAMۚo皥R#MAZE-OCCoET-ZNAMȟop Rl Kl , ]Xt#o0(B , zZԟS,  皣K#STORE-MAZNoR k҇R҇ k ⅍RtB#CHK-DAToO w BƊ,| w |l , z, _, , #z, , l K"OY dKc"OY K#ZINIT-MAZåoOqY OY Y 픊Y 8OY O}Y fY [Y , , |z#EDIT-MAZHoU6 w "O w ХO#ZSUREo,  l ~!THIS WILL ERASE THE CURRENT MAZE.,  l ~DO YOU e disk drive now, ZƊS!u, w |#STK-CH$okP.SqP0~ PARAMETER:  u'.o, S K#INSTR-NAMNo, R, Rzl ~TYPE IN A NAME _Rl ~FOR YOUR MAZE, AND, Rl ~PRESS 'RETURfp /EfY #MOVE-CROSo~$C, , itp y┊Y "O w |픊Y O w #CHANGE-DIS.ov Zv[p fp ގ Zvvvu#CHANGE-MAԉo[p fp ^S|[p fp 3#CTUNǢo, # '_it, S#CHA 9y#EITHER-I oO w B , z, _, , "z, , l ~You may get mazes from, , l ~-- the Master disk or, , l ~-- a Data disk that you have, , l ~created.:p |H, , l ~Please place either one, , l ~in thze from a diskEP"Make a data disk for storing mazesEP Store the current maze on a diskEP"View the maze with connected wallsEj#SEE-MAZŠo "OY 8, _, ZOY #oOWY 8d KtBd K|bLd KPWd: SAVE-SANSWERS TEST @ 0 RECENT C! FORM @ 1 RECENT C! 0 SANSWERS 2 RECENT 100 CMOVE SAVE-RECENT ; IF PR-OK? IF START-PRINT ELSE PR-MSG THEN THEN CONTINUE? IF ITEM-OBJ CONTINUE! ( GUAR THE SAVE) THEN CONTINUE? IF SAVE-SCORES SAVE-SANSWERS THEN ; Kx>cd K,md KxdK"OWY KWp ntBYҋ#fpXΨ ;Y ;Y , ;Y ;Y , ;Y , ;Y #BTUN  TI-SONVo ;Y ^#sosq"O:Y OSY }Sp  O:Y  U , y  O:Y #fpX 4 1 MB 5 0 MB 1+ C@ TITLE.OVLٵHNOTE-OFF TTDU/HTSTO?TPLAY-NOTKoS ;p R, {u it#DO-TUNWoSp |<,  S'RS , 6cK  "OSY SK#TUNo #TI-TUNӔ ATUNo ;Y , ( BEGIN SCORE OVERLAY ) VARIABLE R VARIABLE BT VARIABLE CLEVEL VARIABLE BLANKC DUP 0 6 MB DUP 1 5 MB DUP 2 4 MB DUP 3 7 MB DUP 4 8 MB 5 9 MB BT @ 1 > IF ESCAPE! THEN ; : REPORT 13 0 VHTAB ." DO YOU WANT TO PRINT A REPORT NOW? " YORN ( Q-CONV ) ( 83JAN07AEM ) : Q-CONV ( Q#-1 --> ) 0 R ! 0 BT ! DUP 25 < IF 2 * 12 + C-B + C@ DUP 0 ASCII A MB DUP 5 ASCII B MB A SPLITSŠ{sQy)0LZv MULTI-PATH AP_UV@ՑS',V PARIS SUBWAY .(ꪋ+ خ(h& RZAMAZE! O⊽- ʃX\+& BLIND ALLEYS -%P{P&z[SK HORIZONTALSrI& USER FRIENDLY̘͞Ϙ A}EH9JrHAYFIELD """"" 5a}-'oy MAZY'S TRAP AU(QV}AEWEŧ$w SPIDER'S WEB A HăQx@pCE[piV ELSE FALSE THEN ; : CTEST-CHK TEST @ 1+ DOUBCH @ = IF C-B 9 + C@ CASE ǟ3qW3lF[YIoROWDY 6D X@QYX]TQ; jWANDER LP%P?b6)+DISMAZED qG$H$qG$H$qG$Y8= VERY TRICKY o⊶*8:ꪮh Jtd& DIAGONALS $I"IID$ DUP 4 ASCII C MB DUP 3 ASCII D MB 2 ASCII E MB ELSE 25 - 2 * 13 + C-B + C@ DUP 1 ASCII A MB DUP 0 ASCII B MB ( OTHERWISE) BELL ." PART A/PART B MISMARKED!" CR 8 15 VHTAB ." ??" 8 0 VHTAB TRUE Z4 ! ENDCASE THEN ; U[ŵUG{AkN#u STAIRWAYS ̜33cff̜33cff̜&7HYj{ MINI-SPIRALS EDTUUuwWDDUUUww!%}STRANGE! UUEUUUUTOU*! BREAKTHROUGH ")HHB@ $$"I$Z`%gARENA \]y! 16 OF ( LEAVE AS DOUBCH) ENDOF 32 OF EXTRACH @ 1- TEST ! ENDOF 0 OF ." PART A/PART B NOT SPECIFIED!" 8 15 VHTAB ." ??" 8 0 VHTAB TRUE Z4 ! ENDOF $$I$I$I$I$UN~* BLOCKBUSTER ۻUUiX& FOUR ROOMS {{k lvq!& TWO ROOMS $ݪN*wZe&WptWEIRD! ]U{ܝ_ @qwU O IMPOSSIBLE? WuU]YTuU_Q DUP 3 ASCII C MB DUP 4 ASCII D MB 5 ASCII E MB THEN BT @ 1 > IF ESCAPE! THEN ; EASY1 -F%Pzթ޷&z[SKBLOCKS q5%vU EASY WALLS =NwH: {@.Q SQUARE DONUTS wwWUUww* c_[WS DARK DUNGEON GWEUѥM!kS{+ BANANZWG]omkr THE FILTER WDDUUUUUUUUUUUUUUUQSUWY[]_ac WICKED SPIRAL[ZVWXYZ[\]^_ NO WALLS? $AI}Ym SYMMETRIC ok]Vk]k]o x30 TWIN SPIRAL  [ZZi: SCORE-IT? CONTINUE? IF TEST @ 8 * #O 2* 2+ + SCORES FORM @ 4 * + C@ 0 <> IF TOOK-MSG YORN 13 15 ERASE-LINES ELSE TRUE THEN p(;cPx OPEN DOORS (>T *Pe%@TP!2dU6s UNLUCKY LULU )߽@=@:]v~GLASSES ׯBUBׯ?SM )Fc BOZO'S PLUM _o@R( 56l$Q*AMILK RUN : TOOK-MSG 13 1 VHTAB CSN @ DUP ROSTER-FI$ COUNT TYPE SPACE ROSTER-L$ COUNT TYPE CR ." HAS ALREADY TAKEN THIS TEST" CR ." DO YOU WANT TO RE-SCORE IT?" PUSH-MSG ; 9 " READER, OR A BLANK CARD TO END SCORING" CENTER-TITLE READ-CARD CONTINUE? IF 50 0 DO FALSE I RESULTS C! LOOP P-ANSWERS 2@ TEST @ 100 M* D+ " CARD READER NOT PLUGGED IN PROPERLY" ERR-MSG THEN ; IF BELL ." /POST-TEST MISMARKED !" TRUE Z4 ! THEN CR CONTINUE! C-B 10 + 10-CONV R @ CLEVEL ! CONTINUE? NOT LEVEL @ CLEVEL @ <> OR I SANSWERS C! I ANSWERS C@ = I RESULTS C! 9 0 VHTAB ." QUESTION " I 1+ 2 .R CONTINUE? NOT IF SPACE MIS CR ." PLEASE PRESS 'ESC' " RETURN-MSG RETURN ESCAPE! THEN CONTINUE? IF LOAD-SCORES SCORE-IT? NOT IF ESCAPE! THEN THEN THEN ; THEN LOOP CONTINUE? IF PUSH-MSG REPORT THEN THEN BLANKC @ ( ONLY EXIT IS BLANK CARD) CONTINUE! IF BELL ." WRONG LEVEL SPECIFIED !" CR TRUE Z4 ! THEN Z4 @ IF CONTINUE! 12 0 VHTAB ." CAN'T SCORE THIS TEST." CR ." PRESS 'RETURN' TO KEEP GOING, OR" CR ." 'ESC' TO STOP SCORING THIS TEST." CR CONTINUE! 18 38 VHTAB RETURN 9 18 ERASE-LINES CONTINUE? NOT IF LEAVE THEN ( CARD ) : CARD-SCOR BEGIN TITLE 3 " SCORING " CENTER-TITLE 7 " RUN THE NEXT TEST CARD THROUGH THE" CENTER-TITLE UNTIL CONTINUE! ; : CARD CSLOT @ SLOT-OCC? IF CARD-SCOR CONTINUE! ELSE CONTINUE! -1 FORM ! C-B 8 + C@ DUP 32 = IF 0 FORM ! THEN 8 = IF 1 FORM ! THEN FORM @ 1 = IF ." POST" ELSE ." PRE" THEN ." -TEST" CONTINUE? NOT FORM @ 0 < OR FORM @ 1 > OR FORM @ 50 M* D+ 0 ANSWERS 50 FCMOVE> 0 Z1 ! 50 0 DO I ANSWERS C@ 0 <> IF 1 Z1 +! THEN LOOP Z1 @ 0 DO I Q-CONV R @ ASCII A - 1+ 0 MAX 5 MIN DUP : HAND BEGIN TITLE 3 " HAND SCORE TESTS " CENTER-TITLE 7 18 ERASE-LINES PUSH-MSG GET-NAME CONTINUE? IF FIND-NAME ELSE FALSE THEN LOOP CONTINUE? IF REPORT THEN THEN ELSE CONTINUE? IF NONE-MSG THEN TEST @ 1+ DISP-T ." ITEM " I 1+ 2 .R ." : ( )" CR ." (ANSWER 'A' 'B' 'C' 'D' OR 'E')" CR ." TYPE 'X' IF ITEM WAS NOT ANSWERED." 9 21 VHTAB ASCII A LOCHR ! ASCII X HICHR ! IF LOAD-SCORES 50 0 DO FALSE I RESULTS C! LOOP 7 0 VHTAB ." TEST NUMBER: ( )" 7 15 VHTAB 1 #T INNUM TESTCHK 1- TEST ! CONTINUE? IF 9 14 ERASE-LINES A$ 1 TEXPECT' A$ 1+ C@ DUP 65 < SWAP 69 > OR A$ 1+ C@ 88 <> AND IF 7 EMIT FALSE ELSE TRUE THEN CONTINUE? NOT OR UNTIL A$ 1+ C@ 88 = IF 64 A$ 1+ C! THEN 8 1 VHTAB ." (1) PRE-TEST OR (2) POST-TEST : " ." ( )" 8 34 VHTAB 1 2 INNUM 1- FORM ! THEN CONTINUE? IF SCORE-IT? THEN 95 HICHR ! 32 LOCHR ! CONTINUE? IF A$ 1+ C@ ASCII A - 1+ DUP I SANSWERS C! I ANSWERS C@ = I RESULTS C! ELSE LEAVE THEN Z1 @ 0 DO BEGIN 9 12 ERASE-LINES 80 A$ 1+ C! ( A BAD ANSWER) 9 0 VHTAB ." TEST " THEN CONTINUE? NOT UNTIL ; CONTINUE? AND IF P-ANSWERS 2@ TEST @ 100 M* D+ FORM @ 50 M* D+ 0 ANSWERS 50 FCMOVE> 0 Z1 ! 50 0 DO I ANSWERS C@ 0 <> IF 1 Z1 +! THEN LOOP ( MAST-CHANGE) : MAST-CHANGE TITLE 3 " MASTERY ASSIGNMENT " CENTER-TITLE BEGIN 4 18 ERASE-LINES PUSH-MSG GET-NAME CONTINUE? IF FIND-NAME ELSE FALSE THEN TITLE 3 " SCORE TESTS " CENTER-TITLE ESC-MSG 6 0 VHTAB ." 1. INSTRUCTIONS" CR CR ." 2. SCORE TESTS FROM CARDS" CR CR IF 1- OBJ @ 2* SCORES C@ SWAP IF 127 AND 64 OR ELSE 192 OR THEN OBJ @ 2* SCORES C! SAVE-SCORES ELSE DROP THEN IF CONTINUE? IF LOAD-SCORES THEN BEGIN 4 18 ERASE-LINES PUSH-MSG 5 1 VHTAB CSN @ SHOW-NAME CONTINUE? IF GET-OBJ THEN CONTINUE? THEN CONTINUE? NOT UNTIL ; ENDCASE REPEAT SAVE-BUFFERS CONTINUE! ; END-OVERLAY SCORE.OVLY THEN CONTINUE? NOT UNTIL ELSE CONTINUE? IF NONE-MSG THEN 1 OF TRUE INS ! ENDOF 2 OF CARD ENDOF 3 OF HAND CONTINUE! ENDOF 4 OF MAST-CHANGE CONTINUE! ENDOF IF 4 18 ERASE-LINES 5 9 VHTAB ." OBJECTIVE: " OBJ @ P-O CR CR CSN @ SHOW-NAME CR ." HAS" TAKEN? TEACH-SET? OR IF FAILED? IF ." NOT" THEN ." MASTERED" ELSE ." NOT BEEN TESTED ON" ( SCORE TESTS ) RESOLVE: SCORE VERIFY-DISK? BEGIN CONTINUE? INS @ NOT AND WHILE IF ." NEW MASTERY ASSIGNMENT:" CR ." 1. MASTERY, OR" CR ." 2. NON-MASTERY" CR ." 3. LEAVE MASTERY AS IT IS" CR CR 17 CHOOSE-MSG 1 3 INNUM DUP 3 <> CONTINUE? AND ." 3. TYPE ANSWERS MANUALLY" CR CR ." 4. CHANGE MASTERY ASSIGNMENT" 14 CHOOSE-MSG 1 4 INNUM CASE THEN ." THIS OBJECTIVE." CR TEACH-SET? IF ." (MASTERY ASSIGNED BY TEACHER)" THEN THEN CR CR CONTINUE? ( .MOVEKEYS) ( 83AUG17AEM ) : .MOVEKEYS ( --) ( PRINT OUT THE NAMES OF KEYS USED TO MOVE THE FLY) 12 1 VHTAB ." (CURRENTLY: " CTYPE @ 0 MAX 2 MIN CASE 0 OF ." CCS 7710)" ENDOF SHOW-CURRENT 6 15 VHTAB 1 3 INNUM 1- CTYPE ! THEN ; II+? IF CONTINUE? IF 5 12 ERASE-LINES 5 1 VHTAB ." WHICH INTERFACE ARE YOU USING FOR THE" CR ( GET-INT) ( 83JAN11AEM ) : GET-INT ( --) ( GETS INTERFACE TYPE FOR MOUNTAIN 1100A CARD READER) ( SHOW-CURRENT) ( 83JAN11AEM ) : SHOW-CURRENT ( --) ( SHOWS CURRENT INTERFACE TYPE) ." CARD READER?" CR CR ." 1. CCS 7710" CR ." 2. APPLE SUPERSERIAL CARD" CR ." 3. MOUNTAIN MULTIFUNCTION CARD" START-OVERLAY INITS.OVLY ( 83JAN11AEM ) 1 OF ." SUPER SERIAL)" ENDOF 2 OF ." MOUNTAIN MULTIFUNCTION)" ENDOF 3 OF ." NOT SPECIFIED)" ENDOF ENDCASE ; ELSE ( 1100A? ) ( 83JAN11AEM ) : 1100A? ( --T/F) ( TRUE IF USING MOUNTAIN 1100A CARD READER) 0 B+DAY MC! 0 B+MONTH MC! 0 B+YEAR MC! D-ROSTER 2DUP D-OFFS 2@ D+ P-ROSTER 2! B+F-ROSTER M2! D-STU B+F-STU M2! D-OBJS B+F-OBJS M2! CONTINUE? IF 4 18 ERASE-LINES 4 13 VHTAB DAY C@ MONTH C@ YEAR C@ SHOWDATE 14 18 BOX CTYPE @ 0 MAX 3 MIN CTYPE ! 1100A? IF GET-INT ELSE 3 CTYPE ! D-PRE B+F-PRE M2! D-PRE B/BUF 3 M* D+ B+F-PRE 4. D+ M2! D-PRE B/BUF 6 M* D+ B+F-PRE 8. D+ M2! D-PRE B/BUF 12 M* D+ B+F-PRE 12. D+ M2! 5 7 ERASE-LINES 5 1 VHTAB ." WHAT TYPE OF CARD READER ARE YOU USING?" CR CR ." 1. CHATSWORTH OMR-500 OR MR-500" CR ." 2. MOUNTAIN COMPUTER MODEL 1100A" IF ( DON'T ASK AGAIN IF ASKED DURING VERIFY-DISK?) PUSH-MSG 7 7 VHTAB ." PLEASE TYPE TODAY'S DATE." SETDATE THEN THEN CTYPE @ B+CTYPE MC! ; ( CONTINUED) SAVE-ROSTER ASKD @ NOT CR CR ." (CURRENTLY: " CTYPE @ 2 > IF ." CHATSWORTH READER)" ELSE ." MOUNTAIN 1100A)" THEN 6 36 VHTAB ( INIT-CLASS-INFO ) : INIT-CLASS-INFO TITLE 3 " SETTING SYSTEM INFORMATION " CENTER-TITLE 17 " ONE MOMENT, PLEASE ..." CENTER-TITLE ( GET-CTYPE) ( 83JAN11AEM ) : GET-CTYPE ( --) ( GETS CARD READER TYPE AND STORES IN CTYPE) D-TESTS B+F-TESTS M2! D-ANSWERS B+F-ANSWERS M2! D-SCORES B+F-SCORES M2! D-RECENT B+F-RECENT M2! 1 2 INNUM 1- ; ( 83JAN11AEM ) ( CONTINUED) 9 0 VHTAB ." CLASS :" 10 0 VHTAB ." TEACHER:" 11 0 VHTAB ." GRADE :" 15 " TYPE EACH ITEM REQUESTED ABOVE, AND" CENTER-TITLE FALSE DUP CR-LF ! B+CR-LF MC! TRUE DUP FF? ! B+FF? MC! TRUE DUP FORMS ! B+FORMS MC! FALSE DUP EPSON ! B+EPSON MC! CONTINUE? IF 5 0 VHTAB ." ARE YOU USING CONTINUOUS FORM PAPER?" CR ." (CURRENTLY '" B+FORMS MC@ PR-Y/N ." ')" 6 35 VHTAB YORN CONTINUE? IF DUP FORMS ! B+FORMS MC! ." DO YOU WANT 'FIRST NAME FIRST' " CR ." FOR STUDENT NAMES? (YES/NO) " 10 35 VHTAB YORN DUP F-L ! B+F-L MC! THEN ( 83JAN11AEM) 16 " PRESS 'RETURN', OR JUST PRESS " CENTER-TITLE 17 " 'RETURN' TO LEAVE A BLANK. " CENTER-TITLE 18 " YOU MAY PRESS 'ESC' TO EXIT. " CENTER-TITLE 09 09 VHTAB 29 TEXPECT CONTINUE? IF CLASS$ $LOAD 17 " INSTRUCTION BOOKLET IF YOU NEED HELP." CENTER-TITLE 18 " YOU MAY PRESS 'ESC' TO EXIT " CENTER-TITLE THEN CONTINUE? IF 5 0 VHTAB ." DOES THE PRINTER NEED A LINE FEED" CR : INIT-PRINTER CONTINUE? IF TITLE 3 " PRINTER, CARD READER OPTIONS " CENTER-TITLE 15 " TYPE THE ANSWER TO EACH QUESTION AND" CENTER-TITLE 16 " PRESS 'RETURN'. CHECK THE" CENTER-TITLE 14 18 BOX CLASS$ B+CLASS 30 >MCMOVE 10 09 VHTAB 29 TEXPECT CONTINUE? IF TEACHER$ $LOAD TEACHER$ B+TEACHER 30 >MCMOVE 11 09 VHTAB 29 TEXPECT CONTINUE? IF GRADE$ $LOAD ( 83JAN11AEM) LEVEL @ B+LEVINFO MC! DOUBCH @ B+LEVINFO 1. D+ MC! EXTRACH @ B+LEVINFO 2. D+ MC! #TESTS @ B+LEVINFO 3. D+ MC! ." WITH EACH CARRIAGE RETURN ?" CR ." (CURRENTLY '" B+CR-LF MC@ PR-Y/N ." ')" 6 35 VHTAB YORN CONTINUE? IF DUP CR-LF ! B+CR-LF MC! 5 7 ERASE-LINES THEN THEN ( CONTINUED) ( 83JAN11AEM) THEN " HEATH DATA/MATH" A$ S! A$ B+DISK-NAME 16 >MCMOVE 1 DUP F-L ! B+F-L MC! CONTINUE? IF 8 18 ERASE-LINES PUSH-MSG 9 0 VHTAB 5 DUP SLOT ! B+SLOT MC! 4 DUP CSLOT ! B+CSLOT MC! 3 DUP CTYPE ! B+CTYPE MC! SAVE-BUFFERS ; GRADE$ B+GRADE 30 >MCMOVE THEN THEN THEN 5 7 ERASE-LINES THEN THEN CONTINUE? IF 5 0 VHTAB ." ARE YOU USING AN 'EPSON' PRINTER?" CR ." (CURRENTLY '" B+EPSON MC@ PR-Y/N ." ')" 4 13 ERASE-LINES CSLOT @ 1 MAX 7 MIN CSLOT ! CONTINUE? IF 5 0 VHTAB ." WHAT 'SLOT' IS YOUR CARD READER CARD IN?" 6 35 VHTAB YORN CONTINUE? IF DUP EPSON ! B+EPSON MC! EPSON @ IF FALSE DUP CR-LF ! B+CR-LF MC! TRUE B+FF? MC! THEN THEN THEN 5 7 ERASE-LINES SLOT @ 1 MAX 7 MIN SLOT ! CONTINUE? IF 5 0 VHTAB ." 4. SETTING PRINTER AND" CR 7 SPACES ." CARD READER OPTIONS" RETURN-MSG RETURN ; ." (CURRENTLY '" CSLOT ? ." ')." 6 35 VHTAB 1 7 INNUM CONTINUE? IF DUP CSLOT ! B+CSLOT MC! THEN THEN SAVE-BUFFERS ; : DONE-MSG TITLE 3 " INITITALIZING " CENTER-TITLE 7 0 VHTAB ." YOU HAVE NOW COMPLETED:" CR CR ." 3. SETTING SYSTEM-WIDE INFORMATION" CR ." WHAT 'SLOT' IS YOUR PRINTER CARD IN?" CR ." (CURRENTLY '" SLOT ? ." ')." 6 35 VHTAB 1 7 INNUM CONTINUE? IF DUP SLOT ! B+SLOT MC! THEN THEN 5 7 ERASE-LINES ( CARD READER OPTION INPUTS) ( 83JAN11AEM ) CONTINUE? IF GET-CTYPE THEN CONTINUE? IF 5 0 VHTAB ." CAN THE PRINTER PERFORM A FORM-FEED?" CR ." (CURRENTLY '" B+FF? MC@ PR-Y/N ." ')." 6 35 VHTAB YORN CONTINUE? IF DUP FF? ! B+FF? MC! THEN THEN ( INITL) RESOLVE: INITL VERIFY-DISK? BEGIN CONTINUE? INS @ NOT AND ( REC NO ) #S 1- RN C! ELSE #S 1- ROSTER-L$ $BLANK #S 1- ROSTER-FI$ $BLANK THEN -1 NOS +! ; IF INIT-PRINTER THEN CONTINUE? IF DONE-MSG THEN CONTINUE! ENDOF 3 OF CONTINUE? IF INIT-CLASS-INFO THEN CONTINUE! ENDOF WHILE TITLE 3 " INITIALIZING " CENTER-TITLE 5 0 VHTAB ." 1. INSTRUCTIONS" CR ." 2. INITIALIZE DATA/MATH FOR THE FIRST" CR END-OVERLAY INITS.OVLY IF NOS @ 1- CSN @ DO I 1+ ROSTER-L$ I ROSTER-L$ $MOVE 4 OF CONTINUE? IF INIT-PRINTER THEN CONTINUE! ENDOF ENDCASE REPEAT SAVE-BUFFERS CONTINUE! ; START-OVERLAY CLASS.OVLY ( 83JAN07AEM ) ( DEL-NAME ) VARIABLE TCSN ( TEMP CSN) : DEL-NAME CSN @ #S 1- <> ." TIME (PERFORMS 3 AND 4 BELOW)" CR ." 3. SET SYSTEM-WIDE CLASS INFORMATION " CR ." 4. SET PRINTER, CARD READER OPTIONS" CR ESC-MSG 13 CHOOSE-MSG 1 4 INNUM I 1+ ROSTER-FI$ I ROSTER-FI$ $MOVE LOOP CSN @ RN C@ ( REC NO ) #S 1- CSN @ DO I 1+ RN C@ I RN C! LOOP ( CONT) 1 OF TRUE INS ! ENDOF 2 OF CONTINUE? IF INIT-CLASS-INFO THEN CONTINUE? CASE : SAV-ID ID$ CSN @ RN C@ 1- M+STU M* P-STU 2@ D+ M+STU >FCMOVE ; : ZERO-SCORES ." TYPE EACH NEW ENTRY AND PRESS 'RETURN'" CR ." PRESS 'RETURN' TO LEAVE THE I.D. BLANK" CR ." OR 'ESC' TO GO BACK TO THE CLASS LIST" CR 14 18 BOX 7 0 VHTAB ." STUDENT I.D.: ( ) (OPTIONAL)" THEN NOS @ #S = IF " THE CLASS LIST IS FULL" ERR-MSG THEN CONTINUE? NOT NOS @ #S = OR UNTIL SAVE-ROSTER ; Z4 @ ROSTER-FI$ Z4 @ 1+ ROSTER-FI$ $MOVE -1 Z4 +! REPEAT #S 2- Z4 ! BEGIN Z4 @ CSN @ >= WHILE Z4 @ RN C@ Z4 @ 1+ RN C! -1 Z4 +! ." THAT NAME IS ALREADY IN THE LIST." CR ." PRESS 'RETURN' TO CONTINUE." CR LOAD-SCORES 0 SCORES SR-L 00 FILL SAVE-SCORES ; NAME-L$ CSN @ ROSTER-L$ $COPY SAV-ID ; THEN THEN CONTINUE? IF 12 18 ERASE-LINES REPEAT 1 NOS +! Z3 @ CSN @ RN C! ( SPARE REC NO , IF ANY ) CSN @ RN C@ 0 = IF NOS @ CSN @ RN C! THEN NAME-F$ CSN @ ROSTER-FI$ $COPY 15 18 BOX RETURN TRUE ESC ! 15 18 ERASE-LINES ELSE ADD-NAME ZERO-SCORES 5 18 ERASE-LINES CONTINUE? IF 5 5 VHTAB ." '" CSN @ SHOW-NAME ." ' ADDED." THEN ( ADD-ROSTER ) : ADD-ROSTER BEGIN TITLE 3 " ADDING A STUDENT " CENTER-TITLE 15 0 VHTAB 16 0 VHTAB ." PRESS 'RETURN' TO ADD MORE, OR " CR ." PRESS 'ESC' TO EXIT." CR 15 18 BOX 9 0 VHTAB CONTINUE! RETURN : ADD-NAME ( 83JAN07AEM ) NOS @ 1- Z4 ! #S 1- RN C@ Z3 ! ( SPARE REC NO , IF ANY ) BEGIN Z4 @ CSN @ >= WHILE Z4 @ ROSTER-L$ Z4 @ 1+ ROSTER-L$ $MOVE GET-NAME CONTINUE? IF 7 16 VHTAB 11 TEXPECT ID$ $LOAD THEN CONTINUE? IF FIND-NAME IF 11 18 ERASE-LINES 16 0 VHTAB BELL ( DEL-ROSTER ) : DEL-ROSTER TITLE 3 " DELETING A STUDENT " CENTER-TITLE 15 0 VHTAB ." OR PRESS 'ESC' TO RETURN TO THE " CR ." CLASS LIST." 14 18 BOX GET-NAME CONTINUE? IF FIND-NAME IF 12 18 ERASE-LINES PUSH-MSG 13 0 VHTAB IF 7 16 VHTAB 11 TEXPECT THEN CONTINUE? IF ID$ $LOAD FIND-NAME CR CR ." HAS BEEN CHANGED TO:" 9 5 VHTAB ." '" CSN @ SHOW-NAME ." '" RETURN-MSG RETURN ; : DUP-NAME CSN @ DUP ROSTER-FI$ DUP C@ 1+ A$ SWAP CMOVE IF DUP-NAME DEL-NAME ELSE ESCAPE! THEN ELSE " THAT NAME ISN'T IN THE CLASS LIST." ERR-MSG ESCAPE! THEN ." TYPE THE NAME YOU WISH TO DELETE, AND" CR ." PRESS RETURN. PRESS 'ESC' TO RETURN" CR ." TO THE CLASS LIST." 14 18 BOX GET-NAME CONTINUE? IF FIND-NAME NAME-L$ 2TEMP 2@ 11. D+ 20 >FCMOVE NAME-F$ CSN @ ROSTER-FI$ $COPY ( CHANGE IT IN ROSTER) NAME-L$ CSN @ ROSTER-L$ $COPY SAV-ID ; ." TO HAVE IT APPEAR IN THE COMPUTER" CR ." RECORDS FROM NOW ON. YOU MAY USE" CR ." THE 'ESC' KEY TO LEAVE THE RECORD" CR ." AS IT PREVIOUSLY WAS." CR ( STK) ROSTER-L$ DUP C@ 1+ B$ SWAP CMOVE ; : PLACE-NAME CSN @ 32 M* P-ROSTER 2@ D+ 2TEMP 2! NAME-F$ 2TEMP 2@ 11 >FCMOVE ( CHANGE IT ON DISK) THEN CONTINUE? IF 12 18 ERASE-LINES 13 0 VHTAB ." TYPE THE NEW ENTRY THE WAY YOU WISH" CR IF 12 18 ERASE-LINES PUSH-MSG 13 0 VHTAB ." ARE YOU SURE YOU WANT TO DELETE" CR ." '" CSN @ SHOW-NAME ." ' ?" CR 25 SPACES 12 15 BOX ." (YES/NO) " : CHANGE-ROSTER TITLE 3 " CHANGING STUDENT NAME OR I.D. " CENTER-TITLE 15 0 VHTAB ." TYPE THE NAME YOU WISH TO CHANGE," CR 12 18 BOX 7 0 VHTAB ." STUDENT I.D.: ( ) (OPTIONAL)" GET-NAME THEN CONTINUE? : SHOW-SWITCH 5 5 VHTAB ." '" F-L @ ( 83JAN07AEM ) IF A$ COUNT TYPE SPACE B$ COUNT TYPE ELSE B$ COUNT TYPE ." , " A$ COUNT TYPE THEN ." '" ." ARE YOU SURE YOU WANT TO CHANGE" CR ." '" CSN @ SHOW-NAME ." ' ?" CR 25 SPACES 12 15 BOX ." (YES/NO) " YORN CONTINUE? AND YORN CONTINUE? AND IF DEL-NAME ELSE ESCAPE! THEN 12 18 ERASE-LINES ELSE " THAT NAME ISN'T IN THE CLASS LIST." ERR-MSG THEN THEN CONTINUE? IF SAVE-ROSTER THEN ; IF 11 18 ERASE-LINES 16 0 VHTAB BELL ." THAT NAME IS ALREADY IN THE LIST." CR ." PRESS 'RETURN' TO START AGAIN." CR JOY-ON 1 LEVEL ! 2 OPERATOR ! 8 LIM# ! ($ (**((* !$(((((((((($$$ LOOP CR 0 Z1 ! 0 Z2 ! PRINTING @ IF 74 DASHES 17 SKIP CR ." MASTERY OBJECTIVE DESCRIPTION" 15 18 BOX RETURN TRUE ESC ! ELSE ADD-NAME THEN THEN CONTINUE? IF CR ( STK ) IF ." (*)" ELSE ." (-)" THEN 7 SPACES ." (" LEVEL @ . ." ) " TEST @ 1+ 2TEMP 2@ 1. D+ FC@ DISP-TO ." " P-OBJS 2@ I 1+ 40 M* D+ A$ 40 FCMOVE> A$ COUNT TYPE 3 OPERATOR ! 5 LIM# ! 100 SEED ! 44 MAKE-DEMO-FOR ACTUAL-PLAY CR THEN #O 0 DO P-TESTS 2@ I 5 M* D+ 2DUP 2TEMP 2! FC@ TEST @ 1+ = IF 1 Z1 +! I 2 * FORM @ + SCORES C@ 128 >= DUP IF 1 Z2 +! THEN PRINTING @ ( SET UP A DEMO FOR LEVEL 4) ( 83AUG16AEM ) JOY-ON 3 LEVEL ! IF 5 18 ERASE-LINES SHOW-SWITCH SAVE-ROSTER ELSE LOAD-ROSTER THEN ( SET UP A DEMO FOR LEVEL 2) ( 83AUG17AEM ) ." DEMO DISK IN DRB" RETURN 1138 LOAD FLUSH  ((($   $(( (($  $ $($($$$($$$%%$ (($$$ $(( ((($($ $(($ (($  $$%!  100 SEED ! 47 MAKE-DEMO-FOR ACTUAL-PLAY FLUSH ; ( SET UP A DEMO FOR LEVEL 1) ( 83AUG18AEM ) JOY-ON 0 LEVEL ! 4 1 VHTAB ." STUDENT:" 8 SPACES ." STUDENT TESTING NUMBER" THEN BEGIN Z3 @ ROSTER-L$ C@ 0 <> Z3 @ #S <> AND CONTINUE? AND Z6 @ AND WHILE 14 CHOOSE-MSG REPEAT ENDPAGE REPEAT ; 0 OPERATOR ! 1 LIM# ! 100 SEED ! 46 MAKE-DEMO-FOR ACTUAL-PLAY 6 0 VHTAB ." 1. INSTRUCTIONS" CR ." 2. PRINT THE CLASS LIST" CR ." 3. WORK WITH THE CLASS LIST" CR ( CLASS ) RESOLVE: CLASS VERIFY-DISK? BEGIN CONTINUE? INS @ NOT AND WHILE TITLE 3 " CLASS LIST " CENTER-TITLE ESC-MSG FLUSH : WORK-ROSTER 0 Z3 ! BEGIN CONTINUE? WHILE 1 Z6 ! Z3 @ 0= IF TITLE 3 " CLASS LIST" CENTER-TITLE ." (VIEW THE CLASS LIST)" CR ." (ADD A STUDENT)" CR ." (DELETE A STUDENT)" CR ." (CHANGE A STUDENT OR I.D. NUMBER)" CR Z3 @ 10 MOD 5 + 1 VHTAB Z3 @ SHOW-NAME Z3 @ 10 MOD 5 + 37 VHTAB Z3 @ RN C@ 2 .R Z3 @ 1+ 10 MOD 0 = IF 0 Z6 ! THEN 1 Z3 +! 1 3 INNUM CASE 1 OF TRUE INS ! ENDOF 2 OF PR-OK? PERMISSION. THEY ARE PROTECTED UNDER STATE AND FEDERAL LAW. 1 IF NOS @ 0 > IF PRINT-ROSTER ELSE " THE CLASS IS EMPTY." ERR-MSG THEN VERSION 83AUG18AEM--16:45 DWMATHMAZE=VI ( 83AUG18AEM ) ELSE PR-MSG THEN CONTINUE! ENDOF 3 OF WORK-ROSTER CONTINUE! ENDOF ENDCASE WARNING: THIS PROGRAM AND ITS DATA CONTAIN PROPRIETARY INFORMATION AND TRADE SECRETS OF DESIGNWRE, INC. AND ARE NOT TO BE COPIED FOR ANY PURPOSE WITHOUT WRITTEN REPEAT SAVE-BUFFERS CONTINUE! ; END-OVERLAY CLASS.OVLY