@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@P!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr d M * @  $ % CC$$)%1 Udߥ$9%: !0 S$%} DD˙`  }J)Lr J  ((  p L ()   J}L= ( L 0q A    IB JC;? D W } LL  ` W )LA!  ߰")-݆ p" } $G@LL 08`Q")<2Q0 -G$Ș݆ UL# ; p8(()(0ʥ)NQ` }$GȘ݆LU )L ݆ L GȘ ݆LL )W>Z   HH)H }p h  hyhy D L> L JJ    ! LA*` BF }7'8  M HN H` 8 Z  \LdJJ!"! GFE@F (!L }EE !E^ ^ E E7EȩEdE/EȩE  D } .L }  ;F d  ;?F7F? ( .   Z D LL d } . D  L    p  E` , d)  D L) 0BM݊L݉} ML  N݆ L NLML [ TEqEHȱEqEh 0Gȹ G} HLL GɛL  LFREE SECTORS G) *Gȩ GȽG GȌ*jj >G} C8jJ3j2CD( C202C ԠBX` N 1? l LlD:RAMDISK}.COMLu L1 L ;LHL  T`  `1  ɐ     `TU  } L ? .  t`GBJ ~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI4 0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DEL`?<0LV`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J  (` 9 V⪍ ઍ  -'}LLu ÝDEHILV 9 .l 9 .l  `` s$B BH(}I|DE V BLV nB,DE JLV B V BLVDEIʩ BꭝLu  } 3E:}DISK OPERATING SYSTEM II VERSION COPYRIGHT 1984 ATARI CORP.A. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDG*}E J. DUPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRES+}SF. LOCK FILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES P. FORMAT SINGLEL !N',}#"&))9(&*)/h)''-&؆莟R'S  vL/ˢ L }Insert DOS 2.0s, type Y Λx -}DEfHI 1莏#q! @ y0ɛ8A0,' ȅ 1 1ild! 1L!NO SUCH ITEMSELECT.} ITEM OR FOR MENU! 0 .z:*{}.|{ 1 0 0JB 18L%|DL/}%DIRECTORY--SEARCH SPEC,LIST FILE?[# 0 0 &|D3" 1L!NOT A DISK FILEN !B 1L!E# 1 !BD0}ED:}:1BJ|DE 1DEBHI 1 h0ߢ 0.1}  0?詛 1 y0YЛ 1 ;#L" ;#L! BL1TYPE "Y" TO DELETE...DELETE FILE SPEC2}COPY--FROM, TO?OPTION NOT ALLOWED736 FREE SECTORS COPYING---D1:DIRECK.COMl# 0|D .L/%#3}##JB|DE 1BHID#E 1#0: B 1L!#͑### B 1#c$0SY4}S1}:## # # .#Ƚ# # 𩛙## 1,#PD#ELJ- <.BJD#E 5}1 1HH 0hh|DL%1}:̳# L% #D#EL% 1 0 . .0O% 1L!WILD CARDS NOT A6}LLOWED IN DESTINATION 0 <.|K}N 2 FORMAT. t* 5) 1L!`) 0NΞ 0 L1) 1 L!BAD LOAD FILELOAD FROM WHAT FILE?) 0 ?}0#B 1L!WHAT FILE TO LOCK?) 0 0$B 1L!WHAT FILE TO UNLOCK?DUP DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO US@}E PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV.FE! +L1   `*  70 2 2A} 0.* 1 y0 0)INSERT BOTH DISKS, TYPE RETURN^, 1 y038逍 N, 1L! ,B}C, t*  Lx+, 0 ^, 1 y0 , ,0,0 ,L+ ,I0 ,Vǭ0C}Ξ, 0 }, 1 y0C,ШC, 0K'!" H H 'h h Lx+!EF 5L1L!D,I,HhD}` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNINSERT DESTINATION DISK,TYPE RETURNE}`  `8 rL1`-* 1P* 1 y0Y`hhL!NAME OF FILE TO MOVE?- 0 0|DL% <.F},^ 1 70 0 .@L# .BJ 1  DEHIB V L1 ,} 1 70,L.  G}JB|,#P#DE 1 HI BDEHHII 1 B 1 ,^ 1 70,0La- B V,#PH},^ 1 70 0L#L!-* 1P* 1 y0Yj383}mm ݭI}}`8}``|* ? ɛ,`|:-)| / 1L!`DESTINATION CANT BE DOJ}S.SYS0 0H{ 24Δ 28/L!/) 2 Π 2 0 ξK}hAΞB,0 J 1 BDEHI,HÝDE 1HIHIDELSAVE-GIVE L}FILE,START,END(,INIT,RUN)O S0 1`BDEPHI V` S0H 1 L!M}0 0 1L~0`PLEASE TYPE 1 LETTER,0`hhL! 70 1L0L<1 ,;ɛ7,"ɛ:ݦ1ݥN}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{NAMEO} TOO LONG B VL!` L1I H1EΝDL1|mDiE` V0`8d/8 i:222 1 LP}!ERROR- 138ɛ+,' 20*.. өr2 1``2TOO MANY DIGITSINVALID HEXAQ}DECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8uR} ECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8uJX;T$X;*******************************^X;hX;ASC2BCD macrorX;|!X;Usage: ASC2BCD chars,number X;'chars' is addT}ress of ASCII%X; string to convert,ending w/ EOLX;'number' is address of BCD"X; representation of the stringX; U}ASC2BCD    AError in ASC2BCDA$> @ASCLOOP22Q 9 PASCII9 R>EOL H@ASCLOOP2& VALIDASC0V} E@DONE2: ASC2BCDD E@BCDERRORN $>X @ASCLOOP3b QNUM9l P 9v 2 (> H@ASCLOOP3 , D@DONE2 @BCDERROW}R PRINT CONVERTMSG2 ; @DONE2   X; $X;******************************* X;!X;BCD2ASC macro !X;!!X;UsageX}: BCD2ASC number,chars !X;'number' is address of BCD*!X; number to convert>!$X;'chars' is address of resultingH!#X; ASCII Y}string, ending with EOLR!X;\! BCD2ASC f!  p! AError in BCD2ASCAz!!Q !PNUM! Q ! PNUM! Q Z}! PNUM! BCD2ASC!$>! @BCDLOOP!2! QASCII9!P 9!(>" H@BCDLOOP"2" Q>EOL$"P 9."8"! Q q}X;$X;******************************* X;X;subroutine ASC2BCD X;called by ASC2BCD macro*X;4$X;converts strin \}g of ASCII digits>!X;at address ASCII to a 3-byteH#X;binary-coded decimal represen-RX;tation at address NUM\X;f ASC2B ]}CDp$CHARCTR;;how many charsz0;;to convert?0%>Q>;;zero 3 bytesPNUM;;where BCD valuePNUM;;will go ^} PNUM NXTDIGQASCII9;;get next charPNUM8;;low BCD digit0;;point to nextGBCDDONE;;done yet?QASCII9;; _}get new charT?;;shift intoT?;;high nybbleT?T?$LNUM8;;becomes high.PNUM8;;BCD digit80;;point to prev.BG `}BCDDONE;;done yet?L1;;point to nextV,;;BCD digit`DNXTDIG;;go get itj BCDDONEt,;;all done, so~ :;;leaveCONVERT a}MSG2 AASCII to BCD conA Aversion errorA=EOLX;$X;*******************************X;X;subroutine BCD2ASCX b};called by BCD2ASC macroX;"X;converts 3-byte BCD number at"X;address NUM to a 6-byte ASCIIX;string at address ASCII c}!X;leading zeros are changed to X;leading blanksX; BCD2ASC(Q> ;;init leading2PZEROBLANK;;char to blank<$> d};;pointer to digitF%>;;pointer to charP NXTDIG2ZQNUM9;;get 1st digitd5;;stash on stackn,xV?;;move high nybble e}V?;;into low nybbleV?V?HNONZERO1;;equal to 0?QZEROBLANK;;yes, set toPASCII8;;leading charIDOLOW;;do l f}ow half NONZERO1L>0;;change to ASCIIPASCII8;;add to stringQ>0;;set leadingPZEROBLANK;;char to '0' DOLOW g}3;;aim at next char7;;get BCD digitM>;;keep low nybble"HNONZERO2;;equal to 0?,QZEROBLANK;;yes, set to6PAS h}CII8;;leading char@IBCDDONE2;;all doneJ NONZERO2TL>0;;conver to ASCII^PASCII8;;add to stringhQ>0;;set leading c i}harrPZEROBLANK;;to zero| BCDDONE23;;point to next2;;digit and char(>;;done 3 digits?HNXTDIG2;;no, continu j}e,;;yes, all done :;;exitZEROBLANKint to next2;;digit and char(>;;done 3 digits?HNXTDIG2;;no, continu .d%X;Example 1. Interconverting ASCIInX;strings and BCD numbersxX;X;by Karl E. WiegersX;EI=F>D8:MACRO.l}LIBX;$X;-------------------------------X;!X;store some work variables at"X;$4FE0 so you can examine themX;if ym}ou likeX;$X;-------------------------------X;OX; BCD"CHARCTR, INBUF6 OUTBUF@X;J$X;-n}------------------------------TX;^X; PROGRAM STARTS HEREhX;r"X;You'll be prompted to enter a|"X;number with 1-6 do}igits. This X;is stored at address INBUF.X;The BCD number produced is"X;stored in 3 bytes starting atX;address BCDp}. Then several#X;arithmetic operations are done%X;in both binary and decimal mode,X;and a table of results isX;priq}nted out.X;$X;-------------------------------X;PX; START-;;binary mode! CLS;;clear screenPRINr}T PROMPT;;get input&POSITION =;;number0INPUT =INBUF:$>;;get number ofDQICBLL9;;chars enteredN PCHARCs}TRXX;b#X;------------------------------l"X; lay out the table of resultsv#X;------------------------------X;POSIt}TION  =PRINT TITLEPOSITION  =PRINT HYPHENSPOSITION =PRINT INCREPOSITION = u}PRINT DEC25POSITION = PRINT HEX25POSITION =PRINT ADDBYTEX; #X;-----------------------------v}-$X;convert string to BCD, abort if X;have a conversion problem*#X;------------------------------4X;>ASC2BCD INBUw}F=BCDHDNOPROBLEMR!END\X;f#X;------------------------------p#X;First line: increment the BCDz!X;number in binary x}and decimal"X;modes; be sure to set back to!X;binary before doing anything X;else!#X;reconvert from input string toy}X;BCD after each operation#X;------------------------------X; NOPROBLEM- #BCDBCD2ASC BCD=OUTBUFz}POSITION =PRINT OUTBUFASC2BCD INBUF=BCDX;X;increment in decimal mode$X;.<8 #BCDB-LBCD2A{}SC BCD=OUTBUFVPOSITION =`PRINT OUTBUFjASC2BCD INBUF=BCDtX;~#X;------------------------------$X;Seco|}nd line: add 25 to the BCD!X;number in binary and decimal X;modes#X;------------------------------X;-, QBC}}DO> PBCD DNOINC1 INCREMBCD NOINC1 -BCD2ASC BCD=OUTBUFPOSITION = (PRINT OUTBUF2~}ASC2BCD INBUF=BCD<X;FX;add 25 in decimal modePX;Z PBCD DNOINC2 INCREMBCD }NOINC2-BCD2ASC BCD=OUTBUFPOSITION = PRINT OUTBUFASC2BCD INBUF=BCDX;$X;-------------------}------------$X;Third line: add hexadecimal 25$X;to the BCD number in binary andX;binary modes$X;-------------------}------------X;"-,,6 QBCD@O>%J PBCDT DNOINC3^ INCREMBCDh NOINC3r-|BCD2ASC BCD=OUTBUFPO}SITION = PRINT OUTBUFASC2BCD INBUF=BCDX;X;add $25 in decimal modeX;<, QBCDO>% PBC}D DNOINC4 INCREMBCD NOINC4-BCD2ASC BCD=OUTBUF&POSITION = 0PRINT OUTBUF:ASC2BCD INBUF=}BCDDX;N$X;-------------------------------X"X;Fourth line: add second byteb X;of BCD number to the entirel"X;number, i}n binary and decimalv%X;modes. If number was 1-2 digitsX;long, will just add zero$X;-------------------------------}X;!X;ADD 2ND BYTE TO 3RD - BINARY-, QBCD OBCD PBCD DNOINC5 INCREMBCD NOINC5-BCD2A}SC BCD=OUTBUF POSITION =PRINT OUTBUF ASC2BCD INBUF=BCD*X;4$X;add 2nd byte to total - decimal>X;H}D8:SUBS.LIB X; $X;***}**************************** "X;subroutine do handle carry if !X;adding to the third BCD byte $X;went above 99; can't incr}ement,( "X;so must add 1 to higher order2 X;bytes as needed< X;F INCREMBCDP <;;still in decimalZ ,d Q>;;add 1 to sec}ondn OBCD;;BCD bytex PBCD;;and store DNOMOREINC;;cause carry? , Q>;;yes, so add 1 to OBCD;;first BCD by}te PBCD;;and store NOMOREINC :;;all done, exitOREINC;;cause carry? , Q>;;yes, so add 1 to OBCD;;first BCD by645VCMMMCCMIVJSTICKCMLTOLINDALNMLANG} @do +4("Make sure you }have saved a copy ofW(this program before RUNning itk-@APo n ( (x59@,$-@@}("168,-5  20,41,26,36,112,11,657,1289-@@#6-/6-9 A -@8,}" 6-%$$'@%P:'@%,A/ 6-6-",(...ERROR/& A!  "}(...ERROR!&  #B7-@@-6-B%A$7 A+-@8,"+(>:@'},>:, '@%"P:'@%, ">'@"P:'@,& A 46-%@> A  " A } D(A(CHECKING LINE B%A$%@$P:'@%,D$= +-@@:( MLANG$}=>:@4,=$J(>:@4,:RETURN#(CONT5-GAB@J&AB@$ NOO104,1}62,228,160,95,169,6,32,92,228,162,228,160,98,169,7,32,92,228,96,2548Rll104,104,133,207,104,133,206,104,133,209,104,133,208},104,170,160,255,138,208,2,104,168,177,206,145,3719RII208,136,192,255,208,247,230,207,230,209,202,224,255,208,233,96,3340}Umm104,104,133,207,104,133,206,104,104,168,104,104,133,208,177,206,37,208,145,206,136,192,255,208,245,3931U 96,96Yff}104,104,133,204,104,133,203,104,170,169,0,160,255,224,0,208,4,104,168,169,0,145,203,136,192,3396Y55255,208,249,230,204,202},224,255,208,234,96,2365]^^173,251,6,240,104,173,252,6,141,4,212,173,253,6,141,5,212,173,254,6,240,79,173,48,2,3327]aa1}33,204,173,49,2,133,205,160,3,177,204,201,65,240,61,201,1,240,52,41,112,201,64,144,48,3114]cc201,80,144,42,200,173,255,6,4}8,18,177,204,24,216,109,254,6,145,204,200,177,204,105,0,145,3337]ff204,144,20,177,204,56,216,237,254,6,145,204,200,177,204},233,0,145,204,144,2,200,200,200,208,3984]22189,169,0,141,254,6,141,251,6,76,95,228,1556a11104,104,170,104,168,169,6,32},92,228,96,1273ebb104,104,104,141,188,6,104,104,141,228,6,141,231,6,141,234,6,141,237,6,238,237,6,141,240,3235e[[6,238,}240,6,169,127,141,199,6,162,9,160,4,173,47,2,41,16,240,9,169,255,141,199,6,2765e^^162,19,160,8,140,200,6,160,9,189,206,6,1}53,189,6,202,136,16,246,169,7,174,240,6,160,2969e]]108,32,92,228,96,32,238,6,189,152,6,24,109,200,6,168,205,199,6,144,3,17}2,199,6,189,2809eaa152,6,56,237,200,6,141,201,6,136,177,204,200,145,204,136,240,5,204,201,6,176,242,169,0,3450e\\145,20}4,96,32,238,6,189,152,6,56,237,200,6,168,176,2,160,0,189,152,6,24,109,200,6,2759edd141,201,6,200,177,204,136,145,204,200,2}04,199,6,240,7,204,201,6,144,239,240,237,169,0,145,3855e^^204,96,138,72,162,4,32,238,6,104,170,189,160,6,56,237,200,6,168,}176,2,160,0,189,160,2935e``6,24,109,200,6,141,201,6,136,177,204,61,202,6,145,204,200,200,189,202,6,73,255,49,204,3206edd}136,136,17,204,145,204,200,200,204,199,6,176,7,204,201,6,144,221,240,219,189,202,6,49,204,3719eaa145,204,136,189,202,6,49},204,145,204,96,138,72,162,4,32,238,6,104,170,189,160,6,24,109,2994e^^200,6,168,205,199,6,144,3,172,199,6,189,160,6,56,237},200,6,141,201,6,200,177,204,61,3152fee202,6,145,204,136,136,189,202,6,73,255,49,204,200,200,17,204,145,204,136,136,240,5,}204,201,3699fbb6,176,224,189,202,6,49,204,145,204,200,189,202,6,49,204,145,204,96,189,189,6,133,204,24,3445f^^216,173,1}88,6,125,194,6,133,205,169,0,133,77,96,162,0,188,128,6,48,106,185,120,2,41,2707&f]]8,208,23,189,148,6,221,136,6,240,43,169,}0,133,77,254,148,6,189,148,6,157,0,208,208,29310f\\28,185,120,2,41,4,208,21,169,0,133,77,189,148,6,221,132,6,240,9,222,148,}6,189,148,2652:f[[6,157,0,208,188,128,6,185,120,2,41,2,208,17,189,152,6,221,144,6,240,30,254,152,6,2668DfZZ32,229,6,138,1}6,21,185,120,2,41,1,208,14,189,152,6,221,140,6,240,6,222,152,6,32,2385Nf^^226,6,232,224,4,208,140,162,0,189,164,6,240,83,18}9,168,6,240,50,16,23,222,156,6,222,3182Xf]]156,6,189,156,6,157,4,208,201,47,176,32,169,0,157,164,6,240,53,254,156,6,254,156},6,2959bf``189,156,6,157,4,208,201,208,144,9,169,0,157,164,6,240,106,208,196,189,172,6,240,57,16,3208lf]]23,222,160,6,222},160,6,32,232,6,189,160,6,201,16,176,39,169,0,157,164,6,240,74,254,2920vf\\160,6,254,160,6,32,235,6,189,160,6,24,216,105,16},205,199,6,176,4,41,240,208,7,169,2830f]]0,157,164,6,240,42,189,176,6,61,0,208,240,13,169,255,157,176,6,157,184,6,169,0,15}7,2938f^^164,6,189,180,6,61,8,208,240,13,169,255,157,180,6,157,184,6,169,0,157,164,6,232,224,3141f4,208,145,76,98,228},0,759xiMM0,0,0,0,0,0,0,0,1,3,7,13,15,2,5,10,128,192,224,176,240,64,160,80,1,1321iSS3,7,13,15,5,8,4,128,192,224,176,240,}160,16,32,8,4,15,29,31,23,20,2,16,32,1403iYY240,184,248,232,40,64,2,20,23,29,31,15,4,8,64,40,232,184,248,240,32,16,3,15,31},2245i\\25,31,6,9,48,192,240,248,152,248,96,144,12,3,15,31,25,31,13,24,12,192,240,248,152,2437iNN248,176,24,48,0,9,5,0,}12,0,5,9,0,32,64,0,96,0,64,32,16,16,56,56,124,1092i124,198,198,520 D2:GDW.BAS52,2437iNN248,176,24,48,0,9,5,0,ZPQY%&SCREESPSLODLACNSPSLINEROSDRDICOXLFILPLMRGDBFOOP@A}@@@ @"M}NN M@dN NM ##***********}******************##* JOYTYPE *##* BY JOHN PILGE *##* *}##* PUBLISHED IN ANALOG *##* COMPUTING, SEPT. 88 *##***************************** AfF:Af},%@DDLINE 1820 HAS DELAY, MARGIN AND PRINTER LINE LENGTH VARIABLES.(NNPOKES:77 IS ATTRACT MODE,84-85 IS CURSOR }POSITION,88-89 IS SCREEN MEMORY2 A0 A<16-A)16-F:@,%F:@,$AVFQ-@@8}@'%?%+%@,A(M6-%@Q PQ-@B@e@'%?%+%@,A(M6}-%@Q Z_6-%@--@f@y@5%M%+%@,A([6-%@_ dQ-@}A@'%?%+%@,A(M6-%@Q n[6-A+-A"A(@3%I%%}@A(W6-%@[ x+%A0A+%A1A(]6-A%+-A2AX@3%}K%+%@,A(Y6-%@] Q-AbA@'%?%+%@,A(M6-%@Q }%A@7g%AA(+%A@G?%A@HS%A@Rg%AA(}?%A@6+%A@D?%AA(?%AA(+%AA&?%AA(}+%A@5+%A@P/%@@#6-@/6-A)>-@@)-@}@7 >:AV,; >$76-R:,!6-T:,-"7 A-@ -#"@*+&@}@,!@- A-#"@*+%@@, A- A@"@ A0"@ A }A "@6-&@#-@@1(>:AV,=-@@$, 6-F:%+&@@,, %6)!A')%+}&@@,&A(@) A()%+&@@,%A(J6-&@@6-$T 6-F:%+%@@,, %^)}!A')%+%@@,&A(h) A()%+%@@,%A(r6-%@@6-$|P6-@C"@})"@B)"@)"A")"AbP6-6@7 %6-F:%+&,,#!A'#%+&,&A(# }A(#%+&,%A( 6-6-&$P6-@C"@9)"@y)"A)"AY)"AP6-6@7} %6-F:%+%,,#!A'#%+%,&A(# A(#%+%,%A( 6-6-%$.6}-F:@, -@9'  + .$@6-F:%, @w6"Ad)"Ar@ A [6-F:@,!6}-F:@,A"Au)"Av)"AD'Q(>:A%,[ A"AT6-A @d6-%@2}%"Ac)"Ax%6-@"Ae6-@'&6-%@0"F:@,"@#" A:# >:,} @#6-@D"@ AN"@' >:@',X/67<,.>:, 6-F:@,/6-F:@},b$l!7<,4>:@,! A`vI6-@2#67<,.>:Ac,16-&@= @I6-@[6-&@} @)6-@976-&@C @O6-@[6-@% -  >:@0,% A.6-}&@ @+6-%@.$,-@,-@9@6@: >:@0,&F:@,"@i)'76}-%@:$ $ERROR TRAPMENU FOR FUNCTIONS-@@m  0. NOTHING'( 1. SAVE FILE}9( 2. PRINT ITL( 3. LOAD FILE_( 4. DIRECTORYm(5. TYPEc 6. DELETE FILE-(7. FORMAT DISKC(8. E}RASE LETTERU-@"@c >:@),06-R:,!6-T:,06-F:@," A'"}@* @"' >:@), '"@*!@' >:@(,-@  AP B)@"@w}4@@"B6-&Au*"@ AP4OOAPAPA AApAPA}PAA> APH{6-@6. 467@<@,.A >:A%,{ "WHAT IS THE NAME OF FI}LE IN DRIVE 7@<@,R>    M>:A`,2-AA: >:,> \2 >:A`,>:A`,DL}&(E,(N2(Uf-@@ p6-@zB-&@@0 >:@1,>:@1,>-@B }06-R:,!6-T:,06-F:@," A `'"@* @2' >:@1,'"@}*!@' >:@0,-@  A &)@"A& A "A A}#"@2*"@# A!@ A@967<,.>:,#-@@' +(96-%@ A})6-&@")6-@867<,. "-@@*( .(8 A67@<@,.}$F A@*@@;-@B:,F6.7<,$4>:Ac,' A. @ }8 @>:Ac,B+@ >:A%,+(ӠL AV A`> >:A%,4 SINGLE SPAC}ED OR DOUBLE SPACED?> Apj"@I6-@t"@P6-@~F#@@P:0 >:}A%,;(WAITF @-@B:,$7<,4>:Ac,'$ A  6-  ; 6-}6-@!6-@-6-; @%6-%@!)"% A@0"%@ Ap&@}0 A!@S A9!7<,4>:@2,*"@/6-%@9 A+7<,4>:@,! A }+ A=7<,4>:@',%6-%@36-%@= A/7<,4>:A&,%6-%@/ AH}7<,4>:@2,* @7<,86-%@>6-H A 6-%@ A. A@6. !6-@}. >:A%, @@(7@4>:Ac,-6-&@7 A@2&67<,.6-%@}& A <7@ >:A%, ,  7@F AP>@& ERROR--NO SUCH FILE:-}@A> ZU+67@<@,.7@<@,8 >:A%,U@@d8@8@:}7@<@,, @eA0n 7@<@,x:@0@:7@<@,, @e: A0 }7@<@, A@  A A%(>:A%,"-@@% , @`6}-B:," @, A -@B7<,4>:Ac,&6-F:@,56-F:@,8'B A /7<,4>:}@',% >:A,/ A0/7<,4>:A&,% >:A,/ A097<,4>:@,% >:@,/ A}9 A0 7<,76-F:@,!6-F:@,-"@#7 A 6-&@ A  A@}E(@3@5 >:A%,E( Ӡ" A, A6_: >:A%,NOW } DRIVE 7@<@,_AT@@1 DISK IS NOW FORMATTED' A1 AJ PRES}S FOR MENUT(6-T:,( A ^$h]'7%@<%@,4>:@2,9 @7<,G6-%@}M6-S"] AprF+&,!@@% @7<,1"@< @F A| @"@} @#6-@6-# @$&-@@" @&   @6- $" }" @"6-%@1  # @7<&@,16-%@("@ @(6-%@76}-%@6-#6-)6-7 @$ " A(( @7<&@,>:AU,@}6-@$=#@@S:=0@J;BU,;@,;@,;@},;@,;@,V6-b6-@n6-@x6.D :6.D :*.*66-@;@,*6. } 66-@d&B(>:A%,8 #STORE MESSAGES TO DRIVE ONE OR TWO?B Ap0("@I(67@<@,.2:(}"@P(67@<@,.1D9 >:A%,"-@@% / @`9 A NK  %-@"@}3 >:@),G-@AK X?6-R:,!6-T:,06-F:@,?6-F:@,b'!@*"}@' >:@(,l' @*"@' >:@),v A)@$F'6-F:A,}!"A8< CHECK PRINTER OR DRIVEF A6"A9!  FAULTY DRIVE?,@6 A8"@* @}. NOTHING WRITTEN.8 A?"@5 !TOO MANY CHARACTERS. SUGGEST SAVE? A7"AD" DISK PROT}ECTED-@7 A4"Ag  FILE LOCKED*@4 A["Ai)"AbF (DISK FULL -- TRY }AGAIN WITH ANOTHER DISKQ@[ A"Ap A`Q AC7 #WHAT HAVE DONE TO THIS PROGRAM?}G( ERROR -- Q AM"A`  WRONG DRIVE?+@?-@AC M A0D:JOYTYPEN.BAS}%%X ""**************************** ""* KASON'S TOWER * ""* B}Y JIM ROGERS * ""* *""* COPYRIGHT 1988 *""* BY ANALOG COMPUTING *" }"****************************d: +@-@@:(@ KASON'S TOWERy #AP!-A6AE%" }+u2A!%@B$+ A,%@$+ Ap,@@y ,%%2_ }_76,73,32,56,124,124,252,240,240,230,48,0,252,252,92,92,108,108,104,108,56,124,112,230,254]]255,248,124,56,48,56,60,124, }108,108,104,0,56,124,124,252,240,240,230,48,0,252,252,60,60__126,118,224,224,56,124,112,230,254,255,248,124,56,98,50,60,6 }0,124,112,96,0,56,124,124,252__240,240,230,48,0,112,112,116,62,62,254,246,134,56,124,112,230,254,255,248,124,56,60,12,12}YY62,62,126,116,0,56,124,124,252,240,240,230,48,252,240,92,110,204,0,0,0,0,56,124,112QQ230,254,255,248,124,48,56,60,11}0,0,0,0,0,0,28,62,62,63,15,15,103,12,0,63,63RR58,58,54,54,22,54,28,62,14,103,127,255,31,62,28,12,28,60,62,54,54,22,0,28,6}2SS62,63,15,15,103,12,0,63,63,60,60,126,110,7,7,28,62,14,103,127,255,31,62,28,70RR76,60,60,62,14,6,0,28,62,62,63,15,1}5,103,12,0,14,14,46,124,124,127,111,97,28VV62,14,103,127,255,31,62,28,60,48,48,124,124,126,46,0,28,62,62,63,15,15,103,12,}63 59,58LL118,51,0,0,0,0,28,62,14,103,127,255,31,62,12,28,60,118,0,0,0,0,0,24,60XX126,24,24,24,60,24,60,24,60,12}6,35,65,255,65,35,196,130,255,130,196,40,40,37,35,35NN37,40,42,45,47,50,53,57,60,64,68,72,76,81,173,165,174,16,0,0,0,0,0,}0,172UU165,182,165,172,16,121,96,72,60,72,96,121,96,96,48,50,37,51,51,0,51,52,33,50,52>>0,52,47,0,34,37,39,41,46,3,5,}6,6,7,7,7,6,6,5,3,0,0,1,1,1OO1,1,1,1,1,1,1,0,0,34,0,68,162,144,144,128,121,108,96,91,60,81,121,121,121QQ81,60,60,60,8}1,60,60,60,81,60,47,47,60,47,47,47,47,72,72,81,81,96,96,121,96VV121,144,121,144,121,60,47,60,134,62,254,46,0,0,154,44,0,5}6,0,79,72,138,72,152,72XX169,1,141,10,212,173,172,6,41,1,201,1,208,30,172,164,6,185,165,6,141,2,208,185,225VV6,141,20},208,238,164,6,173,164,6,201,7,144,5,169,0,141,164,6,172,174,6,185,175,6 141,3[[208,238,174,6,173,174,6,201,14,144,5},169,0,141,174,6,238,172,6,104,168,104,170,104,64\\72,138,72,152,72,169,0,141,164,6,141,172,6,141,174,6,165,224,24,105,17},133,226,165,225``105,0,133,227,160,0,162,17,169,0,145,203,145,205,200,202,208,246,173,173,6,133,203,133,205aa160,0,1}62,17,177,224,145,203,177,226,145,205,200,202,208,244,173,189,6,201,1,208,53,238,190TT6,174,190,6,224,4,144,5,169,0,141,1},210,224,5,144,34,169,0,141,190,6,174,191,6[[189,137,30,141,0,210,169,163,141,1,210,238,191,6,174,191,6,224,38,144,5,169,}0,141,191WW6,173,195,6,201,1,208,38,169,42,141,3,210,174,196,6,189,37,30,141,2,210,238,196,6YY173,196,6,201,19,208,14},169,0,141,195,6,141,196,6,141,3,210,141,2,210,173,211,6,201 YY1,208,38,169,166,141,5,210,174,212,6,189,129,30,141,4,210,2}38,212,6,173,212,6,201,8 \\208,14,169,0,141,211,6,141,212,6,141,5,210,141,4,210,104,168,104,170,104,76,98,228,173  197 },6 XX10,141,194,6,169,12,56,237,194,6,168,169,38,153,175,6,153,176,6,173,197,6,41,1,201XX1,208,8,169,214,153,175,6,153!},176,6,160,0,162,6,169,0,153,216,6,200,202,208,247,96^^169,175,162,24,56,237,197,6,202,208,249,96,169,198,141,207,6,141,0"},208,141,1,208,169,175[[141,173,6,169,0,133,20,165,20,201,3,144,250,96,56,165,106,56,233,16,141,7,212,141,192WW6,169,#}62,141,47,2,169,3,141,29,208,173,192,6,24,105,3,133,208,169,0,133,207,162,5__160,0,169,0,145,207,200,208,249,230,208,202,$}208,242,173,192,6,24,105,6,133,208,169,36,133^^207,162,7,142,193,6,160,0,162,12,185,15,30,145,207,200,202,208,247,165,207%},24,105,24,133\\207,174,193,6,202,208,227,230,208,169,29,133,207,162,7,142,193,6,162,2,142,194,6,160,0aa162,5,185,32,&}30,145,207,200,202,208,247,165,207,24,105,13,133,207,174,194,6,202,208,227,165YY207,56,233,2,133,207,174,193,6,202,240,47'},142,193,6,162,2,142,194,6,160,0,162,5,185 27,30bb145,207,200,202,208,247,165,207,24,105,13,133,207,174,194,6,202,20(}8,227,165,207,56,233,2,133]]207,174,193,6,202,208,162,173,192,6,24,105,4,133,204,133,206,230,206,162,7,160,0,169,50]])}153,165,6,200,202,240,9,169,198,153,165,6,200,202,208,238,169,0,141,8,208,141,9,208,141[[10,208,141,11,208,141,8,210,169,*}3,141,15,210,160,0,162,7,185,175,30,153,192,2,200,202ZZ208,246,169,33,141,111,2,169,0,141,172,6,141,195,6,141,196,6,141,1+}97,6,141,203,6,141[[214,6,162,7,160,0,169,38,153,175,6,200,153,175,6,200,202,240,13,169,214,153,175,6,200``153,175,6,,}200,202,208,230,162,7,160,0,169,254,153,225,6,200,202,208,247,169,29,133,225,169 \\135,133,224,32,46,32,173,48,2,133,207,1-}73,49,2,133,208,160,1,169,240,145,207,160,3,177!aa207,24,105,128,145,207,160,8,162,12,169,138,145,207,200,200,200,202,208,.}246,169,187,141,0,2"YY169,30,141,1,2,169,192,141,14,212,160,13,162,31,169,7,32,92,228,173,48,2,24,105,134# 133,207%]/}]173,49,2,105,0,133,208,162,6,142,193,6,160,0,162,20,169,255,145,207,200,202,208,248,165&__207,24,105,120,133,207,165,2080},105,0,133,208,174,193,6,202,208,222,173,48,2,24,105,41,133'[[207,173,49,2,105,4,133,208,160,0,162,16,185,56,30,145,207,201}0,202,208,247,160,0,162,3(YY173,48,2,24,121,182,30,153,218,0,173,49,2,105,4,153,219,0,200,200,202,208,233,169,5)XX141,22}01,6,169,0,141,199,6,141,189,6,141,0,210,141,1,210,169,20,141,200,6,160,0,162*^^20,185,81,30,145,222,200,202,208,247,173,33}1,208,201,6,208,249,160,0,162,20,169,0,145,222+ZZ200,202,208,248,169,1,141,189,6,160,0,173,201,6,24,105,16,145,218,32,46,34}2,169,0,141,WW197,6,160,0,173,199,6,24,105,16,145,220,32,20,32,169,2,141,30,208,173,14,208,41,3-WW201,0,208,3,76,20,35,5}169,0,141,189,6,169,6,56,237,197,6,168,162,247,169,164,141,1.]]210,189,81,29,141,0,210,173,10,210,153,225,6,169,0,133,20,16}65,20,201,20,144,250,232,208/ 226,1691YY0,141,0,210,141,1,210,169,254,153,225,6,169,1,141,189,6,32,237,31,238,197,6,177}3,1972TT6,201,7,144,9,238,199,6,206,200,6,76,145,34,32,34,32,141,173,6,32,62,32,173,153UU208,41,3,201,0,240,56,169,1,148}1,195,6,162,198,173,197,6,41,1,201,1,208,2,162,504YY142,207,6,142,0,208,142,1,208,32,237,31,206,201,6,160,0,173,201,6,24,19}05,16,145,2185VV32,62,32,173,201,6,201,0,208,3,76,74,34,169,2,141,30,208,173,120,2,141,208,6,1736WW205,6,201,1,208,3,76:},232,35,173,202,6,201,1,240,21,173,132,2,201,0,208,14,173,1207UU2,141,204,6,169,1,141,202,6,141,211,6,173,202,6,201,1,208,;}91,32,34,32,174,203,68YY56,253,101,30,141,173,6,172,204,6,192,11,240,7,172,204,6,192,10,208,10,173,207,6,569XX253,113,3<}0,141,207,6,172,204,6,192,7,240,7,172,204,6,192,6,208,10,173,207,6,24,125:YY113,30,141,207,6,173,207,6,141,0,208,141,1,208=},238,203,6,173,203,6,201,12,208,8,169; 0,141=XX203,6,141,202,6,76,215,36,173,205,6,201,1,240,39,173,208,6,201,13,208,8>}8,169,1,141>__205,6,160,0,177,224,201,56,240,11,169,237,133,224,169,29,133,225,76,22,36,169,101,133,224?YY169,29,133,22?}5,173,205,6,201,1,208,49,32,34,32,24,105,4,141,173,6,238,210,6,173,210@YY6,201,12,208,27,32,34,32,141,173,6,169,0,141,205,@}6,141,210,6,165,224,56,233,102,133A[[224,165,225,233,0,133,225,76,215,36,173,208,6,201,10,240,14,173,208,6,201,8,240,7,173A}B\\208,6,201,11,208,21,169,135,133,224,169,29,133,225,173,207,6,201,47,240,3,206,207,6,76CXX159,36,173,208,6,201,6,240,B}14,173,208,6,201,5,240,7,173,208,6,201,7,208,74,169,255D\\133,224,169,28,133,225,173,207,6,201,200,240,3,238,207,6,173,207C},6,141,0,208,141,1,208E]]172,214,6,165,224,24,121,125,30,133,224,165,225,105,0,133,225,238,215,6,173,215,6,201,3FVV208,D}20,169,0,141,215,6,238,214,6,173,214,6,201,4,208,5,169,0,141,214,6,160,0,162G 2,142IXX193,6,173,197,6,10,141,194,6,152E},24,105,12,56,237,194,6,170,185,216,6,201,1,208,89JVV185,218,6,201,1,240,18,185,220,6,56,233,1,153,220,6,201,0,208,69,169,F}1,153,218,6KYY173,197,6,41,1,201,1,240,29,254,175,6,254,175,6,189,175,6,201,214,144,13,169,38,157LWW175,6,169,0,153,216G},6,153,218,6,76,78,37,222,175,6,222,175,6,189,175,6,201,38,176M\\13,169,214,157,175,6,169,0,153,216,6,153,218,6,200,174,19H}3,6,202,208,134,173,216,6,201NXX1,240,38,173,217,6,201,1,240,31,173,10,210,41,15,24,105,16,141,220,6,141,221,6,173OXX10I},210,41,1,168,169,1,153,220,6,141,216,6,141,217,6,174,200,6,160,255,169,0,133,77P''136,208,249,202,208,244,76,171,34 +J}@6-?:A6,``104,169,28,133,206,169,252,133,205,165,129,201,7,208,8,169,7,133,206,169,0,133,205,165,136bK}b133,203,165,137,133,204,162,240,224,3,208,108,160,4,200,177,203,201,48,144,6,177,203,201,155bb208,243,152,72,136,177,20L}3,56,233,48,133,207,169,10,133,209,162,2,134,208,136,177,203,201,48cc240,20,177,203,201,48,144,23,56,233,48,170,165,207,2M}4,101,209,202,208,250,133,207,169,100,133cc209,166,208,202,208,218,160,0,165,207,145,205,230,205,165,205,201,0,208,2,230,N}206,104,168,177bb203,201,155,208,165,160,2,165,203,24,113,203,133,203,165,204,105,0,133,204,160,4,177,203,201``1,240,O}140,224,240,240,229,165,129,201,7,208,34,169,0,133,207,169,7,133,208,169,252,133,205dd169,28,133,206,162,8,160,0,177,207,P}145,205,200,208,249,230,206,230,208,202,208,240,169,252,141&&231,2,169,28,141,232,2,76,252,28D2:KASONTWR.BASQ}R}U? -0.75 0 3.2dUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU!T}UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUVUUUUUUUUUUUUUUU!U}UUUUUUUUUUUUUUUUUUUUVUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUjUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUVUUUUUUUUUUUUUUUUUU!V}UUUUUUUUUUUUUUj^UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUZwUUUUUUUUUUUUUUUUUUUUUU!W}UUUUUUUUjwUUUUUUUUUUUUUUUUUUUUUUUUUUUUUVyUUUUUUUUUUUUUUUUUUUUUUUUUUUUZ^UUUUUUUUUUUUUUUUUUUUUUUUUU!X}UUjoUnUUUUUUUUUUUUUUUUUUUUUUUUUUUUY着UUUUUUUUUUUUUUUUUUUUUUUUUUUVY_UUUUUUUUUUUUUUUUUUUUUUUUUUZ!Y}[UUUUUUUUUUUUUUUUUUUUUUUUUUj[ꪪUUUUUUUUUUUUUUUUUUUUUUUUUU[ꪪUUUUUUUUUUUUUUUUUUUUUUUUUVm!Z}ꪪUUUUUUUUUUUUUUUUUUUUUUUUUZ~_ꪪUUUUUUUUUUUUUUUUUUUUUUUUUjջWꪪUUUUUUUUUUUUUUUUUUUUUUUU~![}UUUUUUUUUUUUUUUUUUUUUUUVh/UUUUUUUUUUUUUUUUUUUUUUUZ/UUUUUUUUUUUUUUUUUUUUUUUjj~UUUU!\}UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUV6ꪪUUUUUUUUUUUUUUUUUUUUUUZ>UUUUUUUU!]}UUUUUUUUUUUUUj%UUUUUUUUUUUUUUUUUUUUUjP)_ꪪUUUUUUUUUUUUUUUUUUUUUV_UUUUUUUUUUUUU!^}UUUUUUUVVnWUUUUUUUUUUUUUUUUUUUUZWZUUUUUUUUUUUUUUUUUUUUUjUV^_zUUUUUUUUUUUUUUUUUU!_}UUio~UUUUUUUUUUUUUUUUUUUV>@YUUUUUUUUUUUUUUUUUUUZzUUW_UUUUUUUUUUUUUUUUUUUj!`},/ViWUUUUUUUUUUUUUUUUUU.j歹UUUUUUUUUUUUUUUUUV UUUUUUUUUUUUUUUUUZ!a} ]UUUUUUUUUUUUUUUUUj`{UUUUUUUUUUUUUUUUUըP UUUUUUUUUUUUUUUUVV!b} UUUUUUUUUUUUUUUUjZ_UUUUUUUUUUUUUUUUjUUUUUUUUUUUUUUUZ?!c}UUUUUUUUUUUUUUUjuUUUUUUUUUUUUUUVxp_UUUUUUUUUUUUUUj[5_UU!d}UUUUUUUUUUUV[UUUUUUUUUUUUZ@zUUUUUUUUUUUZ[X ~UUUUUU!e}UUUUU_YXpzUUUUUUUUUUZUfWUfުUUUUUUUUUUٕUzUuUTUUUUUUUUUZ!f}էUUުUUUUUUUUUjgjVUUUUUUUUVڶ=V~UUUUUUUUZ!g}[ijYUUUUUUUUjմ9~9UUUUUUUU t-)~UUUUUUUV%!q}B%DOS SYSB*)DUP SYSBSBOOTCMP1M65B[BOOTCMP2M65B'kBOOTCMP3M65B)GDW BASBLJOYTYPE BASBLKASONTWRBASBBSMAN1 BBMAN2 BBMAN3 BL"MANDELBTBASB]nSNOW PT1XSNOW PT26#SNOW PT3YSNOW PT4!nSNOW PT59SNOWPLOWOBJ/~UUUUUUUVՙ`UUUUUUUZڻPzUUUUUUUj^Vհ!r}UUUUUUUjmp*)UUUUUUUUfUUUUUUUUn@@!s};UUUUUUU֥'ꪪUUUUUUV@7ꪪUUUUUUVv!t}ꪪUUUUUUV_ꪪUUUUUUZVꪪUUUUUUZ[ꪪU!u}UUUUUZUꪪUUUUUUZU[P ꪪUUUUUU_պVj ꪪUUUUUU!v}VeꪪUUUUUU[Vje09ꪪUUUUUUZUWp@ ꪪUUUUUUZ!w}U ꪪUUUUUUZWs@ꪪUUUUUUZVꪪUUUUUUVk!x}ꪪUUUUUUVֻꪪUUUUUUV귀@wꪪUUUUUUU!y} ꪪUUUUUUUUo@@UUUUUUUUe\.UUUUUUUjk*!z})UUUUUUUjjހzUUUUUUUZڻP zUUUUUUUVծP!{} UUUUUUUU.~UUUUUUUUt8+)~UUUUUUUUjնy!|}9UUUUUUUUZֻgejUUUUUUUUV^>V~UUUUUUUUUj_jU U!}}UUUUUUUUZ٦UUUUUUUUUUUUUZUUv~UUUUUUUUUUZW^_f^UUUUUU!~}UUUUU_YpڞUUUUUUUUUUUZ[PzUUUUUUUUUUUUjZ@zUUUUUUUUUUU!}UV[P>UUUUUUUUUUUUUj[_UUUUUUUUUUUUUUVepn_UUUUUUUUUUUUUUUj!}UUUUUUUUUUUUUUUV UUUUUUUUUUUUUUUUjUUUUUUUUUUUUUUUUZ!}V0 UUUUUUUUUUUUUUUUVV UUUUUUUUUUUUUUUUUpP窥UUUUUUUUUUUUUUUUUj!}d1wUUUUUUUUUUUUUUUUUZ@UUUUUUUUUUUUUUUUUV UUUUUUUUUUUUUUUUUU}!} 몕UUUUUUUUUUUUUUUUUUjf*UYUUUUUUUUUUUUUUUUUUZZ1iUVUUUUUUUUUUUUUUUUUUUVe{m!}UUUUUUUUUUUUUUUUUUUUoUUUUUUUUUUUUUUUUUUUUjUUjޕzUUUUUUUUUUUUUUUUUUUUZ_Z*UUUU!}UUUUUUUUUUUUUUUUUVV>WUUUUUUUUUUUUUUUUUUUUUV_UUUUUUUUUUUUUUUUUUUUUjհ]_UUUUUUUU!}UUUUUUUUUUUUUZ-UUUUUUUUUUUUUUUUUUUUUV>ꪪUUUUUUUUUUUUUUUUUUUUUV6UUUUUUUUUUUUUU!}UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUjf~UUUUUUUUUUUUUUUUUUUUUUUZ-UUUUUUUUUUUUUUUUUUU!}UUUUV{ UUUUUUUUUUUUUUUUUUUUUUUUz%UUUUUUUUUUUUUUUUUUUUUUUUj՝*WꪪUUUUUUUUUUUUUUUUUUUUUUUU!}Zm_ꪪUUUUUUUUUUUUUUUUUUUUUUUUUViꪪUUUUUUUUUUUUUUUUUUUUUUUUUU[ꪪUUUUUUUUUUUUUUUUUUUUUUUUUUj!}[UUUUUUUUUUUUUUUUUUUUUUUUUUZ[׿UUUUUUUUUUUUUUUUUUUUUUUUUUV[UUUUUUUUUUUUUUUUUUUUUUUUUUUYZ!}UUUUUUUUUUUUUUUUUUUUUUUUUUUUju_^UUUUUUUUUUUUUUUUUUUUUUUUUUUUZjڪUUUUUUUUUUUUUUUUUUUUUUUUUUUUUmꪪU!}UUUUUUUUUUUUUUUUUUUUUUUUUUUUjWUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUZgUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU窪UUUUUUU!}UUUUUUUUUUUUUUUUUUUUUUUUZުUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUVUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUjUUUUUUUUUUUUU!}UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUVUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU!}UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU!}UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU!}UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU!}UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU!}!}!}!}!}!}!}!}!}EخȊ z zȩȩ E [ b!}М Qک] 򅟅 Ģ ۤ򄨱ɛ$0L Ģ ۩ T Ģ 5ɛȑ!} @膔7 Ģɛ ĢɛК ۤ򄨱ɛ$0L Ģ ۩ T Ģ 5ɛȑ ; -1.79 -0.01663077 0.2,ʪUViUUUVUU%}UVUUUVUU_UWzUU_%}UVUUWUVUWUZޕUU%}UZޥUUUZUUUZUU%}UZUUUZUUUZUU_%}UVUU_UVUU_UVUUW%}UUUUWUUuUUWUUyUUU%}UUUUUUUUUUUUUUUV%}UUUVUU_UZzU_UUUjU%}WUUUUjUUUUUUUUUUVU_%}UUUUZ_WUUUUUZ_ꪪUUUUUUUjoUWUUUUU%}UUUUUUUUUUUVUUUUUUUUUZuUUUUUUUUU%}jeUUUUUUUUUժiUUUUUUUUUU}_תUUUUUUUU%}VZuUUUUUUUUUUWZ[着UUUUUUUUUUUUU_U~Y՟UUUUUUUUUUU%}UUUUUUkU_UUUUUUUUUUUUUUUUViZUUUUUUUUUUUUUUUUUZU}zUUUUUUUUUUUUUUUUU%}jZ^UUUUUUUUUUUUUUUUUwٳUUUUUUUUUUUUUUUUVZUUUUUUUWUUUUUUUUUUZ%}z@UUUUUUUUU_UUUUUUUUUUUZ_{ꪪUUUUUUUUUUUUUUUUUUUUUjUj~sUUUUUUUUUUUUUUUUUUUUUU%}zUUUjUUUUUZUUUUUUUUUUV~UUVUUUUUkUUUUUUUUUUZﷀeUjUUUUUUUUUUUUUUUj֛%}VUUUUUUUUUUUUUUUj gUUUUVUUUUUUUUfz{ꪪUUUUVUjUjUVek{%}UUUUZVjޭw:VZj߮ iUjjjt U_%}ٟկUUW}Z_^Wu_UVj&^꧖nekezUYWW~w+U端zz_%}U UUWY}Z֪ꪪkmڬ0U__VZj~߾0 UUUiUZZ%}j֮UUUUVUUjZePyUUUUVUUUUUVUVZ類 {UUUUUUUUUUUUUUU%}UUUUUUUUUUUUUUUjZ ZUUUUUkUUUUUUUUUUZ7UjUUUUUjUUUUUUUUUUV%}n-UUVUUUUUUUUUUUUUUUUUUw/zUUUjUUUU_UUUUUUUUUUUUזjUUUVUUUWUUUUUUUUUUUjWy%}ꪪUUUUUVUUUUUUUUUUUUZ_UUUUUUUUUUUUUUUUV@ZUUUUUUUUUUUUUUUUgڣ%}UUUUUUUUUUUUUUUUj^UUUUUUUUUUUUUUUUZVꚭUUUUUUUUUUUUUUUUV]ZUUUUUU%}UUUUUUUUUUUkڧWUUUUUUUUUUUUUU~Y֟UUUUUUUUUUUj[oUUUUUUUU%}Z^睊UUUUUUUUVY}窥UUUUUUUUUi{۪UUUUUUUU%}jyUUUUUUUUUZeUUUUUUUUUVwUUUUUUUUU%}UwUUUUUUUUUUjoUU_UUUUUUUUj_ꪪUUUUUU%}UZ_ꪪWUUUUUVU_UUUUUUUUUUUUj%}UUUUUjUWUUUUZzUWUUVzU%}_UVUUUUUUUUUU%}UUUUUUUyUUUUUUUW%}UUUUWUVUUWUVUU_%}UVUU_UZUU_UZUU%}UZUUUZUUUZUU%}UZUUUZUUUZڕUW%}UVUWUVzUU_UVUU_UV%}UUUVUUUViUUVUU%}VUWVU_WU%}VUUU_%}%}%}%}%}%}%}%}%}%}%}%}%}%}%}%}%}%}%}%}%}EخȊ z zȩȩ E [%} bМ Qک] 򅟅 Ģ ۤ򄨱ɛ$0L Ģ ۩ T Ģ 5%}ɛȑ @膔7 Ģɛ ĢɛК ۤ򄨱ɛ$0L Ģ ۩ T Ģ 5$E -0.7927375 0.160690489 0.012dٲ\#U-ծykUӽϻ_i~ )}ٞjթuꪯ~eKꪯեEv9okkUzagi>45_Vh۶]0{;_ꪩUUUZ?ӾmIuٝ4 |蛷_ꪪUUUfXIy6|_}k_V~歟_ꪪUV]@'~^uv m)}_U~mťo]eiwr_[y'du[+g1eգo_*C_̵X2թVKVW)}ꪪVo?¶ੳQykjW ÀޕWݫHnnԀ&*goV )n}^WަAuT&nVg{石\@iUj)}$oO_UUUUiWe]]_UUbmSUUU-'fW_׽UٳjUUZ-;__UVz~'U)}Uص{UU&Bq+_UUZUV[npAh:տ_UUj"UVnKfPvUUZB۪jo)}Xꪪۂ UUUV-뺪fgꪪە5^UUUUV0埪V]7ꟕ[x+y~UUUUUm&a[~)}[ΖU_UU_i UUV⩓.[n_UUUUi_SU_4fz_UUUV^_꯷*8$eUy)}z}G_UUUZiiWV!ݖ;yUe%wf_UUjb^WyyWm1(kuka_UVIUVWZg)}_Ԋ`>U_Y™و_n,{{z_Uew\Y_}C m_WUg꯿Y_ޕYZ6y_)}[!ZV_v߬,__[f&jgꪼ6}jn^U3WZx'_ZgF;UkvQgWꪪ)}Z VU߈U[zu~WZAg}f gyZUVjtiZUzWZe|B'꫇ڕUVue^zWZ)}7Zڽ|f V\egUꪪZs5S jxV.ޗoh广U[]?UUU^*XwmUkWT Us)}ozUmZ~LR4mUnzٷ<ꪫϺyU_o_A_;~)}Ӧj|֥UWv8%P~czkUjo~UWյp۝)zU_VާU^UUծ`0.J@NYiU)}UZt_UUUUp ZUm韥WeWUUU_UmRUZj՝UZMץ_rWWUUWV[9UZoVϊw_ꪪ)}WUUUVۃ !UjA;UW_UUU_UVj1&UU__UUUUUZp5ֵs?UU_)}UUUUUUUUZ|y~ֵAzwgUWUUUUUUUUUZҞZ%ꪽU_UUUUUUUUUjjZ9UUꪩUUUUU)}UUUUj"U՛Uš[UWꪩUUUUUUUUUjz{ 檫֬'Uk5/U_UUUUUUUUU@UZZiU_UUUUUUUUU)}& PtWV UUVUUUUUUUUUV!tߪuUV&uUUUUUUUUUUVXQ$8=VUUWUUUUUUUZj*}CUpWUWUUUUUUjY|łB յ9WUWUUUUUUjkqx ]շԵY_ꪩUWUUUUUUjXa7*}]z_ꪥUWUUUUUVZ"[ꪫW)~ꪥUWUUUUUZVk&C6|~ꪕUWUUUUUjUfuoZ*}N+~ꪕUWUUUUUjP^Uj._UWꪩUUUZUkm#V:UUZ}_UUWꪪUUUZޟ񺬩UUVgu*}UUWUjUZ[UUUijUUWUVUUUUUUj[uuUUWUVUZUZfuy*}UUWUVVUZgmUUWꪪUUkV2UUWUUVV˝vyUUW*}UUUUۢnچ_UUW_UUjZUېk_UUW_ꪪUUjVի__UUW_*}UUjUjoevYWUUWWUUjUZoA jWUUWWUUjUVmRgzUUWUꪪ*}UUjUjnZ,&UUWUUUjUZnUZߺUUUUUUjUZnΔ~_UUUUUUj*}UVim__UUUUUUjUU[rѮLWWUUUU_UUjUUj[6i WUUUU_UUjU* }Uj[`UUUUWUUjUUZZۧUUUUWUUUUZZ&VyzUUUUUUUUUV* }j@yzUUUUUUUUUUVj`LIGUUUUUUUUUUVjaBUUUUUUUVUUUjK* }oUgUUUU_UUVUUUjج?^UUU_UWUUVUUUjYik_UUU_UWUUZUUjվޟ/Z_* }UUU_UUUUZUUիe+Uv}_UU_UUUUUjUUUU__UUWUU_UUUjUUUV]ry_UUW* }UUWUUUUUUVkyUUWUUUUUUUU[nxiiUUWUU_UUUVUUUmZiiUUUUUU*}UUUZUUU UUUUUUU_UUUUZUUUl iUUUUUUUUUUUUjUUUSJ zUUUUUUUUU*}UUUUV9SzUUUUUUUUUUVUUV.1tN_UUUUUUUUUUZUUVYMd_UUUUUUUUUj*}UUZU_UUꪪUUUUUUVUUZPi~UUUUUUUZUUjCQbrCꪕUUUUUVU*}UjGYo[UꪪUUUjUUlVBzwUVUUܹzUUUV*}vYm@7-UUUZջ?n+F__UUjշw "}WꪥWUUVk]*}$UUiUVV-kUWU_UUZVfKwUUUWv_ꪪUVvoWu*}U_UUUUlWUVZVUUqUZZi%5VꪪUj5P1__*}VZVj`" uWחtiUjPH:zWB_Uկ{jB *~U]4*}'VV *7뿭bpX Uj[ &ח9}AYE6-@Q6-Ap]6-@1i6-Au6-@1 APc6-Ap6-@'6-?8P36-@y.?}?6-@K6-@W6-Ac6-@1+ 6-'6-&'@+6-%'@`jjLINE 470 CALCULATES COLUMN.@} AND ROW VALUES FOR COORDS AND SIZE SELECTED IT THEN STORES THEM IN ARRAYSO-68,-%$" 0-?6.A}8,-&$$C O6-;;LINES 490-540 ASSIGN COLOR VALUES FOR SPECIFIC COUNTS16-%@6-@#6-1.B}"A006-&@@&68,-0 A "6-6-%@ Ap"@6.C}8,-*6-06-96-8,B6-8,N6-Z6-f6-p @ V68,-6-.D}*6-66-?6-8,H6-8,L+V @ &''LINES 560-630 ARE I/O ROUTINESRUN0"A:~.E}@ Ad@=@@J*@W @d @q @~*@D7*.F}@*@**@7*@NAd@*ARF:@,?ASF:@,KAVW.G}AWkAP%@6-?:A6<@,@X Ab@ Ad@=@@.H}J)@W@d@q@~)@)@lH)@)@*).I}@.+H0@@vAd@*ARF:@,?ASF:@,KAVWAW.J}kAP%@6-?:A6<@,@"@ A A104,104,104,170,76,86,228.K}%%2!B7tAG!STARTS PMVV255, 129,129,129,129,129,129,129,189,165,165,165,16.L}5,165,165,165,165,165,165,165==165,165,165,189,129,129,129,129,129,129,129,129,129,255VV104,160,1,177,203,136,145,203.M},196,205,200,200,144,245,198,203,96,104,164,205,177//203,200,145,203,136,136,16,247,230,203,96v6-F:A,&@H.N}&A2BBy@6-AV$RAY@bdB2w@vB2V@y-%A$%A'.O}+ 96-%A%PAP:'AV,yA&+F:A,$AV,&@_A@4#A/-.P}%@33"9= Q-APAU"[_ O-@@0! A% 16-@8CAd@.Q}O6-@ M6-F:Ad,MLINES 780-930 ARE FOR CURSOR MOVEMENT 930, IS END OF PMA"@6-%@)B2H.R}5A@A6-@ A"A56-%@)B2H5A@A6-@*A"@6-&@).S}B2H5@A6-A4A"A46-&@)B2H5@A6-A>1"@#-@.T}@ - A 1 H"AB A R1"@#-@@ - A1 \"AC Af+.U}"@!AY+ A 0pAd@2 AzA$56-%@ 6-?:Ag,2A.V}A5$6@ $56-&@ 6-?:AP,2AA5$lB2H2AF:A.W},%@HlFOLLOWING LINES DET. COORDS AND STARTING OF ANOTHER SETZ"@(6-P:'@,&@66-%@.X}B6-@N6-?8PZ6-@{"@46-P:++'@,&@,'@,W6-P:+'@%@,'@,c.Y}6-?Bo6-@T{6-@@b"@!(6-P:'@,&@>6-'@%@J6-@V6-@Tb6-.Z}@l"@1:6-@$+P:'@,&@",%@H6-%@T6-@`6-?wl6-A`+ 6-'.[}6-&'@+6-%'@` 6-%$6-&$$1 }1 !THE EAL CENTER OF THE CURSER IS % % THE MA.\}GINARY CENTER IS @ ,  THE SIZE OF THE NNER CURSOR IS <6-@$$@ @ ,  THE SIZE OF THE UTER CURSOR IS.]} <6-@$$@ H 2 &DO YOU WANT TO CREATE A NEW SET Y OR NDAd@(H 4Y AP$ A0.^}.@< 4WHICH PARAMETER(S) DO YOU WISH TO CHANGE , , @8# 4R # A B# 4I ._}# A LR 4S %H SIZE MUST BE GREATER THAN ZEROR AV A `2  .`} ! $ ' 2 a8  4 %DO YOU WISH TO CHANGE ANY MORE Y OR N8j 4Y Apt A~.a}#   SELECT SIZE VALUE:# @ INNER CURSORS SIZE VALUE# @ OUTER CURSORS SIZE VALUE4   YOUR OWN IZE .b} 4 SELECT I, O OR S!4S6.S! A 4O6- A  4I6- A  A.c}^ 6.O< ,TO SAVE SCREEN PRESS S OTHERWISE RETURN@H4ST6-@^ A +6-6.O!+@.d}+ Af f ZDO YOU WANT TO UIT, O BACK TO SELECTED VALUES, OR TART A NEW SET Q, G, OR S .e}4Q 4S @ A;;LINES 1270-1330 ARE ERROR HANDLING/DETECTING ROUTINESH%6-F:A,$A.f}V%F:A,46-F:A,> BH ApH"Ae,(BAD FILE NAME, TRY AGAIN>Ad@(H A@.g}RA"A9)"A@)"AB)"AC)"Ac)"A6O  I/O ERRORR"A8)"AD  +"AE).h}"A`(  DISK ERROR+T"Ap/ FILE NOT ON DISK, TRY AGAINAAd@(J6.D:T A@I"@.i}#-@@PE2A@@I (G%2( @ ******REENTER******C.j} G 2)&  ERROR NUMBER  AT LINE )<66LINES 1350-1400 ARE USED WITH I/O ROUTINES ABOVEFC@1@.k}@D:*.*90SC APe@ A66.7@FULX;;6 bytesHFULY;;6 bytesRCARX2v};;4 bytes\CARY;;4 bytesfOFFSCN;;2 bytespSLENGTHz EDM;;2 SXP SYPX;X;OS equatesX2w}; CIOVV ICCOMB ICBALD ICBAHE ICBLLH ICBLHI AUX1J AUX2KSETVBV\XITVB2x}VbRANDOM $ RTCLOK.CONSOL8 EOLB SEOLL PCHR6VX;`COLOR0jCOLOR1tCOLOR22y}~COLOR3COLOR4SDLSTL0 CHX; STICKx STRIGHPOSP0HPOSM0HSCROL2z}VSCROLHITCLR P0PL  P1PL X;X;memory usageX;(SCNMEM2 PMB< SETF MYPMB2{}PMSMEMPMBZP0MEMMYPMBdP1MEMMYPMBnP2MEMMYPMBxP3MEMMYPMB CHSET GOVER2|}TXTWINSCLNTXTWINCHRLN1TXTWIN(SC2SCNMEMSC3SC2SC4SC3SC5SC4SC6S2}}C5SC7SC6SC8SC7SC9SC8SC10SC9SC11SC10 BCKUP" SET2},SCRLMEM|62~}X;credits @ $7b00@X;JX;display list interruptTX;^PMBhDLI5r DICQ>|P ԆPА79X;X;character s2}etX;>D:SNOW.PT5X; TXTWIN A FUEL 150 PLOWS A A3 SCORE A A000000 AX; GOVER2} A A& A press A0 ASTART A:X;DX;display lists ;intro firstNX;then game boardXX;b2}lIDLST p=p=p=pv p=p=p=B SNOWMEM =p=p=p= =p=p=p=p WLMS SCRLMEM p=p=p=p=F2} TOPSCORE A IDLSTX;DL1 p=p=p B SNOWMEM   u SL1 SCNMEM* u4 SC2> uH2} SC3R u\ SC4f up SC5z u SC6 u SC7 u SC8 u SC9 u SC10  SC11 F2}TMESS TXTWIN =A  DL1 X;$ X;start of program. X;8 @B X;L X;save the display listV X;for next levels` 2}X;j BEGIN%>2t MDLQDL18~ PBCKUP8 1 IMDL Q>5CHSET;;new chrset P  SETPMG;;player init X; $>5VBLNK;2};set vbi %>4VBLNK Q> SETVBV Q> PIFLAG;;intro flag X; X;begin new level X; NEWBEGQ>( PDIRF2 P2}MAPFLG< GETDIRF !NEWBP NDIRC CLOSE6Z X;d NEWB INITn REPLAYx Q> PLIVES Q> PICEON SHOLIV NLE2}VL STARTI FIGLEV RESFUL DSPFUL REPLAY CLRPM QDIRF HDROK MAP2QMAPFLG;;intern map HDROK Q>2} PMAPFLG" UNCOM, !SKP6 DROK GETFIL@ LOADMPJ SKP FNDFULT FNDCRS^ CNTRDSh COPYDLr SETSCN| Q> 2} PDIRECT DEFPLR Q> PVFLG X; X;main loop X; MAINQCONSOL R> HMN2 !STKEY MN2QSTICK PDIREC2}T DEFPLR PHITCLR MOVPLR& REMOVE0 Q: HNTRGD JMPEDGN NTRG ICESNDX QP0PLb R> l EOUCHv QP1PL 2}R> EOUCH QROADG RROADC HKL QROADG RROADC HKL WAITSM !NLEVL KLQFUEL LFUEL LFU2}EL HKK OUCHPHITCLR REMP23 SPIN* GRESET4 PHITCLR> DELAYH !KKR OOPS!GAMOVR\ KKQLIVESf FOOPS2}p QCHz R> FNOPAUS PAUSE NOPAUS!MAIN X; X; X; SETPMGQ>> P/ Q>;;5th enable Po Q>2} P Q>5PMBPQ>(;;yellowP$Q>;;black.P8Q>BPLPVQ>`PPXPjQ>ptPPYP~Q>2}P ВP М:X;X;X; CLRPM%>Q>CPMPP0MEM8 PP1MEM8 PP2MEM8 PP3MEM8 PMSME2}M8 1)>HCPM(:2X;<X;FX;PDEFPLR$>Z QDIRECTdDF1RDIRTAB9n FDFOKx0IDF1:DFOK2}QPD0L9PJL QPD0H9 PJL QPD1L9PIL QPD1H9 PILA5QPYPPY1, OYTB9" PPYP,PY22}6?@Q>JPP1MEM8T%>^ DFPQ@JL7h$Y1r PP0MEM9| Q@IL7$Y2 PP1MEM93#Y1#Y2)>HDFP2}$Y2 PP1MEM9$PXP &HPOSP07>QPXP, OXTB9& PPXP0PHPOSP0::DX;NDIRTAB  === XX2}TB ===bYTB ===lX;v X;󠦠X;$PD0L 4P0D1=4P0D2=4P0D3=4P0D4$PD0H 5P0D2}1=5P0D2=5P0D3=5P0D4$PD1L 4P1D1=4P1D2=4P1D3=4P1D4$PD1H 5P1D1=5P1D2=5P1D3=5P1D4P0D1 === =v=2}v=v v=v=v= ===P0D2 === =n=n=n n=n=n= ===P0D3 =f=f=~  ~2}=~=~=~ ~=f=f=f  ~=~=f=*P0D4 =f=~=~4 f=f=f=~> ~=~=~=~H ~=f=f=RX;\P1D1 ==2}=f ===p ===z ===P1D2 === =a=a=a a=a=a= ===P1D3 2}=== === === ===P1D4 === === === ===X;2} X;X; LDL%>$HDLN. DELAY%>8 DLN WAITB1LHDLNV:`X;jX;tX;~X;set up 128 table 2}INIT%> Q>4SCNMEM PM128L Q>5SCNMEM PM128HTLPQM128L8,O>PM128L8 QM128H8O>PM128H2}83 )>!HTLPX;($>;;score & fuel2Q>;;IC $10<SCFPSCRS9F0PISCFZ PTHOUSd RESFULnQ>;;set live2}sx PLIVESQ>PTXTWINQ>` PICECNTQ> PLEVEL:X;CLRTAB =D= =F=X;STSCRLQ>5SL12} PJL Q>4SL1PJL:X;"X;,X;6 WHER%DRY@WHEREQM128L8JPJLT QM128H8^ PJLh:rX;|2}X;X;SMX ;;pos on scrn SMY X; X;X;SCROLLQDIRECTX;MMRR>;;rt?HMML L2}OOKRDRA1: RA1QSXPR>SDHO&:0 HOQ>: PVERTD PLWSNDN KBQ>XPADDb CORSHl#SMXv#SXP$>2}KA&HSCROL WAIT TRACKR0IKA "VERT QVERTIKBFULOUT SFUEL OFF2 CKFTIM:X;  MML2}R> HMUP  LOOKL*DLA14:> LA1QSXPHHHQR:\ HQQ>f PVERTp PLWSNDz KD$>KC&HSCROL WAIT 2}TRACKL2(>HKCQ>PADD$> &HSCROL CORSH"SXP"SMX "VERT QVERTIKD$ !FULOUT.X;82}X;BX;L CORSH%>V CSAQSL18`,jOADDt PSL18~333)>!HCSA:X;X;X; MUP2}R>HMDN LOOKUDUA1:  UA1QSYPFNOM PLWSND(Q>2PADD< CORSVF"SYPP"SMYZ$>dU1&VSCR2}OLn WAITx TRACKU0IU1Q> PVSCROL !FULOUT:X; X;X; MDNR> HNOM LOOKDDDA12}: DA1QSYPR> "DD1,:6D1 PLWSND@$>JD2&VSCROLT WAIT^ TRACKUh2r(>|HD2$> &VSCROL2}Q>PADD CORSV#SYP#SMY !FULOUTNOM:X;X;X;CORSVQADDGCSV%> CVLQ2}SL18&,0O>: PSL18D3N QSL18XO>b PSL18l3v3)>!HCVL:X; CSV%> CVPQSL18;S> P2}SL183 QSL18S> PSL183 3)>! HCVP*:4X;>X;HX;R WAITQ>\Pf WW2QpFWW2z2}:X;X;X;MOVPLRQDIRECTR>HMLLQPXPR>|DGORQSXPR>SEGOR !MOUT GOR2}QPXPR> EMVRET$ LOOKR. DGOR18 :;;nopeBGOR1 PLWSNDL%>V RL1#PXP`$PXPj &HPOSP0t #PXP~ $PXP2}&HPOSP0 WAIT TRACKR1IRL1#SMX#SMX !FULOUTMOUT SCROLL MVRET:X; MLLR> HMDD2}  LOOKL DGOL2:( GOL2QPXP2R>;;124+8< EGOL1FQSXPP HMOUTZ GOLQPXPdR>0n FMVRETx DMVRETGOL1 2}PLWSND%> LL1"PXP$PXP &HPOSP0 "PXP $PXP&HPOSP0 WAIT TRACKL1ILL1"SMX"2}SMX !FULOUTX;" MDDR> ,HMUU6 LOOKD@DGD3J:T GD3QPYP^R>`hDGDNrQSYP|R> EGDN !MOUT GD2}NQPYPR> EMVRETQ> PVERT PLWSND GD2QPYPPY1 QPYPPY2? Q> PP1MEM8;;eras top $>2}& GD1%Y10 QP0MEM8: PP0MEM8D %Y2N QP1MEM8X R>b HFOAl Q>v HFOB FOAR> HFOB Q> FOBP2}P1MEM8 "Y1 "Y2 0 IGD1 #PYP #PYP WAIT "VERT QVERT!IGD2 !#SMY! !FULOUT !X;*!X;4! MU2}UR>>!FMU3H!GU4!MVRETR!MU3 LOOKU\!DMU4f!:p! MU4QPYPz!R>p!EGUU!QSYP!FGUU! !MOUT! GUUQPYP!R>02}!HGU5! !MOUT!GU5 PLWSND!Q>! PVERT! GU2%PYP!$>"GU1QP0MEM8"PP0MEM8" QP1MEM8$"R>."HFOC8"Q2}>B"HFODL" FOCR>V"HFOD`"Q>j"FODPP1MEM8t"3~"0"IGU1" WAIT""PYP" "VERT" QVERT"IGU2""SMY" 2}!FULOUT"X;"X; :result in "X;"LOOKR%SMY# WHERE #%SMX#3#3(#LKRETQ@JL72# PCURCHR<# CKCHARF2}#:P#X;Z#LOOKL%SMYd# WHEREn#%SMXx#1#1# !LKRET#X;#LOOKD%SMY#3# WHERE#%SMX# !LKRET#X;#LOOKU%2}SMY#1# WHERE#%SMX$ !LKRET$X;$X;erase chr beneath dozer"$X;repalce with next char.,$X;which is a road w/o snow2}6$X;@$REMOVE%SMYJ$ WHERET$%SMX^$ Q@JL7h$$>r$RB1RROADS9|$FSF5$0$IRB1$!SF6$SF5R>;;cng car to road2}$FSF8$R>$HSF7$SF85;;save car$Q>a$ P@JL7$3$ P@JL7$ BONSCR% HORN%7%R>&%FSFA0%HSF6:%SF7>2}D%2N%AX% P@JL7b%3l% Q@JL7v%>%2%A% P@JL7%R> ;; fuel?%FSF6%SFA#ROADG%HSH1% #ROADG%X;%SH1 2}DOSCOR;;show score%X;%SF6QCURCHR%R>;;fuel?& HCAR? &X;&#CURCHR;;empty fuel &%SMY*& WHERE4&$FOFS;;get po2}s.>&FFAQJLH& RFULY9R&FFFB\&FFC0f&IFFAp&:;;shouldnt happenz&FFBQSMX;;put it on& ,;;screen&OJL& RFULX9&2}HFFC&Q>d;;got it&PFTIME9;;set timer& FILSND;;sound& RESFUL;;show it& DSPFUL&SF2:&X;&X;hit a car&X;2}'CAR?%SMY;;find out' WHERE;;which one' $CARCNT$'FSF2.'CB1QJL8' RCARY9B'FCB2L'CB30V'ICB1`' :;;nopej' C2}B2QJLt',~'OSMX' RCARX9'HCB3'Q>2;;set timer' PCARTIM9':'X;'X;road,fuel,car chrs'X; 8 = fuel $1b= car'X2};'ROADS `=b=d=f' h=j=l=n' p=r=t=v( x=== ( a=c=e=g=i( k=m=o=q( s=u=w=y((X;2(X;2}check if about to move<(X;onto a valid char.F(X;P(CKCHAR$>Z(CK1RROADS9d( FCROKn(0x(ICK1( ;;;no move(:(CROK2},;;move ok(:(X;(X;decrease fuel(X;(SFUEL"FUEL( QFUEL( LFUEL( LFUEL(FSF3( QFUEL)ISF3)Q2}> ) PFUEL") "FUEL,) QFUEL6)ISF3@)Q> J) PFUELT) "FUEL^)SF3 DSPFULh) FRET:r)X;|)X;show fuel left)2}X;)DSPFUL$>) DSQFUEL9)L>)PTXTWIN9)0)IDS):)X;)X;wait some)X;)WAITSMQ>)$>;;15 secs* P2}VFLG* WSM LDL*0&*IWSM0*::*X;D*X;pt2 is rest of gameN*X;pt3 is the screen makerX*X;pt4 is the introductionb*X;l*2}>D:SNOW.PT2v*>D:SNOW.PT4*>D:SNOW.PT3*X;*X;variables*X;* RANDS* DBUF* EDGFLG * M128L$* M122}8H$** BEGIN*.PT4*>D:SNOW.PT3*X;*X;variables*X;* RANDS* DBUF* EDGFLG * M128L$* M120*dX;SAVE#D:SNOW.PT2nX;----------------xX; part 2 of gameX;X; by:Barry KolbeX;X;----------------X;X6};load a map from diskX;LOADMP$>Q> PICCOM9 CIOV$>Q> PICCOM9 Q>5MAPNAM PICBAH9" Q>4MA6}PNAM, PICBAL96Q>@ PAUX19JQ>T PAUX29^ CIOVh IRDOKr:| RDOK$> Q>5SCNMEM PICBAH9 Q>4SCNMEM P6}ICBAL9Q>Q> ;;10 pages PICBLH9Q>;;read it PICCOM9 CIOV:X;MAPNAM AD1:SMAP. A=EOLX;X6};count all the roadsX;each pair of road bytes&X;counts as 1 point0X;:CNTRDS%>D 'ROADCN #ROADCX 'ROADCb6}'CNT;;linesl WHEREv CR4%> CR1Q@JL7$> CR3RROADS9;;is it road?FCR20ICR3CR63;;skip over 26}3)>HCR1 #JL#CNT%CNT)> HCR4: CR2#ROADC*HCR54 #ROADC> CR5!CR6HX;RX;copy th6}e game dlist\X;back for next boardfX;pCOPYDL%>2zCC1QBCKUP8 PDL181ICC1:X;X;reset fuel in text w6}indowX;RESFULQ> PFUELQ> PFUEL QFULK PFUEL:X;X;find fuel containers$X;in map-store 6}their.X;positions8X;BFNDFUL%>L'CNTV 'FOFS` SS4%CNTj)>;;20 linestHSS3~:SS3 WHERE%> SS2Q6}@JL7R>;;fuel chrFSS1SS533)>~;;end of line?HSS2#CNT!SS4X;SS1$FOFS;;store x,y QJL6};;positions PFULY9C(,2OJL< PFULX9F #FOFSP QFOFSZR>;;only 6 alloweddHSS5n:xX;X;check timers-fu6}el firstX;CKFTIM$FOFSFCCB;;no fuelFTCQFTIME9FFTB "FTIME9 QFTIME9HFTB QFULY9 PJL QF6}ULX9PJL%>Q> P@JL7"3,Q> 6 P@JL7@FTB0JIFTCTX;^X;check bonus car timershX;rCCB$CARCNT| 6}HCTC;;yes :;;no carsCTCQCARTIM9FCTD "CARTIM9 QCARTIM9HCTD QCARY9 PJL QCARX9PJL%>;;6}put bonusQ@JL7;;car on scnR>`;;snow bckgrnd?HCTF Q>;;yes P@JL7&30Q>: CTGP@JL7DQ>PN PRMTIM9X6} BELLbCTD0lICTCvX;X;timers to remove carsX; $CARCNTCTKQRMTIM9FRRA "RMTIM9 QRMTIM9HRRA6} QCARY9 PJL QCARX9PJL%> Q@JL7 R>HCTI Q>`;;snow road* CTMP@JL743> P@JL7HQ>d;;reset 6}timerR PCARTIM9\RRA0fICTKp:zX;CTIQ>a;;plain roadHCTM: CTFQ> P@JL73Q>HCTGX;X6};find bonus cars on mapX;FNDCRS%>'CNT 'CARCNT FCA%CNT )>;;20 lines$ HFCE. :8 FCE WHEREB %>L 6} FCCQ@JL7V R>;;cars` FFCBj FCD3t 3~ )>~;;end of line? HFCC #CNT !FCA FCB$CARCNT QJL PCARY96} C , OJL PCARX9 C 5 Q>`;;repl w/road P@JL7 3 P@JL7( 72 ?< #CARCNTF QCARCNTP R>;;only 4 carsZ6} HFCDd :n X;x X;show bonus & regular score X; BONSCR$>;;100 bonus HSCD X; DOSCOR$>;;reg. score SCDQ6}SCRS9 , O> PSCRS9 SCBR> DSCE Q> PSCRS9 0 GSCE #SCRS9" QSCRS9, !SCB6 SCE$>@ SCCQSCR6}S9J PSCLN 9T 0^ ISCCh QSCRSr RTHOUS| FCRET PTHOUS #LIVES SHOLIV CRET: X; X;move the storm 6}X; MOVICEQICECNT;;time for FNEWD;;new direction? "ICECNT;;no $ICEDIR;;get direction QICETB9 PIJMP QI6}CETB9 PIJMP Q>& PICEON0 IJMP ;;move it: !XITVBVD X;N X;get a new directionX X;and set flagsb X;l 6}NEWDQRANDOMv M> > T? PICEDIR Q>k;;time on PICECNT;;screen QIYP9;;starting PICY;;position QIXP9 P6}ICX , O> ;;eyes PEYX  PUTICE;;put definition  ZB3;;in memory QICTL;;time spent POFFSCN;;off screen QIC6}TH* POFFSCN4 Q>;;off yet> PICEONH !XITVBVR X;\ X;move tablef X;p ICETB ZRUz  ZLD  ZRD  ZLU X; X6};diagonal movement X; ZRU ZIRT ZIUP : ZLD ZILF ZIDN : ZRD ZIRT ZIDN: ZLU ZILF ZIUP$6}:.X;8X;slide it upBX;L ZIUP%ICYV$>`ZIUAQP2MEM8jPP2MEM8t QP3MEM8~PP3MEM830 IZIUA"6}ICYQ>%EYYPMSMEM8Q>PMSMEM8"EYY:X; X;go down X; ZIDNQICY,(O>2?<$>F6}ZIDAQP2MEM8PPP2MEM8Z QP3MEM8dPP3MEM8n1x0 IZIDA#ICYQ>%EYY PMSMEM8Q>þPMSMEM86}#EYY:X;IYP =0=0=IXP  == =X;X;move storm leftX; ZILF"ICX""ICX,"EYX6"EYX@ 6}ZB3QICXJPHPOSP0T,^O>hPHPOSP0rQEYX| PHPOSM0,O>PHPOSM0:X;X;move stormy right6}X; ZIRT#ICX#ICX#EYX#EYXQEYX!ZB3X;X;put snow storm on screenX;&PUTICE CLR230$>:%IC6}YDICAQICEDAT9N PP2MEM8XPP2MEM8b QICDT29l PP3MEM8vPP3MEM8332(>HICAQICY,O> 6}PEYY%EYYQ> PMSMEM8PMSMEM8: X;X;stormy's definition X;*ICEDAT ===24  ====O>6}  ===G= H ===RICDT2 ==H=H\ ===f 2===p L=@= =zX;X;erase plyrs 2,3 & miss6}ilesX; CLR23$>AC23PP3MEM9 PP2MEM9 PMSMEM92HC23:X;X;reset game due toX;lost livesX6};GRESET"LIVES SHOLIV$ RESFUL. DSPFUL8:BX;LX;show # of livesVX;`SHOLIVQLIVESjR> tDGRT~Q> 6} PLIVES GRTL>PTXTWIN:X;X;let the storm exit stageX;REMP23Q>PHPOSP0PHPOSP0 PH6}POSM0PHPOSM0 PICECNT  QICTL POFFSCN QICTH(POFFSCN2Q>< PICEONF:PX;ZX;game over-snow guys w6}indX;nGAMOVRQ>5GOVERx PTMESS Q>4GOVER PTMESSQ>;;turn off vbi PVFLG SNDOFFGAMQCONSOL;;chk fo6}r STARTR>HGAM !NEWBEGX;X;initialize soundX;SNDOFFQ>P$>&"$>, SNLP960@6}ISNLJ:TX;^X;turn off individ. sndshX;r OFF1Q>|P҆PҐ:X; OFF2Q>PҸP:X; OFF346}Q>PPPP:X;"X;honk horn when dozer hits car&X;0HORN SNDOFF:$>;;twice!D HN1Q>yN6}PXQ>bPlQ> vPҀQ>$PҔ LDL OFF34 LDL0IHN1:X;X;pause the gameX; PAUS6}E$>&CHQ>;;hold on vbi  PVFLG WAIT  PAUSQCH*R>4 FPAUS>&CHHQ>R PVFLG\:fX;p X;the vbiz6}X;VBLNKQVFLG;;running? HVBC;;yesVBA!XITVBVVBCQOFFSCN;;coming on?LOFFSCN FVBB;;yes"OFFSCN;;cou6}ntdown QOFFSCNR>HVBA"OFFSCN!VBAVBB"VTIME;;vbi speed QVTIMEHVBA QICESPEED$ PVTIME.!6}MOVICE;;do the move8X;BX;make a plowing soundLX;VPLWSNDQICEON;;unless`HNOPL;;the storm isjQ>2;;making noiset7}P~Q>FPҒ WAIT NOPL:X;X;reset some playing stuffX;REPLAYQ>;;dozer'sPPXP;;positionQ>p7}PPYPQ>;;scroll shadowsPSMYQ> PSMXQ>;;screen pos.PSXP(PSYP2$>;;fuel timers<Q>FFT1P7}FTIME9P0ZIFT1d$>;;car timersnCT1QCARSHD9x PCARTIM9Q> PRMTIM90ICT1Q>;;reset roadPROADG;7};counters PROADG #ROADG PICECNTQICESPEED;;storm'S speed PVTIME SNDOFF;;sound off QICTL POFFSCN7} QICTHPOFFSCN":,X;6X;interval between cars@X;JCARSHD 0=`==TX;^X;speed up for next levelhX;fuel7} down by 10rX;storm is off screen less|X;storm moves fasterX;FIGLEV$LEVEL(>FLEA #LEVELLEA$LEVEL7} QFULM9 PFULK QICOFFL9 PICTL QICOFFH9 PICTH QICESPDT9 PICESPEEDQ> PEDGFLG& SNDOFF0::X;D7}X;tables for stormyNX;XFULM =====bICOFFL =====lICOFFH =====vICESPDT  =7}====SPTAB ===X;X;spin dozer if hit by stormX;or out of fuelX;SPINQDIRECT5%>'7 }YSPQ> PSPSND SPB$>&XSPSPAQSPTAB9 > DFOK Q>*P4 QSPSND>,HO> R PSPSND\Pf D7 }ELAYp"XSPz$XSPHSPA"YSP%YSPHSPB7 PDIRECT DFOK OFF2:X;!X;move the tracks on the doz7 }erX;TRACKR'YH&XHQXD1M>$>. QTRKR98TRKJMP%PYPBPP1MEM8LPP1MEM8VPP1MEM 8`PP1M7 }EM8j#XD1t%YH~$XH:X;TRKR U=;;masksX;TRACKL'YH&XHQXD1M>> QTRKL9 !TRKJMP7 }X;TRKL =;;masks X;TRACKU'YH&XH( %PYP2$><TRU1QP1MEM8FR>P HTRU2ZQ>d HTRU3n T7}RU2R>x HTRU3Q>TRU3PP1MEM830 ITRU1$XH%YH:X;X;filling up with fuel soundX;FIL7}SND OFF2Q>P$> FIL1&" FDEL,(>-6 HFIL2@Q>JPT FIL20^ HFIL1h OFF2r:|X; FDEL7}%>Ȑ FD1 WAIT1IFD1:X;X;get the directoryX;search for SMAP.???X;GETDIR CLOSE6$>`Q> P7}ICCOM9 Q>5DIRNAM PICBAH9 Q>4DIRNAM& PICBAL90 Q>: PAUX19D Q>N PAUX29X CIOVb :l X;v CLOSE6$>` Q7}> PICCOM9 CIOV : X; X;read ina map from disk X; GETFILQ> $>` PICCOM9 Q>5DBUF PICBAH9 Q>47}DBUF! PICBAL9 !Q>! PICBLL9 !Q>*! PICBLH94! CIOV>!GDOVH! QDBUFR!R> F\!HFLPf!DOV GETDIRp!Q>z! PMAP7}FLG!7!7! !MAP2!X;! FLP$> !DLPQDBUF9!PMAPNAM9!R> ! FDRET!2!HDLP!DRETQ>EOL!PMAPNAM9"7}:"X;"DIRNAM AD1:SMAP.*A=EOL$"X;."X;try jumping to edge8"X;once per level onlyB" X;to roadL"X;V"JMPEDGQEDGFLG`"7}HJEAj":t"JEAQDIRECT~"R>"HJLF"QSMX" PEHOLD"Q>Ȱ";"SPXP"V?"V?" PEADD","OSMX"PSMX#"SMX #7}"SMX# LOOKR# DJYES(# QEHOLD2#PSMX<#:F# JYES$>P# &HPOSP0Z#&PXPd#2n#&HPOSP0x# &PXP##SMX##SMX#7} "EDGFLG#:#X;# JLFR> #HJUP#QSMX# PEHOLD#QPXP#;#S>0#V?$V?$ PEADD$QSMX"$;,$ SEADD6$PSMX@$7}#SMXJ$#SMXT$ LOOKL^$DJEBh$ QEHOLDr$PSMX|$:$ JEB$>0$ &HPOSP0$&PXP$0$&HPOSP0$ &PXP$"SMX$"7}SMX$ "EDGFLG$:$X;$ JUPR>$HJDN%QSMY% PEHOLD%QPYP&%;0%S>0:%V?D%V?N%V?X% V?;;/16b% PEADDl%QSMYv%;7}% SEADD%PSMY%#SMY% LOOKU%DJEC% QEHOLD%PSMY%:% JEC"SMY% ERS01%Q>0%PPYP% DEFPLR& "EDGFLG 7}&:&X; &X;erase players 0 and 1*&X;4& ERS01%>>&Q>H&ERSAPP0MEM8R& PP1MEM8\&1f& HERSAp&:z&X;& JDNR> & HJ7}RET&QSMY& PEHOLD&Q>&;&SPYP&V?&V?&V?&V?&,&OSMY'PSMY'"SMY' LOOKD$'DJED.' QEHOLD8'PSMYB7}' JRET:L'JED ERS01V'Q>`'PPYPj' DEFPLRt'#SMY~' "EDGFLG':'X;'X;bonus car bell sound'X;'BELL OFF2'Q>7} 'P' BL3Q>'PSHD' BL1"SHD'QSHD'R>(DBL2 (P( DELAY(!BL1(( BL2 OFF22(:<(X;F(X;storm soun7 }dP(X;Z(ICESNDQICEONd( FICOFFn(Q>x(P҂(Q> (PҖ(:(ICOFF OFF1(:(X;(X;check if START was pressed(X;7!}(STKEYQCONSOL(R>( FSTKEY( !GAMOVR(X;) X;setup game board and colors)X;)SETSCNQ>5DL1")PSDLSTL,) Q>47"}DL16) PSDLSTL@)Q>J)PT) Q>5DLI^)Ph) Q>4DLIr)P|)$>)KLRQCLRTAB9) PCOLOR09)0)IKLR):TL,) Q>44qdX;SAVE#D:SNOW.PT3nX;xX;-----------------X; screen data fileX; & uncompacterX; for snowplowX;X; by: ;$}Barry KolbeX;X;-----------------X;X;X;X;set up pointers &X;end of memoryX; UN;%}COMQ> PBFLQ>"PBFL,Q>4MAPDATA6PTL@Q>5MAPDATAJ PTLTQ>^PEDMhQ>r PEDM|X;X;test;&} for unique orX;repeated dataX;%>UC1'UNIQUE 'COUNT GETAB;;in A,U?UUNIQUE;;bit 7 testV?;'}PCOUNT;;lsbHCKU;;if 0 long count GETAB;;msb PCOUNT GETAB&PCOUNT;;lsb of long cnt0CKUQUNIQUE:F;(}UC2DUC3 GETAB;;unique dataN P@BFL7X NXBFLb "COUNTlHUC3v QCOUNTFUC1 "COUNT!UC3X;X;repea;)}ted dataX;UC2 GETAB PDATA UC4QDATA P@BFL7 NXBFL "COUNTHUC4 QCOUNT FUC1;;next "COUNT;*} !UC4*X;4X;increment dest. ptr &>X;check for end of screenH X;memoryRX;\NXBFL#BFLfHNINp #BFLzNIN;+}QBFL REDMHNRTQBFLREDMHNRT7;;done so get out7NRT:X;GETABQ@TL7;;get 1 byte#TL;;;,}&inc. ptr ofHGTZ;;source #TLGTZ:X; X;the actual screen compacted$X;.MAPDATA ===`==l8 n=;-}=`==l=tB ===r=n=L `==== =`V =l=n==`=` l=t====j =====t =;.}====~ ===== === == b=d==== ===== ===b=d= ;/}==b=d== = ==== ===== ===== b=d==== ====b=d ;0}=====r n= =`==l=t =====  ==b=d== ===== =====b( ;1}d=====2 ==b=h= =`< =l=t===F =====P =====Z =====bd;2} d====r=nn =`==l=t=x ==b=d== ===b=d= == ===b d=====;3} ===== b=d====b d===== ===b=d=  ==b=d== ====`=;4} l=t==== = === =b d====b=d ===b=d= ==b=d== ===b=d=;5} =====" =x=p= =`=, j=v====b6 h==`==f=d@ =====J =====;6}T =====^ x=p= =`==lh n==`==j=vr ===b=d=| ==r=n==` =l=t===;7} b=d====b d===== b=d==== ===== ===== ====;8}= ===== =====b d====b=d ===== ===== ====;9}= ==== = ==b=d== =====& b=d====b0 d= ====: =b=d==;:}=D b=d====bN d=====X x=p==`==b ==`==l=tl ===b=d=v ==b=d;;}== =r=n==`= l=t====r n==`==l=t ===r=n= `==l=t== =b=d=;<}== ==b=d== =x=p==`= ==b=d== =b=d=== b=d=== = ===;=}== =====b d====b=d  = ====b d====b=d  ==b=d==* =b=d;>}===b4 d====b=d> =====bH d====b=dR ===b=d= \ ==b=d==f =b=;?}d===p b=d====rz n==`==l=t =====b d===== b=d====x p==;@}`==j=v ===x=p= `==j=v== =x=p==`= j=v====x p==`==l=n =`;A}==j=v= ==x=p= =` =j=v=== b=d====b  d====b=d  =====  =;B}====$  =====.  ====b=d8  ===r=n=B  `==j=v==L  =b=d===V   =;C}====`  =====j  b=d= ===t  b=d====b~  d====x=p   =`=== =  ;D}=====  =b=d===  b=d====b  d====r=n  =`==l=t=  ==r=n==`  ;E}=j=p==`=  ===`==f  d====b=d  =====  =====  ===b=d=  ;F}==b=d==  =b=d===  =====(  =b=d===2  =====<  =====F ;G} =b=d===P  b=d====Z  ====b=dd  ===b=d=n  ==r=n==`x  =l=t=== ;H} r=n==`==l  t====b=d  ===x=p=  `==l=t==  =b=d===  =====;I}  =b=d===  =====  ====b=d  = ====b  h= =`==l=t  === ==;J}  =====  =====  ===b=d=  ==b=d=="  =b=d===,  b=d====;K}6  =b=d===@  b=d====bJ  d====b=dT  ===b=d=^  ==b=d==h  === ==;L}r  b=d====b|  d=====  ===b=d=  ==b=d==  === ==  b=d===;M}=b  d====b=d  =====  ==x=p==`  =j=v===  ====b=d  ====;N}=  =b=d===  ===b=d=  ==b=d==  =x=p==`=  l=n==`==j  v====;O}b=d&  =====0  ==x=p==`:  =j=v===D  =====bN  d===b=d=X  ==b=d;P}==b  === ==l  =====bv  d=====  ===x=p=  `==j=p==`  =f=d=;Q}==  =====  =====  ===b=d=  =====  =====  b=h==;R}`==l  t= ====  === =b=d  ===b=d=  ==b=d==  =r=n==`=  ==;S}===  =b=d= ==  == ===b*  d=====4   ===b=d=>  =====H  =b=;T}d===R  ==b=d==\  == ==`=f  j=v====bp  d====b=dz  =====  b=d=;U} ===b  d= ====  ===b=d=  =====  =====  b=d====  =;V}===b=d  =====  =====  ===b=d=  =====  ===x=p=  `=;W}=j=p= =` ====`= j=p==`==j v=====$ =====. =`==j=p=&8 `=;X}=j=v =` ====`= j=p==`==j v=====$ =====. =`==j=p=&8 `=8 dX; SAVE#D:SNOW.PT4nX;xX;-------------------------X;Intro Screen for SNOWPLOWX;X;by: Bryan SchappelX;?Z}X;-------------------------X;CLS = ==B=WEATHER AA AA A ?[}A AAX;STARTI%>;;turn off vbi 'VFLG'ICEON;;storm off SNDOFF"$IFLAG;;falling,HINTRO;;l?\}etters?6Q>@ PCONSOLJQ>Z;;scroll lenT PSLENGTH^CP1QSET8;;copy chrsethPSET28;;outrQ>| PSET8 P?]}SCRLMEM83HCP1X;INTRO$>;;copy high scoreTSLPQSCRS9;;to introPTOPSCORE 9;;screen0 ITSLP$>?^}Q>;;players offWWLPPHPOSP090 IWWLPX;?;;set up scroll&CWLPPSCRLMEM8;;message01: HCWLPD%>5N?_}WCPQWEATHER8XPSCRLMEM8b1lIWCPvX;%>;;put in colors GCLQCLS8 PCOLOR081IGCLX;Q>;;ptrs ?`}for chsetPIND2;;move PINDR PCOLOR2 Q>5SET2 PINDRQ>5SET  PIND2 Q>4IDLST;;intro dlist P?a}SDLSTL  Q>5IDLST*PSDLSTL4X;>QIFLAG;;first time?HHSKIPSNOW;;for snowR#IFLAG;;letters?\ GETRANDfQ>p ?b}PIIY3z LP1Q> PICNTLOOP%ICNT QRANDS8? QTAB168 PINDR PIND2 %IIY3 Q@INDR7 MOVEDN ESKIPS?c}NOW "ICNT ILOOP "IIY3ILP1X;$SKIPSNOW%>.'LMS8SK1QSET28B PSET8L3VHSK1`X;jX;Scroll We?d}ather MessagetX;~ ISCRL$>ISC&HSCROLQ> PRTCLOKWT1QCONSOL FSKPPERR> FGSTART QRTCLOKFW?e}T10IISC%LMS3  )SLENGTHHISK%>( ISK'LMS2 !ISCRL<X;FGSTARTQ>P PDIRFZ GSTPLMSd PHSCRO?f}Ln:xX;SKPPERQ> PDIRFQ>FGSTX;X;Move byte downX;MOVEDN'IISYR> FMRTS%>MLPP@?g}IND27 )IISY FMRTS$> &RTCLOK" WL$CH,(>6 HBRTS@ $RTCLOKJFWLT5^Q>h P@IND27r7|3HMLP?h}MRTS%IISY,: BRTS$>&CH;:X;X;Get 16 Random NumbersX;GETRANDQ> PRAND QRANDOMM>?i} PRANDS&RLOOPQRANDOM0M>:%>DRSRCHRRANDS8N FRLOOPX3b )RANDl HRSRCHv PRANDS83 'RAND)>?j} HRLOOP:X;TAB16 == =0 @=P=`=p === ===X; STAR {X; SNOWMEM A ?k} A A@BDFHJLNPRTVXZ\^A  A A* A A4 AACEGIKMOQSUWY[]_A> A AH A B?l}Y: BARRY KOLAR ABE AND BRYAN SCHA\ AAPPEL Af A COPYRIGHT 1Ap A988 BBK ENTERPRIAz ASES AX;TOPS?m}CORE A top score A A000000 A STARPEL Af A COPYRIGHT 1Ap A988 BBK ENTERPRIAz ASES AX;TOPS<,dX;--------------------------nX;xX;SNOWPLOW Character SetX;X;by: Barry Kolbe (graphics)X;and Bryan SchappeCo}l (text)X;X;--------------------------X; === === ===* === ?===Cp}  = = =  === === ===  = = = " ===, ===6 =_=W=W@ WCq}=_==J ===T ===^ ===h ===r ===| === == =  ==Cr}= === === === ===0 === === === ===Cs} === === =c=c=c c=c== 8=== <=<=<=& =c==0 `=`==: ~Ct}===D ===N p=p=p=wX w===b =`=`=l ===v |=l=`= c=c== ==Cu}= === >=6=6= w=w== =c=c= === === === ===Cv} === === === ===  U=U=0= ==P=T  U=U= =* =<=f= 4 Cw}===> =<=f=nH n=`=>=R ==?=\ =g==f =`=`=p s=s==z ===` `=`=Cx}= === c=c== ===c =p== ===~ =8=8= ===c c===Cy} =`=`= s=s=s= = ==   === = ==   ===~ =0=0=v$ |=v=s=. Cz}===8 8=8=8=B ==f=L =k=c=V ==?=3` s=s=s=j ==?=3t s=s==~ ==C{}?=3 s==p=p ===c c=== ==?=3 p=p=p= ===` === = == C|} === ==3=3 s=s== ==c=c c=6==  ==c=k =>=6= ==f=<( C}}=<=f=2 ==3=3< s===F ==~= P =0=~=Z ===d ===n =@=`=0x = =C~}= =x== ==x= ===6 c=== === === === ===C} === === ===  === === === ==|=| ===" C}===, =|=|=6 ==>=>@ 8=8=8=8J ===xT x=>=>=^ ==?=h p=p=p=pr p=p=C}p=p| p==?= === === === === ==|=| === ===C} =~=|= ==>=> 8=8=8= === =~=>= === === === C}===& ===0 ===: ===D ===N ===X ===b ===l ==C}=v === === === === ==?= p=p=p=p p=p=p=p p==?=C} === === === === ==|=| === ===  =~=|= C}==>=>  8=8=8=* ===4 =~=>=> ===H ===R ===\ ===f ==C}=p ===z === === === === =@==@ =@==@ ===]C} === ===Q === ===u === =@==E =@==@  ===]  C}===  ===Q$  ===.  ===]8  ===B  ===QL  ===V  ===u`  ==C}=j  ===Et  =@==@~  ===u  ===  =@==E  ===  ===  ===C}  ===  ===  ===  ===  ===@  =@==@  ===  ===  C}=@==@  ===  ===(  ===2  ===<  ===F  ===UP  ===Z  ==C}=Ud  ===n  ===x  ===  =~=x=|  n=f==  ==8=x  8===  ===C}  ====n  ===x  ===  =~=x=|  n=f==  ==8=x  8===  ===@ H ԍh@*? _WWW_ꠢꪪ 0G}ccccc8<<<c``~pppww``|l`cc>66wwccG}UU0PTUU ?g``ss```cccp~88cc``sss  ~00v|vsG}888fkc?3sss?3ss?3sppcc?3ppp`  33ssccc6ck>6f<>8888xx>>?ppppppppp?G}||~|>>888~>?ppppppppp?G}||~|>>888~>@@@@]Qu@E@@]G}Q]QuE@@u@E@@@@@G}UU~x|nf8x8'&5%,0,/733#/2%'press34!G}24 pppppppB{pppppppW|ppppF{ApppB{uuuuuuuuuuFA@O2 @JG} \Ʃ 'LL/@ IL ZB J I QN $K 0G F J 2A  OLj@ TL F =G H F $G M KALMx KAG} D E L M ! ŭ Ŭ FL@@ I gK I QBL@LJ JL@>/oЩԩ(G}p Ѝ ``ݱA`AͽAνA˽ÅH}Aͦ˦G}馼h}A`  AAAA -=BBBBvvvvvvnnnnnnff~~~~~~fff~~ff~~fff~~~~~~ffG}aaaaaa C`YV}VYViZV}Vi~V! 0GG}`ө`D FΩ`YV͹}V`> VE`S` J =CB C KƊ `F EJ uG` O iE`G}` J C K =CηBƊLBe!`0 E`^ J CθB C KLB`G} 4 wE` ` J C Kԩ CBLB`0iȹi!`8這ȹ!``G}D| SLFDȰ. VE` J惦愦 C KBBLB B` = iE`Ʉ 襃0 JƃƄ C G}KηBηBLB j wE`` LFD JəƻƼ CƊBLBG}LID E`pLFD0LFD Jə CƅƊθBLBB BBȱͅ RF`B BBLaEG}B BBLaEB BBLaEB BB͢5FLEHaȑ GH ]Jh芑ȱͪ芑  KH,扬B BϥG}`Bed K 0G F`B B`mB2``bdfhjlnprtvxacegikmoqsuwy5F8``Ƶ G}ƴ Ƴ F` ` MB` B VBFEDJK V`ED IB V`D1:SMAP. G}欄 B͢ 5F氤 `L G2``Ϥ` B ~LCGϥΕe͕G}ϥ` ֙εڅ͠ȩ হ`&֠ ε͠`CȩͩP MӦ!֦ε͠`G}ȑͩd`a`ȩл` B ~L HΕe͕H`ȑh湥`i0ԵLTHG}ԝ I`ӦHHHH Lb ) kӽ?ICIi sI OI…LbHHHH fI H` GI I`G} fI I` GI H`ƏÙƎ`i揩Ù`00 ƐƐƍƍiХG}i`捥LOI III祏i Ù`2 =O =G HH2L@ `ƶ I 0GG} F`  `ЍЍЍЅӥ…` )JL @ҢҢ`ҍ`ҍ`ҍҍҍG}` )Jyҩҩ ҩ$ MB NJ MB` C`Lb LJƑÅL~H 2ҩF C`G}pBB K殅ӥÅ )J…`0`濦KKQKWK½]KéXV )J`G} HŢcK XAҥi ō QBƓƔh XA EJ`Іҥ)K ѤЦ`UІҥ)G}KLKІҤəҤ` EJҢ L- EJ` C` IL`BLEDJK V`` G}B V``BVEDDHI V0HVF 'LhhLV@ DVF 󩛝F`D1:SMAP.*XV`=B8JJmBBηBG}B VEB`ȎІІBBXV` ?B80JJB8勍BBB iEB`0ІʎІηBηBXV`FB80JJJJG}B8勍BB EB`θB nM0 KAXV`` "B8JJJJmBBθB wEB` nM KABXV` EJ ҩƱG}  QBLM EJ` ҩ `