⌐5ó) ã1L!`⌐) ט0⌐ «ß⑤ìß⑤αNס⇨מß⑤ ™0 ⌐⑤α ≡②α⇨≡⇦ÿL±1⌐¢ó) ã1 Æ⑨L!BAD LOAD FILE¢LOAD 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 AREA¢CAUTION: A "Y" INVALIDATES MEM.SAV.¢⌐àF⌐⌠àE¡÷à!⌐ ì∙ +⑤⓪⇨L≡1⌐
ì⇧¡³ì³⌐✓ì⇩⌐ ì♪⇨⌐⇧ì
⇨`⓪*⌐ ì♪ 70 ¨2ì÷ ¨2ì¯⇦A} ™0¡÷ל¯≡.ó*⌐ך ã1 y0מ♪0)INSERT BOTH DISKS, TYPE RETURN¢⌐^ó, ã1 y0⌐❎ì╱⌐3ì◆¡σ⇩8ΘÇì⇦¡µ⇩Θ ì❎¡⇦ל╱¡❎ϕ◆ã
âEOL╱¢ז àICCOM❎B⇨פ àICBAL❎D⇨ץ àICBLL❎H⇨µ àICAX1❎J⇨≡ àICAX2❎K⇨· äCIOV❎VΣ⇦⇧❎X;⇧$X;************✓U}*******************⑧⇧əX; PROGRAM BEGINS HERE"⇧$X;*******************************,⇧❎X;6⇧◆❎ P@⇧❎X;J⇧④$>╱0;;use IOCB #3T⇧Q>äL✓V}OCK;;command is LOCK^⇧♪PàICCOM9h⇧③Q>✓ ;;don't needr⇧əPàICBLL9;;to set buffer|⇧⑨PàICBLL②✓⇧9;;length orå⇧əPàICAX19;;any aux byt✓W}esÉ⇧♪PàICAX29Ü⇧⑨Q>4êFILENAME;;point toñ⇧⑦PàICBAL9;;file to be«⇧⑦Q>5êFILENAME;;lockedÕ⇧PàICBAL②✓⇧9א⇧① äCIOV;;do it!כ⇧④IçALLDO✓X}NE;;error?ש⇧ çLOCKERR;;yes, print msg.α⇧♪çALLDONEΩ⇧⇦+⌠⇧❎X;³⇧X;name of file to be locked✓⇩❎X;②⇩êFILENAME♪AÅD8:PRACTICE.FILA✓Y}⇩❎X;&⇩$X;*******************************0⇩❎X;:⇩%X;error handling subroutine - justD⇩%X;prints a message if any error isN⇩⓪X;✓Z}encounteredX⇩❎X;b⇩♪çLOCKERRl⇩◆$>✓ v⇩ Q>åPUTRECÇ⇩♪PàICCOM9è⇩Q>4åERRMSGö⇩♪PàICBAL9ß⇩Q>5åERRMSG¿⇩PàICBAL②✓⇧9Ø⇩◆Q>✓P¶⇩♪PàICBLL✓[}9ה⇩◆Q>✓ ס⇩PàICBLL②✓⇧9ם⇩♪PàICAX29Σ⇩ äCIOV∈⇩⇦:°⇩❎X;⇩⇨X;error message to print ⇨❎X;⑥⇨
åERRMSG ⇨♪AæError during lockA=âEOLBLL✓ z³³β⇩צ åSTATUS╱§ ♪äFILL╱②∧ åRENAME╱ ∞ åDELETE╱!α ♪äLOCK╱#β åUNLOCK╱$Γ àPOINT╱&π ♪äNOTE╱'Σ åFORMAT╱³⓪⇧åFILDAT ]}❎²⇩⇧àICSTA❎C⇨D ❎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 ם
❎ëSTATUSERR④❎⑧)>╱¬;;file not found?❎HçCHKLOCK;;no, skip ahead(❎◆$>✓ 2❎Q>4⓪j}ëNOTFNDMSG;;yes, say so<❎♪PàICBAL9F❎⓪Q>5ëNOTFNDMSGP❎PàICBAL②✓⇧9Z❎⇦,d❎DëPRTSTATUSn❎♪çCHKLOCKx❎⑤)>╱º;;file locked?é❎HçUNKNOW⓪k}N;;no, skip aheadî❎◆$>✓ û❎Q>4ëSTLOCKMSG;;yes,say soá❎♪PàICBAL9¬❎⓪Q>5ëSTLOCKMSGœ❎PàICBAL②✓⇧9®❎⇦,ז❎DëPRTSTATUSפ❎♪çUNKNOWNץ❎◆⓪l}$>✓ µ❎Q>4èUNKNOWNMSG;;handle all≡❎⑨PàICBAL9;;other status·❎⑨Q>5èUNKNOWNMSG;;values⇦╱PàICBAL②✓⇧9╱ëPRTSTATUS⑧╱ êPRTERROR"╱⓪m}⇦:,╱ëNOTFNDMSG6╱ə♪AÄFile not foundA=âEOL@╱ëSTLOCKMSGJ╱ə♪AÄFile is lockedA=âEOLT╱èUNKNOWNMSG^╱⑨♪AìUnknown errorA=âEOLh╱❎X;r⓪n}╱$X;*******************************|╱❎X;å╱$X;FORMAT error handler subroutineÉ╱❎X;Ü╱ëFORMATERRñ╱◆$>✓ «╱⓪Q>4ëFORMATMSGÕ╱♪PàICB⓪o}AL9א╱⓪Q>5ëFORMATMSGכ╱PàICBAL②✓⇧9ש╱ êPRTERRORα╱⇦:Ω╱ëFORMATMSG⌠╱♪AÉFormatting errorA=âEOL³╱❎X;✓◆$X;************************⓪p}*******②◆❎X;◆$X;DELETE error handler subroutine&◆❎X;0◆ êDELETERR:◆◆$>✓ D◆⓪Q>4ëDELETEMSGN◆♪PàICBAL9X◆⓪Q>5ëDELETEMSGb◆PàICBAL⓪q}②✓⇧9l◆ êPRTERRORv◆⇦:Ç◆ëDELETEMSGè◆ə♪AÄDeleting errorA=âEOLETERR:◆◆$>✓ D◆⓪Q>4ëDELETEMSGN◆♪PàICBAL9X◆⓪Q>5ëDELETEMSGb◆PàICBAL⓪ <³³µ❎d $X;Example 2 - using the XIO macron ⑦X;by Karl E. Wiegersx ❎X;é $X;examples of using STATUS, LOCK,î X;UNLOCK, RENAME, ④s}DELETE, andû X;FORMAT disk operationsá ❎X;¬ X;you need the MACRO.LIB andœ "X;SUBS.LIB files on the disk in® X;the drive na④t}med in linesז ②X;0240 and 0990פ ❎X;ץ ❎X;µ ✓F=EI≡ ②①>îD8:MACRO.LIB· ❎X;⇦⇧#X;******************************⇧X; PROGRAM STA④u}RTS HERE⑧⇧#X;******************************"⇧❎X;,⇧◆❎ P6⇧❎X;@⇧!◆äXIO åSTATUS=✓⇨=✓ =✓ =AäD8:PAJ⇧◆)>✓⇧T⇧✓FâOK1^⇧ ëSTATUSERRh⇧⇦④v}+r⇧◆âOK1|⇧◆äXIO äLOCK=✓⇨=✓ =✓ =AäD8:PAå⇧✓IâOK2É⇧ çLOCKERRÜ⇧⇦+ñ⇧◆âOK2«⇧!◆äXIO åUNLOCK=✓⇨=✓ =✓ =AäD8:PAÕ⇧✓IâOK3א⇧ ëUNLOCKERR④w}כ⇧⇦+ש⇧◆âOK3α⇧%◆äXIO åRENAME=✓⇨=✓ =✓ =AêD8:P,Q.RAΩ⇧✓IâOK4⌠⇧ êRENAMERR³⇧⇦+✓⇩◆âOK4②⇩#◆äXIO åSTATUS=✓⇨=✓ =✓ =AåD8:Q.RA⇩◆)>✓⇧&⇩✓④x}FâOK50⇩ ëSTATUSERR:⇩⇦+D⇩◆âOK5N⇩!◆äXIO äLOCK=✓⇨=✓ =✓ =AåD8:Q.RAX⇩✓IâOK6b⇩ çLOCKERRl⇩⇦+v⇩◆âOK6Ç⇩❎X;è⇩$X;---------------------④y}----------ö⇩"X;NOTE: program will stop hereß⇩"X;and tell you that the file is¿⇩ X;locked.Ø⇩$X;------------------------------④z}-¶⇩❎X;ה⇩#◆äXIO åSTATUS=✓⇨=✓ =✓ =AåD8:Q.RAס⇩◆)>✓⇧ם⇩✓FâOK7Σ⇩ ëSTATUSERR∈⇩⇦+°⇩◆âOK7⇩⇨#◆äXIO åDELETE=✓⇨=✓ =✓ =AåD8:Q.RA ⇨✓IâOK8⑥④{}⇨ êDELETERR ⇨⇦+*⇨◆âOK84⇨❎X;>⇨$X;-------------------------------H⇨#X;BE VERY CAREFUL WHEN USING THER⇨X;FORMAT COMMAND !!!!!!④|}!!\⇨$X;-------------------------------f⇨❎X;p⇨ X; XIO FORMAT,3,0,0,"D2:"z⇨X; BPL OK9ä⇨⑤X; JSR FORMATERRÄ⇨♪X; BRKÿ⇨◆④}}âOK9ó⇨⇦+¼⇨❎X;À⇨$X;-------------------------------ij⇨ X;pull in all the subroutinesט⇨$X;-------------------------------ק⇨❎X;∧⇨①④~}①>ïD8:SUBS.LIB⇨$X;-------------------------------ij⇨ X;pull in all the subroutinesט⇨$X;-------------------------------ק⇨❎X;∧⇨①④ ³³ø⇧d %X;Example 3-using the FILL commandn ⑦X;by Karl E. Wiegersx ❎X;é ✓F=EIî ②①>îD8:MACRO.LIBû ❎X;á $X;********************⑧Ç}***********¬ X; PROGRAM STARTS HEREœ $X;*******************************® ❎X;ז ◆❎ Pפ ❎X;ץ ③◆ëGRAPHICS ✓❎②✓⓪µ ◆åCOLOR ✓⇧≡ ⑧ü}◆àPLOT ✓(=✓#· ①◆çDRAWTO ✓(=✓
⇦⇧①◆çDRAWTO ✓④=✓
⇧③◆ëPOSITION ✓④=✓#⑧⇧④◆àPOKE åFILDAT=✓⇧"⇧◆äXIO äFILL=✓╱=✓ =✓ =AéS:A,⇧ âEND!âE⑧é}ND6⇧❎X;@⇧#X;include the subroutine libraryJ⇧❎X;T⇧①①>ïD8:SUBS.LIB✓#⑧⇧④◆àPOKE åFILDAT=✓⇧"⇧◆äXIO äFILL=✓╱=✓ =✓ =AéS:A,⇧ âEND!âE⑧ @³³³⇨d %X;Example 4-reading disk directoryn ⑦X;by Karl E. Wiegersx ❎X;é ✓F=EIî ②①>îD8:MACRO.LIBû ❎X;á $X;********************ä}***********¬ X; PROGRAM STARTS HEREœ $X;*******************************® ❎X;ז ◆❎ Pפ ❎X;ץ X;open IOCB #1 to read diskµ !à}X;directory - use any filespec≡ ❎X;· ◆àOPEN ✓⇧=✓╱=✓ =AåD1:*.*A⇦⇧♪çREADONE⇧ə àINPUT;;get a filename⑧⇧⑤)>✓ê;;end of file?"⇧④Få}äDONE;;yes, quit,⇧!◆åPRINT êFILENAME;;no,write it6⇧⑥,;;get the next one@⇧ DçREADONEJ⇧✓äDONET⇧⑦◆åCLOSE ✓⇧;;all done^⇧⇦+h⇧❎X;r⇧ç}!X;save 18 bytes for a filename|⇧❎X;å⇧êFILENAME②✓②É⇧❎X;Ü⇧$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 #1Ω⇧⑧Q>åGETREC;;command is⌠⇧⑨PàICCOM9;;GET a RECord³⇧əQ>4êFILENAME;;put it at✓⇩PàICBAL9;;address FILENAME②⇩Q>5êFILè}ENAME⇩♪PàICBAH9&⇩⑤Q>✓②;;get 18 chars0⇩♪PàICBLL9:⇩◆Q>✓ D⇩♪PàICBLH9N⇩③ äCIOV;;go do itX⇩⇦:b⇩❎X;l⇩#X;include the subroutine libï}raryv⇩❎X;Ç⇩①①>ïD8:SUBS.LIBet 18 chars0⇩♪PàICBLL9:⇩◆Q>✓ D⇩♪PàICBLH9N⇩③ äCIOV;;go do itX⇩⇦:b⇩❎X;l⇩#X;include the subroutine lib ə¯¯ⁿ⇩²⇩ ¯¯Æ<ú<25.⇩$ə!54/25."!3⇩¯¯Æ£ú£25.⇩$ə!54/25."!3⇩¯¯ס%⌡% ¯¯Ñ
A②p ⑥≡❎o6ü-@⇦ ④é-@①$י} ④/✓ì-@⇧ ⑨@⇦ ④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 label⑥T╱?⑤-@⇩ ②@⑨ ④?(%Press פדקרפמ after each line is typed⑥^╱?⑤-@⇩ ②@ ④?(%When you are done, press צ$ע}קIJפק ⑥h╱>⑤-@⇩ ②@" ④>($ דצב = Main Menu ⑥r╱╱╱$⑥|╱@⑤-@⇩ ②@⑧ ④@(& צקIJפק will save th$פ}is label ⑥å╱?⑤-@⇩ ②@⑨ ④?(% צדכדבק will do this label over ⑥É╱?⑤-@⇩ ②@ ④?(% נסקחנמ will prin$צ}t this label ⑥Ü╱>⑤-@⇩ ②@" ④>($ דצב = Main Menu ⑥ñ╱╱╱$⑥«╱@⑤-@⇩ ②@⑧ ④@(& צקIJפק 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 צקIJפק ⑥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⑥ß◆╱╱$⑥¿◆@⑤-@⇩$∧} ②@⑧ ④@(& צקIJפק 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⇧% )ò"A⇩U A ` ⑥ ✓⑦⑦◆ò"A⇧U A"P $π} ⑥*✓&◆ò"@' ②'④ A"p ④&
$⑥⇦⇧m⑤-@✓ 1U} ②@ ④2(⑧Be sure to use the צזחהק④>-@✓ ②É④[(⑧ידך for בIJסחקIJכ letters.④mA◆d ②A⇩U ⑥⇧E-ü②@③ ④ ( What is 1V}your④,-æ②@④ ④A(áµΘ≥≤⌠á name #$⑤④E⇩Æ⑥⑧⇧H-ü②@⑥ ④%(①What is your ∮β≤⌠④1-æ②@⑦ ④D(❎name ⑤Æ⑤⇨ #$⑤④H⇩ô⑥"⇧N-â②@⑨ 1W} ④ ( Your name is④2-@⇦ ②@ ④J(Æ⑤⇧ ⑤ô⑤
A⇩p ⑥J⇧9-â②@! ④5( Are you a BO1Y}Y or a Girl? Γ-τ #$⑤④9⇩ò⑥T⇧1 6Ä-ü④#◆ò4⇧B)ò4⇧b)ò4⇧G)ò4⇧g' û④1
A⇨` ⑥^⇧#⑤-@5 ②@! ④⑨(Å④#
A⇨0 ⑥h⇧m⑤-@✓ ②@1Z} ④2(⑧Be sure to use the צזחהק④>-@✓ ②É④[(⑧ידך for בIJסחקIJכ letters.④mA◆d ②A⇩U ⑥r⇧L-ü②@③ ④)(⑤What is your1[} µ≥Θσ∈Σº≤④5-æ②@④ ④H(µΘ≥≤⌠ name #$⑤④L⇩ù⑥|⇧I-ü②@⑥ ④&(②What is your ≡σ⌠º≤④2-æ②@⑦ ④E(❎name ⑤Æ⑤⇨ #$⑤④I⇩ÿ⑥å⇧X-â②1\}@ ④/(⇦OK, ⑤Æ⑤⓪ your friend is ⑤ù④T(① and your pet is ⑤ÿ⑤ פחוזק #$⑤④X⇩ö⑥É⇧⑨⑨◆ö4⇧Y)ö4⇧yA⇦0 ⑥Ü⇧n⑤-@⑦ ②@④ 1]} ④⑨(Å④0-@① %B:Æ,②@⑦ ④4(Å④Z-@⇦ %+B:Æ,%B:ô,%@⇧ ,②@! ④d(Å⑤Å⑤Å⑤Å④n
A⇨p ⑥⌐⇧əə6Ö-B⇨"t &I: ,⑥«⇧O①✓Ç-ü1^}⑨A⇨ ④⑤ Ç④'A◆⓪ ②A⇧④ ④9A◆② ②A⇧④ ④KA◆d ②A⇩U ④O û⑥Õ⇧o⑤-@⇦ ②@④ ④:( Make sure your printer is rea1_}dy,④L-@╱ ②@⑥ ④k(⑨then press áףפדקרפמ§á #$⑤④o⇩ö⑥א⇧③③ áסβτσ≤áõá¡áœá¢כ⇧m A⑨P ④⑦ A◆É ④#A◆V ②Ü④' û④9A◆⓪ ②1`}A⇧④ ④KA◆② ②A⇧④ ④]-@④ ②@④ ④m(♪Printing---⑥ש⇧))(â⑤Å⑤⇨ ⑤Æ⑤④ took a deep breath,⑥α⇧22(â⑤Å⑤%stepped forw1a}ard quickly and shone the⑥Ω⇧11(â⑤Å⑤$flashlight into the box. And there,⑥⌠⇧?/(â⑤Å⑤!with a paw stuck in an old tennis⑤④;6é1b}-@0 ④? å⑥³⇧4 (â⑤④⑦✓Ç-ü⑨@A ④'(@⇩ ⑤⇧⑤⑤④+ Ç④4(â⑤⇧⑤⑥✓⇩@+(â⑤Å⑤♪racket was ⑤ÿ⑤ THUMPing and⑤④<6é-@I &B:ÿ,④1c}@ å⑥②⇩!!(â⑤⑥THE GHOST IN THE ATTIC⑥⇩A' â⑤Å⑤⑨SCRAAATCHing to get out!!⑤④36é-@X ④7 å④A(â⑤⇩by⑥&⇩:①6¢-B:Æ,%B:ô,④$6¢-+P1d}:¢'@⇩ ,,④,(â⑤Å⑤④:6é-@â &¢⑥0⇩④◆ å④④(â⑤Æ⑤⇧ ⑤ô⑥:⇩4 6é-æ④ å④4(â⑤Å⑤⇧(⑤ÿ⑤✓), said ⑤Æ⑤⇩. ⑤❎(What⑥D⇩5%(â⑤Å⑤⑦are yo1e}u doing up here?)⑤④16é-@D ④5 å⑥N⇩--(â⑤"⇨ ⇧②②⑨⇨⑦⇦⇨ ③⇨<>⇨⇧⇧ ◆⇨❎⇨1987⇨⑥X⇩@♪(â⑤Å⑤④⑦6é-@c ④ å④)✓Ç-ü⑨@A ④3(â1f}⑤⇧⑤⑤④7 Ç④@(â⑤⇧⑤⑥b⇩""(â⑤Å⑤⇨ ⑤Æ⑤♪ picked up ⑤ÿ⑥l⇩0+(â⑤Å⑤and removed the tennis racket,④0(â⑥v⇩D/(â⑤Å⑤!(What am I g1g}oing to do with you?)⑤④4(â④@6é-@e ④D å⑥Ç⇩1-(â⑤Å⑤⇨ ⑤Æ⑤⑧ wasn't bothered so much④1 å⑥è⇩:6(â⑤Å⑤❎that ⑤ò⑤ was home 1q}⇩ב⇩î ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ B% ⇦ DOS SYSB* ) DUP SYSB S BOOTCMP1M65B╱ \ BOOTCMP2M65B⓪ b BOOTCMP3M65B r BOOTCMP4M65B⇦ BOOTCMP5M65B â BOOTCMP6M65B
î G OBJBR û LABELMKRBASBZ Φ NFL1 BASB◆ B⇧NFL2 BASBq I⇧STRYBOOKBASB> ב⇧TITLE SCRBC ⇧⇩TRIG BASÇî D⇩TROLL0 M65 alone, or that it was④: å⑥ö⇩73(â⑤Å⑤&stormy out, or that there were strange④7 å⑥ß⇩51(â⑤Å⑤$noises coming from upstairs, or 1r}even④5 å⑥¿⇩51(â⑤Å⑤$that the lights had flickered on and④5 å⑥Ø⇩++(â⑤Å⑤off several times. It was the⑥¶⇩1♪(â⑤Å⑤④①6é-É④⑤ å1s}④!(â⑤⇨THE⑤④-6é-@R ④1 å⑥ה⇩//(â⑤$combination of all those things that⑥ס⇩7♪(â⑤Å⑤④⑦6é-@④ ④ å④'(â⑤⇨END⑤④36é-@H 1t} ④7 å⑥ם⇩>$(â⑤♪really had ⑤Æ⑤ scared!!④*6è-æ④. £④:6é-@① ④> å⑥Σ⇩V♪✓Ç-ü⑨¥④(â⑤⇩ ⑤⇩╱✓⑤④ Ç④+6é-@R ④/ å④=✓Ç-ü⑨@⇦ 1u} ④M(â⑤⇨ ⓪⑤⇧ ⑤④Q Ç④V(â⑥∈⇩a6é-@① ④③ å④✓Ç-ü⑨¥④+(â⑤⇩ ⑤⇩
A③É ⑥ ⇨③③ áסβτσ≤áØáªáøá¢⑥⇨g◆+1w}ï④⑨A◆⓪ ②A⇧④ ④+A◆② ②A⇧④ ④=A◆✓ ②A⇩8 ④IA◆V ②ß④[A◆ ②@④ ④gA◆R ②ü⑥ ⇨?A◆V ②ß④⑤-ì②É④&( ⓪②1x} ④ ◆--- ④/6ƒ-B:Æ,④;6è-@✓ ④? £⑥4⇨9%6ä.no such things as ghosts...④16é-@ä ④5 å④9 ç⑥>⇨T 6ä.⑥parents had convinced ④1y}&6ê.á④* í④<6ê.♪ there were④@ í④L6é-@u ④P å④T ç⑥H⇨T'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é-@u ④U◆ò4⇩he]6é-é%ü⑥\⇨9◆ å④♪ ç④96à.'larg1{}e open box the noise had come from.⑥f⇨i②6ä.✓corner. ④⑧6ê.ó④ í④76ê.④ felt safer there. ④; í④A6ê.ó④E í④Q6ê.❎ knew④]6é-@) 1|} ④i6ë-@╱ ⑥p⇨⑤◆ò4⇨she⑤6é-é&â⑥z⇨H◆ í④♪ ú④ ñ④<6à.&second, or two, then inched toward the④H6ë-@◆ ⑥ä⇨@,6ä."dad's b1}}ig overstuffed chair in the④86é-@2 ④< ú④@ ñ⑥Ä⇨O⑦6ä.SCRAAATCH!! ④6ê.Æ④! í④46ê. froze for a④8 í④>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ë-@✓ ④_◆ò4⇩heg6ë-ë%ü⑥¼⇨<◆ ú④♪ ñ④<6à.*didn't see anything. Then from the corner⑥À⇨?6ä.⑤to 1Ç}go up and check...④+6é-@E ④76ë-@⇨ ④; ú④? ñ⑥ij⇨,,6à."flashlight to survey the room, but⑥ט⇨g⑤6ä.♪there, but ④ê.ò④ í1ü}④96ê.③ really didn't want④= í④I6é-@4 ④U6ë-@① ④_◆ò4⇨sheg6é-é&ü⑥ק⇨♪◆ ú④♪ ñ⑥∧⇨^6ä.③through the door. ④#6ê.ó④' í④761é}ê. used the④; í④A6à.ä④M6ë-@④ ④V◆ò4⇩he^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 í④B◆ò4⇨sheJ6é-é&ü⑥╱⇦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ë-@③ ④W◆ò4⇩he_6ë-ë%1å}ü⑥$⇦C/6ä.%THUMP! SCRAAATCH!, THUMP!, SCRAAATCH!④;6é-@) ④? ú④C ñ⑥.⇦C 6ä.Æ④+6ê. climbed the stairs slowly,④/ í④56à.ä④C6ë1ç}-@⑤ &ƒ⑥8⇦P6ä.❎Then ④⑤6ê.ò④⑨ í④86ê.⑧ heard the noises again,④< í④H6é-@5 ④L ú④P ñ⑥B⇦%⑨6à.turned and ran!④%6ë-@0 1ê} ⑥L⇦S⑨6à.turned and ran!④%6ë-@0 ④?6ä.③alone, and SCARED!!④K6é-@G ④O ú④S ñ⑥V⇦R$6ä.əTHUMP!, SCRAAATCH! again, ④*6ê1ë}.ò④. í④<6ê.◆ almost④@ í④F6à.ä④R6ë-@ ⑥`⇦④ ◆ò4⇩he④6ë-ë%ü⑥j⇦P6ä.③much, it only made ④#6ê.á④' í④86ê.
feel more④< í④H61è}é-@4 ④L ú④P ñ⑥t⇦`6ä.④attic stairs. When ④$6ê.ò④( í④96ê.
heard the④= í④C6à.ä④O6ë-@② ④X◆ò4⇩he`6ë-ë%ü⑥~⇦@,6ä."no1ï}t to dwell on these thoughts too④86é-@2 ④< ú④@ ñ⑥ê⇦g⓪6ä.╱until ④⑥6ê.ò④ə í④:6ê.⑨ was at the bottom of the④> í④D6à.ä④P6ë-1î}@① ④Y◆ò4⇩heg6ë-ë%@⇧ ⑥Æ⇦R⑥6ä. wasn't sure ④6ê.ò④ í④36ê. was home. ④7 í④=6ê.ó④A í④N6ê.╱ tried④R í⑥£⇦!6é-@2 1ì} ④⑨◆ò4⇨she!6é-é&â⑥ª⇦♪◆ ú④♪ ñ⑥ã⇦U6ä.⇦and ④④6ê.ò④⑧ í④?6ê. slowly walked through the house④C í④I6à.ä④U6ë-@╱ ⑥´⇦④ ◆ò41Ä}⇩he④6ë-ë%ü⑥ג⇦P②6ä.✓over to ④⑧6ê.ù④ í④16ê.'s house, but ④5 í④;6ê.ò④? í④P6é-@B &B:ù,⑥מ⇦⑤◆ò4⇨she⑤6é-é&ü⑥ן⇦H◆ ú④♪ ñ④<1Å}6à.*got the large flashlight from the closet, ④H6ë-@⇨ ⑥Γ⇦P④6ä.
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④; í④? ñ⑥
❎U④6ä.
before!! ④1Æ}ə6ê.ó④ í④16ê. thought to ④5 í④;6ê.á④? í④K6ê.❎self.④O í④U6à.ä⑥④❎ə 6ë-ì④②◆ò4⇩heə6ë-ë%ü⑥❎>*6ä. and not expected back unt1ô}il five④66é-@4 ④: ú④> ñ⑥(❎C)6à.But Mom and Dad HAVE been wrong④76é-@E &ƒ④C6ë-@① ⑥2❎; 6ä.Æ④%6ê.⑤'s mother was a1ö}t work④) í④- ú④1 ñ④76è-æ④; £⑥<❎P 6é-ª④ å④)(â⑤º⑤❎ ⑤º⑤❎ ⑤º⑤④56é-@R ④9 å④P(â⑤¿⑤⇨ ⑤¿⑤⇨ ⑤¿⑥F❎P 6é-ª④ å④)(1ò}â⑤⌐⑤❎ ⑤⌐⑤❎ ⑤⌐⑤④56é-@R ④9 å④P(â⑤¬⑤⇨ ⑤¬⑤⇨ ⑤¬⑥P❎H 6é-ª④ å④#(â⑤½⑤⇩ ⑤½⑤⇩ ⑤½⑤④/6é-@I ④3 å④H(â⑤¼⑤⇩ 1û} ⑤¼⑤⇩ ⑤¼⑥Z❎2 6é-ª④ å④((â⑤¡⑤❎ ⑤¡⑤❎ ⑤¡④.6è-ª④2
£⑥d❎ áקזדáדמגá¢n❎B◆ û④③-ì②@③ ④(❎Your ⑤î④1-@④ ②@④ ④1ù}B( is Finished!⑥x❎J-¥②@⑧ ④%(Æ⑤ would you like④1-ª②@ ④F(to make another⑤④J⇩ö⑥é❎+①◆ö4⇧Y)ö4⇧y6Ä- ④#6è-¥1ÿ}④' £④+
û⑥î❎◆+ï④⑨A◆⇩ ②@d ④⑤⑥û❎ áקפIJס᢬❎q+ ④-@ ②@② ④<(⑧á¿ו´⌐á is not installed!④?(④h($ You'll1Ö} need to Re-boot! Sorry...④k(④n(④q⑤⑥®❎⑥⑥ áמדתáבזIJפIJבקדפצá¢ז❎E◆+ï④③A❎Y ②ï④*A⇧╱ ②F:A⇧╱ ,&«④E6»-+F:A⇧╱ ,%ü,$A⇩V 1Ü} ⑥פ❎/①6ã-»'A⇩V ④⑦6õ-ï④#A⇩⇨ ②õ④/A⇩⇦ ②ã⑥ץ❎'①✓Ø-ü⑨@( ④⑤"¢④#6ø7Ø<Ø,.>:¢,④' Ø⑥µ❎CC⇧104,169,0,133,205,168,169,224,11¢}33,206,177,205,145,203,200,208¢≡❎44⇧249,230,204,230,206,165,206,201,228,208,239,96¢·❎6œ-?:C:ø,,⑥⇦╱①◆"Œ④◆Œ"6ü①$⑥╱5①✓Ç-ï⑨1£}@◆ ④⑤"è④'»%Œ$@✓ %Ç②è④+ Ç④5
A①É ⑥í⇦◆◆(à⑥ª⇦◆◆ é⑥º⇦A①û ⑥¿⇦&:}"(⑨Make another table? (Y/N)⑤④&⇩ü⑥½⇦♪◆ü4⇧Y⑤B⇦ ④
A⓪⓪ ⑥¼⇦╱╱%⑥¡⇦⑦B⇦ ④⑦
A⓪⓪ ⑥ã⇦8A② ④⑧(⇩ ⑤é②⑤④$◆â :⓪} .(⇧+⑤â②⑤④8
A②⇩ ⑥õ⇦ (â②⑤⑥Ø⇦!◆ä ⑦(⇧+⑤ä④!
A②⇦ ⑥ø⇦◆◆(ä⑥œ⇦◆◆ é⑥´⇦%◆Ç Ç-@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ê- ⑥R✓/A!@ ④!(What is side A⑤④%⇩é④/
A!P ⑥\✓6é-:⑤} ④å-@⇧ ⑥f✓/A!` ④!(What is side B⑤④%⇩ë④/
A!p ⑥p✓6ë- ④ç-@⇧ ⑥z✓/A!Ç ④!(What is side C⑤:⑥}④%⇩ä④/
A0⓪ ⑥z╱╱%⑥¼0 (⇧}④ (④-(That Triangle is Impossible!④0(⑥ÀJ(( Side1^2 + S:%}ide2^2 > Largest Side④<✓Ç-@⇧ ⑨A⇨ ④@ Ç④J
A0⓪ ⑥á ************************¢í *** Solve 2-Sides & ***¢ó *** :&}1-Included Angle ***¢ú ************************¢ñ╱③④⓪A@❎ ④④ü;@⇧ ,⑥ÑB⇦ ⑥¬K6é- ④ë- ④'6ä-:'} ④36å- ④?6ç- ④K6ê- ⑥œ AÇ ④ PROMPT INPUT¢®%A@@ ④!(What is Side A⑤④%⇩é⑥ז%A@P ④!(:(}What is Side B⑤④%⇩ë⑥פ9A@P ④+(⑧What is included angle c⑤④/⇩ê④9
A@` ⑥ץMB⇦ ④#◆ê!A⇧Ç )ê C(*** ERROR:)} c<=0 OR c>180 ***④M
A@P ⑥µ##6ä-M:é$é%ë$ë&@⇩ $é$ë$E:ê,,⑥≡6à-ä'G:ê,④ RATIO VALUE¢·8♪6ì-é'à④)6å-D:ì'M:@⇧ &ì#@:*}⇩ ,,④8 SECOND ANGLE¢⇦⓪◆å 6å-A⇧Ç %å⑥⓪③③6ç-A⇧Ç &ê&å⑥⑧⓪③ (⇧}④③ AÇ@ ⑥"⓪3( Side A=⑤é②✓Angle a=⑤④%6Ç-:+}å④/ Ap ④3(Ç⑥,⓪3( Side B=⑤ë②✓Angle b=⑤④%6Ç-ç④/ Ap ④3(Ç⑥6⓪4②( Side C=⑤④⑧6Ç-ä④" Ap ④4(Ç② Angle c=⑤ê⑥@⓪⓪╱(④:,}⓪AAÇ ⑥J⓪)%(Would you like to do another⑤④)⇩ü⑥T⓪⑤♪◆ü4⇧Y⑤
A@❎ ⑥^⓪⓪B⇦ ④⓪%⑥ê③ **************************¢ë③ :-}*** Solve 2-Sides & ***¢è③ *** 1-Unincluded Angle ***¢ï③ **************************¢î③╱③④⓪AP❎ ④④ü;@⇧ ,⑥ì③:.}B⇦ ⑥Æ③K6é- ④ë- ④'6ä- ④36å- ④?6ç- ④K6ê- ⑥£③ AÇ ④ PROMPT INPUT¢ª③%AP@ ④!:/}(What is Side A⑤④%⇩é⑥ã③%APP ④!(What is Side C⑤④%⇩ä⑥´③9APP ④+(⑧What is included angle a⑤④/⇩å④9
AP` ⑥ג③MB⇦:0} ④#◆å!A⇧Ç )å C(*** ERROR a<=0 OR a>180 ***④M
APP ⑥ן③6à-é'G:å,④ RATIO VALUE¢Γ③9♪6ì-ä'à④⑦6æ-@⇧ ④#◆ì :1} æ-6@⇧ ④96ì-O:ì,⑥π③G◆ì!@⇧ ②(④=(&*** This Triangle is not possible. ***④G
AQ` ⑥Σ③4%6ê-æ$+D:ì'M:@⇧ &ì:2}#@⇩ ,,,④4 SECOND ANGLE¢∮③◆ê 6ê-A⇧Ç %ê⑥÷③!③6ç-A⇧Ç &å&ê④! THIRD ANGLE¢√③⑦6ë-à$G:ç,④⑦ SIDE B¢ ④ (⇧}④⑤6Æ-:3} ④ AÇ@ ⑥
④3( Side A=⑤é②✓Angle a=⑤④%6Ç-å④/ Ap ④3(Ç⑥④④G②( Side B=⑤④⑧6Ç-ë④" Ap ④3(Ç② Angle b=⑤④96Ç-ç:4}④C Ap ④G(Ç⑥④3( Side C=⑤ä②✓Angle c=⑤④%6Ç-ê④/ Ap ④3(Ç⑥④⑨◆Æ"@⇧ ⑨
AQ` ⑥ ④46ç-A⇧Ç &+A⇧Ç &ê,&å④4 OTH:5}ER POSSIBLE ANGLE¢!④%⑧6ë-à$G:+A⇧Ç &ê,,④% NEW SIDE B¢"④①①6ê-A⇧Ç &ê⑥#④4╱(④(⓪ --- OR ---④(④*6Æ-@⇧ ④4
AQ0 ⑥(:6}④⓪╱(④⓪AQÇ ⑥2④)%(Would you like to do another⑤④)⇩ü⑥<④⑤♪◆ü4⇧Y⑤
A`P ⑥¥⑦MB⇦ ④#◆ç!A⇧Ç )ç C(*** ERROR b<=0 OR b>180 ***④M
::}A`@ ⑥ó⑦9A`` ④+(⑧What is included angle c⑤④/⇩ê④9
A`p ⑥¼⑦MB⇦ ④#◆ê!A⇧Ç )ê C(*** ERROR c<=0 OR c>1:;}80 ***④M
A`P ⑥À⑦!③6å-A⇧Ç &ê&ç④! THIRD ANGLE¢ij⑦6à-ë'G:ç,④ RATIO VALUE¢ט⑦6é-à$G:å,④ SECOND SIDE¢ק⑦6ä-à$G:ê,④ THI:<}RD SIDE¢Φ⑦③ (⇧}④③ AÇ@ ⑥≥⑦F②( Side A=⑤④⑧6Ç-é④" Ap ④2(Ç②✓Angle a=⑤④86Ç-å④B Ap ④F(Ç⑥ⁿ⑦3( Side B=⑤ë②✓Angle b:=}=⑤④%6Ç-ç④/ Ap ④3(Ç⑥╱⑧4②( Side C=⑤④⑧6Ç-ä④" Ap ④4(Ç② Angle c=⑤ê⑥⓪⑧⓪╱(④⓪AaÇ ⑥ə⑧)%(Would you like to do anothe:>}r⑤④)⇩ü⑥$⑧⑤♪◆ü4⇧Y⑤
Ap5 ⑥x①:@}①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 ;³³②Z ╱EI2 +åTEMP10╱Ç;;POINTER TO BYTE IN PLAYFIELDd )àTEMPS╱é;;VARIABLE FOR JOYSTICK VALUEû (àTEMPT╱ä;;VARIABLE FOR TRIG>E}GER VALUEז #åTEMPCH╱å;;POINTER TO CHARACTER· åTEMP12╱ê;;TEMP STORAGE,⇧åTEMP11╱è^⇧ àTEMPQ╱îא⇧AäREM1╱É;;POINTER TO CURRE>F}NT POSITION(USE TO REMOVE CHARACTER)⌠⇧<äREM2╱Æ;;POINTER TO DESTINATION CHAR(USE TO REMOVE CHAR)⌡⇧.àHPOST╱ö;;VARIABLE FOR HO>G}RIZONTAL POSITION÷⇧⑧âT1Y╱û;;TEMP STORAGE≈⇧åJSTCKV╱ÿ&⇩◆❎ X⇩"éPM②◆ ⇨;;START OF PM GRAPHICSè⇩âMIS②◆ ⇧¶⇩äPL0R②◆ ⇧∈⇩>H}äPL1R②◆ ⇧ ⇨äPL2R②◆ ⇧R⇨äPL3R②◆ ⇧ä⇨7êTEMPCHAR②✓⑥;;TEMP STORAGE OF CURRENT MAN DRAWINGSÀ⇨àTEMP1②✓④;;TEMP STORAGEΦ⇨>I}åDIRECT②✓⇩ə⇦âDA1②✓❎;;DELAY VARIABLESL⇦äEND1②✓❎;;VERT END OF MAN~⇦äTOP1②✓❎;;VERT TOP OF MANã⇦"éP0②✓⇨;;HORIZ POSIT>J}ION OF MANΓ⇦♪éP1②✓⇧④❎8åLRDRAW②✓⇧;;POINTER TO LEFT/RIGHT DRAWINGS OF TROLLF❎)åMANNUM②✓⇧;;OFFSET TO TROLL DRAWINGSx❎ åTIM>K}ER1②✓⇩;;TIMER VARIABLES¬❎åTEMP13②✓⇩;;TEMP STORAGEץ❎åTEMPSQ②✓⇧╱'åSQFLAG②✓⇩;;FLAG FOR MISSILE FIRED@╱3çDIRFLAG②✓⇩;>L};VARIABLE FOR DIRECTION OF MISSILEr╱⑨éT1②✓⓪;;TEMP STORAGEñ╱♪éT2②✓⇧ש╱♪éT3②✓⇧ת╱♪éT5②✓⇩ן╱♪éT6②✓⇧ך╱♪éT7②✓⇧ם╱♪éT8②✓⇧>M}ף╱ âT15②✓⇧ץ╱ âT16②✓⇧✓◆äFSQ1②✓⇧:◆äFSQ2②✓⇧l◆0àWARFL②✓⇧;;FLAG FOR WAR BETWEEN TROL/WIZARDß◆)çTEMP140②✓⇧;;VARIABLE >N}TO ADD 40 OR 14✓#àMISP1②✓⇩;;POSITION OF MISSILEf✓äMIS2②✓⇩ÿ✓0àCHECK②✓⇧;;VARIABLE OF VERT MOVEMENT OF MANט✓①êGUNDELAY②>O}✓⇧י✓2çTROLWIZ②✓⇧;;FLAG USE TO DETERMINE WHOSE TURNⁿ✓çSDELAY1②✓⇩;;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❎
PäPL3R9⑥ PâMIS9H2;;NEXT BYTEzəHéZ1;;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 BYTE⓪âLD1A;;X IS POINTER TO CHARBPêTEMPCHAR8;;SAVE PO>X}INTERt②0;;NEXT POINTERª⑥1;;NEXT MEMORY BYTEןIâLD1;;ALL 22 NUMBERS SAVED?
⑤:;;IF <0 THEN EXIT♪❎X; ❎X;!X;SUBROUTINE IN>Y}ITIAL:THIS SUBRX;INITIALIZES ALL VARIABLES❎X;⓪❎X;<"çINITIALQ>✓⇦;;# OF MEN ON BOARDn&PàTEMP1②✓②;;COUNTER FOR # OF TROL>Z}LSá'PàTEMP1②✓③;;COUNTER FOR # OF WIZARDS6⓪.àINIT1Q>àDLIST⑥╱¯;;LOW BYTE OF DISPLAY LISTh⓪◆P◆0⇩Ü⓪*Q>àDLIST⑤◆ ⇧;;HIGH BYTE OF D>[}ISPLAY LISTכ⓪◆P◆1⇩³⓪*çPMGRAPHQ>éPM⑤◆ ⇧;;ADDRESS OF PM MEMORY0①◆P❎◆קb①⑧Q>✓>;;ENABLE PM GRAPHö①◆P❎/⇩ה①◆Q>✓⇨°①◆P❎ס\②!çCOLORPLQ>>\}✓④;;SET PRIORITY ANDÄ②əP❎o⇩;;ENABLE 5TH PLAYERij②Q>✓Σ;;COLOR ORANGE-GREEN≥②◆P❎ג⇩$③③Q>✓;;COLOR GOLDV③◆P❎ד⇩ê③④Q>✓ז;;COLOR GREE>]}N´③◆P❎ה⇩∮③③Q>✓⇩;;COLOR GRAY④◆P❎ij⇩P④◆P❎IJ⇩é④◆P❎א⇩œ④③Q>✓N;;COLOR PINKµ④◆P❎ב⇩⑧⑤③Q>✓ÿ;;COLOR BLUEJ⑤◆P❎ו⇩|⑤!çPLRSIZEQ>✓⇨;;SET PLAY>^}ER WIDTH«⑤◆P❎✓סα⑤◆P❎ ס②⑥◆P❎
סD⑥⑨Q>✓ ;;SET PLAYER WIDTHv⑥◆P❎♪ס¿⑥◆P❎ סj⑧①âVARPàTEMP1②✓╱£⑧*PåMANNUM;;POINTER TO NEXT TROLL DRAWI>_}NGמ⑧3PåLRDRAW;;POINTER TO LEFT OR RIGHT TROLL DRAWING ⑨PâDA1②✓⇩;;DELAY VARIABLE2⑨♪PâDA1②✓⇦d⑨②P❎ס;;HIT CLEARû⑨◆Q>✓2ז⑨PâDA1②>`}✓⇨;;DELAY VARIABLEח⑨◆Q>✓⇧ט⑨PàTEMP1②✓❎י⑨◆Q>╱⇩כ⑨*PâT1Y②✓⇧;;HIGH BYTE FOR PAGE 0 VARIABLE·⑨àSOUNDQ>✓⇨;;ENABLE SOUND,ə◆P❎פ^ə⑨Q>a}>✓ ;;"TURN OFF" SOUNDÉə◆P❎✓פאə◆P❎ פ⌠ə◆P❎⇩פ&◆P❎⇦פX◆P❎╱פèQ>╱¬;;SET VOLUMN/DISTORTION¶◆P❎⇨פ∈◆P❎❎פ ◆P❎◆פR◆P❎⇧פä⑨:;;EXIT >b}INITIALIZATIONà❎X;å❎X;ç'X;SUBROUTINE PLAYERS:THIS SUBROUTINEêX;BUILDS THE PLAYFIELD BOARDë#X;WHICH IS IN CHECKER BOARD >c}FORMè❎X;À&çPLAYERSQ>✓P;;HORIZ POS OF PLAYER 0Φ◆P❎ סəQ>✓p;;HORIZ POS OF PLAYER 1L◆P❎⇧ס~Q>✓É;;HORIZ POS OF PLAYER 2ã◆P>d}❎⇩סΓ#%>✓0;;VERT OFFSET OF ALL PLAYERS④-âPL1$>✓◆;;(SIZE-1) OF PLAYING BOARD SQUAREF$âPL2Q>✓כ;;VALUE FOR CHECKER BOARDx
PäP>e}L0R8¬
PäPL1R8ץ
PäPL2R8.Q>✓3;;VALUE FOR CHECKER BOARD ONE ROW LOWER@PäPL0R②✓✓8rPäPL1R②✓✓8ñPäPL2R②✓✓8ש⑥3;;NEXT PLAYE>f}R BYTE✓ "0;;NEXT LINE OF SQUARE OF BOARD: #IâPL2;;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!!DâPL1;;ELSE CREATE ANOTHER ROWΩ$②:;;EXIT PLAYERSδ$❎X;∮$ X;ADD401:THIS SUBROU>h}TINE ADDSϕ$X;40 OR 1 TO POINTER TEMP10∈$❎X;%♪åADD401,N%♪QåTEMP10Ç% OçTEMP140Ø%♪PåTEMP10Σ%QåTEMP10②✓⇧⑥&◆O>✓ H&PåTEMP10②✓⇧z>i}&⇦:{&❎X;|&%X;SUB401:THIS SUBROUTINE SUBTRACTS}&X;40 OR 1 TO POINTER TEMP10~&❎X;¼&♪åSUB401;∧&♪QåTEMP10⓪' SçTEMP140B'♪PåTEMP10>j}t'QåTEMP10②✓⇧ª'◆S>✓ ן'PåTEMP10②✓⇧
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>✓◆פ(FâPR7;;BRANCH TO MOVE RIGHT⇦)◆R>✓♪6)FäPR11;;BRANCH TO MOVE LEFTh)◆R>✓Ü)FäPR13;;BRANCH TO MOVE DOWNכ)◆R>✓>m}³)FäPR14;;BRANCH TO MOVE UP0*
:;;EXITb*&äPR13QåTEMP10②✓⇧;;TEST CHAR POINTERö*!R>àLEV14⑤◆ ⇧;;POS TO SEE IF ITה*⑧DàPR13A;;IS O>n}N LOWEST°*QåTEMP10;;PLAYFIELD LINE*+R>àLEV14⑥╱¯\+
DàPR13AÄ+⇦:ij+"àPR13AQ>✓(;;# OF BBYTES PER ROW≥+$!àMOVE1;;JMP TO MOVE POIN>o}TER DOWN$, âPR7QåTEMP10②✓⇧;;TEST POINTERV,"R>åBOTTOM⑤◆ ⇧;;POS TO SEE IF ITê,DäPR7A;;IS IN LOWER RIGHT´,QåTEMP10;;LIMIT OF P>p}LAYFIELD∮,R>åBOTTOM⑥╱¯- DäPR7AP-
:;;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|.(äPR14QåTEMP10②✓⇧;;TEST POINTER POS TO«.!R>åLEV14A>r}⑤◆ ⇧;;SEE IF IT IS ONα.DäNOMV;;UPPER PLAYFIELD LINE②/
FàPR14BD/ə!àPR14A;;IF NOT,MOVE UPv/àPR14BQåTEMP10;;SAME AS PR14¿/R>å>s}LEV14A⑥╱¯ם/ DäNOMV 0
!àPR14A>0⑧äNOMV:;;NO MOVE(EXIT)p0!àPR14AQ>✓(;;# OF BYTES PER ROWó0"!àMOVE2;;JMP TO MOVE POINTER UPק0(äPR>t}11QåTEMP10②✓⇧;;TEST POS OF POINTER╱1R>âTOP⑤◆ ⇧;;TO SEE IF IT IS81DäNOMV;;IN UPPER LEFT LIMITj1⑧FàPR11B;;OF PLAYFIELD£1"!àPR>u}11A;;ELSE MOVE POINTER LEFTמ1àPR11BQåTEMP10;;SAME AS PR11 2 R>âTOP⑥╱¯22 DäNOMVd2(àPR11AQ>✓⇧;;USE 1 TO MOVE LEFT 1 BYTEû2/àMO>v}VE2 àMOVE3;;RESTORE CHAR WHERE POINTER ISז2$ åSUB401;;MOVE POINTER LEFT OR UP·2 àMOVE4;;DISPLAY NEW POINTER,3
:;;EXIT^3,àMOV>w}E3PçTEMP140;;SAVE 1 OR 40 IN VARIABLEÉ3!QàTEMP1②✓⇧;;LOAD OLD CHAR HALFא3P@åTEMP107;;SAVE IN OLD POS⌠33;;NEXT BYTE&4&QàTEMP1>x}②✓⇩;;LOAD OTHER HALF OF CHARX4P@åTEMP107;;SAVE IN OLD POSè4
:;;EXIT¶4⑥àMOVE4%>✓ ;;CLEAR Y∈4⑧Q@åTEMP107;;LOAD CHAR 5⑧PàTEMP1②>y}✓⇧;;TEMP SAVER5əQ>╱F;;DISPLAY LEFT HALFä5P@åTEMP107;;OF CHAR POINTERÀ53;;NEXT BYTEΦ5⑧Q@åTEMP107;;LOAD CHARə6⑧PàTEMP1②✓⇩;;TE>z}MP SAVEL6Q>╱G;;DISPLAY RIGHT HALF~6P@åTEMP107;;OF CHAR POINTERã6
:;;EXITõ6❎X;Ø6❎X;ø6X;DELAY:SUBROUTINE FOR DELAYœ6❎X;Γ6əàD>{}ELAYQ>✓¯;;DELAY VALUE④7✓PâDA1F7âDL1QâDA1②✓⇨;;DELAY VARIABLEx7♪PâDA1②✓⇧¬7âDL2"âDA1②✓⇧ץ7✓HâDL28✓"âDA1@8✓HâDL1r8⇦:s8❎X;t8❎X;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 Az8①X;NEW POSITION{8❎X;ñ8,êJOYSTICKQåTEMP10;;SAVE STARTING POSITIONש8əPäR>~}EM1;;OF MAN THAT HAS✓9QåTEMP10②✓⇧;;BEEN SELECTD:9⑨PäREM1②✓⇧;;TO BE MOVEDl9!Q@àTEMPS7;;LOAD JOYSTICK VALUEס9③R>✓;;TEST VALUE>}⇩:.FçSTICK15;;BRANCH TO DISP FRONT VIEW OF MAN4:%PàTEMP1②✓⇨;;SET FLAG FOR MAN MOVEDf:⑥R>✓◆;;TEST JOYSTICKÿ:%FåSTICK7;;BRANCH >Ç}TO MOVE MAN RIGHTט:⑥R>✓♪;;TEST JOYSTICKⁿ:&HåNEXTJY;;<> TEST WITH OTHER VALUES.;!çSTICK11;;JMP TO MOVE LEFT÷;åNEXTJYR>✓(<!H>ü}åJOYS13;;BRANCH TO TEST VALUEZ< !çSTICK14;;JMP TO MOVE MAN UPî<åJOYS13R>✓®<#HàENDJY;;IF NOT ABOVE VALUE EXIT≡<"!çSTICK13;;J>é}MP TO MOVE MAN DOWN"=⑨àENDJY:;;EXIT JOYSTICKT=5çSTICK15$>✓⇧;;POINTER TO FRONT VIEW OF MAN DRAWINGå=àUPDN0%>✓⇧Õ=3äUPDNQêTEMPC>â}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Ç>QêTEMPCHAR9;;LOAD DRAWINGØ>'P@åTEMP107;;SAVE IN PLAYFIELD MEMORYΣ>
:;;EXIT⑥?3åSTICK7Q@åTEMP107;;LOAD BYTE IN PLAYF>à}IELD MEMORYH?;RêTEMPCHAR;;TEST TO SEE IF IT IS A MAN FRONT VIEW OF MANz? HéC6;;IF NOT,CONTINUE TO TEST¼?#$>✓◆;;SET POINTER TO>å} MAN DRAWING∧?"!àUPDN0;;JMP TO CHANGE/MOVE MAN⓪@/éC6RêTEMPCHAR②✓╱;;CMP WITH CHAR MOVING RIGHTB@HéC8;;IF <>,CONTINUE TESTINGt>ç}@.$>✓ ;;SET POINTER TO CHANGE MAN WITHIN BYTEª@!!àUPDN0;;JMP TO CHANGE DRAWINGן@4éC8RêTEMPCHAR②✓✓;CMP WITH CHAR MOVEING RIGHT>ê} INTO
AHéCC;;THE NEXT BYTE TO RIGHT<A%Q>✓⇩;;USE 2 TO SET POINTER(TEMP10)nA PçTEMP140;;TWO BYTES TO RIGHTáA♪ åADD401פA⓪%>✓ ;;>ë}CLEAR Y⇦B"Q@åTEMP107;;LOAD PLAYFIELD BYTE6BFäC122;;IF = MOVE MAN RIGHThB3QêTEMPCHAR;;ELSE DETERMINE IF TROLLS OR WIZ TURNÜB>è}R>✓⇧;;IF 1 THEN TROLLS TURNכB⑧HâC1C;;ELSE WIZS TURN³B çPREWAR10C çSUBWAR2;;JMP SUB TO FIGHTbC
:;;EXITÄD&âCCA åSUB401;;ELSE RESTORE (TEMP10)ijD◆éCC:≥D"äC122 åSUB401;;RESTORE (T>î}EMP10)$E⓪%>✓ ;;CLEAR YVE⑧Q>✓ ;;LOAD 0 TO CLEARêEP@åTEMP107;;PLAYFIELD BYTE´E⑨%>✓⇩;;SET Y TO NEW POS∮E⑨$>✓◆;;LOAD CHAR OFFSET>ì}F% äUPDN;;JMPSUB TO DISPLAY NEW VIEWPF◆Q>✓⇧éF PçTEMP140œF+!åADD401;;ADD 1 TO TEMP10 TO SET NEW POSµF*çSTICK11Q@åTEMP107;;LOA>Ä}D PLAYFIELD BYTE⑧G)RêTEMPCHAR;;CMP WITH FRONT VIEW OF MANJG#HâC6A;;IF<> CMP WITH OTHER CHARS|G-$>✓⇨;;LOAD CHAR OFFSET FOR MAN>Å} MOVING LEFT«G#!àUPDN0;;DISPLAY MAN MOVING LEFTαGCâC6ARêTEMPCHAR②✓⇩;;CMP WITH CHAR FOR MAN MOVING LEFT WITHIN BYTE②H)HâC8A;;I>É}F <> THEN CMP WITH OTHER CHARSDH6$>✓❎;;ELSE LOAD CHAR OFFSET TO MOVE MAN WITHIN BYTEvH!!àUPDN0;;JMP TO CHANGE DRAWING¿H9âC8AR>æ}êTEMPCHAR②✓⇦;;CMP WITH MAN MOVING LEFT TO NEW POSםH⑨HâCCC;;IF <> THEN EXIT IQ>✓⇧;;VALUE TO BE SUBTRACTED>IPçTEMP140;;TEMPOR>Æ}ARY SAVEpI, åSUB401;;MOVE POINTER TEMP10 LEFT 1 BYTEóI"Q@åTEMP107;;LOAD PLAYFIELD BYTEקIFâC82;;IF = THEN MOVE MAN╱J5QêTEMPCH>ô}AR;;ELSE DETERMINE IF TROLL OR WIZARD TURN8J$R>╱⑦;;CHAR $17 IS 1ST WIZARD CHARjJ#HâC2C;;IF <> TEST FOR TROLL TURN£J$ çPREWAR2>ö};;JMP TO SAVE TEMP10 POSמJ+ çSUBWAR1;;JMPSUB FOR ATTACKING SEQUENCE K⇦:2K%âC2CR>✓⇧;;CHAR 1 IS 1ST TROLL CHARdK!HâC4C;;IF <> T>ò}HEN RESET TEMP10ûK' çPREWAR2;;JMPSUB TO SAVE TEMP10 POSזK+ çSUBWAR2;;JMPSUB FOR ATTACKING SEQUENCE·K⇦:,LâC4C åADD401;;RESET >û}TEMP10^LâCCC:;;EXITÉLâC82$>✓⇨;;LOAD CHAR OFFSETאL$ àUPDN0;;DISPLAY NEW VIEW OF MAN⌠L⑦C;;LOAD ACCUM WITH 0&M)%>✓⇩;;SET Y TO>ù} POINT TO OLD POS OF MANXM P@åTEMP107;;CLEAR OLD DRAWINGèM⇦:¶M/çSTICK14Q>✓(;;VALUE TO CALCULATE 1 ROW ABOVE∈MPçTEMP140;;TEMP>ÿ}ORARY SAVE N åSUB401;;CALCULATE NEW POSRN(Q@åTEMP107;;PLAYFIELD BYTE IN NEW POSäNFâUP0;;IF= THEN MOVE MAN UPÀN1âE01QêTEMPCH>Ö}AR;;ELSE DTERMINE WHOSE TURN IT ISΦN'R>╱⑦;;CHAR $17 IS 1ST WIZARD DRAWINGəO HäJE14LO' çPREWAR2;;JMPSUB TO SAVE TEMP10 POS~O >Ü}çSUBWAR1;;JMPSUB TO FIGHTãO⇦:ΓO.äJY14Q>✓(;;VALUE TO RESET TEMP10 TO OLD POS④P⑦PçTEMP140;;TEMP SAVEFP⑨ åADD401;;RESET TEMP10xP>¢}⇦:¬P)äJE14R>✓⇧;;CHAR 1 IS 1ST TROLL DRAWINGץPəHäJY14;;IF <> THEN EXITQ" çPREWAR2;;ELSE SAVE TEMP10 POS@Q% çSUBWAR2;;JMP TO C>£}ONDUCT FIGHTINGrQ⇦:ñQ⑧âUP03;;SET ROW OFFSETשQ&Q@åTEMP107;;LOAD PLAYFIELD-ROW BYTE✓R,HâE01;;IF <> TEST TO SEE WHAT CHAR IT IS>¥}:R åADD401;;ELSE RESET TEMP10lR1QàCHECK;;LOAD VARIABLE FOR # OF VERT MOVEMENTSßR+R>✓⇨;;IF > 3 THEN MAN CANNOT BE MOVED UPסR>ß}DâUOK;;ELSE OK TO MOVE UP⇩S⇦:4S,âUOK#àCHECK;;ADD 1 TO # OF VERT MOVEMENTSfS⓪%>✓ ;;CLEAR YÿS* åST1213;;DISPLAY VIEW OF MAN MOV>ƒ}ING UPטS& åSUB401;;SET TEMP10 TO 1 ROW ABOVEⁿS⑨$>✓③;;LOAD CHAR OFFSET.T åST1D1F;;CONTINUE TO DISPLAY`Tə åST2320;;MAN MOVING >á}UPÆT④$>✓♪;;CHAR OFFSETגT" åST1D1F;;DISPLAY MAN MOVING UP÷T⑦Q>✓ ;;USE 0 TO CLEAR(UP@åTEMP107;;CHAR IN OLD POSZU⇦1îUP@åTEMP10>í}7®U" åSUB401;;SET TEMP10 TO NEW POS≡U9åST1213QêTEMPCHAR②✓✓;;DISPLAY FINAL VIEW OF MAN MOVING"VP@åTEMP107;;PLAYFIELD BYTETV②3>ó};;NEXT ROW POSåV⓪QêTEMPCHAR②✓ ÕVP@åTEMP107ΩV
àDELAYW⇦:NW/çSTICK13Q>✓(;;VALUE TO CALCULATE 1 ROW LOWERÇW⑦PçTEMP140;;TEMP SA>ú}VEØW" åADD401;;SET TEMP10 TO NEW POSΣW"Q@åTEMP107;;LOAD PLAYFIELD BYTE⑥XFàDOWN0;;IF = MOVE MAN DOWNHX①âE02QêTEMPCHARzX◆R>╱⑦¼>ñ}X HäJE13∧X çPREWAR1⓪Y çSUBWAR1BY⇦:tY äJY13Q>✓(ªY PçTEMP140ןY♪ åSUB401
Z⇦:<Z äJE13R>✓⇧nZ HäJY13áZ çPREWAR1פZ çSUBWAR2⇦[⇦:6>Ñ}[ àDOWN03;;SET Y TO NEW ROW POSh["Q@åTEMP107;;LOAD PLAYFIELD BYTEÜ[#FàDOWN1;;IF = THEN MOVE MAN DOWNכ[✓!âE02³[*àDOWN1 åSUB401>ª};;RESET TEMP10 TO OLD POS0\,QàCHECK;;VARIABLE FOR # OF VERT MOVEMENTSb\④R>✓⇨;;IF < 3 THENö\⑥DâDOK;;DOWN MOVE OKה\:;;ELSE RTS>º}°\,âDOK#àCHECK;;ADD 1 TO # OF VERT MOVEMENTS*]⓪%>✓ ;;CLEAR Y\]+ åST1213;;JMP TO DISPLAY MAN MOVING DOWNÄ]④$>✓♪;;CHAR OFFSETij]>¿} å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|`#QêTEMPCHAR②✓;;UPPER HALF OF MAN«` P@åTEMP107;;SAVE IN PLAYFIELDα`⑨3;;NEXT PLAYFI>¼}ELD BYTE②a-QêTEMPCHAR②✓;;OTHER HALF OF UPPER DRAWINGDa%P@åTEMP107;;SAVE IN PLAYFIELD BYTEva
àDELAY¿a⇦:םa,åST1D1F àUPDN0;;DI>¡}SPLAY UPPER HALF OF MAN b" åADD401;;CALCULATE 1 ROW BELOW>b$QêTEMPCHAR②✓⇩9;;LOWER HALF OF MANpb P@åTEMP107;;SAVE IN PLAYFIELD>«}ób⑨3;;NEXT PLAYFIELD BYTEקb.QêTEMPCHAR②✓⇨9;;OTHER HALF OF LOWER DRAWING╱c P@åTEMP107;;SAVE IN PLAYFIELD8c
àDELAYjc⇦:kc❎X;lc❎>»}X;mc X;JOYST0:LOADS THE ADDRESS OFnc X;OF STICK0 AND TRIGGER0 INTOoc⑤X;PAGE 0 VARIABLESpc❎X;£cəåJOYST0Q>╱⇩;;JOYSTICK 0מcPàTE>ã}MPS②✓⇧ d◆Q>╱x2d
PàTEMPT∈f⇦: g&àTEN12Q>àLEV12⑤◆ ⇧;;STARTING POS OFRg-PåTEMP10②✓⇧;;CHAR POINTER >Ø}WHEN TROLLS TURNägQ>àLEV12⑥╱¯Àg♪PåTEMP10Φg⇦:əh(åTEN122Q>åLEV122⑤◆ ⇧;;STARTING POS OFLh-PåTEMP10②✓⇧;;CHAR POINTER WHEN WIZARD>ø} TURN~hQ>åLEV122⑥╱¯ãh♪PåTEMP10Γh⇦:④i⑨àPLACE%>✓ ;;ROW OFFSETFi"Q>╱F;;LEFT HALF OF CHAR POINTERxi P@åTEMP107;;PLAYFIELD ROW PO>œ}S¬i②3;;NEXT ROW POSץiQ>╱G;;RIGHT HALF OF CHAR POSj%P@åTEMP107;;PLAYFIELD ROW POSITION@j⇦:Aj❎X;Bj❎X;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 MOVEDHj③X;THEN TURN OVERIj❎X;שjåTROLLMQ>✓ ;;CLEAR VAR FOR✓kPàTEMP1②✓⇦;;# OF MEN MOVED.m⑦âTM3Q>✓ ;;0 T>Ã}O CLEAR`m$PàWARFL;;FLAG FOR TROLL/WIZ FIGHTÆm+PàTEMP1②✓⇧;;CLEAR VAR THAT RESTORES CHARגm*PàTEMP1②✓⇩;;AFTER POINTER MOVED OVER>Õ} ITדm⑧äTM13Q>✓ ;;0 TO CLEARהmPàTEMP1②✓⇨וm"#àTEMP1②✓⇦;;ADD 1 TO # OF TURNSזmQàTEMP1②✓⇦חmR>✓❎;;IF <5,TURN NOT OVERטm④EäTM15;>¨};IF >=EXITיm!âTM1;;ELSE MOVE POINTERכm⑤äTM15%>✓ ;;CLEAR Yלm' àMOVE3;;REMOVE POINTER/RESTORE CHARמm
:;;EXIT÷mâTM1 êMOVEPNTR;>´};MOVE POINTER(n
àDELAYîn⓪%>✓ ;;CLEAR Y®nəQ@àTEMPT7;;LOAD TRIGGER≡n*HâTM1;;IF NOT PRESSED THEN MOVE POINTER"o) àMOVE3;;RESTOR>†}E CHAR WHERE POINTER ISTo%QàTEMP1②✓⇧;;TEST TO SEE IF CHAR ISåoRêTEMPCHAR;;A TROLL OR WIZÕo FâTM0;;IF IT IS THEN MOVE MANΩo( >¶}êPLACEMAN;;ELSE TEST TO DISP NEW MANp⑧ àMOVE4;;DISP POINTERNp⑥!âTM1;;MOVE POINTERÇpâTM0 àDELAYØp
PàCHECK¼q④âTM2%>✓ ;;CLEAR Y∧q⑦ êJOYSTICK;;MOVE MAN⓪r0QêTEMPCHAR;;LOAD POINTER TO TROLL/WIZ DRAWINGBr!R>✓⇧;;1=TROLL>®} TURN/22=WIZ TURNtrFêTESTTROLªrQàTEMP1②✓③;;IF= THEN NO WIZןrəHäTM14;;IS ON PLAYFIELD
sQåWIZRDS;;IF NOT= THEN WIZ'S<s⑨FäTM1>™}4;;CASTLE BLOCKEDns②:;;END WIZ TURNás*êTESTTROLQàTEMP1②✓②;;IF = THEN NO TROLLפsəHäTM14;;IS ON PLAYFIELD⇦t#QàTROL0②✓⇧;;IF NOT=>ij} THEN TROLL'S6t⑨FäTM14;;CASTLE BLOCKEDht⑤:;;END TROLLS TURNכtäTM14 àDELAY³tQàWARFL;;TEST TO SEE IF TROL0uHâTM3;;HAS FOUGHT>IJ} WIZARDbu⓪%>✓ ;;CLEAR YöuəQ@àTEMPT7;;LOAD TRIGGERהu&HâTM2;;IF NOT PRESS,JMP TO MOVE MAN*v%QêTEMPCHAR;;LOAD FRONT VIEW OF MAN\>א}v⑧PàTEMP1②✓⇧;;TEMP SAVE$w0QêTEMPCHAR②✓⇧;;LOAD OTHER HALF OF MAN DRAWINGVw⑧PàTEMP1②✓⇩;;TEMP SAVE´w àPLACE;;DISPLAY POINTER∮w>ב}QàTEMP1②✓⇨x FäTM16x
àDELAY x
àDELAY!x
àDELAY"x
àDELAY#x.!äTM13;;JMP TO MOVE ANOTHER MAN OR END TURNPxäTM16 àDELAYéx
à>ג}DELAYœx
àDELAYµx
àDELAY⑧y!â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}╱P✓Mû}QàDLIST②✓╱ז}R>àCAS>ו}TL⑤◆ ⇧;;IF CASTL IS·}⑨HâVB1;;IN DISPLAY LIST,~#QàDLIST②✓❎;;THEN TROLL CASTLE IS^~R>àCASTL⑥╱¯;;BEING ATTACKEDÉ~2HâVB1;;ELSE T>ז}EST DISPLAY LIST FOR OTHER SCREENSIJ~- êFIREVAR2;;JMPSUB TO INITIALIZE VARIABLESא~, êFIREBOMB;;JMPSUB TO FIRE ATTACKERS BOMB⌠~>ח}, êMOVEBOMB;;JMPSUB TO MOVE ATTACKERS BOMB&QêGUNDELAY;;IF FLAG =0 THENXFåNODEC1;;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ü
PàTEMP1~ü, ê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é'HäHIT1;;IF NE THEN DEFENDERS GUN HITâ!âVBB;;ELSE EXIT VERTBLANK@â⑨äHIT1Q>✓ ;;RESET COLOR✓ä④P❎ב⇩;;OF PLAYER 3lä⑤!âVBA;;J>מ}MP TO EXITßä①âVB1QàDLIST②✓╱סäR>àCASTR⑤◆ ⇧;;IF CASTR IS IN⇩àHâVB2;;DISPLAY LIST THEN4à QàDLIST②✓❎;;WIZARDS CASTLE ISfàR>àCA>נ}STR⑥╱¯;;BEING ATTACKEDÿà✓HâVB2חà' êFIREVAR1;;INIT ATTACKERS VARIABLESטà" êFIREBOMB;;FIRE ATTACKERS BOMBⁿà" êMOVEBOM2;;MOVE AT< }
