@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@P!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr d M * @  $ % CC$$)%1 Udߥ$9%: !0 S$%} DD˙`  }J)Lr J  ((  p L ()   J}L= ( L 0q A    IB JC;? D W } LL  ` W )LA!  ߰")-݆ p" } $G@LL 08`Q")<2Q0 -G$Ș݆ UL# ; p8(()(0ʥ)NQ` }$GȘ݆LU )L ݆ L GȘ ݆LL )W>Z   HH)H }p h  hyhy D L> L JJ    ! LA*` BF }7'8  M HN H` 8 Z  \LdJJ!"! GFE@F (!L }EE !E^ ^ E E7EȩEdE/EȩE  D } .L }  ;F d  ;?F7F? ( .   Z D LL d } . D  L    p  E` , d)  D L) 0BM݊L݉} ML  N݆ L NLML [ TEqEHȱEqEh 0Gȹ G} HLL GɛL  LFREE SECTORS G) *Gȩ GȽG GȌ*jj >G} C8jJ3j2CD( C202C ԠBX` N 1? l LlD:RAMDISK}.COMLu L1 L ;LHL  T`  `1  ɐ     `TU  } L ? .  t`GBJ ~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI4 0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DEL`?<0LV`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J  (` 9 V⪍ ઍ  -'}LLu ÝDEHILV 9 .l 9 .l  `` s$B BH(}I|DE V BLV nB,DE JLV B V BLVDEIʩ BꭝLu  } 3E:}DISK OPERATING SYSTEM II VERSION COPYRIGHT 1984 ATARI CORP.A. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDG*}E J. DUPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRES+}SF. LOCK FILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES P. FORMAT SINGLEL !N',}#"&))9(&*)/h)''-&؆莟R'S  vL/ˢ L }Insert DOS 2.0s, type Y Λx -}DEfHI 1莏#q! @ y0ɛ8A0,' ȅ 1 1ild! 1L!NO SUCH ITEMSELECT.} ITEM OR FOR MENU! 0 .z:*{}.|{ 1 0 0JB 18L%|DL/}%DIRECTORY--SEARCH SPEC,LIST FILE?[# 0 0 &|D3" 1L!NOT A DISK FILEN !B 1L!E# 1 !BD0}ED:}:1BJ|DE 1DEBHI 1 h0ߢ 0.1}  0?詛 1 y0YЛ 1 ;#L" ;#L! BL1TYPE "Y" TO DELETE...DELETE FILE SPEC2}COPY--FROM, TO?OPTION NOT ALLOWED736 FREE SECTORS COPYING---D1:DIRECK.COMl# 0|D .L/%#3}##JB|DE 1BHID#E 1#0: B 1L!#͑### B 1#c$0SY4}S1}:## # # .#Ƚ# # 𩛙## 1,#PD#ELJ- <.BJD#E 5}1 1HH 0hh|DL%1}:̳# L% #D#EL% 1 0 . .0O% 1L!WILD CARDS NOT A6}LLOWED IN DESTINATION 0 <.|K}N 2 FORMAT. t* 5) 1L!`) 0NΞ 0 L1) 1 L!BAD LOAD FILELOAD FROM WHAT FILE?) 0 ?}0#B 1L!WHAT FILE TO LOCK?) 0 0$B 1L!WHAT FILE TO UNLOCK?DUP DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO US@}E PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV.FE! +L1   `*  70 2 2A} 0.* 1 y0 0)INSERT BOTH DISKS, TYPE RETURN^, 1 y038逍 N, 1L! ,B}C, t*  Lx+, 0 ^, 1 y0 , ,0,0 ,L+ ,I0 ,Vǭ0C}Ξ, 0 }, 1 y0C,ШC, 0K'!" H H 'h h Lx+!EF 5L1L!D,I,HhD}` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNINSERT DESTINATION DISK,TYPE RETURNE}`  `8 rL1`-* 1P* 1 y0Y`hhL!NAME OF FILE TO MOVE?- 0 0|DL% <.F},^ 1 70 0 .@L# .BJ 1  DEHIB V L1 ,} 1 70,L.  G}JB|,#P#DE 1 HI BDEHHII 1 B 1 ,^ 1 70,0La- B V,#PH},^ 1 70 0L#L!-* 1P* 1 y0Yj383}mm ݭI}}`8}``|* ? ɛ,`|:-)| / 1L!`DESTINATION CANT BE DOJ}S.SYS0 0H{ 24Δ 28/L!/) 2 Π 2 0 ξK}hAΞB,0 J 1 BDEHI,HÝDE 1HIHIDELSAVE-GIVE L}FILE,START,END(,INIT,RUN)O S0 1`BDEPHI V` S0H 1 L!M}0 0 1L~0`PLEASE TYPE 1 LETTER,0`hhL! 70 1L0L<1 ,;ɛ7,"ɛ:ݦ1ݥN}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{NAMEO} TOO LONG B VL!` L1I H1EΝDL1|mDiE` V0`8d/8 i:222 1 LP}!ERROR- 138ɛ+,' 20*.. өr2 1``2TOO MANY DIGITSINVALID HEXAQ}DECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8uR} ECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8u^d$X;Example 1 - Locking a disk filenX;by Karl E. WiegersxX;F=EIX;X;equates for CIO operationsX; PUTRT}EC LOCK# EOL ICCOMB ICBALD ICBLLH ICAX1J ICAX2K CIOVVX;$X;************U}*******************X; PROGRAM BEGINS HERE"$X;*******************************,X;6P@X;J$>0;;use IOCB #3TQ>LV}OCK;;command is LOCK^ PICCOM9hQ>;;don't needrPICBLL9;;to set buffer|PICBLL9;;length orPICAX19;;any aux bytW}es PICAX29Q>4FILENAME;;point toPICBAL9;;file to beQ>5FILENAME;;lockedPICBAL9 CIOV;;do it!IALLDOX}NE;;error? LOCKERR;;yes, print msg. ALLDONE+X;X;name of file to be lockedX;FILENAME AD8:PRACTICE.FILAY}X;&$X;*******************************0X;:%X;error handling subroutine - justD%X;prints a message if any error isNX;Z}encounteredXX;b LOCKERRl$>v Q>PUTREC PICCOM9 Q>4ERRMSG PICBAL9 Q>5ERRMSGPICBAL9Q>P PICBLL[}9Q>PICBLL9 PICAX29 CIOV:X;X;error message to print X; ERRMSG  AError during lockA=EOLBLLz STATUS FILL RENAME DELETE! LOCK# UNLOCK$ POINT& NOTE' FORMATFILDAT ]} ICSTACD X;N $X;*******************************X X;b X;XIO macrol X;v %X;Usage: XIO cmd,IOCB,aux1,aux2,fs X; ^}"X;'cmd' is a CIO command number %X;'IOCB' is the IOCB number to use %X;'aux1' is the 1st auxiliary byte %X;'aux2' is the _}2nd auxiliary byte #X;'fs' is a filespec (literal or !X; previously-defined address) X; XIO    AError in `}XIOA  $>  Q>  PICCOM9 Q>  PICAX19* Q> 4 PICAX29>  H !@SKIPXIOR @XDEV =EOL\ @SK a}IPXIOf Q>4@XDEVp PICBAL9z Q>5@XDEV PICBAH9  Q>4  PICBAL9 Q>5  PICBAH9  CIOV  OL\ @SK tX;$X;*******************************X;"X;LOCK error handler subroutineX; LOCKERR$>Q>4LOCKMSG Pc}ICBAL9Q>5LOCKMSGPICBAL9 PRTERROR: LOCKMSG  ALocking errorA=EOLX; $X;***************************d}*****X;4$X;UNLOCK error handler subroutine>X;H UNLOCKERRR$>\Q>4UNLOCKMSGf PICBAL9pQ>5UNLOCKMSGzPICBALe}9 PRTERROR: UNLOCKMSG AUnlocking errorA=EOLX;$X;*******************************X;!X;sub. to print ef}rror messagesX; PRTERROR Q>PUTREC PICCOM9Q>P PICBLL9Q>PICBLL9$ PICAX29. CIOV8:BX;L$Xg};*******************************VX;`$X;RENAME error handler subroutinejX;t RENAMERR~$>Q>4RENAMEMSG PICBAL9h}Q>5RENAMEMSGPICBAL9 PRTERROR: RENAMEMSG ARenaming errorA=EOLX;$X;******************************i}*X;$X;STATUS error handler subroutineX;  STATUSERR)>;;file not found?HCHKLOCK;;no, skip ahead($>2Q>4j}NOTFNDMSG;;yes, say so< PICBAL9FQ>5NOTFNDMSGPPICBAL9Z,dDPRTSTATUSn CHKLOCKx)>;;file locked?HUNKNOWk}N;;no, skip ahead$>Q>4STLOCKMSG;;yes,say so PICBAL9Q>5STLOCKMSGPICBAL9,DPRTSTATUS UNKNOWNl}$>Q>4UNKNOWNMSG;;handle allPICBAL9;;other statusQ>5UNKNOWNMSG;;valuesPICBAL9 PRTSTATUS PRTERROR"m}:, NOTFNDMSG6 AFile not foundA=EOL@ STLOCKMSGJ AFile is lockedA=EOLTUNKNOWNMSG^ AUnknown errorA=EOLhX;rn}$X;*******************************|X;$X;FORMAT error handler subroutineX; FORMATERR$>Q>4FORMATMSG PICBo}AL9Q>5FORMATMSGPICBAL9 PRTERROR: FORMATMSG AFormatting errorA=EOLX;$X;************************p}*******X;$X;DELETE error handler subroutine&X;0 DELETERR:$>DQ>4DELETEMSGN PICBAL9XQ>5DELETEMSGbPICBALq}9l PRTERRORv: DELETEMSG ADeleting errorA=EOLETERR:$>DQ>4DELETEMSGN PICBAL9XQ>5DELETEMSGbPICBAL<d$X;Example 2 - using the XIO macronX;by Karl E. WiegersxX;$X;examples of using STATUS, LOCK, X;UNLOCK, RENAME, s}DELETE, andX;FORMAT disk operationsX;X;you need the MACRO.LIB and"X;SUBS.LIB files on the disk inX;the drive nat}med in linesX;0240 and 0990X;X;F=EI>D8:MACRO.LIBX;#X;******************************X; PROGRAM STAu}RTS HERE#X;******************************"X;,P6X;@!XIO STATUS====AD8:PAJ)>TFOK1^ STATUSERRhv}+rOK1|XIO LOCK====AD8:PAIOK2 LOCKERR+OK2!XIO UNLOCK====AD8:PAIOK3 UNLOCKERRw}+OK3%XIO RENAME====AD8:P,Q.RAIOK4 RENAMERR+OK4#XIO STATUS====AD8:Q.RA)>&x}FOK50 STATUSERR:+DOK5N!XIO LOCK====AD8:Q.RAXIOK6b LOCKERRl+vOK6X;$X;---------------------y}----------"X;NOTE: program will stop here"X;and tell you that the file is X;locked.$X;------------------------------z}-X;#XIO STATUS====AD8:Q.RA)>FOK7 STATUSERR+OK7#XIO DELETE====AD8:Q.RA IOK8{} DELETERR +*OK84X;>$X;-------------------------------H#X;BE VERY CAREFUL WHEN USING THERX;FORMAT COMMAND !!!!!!|}!!\$X;-------------------------------fX;p X; XIO FORMAT,3,0,0,"D2:"zX; BPL OK9X; JSR FORMATERR X; BRK}}OK9+X;$X;------------------------------- X;pull in all the subroutines$X;-------------------------------X;~}>D8:SUBS.LIB$X;------------------------------- X;pull in all the subroutines$X;-------------------------------X;d%X;Example 3-using the FILL commandnX;by Karl E. WiegersxX;F=EI>D8:MACRO.LIBX;$X;********************}***********X; PROGRAM STARTS HERE$X;*******************************X;PX;GRAPHICS  COLOR }PLOT (=#DRAWTO (= DRAWTO = POSITION =#POKE FILDAT="XIO FILL====AS:A, END!E}ND6X;@#X;include the subroutine libraryJX;T>D8:SUBS.LIB#POKE FILDAT="XIO FILL====AS:A, END!E@d%X;Example 4-reading disk directorynX;by Karl E. WiegersxX;F=EI>D8:MACRO.LIBX;$X;********************}***********X; PROGRAM STARTS HERE$X;*******************************X;PX;X;open IOCB #1 to read disk!}X;directory - use any filespecX;OPEN ===AD1:*.*A READONE INPUT;;get a filename)>;;end of file?"F}DONE;;yes, quit,!PRINT FILENAME;;no,write it6,;;get the next one@ DREADONEJDONETCLOSE ;;all done^+hX;r}!X;save 18 bytes for a filename|X;FILENAMEX;$X;-------------------------------"X;subroutine to read a filenam}e X;from the disk directory and!X;store it at address FILENAME$X;-------------------------------X; INPUT$>;;}use IOCB #1Q>GETREC;;command isPICCOM9;;GET a RECordQ>4FILENAME;;put it atPICBAL9;;address FILENAMEQ>5FIL}ENAME PICBAH9&Q>;;get 18 chars0 PICBLL9:Q>D PICBLH9N CIOV;;go do itX:bX;l#X;include the subroutine lib}raryvX;>D8:SUBS.LIBet 18 chars0 PICBLL9:Q>D PICBLH9N CIOV;;go do itX:bX;l#X;include the subroutine lib <<25.$!54/25."!325.$!54/25."!3%% ) ) %) %)Ѕ % `%%)G }& & .`&&&&&'L&) l JJJJ0W!ʎ)))+))"@* }) 6)) ) A)0 )(` 6)@ A)`)Hԝ))ԭ)h)@+)֩)8ɛL]' }) n)J) i@`8  &׈ׅ֭נ)֬)IJHjhΦ))ɛԈi)Ԑ)))k) })cԌ)).))@L )JJJJʽ))ک) 6)ڙɛ)(i(ڐ A)) ))(`) & }Q)X؍))Yٍ))")@2)))خ) &))( O)έ)L&* )! )0 })@))))))ح)٢؝))) O)*0 [))) &)) &*)) & }))))(Ѝ)m))))m)))))Ͷ)Li()L&)*+,-)))))`'` )L }Yi(ؐ`)))JH*~)~)~)(hΧ)`))@W(N }LLKK &&<(Px@NMA% `))@W(N 9UV((DXXLINE1THIRTYLINE2LINE3LINE4LABELEXTFILETASC0XDIRNUTHIRTYTHIRT$} $}@ A0y +AR@1AA`CAA`UA@g$}@@dyB7t@dM%6-F:A`,%AV$F:Aa,9%@@M%@@(*-@$}@*(25-@@5(T H E L A B E L M A K E R<g-@@7($}I-@@O(|a-@3@g(|F7-@@7(P,-@$}@,(CREATE A NEW LABELZ,-@@,(EDIT/PRINT A LABELd(-@@((DISK DIRECTORYn@-@$}@ @(&Use the SELECT button then press STARTx33F:B2y,"@)F:B2y,"@A ,-@@$},(ŠנKF:B2y,"@*-@@A(CREATE A NEW LABELK Ap F:B2y,"@$}Ap A@33F:B2y,"@)F:B2y,"@Ap,-@@,(ԯԠKF:$}B2y,"@*-@@A(EDIT/PRINT A LABELK A  F:B2y,"@Ap A33F:B2y$},"@)F:B2y,"@A ,-@@,(ˠ٠KF:B2y,"@*-@@A$}(DISK DIRECTORY K A  F:B2y,"@Ap A@Q (}AA-AA?$}@@dQB7t@d*-@@*("@-@@,(Šנ6 A`$}@ A,.@.@@K:6=6-@6-@'6-@36-@6= A P@ $}6. A"pJ=6-@6-@'6-@36-@6= A PT 6. A"p^=6-@6-@'6$}-@36-@6= A Ph 6. A"pr=6-@6-@'6-@36-@6= A P| 6. A"$}p A` F:B2y,"@AP6F:B2y,"@" A , A6 A F:B2y,"@$}A 4F:Ad,"@(*AdAU4 @  A B APd A -@@!$}*(NAME: 66-@B6-@!N6-@Z6-@&d A P 6. A"p67B:,%@,.67@$}<@,.+@+@@B(@(@*(@7(@B@$} A 6F:B2y,"@" A , A6 A F:B2y,"@A &4F:Ad,"@(*$}AdAU4 @ 0 A0:c (}A@-A@?AAXQ@@dcB$}7t@dD*-@@*(N8-@@.(ԯԠ̠8 A`X8 A $}@8@@K:b=6-@6-@!'6-@36-@&= A Pl 6. A"pv$}67B:,%@,.67@<@,. B A`+@+@@7@$}@*@7@[-@@(+-@@/(A-@@E(W-@@$}[(4-@@!4(  A` F:B2y,"@A@,F:B2y,"@$}" A , A F:B2y,"@A 4F:Ad,"@(*AdAU4 @  A$}-@@H-@@"0(ĠŠŠD-@@@H  H-@@"0( $} D-@@@H   Y B-@@ ,( >-@@!O( $}Y A*8@.@@K:8 A4=6-@6-@'6-@36-@6= A P$}> 6. A"pH36-@6-@)6-"@63 A PR 6. A"p\=6-@6-@'6-@$}36-@6= A Pf 6. A"pp=6-@6-@'6-@36-@6= A Pz 6. A"p$} A` F:B2y,"@A `6F:B2y,"@" A , A6 A F:B2y,"@$}A 4F:Ad,"@(*AdAU4 @  A +@+@@B(@$}(@*(@7(@B@ A` F:B2y,"@A `6F:B2y,"@$}" A , A6 A F:B2y,"@A 4F:Ad,"@(*AdAU4 @  A $}+@+@@B(@(@*(@7(@B@$ A.$}c (}AAD-AAD?AAQ@@dcB7t@d8(-@@(($}B'6-@6-@'6-L B AV3@3@@D:*.LBL$}`@j"@6-%@t"@6-%@~5"@6-%@)6-@56-$}07@<@,4S"-&(0 Ap -(7@<@,6-%@ A ?-@$}@!?(% = Main Menu 4F:Ad,"@(*AdAU4 @  A9A$}@d'A@d9AAp:-@@0(Ԡ̠ : Ap F:B2y,"@$}Ap4F:Ad,"@(*AdAU4 @  A@ B ApY@.@$}@K:9@Y@@P:  A  AG Ap6-@%6-@!16$}-@=6-@&G A P -A:,( A"p A2 F:B2y,"@Ap< F:B2y,"@A$}0F4F:Ad,"@(*AdAU4 @ P A0Z-@dU(@(@*(@$}7(@F(@ U(@ n4F:Ad,"@(*AdAU4 @ x F:B2y,"@$}A0  A` F:B2y,"@A0 F:B2y,"@@ 4F:Ad,"@(*Ad$}AU4 @  A0-@@H-@@"0(ΠҠҠΠD-@@@H $}H-@@"0( D-@@@H   B Apo6-@6-@$}/-@@5-Z( h6-%@l o$ss;@2,;@2,;@2$},;@2,;@,;@2,9@2,;@,;@,;@,$6.D: $6..LBL$=$}-@@=(#"c-@@(|--@7@3(|E-@@$}K(|]-@7@c(|,c-@@(|--@7@3(|E-@@K(|]-@7@c$}(|6=-@@=(#@$J@-@@@(&You have four lines to type $}your labelT?-@@?(%Press after each line is typed^?-@@ ?(%When you are done, press $} h>-@@">($ = Main Menu r$|@-@@@(& will save th$}is label ?-@@?(% will do this label over ?-@@ ?(% will prin$}t this label >-@@">($ = Main Menu $@-@@@(& will$} print this label. ?-@@?(% will abort this printing. ?-@@ ?(% $} ?-@@!?(% >-@@">($ $} = Main Menu $@-@@@(& Enter the number of times you ?-@@?(% $}want to print this label 3-@@!3(NUMBER: >-@@">($ $} = Main Menu $@-@@@(& Now that you have created your label &?-@@?(% What $}name do you want to save it as?0;-@@ ;(! Input up to an 8 character name.:>-@@">($ $} = Main Menu D$N@-@@@(& Insert your labels in your printer. X?-@@?(% P$}osition your print head properly. b;-@@ ;(! When you are ready, press l>-@@">($ $} = Main Menu v$@-@@@(&Enter the name of the label you want @-@@@($}&to read from the disk and to print. F-@@! (NAME: 2-@@"F( = Main Menu$@-@$}@@(& will print this label again. ?-@@?(% ?-$}@@ ?(% $@-@@@(& Do you want to make another label? $} ?-@@?(% will create another label j-@@ >($ will print this label $} P-@@!j( >-@@">($ = Main Menu $6-$}-( )@II"@()"@))"@0)"@1)"A%)"AUA ` "AUA"P$}*&"@'' A"p& @ 4"A&*"A `>\"A&*!-( -6-&@3-9($}D67,. R6-&@\ A!H"A"R-%@\* -(>:,7,.>:,*-%@f "-$}( A `p -(z A `%%@-%@%(  A `)@"@'$}' @ "AUA"P"A&A! A" -( $ -( $/67@2$},.$67@,.,6. /$D:LABELMKR.BAS A" -( $ -( $/67@2$;opY,k,SSCRRATEAGHGSCOREHRATETINDEXTTLHRTTLARARATETEAMALDTIMCCCCCC2C1WEEVHDIFHV(}@@@@@@@@@ @ @ (}(} !"#$%& pp9A,9A,9@(<@!,9@(,9@((},9@(,9@(,;@V,9@(,GG9@(,9@(,9@(,;A ,;@@,;A,D(}67@<@,. 567A <A ,. D67@,.(J-@'"F67$@%@<$@%@(},.J 29"67@<@(,.""967@)<@V,.<+-@A"'67,.>:,+ FN6-A(} AB@@ D:TITLE.SCRN6-Pz6-F:AY,+@$60@P0@(}@bAYn6-?:C:,,zAYZ|)@)@*)@7)@B@(}NAZAfA rA| APd@ +@%@:0@@T0(}@@n0@@@0@0@@@n/-@@/ @(} pro footballx1-@@1 @GAME ANALYSIS&-@@& @and3-@@(}3 @PROGNOSTICATIONS AP-SORT TEAMS BY RATE-@' 6-8,-@'(},"8<,88,<,, A ! 6-8,68,-8,!68,-  $R"@@(}K.6-:6-@F6-@(R6-@U6-%A AG@@D:SCHEDULE.DATU(}6-&A-@ -@'"@68$%,-, 6 @B@6- AB@(}@ D:SCORES.DATJ-@ T-@'^@68$%,-h r |' 6-&(}3@3@@ D:FBPICKS.DAT-@'@68,-@68,-(}@68<,-@68,- @ " A-CALCULATE RATESB-@'(}68,-#68,-,68,-568,->68,-B  --@'@' 6-$%6-%6-8,'6-8,(}68,-8,%68,-8,%&%68,-8,%8,%68,-8,%8,06-+8,&8,,&+8,&8,,:68<,-$?P%8,D(}68,-8,%8<,N68<,-$6?P%8,X68,-8,%8<,b%%68<,-8<,$8<,'8,l%%68<,-8<(},$8<,'8,v  -@'68,-8,%8,$@68,-8,'+8,%@,68,-8,%(}8,$@68,-8,'+8,%@,2$68<,-+8,%8,,'+%@,268,-8,'  A`..@)}@ D:FBPICKS.DAT-@' @8, @8, @8<,  @8)},  @*-MAIN MENU4- >m +AR@90@@@S0@)}@m0@@@H2-@@2 ̠̠R'-@@'  GAME )}ANALYSIS\-@@ andf*-@@* PROGNOSTICATIONSp0-@ @0 )}z0-@ @0  0-@ @0  1) ENTER SCORES 0-@ @0 )} 0-@ @0  2) ANALYZE A GAME 0-@ @0  0-@)} @0  3) MAKE PREDICTIONS0-@ @0  0-@ @0  4) SORT T)}EAMS 0-@ @0  0-@ @ 0  5) ENTER SCHEDULE 0-@ @!)}0  0-@ @"0  0AdAU")@06-&@I) }''AAA#A 0  A-KEY ENTRY OF SCORESF 6-%";@@) } D:SCORES.DATF@$--@@  D:SCORES.DAT.a +!0@@/0@C0) }@@U-@@aAR8? KEY ENTRY OF SCORES: *!@? WEEK #&@B! @) }!  PRESEASON #L,, $ V-@'@`6-$%%6-$%j 6-8,) }6-8,t?-@'@%@? 7$%<$%@, y0 A@@#68,-0 @~?-)}@ '@%@? 7$%<$%@, 0 AP@#68,-0 @ @)}7-@ '@%@7 ŠԠŠ A-PREDICTIONSa+!0@@@;0@)}@@U0@@aARD 6-@ A0>@@P:D6)}-U-@@3 PRO FOOTBALL PREDICTIONS?!@U -WEEK #&@ @  -PREASEASON-- )}% A @!-@@7 INSUFFICIENT DATAA AU"@J @)}#PRO FOOTBALL PREDICTIONS FOR WEEK #&@U @-@' 68<%,-8<&@, 68<%,-)}8<%,%8<&,68<%,-8<%,%8<,(68<%,-8<%,'@2 <-@'@F!6-+%,$%)}%!6-+%,$%P 6-8,6-8,Z Ad6-&P:8,&8,,n)!6-P:8,%'@%?P,)6-&x+ @)}6-@&%+6-@+ @6-@&%+6-@-@'@%@ 7$%<$%)}@, -@!'@%@ 7$%<$%@, I " @I @7$%<$%,)} 7$%<$%,  0"@ @% @0 @'-@@ '  Ӡ٠))}@ A0-COMPUTE SPREAD##68<%,-8<%,$8,'8<,##68<%,-8<%,$8,'8<,6-8<%)},&8<%, !6-P:%?P,  6-P:&?P,"$,-GAME ANALYSIS6 +@'0@@@)}A0@@@[0@@u0@@@AR@I @,@0+/@0)}@7,@UI/AY@UJ;-@@@+,@)7,@1; TJ @3 INSUFF)}ICIENT DATA-PRESS ANY KEY@)@J A0^$ }HOME TEAM ? $ A"h 7$%<$%,6-r# VI)}SITING TEAM ? # A"|1AR@+ 7$%<$%,16--A ^AR^ J}TEAM )} AVG.RATE HOME/AWAY !! BL-7$%<$%@,#6-P:8<,$@,# ) }A"%-%+@&B:,,!  %  !6-P:8,$@,! A"+ -@%+@&B:,,'  )!}+  !! BK-7$%<$%@,#6-P:8<,$@,# A"%-%+@&B:,,!  %  )"}!6-P:8,$@,! A"+ -@%+@&B:,,'  +  & -0I!,+$@,&@@)#}xI/+$@,&@AU&P:8<,,:I!,+$@,&@@xI/+$@,&@AU&P:8<,,DS )$}@+,+$@,&@@xS/+$@,&@AU&P:8<,,N9,+$@,@x9/+$@,AU&P)%}:8<,,X l)@v"@' A0768<%,-8<&@,768<%,-8<&@,= 68<%,)&}-8<%,%8<&,=68<%,-8<%,%8<&,968<%,-8<%,%8<,968<%,-8<%,%8<,;68<%,-8<%)'},'@;68<%,-8<%,'@ AEE =}PREDICTED POINT SPREAD )(} 7$%<$%@,  ! +66 P:$@,'@ 7$%<$%@,&)@"@'))}& A0 A-NEW SCHEDULEa+AR-0@@G0@@a0@)*}@8-@@8 OK TO ERASE OLD SCHEDULE (Y/N) &)@@& A0:@:)+}@@D:SCHEDULE.DAT -@ *U }-@@2 ENTER SCHEDULE - > @U P),}RESEASON WEEK #4$!@$ WEEK #&@>0-@@0 VISITOR HOMEH-@R!-)-}@%@! A"\U @)68+$,%+$@,,-=-@%@U 7$%<$%, f!-@ ).}%@! A"pP @+68+$,%+$@,%,-?-@ %@P 7$%<$%,z  @)/} A-CODED INPUT OF TEAMS6-A6.<AR A"&)@2"@'< A#)0} @e)!@# A" >:,67<,.>:,0 A"0)@&"@'0 A# @e)!@)1}# A"0% >:,%67@<@,.>:,7-@U@&47<%,76-P:'@, %"A)2}  % A"$""** RIGHT JUSTIFIED OUTPUT **< 6.=:,%67B:,%,.7B:,}160,0,177,203,201,79,208,21P ]]169,78,145,203,165,203,24,105,2,133,203,165,204,105,0,133,204,169,0,240,14,201,15,208,6Z ]])?}169,14,145,203,208,4,201,65,240,17,165,203,24,105,1,133,203,165,204,105,0,133,204,169,0d VV240,198,162,16,169,7,157,66,3,1)@}69,0,157,72,3,169,30,157,73,3,165,88,157,68,3,165n ==89,157,69,3,32,86,228,189,67,3,133,212,169,0,133,213,96 D:NFL1.)A}BAS,157,72,3,169,30,157,73,3,165,88,157,68,3,165n ==89,157,69,3,32,86,228,189,67,3,133,212,169,0,133,213,96 D:NFL1.( ..@@ D:FBPICKS.DAT-@'" @H-C}RATE(I)(" @ARATE(I)2 " @ RATE(I,0)<" @"INDEX(I)-SORTEDF @P-D}YY100.0,100.8,100.4,103.7,111.1,107.4,101.1,98.3,99.7,95.7,87.1,91.6,105.2,98.8,102.3ZWW111.8,100.9,106.3,100.2,99.2,99.7-E},110.0,103.8,106.9,97.5,96.4,96.9,92.3,93.3,92.9nUU109.5,106.2,107.7,88.3,86.1,87.3,107.5,99.6,103.9,95.7,96.9,96.4,99.3,9-F}7.7,98.5xWW98.0,104.7,101.6,106.0,105.9,105.9,100.8,95.5,98.1,93.1,88.7,90.9,105.3,93.9,99.6[[97.8,103.9,100.4,107.7,9-G}4.9,101.3,102.3,109.6,106.5,100.1,100.9,100.6,100.3,97.6,98.988102.5,95.4,99.2,107.0,97.5,102.2,107.7,101.6,104.3 -H}D:NFL2.BAS02.3,109.6,106.5,100.1,100.9,100.6,100.3,97.6,98.988102.5,95.4,99.2,107.0,97.5,102.2,107.7,101.6,104.3 , k77QSQABTABACXSBQSTBQ1NCQ1QN1N2YNGENQ20FRNDPETFREFNTMLQFNTLWGEN4LGEN3TABBACKG1J}EN2Q1BOR1BOR2BOR3BOR4BOR5BOR6BOR7PCHSEFNCLXFRXFQ51K} 1L} !"#$%&1M}'()*+,-./0123451N}6 련㩠򮠱׮Ǡ堛(##젢Ǻ砛1O}2A AP-@@G:7 A(0A A<  F -(  $PˠԠZ.1P}-B:,6(7<," +( .$d˲Ԡn*-B:,6(7<," & * xǠӠ1Q}67B:,%,.$ Ӳ -(  $ŠĠ -( $ԠϠ'@1R}@d'B7t@dA(>:A%,-@ (,A8-@A(3A@H'A1S}@H3A K-@@+(  7-@K( 1987(-@-@91T}$(( ](-@@!1(렦?-AC U-@@!](  $m-@1U}@ 2(Be sure to use the >-@[( for letters.mAdAUE-@ ( What is 1V}your,-@A( name #$EH-@%(What is your 1-@D(name  #$H"N-@1W} ( Your name is2-@@ J(  , #$N,4Y)4yA06d-@@(0-@1X}%B:,@4(Z-@%+B:,%B:,%@,@ d(@ 6.6. ApJ9-@!5( Are you a BO1Y}Y or a Girl? - #$9T1 6-#4B)4b)4G)4g' 1 A`^#-@5@!(# A0hm-@@1Z} 2(Be sure to use the >-@[( for letters.mAdAUrL-@)(What is your1[} 5-@H( name #$L|I-@&(What is your 2-@E(name  #$IX-1\}@ /(OK,  your friend is T( and your pet is  #$X4Y)4yA0n-@@1]}(0-@%B:,@4(Z-@%+B:,%B:,%@,@!d(n Ap6-B"t&I:,O-1^}A 'AA9AAKAdAUO o-@@:( Make sure your printer is rea1_}dy,L-@@k(then press ݠ #$o󠱠m AP A#AV' 9A1`}AKAA]-@@m( Printing---))(  took a deep breath,22(%stepped forw1a}ard quickly and shone the11($flashlight into the box. And there,?/(!with a paw stuck in an old tennis;61b}-@0? 4 (-@A'(@+ 4(@+( racket was  THUMPing and<6-@I&B:,1c}@ !!(THE GHOST IN THE ATTICA' SCRAAATCHing to get out!!36-@X7 A(by&:6-B:,%B:,$6-+P1d}:'@,,,(:6-@&0 ( :4 6- 4((), said . (WhatD5%(are yo1e}u doing up here?)16-@D5 N--("  <> 1987X@ (6-@c )-@A3(1f}7 @(b""(  picked up l0+(and removed the tennis racket,0(vD/(!(What am I g1g}oing to do with you?)4(@6-@eD 1-(  wasn't bothered so much1 :6(that  was home 1q}B%DOS SYSB*)DUP SYSB SBOOTCMP1M65B\BOOTCMP2M65BbBOOTCMP3M65B rBOOTCMP4M65BBOOTCMP5M65B BOOTCMP6M65B G OBJBRLABELMKRBASBZNFL1 BASBBNFL2 BASBqISTRYBOOKBASB>TITLE SCRBCTRIG BASDTROLL0 M65alone, or that it was: 73(&stormy out, or that there were strange7 51($noises coming from upstairs, or 1r}even5 51($that the lights had flickered on and5 ++(off several times. It was the1 (6- 1s}!(THE-6-@R1 //($combination of all those things that7 (6-@ '(END36-@H1t}7 >$( really had  scared!!*6-. :6-@> V -(  +6-@R/ =-@1u}M(  Q V(a6-@ -+(  / ;6-@R? M-@](  a 1v}) 6- 6- )(1987;(6-@ 1(  ; A 󠲠g+1w}AA+AA=AA8IAV[A @gAR ?AV-&( 1x}  --- /6-B:,;6-@? 49%6.no such things as ghosts...16-@5 9 >T 6.parents had convinced 1y}&6.* <6. there were@ L6-@uP T HT'6.making the noises upstairs. -6.1 :6.'s> L6-@1z}&P T R]6.though, 6. <6. had to find out what was@ L6-@uU4he]6-%\9  96.'larg1{}e open box the noise had come from.fi6.corner. 6. 76. felt safer there. ; A6.E Q6. knew]6-@)1|}i6-@p 4she6-&zH   <6.&second, or two, then inched toward theH6-@@,6."dad's b1}}ig overstuffed chair in the86-@2< @ O6. SCRAAATCH!! 6.! 46. froze for a8 >6.O6-@ &B:1~},I 6.%6. ran over and sat in ) /6.3 A6-@9&E I g 6.26." heard a faint cry and the THUMP!,1}6 <6.D6. J6-V6-@_4heg6-%<  <6.*didn't see anything. Then from the corner?6.to 1}go up and check...+6-@E76-@; ? ,,6."flashlight to survey the room, butg6. there, but 6. 1}96. really didn't want= I6-@4U6-@_4sheg6-&   ^6.through the door. #6.' 761}. used the; A6.M6-@V4he^6-%C/6.%was sure someone, or something was up;6-@)? C N 61}.(6. saw nothing and stepped, 26.@6-@!&N6-@8&J 6.*6. didn't know what to do. . 46.1}8 B4sheJ6-&C  76.%slowly, and peeked around the corner.C6-@D06.&It was coming from the atti1}c for sure.<6-@(@ D _6. one by one. 6.! 86. opened the door< B6.N6-@W4he_6-%1}$C/6.%THUMP! SCRAAATCH!, THUMP!, SCRAAATCH!;6-@)? C .C 6.+6. climbed the stairs slowly,/ 56.C61}-@&8P6.Then 6. 86. heard the noises again,< H6-@5L P B%6.turned and ran!%6-@01}LS6.turned and ran!%6-@0?6.alone, and SCARED!!K6-@GO S VR$6.THUMP!, SCRAAATCH! again, *61}.. <6. almost@ F6.R6-@ ` 4he6-%jP6.much, it only made #6.' 86. feel more< H61}-@4L P t`6.attic stairs. When $6.( 96. heard the= C6.O6-@X4he`6-%~@,6."no1}t to dwell on these thoughts too86-@2< @ g6.until 6. :6. was at the bottom of the> D6.P6-1}@Y4heg6-%@R6. wasn't sure 6. 36. was home. 7 =6.A N6. triedR !6-@21}4she!6-&   U6.and 6. ?6. slowly walked through the houseC I6.U6-@ 41}he6-%P6.over to 6. 16.'s house, but 5 ;6.? P6-@B&B:, 4she6-&H  <1}6.*got the large flashlight from the closet, H6-@P6. an hour. 6. 66. thought of going: H6-@91}&L P @ 6.(6. went to the kitchen and, 26.@6-@&X06.&grocery and wouldn't be back for abou1}t<6-@1@ D L6. X6-@y?6. o'clock, and 6.! 76. dad was at the; ?  U6. before!! 1}6. 16. thought to 5 ;6.? K6.self.O U6. 6-4he6-%>*6. and not expected back unt1}il five66-@4: > (C)6.But Mom and Dad HAVE been wrong76-@E&C6-@2; 6.%6.'s mother was a1}t work) - 1 76-; <P 6- )(  56-@R9 P(  FP 6- )(1}  56-@R9 P(  PH 6- #(  /6-@I3 H( 1}  Z2 6- ((  .6-2 dŠĠnB -@(Your 1-@@1}B( is Finished!xJ-@%( would you like1-@ F(to make anotherJ+4Y)4y6-#6-1}' + +A@d Рq +-@ @<(Ǻ is not installed!?(h($ You'll1} need to Re-boot! Sorry...k(n(qנӠE+AY*AF:A,&E6-+F:A,%,$AV1}/6-'AV6-#A/A'-@("#67<,.>:,' CC104,169,0,133,205,168,169,224,11}33,206,177,205,145,203,200,20844249,230,204,230,206,165,206,201,228,208,239,966-?:C:,,""6$5-1}@"'%$@%+ 5 A@"1,0,24,60,60,24,0,24,0,##3,160,80,168,127,168,80,160,064,24,12,6,255,1}6,12,24,0@7,0,24,8,16,0,0,0,0J8,0,102,68,34,0,0,0,0T9,0,102,34,68,0,0,0,0^12,0,0,0,0,0,24,8,16h$$17,561},120,56,56,56,124,124,255r$$23,254,14,14,28,60,120,120,255|%%24,60,102,60,102,102,126,60,255""25,60,102,102,62,6,141},60,255##28,96,146,243,147,146,2,0,255""30,0,64,78,201,201,73,14,255''65,56,124,246,254,246,246,246,255((66,21}52,230,252,230,254,254,252,25567,0,0,0,0,0,0,0,25568,0,0,0,0,0,96,96,255$$69,56,68,186,162,186,68,56,255((1}71,126,224,238,230,254,254,126,255&&73,124,124,0,124,124,124,124,255((75,206,220,248,252,222,222,222,255((76,2241},224,224,224,254,254,254,255((78,230,246,254,254,254,238,238,255((79,124,238,238,238,254,254,124,255((82,252,206,1}254,252,222,222,222,255''83,126,224,120,12,254,254,252,255&((84,254,124,124,124,124,124,124,2550((87,238,238,238,251}4,254,238,198,255:''89,238,238,124,56,124,124,124,255D64,96,16,8,8,48,64,86,105N!!70,15,24,20,16,27,9,100,152X!!1}72,192,96,160,48,150,25,1,2b!!74,4,12,24,16,24,12,228,156l 77,34,85,42,85,170,85,10,0v##80,128,80,168,85,170,85,171}0,081,0,33,41,8,2,18,16,0 85,0,0,165,90,36,24,0,0,-1Ҡ:4B)4b6.he$6.his-6.He761}.him:$84g)4G6.she%6.her/6.She56.8$ĮԠCC104,169,0,133,205,168,169,224,1331},206,177,205,145,203,200,20844249,230,204,230,206,165,206,201,228,208,239,961,0,24,0,24,60,60,24,07,0,0,0,0,81},16,24,012,8,16,24,0,0,0,0,014,0,24,24,0,0,0,0,025,0,33,64,252,64,33,0,026,0,210,82,82,82,215,0,0 1}27,0,37,37,39,37,119,0,0((28,164,164,167,160,167,180,180,180 !!29,36,36,231,0,231,36,36,36*!!30,37,37,229,5,229,31}7,37,374""33,0,102,126,102,102,60,24,0>!!34,0,62,102,102,62,102,62,0H35,0,60,102,6,6,102,60,0R 36,0,30,54,102,1}102,54,30,0\37,0,126,6,6,62,6,126,0f38,0,6,6,6,62,6,126,0p 39,0,60,102,118,6,102,60,0z$$40,0,102,102,102,1261},102,102,042,0,60,102,96,96,96,96,0 43,0,102,54,30,30,54,102,044,0,126,6,6,6,6,6,0!!45,0,99,99,107,127,11}19,99,048,0,6,6,62,102,102,62,0""49,0,108,54,102,102,102,60,0!!50,0,102,54,62,102,102,62,051,0,60,96,96,61}0,6,60,052,0,24,24,24,24,24,126,0$$53,0,126,102,102,102,102,102,0""54,0,24,60,102,102,102,102,0!!55,0,99,111}9,127,107,99,99,0 57,0,24,24,24,60,102,102,0 58,0,126,6,12,48,96,126,0 ((65,255,198,198,199,198,198,198,199 ""1}66,255,99,99,99,99,99,99,227$ 67,12,6,3,1,0,0,0,0. &&68,221,217,207,193,215,220,96,638 %%69,219,155,243,131,235,59,61},252B 70,48,96,192,128,0,0,0,0L 71,0,0,62,102,102,62,6,124V 72,0,0,0,0,34,68,102,0` 73,0,24,0,56,24,24,60,0j1} ((74,192,192,193,195,193,192,206,221t ""75,3,3,131,195,131,3,115,235~ ((76,255,128,191,160,160,167,164,164 77,255,1}0,255,0,0,231,36,36 ""78,0,0,124,102,102,102,102,0 79,255,1,253,5,5,229,37,36 ""80,0,124,102,102,124,96,96,0 ((1}81,164,164,167,160,160,191,128,255 82,0,0,124,102,96,96,96,0 83,0,0,255,0,0,255,0,255 84,0,24,126,24,24,24,14,1}0 85,37,37,229,5,5,253,1,255 ((86,180,183,176,160,167,164,164,164 87,36,231,0,0,255,0,0,0 88,37,229,5,5,2291},37,37,37 97,0,124,102,124,96,60,0,0 98,0,62,102,102,62,6,6,0 99,0,60,6,6,6,60,0,0 ##100,0,124,102,102,124,1}96,96,0( 101,0,60,6,126,102,60,0,02 !!102,0,24,24,24,124,24,112,0< ##103,60,96,124,102,102,124,0,0F 104,0,102,1021},102,62,6,6,0P 105,0,60,24,24,28,0,24,0Z 106,60,102,96,96,96,0,96,0d 107,0,102,54,30,62,102,6,0n 108,0,60,24,1}24,24,24,28,0x !!109,0,99,107,127,127,51,0,0 ""110,0,102,102,102,102,62,0,0 !!111,0,60,102,102,102,60,0,0 112,6,1}6,62,102,102,62,0,0 ##113,96,96,124,102,102,124,0,0 114,0,6,6,6,102,60,0,0 115,0,62,96,60,6,60,0,0 !!116,0,111}2,24,24,24,126,24,0 ##117,0,124,102,102,102,102,0,0 !!118,0,24,60,102,102,102,0,0 119,0,54,62,127,107,99,0,0 1}120,0,102,60,24,60,102,0,0 ##121,30,48,124,102,102,102,0,0 ##122,0,126,12,24,48,126,0,0,-1 Ӡ 6-1}6-@'6-@36-@?6-@K6-@W6-@c6-@o6-@P{6-A+AY1}" 88;,;,;,;,;,;,;@,;,;,, F$;@,;,;,;,;,66.  F6. 1} 6 99;,;,;,;,;@,;,;,;@(,@ K6-@`6-@'6-A36-A0?6-APK1}6-ApJ + 6. 6. !6.<=>+6. T %6.9:;6.%6.^ = #A6- A#6-1})6-3#A= Ah  6- +AV$D:STRYBOOK.BAS%6.^ = #A6- A#6-0M5}5}5}5}<<<<<<<<5}<<<<<<<<<5}5}5}5}5}5}?5}5}5}5}5}PP5}PP@P5}@P@P5}P@AT@U5}PPU@UUUTUUUUUUU5}UUUUUUUUUUUUUUUUUUUUU5}UUUUUUUUUUUUUU5}UUUUUUUTUUUEUU5}UUPUUUU@UU@5}UU@UUUUUUUUUU5}UUT@UUUUUUUUU5}UUUUUUUUUUUUUUUUUU5}UUUUUUUUUUUUUUUUU5} 5}* **5}*((5}(((5}(*(*(*5}(*(*( 5}( ( ( ( 5}*5} D@E@5}A @@ QPA5}@UU@TTP@5}PTP@T5}P@5}?<5}????????<5}<?<??5}5}05}00 05} 0 05} 0 35}5}???????5}???5}???????5}5}5}5}5}5}5}6}s64;U!g!XABCXXXXXXR :}  A(}**(" ******************:}*****************(" *** The Trigonometry Machine *****(" *** (C) 1985 by Donald B. Lee ***-*(" *****************:}****************-((!( 1) Make a Trig Table.!(-# ( 2) Pythagorean Theorem.#(2 ( 3)  3-sides given. (7*'(:} 4)  2-sides 1-included angle*(<-*(" 5)  2-sides 1-unincluded angle.-(F$!( 6)  1-side & 2-angles.$(K( :} 7) Quit.((P( @($( Which one(Q"@ AR"@ A S"@ A:}0T"@ A@U"@ APV"@ A`W"@Z ( @*:}******************** TRIG TABLE *********************;@, (}6-##(This module : }will generate a$$(trigonometric table of Sine,""(Cosine, and Tangent values%%(for angles from 0-360 degrees$: }*'(in increments that you specify.*(8 AB&"(Angle increment please - &L!A` AV A: }(}`# ( Table of Values#(j**(" ANGLE SIN COS TANt/,($-------- ------ ------ -: }-----/(~-A`) 6-G:,6- Ap"6-)SINE+ 6-E:,6- Ap"6-+COSINE1: }6-G:,'E:,6-! Ap'6-1TANGENT+!@ A+ASYMPTOTE CHECK.( $(+.:} A (#(+# A (!(+! A(  A&:}"(Make another table? (Y/N)& 4Y B A% B A8 A( $:}.(+8 A (!(+! A( %6-@0% A (:} A!!***************************!!*** PYTHAGOREAN THEOREM ***!!***************************;@:}, (}))(!This routine uses the Pythagorean&&(Theorem to compute the missing))(!sides of any right triang:}le given(in the following form:  (  (  (A   C C^2=A^2+B^2*(  4(  >:}( (H ( B(M'6-6-'6-R/ A!@!(What is side A%/ A!P\6-:}6-@f/ A!`!(What is side B%/ A!pp6-6-@z/ A!!(What is side C:}%/ A!% B6-%6-@ B%"@*%"% A"0%"@*%":}% A"P%"@*%"% A"p4(*(There is nothing here to solve?4 A"2 A$(6-M:#:}@&#@,2 Ap$(A=B=C=$ A"2 A$(6-M:#@&#@,2 Ap$(A=:}B=C=$ A"2 A$(6-M:#@%#@,2 Ap$(A=B=C=$ A"1(-(!Do y:}ou want to do another? (Y/N) 1 4Y A  %` T B(2(*** ERROR - Negative Side ***F-@:}AJ T A  ********************* *** Solve 3-sides *** *********************  A0;@:}, B  '6-6-'6-  AINPUT PROMPT % A00!(What is side A%:} % A0@!(What is side B% % A0`!(What is side C% B  6-6-6-  !6-:}6-6-  !6-6-6-  !6-6-6- A5 *** COSINE LAW *** 556-+#@%#@:}&#@,'+@$$, -!6-D:M:@&#@,',-ARCCOSINE  6-A% *** SINE LAW ***: } 6-'G:,RATIO VALUE " 6-'"SINE OF SECOND ANGLE +!6-D:'M:@&#@,,+ARCSINE %6-A&&:!}%THE THIRD ANGLE  "6-  "6-  "6-  "6-  "6-  "6-  "6- :"} "6-*  "6-4  (} (((>  A@(H 3( Side A=Angle a=%6-/ Ap3(R 3( Sid:#}e B=Angle b=%6-/ Ap3(\ 3( Side C=Angle c=%6-/ Ap3(a ( A4@f )%(Would you li:$}ke to do another)p  B4Y A0z % 0 (} (-(That Triangle is Impossible!0( J(( Side1^2 + S:%}ide2^2 > Largest Side<-@A@ J A0*************************** Solve 2-Sides & ****** :&}1-Included Angle *************************** A@;@, BK6-6-'6-:'}36-?6-K6- APROMPT INPUT% A@@!(What is Side A%% A@P!(:(}What is Side B%9 A@P+(What is included angle c/9 A@`M B#!A)C(*** ERROR:)} c<=0 OR c>180 ***M A@P##6-M:$%$&@$$$E:,,6-'G:,RATIO VALUE8 6-')6-D:'M:@&#@:*},,8SECOND ANGLE 6-A%6-A&& (} A@"3( Side A=Angle a=%6-:+}/ Ap3(,3( Side B=Angle b=%6-/ Ap3(64( Side C=6-" Ap4( Angle c=@(:,} AAJ)%(Would you like to do another)T 4Y A@^ B% ************************** :-}*** Solve 2-Sides & *** *** 1-Unincluded Angle *** ************************** AP;@, :.}BK6-6-'6-36-?6-K6- APROMPT INPUT% AP@!:/}(What is Side A%% APP!(What is Side C%9 APP+(What is included angle a/9 AP`M B:0}#!A)C(*** ERROR a<=0 OR a>180 ***M APP6-'G:,RATIO VALUE9 6-'6-@# :1}06-6@96-O:,G!@(=(&*** This Triangle is not possible. ***G AQ`4%6-$+D:'M:@&:2}#@,,,4SECOND ANGLE 6-A%!6-A&&!THIRD ANGLE6-$G:,SIDE B (}6-:3} A@ 3( Side A=Angle a=%6-/ Ap3(G( Side B=6-" Ap3( Angle b=96-:4}C ApG(3( Side C=Angle c=%6-/ Ap3("@ AQ` 46-A&+A&,&4OTH:5}ER POSSIBLE ANGLE!%6-$G:+A&,,%NEW SIDE B"6-A&#4(( --- OR ---(*6-@4 AQ0(:6}( AQ2)%(Would you like to do another)< 4Y APF B%p$$***************************:7}***q$$*** Solve 1-Side & 1-Angle ***r$$******************************t A`;@,u BzK6-:8}6-'6-36-?6-K6- APROMPT INPUT% A`@!(What is Side:9} B%0 A@E"(What is Angle b&0 A`PM B#!A)C(*** ERROR b<=0 OR b>180 ***M ::}A`@9 A``+(What is included angle c/9 A`pM B#!A)C(*** ERROR c<=0 OR c>1:;}80 ***M A`P!6-A&&!THIRD ANGLE6-'G:,RATIO VALUE6-$G:,SECOND SIDE6-$G:,THI:<}RD SIDE (} A@F( Side A=6-" Ap2(Angle a=86-B ApF(3( Side B=Angle b:=}=%6-/ Ap3(4( Side C=6-" Ap4( Angle c=( Aa)%(Would you like to do anothe:>}r)$ 4Y A`. B%X************************Y*** ROUNDING ROUTINE ***Z****************:?}********[b6-O:P:$B,,l6-O:P:$A,,v=&+$@,!@36-+%@,'A= Ap5x:@}6-'A{"6-$   6-$+6@, 6- $@**********************A*** Triang:A}le Input ***B**********************J (}T''(Please use the following format^(%(when answering the questions.:B}((h(  r( c  b|(B   A A  C( a b c a( :C} ( C B(($ D:TRIG.BAS   A A  C( a b c a( 8;ZEI2+TEMP10;;POINTER TO BYTE IN PLAYFIELDd)TEMPS;;VARIABLE FOR JOYSTICK VALUE(TEMPT;;VARIABLE FOR TRIG>E}GER VALUE#TEMPCH;;POINTER TO CHARACTERTEMP12;;TEMP STORAGE, TEMP11^ TEMPQAREM1;;POINTER TO CURRE>F}NT POSITION(USE TO REMOVE CHARACTER)G}RIZONTAL POSITIONT1Y;;TEMP STORAGE JSTCKV& X"PM ;;START OF PM GRAPHICS MIS PL0R >H}PL1R  PL2R RPL3R 7TEMPCHAR ;;TEMP STORAGE OF CURRENT MAN DRAWINGSTEMP1 ;;TEMP STORAGE>I}DIRECT DA1 ;;DELAY VARIABLESLEND1 ;;VERT END OF MAN~TOP1 ;;VERT TOP OF MAN"P0 ;;HORIZ POSIT>J}ION OF MAN P1 8LRDRAW ;;POINTER TO LEFT/RIGHT DRAWINGS OF TROLLF)MANNUM ;;OFFSET TO TROLL DRAWINGSx TIM>K}ER1 ;;TIMER VARIABLESTEMP13 ;;TEMP STORAGETEMPSQ 'SQFLAG ;;FLAG FOR MISSILE FIRED@3DIRFLAG ;>L};VARIABLE FOR DIRECTION OF MISSILErT1 ;;TEMP STORAGE T2  T3  T5  T6  T7  T8 >M} T15  T16  FSQ1 : FSQ2 l0WARFL ;;FLAG FOR WAR BETWEEN TROL/WIZARD)TEMP140 ;;VARIABLE >N}TO ADD 40 OR 14#MISP1 ;;POSITION OF MISSILEf MIS2 0CHECK ;;VARIABLE OF VERT MOVEMENT OF MANGUNDELAY >O}2TROLWIZ ;;FLAG USE TO DETERMINE WHOSE TURNSDELAY1 ;;SOUND DELAY` 'NOTES ;;POINTER TO NOTE OF SONGa X;>P}b X;c $X;ROUTINE DISPINT:USED BY DISPLAYd X;LIST INTERRUPT TO ALLOW THEe X;TITLE SCREEN TO BE MIXEDf X;GRAPHICS MODES.g >Q}X; "DISPINT5;;SAVE THE ACCUMULATOR Q>;;1 TO CLEAR GTIA MODE P ;;WRITE TO WSYNC( P;;CLEAR GPRIORZ Q>t;;LOAD CO>R}LOR BLUE P Q>;;LOAD COLOR BLUE P" Q>;;LOAD COLOR BLUET P 7;;RETORE THE ACCUM. 9;;EXIT ROUTINE X; >S}X; &X;SUBROUTINE ZEROPLRS:CLEARS PLAYER X;MISSILE AREA X; #ZEROPLRS$>;;USE ZERO TO CLEAR A;;SET BYTE POINTERN Z>T}1PPL0R9;;CLEAR MEMORY PPL1R9 PPL2R9 PPL3R9 PMIS9H 2;;NEXT BYTEz HZ1;;256 BYTES ZEROED? :;;IF = THEN EXIT >U}X; !X;SUBROUTINE LOADCHAR:LOADS 22 &X;CONSECUTIVE NUMBERS THAT POINT TO X;CHAR DRAWINGS OF TROLLS OR 9X;WIZARDS AND SAVE>V}S THE POINTERS IN MEMORY STARTING AT 'X;TEMPCHAR.THIS SUBROUTINE IS CALLED #X;PRIOR TO EACH PLAYERS TURN AND X;IS USED TO>W} GENERALIZE X;OTHER SUBROUTINES. X; !LOADCHAR%>;;POINTER TO BYTELD1A;;X IS POINTER TO CHARBPTEMPCHAR8;;SAVE PO>X}INTERt0;;NEXT POINTER1;;NEXT MEMORY BYTEILD1;;ALL 22 NUMBERS SAVED? :;;IF <0 THEN EXIT X; X; !X;SUBROUTINE IN>Y}ITIAL:THIS SUBRX;INITIALIZES ALL VARIABLESX;X;<"INITIALQ>;;# OF MEN ON BOARDn&PTEMP1;;COUNTER FOR # OF TROL>Z}LS'PTEMP1;;COUNTER FOR # OF WIZARDS6.INIT1Q>DLIST;;LOW BYTE OF DISPLAY LISThP0*Q>DLIST;;HIGH BYTE OF D>[}ISPLAY LISTP1*PMGRAPHQ>PM;;ADDRESS OF PM MEMORY0PbQ>>;;ENABLE PM GRAPHP/Q>P\!COLORPLQ>>\};;SET PRIORITY ANDPo;;ENABLE 5TH PLAYERQ>;;COLOR ORANGE-GREENP$Q>;;COLOR GOLDVPQ>;;COLOR GREE>]}NPQ>;;COLOR GRAYPPPPQ>N;;COLOR PINKPQ>;;COLOR BLUEJP|!PLRSIZEQ>;;SET PLAY>^}ER WIDTHPP P DQ>;;SET PLAYER WIDTHvP ШP jVARPTEMP1*PMANNUM;;POINTER TO NEXT TROLL DRAWI>_}NG3PLRDRAW;;POINTER TO LEFT OR RIGHT TROLL DRAWINGPDA1;;DELAY VARIABLE2 PDA1dP;;HIT CLEARQ>2PDA1>`};;DELAY VARIABLEQ> PTEMP1Q>*PT1Y;;HIGH BYTE FOR PAGE 0 VARIABLESOUNDQ>;;ENABLE SOUND,P^Q>a}>;;"TURN OFF" SOUNDPPP&PXPҊQ>;;SET VOLUMN/DISTORTIONPP PRP҄:;;EXIT >b}INITIALIZATIONX;X;'X;SUBROUTINE PLAYERS:THIS SUBROUTINEX;BUILDS THE PLAYFIELD BOARD#X;WHICH IS IN CHECKER BOARD >c}FORMX;&PLAYERSQ>P;;HORIZ POS OF PLAYER 0PQ>p;;HORIZ POS OF PLAYER 1LP~Q>;;HORIZ POS OF PLAYER 2P>d}#%>0;;VERT OFFSET OF ALL PLAYERS-PL1$>;;(SIZE-1) OF PLAYING BOARD SQUAREF$PL2Q>;;VALUE FOR CHECKER BOARDx PP>e}L0R8 PPL1R8 PPL2R8.Q>3;;VALUE FOR CHECKER BOARD ONE ROW LOWER@ PPL0R8r PPL1R8 PPL2R83;;NEXT PLAYE>f}R BYTE "0;;NEXT LINE OF SQUARE OF BOARD: #IPL2;;ALL 8 LINE OF SQUARE DONEl C;;LOAD PLAYER VERT OFFSET , O>;;ADD 8 FO>g}R NEXT ROW!?4! )>;;IF >202 THEN BOARD DONEf!!DPL1;;ELSE CREATE ANOTHER ROW$:;;EXIT PLAYERS$X;$ X;ADD401:THIS SUBROU>h}TINE ADDS$X;40 OR 1 TO POINTER TEMP10$X;% ADD401,N% QTEMP10% OTEMP140% PTEMP10%QTEMP10&O>H&PTEMP10z>i}&:{&X;|&%X;SUB401:THIS SUBROUTINE SUBTRACTS}&X;40 OR 1 TO POINTER TEMP10~&X;& SUB401;& QTEMP10' STEMP140B' PTEMP10>j}t'QTEMP10'S>'PTEMP10 (: (X; (X; ("X;SUBROUTINE MOVEPNTR:MOVES THE("X;CHAR POINTER LEFT,RIGHT,UP OR( X;DOW>k}N.(X;<(MOVEPNTR%>;;CLEAR Yn(!Q@TEMPS7;;READ JOYSTICK VALUEo( X;AND TEST VALUE TO DETERMINEp(#X;DIRECTION TO MOVE CHAR >l}POINTER(R>(FPR7;;BRANCH TO MOVE RIGHT)R> 6)FPR11;;BRANCH TO MOVE LEFTh)R> )FPR13;;BRANCH TO MOVE DOWN)R>>m})FPR14;;BRANCH TO MOVE UP0* :;;EXITb*&PR13QTEMP10;;TEST CHAR POINTER*!R>LEV14;;POS TO SEE IF IT*DPR13A;;IS O>n}N LOWEST*QTEMP10;;PLAYFIELD LINE*+R>LEV14\+ DPR13A+:+"PR13AQ>(;;# OF BBYTES PER ROW+$!MOVE1;;JMP TO MOVE POIN>o}TER DOWN$, PR7QTEMP10;;TEST POINTERV,"R>BOTTOM;;POS TO SEE IF IT,DPR7A;;IS IN LOWER RIGHT,QTEMP10;;LIMIT OF P>p}LAYFIELD,R>BOTTOM- DPR7AP- :;;EXIT-(PR7AQ>;;USE 1 TO MOVE RIGHT 1 BYTE-/MOVE1 MOVE3;;RESTORE CHAR WHERE POINTE>q}R IS- ADD401;;MOVE POINTER RIGHT. MOVE4;;DISP NEW POINTERJ. :;;EXIT|.(PR14QTEMP10;;TEST POINTER POS TO.!R>LEV14A>r};;SEE IF IT IS ON.DNOMV;;UPPER PLAYFIELD LINE/ FPR14BD/!PR14A;;IF NOT,MOVE UPv/PR14BQTEMP10;;SAME AS PR14/R>>s}LEV14A/ DNOMV 0 !PR14A>0NOMV:;;NO MOVE(EXIT)p0!PR14AQ>(;;# OF BYTES PER ROW0"!MOVE2;;JMP TO MOVE POINTER UP0(PR>t}11QTEMP10;;TEST POS OF POINTER1R>TOP;;TO SEE IF IT IS81DNOMV;;IN UPPER LEFT LIMITj1FPR11B;;OF PLAYFIELD1"!PR>u}11A;;ELSE MOVE POINTER LEFT1PR11BQTEMP10;;SAME AS PR112 R>TOP22 DNOMVd2(PR11AQ>;;USE 1 TO MOVE LEFT 1 BYTE2/MO>v}VE2 MOVE3;;RESTORE CHAR WHERE POINTER IS2$ SUB401;;MOVE POINTER LEFT OR UP2 MOVE4;;DISPLAY NEW POINTER,3 :;;EXIT^3,MOV>w}E3PTEMP140;;SAVE 1 OR 40 IN VARIABLE3!QTEMP1;;LOAD OLD CHAR HALF3P@TEMP107;;SAVE IN OLD POS33;;NEXT BYTE&4&QTEMP1>x};;LOAD OTHER HALF OF CHARX4P@TEMP107;;SAVE IN OLD POS4 :;;EXIT4MOVE4%>;;CLEAR Y4Q@TEMP107;;LOAD CHAR 5PTEMP1>y};;TEMP SAVER5Q>F;;DISPLAY LEFT HALF5P@TEMP107;;OF CHAR POINTER53;;NEXT BYTE5Q@TEMP107;;LOAD CHAR6PTEMP1;;TE>z}MP SAVEL6Q>G;;DISPLAY RIGHT HALF~6P@TEMP107;;OF CHAR POINTER6 :;;EXIT6X;6X;6X;DELAY:SUBROUTINE FOR DELAY6X;6D>{}ELAYQ>;;DELAY VALUE7PDA1F7DL1QDA1;;DELAY VARIABLEx7 PDA17DL2"DA17HDL28"DA1@8HDL1r8:s8X;t8X;u>|}8,X;JOYSTICK:LOADS VALUE OF JOYSTICK 0 OR 1v8X;FROM PAGE 0 VARIABLE TEMPSw8$X;AND MOVES THE CHARACTER(A TROLLx8$X;OR A WIZAR>}}D)FROM PLAYFIELD BYTEy8 X;(POINTED TO BY TEMP10) TO Az8X;NEW POSITION{8X;8,JOYSTICKQTEMP10;;SAVE STARTING POSITION8PR>~}EM1;;OF MAN THAT HAS9QTEMP10;;BEEN SELECTD:9PREM1;;TO BE MOVEDl9!Q@TEMPS7;;LOAD JOYSTICK VALUE9R>;;TEST VALUE>}:.FSTICK15;;BRANCH TO DISP FRONT VIEW OF MAN4:%PTEMP1;;SET FLAG FOR MAN MOVEDf:R>;;TEST JOYSTICK:%FSTICK7;;BRANCH >}TO MOVE MAN RIGHT:R> ;;TEST JOYSTICK:&HNEXTJY;;<> TEST WITH OTHER VALUES.;!STICK11;;JMP TO MOVE LEFT;NEXTJYR>(}JOYS13;;BRANCH TO TEST VALUEZ< !STICK14;;JMP TO MOVE MAN UP<JOYS13R> <#HENDJY;;IF NOT ABOVE VALUE EXIT<"!STICK13;;J>}MP TO MOVE MAN DOWN"=ENDJY:;;EXIT JOYSTICKT=5STICK15$>;;POINTER TO FRONT VIEW OF MAN DRAWING= UPDN0%>=3UPDNQTEMPC>}HAR9;;LOAD RIGHT HALF OF MAN DRAWING='P@TEMP107;;SAVE IN PLAYFIELD MEMORY> 1;;CLEAR YN>-0;;SET POINTER TO LEFT HALF OF MAN>} DRAWING>QTEMPCHAR9;;LOAD DRAWING>'P@TEMP107;;SAVE IN PLAYFIELD MEMORY> :;;EXIT?3STICK7Q@TEMP107;;LOAD BYTE IN PLAYF>}IELD MEMORYH?;RTEMPCHAR;;TEST TO SEE IF IT IS A MAN FRONT VIEW OF MANz? HC6;;IF NOT,CONTINUE TO TEST?#$>;;SET POINTER TO>} MAN DRAWING?"!UPDN0;;JMP TO CHANGE/MOVE MAN@/C6RTEMPCHAR;;CMP WITH CHAR MOVING RIGHTB@HC8;;IF <>,CONTINUE TESTINGt>}@.$> ;;SET POINTER TO CHANGE MAN WITHIN BYTE@!!UPDN0;;JMP TO CHANGE DRAWING@4C8RTEMPCHAR;CMP WITH CHAR MOVEING RIGHT>} INTO AHCC;;THE NEXT BYTE TO RIGHT;;USE 2 TO SET POINTER(TEMP10)nA PTEMP140;;TWO BYTES TO RIGHTA ADD401A%>;;>}CLEAR YB"Q@TEMP107;;LOAD PLAYFIELD BYTE6BFC122;;IF = MOVE MAN RIGHThB3QTEMPCHAR;;ELSE DETERMINE IF TROLLS OR WIZ TURNB>}R>;;IF 1 THEN TROLLS TURNBHC1C;;ELSE WIZS TURNB PREWAR10C SUBWAR2;;JMP SUB TO FIGHTbC :;;EXITC C1CR>;;IF 17 THE>}N WIZ TURNCHCCAC PREWAR1*D SUBWAR1\D :;;EXITD&CCA SUB401;;ELSE RESTORE (TEMP10)DCC:D"C122 SUB401;;RESTORE (T>}EMP10)$E%>;;CLEAR YVEQ>;;LOAD 0 TO CLEAREP@TEMP107;;PLAYFIELD BYTEE%>;;SET Y TO NEW POSE$>;;LOAD CHAR OFFSET>}F% UPDN;;JMPSUB TO DISPLAY NEW VIEWPFQ>F PTEMP140F+!ADD401;;ADD 1 TO TEMP10 TO SET NEW POSF*STICK11Q@TEMP107;;LOA>}D PLAYFIELD BYTEG)RTEMPCHAR;;CMP WITH FRONT VIEW OF MANJG#HC6A;;IF<> CMP WITH OTHER CHARS|G-$>;;LOAD CHAR OFFSET FOR MAN>} MOVING LEFTG#!UPDN0;;DISPLAY MAN MOVING LEFTGCC6ARTEMPCHAR;;CMP WITH CHAR FOR MAN MOVING LEFT WITHIN BYTEH)HC8A;;I>}F <> THEN CMP WITH OTHER CHARSDH6$>;;ELSE LOAD CHAR OFFSET TO MOVE MAN WITHIN BYTEvH!!UPDN0;;JMP TO CHANGE DRAWINGH9C8AR>}TEMPCHAR;;CMP WITH MAN MOVING LEFT TO NEW POSHHCCC;;IF <> THEN EXIT IQ>;;VALUE TO BE SUBTRACTED>IPTEMP140;;TEMPOR>}ARY SAVEpI, SUB401;;MOVE POINTER TEMP10 LEFT 1 BYTEI"Q@TEMP107;;LOAD PLAYFIELD BYTEIFC82;;IF = THEN MOVE MANJ5QTEMPCH>}AR;;ELSE DETERMINE IF TROLL OR WIZARD TURN8J$R>;;CHAR $17 IS 1ST WIZARD CHARjJ#HC2C;;IF <> TEST FOR TROLL TURNJ$ PREWAR2>};;JMP TO SAVE TEMP10 POSJ+ SUBWAR1;;JMPSUB FOR ATTACKING SEQUENCEK:2K%C2CR>;;CHAR 1 IS 1ST TROLL CHARdK!HC4C;;IF <> T>}HEN RESET TEMP10K' PREWAR2;;JMPSUB TO SAVE TEMP10 POSK+ SUBWAR2;;JMPSUB FOR ATTACKING SEQUENCEK:,LC4C ADD401;;RESET >}TEMP10^LCCC:;;EXITLC82$>;;LOAD CHAR OFFSETL$ UPDN0;;DISPLAY NEW VIEW OF MANLC;;LOAD ACCUM WITH 0&M)%>;;SET Y TO>} POINT TO OLD POS OF MANXM P@TEMP107;;CLEAR OLD DRAWINGM:M/STICK14Q>(;;VALUE TO CALCULATE 1 ROW ABOVEMPTEMP140;;TEMP>}ORARY SAVE N SUB401;;CALCULATE NEW POSRN(Q@TEMP107;;PLAYFIELD BYTE IN NEW POSNFUP0;;IF= THEN MOVE MAN UPN1E01QTEMPCH>}AR;;ELSE DTERMINE WHOSE TURN IT ISN'R>;;CHAR $17 IS 1ST WIZARD DRAWINGO HJE14LO' PREWAR2;;JMPSUB TO SAVE TEMP10 POS~O >}SUBWAR1;;JMPSUB TO FIGHTO:O.JY14Q>(;;VALUE TO RESET TEMP10 TO OLD POSPPTEMP140;;TEMP SAVEFP ADD401;;RESET TEMP10xP>}:P)JE14R>;;CHAR 1 IS 1ST TROLL DRAWINGPHJY14;;IF <> THEN EXITQ" PREWAR2;;ELSE SAVE TEMP10 POS@Q% SUBWAR2;;JMP TO C>}ONDUCT FIGHTINGrQ:QUP03;;SET ROW OFFSETQ&Q@TEMP107;;LOAD PLAYFIELD-ROW BYTER,HE01;;IF <> TEST TO SEE WHAT CHAR IT IS>}:R ADD401;;ELSE RESET TEMP10lR1QCHECK;;LOAD VARIABLE FOR # OF VERT MOVEMENTSR+R>;;IF > 3 THEN MAN CANNOT BE MOVED UPR>}DUOK;;ELSE OK TO MOVE UPS:4S,UOK#CHECK;;ADD 1 TO # OF VERT MOVEMENTSfS%>;;CLEAR YS* ST1213;;DISPLAY VIEW OF MAN MOV>}ING UPS& SUB401;;SET TEMP10 TO 1 ROW ABOVES$>;;LOAD CHAR OFFSET.T ST1D1F;;CONTINUE TO DISPLAY`T ST2320;;MAN MOVING >}UPT$> ;;CHAR OFFSETT" ST1D1F;;DISPLAY MAN MOVING UPTQ>;;USE 0 TO CLEAR(UP@TEMP107;;CHAR IN OLD POSZU1U P@TEMP10>}7U" SUB401;;SET TEMP10 TO NEW POSU9ST1213QTEMPCHAR;;DISPLAY FINAL VIEW OF MAN MOVING"VP@TEMP107;;PLAYFIELD BYTETV3>};;NEXT ROW POSVQTEMPCHAR V P@TEMP107V DELAYW:NW/STICK13Q>(;;VALUE TO CALCULATE 1 ROW LOWERWPTEMP140;;TEMP SA>}VEW" ADD401;;SET TEMP10 TO NEW POSW"Q@TEMP107;;LOAD PLAYFIELD BYTEXFDOWN0;;IF = MOVE MAN DOWNHXE02QTEMPCHARzXR>>}X HJE13X PREWAR1Y SUBWAR1BY:tY JY13Q>(Y PTEMP140Y SUB401 Z:nZ HJY13Z PREWAR1Z SUBWAR2[:6>}[ DOWN03;;SET Y TO NEW ROW POSh["Q@TEMP107;;LOAD PLAYFIELD BYTE[#FDOWN1;;IF = THEN MOVE MAN DOWN[!E02[*DOWN1 SUB401>};;RESET TEMP10 TO OLD POS0\,QCHECK;;VARIABLE FOR # OF VERT MOVEMENTSb\R>;;IF < 3 THEN\DDOK;;DOWN MOVE OK\:;;ELSE RTS>}\,DOK#CHECK;;ADD 1 TO # OF VERT MOVEMENTS*]%>;;CLEAR Y\]+ ST1213;;JMP TO DISPLAY MAN MOVING DOWN]$> ;;CHAR OFFSET]>} ST1D1F;;CONTINUE DISPLAYING] ST2320;;MAN MOVING DOWN$^$>;;CHAR OFFSETV^* ST1D1F;;CONTINUE DISPLAYING DOWN MOVE^* >}SUB401;;SET POINTER TO OLD POS OF MAN^#Q>;;USE 0 TO CLEAR OLD DRAWING^ P@TEMP107_1P_ P@TEMP107_* ADD401;;SET POINTE>}R TO NEW POS OF MAN_1!ST1213;;DISPLAY FINAL VIEW OF MAN IN NEW POS_ST2320$>;;CHAR OFFSET`% UPDN0;;DISPLAY LOWER HALF>} OF MANJ`" SUB401;;CALCULATE 1 ROW ABOVE|`#QTEMPCHAR;;UPPER HALF OF MAN` P@TEMP107;;SAVE IN PLAYFIELD`3;;NEXT PLAYFI>}ELD BYTEa-QTEMPCHAR;;OTHER HALF OF UPPER DRAWINGDa%P@TEMP107;;SAVE IN PLAYFIELD BYTEva DELAYa:a,ST1D1F UPDN0;;DI>}SPLAY UPPER HALF OF MAN b" ADD401;;CALCULATE 1 ROW BELOW>b$QTEMPCHAR9;;LOWER HALF OF MANpb P@TEMP107;;SAVE IN PLAYFIELD>}b3;;NEXT PLAYFIELD BYTEb.QTEMPCHAR9;;OTHER HALF OF LOWER DRAWINGc P@TEMP107;;SAVE IN PLAYFIELD8c DELAYjc:kcX;lc>}X;mc X;JOYST0:LOADS THE ADDRESS OFnc X;OF STICK0 AND TRIGGER0 INTOocX;PAGE 0 VARIABLESpcX;cJOYST0Q>;;JOYSTICK 0c PTE>}MPSdQ>x2d PTEMPSddQ>;;TRIGGER 0d PTEMPTdQ>d PTEMPT,e:^eJOYST1Q>;;JOYSTICK 1e PTEMPSeQ>ye P>}TEMPS&fQ>;;TRIGGER 1Xf PTEMPTfQ>f PTEMPTf: g&TEN12Q>LEV12;;STARTING POS OFRg-PTEMP10;;CHAR POINTER >}WHEN TROLLS TURNgQ>LEV12g PTEMP10g:h(TEN122Q>LEV122;;STARTING POS OFLh-PTEMP10;;CHAR POINTER WHEN WIZARD>} TURN~hQ>LEV122h PTEMP10h:iPLACE%>;;ROW OFFSETFi"Q>F;;LEFT HALF OF CHAR POINTERxi P@TEMP107;;PLAYFIELD ROW PO>}Si3;;NEXT ROW POSiQ>G;;RIGHT HALF OF CHAR POSj%P@TEMP107;;PLAYFIELD ROW POSITION@j:AjX;BjX;Cj!X;TROLLM:SUBROUTINE T>}HAT CALLSDj$X;ROUTINES TO EITHER MOVE POINTEREj(X;OR THE TROLL/WIZARD.THIS SUBROUTINEFj X;ALSO MONITORS # OF MEN THATGj#X;HAV>}E BEEN MOVED.IF 4 MEN MOVEDHjX;THEN TURN OVERIjX;jTROLLMQ>;;CLEAR VAR FORkPTEMP1;;# OF MEN MOVED.mTM3Q>;;0 T>}O CLEAR`m$PWARFL;;FLAG FOR TROLL/WIZ FIGHTm+PTEMP1;;CLEAR VAR THAT RESTORES CHARm*PTEMP1;;AFTER POINTER MOVED OVER>} ITmTM13Q>;;0 TO CLEARm PTEMP1m"#TEMP1;;ADD 1 TO # OF TURNSm QTEMP1mR>;;IF <5,TURN NOT OVERmETM15;>};IF >=EXITm!TM1;;ELSE MOVE POINTERmTM15%>;;CLEAR Ym' MOVE3;;REMOVE POINTER/RESTORE CHARm :;;EXITmTM1 MOVEPNTR;>};MOVE POINTER(n DELAYn%>;;CLEAR YnQ@TEMPT7;;LOAD TRIGGERn*HTM1;;IF NOT PRESSED THEN MOVE POINTER"o) MOVE3;;RESTOR>}E CHAR WHERE POINTER ISTo%QTEMP1;;TEST TO SEE IF CHAR ISoRTEMPCHAR;;A TROLL OR WIZo FTM0;;IF IT IS THEN MOVE MANo( >}PLACEMAN;;ELSE TEST TO DISP NEW MANp MOVE4;;DISP POINTERNp!TM1;;MOVE POINTERpTM0 DELAYp DELAYp DELAYp DELA>}YHqQ>zq PCHECKqTM2%>;;CLEAR Yq JOYSTICK;;MOVE MANr0QTEMPCHAR;;LOAD POINTER TO TROLL/WIZ DRAWINGBr!R>;;1=TROLL>} TURN/22=WIZ TURNtr FTESTTROLrQTEMP1;;IF= THEN NO WIZrHTM14;;IS ON PLAYFIELD sQWIZRDS;;IF NOT= THEN WIZ'S}4;;CASTLE BLOCKEDns:;;END WIZ TURNs*TESTTROLQTEMP1;;IF = THEN NO TROLLsHTM14;;IS ON PLAYFIELDt#QTROL0;;IF NOT=>} THEN TROLL'S6tFTM14;;CASTLE BLOCKEDht:;;END TROLLS TURNtTM14 DELAYtQWARFL;;TEST TO SEE IF TROL0uHTM3;;HAS FOUGHT>} WIZARDbu%>;;CLEAR YuQ@TEMPT7;;LOAD TRIGGERu&HTM2;;IF NOT PRESS,JMP TO MOVE MAN*v%QTEMPCHAR;;LOAD FRONT VIEW OF MAN\>}vPTEMP1;;TEMP SAVE$w0QTEMPCHAR;;LOAD OTHER HALF OF MAN DRAWINGVwPTEMP1;;TEMP SAVEw PLACE;;DISPLAY POINTERw >}QTEMP1x FTM16x DELAY x DELAY!x DELAY"x DELAY#x.!TM13;;JMP TO MOVE ANOTHER MAN OR END TURNPxTM16 DELAYx >}DELAYx DELAYx DELAYy!TM1;;JMP TO MOVE POINTER>{>D:TROLL1.M65p{>D:TROLL2.M65{>D:TROLL3.M65{>D:TROLL4.M6>}5|>D:TROLL5.M658|>D:TROLL6.M65j|>D:TROLL7.M65|>D:TROLL8.M65}>D:TROLL9.M65}X;}+X;VBRTIN:VERTICLE BLANK RO>}UTINE CONTROLS}#X;EITHER TROLL COMBATING WIZARD}X;OR CASTLE BEING STORMED}X;2}VBRTINQ>d}PM} QDLIST}R>CAS>}TL;;IF CASTL IS}HVB1;;IN DISPLAY LIST,~#QDLIST;;THEN TROLL CASTLE IS^~R>CASTL;;BEING ATTACKED~2HVB1;;ELSE T>}EST DISPLAY LIST FOR OTHER SCREENS~- FIREVAR2;;JMPSUB TO INITIALIZE VARIABLES~, FIREBOMB;;JMPSUB TO FIRE ATTACKERS BOMB~>}, MOVEBOMB;;JMPSUB TO MOVE ATTACKERS BOMB&QGUNDELAY;;IF FLAG =0 THENXFNODEC1;;MOVE DEFENDING GUN""GUNDELAY;;ELSE DE>}CREASE DELAY!VBC;;EXIT VERTBLANK 'NODEC1Q>*;;RESET COLOR OF PLAYER 3!P) SET0;;JMPSUB TO INIT TROLL VARIABLES>}$>%>Q>L PTEMP1~, MISSILE1;;JMPSUB TO FIRE DEFENDERS BOMB! SET1;;INIT WIZARDS VARIABLES% FIREVAR2;;INIT>} ATTACKER VARIABLE! FIREBOMB;;FIRE ATTACKER BOMB" MOVEBOMB;;MOVE ATTACKERS BOMBF)Q;;LOAD PLAYER3 TO PLAYER COLLISIO>}Nx'HHIT1;;IF NE THEN DEFENDERS GUN HIT!VBB;;ELSE EXIT VERTBLANK@HIT1Q>;;RESET COLORP;;OF PLAYER 3l!VBA;;J>}MP TO EXITVB1QDLISTЄR>CASTR;;IF CASTR IS INHVB2;;DISPLAY LIST THEN4 QDLIST;;WIZARDS CASTLE ISfR>CA>}STR;;BEING ATTACKEDHVB2Ʌ' FIREVAR1;;INIT ATTACKERS VARIABLESʅ" FIREBOMB;;FIRE ATTACKERS BOMB" MOVEBOM2;;MOVE AT<}