@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 D8uPQL1XPL1XPL1YPL1YPHUEL2XPL2XPL2YPL2YPHUERANPLTADRW2ACONINITGEXITGT} * APAC DEMONSTU}RATION #1  + B?6-@26-@H'6-@X36-@8?6-?6-@26-@H'6V}-@836-@X?6-A6( A6-%2 A6-%< A6-%F A6-%P6-W}?:<<<,Z6-?:<<<,d!!6-%+ @,&+!@x,n!!6-%+ @,&+!@x,x!!6-%+ @,&+!@X},!!6-%+ @,&+!@,)6-%@"AV)6- A6-% A6-% Y}A6-% A6-%6-?:<<<,6-?:<<<,!!6-%+ @,&+!@x,!!6-%+ @,Z}&+!@x,!!6-%+ @,&+!@,!!6-%+ @,&+!@,)6-%@"AV)6-6[}-F:B2y,"@6-?:,"@6-?:,, @@%%6-P:H:@,$@,&@$0u36\}-Ai6-A`'6-Ac36-Af5u 6-?:,:u$D2:APACDEM1.BAS:@,$@,&@$0u36W^COPLTADRW2AINITGEXITG* APAC DEMON ^}STRATION #2 * B !AV6-&AV-@y6-%@-6-?:<<<,-6-? _}:<<<,( 2-@y<6-%@F-6-?:<<@y<,-6-?:<@y<<,P Z @ `}0u36-Ai6-A`'6-Ac36-Af5u 6-?:,:u$D2:APACDEM2.BAS@y<<,P Z @ _  X**************************** X* APAC KAL DEMO, V2.0 * X* CREATED BY THOMAS TANIDA *( X* FIRST STARTED: 1/31b}/87 *2 X* LAST REVISED: 2/7/87 *< X****************************F`PEHZ = =d$X*************************c}*******n ZTEMPx DLE COLOR COORDS DLTX OFFX PNTPOS TEMP STOREX*X* SYd}STEM EQUATESX*KEYDEL;;753KEYPRS;;754CONSOL;;53279RANDOM ;;53770X*X* APAC SYS EQUATES"e}X*,APACPLOT #6APACDRAW#@APACEXIT#JAPACINIT#TX*^$X********************************h STARTUPr f}APACINIT;;SET UP APAC|$>';;INIT VARS&OFFX;;OFFSETS &OFFX2 &OFFXX*Q>;;ZERO OUT$>;;$A5-$ACg}INT0PCOORDS90 HINT0PCOLOR;;1ST COLOR=BLACKLOOPQ>;;CLEAR KEYBD REG PKEYPRS POSSET;;LINE 1&h} POSSET;;LINE 20QRANDOM;;GET A RAND #:M>;;FROM 0-31DHGOMOV;;31 IN 32N DIRSET;;1 IN 32X GOMOVb MAKMOVl#i}COLOR;;CHANGE COLORvQCONSOL;;GET CONSOLE KEYR>;;START PRESSED?FSTARTUP;;YEP- CLEAR SCRQKEYPRS;;GET KEYR>!j};;SPACE PRESSED?FPAUSE;;YEP- PAUSER>;;ESC PRESSED?HLOOP;;NO- MAIN LOOP !APACEXIT$X*************************k}******* PAUSEQKEYDEL;;WAIT FOR KEYHPAUSE;;TO BE RELEASEDQ>;;CLEAR KEYBD PKEYPRS  GETSPCQKEYPRS;;GET l}KEYCODE R>!;;SPACE?*HGETSPC;;WAIT FOR SPACE4!LOOP;;BACK TO MAIN>$X********************************H POSSETR$>m}\NXP2fQCOORDS9;;ROTATE X2,Y2p SUB256zPCOORDS90 HNXP2 PNTSCRX*$>NXP1QCOORDS9;;Rn}OTATE X1,Y1 SUB256PCOORDS90 HNXP1 !PNTSCR$X******************************** SUB256N>;;ACC=256-Ao}CC,$O>.:8$X********************************B"X* DIRSET CHANGES THE DIRECTIONL"X* OF THE MOVEMENT OF LINES YOUV$Xp}* SEE. OTHERWISE, THE KAL WOULD`X* BE REPETITIVE AND BORING.jX*t DIRSET~$> GETPLMQRANDOM;;GET A RANDOM #q}M>;;FROM 0-3FGETPLM;;BUT NOT 0;;;MAKE IT -1,0,1S>PDLTX9;;SAVE IT 0;;4 TIMES HGETPLM:$X********r}************************ MAKMOV$>  NXTPSXQCOORDS9;;GET COORD,(ODLTX9;;ADD -1,0 OR 12 X* ESSENTIALLs}Y THESE NEXT FEW<X* LINES DO A "ACC MOD 40"F!X* BY SUBTRACTING 40 EACH TIMEPX* ACC>=40 UNTIL ACC<40ZX*d!X* THE PURPOSt}E IS TO MAKE SUREn!X* THE COORDS DON'T GO OUTSIDEx X* SCREEN LIMITS (THERE ARE 4X* QUADRANTS 40 BY 40) MOD40R>(u}DLT40;;LESS THAN 40;S>(;;A=A-40EMOD40;;GO BACKLT40PCOORDS9;;SAVE IT BACK0HNXTPSX;;NEXT POSITIOv}N:$X******************************** PNTSCR%> NXPERM"$OFOFF8;;ALTERNATE,QCOORDS8;;THE COORDS6 ,;w};PLOTTED@OOFFX9;;TO REFLECTJ$PNTOFF8;;IN EACHTPPNTPOS9;;PART OF THE^ 1;;SCREENh HNXPERMr PUTONSCR;;DRAW ON x}SCR|X*%>;;SAME AS ABOVE NXCOMB$OFOFF8;;SEE END OFQCOORDS8;;KAL FOR THE,;;REARRANGEMENTOOFFX9;;y}OF THE COORDS$PNTOFF8 PPNTPOS91 HNXCOMBX* (FALLS THROUGH TO BELOW)$X******************************** z}PUTONSCRQCOLOR;;GET COLOR$PNTPOS;;X-POS%PNTPOS;;Y-POS& APACPLOT;;PLOT X1,Y10QCOLOR;;GET COLOR:$PNTPOS{};;DEST X-POSD%PNTPOS;;DEST Y-POSN APACDRAW;;DRAWTO X2,Y2XX*bQCOLOR;;GET COLORl$PNTPOS;;X-POSv%PNTPO|}S;;Y-POS APACPLOT;;PLOT Y1,X2QCOLOR;;GET COLOR$PNTPOS;;DEST X-POS%PNTPOS;;DEST Y-POS!APACDRAW;;DRAW}}TO X1,Y2$X********************************OFOFF =====PNTOFF =====T Y-POS!APACDRAW;;DRAWc`` #'膐 Z` Z` ) ~` `愭ȭ!L#!L` x` ` x`L}`Ii` )8`u(8(``u` ``u`籠 # # #L#}``8`u(8(``u` ``u`籠 # # #L#) "X******************************"X* APAC SYSTEM, V1.1 *"X* CREATED BY THOMAS TANIDA *("X* FIRST STARTED}: 1/3/87 *2"X* LAST REVISED: 2/7/87 *<"X******************************F"PEHZ = =d"X*************}*****************n ZTEMPx COLSAV˂ YBYŤ T8ΖFX;;212-222 USEDFY;; FOR DRAWTO XDִ YD} XACC YACC DELTX DELTY EPOINT TMP1 COUNT"X******************************"X* } SYSTEM EQUATES *"X******************************"CASINI;;2,TRAMSZ;;66WARMST;;8@DOSVEC ;;10J}DOSINI ;;12TROWCRST;;84^COLCRSU;;85hSCREENX;;88rRAMTOPj;;106|LOMEM;;128VDSLST;;512}VVBLKI";;546SDMCTL/;;559SDLSTL0;;560GPRIORo;;623COLOR4;;712MEMLO;;743ICCOMB;;8}34ICBADRD;;836ICBLENH;;840ICAUX1J;;842COLBK;;53274PRIOR;;53275WSYNC ;;54282VC}OUNT ;;54283NMIEN;;54286&CIOVV;;584540SETVBV\;;58460:SYSVBV_;;58463D"X*************************}*****NX* (FOR BINARY LOADS)X !SYSSETbX*lX* BASIC ENTRY POINTS:v!BASPLT;;PLOT!BASDRW2;;DRAWTO!BASEXGT;;EXIT} APAC!BASINGT;;INIT APACX* ML ENTRY POINTS:!PLT256;;PLOT!DRT256;;DRAWTO!EXITGT;;EXIT APAC!INITGT;;INIT} APAC"X******************************X* BASIC ENTRY:X* Q=USR(BASPLT,X,Y,COL)X*X* THIS SUBR PLOTS A POINTX* O}N THE APAC SCREEN AT THE "X* GIVEN X,Y POSITION USING THEX* GIVEN COLOR (0-255). $X* REMEMBER: THERE ARE 192 LINES,*X*} ALTERNATING LUM AND COL,4X* SO THE SCREEN LIMITS ARE> X* 80 HORIZONTAL AND 192/2=96HX* VERTICALRX*\!X* FIRST MAKE SU}RE THERE ARE 3f"X* (NO MORE, NO LESS) ARGUMENTSpX*z BASPLT7R> FGETPARM!TRAP;;WRONG # OF ARGS GETPARM}7;;IGNORE HI-BYTE7 >;;X-POS7;;IGNORE HI 7 ?;;Y-POS7 7;;COLORX* CHECK FOR ILLEGAL PLOT BOUNDCKX* }ML ENTRY: A=COLOR$X* X=X-POS.X* Y=Y-POS8 PLT256BPCOLSAV;;SAVE COLORL PSAMCOLV&COLCRS;;UPDAT}E CURSOR` 'ROWCRSj$X* GET LO-BYTE OF SCREEN MEM PNTRt QSCRALO8~ PYBYT$X* GET HI-BYTE OF SCREEN MEM PNTR QSCRAHI8} PYBYTA V?;;A=A/2?"X* GET BYTE WITH PIXEL FROM THEX* SCREEN CONTAINING THE LUM Q@YBYT7PT8;;SAVE IT}AM>;;X=1=ODD X-POS>;;X=0=EVEN QT8#X* MASK PREVIOUS PIXEL FROM SCRN MBITABL9(PT82X* RETRIEVE COLOR< QC}OLSAVF(>PHLHNYB;;X IS EVENZX* THIS WORKS SINCE THE LUMd#X* IS IN THE LOWER NYBBLE OF THEn!X* COLOR, AND IF X IS OD}D THENx!X* THE LOWER NYBBLE OF THE SCR!X* BYTE WILL CONTAIN THE PIXELM> !POKLUMX* MOVE LUM INTO HI-NYBBLE LH}NYBT?T?T?T?$X* POKE THE LUM BACK INTO THE SCR POKLUMLT8 P@YBYT7, QYBYTO>(;;ADD 40 FOR THE"}PYBYT;;NXT LINE (COLR), DGETCOLR6 #YBYT@"X* GETS THE BYTE CONTAINING THEJ#X* PIXEL WITH THE COLOR AND SAVET X* IN} T8^ GETCOLRh Q@YBYT7r MBITABL9|PT8 QCOLSAV(> HCHNYB"X* SINCE THE COLOR ITSELF IS IN X* THE HI-NYBBLE} OF THE GIVEN!X* COLOR, MOVE IT TO THE LOWER#X* NYBBLE SINCE THE X-POS IS ODDV?V?V?V? !POKCOL CHNYBM}>;;SINCE XPOS EVEN POKCOLLT8&X* PUT IT INTO THE SCREEN0 P@YBYT7::DX* BIT MASKS TABLENBITABL =X"X****}**************************bX* BASIC ENTRY:lX* Q=USR(BASDRW2,X,Y,COL)vX*!X* THIS SUBR DRAWS A LINE FROM!X* THE CURRE}NT CURSOR POSITIONX* TO THE GIVEN X,Y USINGX* THE GIVEN COLORX*!X* FIRST MAKE SURE THERE ARE 3"X* (NO MORE, NO L}ESS) ARGUMENTSX* BASDRW27R> FGETARGS!TRAP;;WRONG # OF ARGS GETARGS 77  >;;DEST-X*747> ?;;D}EST-YHQCOLCRS;;CURSOR X-POSRPFX;;FROM-X\QROWCRS;;CURSOR Y-POSfPFY;;FROM-Yp7z7X* CHECK FOR ILLEGAL DRAWTO} BOUNDCKX* ML ENTRY: A=COLORX* X=DEST-XX* Y=DEST-Y DRT256&TMP1;;SAVE X'YD;;SAVE Y} X* PLOT THE DESTINATION PIXEL PLT256%YD;;RESTORE Y"X* LOOP TO SET XD,YD,XACC,YACC,X* DELTX,DELTY TO 0 $> }Q> POKZ0$ PXD9. 08 HPOKZ0B $X* THE FOLLOWING ROUTINE IS BASEDL #X* ON THE VECTOR ROUTINE PRINTEDV "X* IN ANALOG,} ISSUE #18, IN THE` X* "BASIC TRAINING" COLUMN BYj X* TOM HUDSONt X* INIT THE X VARIABLES~ $TMP1 (FX FSGNY DNEG}XD A;;DELTX=TX-FX SFX;;CARRY WAS SET #XD;;XD=1 HSAVDLX;;ALWAYS NEGXD "XD;;XD=-1 ($FF) &TMP1 QFX;;DELTX}=FX-TX ; STMP1 SAVDLX PDELTX X* INIT THE Y VARIABLES( SGNY2 )FY< FINTCNTF DNEGYP C;;DELTY=YD-FYZ SFY;};CARRY WAS SETd #YD;;YD=1n HSAVDLY;;ALWAYSx NEGY "YD;;YD=-1 ($FF) 'TMP1 QFY;;DELTY=FY-TY ; STMP1 SAVDL}Y PDELTY INTCNT QDELTX RDELTY DXLTY PYACC EINTEPT;;ALWAYS X* (X LESS THAN Y) XLTY QDELTY" PXAC}C, INTEPT6 PCOUNT@ PEPOINTJ VXACC;;XACC=XACC/2T VYACC;;YACC=YACC/2^ X* EXIT IF DESTINATION X,Yh X* SAME AS CURREN}T X,Yr QCOUNT| FEXDRT X* X* THE MAIN LOOP! XCALC QXACC;;CHANGE X , ODELTX PXACC REPOINT DYCALC }SEPOINT;;CARRY WAS SET PXACC QFX , OXD PFX YCALC& QYACC;;CHANGE Y0 ,: ODELTYD PYACCN REPOINTX DP}LITb SEPOINT;;CARRY WAS SETl PYACCv QFY , OYD PFY X* PLOT THE CALCULATED POINT PLIT $FX %FY  PSAM}COL;;PLOT SAME COLOR "COUNT HXCALC;;DO MORE POINTS EXDRT : "X****************************** X* BASIC ENTRY: X}* Q=USR(BASEXGT) X* #X* THIS SUBR RESTORES THE SCREEN* !X* TO GRAPHICS 0 AND RESETS OS4 X* INTERRUPT POINTERS, ETC.> X* }IT STILL PROTECTS APACH X*R BASEXGT\ 7f FEXITGT;;NO PARAMETERS!p !TRAPz X* ML ENTRY: X* (REGISTERS IGNORED) EX}ITGT QVCOUNT;;MAKE SURE R>@;;WE AREN'T NEAR EEXITGT;;A VBI QSAVVBI;;RESTORE OS VBI PVVBLKI QSAVVBI PV}VBLKI X* Q>@ PNMIEN;;NO DLI'S $>;;IOCB 0Q> ;;CLOSE PICCOM CIOV;;GO DO IT$X*.$>;;IOCB 08&IC}AUX1B Q>;;OPENL PICCOMVX* POINT TO "E:", BELOW` Q>4SCRDEVj PICBADRt Q>5SCRDEV~PICBADRQ> ;;READ/WRIT}E PICAUX1 CIOV;;GO DO ITX*Q>PNMIEN;;NORML INTRUPTS X* PROTECT APAC BY MOVING THEX* BASIC AND OS POINT}ERS UP SETMEMQ>4ENDAPAC;;LO-BYTE PMEMLO PLOMEMQ>5ENDAPAC;;HI-BYTE  PMEMLO PLOMEM:(SAVVBI }=2SCRDEV AE:A<"X******************************FX* BASIC ENTRY:PX* Q=USR(BASINGT)ZX*d#X* THIS SUBR SETS UP THE S}PECIALn"X* APAC SCREEN WITH ALTERNATINGx"X* LINES OF LUMINANCE AND COLORX* BASINGT7FINITGT;;ZERO ARGS !TRAP}X* ML ENTRY:X* (REGISTERS IGNORED) INITGTQ>PSDMCTL;;DISABLE SCRPNMIEN;;NO INTERRUPTSPROWCRS;;CURSO}R=(0,0) PCOLCRSPCOLCRSPCOLOR4;;BAKGRND=BLACKPCOLSAV;;DEFAULT COL=0"PYBYT;;MY POINTR TO DL,PSDLSTL;;OS} POINTR TO DL6 ?;;Y=0@QRAMTOP;;HI-BYTE OFJ;;;DLIST ADR=TS> ;; RAMTOP-32^ PYBYThPSDLSTLrX* CREATE THE DI}SPLAY LIST|X*#X* THE APAC DISPLAY LIST IS MUCH!X* THE SAME AS A GRAPHICS 8 DLX* EXCEPT THERE ARE DLI'S ONX* EVERY} LINE, INCL THE LAST#X* BLANK SCAN LINE AT TOP OF THE X* SCREENQ>p;;CMD, 8 BLNK LNS NXTBNK P@YBYT73)>} HNXTBNKQ>;;8 BLNKS+DLI P@YBYT7Q>;;MODE 15+DLI+LMS 3;;Y=4& P@YBYT70Q>;;LO-BYTE, SCRN: 3;;Y=5D P@YBYT}7N PSCREENX$YBYT;;HI-BYTE OF SCRNb2;;IS RAMTOP-31lAvPSCREEN 3;;Y=6 P@YBYT7 3;;Y=7Q>;;ANTIC 15+D}LI NXANTLN P@YBYT73)> HNXANTLN%>f;;102TH BYTE, DLQ>;;MODE 15+DLI+LMS P@YBYT7Q>;;ADR OF 2ND }HALF3;;OF SCRN IS:  P@YBYT7QRAMTOP;;(RAMTOP-16)*256 ;*S>4 3;;Y=104> P@YBYT7H%>RQ>A\ P@YBYT7f 3;;Y}=201pQ>;;LO-BYTE, ADR DLz P@YBYT7 3;;Y=202QYBYT;;HI-BYTE, ADR DL P@YBYT7X* CLEAR OUT SCREEN MEMORY CL}RSCR QSCREEN PZTEMPQSCREEN PZTEMP,O>;;LAST PAGE OFPTMP1;;MEM TO CLEAR+1 SPAGE%> C;;A}=0 ZERSB$ P@ZTEMP7.18 HZERSBB #ZTEMPL QZTEMPVRTMP1;;END?`DSPAGE;;NOPEjX* INITIALIZE THE TABLEt$X*} OF ADDRESSES THAT POINT TO THE~X* 96 APAC SCREEN LINESQSCREENPZTEMP;;HI-BYTE%> NXTLN80QZTEMP;;SA}VE LO PSCRALO8QZTEMP;;SAVE HI PSCRAHI8, QZTEMPO>P;;80 BYTES PERPZTEMP;;APAC LINE DNXTY  #ZTEM}PNXTY3()>`;;96 LINES TO DO2 HNXTLN80<QVVBLKI;;SAVE THE OS VBIF PSAVVBIPQVVBLKIZPSAVVBIdX* P}OINT TO THE APAC IMM VBInQ>;;STAGE 1 VBIx$>5IVBI;;HI-BYTE%>4IVBI;;LO-BYTE SETVBV;;SET ITX* POINT TO THE FIR}ST DLI Q>4DLI1 PVDSLST Q>5DLI1PVDSLSTQ>@;;GRAPHICS 9 PGPRIORQ>;;ALL INTERRUPTS PNMIENQ>"}PSDMCTL;;SCREEN ON LEAVE:"X******************************"X* THE RESET HANDLER:,!X* THE JSR $FFFF WILL POINT TO6}X* DOS AFTER LOADING APAC@X* (SEE SYSSET, BELOW)JX*T WRMSTRT^ h X* POINT THE OS RESET VECTORSrX* TO WRMSTRT|} SETVECQ>4WRMSTRT;;LO-BYTE PDOSINI PCASINIQ>5WRMSTRT;;HI-BYTEPDOSINIPCASINIX* GO SET THE LOME}M POINTERS !SETMEM"X******************************X* MAKE SURE X<80 AND Y<96X* BOUNDCK(>P DCKYPOSEER}RBND;;X>79, EXIT APAC CKYPOS&)>`0DLEAVE;;ALL'S WELL: ERRBNDD7;;Y>95, SO PULLN7;;JSR TO BOUNDCKX:;;EXIT APACb}"X******************************lX* PULL OFF EXCESS ARGUMENTSvX*TRAP>FEXTRAP;;NO ARGS TO PULL DELARG 7;;}PULL HI 7;;PULL LO0HDELARG;;DO MORE ARGS EXTRAP:"X******************************X* APAC'S IMM MODE VBI KE}EPSX* EVERYTHING TIMED RIGHTX* IVBI5;;SAVE ACC. Q>;;ENABLE*PNMIEN;;ALL INTERRUPTS4Q>4DLI1;;POINT TO>P}VDSLST;;FIRST DLIHPCOLOR4;;BACKGRND=BLACKR7;;RESTORE ACC.\!SYSVBV;;DO OS IMM VBIf"X******************************p}!X* THE DLI'S TOGGLE- I.E. THEYzX* APPEAR EVERY OTHER LINE,!X* ALTERNATING GRAPHICS 9 & 11X*DLI15;;SAVE ACC. }Q>4DLI2PVDSLST;;POINT TO DLI2Q>@ PWSYNCPPRIOR;;GRAPHICS 97;;RESTORE ACC.9DLI25;;SAVE ACC. Q>4}DLI1PVDSLST;;POINT TO DLI1Q>$ PWSYNC.PPRIOR;;GRAPHICS 1187;;RESTORE ACC.B9L"X*****************************}*VSCRALO ``SCRAHI `j ENDAPAC t"X******************************~ X* SYSSET INITIALIZES WRMSTRT!X* (POINTS A} JSR THERE TO DOS)X* ALSO JSR'S TO SETVEC#X* WHICH INITS APAC'S RESET TRAPX* AND SELF-PROTECTIONX*@ SYSSE}TQDOSINI;;MODIFY CODEPWRMSTRT;; IN SUBRQDOSINI;; WARMSTRTPWRMSTRT SETVECQTRAMSZ;;IF 1, CART }IN  HGOCART:;;(NO CARTRIDGE) GOCART(Q>2PWARMST;;DO A WARMSTART<!;;TO CARTRIDGEVECQTRAMSZ;;IF 1, CART b"#L@L#L#L9$L$L+#L#L?$L$hL%hhhhhh %ˆUT%̹3&͊J̅Ί)=#Υ)L\# Αi(̐ͱ=#Υ}JJJJL#)Α`hL%hhhhUԥThh %݄ +#ע ֆݥ8݅ ׄݥ8݅ۥېٰ}ۅ؅ޅ#$FF٥7eڅܐ ܅إeօԥeۅܐ ܅٥eׅզԤ -#`hL% @$"$#@Ԣ B VKB}D$E J Vԩ&`E:hL%/ԅTUV˅̍0j8 ͍1p̩ȑ̩ȑ̅X芅Yȑȩ}fϑ̩ȑ$%j8ȑ̠ȩAȩȥ̥͑XYiݠݐY%3&iP`"$#$% \}%@oԩ"/` y % L$P`hh`hh`HԩhL_HÍ@ ԍh@H ԍh@@@ z%} {% |%`L"/` y % L$P`hh`hh`HԩhL_HÍ@ ԍh@H ԍh@@@ z%\] !KTEMPINOUTBUFHEADERH2COLPOKEGR7PLUSINITBYTIBUPOKGR7PLUINIKOALSCREETYP }@  } " +("( Just a sec...]];@,;@,;@,;@, };Av,;@,;@,9@,&&;@%,;@w,;@6,(6.2D #@P!-@ }%".68,-2 D40,202,148,12,0<C6-C:hhhLV,6.+67Av,.:67@,.C6-C:,F5 #A0!- }@@%%"17,.>:,5 P -C:,Z5 #AP!-@@w%"167,.>:,5 d 6-C:,n5 #A }!-@@6%"167,.>:,5 x 6-C:,7 #A0!-A7%"3A6%7 .@. }@@K:R +(5( ԠŠϠ٠Š8(R(by Charles F. Johnson\()(Whic }h type of file do you want9( to convert?<(\(-Koala -MicroPainter >/)@6.>:,/01*02Ap }(6-+41,)((Input Filename >)@B:, @A;;7@<@,4:)7@< }@,4:A" 6.6.D1:"67@,.*((Output Filename >*@B:, @A; };7@<@,4:)7@<@,4:A" 6.6.D1:"67@,.> 4 (4(#INPUT AND OUTPUT NA }MES MUST DIFFER!> A8 @@$. A`8 A@ Ap+@+@@ }6 #A@!-@A%"2*@6 G66-?:<Af<@<Ah<<Ar<Av,G6 }-?:<@2,)*@A@)*@@)*@AD)*@@"+-@'*@ }8,+ ,)*@A$)*@@6)*@A%)*@@@)*@)*@ }@J@@T/ +()(Conversion complete.,(/^ĠŠh4-@ }@$)@067,.>:,4 rI 0 (&( ERROR! -  is not@(a Koala picture file.C(F'I|? A) }@.-@@;)@? ?-@$)@2A%;68,-? (-@ }@ $)@( 6AP@,6-?:<AR<,6 A06-?:<AR<,86-?:<AV<Av },-6-?:<@,8@6-?:<<,$!!ĠҠŠQ A@6-?:<AP<@ }<AR<<AV<Av,Q6-?:<@,g)@68@,-+A?-@L)@U }68,-cA%g $!!ԠРӠŠΠ; +@$6-?:,86-F:@,%AV$F:@,;$ }ҠŠŠcc104,74,170,160,0,104,133,255,104,133,254,104,240,4,200,145,254,136,104,145,254,202,208,237,9 }6 ҠҷӠŠ&VV104,173,48,2,24,105,3,133,203,173,49,2,105,0,133,204,160,0,177,203,201,79,208,210[[ }169,78,145,203,165,203,24,105,2,133,203,165,204,105,0,133,204,169,0,240,15,201,15,208:WW6,169,14,145,203,208,5,201,65,208, }1,96,165,203,24,105,1,133,203,165,204,105,0,133D204,169,0,240,197NҠԠŠXcc104,104,133,204,104, }133,203,104,168,104,133,214,165,88,133,205,133,215,133,217,165,89,133,206b..133,216,24,105,30,133,218,132,208,76,0,6l }ҠŠvZZ132,213,132,207,177,203,8,32,110,6,40,24,42,38,207,74,133,212,208,14,177,203,133,213[[32,110,6,177 },203,133,212,32,110,6,165,207,240,34,177,203,32,110,6,145,205,166,214,224VV2,208,6,32,215,6,76,60,6,32,117,6,198,212,208, }230,165,213,240,188,198,213,16,222VV177,203,133,209,32,110,6,165,209,145,205,166,214,224,2,208,6,32,215,6,76,98,6,32^^ }117,6,198,212,208,233,165,213,240,150,198,213,16,225,230,203,208,2,230,204,96,24,165,205__105,80,133,205,144,2,230,206,1 }65,205,197,217,208,42,165,206,197,218,208,36,165,208,208,33]]230,208,24,165,215,105,40,133,205,165,216,105,0,133,206,24,1 }65,217,105,40,133,217,144,2``230,218,230,215,208,2,230,216,96,198,208,165,215,133,205,133,217,165,216,133,206,24,105,30!}^^133,218,24,165,88,105,40,170,165,89,105,0,228,205,208,224,197,206,208,220,104,104,96,230WW205,208,2,230,206,165,88,19!}7,205,208,205,165,89,24,105,30,197,206,208,196,240,230!!ҠԠԠƠŠUU255,255,0,96,67,96,162,4,189,196!},2,157,245,6,189,240,6,157,196,2,202,16,241,173SS48,2,72,173,49,2,72,169,80,141,48,2,169,96,141,49,2,169,255,141,252,2,20!}5,252VV2,240,251,141,252,2,162,4,189,245,6,157,196,2,202,16,247,104,141,49,2,104,141,48OO2,96,80,96,25,97,112,112,112!},78,80,97,14,14,14,14,14,14,14,14,14,14,14,14 MM14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14!}MM14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14 MM14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,!}14,14,14,14,14,14,14,14,14*MM14,14,14,14,14,14,14,14,14,78,0,112,14,14,14,14,14,14,14,14,14,14,14,144MM14,14,14,14,14,1!}4,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14>MM14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,1!}4,14,14HMM14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14RBB14,14,14,14,14,14,14,14,14,14,14,14! },14,65,80,96,80,97,79,127D2:BINLOAD.BAS,14,14,14,14,14,14,14,14,14,14,14,14RBB14,14,14,14,14,14,14,14,14,14,14,14 0EHX;X; ROUTINE FOR MAKBIN.BASX;X; By Charles F. JohnsonX;$ X; Equates.X;8SDLSTL0BSDLSTH1% }LCOLOR0V CH`X;jDLADDRP`tX;~ PICCOL COLSAVX;`$> COLORSQCOLOR09;;% }Save currentPCOLSAV9;;colorsQPICCOL9;;Copy colorsPCOLOR09;;from page six0 ICOLORSX; QSDLSTL;;Save add% }ress5;;of display list QSDLSTH(52X;<Q>4DLADDR;;Install ourFPSDLSTL;;display listP Q>5DLADDRZ PSDLSTHdX;%}nQ>;;Clear key bufferxPCHX;WAITRCH;;Wait forFWAIT;;keypressX;PCH;;Cancel keypress$> RESC%}OLQCOLSAV9;;Restore colors PCOLOR090 IRESCOLX; 7;;RestorePSDLSTH;;display list7" PSDLSTL,X;6 :;%};Return@X;JEIstore colors PCOLOR090 IRESCOLX; 7;;RestorePSDLSTH;;display list7" PSDLSTL,X;6 :;$ d$X;Program to copy a list of filesn$X;whose names are in a file namedx"X;D1:RAMDISK.FIL from drive D1:X;to RAM dis)}k drive D8:X;X;by Karl E. WiegersX;F=EI>D8:MACRO.LIBX;BYTESREADOINBUFF`X;$X;*********)}**********************X; PROGRAM BEGINS HERE$X;*******************************X;PX;" START,X;6#X;----)}--------------------------@#X;look for D1:RAMDISK.FIL; printJX;error message if not foundT#X;----------------------------)}--^X;h-r CLS|$OPEN ===AD1:RAMDISK.FILA IFOUNDITC5PUT =MISSING=7? STATUSERR )}CLOSE  !EXITMISSING AD1:RAMDISK.FIL AX;$X;-------------------------------$X;read a record from RAMDISK.FIL;)}"X;if EOF is reached, program isX;complete; print message ifX;some other error crops up&$X;--------------------------)}-----0X;: FOUNDITDINPUT =FNAMEINN INOTEOFX )>EOFb HOTHERERRl CLOSE v !EXIT OTHERERRPRINT UNK)}NOWNERR CLOSE  !EXITUNKNOWNERR AUnknown errorA A on RAMDISK.FILA=EOLX;#X;----------------------------)}-- X;build the output file name,"X;open input file, handle error#X;------------------------------X; NOTEOFMO)}VE FNAMEIN=FNAMEOUT= $>Q>8;;ATASCII '8' PFNAMEOUT9*PRINT FNAMEIN4OPENA ===FNAMEIN> IFOUNDINP)}H STATUSERRR CLOSE \ CLOSE f !FOUNDITpX;z#X;------------------------------ X;open output file, check for)}X;error with ramdisk#X;------------------------------X; FOUNDINPOPENA ===FNAMEOUT IDOCOPY CLOSE )} CLOSE PRINT RAMDERROR !EXITRAMDERROR AProblem withA A the ramdisk...A=EOLX;#X;--------------)}----------------%X;copy file in blocks of 255 bytes$#X;------------------------------.X;8 DOCOPYBGET =INBUFF=) }L GFINISHVPUT =INBUFF=`,j DDOCOPYtX;~#X;------------------------------"X;write the remaining number of!)!}X;input bytes, close files, go X;get the next input filename#X;------------------------------X; FINISH$>0 QI)"}CBLL9PBYTESREAD QICBLH9PBYTESREADPUT =INBUFF=BYTESREAD CLOSE   CLOSE PRINT OKAY !F)#}OUNDIT(OKAY ACopied okayA=EOL2X;<#X;------------------------------F!X;RTS lets this be AUTORUN.SYSP#X;-------------)$}-----------------ZX;d EXIT:nX;x#X;------------------------------X;space for input & outputX;filenames#X;------)%}------------------------X;FNAMEINFNAMEOUTX;#X;------------------------------"X;don't forget the subro)&}utines!#X;------------------------------X;>D8:SUBS.LIBX;#X;------------------------------"X;set up for autor)'}un on loading#X;------------------------------"X;, RUNAD6 START;------------------------------"X;set up for autor(I EOFGETCHARPUTCHAR  RUNAD$X;.$X;*******************************8X;BX;PUT macroLX;V$X;-)}Usage: PUT IOCB,address,length`X;j%X;'IOCB' is the IOCB number to uset#X;'address' is a label or buffer~%X;address wher-*}e the output data is$X;'length' is the number of bytes$X;to be output-if missing then =1X; PUT  3 -+} AError in PUTA $>  Q>PUTCHAR PICCOM9  PGSETUP = PGSETUP =  CIOV(-,}2<X;F$X;*******************************PX;ZX;GET macrodX;n$X;Usage: GET IOCB,address,lengthxX;%X;'IOCB' is--} the IOCB number to use#X;'address' is a label or buffer!X;address where the input dataX;should go$X;'length' is the-.} number of bytes#X;to be input-if missing then =1X; GET  3  AError in GETA $>  Q>GET-/}CHAR PICCOM9  PGSETUP =",PGSETUP = 6@ CIOVJT^X;h$X;**************************-0}*****rX;|X;PGSETUP macroX;#X;Usage: PGSETUP address,lengthX;$X;'address' is I/O buffer address$X;'length' is-1} number of bytes for$X;PUT or GET operation (value<256X;or address)X; PGSETUP    AError in PGSETUPA-2} Q>4  PICBAL9 Q>5  PICBAH9&  0Q> : PICBLL9DQ>N PICBLH9XbQ l PICBLL9v Q  -3}PICBLH9X;$X;*******************************X;X;OPENA macroX;#X;Usage: OPENA IOCB,ax1,ax2,add-4}X;!X;'IOCB' is IOCB number to useX;'ax1' is task number$X;'ax2' is the 2nd auxiliary byte  X;'add' is the address of -5}theX;device name to be opened X;* OPENA 4  > AError in OPENAAHR $> \Q> f PICAX19pQ> z P-6}ICAX29 Q>4  PICBAL9 Q>5  PICBAH9 OPENIOCBr in OPENAAHR $> \Q> f PICAX19pQ> z P,D5 X*SAVE#D:BUSYBUD.M65X*ASM,#-,#D:BUSYBUD.COMFX* Busy Buddy XE by Mat*RatX* Ctrl-Shft-> BUSY ONX* Ctrl-S18}hft-< BUSY OFF$X*. FOURSEC;;ACTUALLY 3.5 SEC8!X; 3.5 SECONDS * 256 (MAXTIME)BX; EQUALS ABOUT 15 MINUTESL JIFFY19}V BUSYON`BUSYOFFjVVBLKD$t CH~SPACE!;;INTERNAL CODE BS4SAVMSCX;; screen ptrX* Operat1:}ing system equates: CIOV ICCOMB ICBALD ICBAHE ICBLLH ICBLHI ICAX1J ICAX2K 1;}PUTBIN X* @INITQVVBLKD;; installPVEXIT;; Busy Buddy(QVVBLKD;; Express2PVEXIT;; VBI routine< Q1<}>4STARTF %>5STARTP $JIFFYZHOLD(JIFFY;; Sync up sodFHOLD;; a VBI won'tnPVVBLKD;; crash thex'VVBLKD;; inst1=}allationQ>SPACE;; procedurePBACKUP;; Iniz variablesQ>FOURSEC;; dela timerPTIMER;; of 3.5 secondsQ>;; Bus1>}y controlPBUSYCTL;; OFF for now>Q>PUTBIN;; print titlePICCOM;; screenQLEN PICBLL &ICBLH Q>4TITLE1?} PICBAL Q>5TITLE PICBAH" CIO,:;; Back to DOS6 TITLE A}A; AA=@ ABY Mat*Rat - fro1@}m ANAE AALOGA==J APress CTRL-SHIFT-INSEAO ART to enableA=T A CTRL-SHIFT-CLEAAY AR to disableA=^1A} AWhen active, Busy BudAc A will auto-A=h Atimeout after 15 minuAm AtesA=r Ato prevent MA-BELL Aw A1B}ˠ!A==|LEN TITLEX*X* Busy Buddy VBI codeX* installed.X* Actual program appears X* below.X*1C}VEXIT ;; VBI exit vectorTIMER ;; 3.5 Sec timerBACKUP ;; Space or BSBUSYCTL ;; control flgMAXTIM 1D};; 15 min timerSTART6;; VBI starts here5;; save all statsQBUSYCTL;; and regsHTIMIT;;ON& TESTONQCH;;Busy on 1E}request?0 R>BUSYON:HEXIT;; No, no changeD#BUSYCTL;;OFF, TURN IT ONNQ>XPMAXTIM;; 256*3.5 = 15minb BPR;; Show1F} ON char lEXIT7;; Restore statsv8;; and reg & exit !@VEXIT:TIMITQCH;; Busy onR>BUSYOFF;; turn it off?HT1G}IM1;; No, time it out CANCELQ>;; yes, toggle ctl PBUSYCTL BPR;; show Clear stat !EXIT TIM1"TIMER;; 15 minu1H}te timeHEXIT;; limit? "MAXTIMFCANCEL;; yes, cancelQ>FOURSEC;; NO, resetPTIMER;; the timer QBACKUP;; Sen1I}d the SPACEPCH;; or BS character R>BS;; and set BACKUP*FPUTSP;; variable for4Q>BS;; next time.> PBACKUPH !EX1J}ITRPUTSPQ>SPACE\ PBACKUPf !EXITpBPRC;; Show a orz5;; status char%>(;; near top left Q>C ;;; o1K}f displaySBUSYCTL;; by poking P@SAVMSC77;; to screen RAM?:;; iniz addr INIT;; for LOAD;;; o0u@@$%$%!Ӎ BAHIHD@E V`}BY Mat*Rat - from ANALO5M}GPress CTRL-SHIFT-INSERT to enable CTRL-SHIFT-CLEAR to disableWhen active, Busy Bud will auto-timeout after 15 min5N}utesto @Aprevent MA-BELL ˠ!mH  _h(l  _LӍ445O}L!LH(8Xh`@!mH  _h(l  _LӍ444"; CLOUDHOPPER; by Greg Knauss; Copyright 1988 by ANALOG Computing;; CHECKSUM DATA;[18 D4 B3 2E 68 04 47 59 ; 71 189Q} 1B 42 6A 87 2F A5 ; 43 14 66 25 C6 F3 5E 4D ; B6 7D 89 AC 89 8E D3 91 ; EE 91 06 0F 15 B6 73 E9 ; 1B 3C D3 B4 01 7B 6E 59R}4 ; 97 68 B8 C0 93 69 93 C7 ; 31 ]BYTE ST=[0],PM,Y,UP,X,S,P,OONS,ES, LIVES,CHX=[10],CHY=[40],FGBYTE ARRAY CSPD(4),CX(4)9S},CCNT(4)INT X1,CX1=[1]INT ARRAY CDIR(4)CARD SC,J,I,CH,DRB,SCN,SCR=[0]PROC DLIST()[112 112 68 0 0 4 4 4 68 0 0 68 0 04 9T}4 68 0 0 68 0 0 4 4 68 0 0 68 0 04 4 68 0 0 68 0 0 4 4 68 0 0 469 0 0 70 0 0 2 2 7 7 65 DLIST]RETURNPROC PLRVBI()[162 39U} 189 244 6 240 89 56 221 240 6240 83 141 254 6 106 141 255 6 142253 6 24 169 0 109 253 6 24 109 2526 133 204 133 206 189 29V}40 6 133 203173 254 6 133 205 189 248 6 170 23246 255 6 144 16 168 177 203 145 205169 0 145 203 136 202 208 244 76 876 169W}0 0 177 203 145 205 169 0 145203 200 202 208 244 174 253 6 173254 6 157 240 6 189 236 6 240 48 133203 24 138 141 253 6 1099X} 235 6 133204 24 173 253 6 109 252 6 133 206189 240 6 133 205 189 248 6 170 1600 177 203 145 205 200 202 208 248 174 253 9Y}6 169 0 157 236 6 202 48 376 2 6 76 98 228 0 0]RETURNPROC VBINIT()[169 7 162 6 160 0 32 92 228 96]RETURNPROC CHSTORE(9Z})[0 0 0 0 0 0 0 00 0 1 21 170 0 0 00 1 85 85 169 10 0 05 85 85 85 106 170 0 085 85 85 85 149 169 10 085 85 85 89 85 1709[} 170 00 85 85 85 106 170 168 00 0 85 85 149 170 0 00 0 0 90 168 128 0 03 3 15 15 15 63 252 2550 192 195 207 243 243 243 9\}2550 0 3 207 243 243 255 25548 240 240 252 252 252 255 25515 63 255 255 255 255 63 15192 240 252 252 252 252 240 1921 1 9]}1 1 15 15 15 0255 195 185 181 173 157 195 255255 247 247 247 247 247 247 255255 195 253 195 191 191 195 255255 195 253 229^}7 253 253 195 255255 187 187 193 251 251 251 255255 195 191 195 253 253 195 255255 195 191 131 189 189 195 255255 129 2539_} 251 247 247 247 255255 195 189 195 189 189 195 255255 195 189 193 253 253 195 2550 0 0 0 192 192 192 0255 255 255 255 259`}5 255 255 2550 240 204 240 204 204 240 00 204 204 204 48 48 48 00 60 192 192 204 204 60 00 252 204 252 240 204 204 00 259a}2 192 240 192 192 252 00 204 204 240 204 204 204 00 204 252 252 252 252 204 00 48 204 252 204 204 204 00 204 204 204 204 9b}204 252 00 252 192 252 12 12 252 0255 193 191 195 253 253 131 255255 193 191 191 191 191 193 255255 195 189 189 189 189 19c}95 255255 131 189 189 131 167 185 255255 129 191 143 191 191 129 255255 255 231 231 255 231 231 255255 255 255 255 255 259d}5 255 85253 253 253 253 253 253 253 253253 253 253 253 253 253 253 85253 253 253 253 253 244 208 6464 208 244 253 253 2539e} 253 253255 255 255 255 127 31 7 13 15 63 255 255 255 255 255253 255 255 255 127 31 7 10 64 208 244 253 255 255 850 0 0 9f}0 0 64 208 80]RETURNPROC GUYCLOTHES()[56 60 0 0 36 126 255 90 126 60 60 60126 126 24 0 28 60 0 0 36 126 255 90 126 60 69g}0 60126 126 24 0]RETURNPROC GUYFACE()[0 0 40 60 24 0 0 129 126 24 24 24 24126 24 00 0 20 60 24 0 0 129 126 24 24 24 249q}B%DOS SYSB*)DUP SYSB SAPACDEM1BASB]APACDEM2BASBaAPACKAL2M65B~APACKAL2OBJBVAPACSYS M65BAPACSYS OBJB,BINLOAD BASB BINLOAD M65BBOOCMP2 M65B(BOOTCMP1M65B7BUSYBUDXM65BLBUSYBUDXOBJBOPCLOUDHOPACTBKCLOUDHOPOBJB!DEALIN BASB*DEALIN M65B!>DETOKEN BASB_DOSCD1 BASBpDOSCD2 BASB ~DOSCD3 BASBDOSCD4 BASBDOSCD5 M65BDOSCD6 M65BDOSCD7 M65.DOSCD8 M65yMONEYPCHBASuQSMENU PGEAQUICKSCRBAS126 24 0]RETURNPROC COPTER() [240 16 56 77 143 222 124 4830 16 56 77 143 222 124 4815 8 28 178 241 123 62 12120 8 28 9r}178 241 123 62 12]RETURNPROC CLOUDS()[5 6 7 6 7 6 5 4 5 6 7 8 0 0 0 1 2 3 4 5 6 5 6 7 8 0 0 0 0 1 2 3 4 5 6 7 6 7 8 0 09s} 1 2 3 4 5 4 5 6 7 6 7 2 8 1 2 3 7 8 0 0 0 1 2 3 2 3 4 5 6 7 6 7 8 1 8 0 0 0 0 1 2 3 7 8 0 0 1 2 3 4 5 4 3 4 5 6 7 6 7 8 09t} 0 0 0 1 2 3 4 5 6 7 8 0 0 0 1 2 3 4 5 0 0 1 2 3 4 5 6 5 6 7 8 0 0 0 0 1 2 3 4 5 7 8 0 0 0 0 1 2 3 4 5 4 5 6 7 8 0 0 0 09u} 0 1 2 8 0 0 0 1 2 3 4 5 4 6 7 8 0 0 0 0 0 0 0 0 1 2 3 4 5 6 7 8 1 8 0 0 0 0 0 0 1 8 1 2 3 7 8 0 0 0 0 0 0 0 1 2 3 4 5 6 59v} 4 5 6 7 8 0 0 0 0 0 0 1 2 3 4 5 6 5 0 0 0 0 0 1 2 3 4 6 7 8 0 0 0 0 0 1 2 7 8 0 0 0 0 0 0 1 2 3 6 7 8 0 0 0 1 2 3 4 5 9w}4 5 6 5 6 7 8 0 0 0 0 0 1 2 3 7 8 0 0 1 2 3 4 5 4 7 8 0 0 0 0 0 1 8 0 0 0 0 1 2 3 4 6 7 8 1 8 1 2 3 5 7 8 0 0 0 0 0 1 2 3 9x}6 7 8 0 1 8 0 0 0 1 2 3 4 5 6 5 6 7 0 0 0 0 1 2 7 8 0 0 0 0 0 0 0 0 0 0 1 8 0 0 0 0 0 0 0 0 0 1 7 8 0 0 0 0 0 0 0 1 2 3 9y}4 6 7 2 8 0 0 0 0 0 0 0 1 2 3 6 7 8 1 2 7 8 0 0 0 0 0 0 1 2 8 1 8 0 0 0 0 0 0 1 2 3 5 6 7 8 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 9z}2 3 4 5 6 5 6 7 8 0 0 1 2 8 0 0 0 5 6 7 8 0 0 0 0 0 0 0 0 0 0 0 0 0 1 2 7 8 0 0 0 0 0 0 0 0 0 0 0 0 1 2 3 4 5 6 5 4 5 6 9{}7 8 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 2 3 4 5 4 5 6 7 8 1 2 7 8 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 9|}0 0 0 0 1 2 3 4 5 4 5 6 7 8 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 0 0 0 0 9}}1 2 3 4 3 4 5 6 7 6 7 6 5 4 5 6 7 8 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 0 9~}0 0 0 0 0 0 0 0 0 0 0 0 0 0 0]PROC SETCLOUDS()FOR J=1 TO 120 DOS=PEEK(CLOUDS+J+ST*120) POKE(J+SC+160,S) POKE(J+SC+640,9}S) ODFOR J=1 TO 120 DOS=PEEK(CLOUDS+J+(ST+1)*120) POKE(J+SC+400,S) POKE(J+SC+880,S) ODFOR J=1 TO 40 DO S=PEEK(CLOUDS+J9}+ST*120) POKE(SC+1120+J,S) I=RAND(4)+9 POKE(SC+1320+J,I) IF I=9 THEN I=13 FI POKE(SC+1280+J,I-1) ODRETURNPROC RNDCLD()9}CSPD(I)=RAND(3)+9-ST*2RETURNPROC MOVECLDS()FOR I=0 TO 3 DOCCNT(I)==+1WHILE CCNT(I)>CSPD(I) DOIF CX(I)=77 THEN CDIR(I)9}=-1 RNDCLD() FIIF CX(I)=0 THEN CDIR(I)=1 RNDCLD() FICX(I)==+CDIR(I)POKEC(DLIST+I*8+9,SC+CX(I)+I*240+160)CCNT(I)=1OD OD9}RETURNPROC BALLOONS()P=0FOR I=5 TO 35 DOP=RAND(4)IF P=0 THEN J=1 FIIF P=1 THEN J=7 FIIF P=2 THEN J=13 FIIF P=3 THEN 9}J=19 FIPOSITION(I,J) PRINT("-.")I==+5 ODRETURNPROC PAUSE()SNDRST() POKE(764,255) WHILE PEEK(764)<>33 DO ODPOKE(79}64,255)RETURNPROC PRNTSCR()POKEC(88,SCN)POSITION(12,0) PRINTC(SCR)POKEC(88,SC)RETURNPROC BURN()POKE(DLIST+45,SC+32*9}40+1)P=1 IF CX1=1 THEN P=17 FIPOKE(1775,P)FOR I=1 TO 300 DO ODPOKE(DLIST+45,SC+33*40+1)P=9 IF CX1=1 THEN P=25 FIPOKE(179}75,P)FOR I=1 TO 300 DO ODRETURNPROC CHMOVE()CHX==+CX1*((ST/2)+1)IF CHX<3 OR CHX>252 THEN CX1=-CX1CHY=RAND(5)*32+40 FI9}POKE(53251,CHX) POKE(1783,CHY)IF CHXX THEN SOUND(1,190+(CHX 9}MOD 4) *20,14,(X-CHX)/17-3) FIRETURNPROC BLOOGA()SOUND(0,0,0,0)I=3 J=(X-50)/4-1DOP=LOCATE(J,I)I==+1 IF I=24 THEN I=09} J==+1 FIUNTIL P=45 ODSOUND(0,50,10,10)POSITION(J,I-1) PRINT("  ")OONS==+1 IF OONS=6 THEN ES=1 FISCR==+10+I*(ST+9}1) PRNTSCR()UP=16 SOUND(0,0,0,0)RETURNPROC POS()POKE(53248,X) POKE(53249,X) POKE(53250,X)POKE(1780,Y) POKE(1781,Y) PO9}KE(1782,Y+16)RETURNPROC SETUP()GRAPHICS(0) POKE(559,0) POKE(82,0) POKE(752,1) POKE(82,0)SCN=PEEKC(88) SC=(PEEK(106)-16)9}*256POKEC(DLIST+3,SC)POKEC(DLIST+9,SC+4*40+1)POKEC(DLIST+12,SC+7*40+1)POKEC(DLIST+17,SC+10*40+1)POKEC(DLIST+20,SC+13*40+9}1)POKEC(DLIST+25,SC+16*40+1)POKEC(DLIST+28,SC+19*40+1)POKEC(DLIST+33,SC+22*40+1)POKEC(DLIST+36,SC+25*40+1)POKEC(DLIST+419},SC+28*40+1)POKEC(DLIST+45,SC+32*40+1)J=PEEKC(88) POKEC(DLIST+48,J)POKEC(560,DLIST)MOVEBLOCK(1536,PLRVBI,160)PM=PEEK(1069})-32 DRB=PM*256+1ZERO(DRB+1024,1024) POKE(623,36)POKE(1788,PM+4)POKE(53277,3) POKE(54279,PM)POKE(1771,PM)POKE(1784,16) P9}OKE(1785,16) POKE(1786,1) POKE(1787,8)POKE(1772,17) POKE(1773,17) POKE(1774,1) POKE(1775,1)POKE(53259,3)MOVEBLOCK(DRB,GU9}YFACE,32)MOVEBLOCK(DRB+256,GUYCLOTHES,32)FOR I=0 TO 256 DO POKE(DRB+I+512,24) ODMOVEBLOCK(DRB+256*3,COPTER,32)VBINIT() 9} POKE(704,30) POKE(705,84) POKE(706,15)POKE(707,2) POKE(708,15) POKE(709,8)POKE(710,52) POKE(711,42)POKE(712,7*16)PO9}SITION(0,0)PRINTE("˻")PRINT("")CH=(PEEK(106)-24)*256MOVEBLOCK(CH,CHSTORE,512)POKE9}(756,CH/256)ST=0FOR I=0 TO 4 DO CDIR(I)=1 CSPD(I)=RAND(3)+10-ST*2 CX(I)=RAND(70)+1 CCNT(I)=1 ODZERO(SC,2000) SETCLOUDS9}()RETURNPROC TITLE()POKE(53278,0) POKE(77,0) POKEC(88,SC)POSITION(0,7)PRINTE (" RLN M RLP M M ;LP")PRINTE9} (" M M M M M M M M")PRINTE (" QLN LLN QLO QLO LLO")POSITION(0,13)PRINTE (" M M RLP ;;P9} ;;P ;LN ;;P")PRINTE (" ;LM M M ;LO ;LO ;N ;;O")PRINTE (" N N QLO N N LLN NSTU")POSITION(14,20)PRI9}NT("")PRNTSCR() SETCLOUDS() MOVECLDS()POKE(559,62) X=120 Y=169 POS()DOMOVECLDS() BURN() CHMOVE()IF PEEK(539}279)=5 THEN ST==+1 IF ST=5 THEN ST=0 FI SETCLOUDS() FOR I=0 TO 3 DO RNDCLD() OD FIUNTIL PEEK(53279)=6 OR STRIG(0)=0 ODPOK9}E(764,255)ZERO(SC+7*40,120)ZERO(SC+13*40,120)ZERO(SC+20*40,40)SCR=0 LIVES=3 UP=0 X1=0 OONS=0 FG=0POKEC(88,SCN)POSITION(9}12,0) PRINT("0")POKEC(88,SC)RETURNPROC MAIN()DOSETUP() TITLE()BALLOONS()WHILE LIVES>0 DO X1=0 X=120DOES=09}WHILE ES=0 DOPOKE(77,0) MOVECLDS()S=STICK(0)P=PEEK(53254)IF S=7 THEN POKE(1772,1) POKE(1773,1) FIIF S=11 THEN POKE(17729},17) POKE(1773,17) FIIF P=1 OR P=2 THEN IF S=7 THEN X1=1 FI IF S=11 THEN X1=-1 FI FIIF PEEK(53263)=3 THE9}N X1=CX1 FIIF X>200 THEN X1=-1 X==-1 FIIF X<50 THEN X1=1 X==+1 FIX==+X1IF UP=0 THEN SOUND(0,0,0,0) FIY==+1IF UP=0 AND (9}P=1 OR P=2) THEN UP=5 X1=0 IF S=14 OR S=10 OR S=6 OR STRIG(0)=0 THEN UP=25 FI IF S=10 OR S=11 THEN X1=-1 FI IF S=6 OR S9}=7 THEN X1=1 FI FIIF Y<5 THEN UP=0 FI IF UP=0 AND (P=1 OR P=2) THEN UP=5 FIIF UP>0 THEN UP==-1 Y==-2 SOUND(0,UP*5+50,10,9}4) FIIF UP>5 THEN Y==-1 FIPOS()IF PEEK(53252)=4 AND Y<180 THEN BLOOGA() FIPOKE(53278,0)IF Y=180 AND UP=0 THEN ES=2 FOR9} J=181 TO 240 DO MOVECLDS() Y==+1 X==+X1 POS() CHMOVE() BURN() OD FIBURN() CHMOVE()IF PEEK(764)=33 THEN PAUSE() FIIF SCR>9}999 AND FG=0 THEN FG=PEEK(705) POKE(705,2) LIVES==+1 FIODIF OONS=6 THEN FOR J=4 TO Y/3 DO Y==-3 POS() BURN() CHMOVE() MOV9}ECLDS() SOUND(0,Y+50,10,4) OD SNDRST() X=120 Y=1 UP=0 X1=0 POS() ST==+1 IF ST=5 THEN ST=3 FI SETCLOUDS() BALLOONS() OONS=9}0 FIUNTIL ES=2 OD P=PEEK(705)IF P=84 THEN S=118 FIIF P=118 THEN S=184 FIPOKE(705,S)IF FG>1 THEN POKE(705,FG) FG=1 FIL9}IVES==-1Y=240 UP=40WHILE STRIG(0)=1 DO MOVECLDS() BURN()CHMOVE()POKE(764,255)ODX=0 POS()ODOD POKE(705,FG) FG=1 FIL8fE$H (c)1983 Action Computer Services  B JKIHiDiELV`L~$=} ~$ BLV`L$$l L$ &` Fj`8冨凪` %EӅӥ=} %`ʆǪƩ Ɛee` !%ƦʆǢ &Ɛeǐ E% E%L % !%'&&&8儨児=}祂*L %&&*ń8&&L % %`hihiHHȱȱL$c !#3`=}L$JJJJ`H $h`Hȩh $L2& $L2& f$L2& n$L2& t$H8=}`HhHh &L2& BHI V䅠L2& L& ~$L2&Ԇ ؠPIPP`=} 'P n$L2& .'L& 'L3' G'L'H- &8塪墨hLG' `'L& g'L' 'ȹP`=}텠8堨塪 '芨Oȩ-`PP &P棩 Ѥģ0-ģ6000:,80H =}& &ehe&eģ0ʥ 8堅塅`$ &&*i0:0i &Ʀ`¢ 护=}°ڱ%ȱ%E &L(担CS &L(I `'L(H [(L( .'L( &B V 2&NLMȑ=}` MLN%B VL2&S:C)E:H)H & K)L) V& &h)0IF)G)LV&[\ZUVT` )F)G)=}` )L' {)L& )L&) ` )L' g%` 0d $ҥ `2)2=}ҩ`p`0)9B*`@0)ӈJJJJ)`Ѕ`ȱ`` v*ȥ`Hh=}ƣĢ`ƥĤ`Ѣ +`ȱѢĦ`膡`=}`ťƤe8夰L+ Ƥ8`ŦeѠe桊L+=} (HL+ppDDDDDDDDDDEFA+`L+Y8Sj=}mm̅ν˭ͽ.ˑͩˈLWˑͩ0mmνͽˑ=}0LLb`L, \``L,UU UUUjUUUU UUUYUUUUjUUZ?=}0??ùÿÿÿýýý=}000<<0 ý=}UU@@?@U@P`L`.8<$~Z~<<<~~<$~Z~<<<~~=}`L.(<~~<~~`L.8M|08M|0{> x{> `L.=}=}=}=}=}=}L1+Ȍ+xͮ++LR2.m+.m+x+ g%ee=} f*++m++m+ii+ v*+m++m+ii+ v*++L1+Ȍ+xͮ++L=} 3.m+.m++ix g%ee f*++m++m+ii+ v*+m++m=}+ipi+ v*++L[2+Ȍ+(ͮ++L4.m+.m+x+ g%ee f*+=}+i`+im+m++ v* )i +++i(+im+m++ v*+I  +IL3+ +=}+i+im+m+8+ v*++L3`L4 )i + g%8嬮++`LM4++Ͱ+=}+L5+++++ݠ+L5++IML4+ m++*(m+ 4++L4+ m++*(m+ 4=}+ m++*(m+++q++++ g%+e+ei i++}++i++ g=}%eeii *++Lj4++LU4`L5+++#Ͱ++LF6 )++L5+Ȍ++=}IL5+++IL5+ ++IL 6+++++ {)L#6-.6 &+i++i+++L5`LJ6 *=} v* f*I!Li6LV6 v*`Lv6++X * {)++ .'++X *`L6+i-+i( g%=}+e+ei v*++I +IL7++ v*+Ȍ+,Ͱ++L47++L7+i-+i(=}! g%+e+ei v* ++I +IL7++ v*+Ȍ+,Ͱ++L7++L7`L7=}+ %i++ g%+e++ ͕+L>88++++ ) g%i(++Щ=} v*+ v*+͏+L8+ % g%e8++ %8 )+͕+L9=}+ % g%e8++ %8 )`L9 )++8+2=} %8+++++ )++++I +IL9+++++I-LW9 2 )8+++ {)=}L9  9 &++IL9++i +i+i++ g%e+e+ s6+ )`L8:=}+Щ v*+Щ v*+Щ v*+ v*+ v*+i v*`L: M)/ v*R v* v*R v*X f*+=}+j f*8 g%+++i+i++ *+i +i( g%+e+ei=}i *+i +i( g%+e+eii *+i+i( g%=}+e+eii *+i+i( g%+e+eii *+i+i=}( g%+e+eii *+i+i( g%+e+eii =}*+i!+i( g%+e+eii *+i$+i( g%+e+e=}ii *+i)+i( g%+e+eii *+i-+i( g%=}+e+eii *X f*+++i0+i++ *++0 *++=} *j f*8 ++ g%i+i++i+i *$o v*+i v*Щ v*+=}ԩ v*+ v* v* v* v* v* v* v* v* v*Щ v*.. ++ =}*+i+i_.^. *++Ͱ++L?+m++m+ii v*++LN?=} g%+e+e.. * , v*T v* v* v* v* v*4 v**=} v* g% v* {)LT@˻@? &Ls@@^ &j f*8=} g%++,,++ *++ % v*+++Ͱ++LaA+ m++*(m+=} )i + g%8嬮++F )i+++++Ј+L@Ю++ * 1`LwAЩ v*M v*=}++X * {)LA RLN M RLP M M ;LPA &LA M M M M M M M MA &LB QLN LL=}N QLO QLO LLOA & {)LIB M M RLP ;;P ;;P ;LN ;;PB( &LtB ;LM M M ;LO ;LO ;N ;;OBS &LB! =} N N QLO N N LLN NSTUB~ & {)LBŢB & s6 1 J4>/ v*x++ 5: J4 6 7Щ f*IL;C=}++ILC+ 1++Ͱ++L;C 4++LCЩ f*I _*LB v*( g%+e+e=}x *( g%+e+ex *( g%+e+e( *+++=}+++++++X * {)L*D0D$ &++X *`LDD |: tA 5͔+L~H++x+++LBGM v=}* J4 F*+Щ f*++ILD v* v*+I LD v* v*+I +ILE+ILD+Ȍ++I =}LE++Щ f*ILE++++͏+L B O   TA}ԠϛW6-@Y-@@^-@@#6-@:7,,F6-$@%@%O:&@,6-A A}&M:B&+$@&@,#@,%$@ 6-?:<<<<<,h   r-A B}Ҡś88104,169,0,133,77,165,88,133,203,165,89,133,204,104PP104,240,17,168,24,165,203,105,40,133,203,165,204,10B}5,0,133,204,136,208,240RR24,104,104,101,203,133,203,165,204,105,0,133,204,104,104,208,117,104,104,104PP104,162,16,160B},3,169,50,145,203,136,169,51,145,203,136,169,179,145,203,165OO203,24,105,80,133,203,165,204,105,0,133,204,202,208,224,160B},3,169,170,145PP203,136,208,249,165,203,56,233,40,133,203,165,204,233,0,133,204,162,16,160$QQ3,169,206,145,203,136,169B},204,145,203,136,169,140,145,203,165,203,56,233,80.QQ133,203,165,204,233,0,133,204,202,208,224,165,203,24,105,40,133,203,1B}65,2048LL105,0,133,204,160,3,169,170,145,203,136,208,249,96,56,233,1,240,32,162BNN33,160,3,169,0,145,203,136,208,249,16B}5,203,24,105,40,133,203,165,204,105LNN0,133,204,202,208,231,104,104,104,104,96,162,32,160,3,169,85,145,203,136VOO208,24B}9,165,203,24,105,40,133,203,165,204,105,0,133,204,202,160,3,169,253`KK145,203,136,169,255,145,203,136,169,127,145,203,165,B}203,24,105,40,133jHH203,165,204,105,0,133,204,202,208,224,160,3,169,85,145,203,136,208tJJ249,169,0,133,206,133,208,133,B }209,104,104,72,201,2,240,8,201,4,240,4~GG169,85,133,209,104,56,233,1,10,10,10,10,201,48,208,3,24,105,11,24JJ105,64,24,B }10,38,206,10,38,206,10,38,206,133,205,24,165,206,109,244,2KK133,206,104,104,56,233,32,24,10,38,208,10,38,208,10,38,208,13B }3,207,24OO165,208,109,244,2,133,208,56,165,203,233,37,133,203,165,204,233,0,133,204II162,0,160,7,56,169,254,241,207,1B }0,24,105,1,5,209,129,203,56,165,203NN233,40,133,203,165,204,233,0,133,204,136,16,227,160,7,56,169,255,241,205JJ10,10,B }24,105,1,5,209,129,203,56,165,203,233,40,133,203,165,204,233,0NN133,204,136,16,226,24,165,203,105,38,133,203,165,204,105,B}0,133,204,160,7NN56,169,127,241,205,5,209,129,203,56,165,203,233,40,133,203,165,204,233,0MM133,204,136,16,231,160,7,5B}6,169,255,241,207,74,5,209,129,203,56,165,20388233,40,133,203,165,204,233,0,133,204,136,16,230,96ŠЛB}A;A,;@,#6. 267A,.A67@,. 6-C:,1 #A!-A%"-%1 B}ʽҨӬ٬جŬԬ֩ӽԠƠś ٽ̠ӮؽҮӮ ""ŽB}ˬԬ˨*Խ4ֽŠè>6. 23456789TJQKAH+@%@R9A B}@'A@9A@\$ D2:DEALIN.BAS6. 23456789TJQKAH+@%@R9A @K 'X;**********************************X; PROGRAM: CARD.SORX; (%X; A RELOCATABLE ASSEMBLY LANGUAGE2 X; SUBROUTINEF} TO PLACE A CARD<'X; ANYWHERE ON A GR.8 SCREEN. CARDSF&X; WILL BE 32 SCAN LINES HIGH AND 3PX; BYTES WIDEZX;dX; BY: EF}RIC HUFFMANn X; 4330 NEW BEDFORD DRIVExX; FT. COLLINS, CO 80525X;%X;OPTIONS: FACE UP,BACK UP,& ERASEX;%XF};********************************X; CARD TO SCREEN SUBROUTINE%X;********************************X;ULEQU ;;UPPF}ER LEFT POSSUEQU ;;SUIT OF CARDVALEQU ;;VALUE OF CARDCOLEQU ;;COLOR OF CARDX;7;;PULL ARG CNTF}X;Q>PM;;RESET ATTRACT"X;,QX;;STORE SCRN UPPER6!X; CORNER IN UL@PULJQYT PUL^X;h%X;F}********************************r"X; VERTICAL POSITION ADJUSTMENT|7;;PULL Y HIGH BYTE X; ;DISCARD(=0) 7;F};PULL YFDONEY;;IF 0 SKIP ;VERT ADJ?X;X; ADD 40 BYTES FOR EACH Y LOOPY,QULO>(PUL QULO>F} PUL1HLOOPY;; BUMP 40 UNTIL&;Y=00X;:$X; HORIZONTAL POSITION ADJUSTMENTD DONEY,N7;;PULL X HIGH BYTEXF} X; DISCARD(=0)b7;;PULL X LOW(0-37)lOULvPUL QULO>PUL;;X OFFSET ADDEDX; %X;*****F}***************************X;&X; DETERMINE OPTION (BACK,FRONT OR X; BLANK (0,1 OR 2)7;;PULL SIDE HIGH,!X; F} DISCARD (=0)7;;PULL SIDE LOWHFB;;IF NOT 0, SKIP#X; TO FRONT/BLANKX; %X;*****************F }***************X; &X; IF 0 THEN DISCARD UNUSED SUIT & *!X; VALUE AND DRAW BACK OF CARD47;;PULL SUIT HIGH>7;;PULL SUIF!}TH7;;PULL VALUE HIGHR7;;PULL VALUE\X;fX; PAINT BACK OF CARDp#X; FOR EASE OF ADDRESSING THE X z%X; REG HOLDS THE VERF"}TICAL POSITION"X; AND THE Y REG HOLDS THE HOR.#X; (ONLY Y HAS INDEXED INDIRECT)X;$>;;16 PAIRS OF;SCAN LINEF#}LX%>;;3 BYTES WIDE&X; BACK PATTERN IS 179,51,50 EVERY X; OTHER LINE GOING DOWNQ>2 P@UL71Q>3 P@UL7F$}1Q> P@UL7$QUL.,8O>PBPULL QULVO>` PULj0tHLX~X; DRAW BOTTOM LINE%> BTQ> P@F%}UL71HBT#X; DRAW BACK PATTERN 140,204,206X; EVERY OTHER LINE GOING UPQUL;S>(PUL QULS>  F&}PUL$> LX2%>(Q>2 P@UL7<1FQ>P P@UL7Z1dQ>n P@UL7xQUL;S>PPUL QULS>F'} PUL0HLX2QUL,O>(PUL QULO> PULX; DRAW TOP LINE"%>, TPQ>6 P@UL7@1JHF(}TPT:;; BACK DONE^X;h%X;********************************rX;|X; PAINT FRONT/BLANK X;FB;S> FFRONTX;F)}%X;********************************X;X; PAINT BLANK%X; OK, OPTION MUST BE BLANK(ERASE)X; SO DRAW BACKGROUND COLORF*}$>! B2%> B1Q> P@UL71HB1&QUL0,:O>(DPULN QULXO>b PULl0vHB2X;PULL SUIT F+}& VALUE, DISCARD7;;PULL SUIT 77;;PULL VALUE7:;;ALL DONE WITH BLANKX;%X;********************************F,}X;#X; THIS SECTION PAINTS THE FRONTX; OF A CARD.X; FRONT$> %> X; DRAW TOP LINE TFQ>U  P@UL7*14HF-}TF>QULH,RO>(\PULf QULpO>z PUL0 X; DRAW WHITE FACE AND BORDER LX3%>Q> P@UL71F.}Q> P@UL71Q> P@UL7QUL, O>( PUL QUL$ O>. PUL8 0B HLX3L X; DRAW BOTTOM LINEV %>F/}` BFQ>Uj P@UL7t 1~ HBF "X; ZERO OUT SUIT, VALUE & COLOR Q> PSU PVAL PCOL 7;;PULL SUIT HIGH 7F0};;PULL SUIT (1-4) !X; PUSH TO STACK FOR USE LATER 5 "X; SET COLOR MASK - 0 FOR BLACK !X; 85 FOR RED RF1}> FBLK R> FBLK Q>U( PCOL2 BLK7;;PULL SUIT AGAIN!< X; FIND SUIT IN MEMORY F ;P S>Z T?d T?n T?x T?F2} R>0 HSK1 , O> SK1, O>@ , X; NEXT MUST MULTIPLY BY 8 T? USU T? USU T? USU PSUF3} ," QSU, O;;ADD CHAR. SET6 ;START@ PSU;;SUIT MEM POSJ ;STOREDT X; START ON VALUE^ 7;;VALUE HIGHh 7;;VAF4}LUE LOWr ;| S> ,;;NEXT MUST X8 T? UVAL T? UVAL T? UVAL PVAL , QVAL O PVALF5};;VALUE MEM.STORED X; X; * PUT EM ON THE SCREEN * X; X; START AT BOTTOM, WORK UP& ;0 QUL: S>%D PULN QULX F6}S>b PULl $>v #X;FIRST, THE VALUE ON RIGHT SIDE %> VR; Q>;;CREATE INVERSE S@VAL7 T?;;FOR CLARITY F7}, O> LCOL;;COLOR MASK P@UL6 ; QUL S>( PUL QUL S> PUL 1* IVR4 #X;SECOND, THE SUIT ON F8}RIGHT SIDE> %>H SR;R Q>;;CREATE INVERSE\ S@SU7f T?;;FOR CLARITYp T?;;FOR CLARITYz , O> LCOL;;COLOR MASK F9} P@UL6 ; QUL S>( PUL QUL S> PUL 1 ISR ,QULO>&PUL$ QUL.O>8 PULB%F:}X;THIRD, THE SUIT ON THE LEFT SIDEL%>VSL;`Q>;;CREATE INVERSEj S@SU7tLCOL;;COLOR MASK~ P@UL6;QULS>F;}(PUL QULS> PUL1ISL%X;LAST, THE VALUE ON THE LEFT SIDE%>VL;Q>;;CREATE INVERSE  SF<}@VAL7V?;;FOR CLARITYLCOL;;COLOR MASK( P@UL62;<QULFS>(PPULZ QULdS>n PULx1IVL:;;FROF=}NT DONEV?;;FOR CLARITYLCOL;;COLOR MASK( P@UL62;<QULFS>(PPULZ QULdS>n PULx1IVL:;;FRODuTSTEHEXATOKENTOKEAAA ` ( @ AC J?}AMAC/65 TOKEN CONVERTER(C) 1987 ANALOG COMPUTING WRITTEN BY CHARLES BACHAND&&9AU,9AUJ@},9@,;@@,;A,$ Ap A`.G Ap(4(RETURN for directory or name ofG( JA}ï file8"4 A@" ApB @@L)@)@V"AT*"JB}A0`%(Not a MAC/65 File!% Apj)@)@t-(-(File length = %$AV%@~G JC}AP(4(RETURN for directory or name ofG( Ԡ file"4 A@" AP @@JD}PROCESS A LINE A@*)@)@*)@-6-&@- @%JE}$AV 2)@6-&@2@Ap+-@)@+*@  @JF} A  A(A -A))@ "*@6-&@" $"(@$ JG}A )@6-&@($$(@ 78,<8,, 2"AP<$"(@$ JH}A F)@6-&@PY!A(6-#-A)0)@=*@K6-&@O Y A@JI}ZY"@)@))@A(@%$AVO6-&@Y A@dB"@)@*(@JJ}86-&@B A@ng,(@78%A(,<8%A(,,8"@E)@O A]6-&@JK}g A@x["@)@))@76-&@A AG6-Q A[ A@P"@Y-@JL}*)@7*@; F(@P A 7"@)@)*@76-&@ A@JM}&6-F:A,&"A6Ap?<(ERROR # AT LINE F:A,%F:A,$AV?&SET-UP TOKEN TJN}ABLES#(#(ï TOKEN CONVERTER!(!(Initializing arrays, "(please wait..."6-@* "JO}6@ A* A "6-A6.,X" A"6-A6.,Y" A!6-@6. ! JP}A!6-A6.,! A"(6-A6.>:@4,( A,#6-A6.,X)# A66-AJQ}6.),Y@ 68,-67,.J68,-B:,T6-B:,%@$^hHEX CONVERSIONr|-@JR}"68,-@:, $$6-P:'@,$6-&$@#*@8,#*@8,$READ DIJS}SK DIRECTORY0&@@D:*.*0 AU@( AP@$JT}TOKEN TABLE!!79,ADC,77,AND,84,ASL,68,BCC!!69,BCS,70,BEQ,71,BMI,72,BNE!!73,BPL,74,BVC,75,BVS,42,BIT!!43,JU}BRK,44,CLC,45,CLD,46,CLI&!!47,CLV,82,CMP,40,CPX,41,CPY0!!34,DEC,48,DEX,49,DEY,78,EOR:!!35,INC,50,INX,51,INY,33,JMPDJV}!!32,JSR,81,LDA,36,LDX,37,LDYN!!86,LSR,52,NOP,76,ORA,53,PHAX!!54,PHP,55,PLA,56,PLP,85,ROLb!!87,ROR,83,SBC,59,SEC,6JW}0,SEDl!!61,SEI,80,STA,38,STX,39,STYv!!62,TAX,63,TAY,64,TSX,65,TXA!!66,TXS,67,TYA,57,RTI,58,RTS!!21,BRA,90,DEA,9JX}1,INA,92,PHX!!93,PHY,94,PLX,95,PLY,89,STZ22,TRB,23,TSB,29,*=14,.END,26,;,19,.ORG,30,= 20,.EQU,11,.BYTE,1JY}2,.SBYTE!!25,.CBYTE,13,.DBYTE,9,.WORD18,.DS,2,.ELSE,3,.ENDIF10,.ERROR,24,.FLOAT!!1,.IF,17,.INCLUDE,27,.LOJZ}CAL15,.OPT,8,.PAGE,28,.SET!!0,ERROR - ,4,.MACRO,5,.ENDM6,.TITLE,31,.=,16,.TAB190,#,187, ,134,$,133,$ J[}180, <,181, >,138,',159,[160,],146,+,149,/,148,* 167,\,150,&,164,!,165,^*152,=,156,>,157,<,158,-4 147,J\}-,155,<>,154,>=,153,<=>179, .OR ,197,NO ,201HLIST,178, .AND ,199RERR,177, .NOT ,200\EJECT,176, .DEF ,198J]}fOBJ,175, .REF ,203,MLISTp 204,CLIST,205,NUM,202,XREFz192,(,186,),139,%$,141,*191,A,140,%,-1,XXX0,1,J^}2,3,4,5,6,7,8,9A,B,C,D,E,FD2:DETOKEN.BASz192,(,186,),139,%$,141,*191,A,140,%,-1,XXX0,1,H=hIANSFNDSICUNI@ **N`}************* ** DOS CD *(* by *2* A. GIAMBRA *<* *F*******Na}*******PZ119@,;@,;@,;@,d 6.Dn68,-ASwx68@,-A)RNb}68@,-A$X68@,-A8s68@,-A4 A8""6@"6-%@.6-Nc}8 Ap8,%6-%@ Ap +@-@@##(@ENTER DRIVE NUMBERNd}##@@K:)@6-A:>:,,67@,.>:,-@@"##(@ Ne}DRIVE NUMBER >:,,-@@6(@CORRECT? (Y/N)@)@J#>:,0Y@# ATNf}@^ +@h-@@r(@|-@@(@ -Ng}@@(@ -@@%%2A@@A@rNh}-@A %%2A@h-@A  .(@Ni}.(@PLEASE PRESS  F:B2y,@A67@,.: +@-@@&Nj}(@ FORMATTING 0 6.:67@,.:DOS.SYSD67@,.*.*N((AT@Nk}X-@@b""(@INSTALLING lAt$@Iv @@[[172,254,18,Nl}136,240,6,160,240,169,144,208,4,160,112,169,16,141,58,15,140,45,15,169,255QQ141,2,19,76,38,15,32,41,21,173,7,19,153,215,7Nm},96,138,74,74,74,74,168,96,172,,254,18,136,208,2,41,127,141,5,19,96,-1RR32,41,21,185,215,7,72,172,254,18,136,240,1,74Nn},32,43,21,141,6,19,104,10,10,1010,32,48,21,76,110,16,-132,31,21,-176,1,21,-1 208,-1 D2:DOSCD1.BNo}AS,43,21,141,6,19,104,10,10,1010,32,48,21,76,110,16,-132,31,21,-176,1,21,-1 208,-1 D2:DOSCD1.BL+,EZDATHEXLINTOTADATLIDDBYTPASCHKSU@Rq} **************** DOS CD FOR ** DOSXL.SYS *(* BY *2* A. GIRr}AMBRA *<***************F990,1,2,3,4,5,6,7,8,9,0,0,0,0,0,0,0,10,11,12,13,14,15Ps;@,9@",/-Rs}@"3"<68,-@ L6-A V#A ` A`s(}CHECKING DATAZV6-6-%@/-@@;Rt}(LINE:?"VB:,@AdF%6-F:A,%F:A,$AV+C(LINE  MISSING!Fnv$-@B:Ru},&@@:6-@:7<,,&@H`6-@:7%@<%@,,&@Hv6-8,$@%8,x."@*@Rv} $". @6-%8,%8, ""@ A 33F:A,@*F:A,@ARw}j"+(}DATA STATMENTS CORRECT.(S( INSERT DISK CONTAINING DOSXL.SYSj(THEN PRESS ANY KEY F:AdRx},"AUA";@@D1:AUTORUN.SYSG6-@S6-A ]#A g Az(Ry}}CREATING FILE @@0B:,"@H*"A`& Ap0 A(BAD DATA: LINE jjFFRz}FF090A430AAC25AF88F006A0F0A990D004A070A9108D5CAB8C4FABA9FF8D29AF4C48AB20310AAD2EAF99000A608A4A,714jj4A4A4AA860AC25AF88D00R{}2297F8D2CAF60AAA7C8A720310AB9000A48AC25AF88F0014A20330A8D2DAF680A0A0A0A2038,628jj0A4C90ACBAA5BCA520270A43AB45AB4C090ABAA9R|}BAA9D0440A640A200000A9528DE702A90A8DE80260A50C8D450AA50D,623::8D460AA944850CA90A850D60E702E802520AE002E102520A,268R}} D2:DOSCD2.BAS00000A9528DE702A90A8DE80260A50C8D450AA50D,623::8D460AA944850CA90A850D60E702E802520AE002E102520A,268P+,DATHEXLINTOTADATLIDDBYTPASCHKSU@V} **************** DOS CD FOR ** SMARTDOS *(* BY *2* A. GIV}AMBRA *<***************F990,1,2,3,4,5,6,7,8,9,0,0,0,0,0,0,0,10,11,12,13,14,15Ps;@,9@",/-V}@"3"<68,-@ L6-A V#A ` A`s(}CHECKING DATAZV6-6-%@/-@@;V}(LINE:?"VB:,@AdF%6-F:A,%F:A,$AV+C(LINE  MISSING!Fnv$-@B:V},&@@:6-@:7<,,&@H`6-@:7%@<%@,,&@Hv6-8,$@%8,x."@*@V} $". @6-%8,%8, ""@ A 33F:A,@*F:A,@AV}i"+(}DATA STATMENTS CORRECT.(R(INSERT DISK CONTAINING SMARTDOSi(THEN PRESS ANY KEY F:Ad,V}"AUA"<@@D1:SMARTDOS.AR1H6-@T6-A ^#A h A{(V}}CREATING FILE @@0B:,"@F*"AP& Ap0 A(BAD DATA: LINE jjFFV}FFC506FF06ACFE1288F006A0F0A990D004A070A9108D3A0F8C2D0FA9FF8D02134C260F20ED06AD071399BC06608A4A,685jj4A4A4AA860ACFE1288D00V}2297F8D051360880BA60B20ED06B9BC0648ACFE1288F0014A20EF068D0613680A0A0A0A20F4,61388064C6E109A099C0920E306210F230F4CC506980DV}980DD0,276 D2:DOSCD3.BAS648ACFE1288F0014A20EF068D0613680A0A0A0A20F4,61388064C6E109A099C0920E306210F230F4CC506980DT +,c x DATHEXLINTOTADATLIDDBYTPASCHKSU@Z} **************** DOSCD FILE ** CONVERTER *(* BY *2* A. GIZ}AMBRA *<***************F990,1,2,3,4,5,6,7,8,9,0,0,0,0,0,0,0,10,11,12,13,14,15Ps;@,9@",/-Z}@"3"<68,-@ L6-A V#A ` A`s(}CHECKING DATAZV6-6-%@/-@@;Z}(LINE:?"VB:,@AdF%6-F:A,%F:A,$AV+C(LINE  MISSING!Fnv$-@B:Z},&@@:6-@:7<,,&@H`6-@:7%@<%@,,&@Hv6-8,$@%8,x."@*@Z} $". @6-%8,%8, ""@ A 33F:A,@*F:A,@AZ}@"+(}DATA STATMENTS CORRECT.(@( PRESS ANY KEY F:Ad,"AUA";@Z}@D1:CONVERT.OBJG6-@S6-A ]#A g Az(}CREATING FILE @@Z}0B:,"@*"A`& Ap0 A(BAD DATA: LINE jjFFFF004537454449534B20434F4E56455253494F4E55Z}54494C495459505245535320D3D4C1D2D4E3EFEEF6E5F2F3E9EF,665jjEE20E9EE2020F0F2EFE7F2E5F3F339453B45533A403C473748A210A9399D440Z}3A9459D4503A9039D4203A9089D4A03A9,633jj029D4B032056E4A9028554A9038555A9008556A9009D4403A9459D4503A90F9D4803A9009D490320CEZ}48A9079D4803A9,568jj0F9D4403A9459D4503A9038554A906855520CE48A90B9D4803A9169D4403A9459D4503A9058554A904855520CE48AD1F,601Z}jjD0C906D0F9A9028554A9038555A9219D4403A9459D4503A90F9D480320CE48A9038554A9058555A9309D4403A9459D45,598jj03A9089D480320Z}CE48A96985B3A90185B4A90085B085B285BD209148A5B38D0A03A5B48D0B03A93C8D0403A9458D0503,593"jjA952A0408D02038C030320B048A90085BZ}AA4B2B93C452C3B45D00BC900D00CA980993C45D0384833490585BA20D748E6,565,jjBD18A5B26910B00485B290D9A5BAF03FA90085BA85B2209148A5Z}B38D0A03A5B48D0B03A93C8D0403A9458D0503A957A0,6096jj808D02038C030320B04818E6B3D002E6B4E6B0A5B0C90890034C8E484CFC476C0A00A90Z}38D3845A9018D0103A931A00F,564@jj8D00038C0603A901A0008D09038C0803602059E41018CE38453013AD0203C952D004A240D002A2808E03034CB0Z}4860A9,466Jjj0B9D42032056E460A21098481869419D4403A94569009D4503A90B9D4803A9058554A904855520CE4868A8C8C8C8B93C,586Tjj458Z}5B5C8B93C4585B6209148A5B58D0A03A5B68D0B03A93C8D0403A9468D0503A952A0408D02038C030320B048A5BD0A,574^jj0A85B7AD3934497E494729Z}034805B78D3947209148A5B58D0A03A5B68D0B03A93C8D0403A9468D0503A957A0808D0203,585h^^8C030320B048A90085B785B86885B6F002E6B7AD3Z}A4785B5F002E6B7A5B7F0034C084960E002E1023C47,516 D2:DOSCD4.BASD0203,585h^^8C030320B048A90085B785B86885B6F002E6B7AD3XE EIX;*****************X;* *(X;* DOS CD *2X;* by *<X;* A. Giambra *FX;^}* *PX;*****************ZX;dX;DOS EQUATESnX;x!DRVTYP;;1=SINGLE 2=DOUBLEBRANCH:;;BPL OR BCC^}LENGTH-;;8 OR 16 ENTRIESCURFCB;;CURRENT FCBDHOLES;;DIRECTORY HOLECDIRD;;DIR DISPLACEMENTCDI^}RS;;DIR SECTOR (1-8)SFNUM;;FILE NUMBERDOSTAB;;DOS TABLEENTRDOS&;;RE-ENRTY POINTRDDIRn;;READ^} DIRECTORYX; FIXDIR%DRVTYP;;GET DRIVE TYPE1;;SINGLE DENSITY?FSNGLE;;YEP"%>;;16 ENTRIES, Q>;;BC^}C6 HEXITA@ SNGLEJ%>p;;8 ENTRIEST Q>;;BPL^ EXITAhPBRANCH;;MODIFY BRANCHr'LENGTH;;MODIFY LENGTH|Q>;;BECAU^}SE WEPDHOLES;;DESTROYED THIS!ENTRDOS;;NOW GET BACK SAVESECT SHIFTQSFNUM;;GET FILE NUMBERPDOSTAB8;;SAVE^} IT:;;GET BACK SHIFTAV?SH1V?;;MAKE IT AN INDEXV?;;INTO OUR TABLEV??:&MASK0%DRVTYP;;DRIVE^} TYPE: 1;;SINGLE?D HDOUBLENM>;;MASK HIGH BITX DOUBLEbPCDIRD;;GOT DISPLACEMENTl:vX;X;WE MUST REPLACE THE RR^}DIRX;ROUTINE WITH OUR OWNX;THIS ROUTINE FIGURES OUTX;THE DIRECTORY SECTOR ANDX;DISPLACEMENT USING THEX;FILE NU^}MBERX;  SHIFT;;GET TABLE INDEXQDOSTAB8;;LOAD FILE NO. 5;;SAVE IT%DRVTYP;;GET DRIVE TYPE1;;SINGLE DE^}NSITY?FSING;;YEP? V?;;SHIFT RIGHTSING  SH1;;SHIFT 3 TIMES*PCDIRS;;GOT SECTOR47;;RESTORE NUMBER>T?;;SHIFT ^}LEFTHT?;;FOUR TIMESRT?;;TO EQUAL\T?;;DISPLACEMENTf MASK;;CHECK DRIVE TYPEp!RDDIR;;GO TO DOSz  SAVESECT;;^}INTERCEPT DOS!!FIXDIR;;DITTO  ;;CHANGE BPL TO BNEK DRIVE TYPEp!RDDIR;;GO TO DOSz  SAVESECT;;\F4 EIX;*****************X;* *(X;* DOSXL.SYS *2X;* CONVERSION *<X;* by *FX;b}* A. Giambra *PX;* *ZX;*****************dX;nX;DOS EQUATESxX;!DRVTYP%;;1=SINGLE 2=DOUBLEBb}RANCH\;;BPL OR BCCLENGTHO;;8 OR 16 ENTRIESCURFCB(;;CURRENT FCBDHOLES);;DIRECTORY HOLECDIRD,;;Db}IR DISPLACEMENTCDIRS-;;DIR SECTOR (1-8)SFNUM.;;FILE NUMBERENTRDOSH;;RE-ENRTY POINTRDDIR;;READ DIb}RECTORYDOSINI ;;DOS VECTORLOMEM;;LOW MEMORYX; DOSTAB   FIXDIR"%DRVTYP;;GET DRIVE TYPE,1b};;SINGLE DENSITY?6FSNGLE;;YEP@%>;;16 ENTRIESJ Q>;;BCCT HEXITA^ SNGLEh%>p;;8 ENTRIESr Q>;;BPL| EXITAPb}BRANCH;;MODIFY BRANCH'LENGTH;;MODIFY LENGTHQ>;;BECAUSE WEPDHOLES;;DESTROYED THIS!ENTRDOS;;NOW GET BACK Sb}AVESECT SHIFTQSFNUM;;GET FILE NUMBERPDOSTAB8;;SAVE IT:;;GET BACK SHIFTAV?SH1V?;;MAKE IT AN INDb}EXV?;;INTO OUR TABLE&V?0?::DMASKN%DRVTYP;;CHECK DRIVE TYPEX1;;SINGLE DRIVE?b HDOUBLElM>;;MASK HIGH BITb}v DOUBLEPCDIRD;;GOT DISPLACEMENT: SVE X;X;WE MUST REPLACE THE RRDIRX;ROUTINE WITH OUR OWNX;THIS ROUTb}INE FIGURES OUTX;THE DIRECTORY SECTOR ANDX;DISPLACEMENT USING THEX;FILE NUMBERX; SHIFT;;GET TABLE INDEb}XQDOSTAB8;;LOAD FILE NO.  5;;SAVE IT%DRVTYP;;GET DRIVE TYPE 1;;SINGLE DENSITY?*FSING;;YEP?4V?;;SHIFT RIGHT>b}SINGH SH1;;SHIFT 3 TIMESRPCDIRS;;GOT SECTOR\7;;RESTORE NUMBERfT?;;SHIFT LEFTpT?;;FOUR TIMESzT?;;TO EQUALT?;b};DISPLACEMENT MASK;;GET DISPLACEMENT!RDDIR;;GO TO DOS SAVESECT;;INTERCEPT DOSC!FIXDIR;;DITTOb} ;;CHANGE BPL TO BNESVEADDR ;;INITIALIZE DOS RESETQ>4INIT;;REESTABLISHPLOMEM;;LOW MEMORY Qb}>5INIT$ PLOMEM.:8INITBQDOSINI;;POINT OUR VECTORLPADDR;;TO DOS INIT CODEVQDOSINI` PADDRjQ>4Ab}DDR;;POINT DOS INITtPDOSINI;;TO OUR CODE~ Q>5ADDRPDOSINI: INIT INIT` PADDRjQ>4A`hZ EIX; SMARTDOS MODIFICATIONX; by(X; A. Giambra2X;<X;FX;******************PX;DOS MODIFICATIONS*ZX;***f}***************dX;n!DRVTYP;;1=SINGLE 2=DOUBLExBRANCH:;;BPL OR BCCLENGTH-;;8 OR 16 ENTRIESCURFCB;f};CURRENT FCBDHOLES;;DIRECTORY HOLECDIRD;;DIR DISPLACEMENTCDIRS;;DIR SECTOR (1-8)SFNUM;;FILE Nf}UMBERENTRDOS&;;RE-ENRTY POINTRDDIRn;;READ DIRECTORYX;DOSTAB  FIXDIR%DRVTYP;;GET DRIVE f}TYPE1;;SINGLE DENSITY?FSNGLE;;YEP%>;;16 ENTRIES" Q>;;BCC, HEXITA6 SNGLE@%>p;;8 ENTRIESJ Q>;;BPLT Ef}XITA^PBRANCH;;MODIFY BRANCHh'LENGTH;;MODIFY LENGTHrQ>;;BECAUSE WE|PDHOLES;;DESTROYED THIS!ENTRDOS;;NOW GET Bf}ACK SAVESECT SHIFTQSFNUM;;GET FILE NUMBERPDOSTAB8;;SAVE IT: SHIFTAV?SH1V?;;MAKE IT AN INDEXf}V?;;INTO OUR TABLEV??:MASK&%DRVTYP;;DRIVE TYPE0 1;;SINGLE?: HDOUBLEDM>;;MASK HIGH BITN DOUBLEXPf}CDIRD;;GOT DISPLACEMENTb:lX;vX;WE MUST REPLACE THE RRDIRX;ROUTINE WITH OUR OWNX;THIS ROUTINE FIGURES OUTX;THEf} DIRECTORY SECTOR ANDX;DISPLACEMENT USING THEX;FILE NUMBERX;  SHIFT;;GET TABLE INDEXQDOSTAB8;;LOAD FILf}E NO. 5;;SAVE IT%DRVTYP;;GET DRIVE TYPE1;;SINGLE DENSITY?FSING;;YEP?V?;;SHIFT RIGHT SING SH1;;SHIFT 3 f}TIMES PCDIRS;;GOT SECTOR*7;;RESTORE NUMBER4T?;;SHIFT LEFT>T?;;FOUR TIMESHT?;;TO EQUALRT?;;DISPLACEMENT\ MASK;f};GET DISPLACEMENTf!RDDIR;;GO TO DOSp z SAVESECT;;INTERCEPT DOS!!FIXDIR;;DITTO  ;;CHANGE BPL Tf}O BNEDISPLACEMENTf!RDDIR;;GO TO DOSp z SAVESECT;;INTERCEPT DOS!!FIXDIR;;DITTO  ;;CHANGE BPL Td6 EIX;X; ******************(X; * DISK *2X; * CONVERSION *<X; * by *FX; * j} A. GIAMBRA *PX; ******************ZX;dX;OS EQUATESnX;x@IOCBICHID ;;DEVICE HANDLERICDNO ;j};DEVICE NUMBERICCOM ;;I/O COMMANDICSTA ;;I/O STATUSICBADR ;;BUFFER ADDRESSICPUT ;;DH PUT ROUTj}INEICBLEN ;;BUFFER LENGTHICAUX1 ;;AUXILIARY BYTEICAUX2 ;;AUX 2;;SIO ADDRESSESDDEVIC ;;j}DEVICEDUNIT ;;UNIT NO.DCOMND ;;COMMANDDSTATS ;;STATUSDBUFLO ;;BUFFER ADDRESS"DTIMLO ;;j}TIMEOUT VALUE,DUNUSE ;;NOT USED6 DBYTLO ;;NUMBER OF BYTES@DAUX1 ;;AUXILIARY BYTESJCIOV;;OS I/O ROUTj}INETSIOY;;SERIAL I/O^DISKREADR;;READ A SECTORh DISKWRITEW;;WRITE A SECTORrOPN;;OPEN COMMAND|OUTPUTj};;OPEN DIRECTIONPUT ;;PUT CHARACTERSCONSOL;;START KEYDOSVEC ;;DOS VECTORSECTORS;;SECTOR COUNTERj}INDEX;;WORK INDEXSECTNO;;SECTOR NUMBERDATASECT;;DATA SECTORTEMP;;WORK AREAFLAG;;WORK FLAGj}DOCNO;;FILE NUMBERROWCRST;;CURSOR ROWCOLCRSU;;CURSOR COLUMNX;ESTART ADISK CONVERSIONASTART1 j}AUTILITYA&START2 APRESS A0MSG A A:MSG1 AADRETRY NSCREEN AS:AX MASK @bj}DIRECTORY;DIRECTORY BUFFERl  vDATA;DATA BUFFER   DSKIO  SETUP;;SET UP REGISTERSQ PDAUX1;;j}SET SECTOR ADDRESSQ  PDAUX1 Q>4 PDBUFLO;;BUFFER ADDRESS Q>5 PDBUFLOQ>  DISKREADj}%>@ %> *PDCOMND;;STORE COMMAND4'DSTATS;;STORE DIRECTION> DOIOHR BEGIN\$>;;CHANNEL 1fQ>4SCREEj}N;;SET POINTER TOpPICBADR9;;DEVICE NAMEz Q>5SCREENPICBADR9Q>OPN;;OPEN COMMAND PICCOM9Q>OUTPUT;;OPEN DIj}RECTION PICAUX19Q>;;GRAPHICS 2 PICAUX29 CIO;;DO I/OQ>;;POSITION CURSOR PROWCRSQ> PCOLCRSQ>j}PCOLCRSQ>4START;;POINT TO 1STPICBADR9;;MESSAGE LINE$ Q>5START.PICBADR98Q>4;;MESSAGE LENGTHB PICj}BLEN9LQ>VPICBLEN9` PRINT;;PRINT ITjQ>4;;MESSAGE LENGTHt PICBLEN9~Q>4START1;;POINT TO 2NDPICBADR9;;Lj}INE OF MESSAGE Q>5START1PICBADR9Q>;;POSITION CURSOR PROWCRSQ> PCOLCRS PRINT;;PRINT ITQ>4 ;;j}MESSAGE LENGTH PICBLEN9Q>4START2;;POINT TO LINEPICBADR9;;3 OF MESSAGE Q>5START2 PICBADR9Q>;;POSITIONj} CURSOR PROWCRS(Q>2 PCOLCRS< PRINT;;PRINT ITFWAITPQCONSOL;;START PRESSED?ZR>dHWAIT;;NO, HANG AROUNDnj}Q>;;POSITION CURSORx PROWCRSQ> PCOLCRSQ>4MSG;;POINT TO MESSAGE PICBADR9 Q>5MSGPICBADR9Q>4j};;SET LENGTH PICBLEN9 PRINT;;PRINT ITQ>;;POSITION CURSOR PROWCRSQ> PCOLCRSQ>4MSG1;;POINT TO NEXTj}PICBADR9;;MESSAGE LINE Q>5MSG1"PICBADR9,Q>4;;SET LENGTH6 PICBLEN9@ PRINT;;PRINT ITJQ>4i;;POINT TO 1STj}TPSECTNO;;DIRECTORY SECTOR^ Q>5ihPSECTNOrQ>;;INITIALIZE WORK AREAS| PSECTORS PINDEX PDOCNO READSECj}TX;READ DIRECTORY SECTOR2DSKIO SECTNO=SECTNO=DIRECTORY=DISKREADQ>;;ZERO THE FLAG PFLAG EXAMINE %Ij}NDEX;;POINT TO STATUS BYTEQDIRECTORY8*MASK;;FILE IN USE?HDOFIX;;YES,GO READ ITR>;;STATUS ZERO?HDONEXT;;Nj}O, SKIP ITQ>;;DELETED FLAGPDIRECTORY8& HDONEXT0 DOFIX:PFLAG;;MAKE FLAG NON-ZEROD FIXIT;;GO READ FILEN DOj}NEXTX#DOCNO;;INC FILE NO.b,lQINDEX;;POINT TO NEXTvO>;;STATUS BYTEERESET;;DONE?PINDEX;;NOPE DEXAMINE j}RESET!QFLAG;;ANYTHING IN DIRECTORY?FFINISHED;;NO, DONE!Q>;;ZERO THE FLAGPFLAG;;AND THE INDEX PINDEXX;Rj}EWRITE THE SECTOR3DSKIO SECTNO=SECTNO=DIRECTORY=DISKWRITERS1,#SECTNO;;POINT TO NEXT HRS2;;DIRECTORY j}SECTOR#SECTNO RS2*#SECTORS;;INC SECTOR COUNT4 QSECTORS>R>;;8 SECTORS READ?HDRDSECT;;NO,KEEP GOINGR !Fj}INISHED\ RDSECTf !READSECTp FINISHEDz!@DOSVEC:;;GO TO DOS SETUPQ>PRETRY;;SET RETRY COUNTQ>PDUNIj}T;;DRIVE 1Q>1%>PDDEVIC;;SET DEVICE NO.'DTIMLO;;SET TIMEOUT VALUEQ>%>PDBYTLO;;READ A 256'j}DBYTLO;;BYTE SECTOR : DOIO  SIO;;CALL SIO$ IXIT;;WAS IT GOOD?. "RETRY;;NO,DEC RETRY8 GXIT;;NO MORE RETRIESB Qj}DCOMND;;GET COMMANDL R>DISKREAD;;WAS IT A READV HB1;;NO` $>@;;SET READ DIRECTIONj HB2t B1~ $>;;WRITE DIRECTIONj} B2 &DSTATS;;RESET STATUS !DOIO XIT : PRINT Q>PUT;;PUT BYTES PICCOM9;;STORE IN COMMAND  CIO;;DO I/Oj} : FIXIT $>;;CHANNEL 1 C 5;;SAVE Y ,;;POINT TO FILE NAME O>4DIRECTORY( PICBADR92 Q>5DIRECTORY< O>Fj} PICBADR9P Q>4 ;;SET NAME LENGTHZ PICBLEN9d Q>;;POSITION CURSORn PROWCRSx Q> PCOLCRS  PRINT;;PRINT FILj}E NAME 7 ?;;RESTORE Y 3;;ADD 3 TO Y 3 3 QDIRECTORY8;;GET BEGINNING PDATASECT;;SECTOR 3 QDIRECTORY8 PDj}ATASECT READDATA X;READ A DATA SECTOR 1DSKIO DATASECT=DATASECT=DATA=DISKREAD QDOCNO;;GET FILE NO." T?;;j}LEFT JUSTIFY IT, T?6 PTEMP;;SAVE IT@ QDATA;;GET OLD FILE NO.J M>;;MASK OFF SECTORT 5;;HIGH BITS&SAVE IT^ LTEMP;j};COMBINE WITH FILE NOh PDATA;;STORE ITr X;WRITE DATA SECTOR| 2DSKIO DATASECT=DATASECT=DATA=DISKWRITE Q>;;Zj}ERO TEMP PTEMP PTEMP 7;;GET SECTOR HIGH PDATASECT;;STORE IT FN3;;WAS IT ZERO? #TEMP;;NO N3 QDATAj};;GET SECTOR LO PDATASECT;;NEXT DATA SECTOR FN4;;WAS IT ZERO? #TEMP N4 "QTEMP;;NEXT DATA SECTOR VALID? FEj}XIT;;NO,END OF FILE !READDATA& EXIT0 :: D BEGINN ZERO? #TEMP N4 "QTEMP;;NEXT DATA SECTOR VALID? FEhAp;;XDAABBZZTTPRCOLDEKJKLNXPTXYZSPZPAUSTIMLEVEBNCOLIMIXKMOVPMBODTAILYCOIXYn}BALLBABKGEDOCENROSSTARPHPLCHCLPXHPXLDPMMOVBOD0BOD1TAIL0TAIL1BABBABBALL0BALL1BALL2BALL3PMBASXn}LECTEMA`~ 99.2'A6A @ @ @ An}A0BA5@@@A@@a@@@@@E@@%o}@d@ B)!B5RA"A#$@F%@&@'A`(@)@cA*+B2A,@-o}./@%0@12@3@34B65@6B)7@8A 9@:Ap;@Tdd?@A&B6CF ADQ EFGHI@JKLo}M@N@$$******************************$$* *$$* MONEY POUCH (C) 1987 o}*$$* BY CHUCK ROSKO *$$* FOR ANALOG *$$* *$$**********o}********************g +@g9@,;@0,;@0,;@2,;@W,;@P,;@,9@,o}-@@&68,-@* ?68@,-@T68@,-@i68,-@~68@,-@o}68@,-@68@,-@%68@,-@P68@,-@$6-06-@<6-@H6o}-@T6-A`6-A0l6-Bx6-A56-@6-@6-@6-AAY Bo }&2A@# AF&$f-@ $(@ 0-@!E(@ Q-@"f(o }@ '-@"$(@ '$62@)2@@3 AF6$3-@o }6@,2$@0 3$B-@@;2@@$'@&@&? B$6-?:C:,<,$o } -2$&  $B46-&P:+F:@ ,%AV$F:@,,'@`,BAP$ 22o }$H6-&@-'(@ --:(@H"A@&@@  # &$@o}@ ,G6-P:H:,$,%"A+-@ =(@1.00G A06b-@ (@0$ 0-o}@?(@0K-@X(@b A0@-@(@Jk6-@d#-@@C6o}-?:<<<8,<<@b&<,k6-?:<<<8,<&@<@b&<,L 6-@F 6-R:, A@ ."@o}-@!.(@HELP ( "-@!((@ 0 6-08,APAAPAo}36-%@!A`)6-A`3 A$S6-&@16-?:<<<8,<&@<<,I6-?:<<<8,<<<,S o}A.a6-%@6-%@?6-?:<<<8,<&@<<,W6-?:<<<8,<<<,a AL36-&@ o}@d)6-@d3 AVS6-&@16-?:<<<8,<%@<<,I6-?:<<<8,<<<,S A`a6-%@o}6-&@?6-?:<<<8,<%@<<,W6-?:<<<8,<<<,a A~E#6-?:<<<8,<&@<<,;6-?o}:<<<8,<<<,E A;A@r!"@d'6-1#A; A0AA@!"@-6-o}@7#AA A0)"A6-#A) A0/"A66-@%%#A/ A0%"Ao}`6-@P%#AX -@F@&6@@6-?:<<<8,<&@<<,X6-?:<<<8,<<<,_2$o}@ # A ?-@&@F@_6-?:<<<8,<&@<<,a6-?:<<<8,<<<,32$@o}@7 A AFM6-@F[6-%@a6-E-@0@c16-?:<<<8,<<<,96-%?!E6-o}#  6-@c#6-@* ""6@ A* A 3!6-?:<@<<8,<<<,% ) 3 Ao} 80,1,88,2,96,3 104,0,112,1,120,2 128,3,136,0,144,1152,2,160,3,168,0176,1,184,2,192,3,-1,-1o}5'6-?:<<<8,<A<@q<,+ 5#A pT:,"A!_"Av-@!.(@HURRYU6-?:""@6-8," A!pH""A6-8," A!pR""A66-8," A!p\("Ao#}`6-8@,( A!pf%"A6-% A!pp A z[A#@A`=,+'@,&o$}@@[6-?:<<<8,<<@<,! 6-A!"A#"A"0m-@ "(@o%}.-@!B(@N-@"_(@c m APm!6-?:<<<8,<<@u<,% /o&}A4M,+'@,&@@YA#c Am A Y-@!#(@OH MOM' 1A4C,@o'}@OA#Y A;'6-?:<<<8,<@ <@u<,1 A@; AE67@<@,.(6-o(}@0, E67@<@,.y c-@!$(@OH BOY H6-?:<<<8,<@ <@u<,R-%c6-P:o)}'A, 4-@@ "(@46-&+$A, S  -@@ *(@0<-@@ I(o*}@S A#0 "-@@ "(@ g  -@!+(@ 5A4S,+'@,&@o+}@_A#g6-% "A`$ !A@. AU-6-?:<<<8,<@&<@p<,o,}7A4U,+'@,&@@V A-@!.(@BYE BYE:A#V-@FAP@o-}##6-?:<<<8,<&@<<,e6-?:<<<8,<<<,+2@/ 9 A G6-&@S@%e,@o.}@'6-A A'"APo "-@ '(@3-@!D(@P-@o/}"a(@e o A@b-@ "(@total.-@!?(@K-@"^(@o0}b e-@ #(@TRY /-@!B(@AGAINN-@"a(@MOMMYe  Ao1}-#(@505-@@ G(@0.00S6-@P_@k@w@ 6- Ao2}06-A %-@@=(@ GAME OVERA KA`],@o/@@,o3}@/@@ Bpr6-A 6-%6-@ 1-@ D(@MOMMYP-@"d(o4}@DID ITr-@z-67@<@,.>:A&A$,U67@<@,.7@<@,o2@o5}%$@@s 6-6@$%@  AFg A6--@1(@KIKI9-g6-?::,5 GJEE104,104,133,204,104,133,203,104,1o=}33,206,104,133,205,162,4,160,0LJ@@177,203,145,205,136,208,249,230,204,230,206,202,208,240,96VJ] AF:A,&@o>}*+@K6-+F:A,%@,$AV]AR@[JA6-?:C:,<BsD<,76-?:C:,<BsD<%A,A#BPo?}`JI-A@3-@7"A%%E I eJ4 +@*AVF:A,%@4 BPPo@}aII0,0,0,0,0,0,0,0,60,126,251,253,253,251,126,60,0,102,102,102,0,0,0,0a??4,4,4,4,4,4,4,4,32,32,32,32,32,32,32,32,0,0,oA}0,0,0,255,0,0a770,0,255,0,0,0,0,0,0,0,0,0,0,7,4,4,4,4,7,0,0,0,0,0aCC0,0,0,0,0,224,32,32,32,32,224,0,0,0,0,0,32,32,32,32oB},32,63,0,0a@@4,4,4,4,4,252,0,0,0,0,255,73,146,255,0,0,0,0,0,0,0,24,24,0aEE7,7,7,7,7,7,7,7,127,99,99,99,99,99,127,0,56,2oC}4,24,24,62,62,62,0aOO127,3,3,127,96,96,127,0,126,6,6,127,7,7,127,0,112,112,112,112,119,127,7,0aNN127,96,96,127,3,3,127,oD}0,124,108,96,127,99,99,127,0,127,3,3,31,24,24,24,0aVV62,54,54,127,119,119,127,0,127,99,99,127,7,7,7,0,255,255,255,255,255,oE}255,255,255aQQ255,255,255,0,0,0,0,0,231,231,231,231,231,231,231,231,231,231,231,0,0,0,0,0aXX224,224,224,224,224,224,224oF},224,0,36,126,100,126,38,126,36,0,8,126,104,104,126,8,0aYY63,51,51,127,115,115,115,0,126,102,102,127,103,103,127,0,127,103oG},103,96,99,99,127,0a[[126,102,102,119,119,119,127,0,127,96,96,127,112,112,127,0,127,96,96,127,112,112,112,0aXX127,99,96oH},111,103,103,127,0,115,115,115,127,115,115,115,0,127,28,28,28,28,28,127,0aWW12,12,12,14,14,110,126,0,102,102,108,127,103,1oI}03,103,0,48,48,48,112,112,112,126,0a]]103,127,127,119,103,103,103,0,103,119,127,111,103,103,103,0,127,99,99,103,103,103,12oJ}7,0a[[127,99,99,127,112,112,112,0,127,99,99,103,103,103,127,7,126,102,102,127,119,119,119,0aVV127,96,127,3,115,115,127,oK}0,127,28,28,28,28,28,28,0,103,103,103,103,103,103,127,0a\\103,103,103,103,111,62,28,0,103,103,103,111,127,127,103,0,115,11oL}5,115,62,103,103,103,0aFF103,103,103,127,28,28,28,0,224,224,224,0,0,0,0,0,7,7,7,0,0,0,0,0aMM36,36,36,36,36,36,36,36,0,6oM}0,60,12,24,0,0,0,102,231,255,255,126,60,24,0a0,36,126,126,60,24,0,0a**67@,.hha))67@$oN},.ha67@F,. `e7 #B`6!-@@%"367<,.>:,7 e55140oO},90,27,104,0,88,182,73,15,0,120,104,200,90,0e7 #B`A!-@@F%"367<,.>:,7 ebb72,138,72,152,72,162oP},0,173,11,212,201,7,240,3,174,214,89,160,0,189,223,89,153,22,208,232,200eBB192,5,208,244,142,214,89,104,168,104,170,104,64oQ},0,15,2,3,4,5e[ 6-C:,6-P:'AV,/6-+&$AV,86-C:,I6-P:'AV,[6-+&$AV,en67@!<@!oR},.>:,767@"<@",.>:,R6-P:+%@A,'AV,n6-+%@A,&+$AV,e_67<,.>:,+67@<@oS},.>:,E67@3<@3,.>:,_67@4<@4,.>:,e-AA-BBAea%6-F:A`,%AoT}V$F:Aa,9A%A(M%@A4a%@ A4`m********PM ROUTINE *****jmOO;A,9oU}@,9,9,;,;,;,;,;@,9@,om:;,;,;,;,"6-C:,.68,-C:,:68,-C:,qm'6oV}8,-C:,68,-C:,'68,-C:,sm:68,-C:,68,-C:,'68,-C:,06-C:,:#B0tm7-@A")67:,- 7 B~mff216,104,104,104,133,213,104,24,105,2,133,206,104,133,205,104,133,204,104,133,203,104,104,133,208moX}ff104,104,133,209,104,104,24,101,209,133,207,166,213,240,16,165,205,24,105,128,133,205,165,206,105maa0,133,206,202,208,24oY}0,160,0,162,0,196,209,144,19,196,207,176,15,132,212,138,168,177,203,164m``212,145,205,232,169,0,240,4,169,0,145,205,200,19oZ}2,128,208,224,166,213,165,208,157,0,208,96m_6.p@`816.&<H6.;>:7'_6.@o[}@d<mI6. p\  : "6./<<<<<: :>q_-@_(@[;;=;;=oa};;=;;=;;=;;;Z  ?0.00q A4,@+,@@=,@@O,@ob}@a,@@s,@@}AG,@@qQ-@!Q(@ oc} total q Aa,@#A)5,@@G,@ @Y,@@k,od}@@6-?:<<<<@`<@<@,ra -+(@25@ money pouch 1-C(@O6oe}-@%U6-[6-a6-r=6-@P6-6-'6-@-6-36-=#B@r$ ""6@ #B@$ $of}r6"6@-2(@ 砠6 .r6"6@-2(@6 8r6"6@-og}2(@19866 Br&F:B2y," AF& BGr,F:B2y,"@" AF, B0Lr&F:oh}B2y," AF& BVr; 22%@-6-?:C:,<,7 AF; `rB -B(@score oi}  0 ? . 50 jrw @,@#@/,@;,@E@ Q,@[@g,oj}@kw,@trE,@,#@/,@9@E,@urT -@6@ok}26-P:H:,$+%,,;6-8,G68,-8,P68,-T vr:-@,(@/ < < < < :-@wr<8,"@ol}"-%$@2(@< Bxr<8,"@"-%$@2(@< Byr<8,"@"om}-%$@2(@< Bzr<8,"@%"-%$@2(@< B{r<8,"@P"-%$on}@2(@< B|r   A`~rA6-%@%!A)6-@%/-A(@ r2oo} -(@@&6-@ * . 2 r 6-%!6-r B2%r?6-@-'(@3op}6-@ 7 ; ? r9 6--!(@ -6-@ 1 5 9 r?6-@-'(@36-@oq} 7 ; ? rZZ121,30,121,10,121,10,121,30,121,10,121,10,96,30,81,10,81,10,96,10,96,10,121,30,-2,-2rXX108,30,108,1or}0,108,10,108,30,108,10,108,10,128,30,108,10,108,10,128,10,162,30,-3,-3raa121,10,121,10,121,10,121,10,121,30,121,10,121,10,os}96,30,81,10,81,10,96,10,96,10,121,30,-4,-4r<<108,30,108,10,108,10,162,10,162,10,162,30,121,75,-1,-10u @0D2ot}:MONEYPCH.BAS,10,96,10,96,10,121,30,-4,-4r<<108,30,108,10,108,10,162,10,162,10,162,30,121,75,-1,-10u @0D2l&&HJHJJJJJJJ€JJ€JJJsv}ʀJJ& YLYYYYYLYYLYOYLYYYYY &presentsUUsw}OUUOOOUOUUIOUUOUUOUUOUUOUUOOOUUYYYYYYKILYLYLYYYYOYYYYYYYYYYLUUYKYYYGYYYsx}YIYOYYOYYYYYYLLLLKLLLLLLLLLՀN&Yby%arl$avidsonand*ohn/akleyM& sy}#opyrightc  & 0ressanykey &)5BVkBVb%dit#reate6iewa3crsz}een #opya3creen$eletea3creen(elp!)nserta3creen,oadfrom$isk1uit!3avetos{}$isk compressed 5ncompressed3aveto$isk 6iew3creens$/3%nterchoiceQ(Ms|} %xamplesI$9/52&),%0'%$9/52&),%0'%g$isk$irectoryenterdiskdrive number  B0ress2%452.toexis}}tto-ain -enuBV/B䀳V,BV(elp displaythisscreens~} BV-argin toggleor  BV1uitto-ain-enu2ecorded BV2ecordscreento2!-./4$)3+ BV4oggle#ursos}ronoff BV)nversetogglecharundercursorBV50repeatcharundercursor BV$/7.repeatcharundercursors}BV,%&4repeatcharundercursorBV2)'(4repeatcharundercursorBV"orderserasesborder 2T3creenmustbes}2%#/2$%$beforereturningto-ain-enuoritwillbelostT&ullscreeneditor justlikethe"!3)#editors}H0ressanykeytocontinue%s}s}%%Xs}󀜲[./4%4he$%34).!4)/.screenwillbereplacedbythesourcescreen4he3/52s}#%screenwillremainun changed%nterthescreennumber   whereyouwishtoBs}Vablankscreen?󀜲[./4%3creenwillbepushedoffthefile#opytoanots}herscreen"%&/2%you).3%24ifyou wishtoretainit%nterthescreennumber  tobeBs}V?0ress2%452.toexit\./4%!llscreensnumberedlargerthanthe$%,%4%$screenwillbe movedonescrees}nlowerwhenthiscommandisused3creennumberwillbeblankhanthe$%,%4%$screenwillbe movedonescreepLLM5| SCREENGKEN76N25NKKYESCFLNN9N9N9N25DNUPPAGENPAGENN96BEEN75RCMENUMENUNN1N1NNUSEMENw}ANYCLKEN12N12RTUN4SAVMSDWTTBBBORDELN8CRCAPPAGMAILLTRN6WORKCHNN15N32N4USEPAGN5FUNFILENAMESQw}UEEZEN2N150NNNNNSONDEPNWAIAN10N960VVTMENUPAGEMENUN3N3N9N30N90N91OFERR@B@pAUAw}dAU@@HL @ @ @ AV%%'%%@w}A `A`ARA %%@u@@@ @AP A!A"A(w}#A'$M%&@@'B()*+,-@2.@2/A0@1@2w}M3A04A56M78@d9L:;AUA@?@P@ALw}B%C@#DAE@F@GH@I@JK@LMNOLPAQAw}RA S@TAU@2V@3W@XAYA ZA [B\M$+ +;@,!6.+w} B $$$$ˠΠ$$Ԡ㩠($$w}2$$<$$E٩F, w}6-F:,"@@(", P!A Z9 )6.>:,Ac-"@'*9Atd*(&6w}-%@$"@'* m٩n  w**ŠҠҠҠȩx F:F:,%Fw}:,$,( $Ġś67%$<%$,. $Šś' 6.7%$<%$, $ '$Šw}՛# 6.7%$<%$, #$ Л+-@P6?u$2( +$٠Рś( 6w}7%$<%$,. 6-$ ( ! 6- AR ! ԯ̯ӛ+ 6-F:,"%$+ ,&$+!w},'(+ 7 6-F:,(6-+F:,%F:,$,&$+&!,.3(7 = 6-F:,.6-+F:,%F:,$,%$+& A !,49(= w}O6-A6-A'6-@u36-A?6-AIK6-ASO 1 6-6-6-6-'6-A`-6-w}1 76-@6-6-!6--6-@ 36-7 O6-@s6-@y'6-@u36-@v?6-@K6w}-A$O O6-A 6-A'6-AF36-AR?6-AK6-AO O6-@6-@i'6-w}@36-@g?6-@K6-A$O $6-%+$+",, ($    !6-%F:,"(! w}  1 6-6-6-6-'6-@5-6-1 1 6-6-6-6-'6-@2-6-1 1 6-6w}-6-6-'6-@B-6-1 76-A86-6-!6--6-Ap36-7 D 6-F:,56-+F:,%F:,$,&$+w}&!*F:@,,;@(D P 6-F:,A6-+F:,%F:,$,%$+& A X*F:@,@9,GL(P  Apw} S/C/A not available+Ԡ٠Ҡ˩,.AA")+6.>:,.$6 6.6-@w}( "@Y6-@X(6.>:,J " $T"@GA^O'!@E* @Y)!* @3 @w}8(C67<,.K6-%O hI7@0*A&*AT*AV*@CE(>:AS,I r8 B:,!6.7<+B:w},&,,&6-&4(>:A&,8 |( "6.6-$(>:A&,( (>:AS, Πś5  6-w} #-@&@!,(_0 5(3!@G* @X!6-&% +-/ 3  A% ( . Aw} A 6-    A)6-@6- A) A6 (>:A%,(((3(w} GOTO MAIN6&)6-6- A) A# 6-6- A# AP AŠŤw}Ϡ˛ A03@36-?:C:,<:,%,1/@8]67<,.>:,',@9@9/@9@"G67<,.>:,K],@8@#w}9 /#67A !<A !,.>:,'3,@"9/AR ( ԠŠś 8 6- w}-%".(Ġ͠8 A0* "(ŠϠˠ4- "--(ĠŠϠ>-@w} A6.H 4 R B:," A A\$Ԡàқ  " < w})!@W)"2(>:AS,>:A&,< A  6-&($٠Πś@ 6- -6(w}Š@ A  6-<-@2(Π< A  6-+#67%$w}<%$,.7%$<%$,' + KԠΠśL# 6- -@# A V% 6-6-@%6-%@w}$`E +67%<%A,.7<%A Y,36-&;6-&E A j(>:A%,6-  ŠΠw}ś)6-@ -@') A  6-6-6-%$E  +67<%A Y,.7%<%A,36-%;6w}-%E A (>:A%,6-  נӛD 6--(>:A%,*-@8(SCREEN @-w}D   "' (  6- wˠ٠śxA 6- &6.>:@:7<,,%,2-@(w}7(A Ap6.D1:*.*67<,./ A`#)6-/-N %(>:@1,>:@1,w},0(86-%D @N A0P-@"1(Ů5 9 E-@(J(P6-w} - A0MF:A,"A6$-@"F(宮J M$-@"   w}ҠśHE(ҠF:A, ԠŠF:A,%AV$F:A,H$'ˠΠЛ'_ 6-"6w}-%6-%#6-%+6-%36-%;6-%C6-%O6-@W6-%_6-%'+ 6-%6-AV#6-A `+6-$$w}'+6-F:A4,%F:A5,$+A1.'%%F:@,%%F:@,8'/%A%'%A/%w}B')6-AP6-A !6-)6-$L'S;,;,;,#6.>:,,67,.567,.D6.>:@(,S6.>:@),w}V';A,_'nnLINES 10080 TO 10120 are created by LISTING 2. Type: ENTER "D:SQUEEZE.LST". Then type: LIST 10080,10120w}`'qq67@,.^hԅ`hhhh hhhhhh[Q˅ϥХHHHHҩѥj'pp67@w},.]'ϥ8\_!hhhhхإ҅٩֩֝DEHhht'oo67A,.\hhw}HםDEI B V08ԩ`םDEBHI Vԩ`~'oo67A,.\ϥw}8IHםDEB V0)#בإ'##67Ar,.ϥ88'Ġդw}͠ˠ'4AR@-%4(Ǡծ'7  D:QSMENU.PGE76-?:C:,<:,"67,.+67,.>+KA0!A)@$3A @?AKAH+o6-@w}p6-!6-A-6-A096-A@E6-A`Q6-BW6-c6-Ao6-AR+K:w}\+99;,;@,;,;,;@6,;,;,;,f+06.>:@0,!6.>:@1,06.>:AU,p+N6.>:@(w},!6.>:@),06.>:@0,?6.>:@1,N6.>:AU,z+   D2:QUICKSCR.BAS.>:AU,p+N6.>:@(ta4