e`a#_ CHAIN "MENU"e`a###}Migb:50+sV6Wn5ȓAY'HEADER PROTECTED PROTECT'DISKREMOVE'PROTECT PROTECT'FILE DISPLAY'RAM SHOW'SECTORVIEW'BAMALLOCATE'SECTORSTR LOAD'HEADER SECTOR'IO DISK'COMMANDLCMDTRACKSECTORENTRY BUFFER'READCLSD FILE'PROT BUFFER'CHARSGET'NEXT NEXT'TRACK NEXT'SECTORXST B 4CȚ͠E!SEQ FILE'TYPETYPES'ERROR SELECTIONCOMMANDANSWERWAIT'FOR'RETURNBYTESFREEDIS\ #(#2 pM8{#<#F #P !#Z FG#d_KefKef Ke`a#n0_'OU ARE NOW LEAVING THIS PROGRAM.e`a#x._%OU MAY THIS PROGRAM TO SEE HOWe`a#*_!IT WAS WRITTEN, OR IT AGAIN.e`a#0_'OR MORE INFORMATION ON SEND PLAY'HEADER PROTECTED PROTECT'DISKREMOVE'PROTECT PROTECT'FILE DISPLAY'RAM SHOW'SECTORVIEW'BAMALLOCATE'SECTORSTR LOAD'HEADER SECTOR'IO DISK'COMMANDLCMDTRACKSECTORENTRY BUFFER'READCLSD FILE'PROT BUFFER'CHARSGET'NEXT NEXT'TRACK NEXT'SECTORXST Be`a#+_"TO: SERS ROUP, IMITEDe`a#_ 6041 ONONA RIVEe`a#_ ADISON, 53716e`a# _OR CALL: (608)222-4432e`a#-_$F YOU WISH TO GO TO THE MAIN MENU,e`a#*_!TYPE IN THE FOLLOWING COMMAND ANDe`a#_PRESS THE KEY:UFFER'CHARLOCCOUNTOUTC64DUMPFROMTO'ADDYREAD'RAM DUMP'LINETS DUMP'LINESBYTE PRINT'HEXDIGITSNUMBERHEXADDRESSLINE PRINT'ASCIIERR NUM'TO'STRSTRINGDIGITWRTEERR'OK AVAILABLES'BYTES'BIT MAX'TRACKLANDNUMMASKBACKGNDPRNTCHECKPRGHALTTHE BUFFER.z# SET PROTECTED TO TRUE OR FALSE FOR THE PARTIULAR DISK._ :efa   _`a _:efa   _`ah *,i_DISK - e`a C:n) _DISK - e`a  D: o $OPEN FILE 2,"/S2"D   } pt{~} p j{ WRITE AN INCORRECT DOS IDENTIFIER TO THE DISK AND! MARK THE DISK HEADER WITH AN ASTERISK. M-WK(K(K(E(<$ . M-WK(K(K(*(: r$ | _)ega }5  p0r9x:| 5 9 _:efa $ 5 :$ $g _:efa $ ; :$ $ _`a }0   p;Nr4{ & h4 *i 0_ef4@'Kefefa :mJ4*408i& D_ef4@'Kefefa   $G'K<| @$'$'K<~oC  !*#09D    h C,j } p!,u"u#{ GET POINTERS TO THE NEXT" TRACK/SECTOR IN THE SEQUENCE. " : # :}!& D   B# )$  )    `֞#(4Ϟ2 B4 $4'K<<4FP/_& RACK 11111111112222222222333333e`aZ._% 12345678901 &DN4XblovE FysGsH| G H F | IP!; J; I_ efa h` h hL _efa* w 4 > $H JR$ } . 8 pr*| B+ LROM ADDRESS: , V O ADDRESS: - ` ,,&G@ j --&G@ t.,- ~$ؗ  +$ /$.' *: $ 0.+ . _`a NTER RETURN FOR MENU }  p|  <8 B LC   V} `j pM{t RESTORE CORRECT DOS IDENT~ AND REMOVE MARK FROM THE DISK HEADER. M-WK(K(K(A(<  M-WK(K(K(A(<  M-WK(K(K(K(< NnJ X _4Kefa bh4",j lo v};  p| $RACK, ECTOR (-1=ALL) 2 1 < = 1 h4i = 2 B-A:0,1(,(2(~ _e`a nm :  = 2 B-A:0,1(,(2(~  << 0 r$|: %D! RETURN THE VALUE OF THE X THN# BYTE IN THE DRIVE'S RAM BUFFERX NUMBER 2 ($0500-$05FF).bM-R$K(K(~l %<v h%-iٔ n%Io p& r$|  $}& p r'r(| )( DI234567890123456789012345e`adn )$<xC%G';D&G";_##bfa _efa EC;. BCI;. F.D; hK7i h.,i _+efan _ efaonD  hBCDMQSVZں@6 bDAy DB¦&DCæ0   :DDĦčDDNDMͦ܍XCbDSӦlvDV֦ DDZڦ"D@:CDRACK,SECTOR: 12 D 12 3  #RETURN FOR REST OF SECTOR 3  RETURN FOR MAIN MENU } ( 2 p3+r,r-| <+ F.$,- P$ Z +$ /$.' D: d$ n0.& + x.٘C   }pzr |    M-WK(K(K(K(< ADD NO SCRATCH IDENTIFIER TO INDIVIDUAL FILES ON( A DISK.2_efaPAGE<F::BPZD dkn  $**h <003 <6638j_ <66- Ho RRETURN FOR MENU \} f p p=r7w>| z ?  ? 0123456789<  ><   > ?7 &G'>(< 77 %: 7,Ɯ }=  ps@ssvA| 1 SPLAY COUNT CHARACTERS IN" DRIVE BUFFER 2, STARTING WITH  THE LOC TH.M-R'K(K((K(~  )<* _)efa4} >H p -u {R CLEAR THE CHANNEL TO #2 AND\# OPEN THE DIRECT ACCESS CHANEL.f THEN LOAD THE DISK HEADERp# FROM THE DISK INTO i*" _efa,n6 h.,iG@ _+efaJnTC;^C h hiwr _efa|n _ efaoooo_`a:RETURN FOR MENU} E<s| h*i#n8 & 40: 4Q6I0~M PROCEDURES  pt| _e`a*4>  K-H}R\ pe{f MOVE THE DISK HEADER INTOp A RAM BUFFER IN THE DRIVEz VERSION 0.14 BELOW#2 VERSION 2.00 BELOW }3  /s$r.| 4 h.i^ $ n M-R$&K($%K(~  4< h4-i  n 4I o o / " , p5:r6r7| 6 8 @ 80123456789ABCDEF< J ) T$*6$ ^ ) 87&G')(< h 77%G':xD:D: h0ik ):C:o h?0iC: @):o h0ig  $G'  hiȒ _ efanؒ _*efao" _ efa, hi6 _ ._% e`a _ e`a +.SPROTECT  < @;$+.L 24 BYTES OF THE ENTRIES. ORT DIRECTION (><) MAY BE SET FOR EACH BYTE: '>' MEANS 'A' WILL PRECEED 'B' AFTER THE SORT. 'WIDTH' (1-24) IS THE # OF CHARACTERS USED FOR COMPARING ENTRIES. '1ST' AND 'LAST' GIVE THE ENTRY SORT RANGE. 'SPECIFY' ALLOWS THE OR ._%ILE HAS NOT BEEN DELETED. e`ao}H#(#2 pLl{#<#F #P !#Z FG#d_KefKef Ke`a#n0_'OU ARE NOW LEAVING THIS PROGRAM.e`a#x._%OU MAY THIS PROGRAM TO SEE HOWe`a#*_!IT WAS WRITTEN, OR IT AT/OWELL ISK ROGRAM *e`a60_'* ERSION 3.3 *e`a@0_'***************************************e`aJ  T _ [] PROTECT DISKe`a^ _ [] REMOVE PROTECTe`ah_ [] FILE PROTECTe`ar!_ [] DISPLAY  e`a|%_ [] ISPLAY -64 MEMORYe`a_ [] QUITe`a_ [] HOW SECTORe`a_ [] IEW e`a!_ [] ALLOCATE SECTORe`a#_ [@] CHECK ALL SECTORSe`a_ df YTES REEe`a <K3  A : SOME LETTERS STAND FOR DIFFERENT OPTIONS WHEN SHIFTED. : 'R' READ DIRECTORY OF DISK IN UNIT 8, DRIVE 0 '' LIST A RANGE OF ENTRIES 'L' LIST UP TO CURRENT ENTRY '+' ADD 1 TO CURRENT ENTRY '-' SUBTRACT 1 FROM CURRENT EN SMUNPROTECT8  - ;B+LShRESTOREVH` Sj h(%*it (=~ ( ( _efa+.o S h(0i (@ ( ( _efa+.o SDER AND DIRECTION OF SORTING TO BE SET; THE LETTERS A TO X STAND FOR THE 24 BYTES: [A=FILE TYPE; B,C=TRACK,SECTOR OF FIRST BLOCK; D-S=FILE NAME; T,U=TRACK,SECTOR FOR THE FIRST SIDE SECTOR OF A RELATIVE FILE; V=RELATIVE FILE RECORD LENGTH; W,X=58 00-ibU1:4,0,(,((~I  :"J  :,o6à@h 003iJ.T/_&ILE CANNOT BE RESTORED e`a^nҡh  < ;ro|  < ;U1:4,0,(,((~+m  DELETE"0:DISK'EDIT/PROTCT" BY GLEN COLBERT SAVE "0:DISK'EDIT/PROTCT"(2 GLEN COLBERT - SLC UTAH< DDITIONAL OPTIONS BYF AVE OWELL, OVEMBER 1984PZd0n xSEQPRGUSv )@ h)*j): . aΜSAVE DATA    _ Kefa  ' _ efa [  U2:4,0,(,((~ a RESTORE DATA  ( ( + . a KWEXECUTETRY '' SET NEW CURREN ENTRY 'I' MAKE SPACE TO INSERT ENTRIES 'D' DELETE ENTRIES (OLD ENTRIES SAVED AT TOP) '' WRITE ENTRIES, 1 TO HIGH, TO UNIT 8, DRIVE 0 'E' EDIT AN ENTRY 'S' SWAP 2 ENTRIES 'C' COPY ONE ENTRY TO ANOTHER '' SORT ENTRIES 'P'I I0~   ( 2L<SFPZadnxDG}* pHL{h *i 'I  :J  : < 00-I8f I JB-A:0,(,((~ <hLOW BYTE,HIGH BYTE OF FILE LENGTH]. E.G.:'WIDTH'=1, ORDER="A...", DIRECTION="<..." WOULD SORT BY DECREASING FILE TYPE GROUPS. 'NAMES' SETS A DEFAULT ORDER WITH D-S AT THE START AND ALL DIRECTIONS = '>' OU CAN PROTEC 1541 IRECTORY DITOR BY OBERT OSS HIS PROGRAM IS A DIRECTORY EDITOR FOR ALL 1541 COMPATIBLE DRIVES (1541, , NDUS, ETC). T WILL ALLOW YOU TO READ A DISK DIRECTORY INTO MEMORY, MANIPULATE IT (SORT, ADD, DERRELD;  $   ! F G+#NSERT DISK, THEN PRESS RETURNI0~ hI02i_ DISK ERRORe`ao  :_efaPAGE"0_'***************************************e`a,0_'* OLBER COMMAND )4 * SCHANGE NAME & TYPE 4    >: H_ ENTER NAME:ef efa R     \:  f Q*  K(< p F: zF0 qF K-8  qFK< F@ ʝ    (_ENTER F PROTECT RANGE OF ENTRIES 'U' UNPROTECT RANGE OF ENTRIES 'Z' ZERO A RANGE OF ENTRIES 'H' SET HIGH ENTRY '' HELP SCREEN '/' USUALLY STOPS PROGRAM 24 DATA BYTES ARE STORED FOR EACH ENTRY. ORTING MAY BE DONE ON FROM 1 TO AL 00-ibU1:4,0,(,((~I  :"J  :,o6à@h 003iJ.T/_&ILE CANNOT BE RESTORED e`a^nҡh  < ;ro|  < ;U1:4,0,(,((~+.nH.T PROGRAMS FROM BEING SCRATCHED OR DELETED WITH THE 'P' OPTION. O DO ONLY ONE ENTRY, GIVE THE SAME NUMBER FOR THE FIRST AND THE LAST OF THE RANGE IDENTIFIER. OU CAN UNPROTECT THEM WITH THE 'U' OPTION. ELATIVE FILE; V=RELATIVE FILE RECORD LENGTH; W,X=m6/_&HANGE PROGRAM NAME AND FILE TYPE e`a@ ԔJ/_&ROTECT FILE FROM BEING SCRATCHED e`aT Ԕ^/_&LLOW FILE TO BE SCRATCHED e`ah Ԕ!r/_&ESTORE A SCRATCHED FILE e`a| Ԕ\._%B >  ?: }  pwCsBr>u?|  C< B C >?K< }   END OF DISK GET ROUTINES  " p,rD{ , D'  6  @hD,j J _ Defa T  ^}, h r p*m{ | MAIN COMMAND LOOP  ## !) DDELSEQ"PRGBUSRbREL******®***Ҍ ⫴I0~$# U1:4,0,18,0~ B-P:4,144~    B-P:4,162~& H /AR {\\]8f{p] 7z]}69grr:r;|" SET UP MACHINE CODE TO RESIDE BETWEEN THE SCREEN AND THE SPRITE POINTERS.   ; :  _Kef ef ! &efah %i{_ ,efan$ ._ ,efa8 BoLh - @iېV `_PRO e`aj tn~_UNPRO e`ao 1_(efa_    _efa + .   "< "[ aDOWN E: = h0j: ,E , aߛUP E:  @ &h*j: 0,E :, DaRIGHT N )= Xh)0j): b. laDLEFT    DIRECTORY MANIPULATOR COMAL TODAY ISSUE #3(::B:B:B2 !< F GF P_KefKe`aZC_:NSERT DISK TO WORK ON IN DISK DRIVE AND PRESS ANY KEYe`ad I7nD_KefKef/LEASE WAIT WHILE DISK OTO NEXT BLOCK (WITHOUT SAVING) e`a Ԕ/_&OTO PREVIOUS BLOCK (WITHOUT SAVING) e`a Ԕ/_&UIT PROGRAM e`a}.pr/w0r1|2:CURRENT PENCOLOR$3P!):CURRENT BACKGROUND   05 ::B  :B  :B%:B:FIND LINKS TO BLOCKSD  N XU1:4,0,(,((~b B-P:4,0~l&  :v'  : %= %&: %': &:':       ` $ .  89 B L -rr:| V 9:) `- j t <rr:| ~ 9:  <  =ܘrr:|  9:I =  4 DISK GET ROUTINES FOLLOW:  >>VERSION 2 - FASTER SKIP  RESS efa  _1 efa %_TO SAVE CHANGES TO DIRECTORYe`a_RESS efa  _3 efa  "_TO CANCEL PRESENT CHANGESe`a}+( p.ؔ{2  ' < _KefaF Ph),jZ_ efad nhY ON THE COMMODORE 64. EXTRA COPIES OF THIS VERSION MAY BE MADEWITHOUT FEE. DOCUMENTATION IS PROVIDED BY THE COMAL HANDBOOK BY LEN LINDSAY, PUBLISHED BY RESTON PUBLISHING:703-437-8900 A MUCH MORE POWERFUL AND EXPANDED 2.00VERSION WITH APP. 30 K B DIRECTORY IS LOADEDe`ax pr{ B-P:4,(~} p r r | )G($'G% )G($'G& ) )}  p ʋr r{ :   "U1:4,4':5':B3SAME AS BACKGROUND NEXT CLEAR TOP 12 POSITIONS_KefaHOME CURSOR _ efa&_KefaHOME CURSOR0 /ԕ:  CONVERT TO NUMBERD h0-i N 0NV<Xnb _0efalov F CONVE,%09 %@(::B):B* p+֑{ _Ke`a      _ e`a_:efKefa *_efKefa4 > _:efaH R _efa\ f   p _#efaz yr>u?| >   ?: VALUE OF CHARACTER  ( 2 p$| <@ FA P @A Z@ d ƫЙ n ϭЭ x ̭` }$  pHrBr>u?| ),jx_ efa h),j_ efa h),j_ efa h),j _+ efa h),j _- efa h),j _e`a " )1, Ԕ^YTES OF WORKSPACE WILL BE AVAILABLE EARLY 1984 FROMCOMMODORE BUSINESS MACHINES. ODORE 64 COMAL-80 REV. 00.14 $$$ COPYRIGHT 1983 COMAL USERS GROUP (USA) WRITTEN BY UNICOMAL APS DENMARK PERMISSION GRANTED TO USE THIS VERSION UNCHANGED, ONL0,(,((~,Ë6  @   ;Jh  iT  ^   h:ro|T} ,0 !"RT TO STRING _1dfa CONVERT TO CHR$h141.8i _1Kefan 0NV<o 0NV<NOT VALIDh0NV3iЖ6/ 01o2BACK TO ORIGINAL  54} *p6r/w7u8|4_KefaHOME CURSOR>]_##b(fa_ ef%d`a 1_(efa+_" e`a0_'---- ---------------- ---- -----------e`a   ' _df] efa, HS|EPw Fz LzCLr|6)q|e||} 7 7)2}; |: LcC| END AT STOP AT k| 1IJ 0|}y `ʩ8 1|Ȫ| 0:  >  y y 1ihh L/F|F`0 n kL-|}jI-vjvj1 lo1LMuLuLu 7 7)L|1H) ܅+݅,ޅ-߅.h o uj+vj,Lu/0 oЬ k/ o/ loLu/ o/0 o0 loLu0 o0}jie,,+Lu11LMuL-| 3mwjujxjvj{jyj|jzjj ;     = =   #$  &fsssuuuuuuttttttttttttknpxwv-mmoyy||zz}}{{~~$03hhhiiijjlQ WWs4 &((,??uCDFGLNH7SKul#MM8:::::: H!!hOI//ssskut1u=Uk"J11Tuu5 uuu9uuu>%u ˈj ٠ }ʠ }ʠ ׻ 9وψψوψIЈj Ԡ }Ϡ }٠ ׻ʈԈLx6 6L-|L|CCCCCDDDDEEEEGGGGGGGGGGGGGGGGGGNyNNNNNNOOOOOOOOOOOOOOOPPPPPPPPPyPPyPPQPyQQQQQQQQQQQQQyRRyRRRRRRRRRdRSSSSySTyyTTTTJyyyyyyyyyyyTbUjUVVVVVWWX J( JLÂL uLa,, [ u La uLv,,00 u La,,0 u LK,,0 u 0 u F|F00 L La $, ۄLa Lv $ La rLP u` KLiMLK`K MMKLrK8LKHKhK` $$$ COMMODORE 64 COMAL-80 REV. 00.14 $$$ COPYRIGHT 1983 COMAL USERS GROUP (USA) WRITTEN BY UNICOMAL APS DENMARK PERMISSION GRANTED TO USE THIS VERSION UNCHANGED, ONL 8O}N}0ڭ`d ̠ ׻ ̠L[ ?:; ?<= ?>@?A89 )0L} ,  L, a]iYaLj aKiGaLS a8逍i 8mP0&aL+ i8逍 j }̠ ׻ d 8 }j }j ׻ /~ ~e,xjd+wj̠ k 09 } j }j ׻ /~ ~e.|jd-{jj xm wL-| 9j } oj ׻ xL-| 9 j } oj ׻ xL-| \mH Imh =lLvlL-|jL-|jL-| =m L-| 9 9LvuulB6PmoVuu]uu]uu ]uuu_R2]u9VZ[\u^uu                            K)|zȄFFz) uKL`|FFȱ|8XXyXXXYYYZyy[y[[[\C\b\\y\\\\\]]]Cyyyy]]]]_______```yeyy\\``yaaaaay_yyybbyiyydycyyyyaaaabbbyycydTTyTTybbybcyyyrrtu5P A\kkkkkk - 5Akw&2>JVYo).o &/a;G)HȆy,/Y\_gjmux{#*4:Qcilu&),:@CFX[^nqtCΥ)JJJJJJeFFL KKM8}LMLL`KKL`34 څ`1FF|<3=4 څ1 $,# `223q3343432Kȱ3M  co?+ ZoL-| 3m 4?H Im coh +w?H Zoh l =lЭlЍjL-| =mH Imh'L-| 9 ~dyjezj 9 ~dujevj Im sL-| 8zjzjyjzjzjvjivjujiuj ujvjvjЭuj lLt=l` \mH \mH Imh a"L|88P0L|aLL} io wa`03ȩM~ [LL|f0Lqaf0LLR~iaf`N ׻n ̼N [ XL~ H l~N } R~hJ `̠ ׻ kѠ ׻̠ dѠ ~`aɐfb LL|f0 a 9 9Lu****** `,jL-|,j  w x.L-|)L-| 9f0j [ j ׻ xL-|Lp 3m @p x wL-| x w.Э)Э)Э) co Zo `j)8xj vjwjuj8|jzj{jyj s`j vjML!RW)?H#H`La ۄKFz |MFMK uLa,, [La,, La,, L u uLa rLa r uLa  r uLa rLa r uLa LaK(MMK r La r La $ ↆɆ&[lo\_z^Ɇ.s{j//;>lj$nfffgcyhyhyhhhhyiiycgypppypyqyqyqyqryrysysysytytytytytyuyuyyvyvyvvywyywywywwywyywwww< Z@s{چ†˅@M_23MK`KL383Ke3K84i1Ke3MMʈ14K3MM3`|eF}i FiF;F|ȱ|ȄF ݽ-KM-ʊMȄK`K"M3F|ȅ|M"M33"M3MKF` ,,,(,)lL3t=lh lLHt=lL-| Im=lЍjL-| =m& =m%L-| 8 L-| 3m nujwjvjxjyj{jzj|j p wL-| 3m nuj+vj,yj-zj.wjujxjvj{jyj|jzj+wj,xj-{j.|j pj xm wL-| 3m n oʊ 9L-| 3mɑLL| o ķ `S`aȘ0m`     <01234567899#%&  HIJ ):j ,-.  zjujyjnjxj?L x y y y Xx卯jkj` co? +wL Zo`8zj evjJJJevj)LlL`j j }Š ׻ d⩠j }Ԡ ׻ 9Š k⩠j }٠ ׻ /~ ~ei .di- 9 /~ ~ei ,di+ xm`ԈʈʈԈʈI r La La     $La r u: La r uLa uL $ uLa  ۄLa  ۄ La,0  0 u La,0  0 uLa0 L $ La,0LǃK8LLh|Iȱ|JI+ J,LgI- ٥J. ˁ)//IJ 0 /)  M' ȭ((/i  )/|e||}  L5g A@ H >h A 96 6H >h  9 @L-|K B ` 0  8L  8ȥ  =L-|A@ A 9L-| B7) 07)7A@yvGʊIe@@AhhL|` ?L-| 9̠ ׻ @A@i@A  L-| F? @A@ie!@A !jj`!) co! ? !؅!  ! Zo}j؅! !` k k`8vjjujjmjmj8zjjyjjmjmj``lj kв!) l) }j*͆ l) `=lLl=lH͆ 8 ȥ! 8 A@A!L| .@L-| 9A@-ȱ@.ȱ@/-@A .@-!L|A Bf0 X̠ ׻ .  6~Ѡ ׻̠ } /~ ̼̠ ׻Ѡ - 6~Ѡ ׻̠ [0.8e-e/* `BLe-e.Ѡ  JJJJL$o=l Zo!)`ݼlݴl Zo)`) `) `1H) ujܭvjݭyjޭzjh1`Lz9}jIe,vj+uj-yj.zj oM!)`+uj,vjLo.izj-iyj+uj,vjLo8.zj-yjLoj } pj } p0`af`wjxj j  `)L>r  L>r)? &0 &0 &0/0 Ѕ0/ Zovjivjujiuj+,.-.-.LqL-| 3m ?k x wL-|~jjjjjjjj@jjȍjj` \mЍj Imj=lLPLP \mЍj Imj=l F?+, Lp!@ 4? & & & & & & LC > :; ?<= ?>? ?89 0Llh  LC > g}LC ,L-|y) L|y|}LS|8B@CA hh 1L-| BYTES FREE. ݽ 1` 1i 1y)y8|9}jLcC:+;,< ! ! !LNa L-| 9L-| 4?A@@AL-| 9 ~Ad@ȥe@@AL-| 4?A@AL-| aL-| 8ȩ`R,W,A+ ? , q?+ q? DLb+W, 4? L|B > GL-| hLl)͆ ) hlLlJJJJ͆ !)!hlLl) ) hlLl@ ??@@ 00 zj) & &e & & &zj)evj)emuj}jI-vj JfJfJf ؅` Ѡ ׻̠ Ѡ [0Ѡ } ̠ ׻LSe. @ @Le  `BLei0 `B.. . `BL>e .@L-|H >h  F? !L|:L ȱP  L-|DȱSL-| |{H{H` |׻{j|j j ׻`jmjxjjm~jwjNwjnxjjmj|jjmj{jN{jn|j pj j ׻` 4?H)L|h}j rtj ?k @p jjjjj卯jkjj j ׻ wL-| 3m jL-| kL-| r 9 ~dyjezj fm k]yjjzjj 9 ~dyjezj fm k9zjijyL_ + !,q@i@A+, 8 ,+,Lp^ 8 ȥ!  󥐝GLu_L|ɫȱȪަCɮL|ɭei iȱȱȄ 9 @L-|ɮL|ȱȅ+,ie@-Ai.8B-C. L|/+=,++i+,ݥ>@?ADBECLb$BB ` =B  +7 ,. ,+ h   о  L-| | 0CLvi 4? F? L|! g}Lh o a ?B L-|SB ?LNb 4?+ ?, q?L q?La 4? 4?A@AL-| 4?H >h L-| bL-|0YH >h Lb`,H 8hȩL-| 9 8   ׻Lc /~ ~dȥe 9 /cLRT /cLRT+$tjdL| 4?eL| 4?L`~HIih` 9a`8zjzjyjyj`8,vj,+uj+8.zj.-yj-/012+,+I+,Ii,+/000-.-I-.Ii.-1202+-/,.%+,-+.,-.12L3n/0M |N +s+t, |M |N +8+s-,t.8-.+s,t +L-| | | | |L-| |+ |, |- |.8/90/:0;'+/ȥ,//q//0,e.,+e-+LfL-|8, ? |+ |, |- |./8|9} B8|:};jij8jjjjjj 9 ~dujevj kfL|vjijujij 9 ~dujevj kխuj~jvjj8jjjj~jjL-| 3m n kL-| =mj.L-| =m!L-| F?+, -!. nvj)vjzj)zj-.L-| kY l!) co ) 0+0+/@/,/@ȥ+@-@.A =L-| 9L-|L-| ?L-| B `L-| F? ! ! !L_,K 0 Fx)H  B `L_o 2m $a  LI`` ̠ LI`:` 1L_ INPUT ERROR +< H 8h+<<<L?j  8ȥ+L-| ]C{544ݭ Э}j  Lj)ЩhЭjЩtjjj`tj5ݭ)Э)ЩЭЍjЩtjj,+ȱ+L/c` > ?A@ȑ@ALg > G ?A@ȑ@A B  v06)O 0 G)@֩ 96 6Lh 4?+ 9 d.e-+-L-| 9 d.e--L&I 9 d!e L@HAH F?hAh@ 8+I8j,Iji k,4+3484330ue.e-06vje0vjuje/ujzje2zjyje1yj8,+Lnvjmvjujmujzjmzjyjmyj kLWn` 9 /~ ~dyjezj fm 9 /~ ~dujevj` k` l co}j=l)H) h`LPLP 4? L|G)@ 4? GL&I ?L-| B  BL-|A@@ȱ@A@L-|e@@AL-| 9 ~dL|deQ 8ePede HBe& B  B B HBe  `BLS L-| 9 ݽ Buv u HBeP  Bʅ ȱ!8! LK1A@ʈ21 <1+@,A 8 ȥ!ȥ ȥ!@A@e!@Ae AC  L|@B 5++,2LLLL.j L|-A@  ! ;LLA@ 4 Έ@ 98ȱ)@ ȱ@ȑ@ȑ@ȑ@@A 9L| +ȱ,)@ +ȱ+,+LV+ȱ,+ + ~d+ȥe+LV+, ׻A)`,+@ȥ,@AL-| 98@LW 98@ A ׻L-|,A@8e@@ȭ@@iAiF@L|: (J 9 09 }af0%LPLP8)J A@A,!+ -. - .! !!! !LO+-,.,LO A@A-. +,L&I8,.0+-/ !/ߥ-.' 1!23413!12 &/ L|0e../e--8B.BC-CAAC@BA@+ȱ@,CBi+/ȅ0+.-.//0.-0.LZ@i@AL-| 9 ~dL|eeiedA@+ȱ@,@r1ȱ@q2d)e( B.-8B.B/C-C0B@CA/0 ,+,L8]L\y))ywA@ 8@@'A#@ȅ+@,8@@A8@,@A+AL-|y)yLC ?L-|8鰅A@8vGi@AL^@ ?i@ AL|G)@ ?@i@+-A 8- -+  󥐝G 1 L-| F? B ! `B! !LvS L-| B HBmQ  BLS  `B80 HBmQ  B L-| B  `BL-| 9aLCLX 9aL-|y) )yFFL-| yLSy)yL-|y y |LS,y))yLC+,+  8@@A@ȱ@8@@A@ȱ@L|- P 8ȥȱ3ȌL4M.j L|-8@@A@@ ȱ@!- Ѕȱ3Ȍ п 8 ȥ!31ȥ1ȥ1ȥ1ȑ1ȑ11i12. AL-|3{ L@iAi ~d@ȥe@@iAi ~d@ȥe@@ ,@+LW@ 98)+ȱ,)@ +ȱ+,+=+, ɇ@iAi }+, ׻@iAi [YIQ@LfX+/ȱ+0ɇ0q@0/q@/+ȥ0+/@ȥ0@80@/@0348 !L!P !0/0L>P 9a af 9L-| LP 9 09ai 9 09aܥiʢ, @L-| =L-|,LP,LP 4?PKL-| 9 X 9L-| F? !L|@L1QL&I 9  9L-| 9 ~d,L| 8eȩȩL-@ /+ȥ0+@ 98)ȥ/ȥ02128e/d//ȑ//ee/0ed02102L[@i@AL-| 9aLCF|ȱ|}|wL-| 9aLCLX 9aLCFLXy))yLCwF|ȱ|}|L-| | 98 ||ȱ}wL-|L|e22 8Șȩȑȥ1ȥ2ȩ i1i2.:6 <e!@e AC  L|@B 5+ 8 ȥ!L-| ,+1,2e++,.+ȱ+d+ L|eeȑ+LWJe8+d+8i0٠+Ȋ++,LI 8 йгȱ++i-,i."- 98--i-.LuT)L(U:-;.8-<.=[-)`D)=)88-ȭ-)8-ȭ--/ȱ-00/--i-.LTBC+)5L|)+ȱ+ +, ׻+@,A) @i|,/. /F/ȥ|/ȥ}/3|4}/i30i442+31%3 98ȱ3Ȋ33i34͠ /ȭ//0/)-/ȭ/ȭ/ȭ/BC/0 @@A|zLC 9 /~ ~dL|eA@ʈ+,+ ,Q@0ALC |FAL-|@ȱ@@i@AFLX@i@ALCFy y 7 7)L|L-|y))yLCFȱ|Ȫ|}|wy yL-|,, | A9)L|  8ȥȩȩ |T i-8B-B+CC,@B| 9 d 9L-|7)7)LPLP 9 R~ 9L-| 9 ̼ 9L-| F? !L&IA@ʈ21 <8221e1@ʆA !L&I 9 l~ 9L-| 9 9L-| 09 9 9 } } 9 9 } ̼ 09 } 9L-| 9 9 9L-| 9 k 9L-| 9 e~ 9L-| 9 ~ 9L-|LyɫȱA@@ȱ@LC\,w|e||}L-|7)L\7 7L-| 88鏑F|ȱ|L|LXy)FF)yL-| 98@A/0 [ /@0AwL-| F? +!,8-ȱ.8./-0@A+-л,.е+,ХL-| L|8+ +,+ȱ+ȱ+/ȱ+0ȱ+1ȱ+2ȱ+ȱ+3ȱ+43{ L|8r0LLv-L|.j 9L0KA@ʈ! - Q;+@,A A- F :L-|+@,A 9LZK ~ 8dȥe 0LL-Њ.j)8A@@A+Fȱ+|ȱ+}|z +ȱ+) +@AL-|1 | 98LrFA@ȱ@ȱ@ȱ@A@ 98 ȱ!  L|ȱ  :L-|,y))y |A@8)LW |FF 8eL-| 9A@8@ ٠,d+ȥe+,L-| 9 9L-| 9 09 w~ 9L-| 9 09 ~ 9L-| 9 09 } 9L-| 9 09 ~ ̼ 9L-| 9̠ ׻ 9 9 ̠ nEfoa ~ ̼̠ } 09 } 9L-| 9 09 } 9L-| A+ ,!8 5+8@@AA,e.@+e-@AL-| 9 09 } 9L-|8AC L|+,+ȥ,+ȥ,+ȩ+I-L-| 9 ~A@ q@+ȱ@i,d+ȥe+AL-| 9 ~A@芑@ʊ q@+ȱ@i,8e+(d+)AL|d+ȥe+()@rȱ@qA BA@Ȋ@@AL-|@-/ȱ@.00&/0L|.-.-+ ȥ.+1+ ȥ2+͠+/ȱ+00/1/ д20-+ ȥ.+ -+ȥ.+ 3!4 3 4!+e2,e1i/0 5+ 3!47/e!/0e 084!!3 ! //0! !Lg>` + ȥ!6 еuv`8u9vv0u/3)L8!`3)(3)uɜjȱucL8uv3 3uɂɃu r8Ɉ ɇ40LQ7Ɋɋ4"L8p!LQ7}!ueuuvL6/`/`+-,.7e++,,C L8+B-`8ȭȥ/ȥ0ȥ1ȥ2ȭȥ3ȥ4ȩ `8@A+ȱ,8,+8-ȱ.8.-`A@ =BL:B@ ?@ A` `A@ L]BA`A@ A`@i@A`A  8` ȱ!  L|ȱ  8y)#L|Fȥ|ȥ}ȥ| ȭȭȥ ȥ|+ȭȥBCȭ  |!}|zw` B! 98ȱ)@ Hȱh  `ȱ  ȥ ȑL-| 8 ȱ!)@ ȱ ! ȥ!ȩL-|,, | A9) |)K) 8ȑȑ ȱ!)@ ȱ !  ȥ! eL-|)% 8 L-|1)8LyF)8LE 1+1/+.L|L-|,+8+@,ALGI. ?12&&2e1e/eȱ/e.> 9L-|2 1*/eȱ/e.ȱ 9L-| 8ȥȩL-|/ ȱ/! i( i)1r2q B12/e11ȱ/ + + ȱ+! +ȥ!++i,i 5+`F|Șe|}ieFȱ|ȄF > `΅υ` c͝`889  `  e8e9` 9 ~dL|e`A@ ȱ@!8@!@A A@@A`L|B` 9@ȱ  8,.+7-.7-L8`/-ȥ0-ȥ-`-ȱ-ȱ-e/ȥ/Ȧ/-ȥ0-Ȋ-`-ȱ-ȱ-Ȅ /ȥ0`8+7+,`8&&ee:e;`/u0vu r8``qu` ɬɭɮ`@A`] *q&r e(e)]`L|? `A@vGI@AL|@ ?ȱ@,ȱ@A+ G)@L|+ ,AK KLK K, + 󥐝G `M|}y)y|Iȱ|Jȱ|zȄFwF|FL`! ȱ L;8`8 !L;L| &! 98ȱ)@ ȱ` !  `L|12 )1 983ȱ4)@ 3ȱ343 L|1413Ȅ1ȱ13 ȱ3!3i4i`1L|3y)#L|+ȱ,+- e- i 81 -ȥ/0 8ȭȥ/ȥ00/iȐ芑ȩȥ+ȥ,ȩ L-|8 0.-@+A,.J1- 8++K,G8A+@+,@,++,A'A@A8+vG+,ɤ= 7-L8 8 7 `8ɧ8饠- 7 h7 h7L5ɨ( 7-L8- 8 7-L5ɩ? 7-3ȱ-4ȱ-43-ȱ3./3ȥ03-3.4ݢ ,8L5ɪK/0/02 /1ȥ01 `8ɫ02/e121ȑ1L@ F? ڠ!  q?!`+@Vȱ@Uȱ@WPSȱ@ AL|G 󥹍T 9 +` 8`A@ ?@3A L|3 `A@+ȱ@,@ȱ@-./AY B+-# ?+#-/-%+ , +ʩ8 1IJ 0: + > ʚL/ AT @Ae@@AAC Lz9@B`A8@`8@@A` 8 ׻` 8@A ` 8@A ` 98)V)NI B:8BBCAC  L|@BȑBB0fyHzH`wL-|}Fe| 9FiFL-|F|ȱ|ȄFL&I |! !i 8}|eFȅ 5+Fe!FA@ȥ!@AL-| | H:  9L-| :L-| | H:ȱ LD | A9) )),L|)@/A0 8ȑ ȱ!)@ ȱ1310ȱ1q1!1q1 ! ! 3 йȥ!3а1 ȱ1!1e31e4i` F?A@ (@ 98+ȱ,)@ +ȱ+,+ AL|@+ȱ@,@3ȱ@4ȱ@1ȱ@2A@A8e@@A12L>2e4.1e3- + L}J.J-L| 9LG-A@ʄ! ,+Ȇ@A- Q;- F :L-| /~ ~+ LI,+-i+ȱ+1ȱ+2ȱ+/ȱ+0- e/34-,3)ȱ383)3Ȇ()1r2q B2183e3dL|8e3ed30dee2+2de5ɞL8ɝ a7 98,3 54 h7L57)LZ1/e//0L81 7 ,8`4 !3)3)L6/u0vv; u:L83)uɜ ȱulL8uɂɃu r8Ɉɇ 0L6L8Ɋɋ (4 L6p!L6}!0ɠueuuvL#.+# .+# A@ȥ-@ȥ.@ȥ/@A` 0- `/ `-. 9A!@ ! +!, ;-= /~ ~. edLnAeeedLnA8edLnA. .a }LgAa } ׻+8@vG@AA@A` ȥC`` A9)IeBBCAC @BLz9 ȥBȥCiȱi`))L|`)8`ة` A9) L|)L|)"ȱ)@ ȱ`8ȱ !  ȥ!ȩ A@ʈ21 </e!@0e A 8B@CA L| 5+ 8 ȥ!L-|, | 9 8ȥL-|L| 8 ȱ!)@ ȱ ! ȥ!ȩL-| | 98) )), |) 8ȑ &&&''''''''''''''$'((TT8{8SpHxbNG/-!D Q g6J8ۅW2ZP.8{A.b2GGG6 Dx',R](D`&&&&-@EXk 6) 6)6L:6) L)6) 6) 6 Н /L! JCi /u L!l1,L! 6   L! L'  moL!  )L'  Ji uL! ]  )   Ʃ   \. )  %    )    9 ieL,`Q89:;<=R>?@AQBCDE7w ktjjjjjjy`  7 7) Ʃ wL2.L'.j}jtjΝjީjH) O؈ )! sL)" s )   )   L* )# sL)$ s )L)% s )    )& sL)' s )   ) )( sL)) s )   ) )* sL)+ s )   )   ) ), sL)- s )   )   ) ). sL)/ s ) )0 sL)1  % +8 +Ms`+,F,e++,` }vuu L 1`@+A, o7128/900; L5/: a7I a7J a77)7 a7h- `8i j7 7L5 o7- 7-ȑ-ȑ-L5m( 7-L8- - h7L3-L83-- h7- h7 8 ,8L5ɕ  o7 7L5" 7 `8ɖ- h7- h7 ,8L5ɗ `8ɘəL5 o7 7L5ɛ 7 8- h7- h7 ,8L5ɜ a7 98L8ȥ/ȥ0L5ɡ. `8ɢɣ8颅3 o7-ȥ3- 7-L5 ) ^L  0L)`  .`   `L*]< ) k'uL' ) ku ) kݩ `  ň  `/ 0 1 2 `/1 02 Du"aL' +/0 "u a +12 ` L!VZ[, )  ]  ),L!  L'    )   L) )  )L! )L! k bб #   a L)  L) k  *L#, k a* L*L),3  *  e3 k0u bC  ) HHHH & & & ЅiO?hhhhhj.Хltj.HMHHHHHl'wɅ kLx.Ɇ jj ɇ jjhhh@HH.HH HlHH.HH Hlhh@H s )   ) )2 sL)3 s )   ) )4 sL)5 s )   ) )6 sL)7 s )   ) )8 sL)9 s ) ): sL);L&< s ) )= sL)> s ) )? sL)@ s )   ) )A sL)B s )L)D s )L)F s ) )G sL)H s ) )I  8 7 `8i 7L5n' 7-L8- 8 7-L5oA 7 8-3ȱ-4ȱ-43-ȱ3./3ȥ03-3.4ݢ ,8L5p G,p4843 7 o73- a7- 7- 98L83iȥ/ȥ0L5} 2L8L%3 2},484 LHɀоL!L{ d ) ЧLk d )  6 6L)ɀة d )Ω cL{  cв  L! L! d   X1 L)L' d X0 0/L*/ 0uɀéLkLsL{ d   /0'12a$ +/0 o/102L+oL+ a +12 `L'' ` !%Ie!e!`e e  ! `8s9tt;2s:,Ms# ȭN  u5 a. ) k #  L*L)  :*, S `L' b    a k 5* L) b    aй թ , ,, kL)6)L'  kL)a k)ڊL!_  e ` aL! $L) $L) $L HH ݬ 0C ;y y>@?A k  Щ!ЩԭL/LrxU-.~..Xɠ!Щ ТS 1B< 1詇 1 1 ,6 LC  <m sL)J s ) )K sL)L s )L)N s )L)P s ) )Q sL)R s )L)S s )L)T s )L)L)#% ""$ #  # ! #$$" !#!$$"$$ " "#$#(#$$$%%%%%%%%%%%&&&&&& 3 7 a7-e4 h7- h7L2-L83- 8 ,8L5H 7-h`+-,..--87-.L3L8-` 2i h7L5 2L8ɂɃ/8邅3 o73- a7- 7 `8ɈɇL5 ,8L5ɊɋU8銅3 7 a7-i h7 /m@/o/ `/M  L8!a /8  L8!bL'/  5* uL ɀߩLk  ) 5 5JL'i u LZ!ɀ穳,  )L)  /1 )/ 5 5/"kJ J ssesstL+s`0Dsmtm@m!Am C !BL08!!  e+LO,8st@m!Am 8!!  5+@m@AmA>m>?m?0#I+ʆӥэҍ 8(Ӱ+wx+ƥ   9  ,0LERROR  ^ `6)-`H6)$H h `7,8,9,6L Fɀ`6)` Lڭ  `   LuЪ` ?>ʈts,+ +u++  198,9'  631,("C")8  632,("H")I  633,("A")Z  634,("I")k  635,("N")x  636,34  637,("H")  638,("I")  639,13  "C64 COMAL 0.14",8CUTED" " AFTER THE LANGUAGE HAS BEEN LOADE ,240,3,223,224,0,217,192. 0,92,192,0,254,192,0,252,192,1,249,192,0,3,1925/ 0,175,0,1,254,0,1,252,0,3,248,0,7,240,0,0,0,0,0x/ 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,12/ 52,174,172,52,174,172,61,174,175,61,174,175/ //!:=:+:-:;++--&.(),*/^<<=<>=>>=# SYSSETEXECSETMSGRETURNFUNCENDFUNCNULLPASSDELETE SETGRAPHICSETTEXTFRAMEPLOTPENCOLOR BACKGROUNDPLOTTEXTCLEARDEFINEIDENTIFY SPRITECOLOR SPRITEPOS SPRITESIZESPRITECOLLISION DAT 5,60,16,14,102,0,0,103,128,0,193,128,0,192,192,1,128,192,1,128,192- 0,0,0,0K- 0,0,0,0,0,0,0,0,0,0,60,0,0,255,0,0,255,0,1,153,128,113,153,156- 25,255,144,5,255,160,2,102,64,1,102,128,0,255,0,0,60,0,0,102,0- 0,102,0,0,60,0,0,24,0,0,54,0, J OPEN 15,8,15,"S0:BOOT C64 COMAL":CLOSE15:SAVE "0:BOOT C64 COMAL",8f ""; : CLEAR SCREEN 53281,0: BACKGROUND BLACK 53280,0: BORDER BLACK ""; : PENCOLOR GREEN" A1 46# 15,8,15,"U;" $15,D1,A$,D2, 233,40,168,104,96,0,40,80+l 120,160,200,240,24,64,104,144,184,224,8,48,88,128,168,208,248G+n 32,72,112,152,192,4,4,4,4,4,4,4,5,5,5,5,5v+p 5,6,6,6,6,6,6,6,7,7,7,7,7,0,2,37,0,0,1,1+r SPRITE DATA+t 0,60,0,0,52,0,0,20,0,0,16,0,0,40,0,0,40,6  "% " MADISON, WI 53716T "SEND SELF ADDRESSED STAMPED ENVELOPE" "OR CALL 608-222-4432 FOR MORE INFO." "" : PENCOLOR WHITE " COMAL PROGRAMS CAN ONLY BE EXECUTED" " AFTER THE LANGUAGE HAS BEEN LOADE 2,32,48,193,145,92,104,145,90,32,56,193,204,115,193,208<)^ 234,236,117,193,208,221,240,46,202,206,118,193,232,32,30,193,172~)` 116,193,200,136,32,48,193,177,90,72,177,92,32,56,193,145,92)b 104,145,90,204,115,193,208,234,236,118,193,208,221,238,S  FOR ENU.", AN$:AN$""160@ AN$(13)160z "":" OADING ENU..." "LOAD";(34);"MENU C-64";(34);",8" "RUN":"" 631,13:632,13:198,2:AD-ON   (2063)L/ABSANDATNAUTOBASICCASECHAINCHRCLOSECLOSEDCONCOSDATADEBUGDELDIMDIVDOELIFELSEENDENDCASEENDIFENDPROCENDWHILEENTEREODEOFESCEXECEXPFALSEFORGOTOIFININPUTINTLABELLENLETLISTLOADLOGMODNEWENDFORN " LEN LISTER 2,COPYCHRS.128,COPYCHRS2.128,C-64 DOS,C-128 DOS  MUSIC SCHOOL,NBRGLL RUN 128,CRAZY JOE,HEAD-ON BOOT,ESCAPE SKULL  WORDCOUNT,SCREEN SLEUTH,REVERSED REMARKS,REVREM DEMO,BOOT C64 COMAL A$(1)"ηϷ " A$(2). 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,62,0,0,54,0,0,62,0,0,8,0,0,12,0,0,12,0U. 0,8,0,0,8,0,0,10,0,0,14,0,0,10,0,0,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0]. 0. 0,127,224,0,255,240,1,255,248,3,255,252,3,24,252. 3,24,252,3,24,248,3,255 D3 %15' ' "1541"(A$,14,17) 50A *"LOADING ML.SIZZLEb , A0 A1:"ML.SIZZLE",8,1p . 49152: 2 ""; 4 " PLEASE WAIT WHILE COMAL 0.14 IS LOADED "; x "TUTORIAL: FOUNDATIONS . 0,54,0,0,0,0,0 . 0,0,0,0,0,0,0,0,0,0,28,0,0,62,0,0,54,0,0,62,0,0,8,0,0,12,0,0,12,0U. 0,8,0,0,8,0,0,10,0,0,14,0,0,10,0,0,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0]. 0. 0,127,224,0,255,240,1,255,248,3,255,252,3,24,252. 3,24,252,3,24,248,3,255 D." ""; : PENCOLOR CYANI "COMAL PROGRAMS ON THIS DISK ARE LOADED:"j  " LOAD "(34)"NAME"(34)y  " RUN"  "";  " BACKUP THIS DISK BEFORE YOU USE IT ";    CHA 4,0,170,128,2,170,0,v 1,40,0,0,60,0,0,42,128,3,40,128,15,160,192,0,0,2406,x 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0y,z 0,0,0,0,0,0,0,0,0,0,60,0,0,255,0,0,255,0,1,153,128,1,153,128,| 1,255,128,1,255,128,0,102,0,0,102,28,56,255,240,~ OTOFOPENORORD OTHERWISEOUTPUTPRINTPROCREADREFREMRENUMREPEATRESTORERNDRUNSAVESELECTSGNSINSIZESPCSQRSTATUSSTEPSTOPTABTANTHENTIMETOTRAPTRUEUNTILUSINGWHENWHILEWRITEZONEEDITCATAPPENDRANDOMUNITFILEPOKEPEEK 118,193,232 *d 32,30,193,173,120,193,201,0,240,20,172,115,193,136,200,185,162R*f 193,145,92,185,122,193,145,90,204,116,193,208,240,96,189,89,193*h 133,91,24,105,212,133,93,189,64,193,133,90,133,92,96,72,152*j 24,105,40,168,104,96,72,152,56, 4412926:A:X,A:  CHARACTER DATAP 255,255,255,255,255,255,255,255,255,255,255,255,252,240,192,128 255,255,255,63,15,3,0,0,255,255,255,255,255,255,255,127 252,252,240,192,195,135,143,31,254,60,24,0,128,192,224,243  0, 4,114,193,224,3,144,3,76,117,192,188,114,193,140,121,193,174E&H 118,193,232,202,32,30,193,172,121,193,173,119,193,201,2,208,10&J 169,32,72,173,33,208,72,76,50,192,177,90,72,177,92,72,204&L 116,193,240,20,200,177,90,72,177,92,136,145,92,104,145 @":5)"@"|5)"@@@ @FEATURING THE SKELETTES!"U~XSS24:X,0::S24,15:S5,8:S6,255:S4,23F25:T13:S15,F2:F11140:S1,F1:F2F2.015F1:T:S6,15CH14336:RM38912:53272,((53272)240)14563 198,76,97,199,222,0,198,208,40,254,255,207,208,29,173,80?$6 197,45,16,208,208,12,173,16,208,13,80,197,141,16,208,76|$8 91,199,173,16,208,77,80,197,141,16,208,189,0,197,157,0$: 198,169,0,232,29,0,197,208,3,76,140,199,169,128,61,0$< 197,240, @@@@@@2"d11)"@@"21)"@@@ABC@@@@@@@@@@"Ef11)"@ ROM @DEFGH@@@@@@@@@@"oh11)"@"21)"@IJKLM@@@@@@@@@@"j21)"NOP QR@@@@@@@@@@l6)"@@@"21)"STUVWX@@@@@@@@@@"n6)"@"21)"@YZ[\@@@@@@@  96,192,192,96,48,24,12,6,255,153,189,255,102,60,60,24"$ INTERRUPT DATAS"& 169,255,45,0,198,240,16,169,0,141,0,198,162,21,189,0"( 197,157,0,198,202,208,247,162,1,169,1,141,80,197,173,80"* 197,45,0,197,240,3,76,243,198,232,232,14,80,197,20 66:V8,242:V9,190!,V6,152:V7,100:V4,96:V5,162H-V2,40:V3,80:V14,40:V15,220.50433,255:50434,0:50435,1:50436,0:50437,0:50438,254/50439,0:50440,2:50441,0:50442,255:50443,0:50444,2050447,0:50448,02X 0,1,7,255,255,255,255,1,31,255,255,255,255,255,255B  255,127,63,63,31,31,15,15,255,254,252,252,248,248,240,240s  0,0,0,0,0,7,31,255,0,1,3,15,63,255,255,255  63,255,255,255,255,255,255,255,15,15,7,7,3,3,1,1  240,240,224,224,192,192,128,1 2)"78"38)";"";"13)"78"22)"9:"38)";"8";"13)"9:"38)";"\ "; 78 78"38)";" "; 9: 9:"38)";" "; 78 78"31)"78 ;" "; 9: 9:"31)"9: ;"  X56256 255,255,255,255,223,207,3,199,255,255,255,255,255,255H 196,207,207,239,239,255,254,254,255,63,63,63,63,63,63,31 231,231,247,247,255,255,255,255,207,199,195,195,195,131,135,135 254,254,254,254,252,252,252,252,31,31,31,31,31,63,95,95 3,15,63,63,63,15,3,252,254,255,255,255,255,254,252= 63,15,7,7,7,15,15,31,31,31,31,31,31,14,0,128} 243,243,231,199,135,15,14,12,129,128,192,192,192,224,96,0 240,0,7,63,255,31,0,0,31,127,255,255,255,255,63,15 255,255,255,255,252,252,2 ,90,200'N 204,116,193,208,238,240,18,136,177,90,72,177,92,200,145,92,104S'P 145,90,136,204,115,193,208,238,173,119,193,201,0,208,5,104,104'R 76,111,192,104,145,92,104,145,90,236,117,193,208,160,96,172,116'T 193,200,189,114,193,170,32,30,19 34,(56334)254:1,(1)251XCHCH503:X,(XRM):51,(1)4:56334,(56334)1eXCH8128CH81618:JXX7:A:J,A::XCH8163CH81878:JXX7:A:J,A::X5088051116:A:X,A:X4915249528:A:X,A:X125 11,254,0,198,208,20,222,255,207,76,134,199,222,05%> 198,208,9,254,255,207,189,0,197,157,0,198,202,76,233,198t%@ 169,255,221,255,207,240,3,76,43,199,173,80,197,76,17,199%B 120,169,192,141,20,3,169,198,141,21,3,88,96%D SCROLL DATA&F 17 @@@@"p6)"@@@KULL"21)"@]^_ @@@@@@@@@@@">r8)"@"21)"!#$%&@@@@@@@@@@@"it6)"@@@"21)"'()@@@@@@@@@@@@@"v14)"@ @@@@@@WELCOME@@@@@@@"x5)"@@@ @ @@@@@@@@@@@@@@@@@@@@@"z5)"@ ASTLE 8,238,76,49,234 #, 169,0,29,0,197,208,3,76,97,199,169,128,61G#. 0,197,240,48,254,0,198,208,40,222,255,207,76,144,199,80#0 197,45,16,208,208,12,173,16,208,13,80,197,141,16,208,76#2 43,199,173,16,208,77,80,197,141,16,208,189,0,197,157,0$4 53281,15:53280,0:""12)"JC HILTY PRESENTS"GZ:7)"@@@"27)"5@6":7)"@@"26)"*@@@+"r\7)"@ SCAPE 56 /@@@0"^7)"@@@"20)"*@@+ ,@@@-.234"`20)"/@@0,-.@@@@@@@234"b11)"@@@"21)"@@@@@@@@@ 28,0,0,0,0,0,0,3,15!! 192,240,252,255,255,255,255,255,0,0,0,192,240,252,255,255Q! 0,0,0,0,0,0,192,224,3,7,15,31,63,63,31,31! 192,224,240,248,252,252,248,248,3,7,15,31,25,25,31,15! 192,224,240,248,152,152,248,240,6,3,3,6,12,24,48,96"  56294:X,1::X19842022:X,187:>&V28,128:V37,1:V38,9:V46,6:V45,2r'V39,2:V40,6:V41,5:V42,8:V43,1:V44,0(2047,196:2046,199:X20402045:X,200:*V16,65:V12,45:V13,140:V0,45:V1,190+V10,242:V11,  255,255,255,255,255,253,252,252,135,135,135,135,135,135,7,7Q 255,223,207,207,205,141,136,128,252,254,251,186,178,144,16,0  94,158,12,12,8,0,0,0,224,224,64,64,0,1,7,127  15,15,31,255,255,255,255,255,128,128,128,128,128,131,135,159  0, 48,249,128,240,195,7,14,60,240,248< 0,128,128,0,0,0,0,0,0,0,128,64,32,56,120,126,15,7,3,1,1,1,1,3 251,255,255,255,255,255,255,255,248,224,239,208,224,196,196,196 12,51,192,145,145,147,155,191,28,226,225,225,227,227,230,230  127,255, 7255,224,15,0,240,15,126,240/15,0,240,15,255,240,7,255N224,3,255,192,1,0,128,169]*ML DATA*v120,169,73,141,20,3169,3,141,21,3,88 96,174,0,208,173,0220,41,15,201,7,240 7,201,11,240,12,76*107,3,224,244,24 17)" PRESS FIRE TO PLAY AGAIN"A10)"PUSH FORWARD TO QUIT"S&(AD)1690h0((AD)15)14q:550D*SPRITE DATA*N0,20,0,0,20,0,0,20X0,0,150,0,0,215,0,0b215,0,0,215,0,0,195,0l0,252,0,2,170,128,8,60v # ESCAPE FROM SKULL CASTLE8 BY JC HILTYaV53248:S54272:TM2500:M4:SC0:K0""8)"ESCAPE FROM SKULL CASTLE":"ONE MOMENT-READING DATA"700:600:500:550V21,255:50432,191:51104W1(V30):W2(V31) "R " "V21,0:90A RRF:(V)20(V)244A$"YOU RAN OFF THE ROAD!":440 M16:D(M)D(M)MR:D(M)255D(M)0:V39M,((1)10) V(M2)1,D(M): ((V30)1)SC%3A$" YOU RAN INTO A CAR! ":440 380 SC%HS%HS%SC%:L54272 6 +49522,4:49523,22:49524,23:49525,2:49526,7:49152Q ,W1(V30):W1127200l -W2(V31):W2127300u .100 /49522,3:49523,22:49524,23:49525,17:49526,23:49152 0W1(V30):W1127200 1W2(V31):W2127300 2100 3R(2 VAB,B(BB):B(BB)0:C1C11:C16270B 54296,15:54277,8:54278,248 54273,100:54272,100:54276,23:LL140::54276,16:230 K$:K$""C$"EASY":R1.5:320 K$""C$"DIFFICULT":R5:320 "E1((AD)16)0RRR:325 ,K$""2 :50448,0:50688,128 fJY(56321)15H gJY750447,1:50448,0:50688,128:t hJY1150447,255:50448,0:50688,128: jJY1350447,0:50448,1:50688,128: lJY1450447,0:50448,255:50688,128: n W1191300 50447,0:50448,0 " CRAZY JOE "^ n""y x13)"(F1) EASY" 13)"(F3) NORMAL" 13)"(F5) DIFFICULT" 13)"FIRE PREVIOUS CHOICE" AD56320:V53248:V30,0:C10:SC%0:F.0 (,50447,0:50448,0:50668,128:50432,0:2047,201B-MM1:""15);M:638d.T08:X20402045:X,197:X/Y050:Y:X20402045:X,198:X:Y050:Y:T1M04002550:50432,191:3150447,0:50448,0:50668,128:50432,63:V21,63 3280,00" TIME";TM;12)"MEN";M;19)"KEYS";K;27)"SCORE";SCa";;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;""; 78"22)"78"31)"78 ;""; 9:"22)"9:"31)"9: ;""; 78"31)"78 ;""; 0,11 4232,232,76,107,3,224$>20,240,2,202,202,142<H0,208,173,0,220,41UR16,172,1,208,201,16m\240,6,192,50,240,6f136,136,192,230,240,1p200,140,1,208,76,49z234,07,0,224,7,255,224,7,255224,7,255,224,7,255,224, 32,8,60,32,8,40,32,0"235,0,0,235,0,1,235,64=0,235,0,0,235,0,0,255T0,0,20,0,0,20,0,0s3,255,192,6,255,96,15,255240,15,255,240,15,255,240,140,112,6,255,96,7,126,2247,0,224,7,255,224,7,255224,7,255,224,7,255,224, (2(9)3)C #49522,R:49523,6:49524,7:49525,2:49526,23:49152^ $W1(V30):W1127200y %W2(V31):W2127300 &100 '49522,3:49523,13:49524,14:49525,2:49526,23:49152 (W1(V30):W1127200 )W2(V31):W2127300 *100 L23:L,0: 56334,(56334)254:2040,13W54277,27:54278,5:54276,129:54273,4:QQ1110:w54273,5:54272,1:54296,15QQ1255:V39,QQ:" "A$" ""SCORE"SC%26)"HIGH SCORE"HS%V21,0:56334,(56334) (9)3)= 449522,R:49523,31:49524,32:49525,2:49526,23:49152X 5W1(V30):W1127200s 6W2(V31):W2127300 7TMTM5:""6)" ":""6);TM:TM0400 8W1(V30):W1127200 9W2(V31):W2127300 :100 ;34 d50447,0 70 6R3:C$"NORMAL" @RRR. EV,X:V21,127:E1f J"":Z.23:" ":Z T" "; ^""31)"SC:":31)"HI:"HS% h31)"LEVEL:" r31)C$" |SC%SC%1:""34)SC%:K$:K$ :50668,128:50432,0@ XSS24:X,0::S24,15:S5,8:S6,255:S4,21o F12:Z124:F280:S1,F1:Y15:S15,F2 F2F21.2:Y:F1F18:Z:S6,15 KK1:SCSC100 K4K0:SCSCTM:TM2500 ""23);K;32);SC 550:50432,191:31 2 8281 2040,192:D16:D(D)0:D2040,193:DI X(((1)85)20)2V V1,180 V29,126:V23,126:V39,1:V28,1:V37,0:V38,6 BB16:VBB2,0:B(BB)19(BB39.9): BB((1)61):AB((1)61)2:B(BB)0(VAB)0230 X20402045:X,197:.""15)"GAME OVER":b18)"SCORE ";SC::12)"PRESS Y TO PLAY AGAIN"} JUNK$:JUNK$""404A$:A$""405 A$"Y"408V21,0:50432,0:SC0:TM2500:K0:M4:500:550:3053281,15:5 9:"31)"9: ;":";"38)";",";"13)"78"38)";"V";"13)"9: @@@ABC"38)";"";"13)"78 @DEFGH"38)";"";"13)"9: @IJKLM"38)";""; 78 78 NOP QR 78 ;"$ "; 9: 9: STUVWX 9: ;"W"; 78"20)"@YZ[\@ 78 ;""; 9:"20)"@]^_ @ 9: ;"";"20)"!#$%&@ 78 ;"";"20)"'()@@@ 9: ;"";"2 CL$(3)CL$(1):CL$(4)C4$C1$1(KB$(0)"           "z2KB$(1)KB$(0):KB$(2)KB$(0):KB$(3)" "<KB$(4)KB$(3):KB$(5)"ۢۢۢۢۢۢۢۢۢۢۢۢۢۢ" 100: COPY F 2,192,195,195,195( 237,195,195,195,192,192,255,255,255) 238,255,255,255,3,3,195,195,195F) 240,255,255,255,192,192,195,195,195k) 243,195,195,195,3,3,195,195,195u) 999243,195,195,195,003,003,195,195,195 ,255,255% 234,195,1 ())()())()(())"B8$"PRESS G OR F"OWL$" ʲ ʲ  "WR$"    "F$(1)" ":F$(2)" ճծ":F$(3)" ʱʳ"  179,56,24,24,48,48,24,12,12&l 180,24,28,14,7,7,14,28,24"'m 181,24,56,112,224,224,112,56,24K'y 193,255,255,255,195,195,195,195,195t'z 194,195,195,195,195,195,195,195,195' 201,255,255,255,15,7,131,195,195' 202,195,195,193,224,240,255,255,`HS$" /012234$%5ʲ"ajB$(0)"& '  ":B$(1)"&'  "tB$(2)"&'  ":B$(3)"&'  "~B$(4)"&'  ":B$(5)"&'5,2408,2703,2864,3215,3608,4050,4291,4817,5407,5728,6430,7217$% 8101,8583,9634,10814,11457*% :A% CUSTOM FONT DATA`%\ 164,63,113,57,31,15,7,3,1%] 165,252,142,156,248,240,224,192,128%^ 166,15,15,7,15,31,63,127,255%_ 167,240,240,224,24055,255"d 255,255,255,7,255,224,1,255,128,0" : # WORDS8# "ABED","ACCEDE","ACE","ADD","AGE","AGED"# "BABE","BAD","BAG","BAGGAGE","BEAD","BEADED","BED","BEDDED","BEE"# "CAB","CAGE","CAGED","CAFE","CABBAGE","CAD","CEDE","CEDED"$ "DA255,255& 242,255,255,255,0,0,195,195,195& 243,195,195,195,3,3,195,195,195& 247,255,254,254,252,252,248,248,240 ' 248,15,31,31,63,63,127,127,2556' 249,240,225,225,192,192,255,255,255@' 999a'&%"ACCEDE","ACE","AGE","AGED"'0%"BAD",0,0,108,0 ~ 0,108,0,0,96,0,0,96,0! 0,192,0,1,128,0,3,0,0'! 6,0,0,0,0,0,0,0,0A! 0,0,0,0,0,0,0,0,0,0G! :Y! NOTE SPRITEq! 0,0,0,0,0,0,0,0,0! 0,0,0,0,0,0,0,0,0! 0,0,0,0,0,0,0,0,0! 0,0,0,0,0,0,0,0,0! 0,0,0,0,0,0,*"FADED","FAD","FED","FEED"(b%"GAFF"195& 243,195,195,195,3,3,195,195,195& 247,255,254,254,252,252,248,248,240 ' 248,15,31,31,63,63,127,127,2556' 249,240,225,225,192,192,255,255,255@' 999a'&%"ACCEDE","ACE","AGE","AGED"'0%"BAD",ONT 169,0,133,251,133,253,169,208 133,252,169,240,133,254,162> 16,160,0,177,251,145,253,136` 208,249,230,252,230,254,202q 208,240,96w: G CLEF SPRITE 0,64,0,0,240,0,0,216,0 0,204,0,0,204,0,0,216,0 0,235,15,31,63,255,255,255% 235,195,195,195,192,192,195,195,195% 236,255,255,255,195,195,195,195,195& 237,195,195,195,192,192,255,255,255(& 238,255,255,255,3,3,195,195,195Q& 240,255,255,255,192,192,195,195,195v& 241,195,195,195,0,0,255,F$(4)" ":M$(2)"ߒ  ߩ "ZM$(1)" ߒ     "C1$"":C2$"":C3$"":C4$""CL$(0)C2$C1$:CL$(1)C3$C1$:CL$(2)CL$(1):255' 203,195,195,131,7,15,255,255,255( 211,255,255,255,3,3,255,255,2557( 213,255,255,255,240,224,193,195,195`( 216,195,195,195,195,195,255,255,255( 218,195,195,135,15,15,135,195,195( 219,231,231,195,0,0,0,0,0( 235,195,195,195,19  "3B$(6)"&'  ":B$(7)"&' ®  "tB1$"":B2$"**•":B3$"$%•":B4$"ʲ˕"B5$" & ' ":B6$"  "B7$"   ":NE$"())((())(),248,252,254,255%` 168,49,155,206,236,63,115,206,72!&a 169,140,217,115,55,252,206,115,18B&b 170,126,231,0,60,126,60,0,0\&g 175,0,0,0,0,0,0,7,15y&h 176,0,0,0,0,0,0,224,240&i 177,28,24,24,12,12,24,48,48&j 178,60,102,195,24,60,60,60,24&k B","DAD","DECADE","DEAD","DEED","DEFACE","DEFACED","DEAF"<$ "EBB","EDGE","EDGED","EFFACE","EFFACED","EGG","EGGED"$ "FACADE","FACE","FACED","FADE","FADED","FAD","FED","FEE","FEED"$ "GAB","GAFF","GAG","GEE"$ :$ NOTE FREQUENCIES% 214 "BAGGAGE","BEAD","BEADED","BED","BEDDED"':%"CAB","CAGE","CAGED","CAFE","CABBAGE","CAD","CEDE","CEDED"(D%"DAD","DECADE","DEAD","DEED","DEFACE","DEFACED","DEAF"F(N%"EDGE","EDGED","EFFACE","EFFACED","EGG","EGGED"(X%"FACADE","FACE","FACED","FADE",0,0,0! 1,255,128,7,255,224,15,255,248" 15,255,248,7,255,224,1,255,128,0#"& :2"' MIDDLE CJ"( 0,0,0,0,0,0,0,0,0b"2 0,0,0,0,0,0,0,0,0z"< 0,0,0,0,0,0,0,0,0"F 0,0,0,0,0,0,0,0,0"P 0,0,0,0,0,0,0,0,0"Z 1,255,128,7,255,224,255,2 (53281,0:53280,0?2C0:Z1228812415:Q:Z,Q:CCQ:Zr<C11890"ERROR IN DATA --> LINES 590-740":FC0:A828907:D:A,D:CCD:PC9217"ERROR IN DATA --> LINES 760-890":Z"", d40,0,0,224,0,1,192,0  3,192,0,6,192,0,12,192,0% $ 27,240,0,54,216,0,108,204,0G . 108,204,0,54,216,0,24,240,0h 8 15,224,0,0,192,0,1,128,0,0n ^ : _ F CLEF SPRITE ` 0,0,0,0,0,0,0,0,0 j 15,0,0,25,140,0,48,204,0 t 54,96,0,28,96, )""Q" FIDGITS MUSIC SCHOOL "y" BY WALTER E. MEYERS """ 56576,(56576) 3: 53272,21: 648,4: 53269,0: 1000  S1,HI: S,LO: S4,17: T 0:COLC1::LN15:COL4V:W SHOW OFFLX I1 L: 50: HO$: S1,HI(N1(I)): S,LO(N1(I))b S8,HI(N1(I)3): S7,LO(N1(I)3): S15,HI(N1(I)5)l S14,LO(N1(I)5): S4,17: S11,17: S18,17: T1 300v: 50: S4,16: S11,16:  100::LN(5LN):: 53272,21: 648,4@ 56576,(56576) 3:"": SC,6: BO,14::F:W NEST SBRTN"":18) B1$:18) B2$:16) (NE$,3); B3$ (NE$,3):13) (NE$,6) B4$ (NE$,6)11) (NE$,6)"" B5$ (NE$,6):10) (NE$ L7 52216I,4: MIDDLE C-YYSA:NONOCL:LC(I)LC(I)CAf V39I,2: VJ,Y: V21,(V21)P: 50: HO$:LN20 50:""B$(0):HIHI(NO):LOLO(NO): 20:LN15: 50:N1(I)NO HC$: V39I,0:COLCOL4:JJ2:PP2:NH(I)HI:NL(I)LO::LN209)"OTHER KEY TO PLAY AGAIN.":911)" ɰ ":11)" ® "Y11)" ":_:p INITIALIZE"ONE MOMENT, PLEASE.": 53281,15: 53280,15:S54272X(TI): B$(7),HI(19),LO(19),NH(19),NL^"": S24,15: I0 5: 5) KB$(I):::Mh I0 4: CL$(I):: V21,1:LN15:COL4p WRD40 I1 51:W(I)0:J3:P2:D51: 90: W(N)1 405L(W$(N)):W(N)1:WRDWRD1: I1 L:P$(W$(N),I,1) 52216I,3: (P$)64 420N ! STA (MVDEST),Y(! LDA #0 ;RETURN TO BANK 157! STA $FF00@! RTSAGE`MVPART LDX LENPTRp BEQ MVEXITMVLAST JSR GETDATA INY DEX BNE MVLASTMVEXIT LDA #0 STA $FF00 ;USE BANK 15 RTS; ; SUBROUTINE 0 7: I: 61440(K8)J,I:: 230P "  HIT ANY KEY WHEN READY TO CONTINUE.": 30  56576,(56576) 252: 53272,44: 648,200 *: + GET CLEF , V23,3: V29,3: V39,0: V40,0: V,100: V1,1201 V2,220: V3,120: 52216,1: INY x BNE MVPAGE INC MVSRCE+11 INC MVDEST+1: DEXJ BNE MVPAGE`MVPART LDX LENPTRp BEQ MVEXITMVLAST JSR GETDATA INY DEX BNE MVLASTMVEXIT LDA #0 STA $FF00 ;USE BANK 15 RTS; ; SUBROUTINE  INSTRUCTIONS: "": I1 4: F$(I) 18) F$(I);:: " FIDGITS CAN HELP YOU LEARN TO READ MUSIC. YOU WILL SEE SO"; "ME NOTES ON A STAFF, WITH A FIDGIT UNDER EACH ONE. HIT THE "; "KEY THAT HAS THE NAME OF THE 1 100:: S4,16:;  198,0: 198,1:II(631): 198,0:d 2 781,LN: 782,COL: 783,0: 65520: < C54272 54296: C,0:: ZN((0)D)1: b: c TITLE PAGE d 60: I5 20 7: SI,0: SI1,240:: S24,15 n"": I1 6:S18,16: HC$:COLCOL4::C1COL:LN8:COL14: 50:"HIT ANY KEY": 30:COLC1YGAMEGAME1: GAME7 350_:r NEW/END GAME V21,0: S24,0: 900: 950: 30: II81 300 900:: 980:LN3:COL13: I1 21: 50: WL$ T1,4); "" B6$ (NE$,4):8) NE$:9) (NE$,22)=10) (NE$,20):11) (NE$,18):C:W BANNER SBRTNS9)" ":9)" ʳ ® "9)" ": 9)"HITQTO QUIT OR ANY"*COL4: I1 L:P$(W$(N),I,1): 50:"" B$(0): V39I,28 30:JIIk& (J)P$ V39I,1:LN15: 50: HS$: 5400LN20: 50: B$(J64):LN15: 50: HO$:HINH(I):LONL(I): 20: 50: HC$:C1COL4:LN5:COLLC(I): 50:"" P$DLN2(19),F$(4),M$(2),W$(52),W(52)% TYPE49152 49184: A: TYPE,A:Q SPRITE49216 49471: A: SPRITE,A:t WRD1 51: A$:W$(WRD)A$: MUSIC1 18: A:HI(MU)(A256):LO(MU)A(HI(MU)256):$V53248: V23,3: V29,3: V39,0: V,430,480,450,460,470,440*Y128:NO6:LC(I)16: 490: ALY124:NO7:LC(I)18: 490: BnY132:NO5:LC(I)14: 490: GY144:NO2:LC(I)8: 490: DY140:NO3:LC(I)10: 490: EY136:NO4:LC(I)12: 490: F Y148:NO1:LC(I)6: C40,0: V,100&. V1,120: V2,220: V3,120: 52216,1: 52217,2:H92L8 IV4 V14 2: I,H:HH32:RJ:`K STRINGSLHC$" **$%ʲ"VHO$"ߒߩʲ "52217,2:"";6 15)"PICK ONE:": V21,3:LN15:COL0: 50: B8$Z@ 30: II70 II71 320J V21,0: V23,1: V29,1: V,28: V2,60: 52217,3TGAME0:SA0:CL7:CA14: II70 52216,2:CL0:SA20:CA0:WRD0\:] MAIN LOOPTO STORE (MVSRCE),Y IN (MVDEST),Y ;/ "GETDATA PHA8 , TXAA 6 PHAR @ LDA #MVSRCEv J LDX #14 ;GET DATA FROM BANK 14 T JSR INDFET ^ JSR STORDATA ;IN BANK 0 h PLA r TAX | PLA  RTS ; STORDATA  STA $FF01 ;USE BANK 0 NOTE ON IT. WHEN ALL YOUR NOTES A";j "RE RIGHT, THE FIDGITS WILL SPELL A WORD HIDDEN IN THE MUSIC."p : LOAD FONT 56334,(56334) 254: 1,(1) 251: 49152 1,(1) 4: 56334,(56334) 1 K: K999 250 J :: J1 3: I1 4J x F$(I) 18) F$(I);:::LN11:COL18: 50: B7$:M1 LL8:N12: I1 30:LN6:COL18: 50: M$(M):LNLL:COL12 50: WL$:COL23: 50: WR$:D18: 90:HIHI(N) LOLO(N): 20:LL(17LL):M(3M):: T1 100: : 4,76,195,255,147,83,67/ 82,69,69,78,32,79,82,32,80,82R  73,78,84,69,82,32,63,32,0,76{ 44,193,234,177,251,201,32,240,6,138 113,251,69,254,170,138,76,88,192,0 0,0,0,230,251,208,2,230,252,96 170,177,251,201,34,208,6,165,2,73 255,169,13, "32,220,192,230,63,208,2,230,64,230U ,251,208,2,230,252,76,11,192,169,153} 6160,192,32,30,171,166,63,165,64,76 @231,192,96,76,73,78,69,83,58,32 J0,169,247,160,192,32,30,171,169,3 T133,254,32,228,255,201,83,240,6,201 ^#"":53280,0:53281,4:646,0D"COMMODARES PROBLEM #27-3:"\" DOUBLE WEDGE"o"SOLUTION BY"" MATT SHAPIRO" "QUE";S$:S$S$" ":L((S$)2):I1L:20I);(S$,LI1,2I):#"":53280,4:53281,0:646,7D"COMMODARES PROBLEM #27-3:"\" DOUBLE WEDGE"o"SOLUTION BY"" JOHN R. PRAGER" "PHRASE ";A$L(A$):B1 L:P2BS(.5L2)( JS 1 12 J1)(A$,J,P):PP2:#"":53280,5:53281,0:646,7D"COMMODARES PROBLEM #27-4:"]" TOKEN LISTER"q"SOLUTION BY "" JAMES BORDEN""> > > C-64 ONLY < < <" Z41118: X128 203: X;A(Z) :ZZ1 : A128 (A);: 20 d900D,T128203:2051,T:2053,T:"NEXT":203f"":53280,6:53281,0:646,3|" << CD31-8 >>""COMMODARES PROBLEM #27-4:"" TOKEN LISTER""SOLUTION BY"" MARK BREAULT" "> > > C-64 ONLY < < @@"":0,1:4,3:5,2@@" **** COPYCHRS.BAS ****"@"A PROGRAM TO MOVE THE C-128'S CHARACTER SET FROM ROM INTO RAM"@ 5@ 255,129,129,129,129,129,129,255@@ 217,4: PLACE ADDRESS OF NEW CHAR SET IN CHAR-SET POINTER'Am GET INPUT, BACKSPACE TO COVER UP CURSOR, AND PRINT TYPED CHAR ON SCREENcC 110: GET NEXT INPUT CHARR SETA2%: SPEED UP CHAR-COPYING OPERATIONA< L0 2047: 14:C(53248L): 0: 8192L,C: L: POKE CHAR DATA INTO NEW LOCATIONBF&:"":0,1:4,6:5,7A" **** COPYCHRS2.BAS ****""A PROGRAM TO MOVE THE C-128'S CHARACTER SET FROM ROM INTO RAM" 5 255,129,129,129,129,129,129,255 217,4: PLACE ADDRESS OF NEW CHAR SET IN CHAR-SET POINTER(R TO A BOX'd 0,1: USE 40-COL TEXT MODEWn "@";: USE REDEFINED '@' CHAR AS A CURSORx A$: (20);: A$;: GET INPUT, BACKSPACE TO COVER UP CURSOR, AND PRINT TYPED CHAR ON SCREEN 110: GET NEXT INPUT CHARHAR SET IN CHAR-SET POINTER(h255,133,2,165,2,208,218,177,251,201?32,208,212,198,254,76,29,193,0,169X13,76,210,255,0,0,089,255,32,192 |255,166,254,32,201,255,76,73,193,96 32,210,255,173,141,2,41,1,208,249 96,32,205,189,169,13,32,210,255,32 204,255,169,80,208,245,230,254,32,210,255,169,4E h166,254,160,255,32,186,255,169,0,133l r63,133,64,133,2,32,189,255,32,192 |255,166,254,32,201,255,76,73,193,96 32,210,255,173,141,2,41,1,208,249 96,32,205,189,169,13,32,210,255,32 204,255,169, 2,1: MOVE START OF BASIC UP TO $4000oA( 2604,(2604) 240 8: TELL VIC CHIP WHERE TO FIND NEW CHAR SETA2%: SPEED UP CHAR-COPYING OPERATIONA< L0 2047: 14:C(53248L): 0: 8192L,C: L: POKE CHAR DATA INTO NEW LOCATIONBF&:`Ѕ éĩ A A`HH t Rhh``AHOY! JULY862A (A128),:MENU C-64FLANKSPEED  64 BUG128 BUGSORT 64SORT 128LEFT OVERS 1c <"%  NOTE: LINE 100 MUST BE TYPED!K " PRESS RETURN FOR EACH TOKEN"] D13500:: 64 BUG128 BUGSORT 64SORT 128LEFT OVERS 1  2,1: MOVE START OF BASIC UP TO $4000p( 2604,(2604) 240 8: TELL VIC CHIP WHERE TO FIND NEW CHAR SET< "COPYCHRS.O": 4864P 0,7: 4,7: 5,2: SET SCREEN, BORDER AND CHAR COLORSZ L0 7: S: 819208L,S: L: CHANGE '@' CHA;; COPYCHRS.S;**=$13000;UCHRBAS = $D000 ;START OF CHR ROM~$NEWADR = $2000 ;START OF NEW CHR RAM.TABLEN = $800 ;LENGTH OF CHR ROM8MVSRCE = $FA ;PTR TO $D000BMVDEST = MVSRCE+2 ;PTR TO $2000 LLENPTR = $C3 ;TEMP  RESUME NORMAL CPU SPEEDOBP 0,7: 4,7: 5,2: SET SCREEN, BORDER AND CHAR COLORSBZ L0 7: S: 819208L,S: L: CHANGE '@' CHAR TO A BOXBd 0,1: USE 40-COL TEXT MODEBn "@";: USE REDEFINED '@' CHAR AS A CURSORCCx A$: (20);: A$;:ADR FOR TABLENAVGETCFG = $FF6B ;KERNAL BANK-SWITCHING SUBROUTINET`INDFET = $FF74Zj;t; POKE CHR DATA INTO NEW LOCATION~; LDA #CHRBAS STA MVSRCE+1; LDA #NEWADR STA MVDEST+1;0 LDA #TABLENd  STA LENPTR+1j;; MOVE STARTS HERE(;2 LDA #0< STA $FF00 ;USE BANK 15F LDY #0P LDX LENPTR+1Z BEQ MVPARTdMVPAGE JSR GETDATAn  Ѝ!  < ة XL7N`$|䧆$N3LH1fGJP3W>/fMENU C-6441,32 3,76,0,0,169,10,133,1983 24,216,88,76,174,167,160,04 185,55,16,153,176,2,20 d53280,6:53281,3:(142))n1000NxL$""q"":I15:11)A$(I)::TA11" "A$(6)2)""8)""6)A$(7):" "A$(8)AA1:BB1:PR$:A9TA10(L$,B7)TA)""A"-"PR$B14175 150 A2 R$;(34);",8,1") "RUN": ""I  631,13: 632,13: 198,2:g  AHOY! NOTES,COMAL NOTES  FLANKSPEED,64 BUG REP,128 BUG REP,SORT 128,SORT 64,LEFT OVERS 1  LEFT OVERS 2,SOUND CHALLENGE,DOUBLE WEDGE,DOUBLE WEDGE 2,TOKEN LISTER " ߩ   ߒ   "D A$(3)" ߩ      "p A$(4)"   ʹ    " A$(5)"      " A$(6)"Ϸ":A$(7)"" $A$(8)"d53280,12:53281,11Mi" FLANKSPEED ";~n" MISTAKEPROOF ML ENTRY PROGRAM "s" CREATED BY G. F. WHEAT "x" COPR. 1984, ION INTERNATIONAL INC. "}A5427254296:A,0:/ 2)T(1)16/ B$"ENDING ADDRESS IN HEX":430:ENBA 470:B0150h 254,T(2)T(1)16:BT(4)1T(3)16 B255BB255:254,(254)1 253,B: GET HEX LINE 495:": ";:A08 B01:250 B A%(A)T(1)T(0)16:ADA1 A$(135)" ":620) A$(136)" ":635O A$"@"A$"G"T(B)(A$)55:295u A$"/"A$":"T(B)(A$)48:295 "415:250 'A$""; ,205 1A0320 6A1:B1330 ;220 @B0(20);(20);:AA1 EAA1 J(20);:"INPUT A 4 DIGIT HEX VALUE!":415F:"ENDING IS LESS THAN STARTING!":B0:415|:"ADDRESS NOT WITHIN SPECIFIED RANGE!":B0:415:"NOT ZERO PAGE OR ROM!":B0:415"?ERROR IN SAVE":415"?ERROR IN LOAD":415::"END OF ML ARE5:A$"/"A$":"T(A)(A$)48:$T(A)16:7 ADRESS CHECKFADEN385YBSRBEN390B256(B40960B49152)B53247395 ADDRESS TO HEXACAD:A4096:520A256:520A16:520A1:520T(AC:A$"":"FILENAME";A$SA$""590+X:"TAPE OR DISK?":Q]B$:T1:B$"D"T8:A$"@0:"A$:bbB$"T"605hglB$"CONTINUE FROM ADDRESS":430:ADBq475:B0620v:195{B$"BEGIN SCAN AT ADDRESS":430:ADB475:B0635"d X 49152 49488:Y:SSY:n Y0 Y255 130Kx X,Y::140"**ERROR**":"PLEASE CHECK LINE"(64)256(63): S44677 "**ERROR**":"PLEASE CHECK DATA LINES 170-500":"":53280,0:53281,6:646,1 " C-68:A02 (L$,24)7)"(C) ION INTERNATIONAL INC"` (L$,22)8)" RETURN OR CHOOSE NO.";~ 198,0:AN$:AN(AN$):B0 AN$""140 :CH1AN:PR$: "":53280,0:53281,0 (L$,15)10)"OADING "PR$"" "LOAD";(34);P1>  TOKEN LISTER 2,COPYCHRS.128,COPYCHRS2.128,C-64 DOS,C-128 DOS  MUSIC SCHOOL,NBRGLL RUN 128,CRAZY JOE,HEAD-ON BOOT,ESCAPE SKULL  WORDCOUNT,SCREEN SLEUTH,REVERSED REMARKS,REVREM DEMO,BOOT C64 COMAL A$(1)"ηϷ " A$(2),230,251,208,2,2308 252,177,251,32,205,189,169,58,32,210a 255,169,0,133,253,230,254,32,37,193 234,165,253,160,0,76,13,193,133,253 177,251,208,237,165,253,41,240,74,74 74,74,24,105,65,32,210,255,165,253  41,15,24,105,65,32,210,54272,4:54273,48:54277,0:54278,249:54296,15H A680699:B:A,B:s 169,251,166,253,164,254,32,216,255,96 169,0,166,251,164,252,32,213,255,96 B$"STARTING ADDRESS IN HEX":430:ADB:SRB 480:B0150 251,T(4)T(3)16:252,T(EN340 " ";- A:TAD((AD256)256):" "Q A07:TTA%(A):T255TT255W o A%(8)T375:195 A07:ADA,A%(A)::ADAD8:195 GET HEX INPUT A$:A$""250 A$(20)305 A$(133)535 A$(134)560220 O LAST LINE' T" ":TAD((AD256)256)M YB0A1:TTA%(B):T255TT255S ^k cA%(A)T375:195 hB0A1:ADB,A%(B): m:"YOU ARE FINISHED!":535 r BELL AND ERROR MESSAGES w:"LINE ENTERED INCORRECTLY"::415|:A":54276,17:54276,16:015,8,15:15,A,A$:15:A$:I GET FOUR DIGIT HEXX:B$;:T$p(T$)4380:430A14:A$(T$,A,1):450:T(A)16380:430:B(T(1)4096)(T(2)256)(T(3)16)T(4):A$"@"A$"G"T(A)(A$)5 A):T9A$(T55):530 A$(T48)*A$;:ACACAT:AA$"**SAVE**":585W1,T,1,A$:680:1c!ST0v&400:T8420+5350A$"**LOAD**":58551,T,0,A$:690:1:ST64195?405:T8420D560I" ":14)A$N:670(B07:AC(ADB):505:ADBENADSR:410:1955" ";:BC:ADAD8ZB$:B$(136)195o495:": ";:650+5350A$"**LOAD**":58551,T,0,A$:690:1:ST64195?405:T8420D560I" ":14)A$N 4 BUG REPELLENT INSTALLED "H 32,161,192,165,43,133,251,165,44,133q 252,160,0,132,254,32,37,193,234,177 251,208,3,76,138,192,230,251,208,2 230,252,76,43,192,76,73,78,69,32 35,32,0,169,35,160,192,32,30,171 160,0,177,251,170Au h AHOY! JULY '86LL2AMENU BOOTMENU C-64FLANKSPEED  64 BUG128 BUGSORT 64SORT 128LEFT OVERS 1 DIRECTORY'EDITOR# DISK'EDIT/PROTCT "DISK'EDITORLEFT OVERS 2SOUND CHALLENGE DOUBLE WEDGEDOUBLE WEDGE 2TOKEN LISTER 1TOKEN LISTER 2COPYCHRS.128COPYCHRS2.128  COPYCHRS.OCOPYCHRS.SC-64 DOS  C-128 DOSMUSIC SCHOOL&NBRGLL RUN 128CRAZY JOE HEAD-ON ESCAPE SKULL)HEAD-ON BOOTWORDCOUNTREVERSED REMARKSREVREM DEMOSCREEN SLEUTH  AHOY! NOTES COMAL NOTES BOOT C64 COMAL C64 COMAL 0.14COMALERRORSML.SIZZLE HI MENUNAMES.DAT COMAL ARTICLE DIR EDITOR.TXT DISK EDITOR.TXT DISK PROTECT.TXT FILE FIXING.TXTDIR'EDITOR.MEM HELP.DATBOOT'DIR'EDITORDIR'MANIPULATOR 4d%: X 3072 3520: Y: X,Y:SSY:110::&}n&: S49057 "**ERROR**":"PLEASE CHECK DATA LINES 140-390":x" C-128 BUG REPELLENT INSTALLED"" TYPE SYS 3072 TO ACTIVATE"  32,161,12,165,45,133,251,165,46,133,252,160, #"":53280,5:53281,0:646,7@ > INSERTION SORT 64 <[ RUPERT REPORT #31v =-=- BASIC 2.0 -=-= M$"THIS IS A TEST MESSAGE"N(M$) A$(N) : A$(0)"" - INPUT THE ARRAY( 2202 - SORT THE ARRAY< 110_255,76,180,13,133,67,169,0,141,0,255,165,67,96M# 133,67,169,0,141,1,255,165,67,96,0,0,0165,250,208,218,177!@ 251,201,32,208,212,198,254,76,29,13,0,169,13,76,98,13,0,0,32!J 170,13,32,226,85,76,180,13,32,170,13,32,50,142,76,180,13,320"T 1 K1 N A$(K)(M$,K,1)+  A$(K);3  K9 ? ":W , == PRINT ARRAY ==] 6:n @:"SORTED:"| J K1 N T A$(K); ^ K c:"LIST THIS PROGRAM FOR DETAILS" h THE ARRAY( 2202 - SORT THE ARRAY< 110 ,76,73,13,96,32,98,13,165,211X  234,41,1,208,249,96,32,89,13,169,13,32,98,13,32,152,13,169,4  76,161,13,147,83,67,82,69,69,78,32,79,82,32,80,82,73,78,84,69 " 82,32,63,32,0,76,44,13,234,177,251,201,32,240,6,138,113,251,69%!, 254,170,138,76 :0,7:4,1:5,24 > INSERTION SORT 128 <P RUPERT REPORT #31m =-=- FOR C-128 -=-=v N20 A(N) : A(0)1E37 - INPUT THE ARRAY( 2202 - SORT THE ARRAY< 110F - PRINT THE SORTED ARRAYP 300Z 0,132,254,32,37N 13,234,177,251,208,3,76,138,12,230,251,208,2,230,252,76,43 12,76,73,78,69,32,35,32,0,169,35,160,12,32,80,13,160,0,177 251,170,230,251,208,2,230,252,177,251,32,89,13,169,58,32,98 13,169,0,133,253,230,254,32,37,13,23K ":!, == PRINT ARRAY =='6:8@:"SORTED:"FJ K1 NST A(K);[^ Kc:"LIST PROGRAM FOR DETAILS..."h - INPUT THE ARRAY( 2202 - SORT THE ARRAY< 110F - PRINT THE SORTED ARRAYP 300Z #"":53280,4:53281,0:646,5D"COMMODARES PROBLEM #27-1:"[" LEFT OVERS"q"SOLUTION BY..."" ROBERT G. BAILEY""ONE MOMENT PLEASE...." N1 1000000 T10 2 1 N((NT)T)T1 40 T: N; ( NOOTMENU C-64FLANKSPEED  64 BUG128 BUGSORT 64SORT 128LEFT OVERS 1,88,12,0,0,0,0,230,251,208,2,230,252,96,170,177g!6 251,201,34,208,6,165,250,73,255,133,250,165,250,208,218,177!@ 251,201,32,208,212,198,254,76,29,13,0,169,13,76,98,13,0,0,32!J 170,13,32,226,85,76,180,13,32,170,13,32,50,142,76,180,13,320"T 1 F - PRINT THE SORTED ARRAY% P 300+ Z1 d:L n == INSERTION SORT ==R x:` I2 Nv V$A$(I) : JI A$(J1)V$ 180 A$(J)A$(J1) : JJ1 150 A$(J)V$ I : == INPUT ARRAY == :4,165,253,160,0,76,13P 13,133,253,177,251,208,237,165,253,41,240,74,74,74,74,24 105,65,32,98,13,165,253,41,15,24,105,65,32,98,13,169,13,32 220,12,230,65,208,2,230,66,230,251,208,2,230,252,76,11,12 169,153,160,12,32,80,13,166,65,165d:!n == INSERTION SORT =='x:5 I2 NI VA(I) : JI] A(J1)V{ A(J)A(J1) : JJ1  A(J)V I: == INPUT ARRAY ==: K1 N A(K)((1)100) A(K); #"":53280,4:53281,0:646,5D"COMMODARES PROBLEM #27-1:"[" LEFT OVERS"n"SOLUTION BY"" CRAIG EWERT" I2519 999999 2520: I;:CTCT1::"COUNT ="CTG----------------SGCADET'S COLUMN#"":53280,7:53281,0:646,1C COMMODARES PROBLEM #27-2:[ SOUND CHALLENGEak 200 - "FROGGY" BY WILL LUDWIGSEN D16:A54272: A24,15: A6,0 A1,100: A5,2 ((162) D)D A4,33 A4,0: 290 : 1270,13,32,210,255,76,180,13,32,170,13,32,228,255,76,180,13,32g"^ 170,13,32,186,255,76,180,13,32,170,13,32,189,255"h 76,180,13,32,170,13,32,192,255,76,180,13,32,170,13"r 32,201,255,76,180,13,32,170,13,32,204,255,76,180,13,32,170 #| 13,32,195, &  - "KEY CLICKS" BY RON WEINERC  I0 15: 54272I,0:l "PRESS KEYS; PRESS [RETURN] TO END  A$: A$"" 22  A$(13) 200  54296,15: 54296,0  A$; : 22   - "WAVES" BY ERNEST BARKMAN S54272:Y((,66,76,231,12,96,76,73,78T 69,83,58,32,0,169,247,160,12,32,80,13,169,3,133,254,32,107 13,201,83,240,6,201,80,208,245,230,254,32,98,13,169,4,166 254,160,255,32,116,13,169,0,133,65,133,66,133,250,32,125,13  32,134,13,166,254,32,143,13 S4,20 : 290 : 91l4m "SWEEPS & LEAPS" BY JOHN PRAGER[n"HOP VALUE (25-55)";H: H2 110}oS54272: S24,15:A$"560143"p J1 (A$): S((A$,J,1)),69:qXX(1)H:XX 255r S1,X: S,X: 290: 113 << MENUTOP WHEN DONE" A$: A$"" 250@ " -PRESS ANY KEY TO RETURN TO MENU-"o (A$)1 10,20,30,40,50,60,70,80,90,110y 200" A$: A$"" , I0 18: 54272I,0:6 20055r S1,X: S,X: 290: 113 << MENU #"":53280,5:53281,0:646,7P"*************************************"}"* *""* CADET'S C-64 DOS *""* *" "******************************** ,4)"EXIT TO BASIC":< Z"ENTER LETTER SIGNIFYING YOUR CHOICE"[ c"WHAT IS YOUR REQUEST";X$d d""y n X$"A" 200 x X$"B" 300 X$"C" 400 X$"D" 500 X$"E" 600 X$"F" 700 X$"G" 800 4) 8);B$;: 268)  #1,B$: B$(32) 270;  28);:C$""_ C$C$B$: #1,B$: B$"" 274m  (C$,3)}  ST0 254  " BLOCKS FREE "  1::"HIT A KEY TO RETURN TO MENU" " X$:X$"" 290 ' , BACKUP FILE 6 2000 WISH TO CONTINUE";X$ X$"Y" 2 15,8,15,"S0:"FI$=& 15:XX DISPLAY ERROR STATUSfb 15,8,15zl15,A$,B$,C$,D$v "ERROR STATUS:"B$:: "ERROR NUMBER:"A$:"HIT A KEY TO RETURN TO MENU" X$: X$"" 650 15: 15:  GIVE FILE NEW NAME* 200084 15,8,15,"R:"NF$"="SF$C> 15:Y RETURN TO BASIC "TO ERASE WEDGE FROM MEMORY TYPE NEW.""TO RETURN TO PROGRAM TYPE RUN"K INPUT ROUTINE"WHAT SOURCE FILE";SF$: "WHA1)3)1: Y1 X131+  S,X: S1,X: S24,X= Y2 X133O ! Y3 X135w " S6,X1: S4,X:Q((1)600)500 # Z1 Q:: 290 : 30 & ' - "GALLOP" BY BOB SNADER (S54296: T0 10: J5 15 5: S,J: S,0 ) D0 60:ADER2 < T0 20 : 54296,15: 54296,0:: P1 500:C = 290 : 60I Dk E - "AIR FLEET" BY JIM SPEERS FS54272:: I0 24: Q: IS,Q: I G 142,6,0,0,33,15,255,125,6,0,0,33,15,255,88,3,0,0,33,15,255,0,0,240,15 H I4 18 7: - "R2-D2" BY KAREN MIDDAUGH$ZS54272:"R2-D2">[R(1)510: I1 RR\DR(15(1)1)g]N1(20(1)26)}^N2(150(1)50)_ S2,0: S3,0: S5,136` S6,129: S1,N1: S,N2a S4,20: S24,15b T1 DR:: S4,19:c ROUTINE >> " SELECT SOUNDS 0 THROUGH 9"Y:"<0> - FROGGY","<1> - KEY CLICKS","<2> - WAVES ","<3> - GALLOP","<4> - SCANNER","<5> - BUZZER","<6> - AIRFLEET","<7> - COMPUTER!","<8> - R2-D2","<9> - SWEEPS & LEAPS":"PRESS RUN/S:0,1:4,5:5,4' 1,0,39,16-Z"*************************************""* *""* CADET'S C-128 DOS *""* *""***************************":) 3);"A",4)"ACCESS DIRECTORY"H 3);"B",4)"BACKUP FILES"l 3);"C",4)"CONSOLIDATE FILES" (3);"D",4)"DELETE FILES" 23);"E",4)"ERROR STATUS" <3);"F",4)"FORMAT DISK" F3);"G",4)"GIVE FILE A NEW NAME" P3);"X" X$"X" 1000 1, ACCESS DIRECTORY< 1,8,0,"$"J #1,A$,B$X #1,A$,B$f #1,A$,B$ C0: A$"" C(A$)  B$"" CC(B$)256  ((C),2);3); #1,B$: ST0 282  B$ (34) 264  #1,B$: B$ (3 @ 15,8,15,"C:"NF$"="SF$ J 15:2  VALIDATE DISK^  "WARNING:OPEN FILES WILL BE DELETED." "HIT Y TO VALIDATE.":"CONTINUE";Q$  Q$"Y"  1,8,15,"V0"  1:  ERASE FILE  "WHAT FILES TO DELETE";FI$ "DO YOU FORMAT DISK" "INSERT DISK TO FORMAT"B "ENTER DISK NAME": DISK$f: "ENTER EXTENDER NAME": ID$"PUT DISK TO BE ERASED IN DRIVE.":"PRESS Y TO CONTINUE. ";"CONTINUE";Q$: Q$"Y"  15,8,15,"N0:"DISK$","ID$!T IS NEW FILE NAME";NF$  DISK TO FORMAT"B "ENTER DISK NAME": DISK$f: "ENTER EXTENDER NAME": ID$"PUT DISK TO BE ERASED IN DRIVE.":"PRESS Y TO CONTINUE. ";"CONTINUE";Q$: Q$"Y"  15,8,15,"N0:"DISK$","ID$:: D0 100:: * 290 : 40$ 0D 1 - "SCANNER" BY BOB SNADERi 2A$"AHOY! COMMODARES": T1 16 3 (A$,T,1);(18);(32);(146);(157); 4 54296,15: 54296,0 5 D040::: (32) 6: 290: 50 : ; - "BUZZER" BY BOB SN SI,0 :* I I4 18 7: SI,33:: 290 : 730 NR O - "COMPUTER!" BY DAVID PALO PS54272:C1024: S6,255: S24,15: S4,17:"" Q S1,256(8):D32: (8).5 D81 R SC1000(8),16(8): C1000(8),D: 290: 81 XY  (d1,5000 , 500,0,1000 ,100 ,0,2048rn"":0,1:1,3:4,15:Y112:1,14,13,"ALERT...ALERT",1:T1163 :Tx0,14,13," ",0:T1165:T:Y"":"":G$"COMMANDER":1650X1500:X :: :G$"THE FORCES OF THE BLACI$ 0!X DISPLAY ERROR STATUS-!b 1,20,39,24:;!l 15,8,15O!v15,A$,B$,C$,D$}!"ERROR STATUS:"B$:"ERROR NUMBER:"A$! 15:! FORMAT DISK! 1,20,39,24:!"INSERT DISK TO FORMAT"!"ENTER DISK NAME": DISK$ ""ENT Y NEED TO":16501:G$"SURVIVE THE ATTACK.":1650g:G$"WE HAVE ARMED A SUPPLY SHIP WITH THE":1650:G$"NEW STELLAR LASER MARK-IV.":1650:::G$"ENEMY TROOP SHIPS ARE PATROLING":1650:G$"THE STELLAR SUPPLY LANES.":1650 : U 1,16,39,187Z"ENTER LETTER SIGNIFYING YOUR CHOICE"Vc"WHAT IS YOUR REQUEST";X$kn X$"A" 200x X$"B" 300 X$"C" 400 X$"D" 500 X$"F" 700 X$"G" 800 X$"E" 1000 600:""0 J::G$"MISSING A TARGET WILL CAUSE AN": 1650d T:G$"IMBALANCE IN YOUR LASER THAT COULD":1650 ^:G$"DESTROY YOU!":1650 h:::G$"DON'T MISS!!!":1650 rX1500:X |::::G$"GOOD LUCK !!!":1650 X12000:X:""#!:"AGAIN, GOOD LUCK !!!")" ((2) 128) 1284700"%W"1,5000 , 500,0,1000 ,100 ,0,2048`"0,1j"2,3s"1,1"1,1310"I18"&X066"0A":B$B$(A)"DX"NB$,I"XB$"""bI"l8,W$:7,Y$:6,Z$:2,D$:,1,16,0,0,0,0 $5,200,100$5,60#5.$4,1,8,0,0,0,1=$ 4,200,75K$4,315#4_$ 1,1,6,0,0,0,0o$*1,172,140{$4S130$>1,((1)40),((1)25),"."$HS$R&$\1480$f CN150$p DI 640,650,660$zCNCN1$J0 ER EXTENDER NAME": ID$0"15,8,15,"N0:"DISK$","ID$:156"O"  GIVE FILE NEW NAMEZ"* 2000y"4 15,8,15,"R:"NF$"="SF$"> 15:" RETURN TO BASIC" 0,0,39,24:" "TO ERASE WEDGE FROM MEMORY TYPE NEW."""TO RETURN TO PROG 1050&GNGNCN:CN0:870&5,((1)360)#44&$2,((1)360)#3J&.3,((1)360)#2`&84,((1)360)#3t&B1,1,6,0,0,0,0&L2,1,6,0,0,0,1&V3,1,7,0,0,0,1&`5,1,13,0,0,0,0&j4,1,8,0,0,0,1&t&~X1(1,0):Y1(1,1)' 2 ACCESS DIRECTORY& 0,0,39,24:7 5,3,39,24=f 1::"HIT A KEY TO RETURN TO MENU"{ Q$:Q$"" 250, BACKUP FILE6 2000@ 15,8,15,"C:"NF$"="SF$J 15: VALIDATE DISK 1,20,39,24:  "K NEBULA":1650@:G$"HAVE BROKEN THROUGH THE PLANETARY":1650q:G$"DEFENSE LINES AND ARE ATTACKING":1650::G$"THE PLANET NEBERGALL":1650:1690"":::G$"WE HAVE GATHERED THE WEAPONS":1650 :G$"AND SUPPLIES THAT THEFXX112:FX0FX512FX'FYY140:FY0FY256FY/'Y250:X172P' 1,7800,15,0,1000,300,2,600a'1,X,YFX,FYr'0,X,YFX,FY'8,X1,Y1'1,0'8,1,9,0,0,0,1' 1,3800,20,1,1000,200,3,600'8,1,3,0,0,0,0:R110:R'Y$,::G$"WE HAVE ONLY ONE LASER.":1650R:G$"YOU WILL HAVE TO DESTROY AS MANY":1650":G$"OF THE TROOP SHIPS AS POSSIBLE, TO":1650,:G$"ENSURE THE SURVIVAL OF THE UNARMED":16506:G$"SUPPLY SHIPS THAT WILL FOLLOW YOU.":1650@1690RAM TYPE RUN"#K# INPUT ROUTINE-# 1,20,39,24:I#"WHAT SOURCE FILE";SF$m#: "WHAT IS NEW FILE NAME";NF$s#y# 15:! FORMAT DISK! 1,20,39,24:!"INSERT DISK TO FORMAT"!"ENTER DISK NAME": DISK$ ""ENT"PLEASE ENTER EXPERIENCE LEVEL (1-9)";;!KBD$:KBD$""405F! LV$`! LV$"1"LV$"9"400s!LV((LV$)48)!M119LV:H111LV:G11450LV50!" ";LV$: 2 "::"THANK YOU, COMMANDER...":"PLEASE HIT YOUR FIRE BUTTON TO LAUNCH"WARNING:OPEN FILES WILL BE DELETED."E "HIT Y TO VALIDATE.":"CONTINUE";Q$W  Q$"Y" i  1,8,15,"V0"s  1:  ERASE FILE  1,20,39,24:  "WHAT FILES TO DELETE";FI$ "DO YOU WISH TO CONTINUE";X$  X$"Y" &""F3,E$:4,F$ #vDI1:670,#D$,2:D$,3:D$,4:DI2:L#E$,2:E$,3:E$,4:DI3:l#F$,2:F$,3:F$,4:DI1:#0,1:1,7:4,1:5,7#2,1,6,0,0,0,1#2,300,164#2,270#1#3,1,7,0,0,0,1#3,200,100#3,290#3#5***************":3 3);"A",4)"ACCESS DIRECTORY"R3);"B",4)"BACKUP FILES"v3);"C",4)"CONSOLIDATE FILES"(3);"D",4)"DELETE FILES"23);"E",4)"EXIT TO BASIC"<3);"F",4)"FORMAT DISK"F3);"G",4)"GIVE FILE A NEW NAME" $J(2):CS41%(J128)128JJ128:MCMC1:1150:1,1:1050B%MCM11490S%HTH11530d%GNG11600r%J0CS0|%JJ1%AJ45:1,A#CS%X1(1,0):Y1(1,1)%X14001,344,Y1:980%X13441,X1344,Y1%% L$ϭMTOOMK 8CCDD CDL\CiCDiDCDNTPPNL 8FFGG GFLFiFGiGFG`)II?)ʭI)ON?I)8==>> > 8:R110:R'Z$,8( R150:R!(8,0:W$,8:0((1)0?((B(53278)J(2B0T(<8,0o(FB144E5:S500:1400(PB136E4:S150:1400(ZB132E3:S100:1400(dB130E2:S50:1400(n(xE,0#0(2,1000,90,1,10, :1:G$"OOPS..ONE MISS TOO MANY..YOU DIED"::::1650C*:::G$"G A M E O V E R":1650v*::G$(SC)" - ENEMY TROOPS DESTROYED":1650*:::G$"HIT ANY KEY TO PLAY AGAIN":1650:A$::400*53269,0:0,1:1:G$"CONGRATULATIONS COMM :::G$"HIT ANY KEY TO PLAY AGAIN":1650:A$::400V,@53269,0:0,1:1:G$"TOO MANY DRONES GOT THROUGH":1650y,J::G$"MISSION ABORTED":1650,T:::G$"G A M E O V E R":1650,^::G$(SC)" - ENEMY TROOPS DESTROYED":1650-h:::Y "(157)(148)(32)(28),1: H$.a. 0, 24, 0, 0, 24, 0, 0, 24, 0,192, 24, 3, 48, 24, 12, 12, 24, 48, 11, 0,208. 8,129, 16, 8,129, 16, 8,129, 16, 8,129, 16, 11, 0,208, 12, 24, 48, 48, 24, 12%/ 192, 24, 3, 0, 24, 0,8C0 0,255, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 23, 0, 20, 00 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 20, 0, 0, 0, 0, 0,255, 0, 2,170,1280 5, 85, 80,255,255,255,138, 40,162,138, 40,162,255,255,162,138, 40,162,138, 40,255,255,255, 5, 85, 80, 2,170,1282& 0,255, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 23, 0, 20, 020 0, 0, 0, 2, 1, 0, 1, 2, 0, 0,132, 0, 0, 72, 0, 0, 48, 0, 64, 0, 0, 0, 0, 0, 12, 0, 0, 19,192Q4X 0,207, 16, 3, 51,192, 0, 12,240, 0,115,192, 0,207, 48, 0,243, 48, 0, 15,2084b 0, 17,192, 0, 15, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 23, 0, 20, 05l 0, 0, 0,3, 0, 20, 036 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 06 0, 0, 0, 0, 3, 0, 0, 12,192, 0, 13,192, 0, 15, 0, 0, 3,192, 0, 0, 06 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, @A=>ɫT iiɫ T k > yLŠ8`8`8`ii`a)k)la?i2b=>@A å&ɬ k k ¥l  =I)=i=>i>=>`)IJ< F̮B)ʭJ)ONBJ)8@@AA A@J)@i@AiA@A` ƭMNBE 8EBL8BE.JE0JJ@-TJ10,3,0) E,0,3,0,0,0,0W)0:0:F18:0,3:E,1,8:TM125:TM:0,8:E,1,3:TM125:TM:F:0,1:1:E,0g)E,344,150)SCSCS:1480:MCMC1:HTHT1)1,1,6,0,0,0,0)58,5:57,20:)1,0,0,"SCORE:"(SC)" ",1:*53269,0:0,1ANDER !!":1650"+::G$"YOU HAVE ENSURED THE SAFTY OF":1650S+:G$"THE OTHER SUPPLY SHIPS AND HAVE":1650+:G$"GIVEN THE PEOPLE OF NEBERGALL A":1650+"::G$"FIGHTING CHANCE":1650+,::G$(SC)" - ENEMY TROOPS DESTROYED":1650,6G$"HIT ANY KEY TO PLAY AGAIN":1650:A$::4008-rG(G$):G2(G2)G$" "G$:1650c-|P1G2:21P);(G$,P);(G$,P):"";s- 1,25535,1-W1 8:W:P:- KBD$:KBD$""1690. 1,0,24,(158)" ADDITIONAL TEXT FOLLOWS, HIT ANY KE 0, 24, 0, 0, 24, 0, 0, 24, 0, 0, 0, 0, 0, 0, 0, 23, 0, 20, 0/ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,255, 0, 2,170,128/ 5, 85, 80,255,255,255, 40,162,138, 40,162,138,255,255,255, 5, 85, 80, 2,170,125,255,255, 5, 85, 80, 2,170,128a1 0,255, 0, 0, 0, 0, 0, 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 23, 0, 20, 01 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,255, 0, 2,170,1282 5, 85, 80,255,25120, 833: 32,252, 16, 17,254, 32, 11,135, 64, 7,255,128, 6,170,128, 11,255, 64, 17,134, 323D 32,252, 16, 64,120, 8, 0, 48, 0, 0, 72, 0, 0,132, 0, 1, 2, 0, 2, 1, 0, 23, 0, 20, 03N 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0o5v 0, 15, 0, 0, 49, 64, 0, 12,192, 0, 55, 64, 0, 15, 48, 0, 51, 64, 0, 15,1925 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 210, 0, 0, 0, 0, 0, 0, 0, 23, 0, 20, 0 0, 0, 0, 0, 0, 0o5v 0, 15, 0, 0, 49, 64, 0, 12,192, 0, 55, 64, 0, 15, 48, 0, 51, 64, 0, 15,1925 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2 lcBm…dCD å&ɬ k k ¥l leEm…fFG å&ɬ k k ¥l lgHm…halХk`ɫT ii ɫL S`a)k)laBib@A=> cccIcccIcccI) ccI) ʎcccJ) ʎccJ) cc`ii` 8L8 c c JJ`NJ J`))Ў*Ў-Ў.ЭM 8ե9Ь`I) MLaL`J) ^LaLƩ@`ǙM^ǙN@^P`abb` $ " @KH @!|ll|?  ICULTY (EASY/HARD)? < ?BUMNLH8MHI)A M;=i>iK 8CD?iE`8= > iiKCD?iE`8NHJ)A Y;@iAiL 8O@O` ƭRS` e `I) L Ǣ`J) L#Ǣ` ͭRccSccԎ ʎԎ Ģ4 ĢԎ ԢԆP Ħ`ЍV` ̩IJ`e` ?͠@ii_T`>=`'Ѝ,Щ(Ѝ+Ѝ-Ѝ.Ѝ)Ѝ*Щ !Щ ЩЍЍЩ` !Щ w  ; ͩ L$ϩQLή?BJ` ʎԎ Ģ4 ĢԎ ԢԆP Ħ`ЍV` ̩IJ`e` ?͠@ii_, A0A1:"HEAD-ON",8,1(491523"":DS$""15: WORDCOUNT - BERT HALVERSONP %:190:0,0,79,24:210l COL0,1:COL4,4:COL5,8t95#2,C$:ST80L(C$)LD20#L57L6520(LU20-#2,C$:STWWN:802I$:I$W:200:"": COUNT DEMAN3:53281,0 d13)" WORDCOUNT "* i""? n"FILE NAME";FL$d s1,8,15:2,8,2,"0:"FL$",SEQ,R"y x1,E,E$:E0135 }"ERROR"E"-- "E$:2:1:215:S& "COUNT NUMBERS AS WORDS? Y ";:"";YN$ YN$"Y"YN$"N""";:135 å&ɬ k k ¥l lc?mÅdCD å&ɬ k @k ¥l @leEmÅfFG å&ɬ k k ¥l lgHmÅhalХk`$Tii S8`LS­cIcccIccNcc` )RV)S`JM?B Pϭ@-TJ`QʎQQ`c JJLA̠)8ii8i8*i8 إ`i8iji8jiiiȝ@~ɝ@}@` 00?@ OG300?G@O  HEAD-ON BY JOHN FEDOR NUMBER OF PLAYERS (1/2)? COMPUTER DIFFFGBiH`8@ A iiLFGBiH`Mc`Nc`hhL J`ʎL/̢ ʎ L8̢ԩԍ ԩԍԩԩ`UʎUʎԢU` #    '  * ƭRS` <ǩ@ ͤѩР\`abb@ii_@刄 ͤ`Щ;ЩЍcccccccc ݭ) `ЩЭ ݭ) ݩ` 7 1380<$ (ƍT H E :YN$"N"1606 D48:U218:*A-9. COUNTS NUMBERS TOO? 165n D65:U218:*A-Z. WILL COUNT LETTERS ONLY. "PRESS ANY PRINTABLE KEY FOR COUNT"R$"RUN/STOP KEY EXITS PROGRAM" "COUNTING...":200 : SUBROUTINES( S40:"* SCREEN BLANKS FOR CERTAIN OPERATIONS *"2 &:ւC S&: 1:%_ : 40-COL FAST SCREEN? (ER)" IN LINE"EL:2:1:(7);:&: (7);:: BELL (128 MODE)COUNT NUMBERS AS WORDS? Y ";:"";YN$ YN$"Y"YN$"N""";:135 D 7L(C$)1 <L3945:*APOSTROPHE=A CHARACTERD ALDWWN:20W FLUWWN:20_ K45 P" "R$13)" FINISHED " U13)"WORDS ="W:2:1:215:S& Z _C$"":L0:D0:U0:W0:N1:X0:E0:R$(13):E$"":YN$"" `53280, &dI5050050625:Q:I,Q:CKCKQ:UnCK17850"ERROR IN DATA STATEMENTS":xs"":53280,14:53281,0:646,7x"SYS 50500 TO PRINT REM LINES REVERSED""SYS 50505 TO PRINT REM LINES NORMALLY": 169,18,76,75,197,169,32,133,5,2,145,251,165,254,201,0,240,9,133,252,165i 253,133,251,76,85,197,162,0,189,188,197,240,7,32,210,255,232 76,161,197,169,19,141,119,2,169,13,141,120,2,169,2,133,198 96,147,76,73,83,84,0 LINES NORMALLY": 169,18,76,75,197,169,32,133, #P"":53280,7:53281,9:646,7kZ"NOTE!! YOU MUST HAVE THE ML PROGRAM IN MEMORY AND ACTIVATE IT."d"TEST PROGRAM": MIDLINE TESTnPRINT"LINE 110 PRINTING"xPRINT"LINE 120 PRINTING" PRINT"LINE 130 PRINTING" ** ; *** SCREEN SLEUTH *** BUCK CHILDRESS (02/12/86) ***h *** P.O. BOX 13575 SALEM, OR 97309 ***53280,6:53281,0:646,3(147)"LOADING AND CHECKING DATA..."::J49152:L90:C11(B0C:A:JB,A:XXA:B:A 2XA"ERROR IN DATA.."2 Z173,20,3,174,21,3,224,192,240,30,141,208,1429h d193,142,209,193,169,41,162,192,120,141,20,3,1585 n142,21,3,142,215,193,142,216,193,142,219,193,1821 x142,220,193,88,96,173,220,193,201,127,240,68,1961 173,215,193,201,127,208,48,133,6,141,219,193,108,208,193,173,1922U 219,193,201,127,208,246,141,215,193,141,220,193,2297 165,206,174,135,2,141,217,193,201,32,208,3,1677 174,33,208,142,218,193,169,0,162,4,133,251,1687 133,252,134,253,165,211,208,4,165,214,240,16,19956,16,9861250,200,132,199,133,254,32,210,255,173,0,4,1842h"205,217,193,240,57,169,20,32,210,255,230,254,2082,165,254,201,128,144,232,201,160,176,5,169,160,1995676,232,192,201,192,144,219,169,18,205,216,193,2057@240,10,141,216,193,1,169,0,32,160,193,32,94,193,169,216,1443P|133,253,166,251,165,252,24,101,253,32,160,193,1983165,253,48,1,96,32,197,193,173,212,193,141,1704134,2,165,251,208,4,165,252,240,20,169,29,1639133,204,32,210,255,198,251,165,251,201,255,208,55,169,19,76,210,255,1918169,216,1443P|133,253,166,251,165,252,24,101,253,32,160,193,1983165,253,48,1,96,32,197,193,173,212,193,141,1704134,2,165,251,208,4,165,252,240,20,169,29,1639133,204,32,210,255,198,251,165,251,201,255,208, *d"":53280,5:53281,0:646,7:(14)Kn" LEASE OTE"ns" "x" HE 128 PROGRAMS ON THIS DISK, WILL NOT LOAD FROM THE HOY! "; "ENU. OU MUST  LOAD THEM IN THE PRESCRIBED METHOD BY  OM2,165,43,133,251,165,44,133,252b 160,0,177,251,133,253,200,177,251,133,254,160,3,200,177,251,201 0,240,39,201,143,208,245,200,177,251,201,0,240,28,201,32,240 4,201,18,208,20,200,177,251,201,0,240,13,201,32,240,245,201' 18,240,241,136,16MODORE"; " IN THE 128 MODE."E "RESS  FOR ENU."Z AN$:AN$""160n AN$(13)160 "":" OADING ENU..." "LOAD";(34);"MENU C-64";(34);",8" "RUN":"" 631,1* THIS IS LINE 140 *** ? "WORKING":NO SPACE HEREX NEXT TO LAST LINE "PROGRAM FINISHED":THIS IS THE END OF THE PROGRAM"&NEBERGALL RUNCRAZY JOE HEAD-ON LINE"L:' <X0:JJ12:LL10:L46040; FL460C13:40v P"DATA OK AND LOADED..."::"SYS 49152 TO ACTIVATE..." U" PLACE CURSOR OVER ANY CHAR. ON THE SCREEN, AND HIT RUN/STOP KEY." V" SEE JULY ISSUE OF AHOY! FOR MORE DETAILS.,204,173,141,2,1818B 208,8,32,159,255,32,228,255,240,46,169,127,1759{ 141,220,193,160,39,140,215,193,185,224,193,153,2056 0,4,185,16,194,153,0,216,136,16,241,32,1193 225,255,240,251,76,146,193,165,207,208,9,165,2140 145,201,127,208/ 169,157,133,204,32,210,255,230,251,208,237,230,2316c 252,76,160,192,160,39,132,204,185,0,4,153,1557 224,193,185,0,216,41,15,153,16,194,136,16,1389 239,173,134,2,141,212,193,173,33,208,41,15,1564 141,134,2,160,39,169,32,153,0,4,1333,199,169,32,76,232,192,1833DJ32,179,193,32,168,193,169,63,32,210,255,76,1602yT68,193,32,179,193,169,0,166,254,32,160,193,1639^173,216,193,201,18,208,5,169,42,32,210,255,1722h169,0,174,217,193,32,160,193,173,218,193,41,1763r15,1702363+233,198,252,76,118,193,169,192,141,216,193,141,2122c219,193,141,220,193,108,208,193,72,32,168,193,1940104,76,205,189,169,32,160,2,32,210,255,136,157016,250,96,162,0,173,33,208,41,15,208,1,1203232,142,134,2,169,13,32,210,23:632,13:198,2:53281,0:646,7:(14)Kn" LEASE OTE"ns" "x" HE 128 PROGRAMS ON THIS DISK, WILL NOT LOAD FROM THE HOY! "; "ENU. OU MUST  LOAD THEM IN THE PRESCRIBED METHOD BY  OMSTEP = 0ARRAY REDEFINEDDIMENSION ERROR CASE ERROR END OF DATAFILE ALREADY OPENFILE INPUT ERROR END-OF-FILE FILE NOT OPEN CON NOT POSSIBLE!ERROR IN PRINT USING"DIVISION BY ZERO#PROGRAM NOT PREPASSED$FILE NOT FOUND% &NOT  B x <`;;ɂ*0?;!حǩ :XLE¢bB";;ȱ;  -:`JJJJ,, )) )й`   ( O ҭƭ+kЭ`íЭ$`.8B_KefaCLEAR SCREENL_OING TO MAIN MENU...e`aV MENU`j p{thI(2i~C33 6o@ !J FGT ^_*****************e`ah_*** ***e`ar_*****************e`a|_`a/_&ITH THE RROR ESSAGES IN YOUR EMORYe`a_`a*_!YOU MAY USE SPRITES 0-14 !!!e`a_`a*_!(IE, DON'T USE SPRITES 15 ANF í _*)@Э ɭЫ~4ʭЭ`Ў>H 0:COMALERRORSR\f} pz-ح$ԭ Jԭ"ԭ; '  ; D2 I( UI _  ` h p' p7 u( BOOT CALLED2 < FoP}Zd p:{n !x  FORMAT ERROR SYNTAX ERROR TYPE CONFLICTFUNCTION ARGUMENT ERROR%STATEMENT TOO LONG OR TOO COMPLICATED SYSTEM ERROR NAME TOO LONG BRACKET ERROROVERFLOW ERROR IN STRUCTURED STATEMENT ERROR IN GOTO STATEMENT STACK OVERFLOW UNKNOW INPUT FILE'DEVICE NOT PRESENT(NOT OUTPUT FILE)STRING NOT DIMENSIONED*LOCAL VARIABLE ERROR4TOO MANY NAMES5FUNCTION VALUE NOT RETURNED6NOT A STATEMENT7!NOT A COMMAND OR SIMPLE STATEMENT8 ',' EXPECTED9NUMBER OUT OF RANGE:EXPRESSION EXPEC01) `B01 SIZZLE OFF SIZZLE ON $ķ LM-W … o nok  iii i д o U C )i.) X$0xN 2301 oPP 8G" :# `iD :DL uLEEEE 4Z P$` ЪЍ!,,0` >  DELETE "0:HI" BY DAVID STIDOLPH SAVE "0:HI"(2 <F P 0Z 1d n x_`a K33(O YOU WANT ERROR MESSAGES IN MEMORY? ٝ hY--9i _KefaD UP)e`a_`a_`a._%OW READING ERROR MESSAGES FROM DISK.e`a_`a_ LEASE WAIT ...e`a_`a  _HANGING ERROR ROUTINE.e`a  >: \7& 0   :  =DNXT&bT%lTN VARIABLE PROCEDURE PARAM ERRORINDEX/PARAM ERRORSUBSTRING ERROR-COMMAND, ARRAY, SUBSTRING, OR PROCEDURE ERROR INDEX ERRORILLEGAL NO. OF INDICESSTRING ASSIGNMENT ERRORFUNCTION ARGUMENT ERRORNOT IMPLEMENTEDZONE VALUE INCORRECTTED;NOT IMPLEMENTED<OPERAND EXPECTED[ USER ERROR #1\ USER ERROR #2dGRAPHIC NOT ACTIVEe ILLEGAL COLORfILLEGAL PLOT COORDINATES OPEN CON NOT POSSIBLE!ERROR IN PRINT USING"DIVISION BY ZERO#PROGRAM NOT PREPASSED$FILE NOT FOUND% &NOT E***x ,0NæĥĮĄ l 0- jđĐđ wHhX`,8đei`,p8)M**M**M**M***л`ʭЭW.Эԭԭ kí ɭ)ŭ-܏ i+ ƭ+Э 0+ C: HIGH C (C6)::B:B: :B  : COMALERRORS <h003iH"_ILE "COMALERRORS" IS NOTe`a#_ON THE DISK. LEASE INSERTe`a _DISK WITH THIS FILE ANDe`a"_ THE PROGRAM AGAIN.e`a,&vT%K$'T$ ' '   SETMSG+n͍ SETMSG-o p ǎ| READ'ERRORS BY PHYRNE BACON ܅     ƭ ϭNNNN N N  ! FG ::BN h *END*3i =  <o& *END*-Ë0 N]75: =DN NX =EXECUTE.e`a}pz'r({ D:)D:B *x!h0j):)C:B  h(*iʎ':)C:Bnގ:)C:Bo$ .C:8BLV h)ic` &j_ eg ')efcfat & )G#%'" :,. 6t@J}T^ t0{h N0r <|N 00-  p!T{ "/B_ : efe`a &  _UTeg eg IN THE DRIVEe`a & &_AND PR