@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 D8u10 ; COLOR PALETTE INTERRUPTS20 ; JOHN W. FELTON30 ; (c) 1985, ANTIC PUBLISHING40 ;50 DRKMSK = $4E ; ATTRACT MT}ODE REDUCED LUMINANCE MASK60 COLRSH = $4F ; ATTRACT MODE COLOR SHIFT MASK70 WSYNC = $D40A ; WAIT FOR HORIZONTAL SYU}NCHRONIZATION REGISTER80 COLPF0 = $D016 ; COLOR REGISTER FOR PLAYFIELD ZERO90 COLPF1 = $D017 ; COLOR REGISTER FOR PLAV}YFIELD ONE0100 COLPF2 = $D018 ; COLOR REGISTER FOR PLAYFIELD TWO0110 COLPF3 = $D019 ; COLOR REGISTER FOR PLAYFIELD THREEW}0120 COLOR4 = $02C8 ; BACKGROUND COLOR REGISTER SHADOW0130 VDSLST = $0200 ; DISPLAY LIST INTERRUPT VECTOR0140 SYSVBV = $EX}45F ; STAGE ONE VERTICAL BLANK ENTRY0150 SETVBV = $E45C ; SET VERTICAL BLANK VECTOR ROUTINE0160 CHBASE = $D409 ; CHARACTY}ER BASE ADDRESS0170 .ORG $0600 ; POSITION ON PAGE SIX0180 COLR0 .DS 1 ; DEFINE STORAGE FOR DISPLAY COLORS0190 COLZ}R1 .DS 10200 COLR2 .DS 10210 COLR3 .DS 10220 COLR4 .DS 10230 COLR5 .DS 10240 COLR6 .DS 10250 COLR7 .DS 10260 .DS 4[} ; EXTRA STORAGE0270 ;0280 ; INTERRUPT #10290 ;0300 INT1 PHA ; PUSH ACCUMULATOR ON STACK0310 LDA COLOR4\} ; LOAD BACKGROUND COLOR0320 EOR COLRSH ; PERFORM ATTRACT MODE OPERATIONS0330 AND DRKMSK0340 STA WSYNC ; W]}AIT FOR HORIZONTAL BLANK0350 STA COLPF2 ; STORE IN GR.0 BACKGROUND COLOR REGISTER0360 LDA COLR7 ; LOAD DISPLAY C^}OLOR SEVEN0370 EOR COLRSH ; PERFORM ATTRACT MODE OPERATIONS0380 AND DRKMSK0390 STA COLPF1 ; STORE IN GR.0 LU_}MINANCE COLOR REGISTER0400 LDA # `}INT2 ; DISPLAY LIST INTERRUPT0430 STA VDSLST+1 ; VECTOR0440 PLA ; POP ACCUMULATOR OFF OF STACK0450 RTIa} ; RETURN FROM INTERRUPT0460 ;0470 ; INTERRUPT #20480 ;0490 INT2 PHA ; PUSH ACCUMULATOR ON STACK0500 b}LDA COLR0 ; LOAD DISPLAY COLOR ZERO0510 EOR COLRSH ; PERFORM ATTRACT MODE OPERATIONS0520 AND DRKMSK0530 STAc} WSYNC ; WAIT FOR HORIZONTAL BLANK0540 STA COLPF0 ; STORE IN COLOR REGISTER ZERO0550 LDA COLR1 ; LOAD DISPLAY d}COLOR ONE0560 EOR COLRSH ; PERFORM ATTRACT OPERATIONS0570 AND DRKMSK0580 STA COLPF1 ; STORE IN COLOR REGISTEe}R ONE0590 LDA COLR2 ; LOAD DISPLAY COLOR TWO0600 EOR COLRSH ; PERFORM ATTRACT OPERATIONS0610 AND DRKMSK062f}0 STA COLPF2 ; STORE IN COLOR REGISTER TWO0630 LDA COLR3 ; LOAD DISPLAY COLOR 30640 EOR COLRSH ; PERFORM ATg}TRACT MODE OPERATIONS0650 AND DRKMSK0660 STA COLPF3 ; STORE IN COLOR REGISTER THREE0670 LDA # INT3 ; DISPLAY LIST INTERRUPT0700 STA VDSLST+1 ; VECi}TOR0710 PLA ; POP ACCUMULATOR OFF OF STACK0720 RTI ; RETURN FROM INTERRUPT0730 ;0740 ; INTERRUPT j}#30750 ;0760 INT3 PHA ; PUSH ACCUMULATOR ON STACK0770 LDA COLOR4 ; LOAD BACKGROUND COLOR0780 EOR COLRSH k}; PERFORM ATTRACT MODE OPERATIONS0790 AND DRKMSK0800 STA WSYNC ; WAIT FOR HORIZONTAL BLANK0810 STA COLPF2 ;l} STORE IN GR.0 BACKGROUND COLOR REGISTER0820 LDA COLR7 ; LOAD DISPLAY COLOR SEVEN0830 EOR COLRSH ; PERFORM ATTRAm}CT MODE OPERATIONS0840 AND DRKMSK0850 STA COLPF1 ; STORE IN GR.0 LUMINANCE COLOR REGISTER0860 LDA # INT4 ; DISPLAY LIST INTERRUPT0890 STA VDSLo}ST+1 ; VECTOR0900 PLA ; POP ACCUMULATOR OFF OF STACK0910 RTI ; RETURN FROM INTERRUPT0920 ;0930 ; p}INTERRUPT #40940 ;0950 INT4 PHA ; PUSH ACCUMULATOR ON STACK0960 LDA COLR4 ; LOAD DISPLAY COLOR FOUR0970 q}EOR COLRSH ; PERFORM ATTRACT MODE OPERATIONS0980 AND DRKMSK0990 STA WSYNC ; WAIT FOR HORIZONTAL BLANK1000 Sr}TA COLPF0 ; STORE IN COLOR REGISTER ZERO1010 LDA COLR5 ; LOAD DISPLAY COLOR FIVE1020 EOR COLRSH ; PERFORM ATTRAs}CT OPERATIONS1030 AND DRKMSK1040 STA COLPF1 ; STORE IN COLOR REGISTER ONE1050 LDA COLR6 ; LOAD DISPLAY COLOt}R SIX1060 EOR COLRSH ; PERFORM ATTRACT OPERATIONS1070 AND DRKMSK1080 STA COLPF2 ; STORE IN COLOR REGISTER TWu}O1090 LDA # INT5 ; DISPLAY LIST INTERv}RUPT1120 STA VDSLST+1 ; VECTOR1130 PLA ; POP ACCUMULATOR OFF OF STACK1140 RTI ; RETURN FROM INw}TERRUPT1150 ;1160 ; INTERRUPT #51170 ;1180 INT5 PHA ; PUSH ACCUMULATOR ON STACK1190 LDA COLOR4 ; LOAD BACKGRx}OUND COLOR1200 EOR COLRSH ; PERFORM ATTRACT MODE OPERATIONS1210 AND DRKMSK1220 STA WSYNC ; WAIT FOR HORIZONy}TAL BLANK1230 STA COLPF2 ; STORE IN GR.0 BACKGROUND COLOR REGISTER1240 LDA #$E0 ; LOAD MSB OF ADDRESS OF CHARACz}TER SET IN ROM1250 STA CHBASE ; STORE IN CHARACTER SET BASE POINTER1260 LDA COLR7 ; LOAD DISPLAY COLOR SEVEN127{}0 EOR COLRSH ; PERFORM ATTRACT MODE OPERATIONS1280 AND DRKMSK1290 STA COLPF1 ; STORE IN GR.0 LUMINANCE COLOR |}REGISTER1300 PLA ; POP ACCUMULATOR OFF OF STACK1310 RTI ; RETURN FROM INTERRUPT1320 ;1330 ; VERTI}}CAL BLANK INTERRUPT1340 ;1350 VBI LDA # INT1 ; DISPLAY LIST INTERRUPT1380 STA VDSLST+1 ; VECTOR1390 JMP SYSVBV ; JUMP TO OS VERTICAL BLANK ROUTINE14}00 ;1410 ; SET VECTOR TO VERTICAL BLANK INTERRUPT1420 ;1430 PLA ; DISCARD NUMBER OF PARAMETERS PASSED IN BASIC} CALL1440 LDY # VBI ; LOAD X WITH MSB OF INTERRUPT ADDRESS}1460 LDA #6 ; LOAD ACCUMULATOR WITH SIX FOR IMMEDIATE VBI1470 JSR SETVBV ; CALL OS ROUTINE TO SET VECTOR1480} RTS ; RETURN FROM SUBROUTINEITH SIX FOR IMMEDIATE VBI1470 JSR SETVBV ; CALL OS ROUTINE TO SET VECTOR1480*PMSCCCRSBLANKABLKROUTINEPMBASBSCBSCDSCRLOSCRHIGHIGLOVVTSTAROFFSEHTSCTSCLDELADD }CLOCOLLUBSCRSCLOBBLBLBC@@ }  } !"#$%&'()* }+, COLOR PALETTEBY JOHN W. FELTON (c) 1985, ANTIC PUBLISHING(INITIAL COLORS240,20 }2,148,70<!!50,82,252,114,172,244,198,0FDISPLAY LISTPZZ112,112,64,69,0,0,133,0,130,0,5,133,0,130,0,5,133,0,2,0,2,66 },0,0,2,2,2,2,2,66,0,0,65ZDISP. LIST INTERRUPTSdll72,173,200,2,69,79,37,78,141,10,212,141,24,208,173,7,6,69,79,37,78,1 }41,23,208,169,50,141,0,2,169,6,141n1,2,104,64xll72,173,0,6,69,79,37,78,141,10,212,141,22,208,173,1,6,69,79,37,78,141, }23,208,173,2,6,69,79,37,78,141,24MM208,173,3,6,69,79,37,78,141,25,208,169,106,141,0,2,169,6,141,1,2,104,64mm72,173,20 }0,2,69,79,37,78,141,10,212,141,24,208,173,7,6,69,79,37,78,141,23,208,169,142,141,0,2,169,6,1411,2,104,64ll72,173,4, }6,69,79,37,78,141,10,212,141,22,208,173,5,6,69,79,37,78,141,23,208,173,6,6,69,79,37,78,141,24..208,169,188,141,0,2,169,6, }141,1,2,104,64ll72,173,200,2,69,79,37,78,141,10,212,141,24,208,169,224,141,9,212,173,7,6,69,79,37,78,141,23,208,104,64 }V/B INTERRUPT,,169,14,141,0,2,169,6,141,1,2,76,95,228**104,160,219,162,6,169,6,32,92,228,96SCROLL SUBROUTINE }$$104,104,141,0,0,104,141,0,0,96IIGREY,GOLD,ORANGE,RED,PINK,VIOLET,PURPLE,BLUE,CYAN,LT BLUE,TURQUOISE00BLUE-GRN,G }REEN,YLLW-GRN,ORNG-GRN,LT ORANGE]];A$,;A,9@,;@,9@,;@ ,;@,;@, }TITLE PAGEAF:A@,"e +'0@@@A0@@SAe }AR@,M-6-F:A`,%F:Aa,$AV%@ 9@M%@@6;-@@;(! } _____________@-@@(BYJ(-@@((JOHN W. FELTONTINITIALIZE^/ #A }!-APAx%"+/ h,-@@ ,((BACK IN A MOMENT)r2 #@P!-@@%".68,-2 } |7 #@`!-@%"3A6%7 267@,. #67A,.267@,.$$6-AV$+F }:A,&@,(6-P:'AV&@,(6-.-@A*%F:BsD%,. SET UP DISPLAY }LIST +@AY56-&AV$@'6-%@"56-%@#1 #@!-@2%" }-%1 = &%@3F:A`,=%@4F:Aa,f%@F:@,1%@F:@,R }A`&P:'AV,$AVfAa'AVj-6-F:@,%F:@,$AV%A>6-P:'AV,N6-&$AV }\%@0j%@1KA@'A@9BBAKAC@INIT SCROLL S }UBROUTINE7 #A0!-@@%"367<,.>:,7 X6-P:'AV,$6-&$AV>67@<@,.>: },X67@ <@ ,.>:,X6-P:'AV,$6-&$AV>67@<@,.>:,X67@<@,.>:,&6-?: }Ah,0SET UP P/M GRAPHICS:%%6-F:A4,%F:A5,$AVD%%6-F:A@,%F:AA,$AVN 6-&X$6 }-P:'AV,$6-&$AVb%@%@lD67A,.,67A@,.7A,D67A,.7A },v9A#@'A@9B2V@CBByP:'AV,,B2w@CAVP:'AV },3367@ <@3,.UUUUUUUUDRAW SCREEN96-F:@,!6-F:@,-@9@ }=@'AR@9-=(m #A@!-@%"1-@;( S- }@&+!@ ,W(c-@9i(m -@@-@y-@@1@] }@3%+"@,%+"@!,$@%+"@1,$A0y-@@[-@+- }@S,%%&+"@*"@1,$@W [    '@'AR@%-@@ }! A% K-@@ K(@'ŠŠK-@@K(@ }' @@6.  6. *AY@F }416-A 6-@'6-@1 A >UPPER WINDOW ROUTINEH T:,"A@R,T: },"" AP, A \-@@ f Ap!!"*"APz@w } 6-%6-%_16-&+"@,$@%+",$@_6-&+"@,$@%+",$@67<% }@ ,.6-$@!%A B2H$@@%@"67<%@ ,. APLOWER WINDOW ROUTI }NEW6-A'%%$@56-&+"@,$A$K"@*"@W6-AF6-%+&@,$@16-P: }8,'@,F6-8,&+,$@6-%$AVGG6-%+!@* @,$+&@,$@@%+!@,$A } A@O16-%@%+!@ ,$+&@,'@76-=-C(XI6-O6- T:,"A  } A$8T:,"-$( . AP8 A@./6-%$@'6-%+!@',$/6-%8"* }"APB@wL+!@7) @6-+6-V+!@) 6-+6-` - }( j+%$@@ !6-&@@+ A@t3%$@@!%A)6-%@@3 A@~ -(X6-6 }-<6-%$@#6-%@$)268,-< A`%@@% A@@ } APREAD JOYSTICK SUB6-R:,B6-+!@* @,&+!@* @,6-+"@)"@ })"@,&+"@)"@)"@,*@A'B7tA*$SCROLL SUB6-?:C:,<,$ }SET TEXT COLOR SUBY06-F:A,&P:F:A,'@,$@VAC@&+!@ ,$@Y$WRITE }HUE/LUM SUB*6-P:8,'@,*6-8,&$@ L'6-@%+!@,%+!@,L6-&P:+&@,'@,$@ }B5-$@&@ &+!@ ,$@&@B( ,2)-$@&@$@&@2( (U) }-$@&@$@&@88, @?( N8, @U( 2 (8, $<BEEP SUBFb%2@P }@@9-@= _2b$ D:PALETTE.BASP SUBFb%2@P f,- PMBASPBBSKBBX }  PENCILSBY GREGG TAVARES (c) 1985, ANTIC PUBLISHING(,AF:A@},"+@, A@2.6-F:A@,&@.A&@<$6-F:A,$AV$ AF9 +@'0@}@9AY@bP[BBy-6-$AV%A$%@2A-APW%&@3}[ Z'A#@'B2w@d[B2H@@/B2I@@%@AB2PA[B2QA}%@n'B2V@'B2W@xKA@'AAP9A@KA@6}k-@!#A05-@?"Q%$@%k%AV%$@%?%$@%%}A7%$@%%Ah; ?  A-@# @,@/@5 }A@6-?:A6, F:B2y,"@A  0,0,0,00,1,231,300,3,231,310,7},231,310,15,231,310,31,231,31"0,63,231,31,1,63,231,3163,63,231,31@1,63,231,31J0,63,231,3}1T0,31,231,31^0,15,231,31h0,7,231,31r0,3,231,31|0,1,231,30+6-+-A@} #A-@??%%P:'@,%@+P:'@,%@,$@%II%%+@&P:'@},,%@+P:'@,%@,$@% "%%%A%%%AW%@%%%A}i%@H%%%A% %%@@   $ 0,0,0,0 0,0,0,0 2,2,0,2 4,4,0},4& 6,6,0,60 8,8,0,8:10,10,4,10D10,12,6,10N10,12,4,10X10,12,0,10b10,10,0,10l 8,8,0,8v } 6,6,0,6 4,4,0,4 2,2,0,2 0,0,0,0 0,0,0,0)AG)AH'AV1AP1}AQ'AV%@1Ab1Ac'AV%@1Ah1Ai'AV%@}1At1Au'AV%@$ #A-@@Q"A5%  55}@$AV%@%@@%@55@$AV%@%@@$@ 55@$AV%@}%@@%@*55@$AV%@%@@$@455@$AV%@2%@@}%@>55@$AV%@2%@@$@H55@$AV%@2%@ @%@R55@}$AV%@2%@@$@\55@$AV%@%@@%@f55@$AV%@%}@@$@p$z]]104,165,204,205,11,212,208,251,162,0,189,0,33,188,0,32,141,10,212,141,26,208,140,19,208}\\189,0,31,141,18,208,189,0,34,141,20,208,189,0,35,141,21,208,232,224,192,208,218,76,1,6D2:PENCILS.BAS<6-}H6189,0,31,141,18,208,189,0,34,141,20,208,189,0,35,141,21,208,232,224,192,208,218,76,1,6D2:PENCILS.BAS<6-TO SIGN :LENTELL [0 1] PUTELL 0 BK 6 TELL 1 FD 14TELL [0 1] LT 90 FD :LEN / 2 - 10ENDTO STAFF :LEN :HITCS PU LT 90 FD }:LEN / 2 RT 90 FD :HIT * 5 / 2 PDREPEAT 4 [SETH 90 FD :LEN BK :LEN RT 90 FD :HIT]RT 180REPEAT 2 [FD :HIT * 4 RT 90 FD :LEN} RT 90]SIGN :LENENDTO MEASURECSTELL 2 STAFF 250 10ENDTO DIRECTIONSCTPR [IF YOU WANT THE COMPUTER TO PLAY]PR [ALON}G WITH YOU, PRESS 'y' NOW.]MAKE "CHOI RCIF :CHOI = "Y [PR [THE COMPUTER WILL PLAY ALONG.]] [PR [THE COMPUTER WILL NOT PLAY.}]]PR [Press a key to go on.]PR RC CLEANUPENDTO SETUPSETBG 0TELL 2 SETPN 0 SETPC 0 102 SETC 15TELL [0 1] SETC 6TELL [}0 1 2] CSTELL 2 MEASURETELL 2 PU SETPOS [0 -20] SETC 15PUTSH 1 :NOATPUTSH 2 :STAFFLOPUTSH 3 :STAFFHITELL 0 SETSH 2 TELL} 1 SETSH 3TELL 2 SETSH 1ENDTO BEEP :NOTESETENV 0 3TOOT 0 :NOTE 10 20ENDTO PLAY :STIF :ST = "A [TYPE [\ c] SETY -20 }OP 260.7]IF :ST = "S [TYPE [\ d] SETY -15 OP 293.3]IF :ST = "D [TYPE [\ e] SETY -10 OP 330]IF :ST = "F [TYPE [\ f] SETY -5} OP 347.7]IF :ST = "G [TYPE [\ g] SETY 0 OP 391.1]IF :ST = "H [TYPE [\ a] SETY 5 OP 440]IF :ST = "J [TYPE [\ b] SETY 10 OP} 495]IF :ST = "K [TYPE [\ C] SETY 15 OP 521.5]IF :ST = "L [TYPE [\ D] SETY 20 OP 586.6]IF :ST = "; [TYPE [\ E] SETY 25 OP }660]IF :ST = "+ [TYPE [\ F] SETY 30 OP 695.4]IF :ST = "* [TYPE [\ G] SETY 35 OP 782.2]IF :ST = CHAR 32 [TYPE [\ ] SETY 0 O}P 50000]OP 50000ENDTO BEEP2 :NOTESETENV 0 3TOOT 0 :NOTE 10 20TOOT 1 :NOTE / 2 8 20ENDTO REMEM :STMAKE "LINE LPUT :}ST :LINEENDTO REPLAY :LINEIF EMPTYP :LINE [STOP]IF :CHOI = "Y [BEEP2 PLAY FIRST :LINE] [BEEP PLAY FIRST :LINE]REPLAY BF} :LINEENDTO STARTSETUPBEEP2 PLAY "ADIRECTIONSGET.NOTEENDTO CLEANUPCTPR [C\=CLEANUP,Y\=START OVER,R\=REPLAY]MAKE }"LINE []ENDTO GET.NOTE.DEPOSIT 731 255MAKE "ST RCIF :ST = "C [CLEANUP GET.NOTE]IF :ST = "Y [START]IF :ST = "R [REPLAY} :LINE GET.NOTE]REMEM :STIF :CHOI = "Y [BEEP2 PLAY :ST] [BEEP PLAY :ST]GET.NOTEENDMAKE "ST "RMAKE "STAFFHI [8 12 10 9} 9 9 9 9 9 9 9 9 9 10 12 8]MAKE "STAFFLO [8 24 40 72 136 136 136 138 141 141 139 137 137 73 42 28]MAKE "NOAT [0 7 15 12 8 8} 8 8 8 8 104 248 248 240 96 0]MAKE "CHOI "YMAKE "LINE [S D F \ F G H \ H J K \ K K K]3 42 28]MAKE "NOAT [0 7 15 12 8 8[; PRINTIO (LISTING 8)PROC Ppt(INT ARRAY v)PrintD(2,"("):PrintID(2,v(0))PrintD(2," "):PrintID(2,v(1))PrintD(2," "):PrintI}D(2,v(2))PrintD(2,":"):PrintID(2,v(3))PrintD(2,") "):RETURNPROC Prnt():BYTE i,j,k:CARD n,tBYTE ARRAY a(13),st=[3 27 51 1}6] ,pre=[4 27 75 192 0],s,d(193)Position(1,16):Print("PD ")WHILE key=255 DO OD k=key:key=255IF k<>10 AND k<>58 T}HEN Position(1,24) Put('P):Print(abort):RETURNFI:t=Error:Error=MyErr:err=0Close(2):Open(2,"P:",8,0)IF err>0 THEN Close(2}):Error=t:RETURN FIb(0)=12:SCopy(a,b):SCopyS(a,fln,3,14)PrintDE(2," "):PrintDE(2,a)IF err>0 THEN Close(2):Error=t:RETURN F}IIF k=10 THEN st(3)=16:PrintDE(2,st) s=sa1:d(0)=192 FOR i=0 TO 39 DO n=7640+i FOR j=1 TO 192 DO d(j)=s(n):n==-40 OD} PrintD(2,pre):PrintDE(2,d) ODELSE st(3)=20:PrintDE(2,st) PrintD(2,"eye="):Ppt(eye) PrintD(2," focus="):Ppt(foc) } PrintDE(2," "):i=0:j=0:n=P+10 DO i==+1:IF i>P(0) THEN EXIT FI j==+1:n==+8:Ppt(n) IF j>2 THEN j=0:PutDE(2) FI OD} PrintDE(2," ")FI Position(1,16):Print(" Ġ ")Error=t:Close(2):RETURNPpt(n) IF j>2 THEN j=0:PutDE(2) FI ODQb(x(NCOWIFUEPMBASXDIYDIXPOYPOPMPMPMMOVCPOSCOROXVAPMMOVEPRPLCHNEWCHBASRRCHADPCPMHV}FUELUSESCORHISCORCRASDONPXPM } } @!@"#$%&'()}*+ HELICOPTER ROUNDUPBY WALTER BULAWA (c) 1985, ANTIC PUBLISHING(# AP#GAME INITIALIZAT}ION2$ A`$LEVEL INITIALIZATION<6-R:,F7%Aa&$A&)6-&?76-%@P;@}A'B7tA; A@Z%%2@@@d%6-8&@,%6-8&@,n#}6-%@$#6-%@$x @@6-@@!A6-A @6-@!A}6-AG%2G2@"@6-"6@6}-((6-?:<<<%<<<@&,$$6-?:<@<<<<<@,6-%@S"@6-'}A23A0?A1S6-?:A6PLACE COWSH @R}-@\G%6-P:@$H:,,%@G6-P:@$H:,,%@f! 1@2! A`pK C:},%+&@,$@EC:,%+&@,$@%@K,z PLACE HELICOPTER!6-Av6-A!6}-$$6-?:<<<<<<@,'B2IA'B2PACLEAR CENTER OF CORRAL= @2!-}@ @-,@9/@= ',@@'/@@$TITLE PAGE DISPLAY*A}F:A@,*B2y@KB2H'B2I9B2PKB2Q/+@%@}/0@@@T-@@-(@ HELICOPTER?-@@T(@ROUNDUPg @,}1/@C/@@U/@g/.-@@ .(@ }Ӡ #A$6""6@(-@A, 6 AP.=F:B2y,"@:2@}=$8A2@@@3-@@7 A A`BPLEAE WAIT DISPLAYL+@%@V)}-@@)(@PLEASE`'-@@'(@WAITj--@@-(@ 30 SECONDSt}-@A ~$LEVEL INITIALIZATIONKB2H'B2I9B2PKB2Q}/+@%@/0@@@6-6-@Qg @,1/@}C/@@U/@g/T-@@-(@ HELICOPTER?-@@T(}@ROUNDUP3-@@3(@Ԡ3-@@3(@ .-}@@.(@ +-%A%Aa'A&+ B2y@>F:B2y,"@}&6-%@2!@0>6-@&-@@&(@  -@@  F:B2y,@}A`6-(U A A#@1AY@F=6-I6-U6-2'B2V }@'B2Y@<$FINITIALIZATIONP A  AZ6-6-@dGG;A,;@!},;@,;@,;@`,;@,n;@,x9@,9@,' 6-C:,6-C:,6-C:,'6"}-C:, 6-C:,O #A@!-@@%"668&@,-:"K68&@,-O 771,1,1,-1,1,0,0,0,-1,1,-#}1,-1,-1,0,0,0,0,1,0,-1,0,0'+@%@'AY//6-P:+F:A,&@,'@,$@6-+&@$},$AV6-$AV{67@,.>:@1,367@,.>:A2,K67@,.>:A,c67@,.>:A%}',{67@,.>:@,{67@,.>:AH,367@,.>:@3,K67@,.>:A,c67@,.>:AT&},{67@,.>:A,67@,.>:@,367@,.>:@,K67@,.>:@4,c67@,.>:A'},{67@,.>:@,67@,.>:@,367@,.>:Ab,367@,.>:@,{67@,.>:(},367@,.>:,K67@,.>:A),c67@,.>:,{67@,.>:,ERASE P/M AND CHR MEM)}ORY!6-F:@,!6-F:@,6-F:A,&A&@C@F:A,&@U@[(*}}g@s@A"AY,P/M MOVE ROUTINE65 #A!-@A%"167,+}.>:,5 @ff216,104,104,104,133,213,104,24,105,2,133,206,104,133,205,104,133,204,104,133,203,104,104,133,208Jff104,104,,}133,209,104,104,24,101,209,133,207,166,213,240,16,165,205,24,105,128,133,205,165,206,105Taa0,133,206,202,208,240,160,0,162-},0,196,209,144,19,196,207,176,15,132,212,138,168,177,203,164^``212,145,205,232,169,0,240,4,169,0,145,205,200,192,128,208,2.}24,166,213,165,208,157,0,208,96hCHAR MOVE ROUTINEr #A`6-|""6@A)A6%/}6-%@) A`6.KVQW#XYZ.-A*%F:BsD%,.  #A@-@@0}%%6-%+@:7<,,&@2,$@+-@"#%' + TREE TRUNK -K24,24,24,24,24,24,24,21}4TREE LEAVES-V64,49,87,221,84,58,120,28LANDING PAD-Q%%255,255,255,255,255,255,255,255REFUEL ZONE-2}W!!231,231,231,0,0,231,231,231FENCE - #&255,68,68,68,255,68,68,680LEFT COW - X:64,192,255,63,63,17,13}7,17DCENTER COW - YN36,24,24,60,60,60,36,36XRIGHT COW - Zb!!2,3,255,252,252,136,136,136l,BByP:'A4}V,,B2w@vKA@'A@9AAKAAR+-%A@%A5}'+ S-%A%A3'A)+ ?%A4AUS%AAU$COW MOVE ROUT6}INE%%104,104,133,204,104,133,203,169 0,133,208,165,232,208,1,96$$198,232,165,232,10,168,177,203$$133,219,2007},177,203,133,220,32##145,6,165,230,133,207,165,219 10,10,10,24,105,48,133,206!!32,193,6,138,133,233,24,101""8}219,133,221,32,145,6,165,231""133,207,165,220,10,10,24,105 16,133,206,32,193,6,138,24 ""101,220,133,222,170,32,169}5,6""164,221,177,205,201,0,240,10 !!165,220,166,219,32,230,6,76* 11,6,169,57,24,101,233,1454""205,166,220,32,16:}5,6,164,219>""169,0,145,205,165,232,10,168H%%165,221,145,203,165,222,200,145R 203,166,221,32,230,6,76,11\ 6,173;},10,210,201,235,176,3f 162,0,96,201,245,176,3,162p 1,96,162,255,96,165,88,133z""205,165,89,133,206,138,208,1""<}96,165,205,216,24,105,20,133##205,144,2,230,206,202,208,241!!96,173,10,210,41,31,133,205##165,207,24,197,206,176,=}13,165##206,56,229,207,24,197,205,1762,162,1,96,229,206,24,197!!205,176,2,162,255,96,24,2018,176,1,96,201>},17,144,196,138,24,201,7,176,1,96 201,13,144,1,96,230,208,96-1D2:ROUNDUP.BAS,96,201v; STICK3D (LISTING 6)PROC JoyD(INT n) ;0-EDIT,1-ADDBYTE i,k,f:INT ARRAY ptIF n=0 THEN f=0 ELSE f=1:n=P(0) FIn==+1:pt=P+1!@}0+8*n:Upt(n):Ucxyz(pt)Kolor(pt(3) & 15):Maksxsy(pt):Dit(sx,sy)DO IF n>200 THEN EXIT FI WHILE Strig(0)=0 DO st=Stick(0!A}):Dit(sx,sy) IF st<15 THEN pt(2)==-jy(st) Maksxsy(pt):Ucxyz(pt) FI Dit(sx,sy) OD st=Stick(0):Dit(sx,sy) I!B}F key<255 THEN k=key:key=255 IF k=33 THEN n==+1:Upt(n) IF pt(3)<16 THEN LineTo(sx,sy) ELSE Dot(sx,sy):xnow=sx!C}:ynow=sy FI IF f=1 THEN FOR i=0 TO 3 DO pt(4+i)=pt(i) OD FI pt==+8:Kolor(pt(3) & 15) Maksxsy(pt):Uc!D}xyz(pt) ELSEIF k=10 THEN pt(3)==! 16:Ucxyz(pt) ELSEIF k=18 THEN IncC() pt(3)=(pt(3) & 16)+cnow:Ucxyz(pt) EL!E}SE key=k:EXIT FI FI IF st<15 THEN pt(0)==+jx(st) pt(1)==-jy(st):Maksxsy(pt):Ucxyz(pt) FI Dit(sx,sy)OD P(0)=n-1:RET!F}URNPROC JoyF():BYTE i:INT ARRAY pt(3)IF cnow=0 THEN Kolor(1) FIFOR i=0 TO 2 DO pt(i)=foc(i) ODMaksxsy(pt):Dit(sx,sy):Ufo!G}c(pt)DO WHILE Strig(0)=0 DO st=Stick(0):Dit(sx,sy) IF st<15 THEN pt(2)==-jy(st) Maksxsy(pt):Ufoc(pt) FI !H}Dit(sx,sy) OD st=Stick(0):Dit(sx,sy) IF key=33 THEN key=255 FOR i=0 TO 2 DO foc(i)=pt(i) OD CLR():Draw(P):Maksx!I}sy(pt) ELSEIF key<255 THEN EXIT FI IF st<15 THEN pt(0)==+jx(st) pt(1)==-jy(st):Maksxsy(pt):Ufoc(pt) FI Dit(sx,sy)O!J}D Ufoc(foc):RETURNPROC JoyE():INT x,y,zx=eye(0):y=eye(1):z=eye(2)DO st=Stick(0):Ueye() WHILE Strig(0)=0 DO st=Stick(0)!K} eye(2)==-jy(st):eye(3)==+jx(st) Ueye() OD IF key=33 THEN key=255 FixE():FixM():CLR():Draw(P) x=eye(0):y=e!L}ye(1):z=eye(2) ELSEIF key<255 THEN EXIT FI eye(0)==+jx(st):eye(1)==-jy(st)OD eye(0)=x:eye(1)=y:eye(2)=z:Ueye()RETURNP!M}ROC JoyC():INT x,yIF cnow=0 THEN Kolor(1) FIx=cx:y=cy:Dit(x,y)DO st=Stick(0):Ucen(x,y):Dit(x,y) IF key=33 THEN key=255 !N} cx=x:cy=y:CLR():Draw(P) ELSEIF key<255 THEN EXIT FI x==+jx(st):y==+jy(st):Dit(x,y)OD Ucen(cx,cy):RETURNEN key=255 q32000 REM TYPO II BY ANDY BARTON32015 REM TURBO TYPO REV. BY J.D. McLAUGHLIN32016 REM (c) 1985, ANTIC PUBLISHING32025 DIM %P}B$(75)32026 B$="hhhhhϩ˅б̅m `"32150 ANS=USR(ADR(B$),ADR(LINE$),LEN%Q}(LINE$)):ANS=PEEK(1789)+256*PEEK(1790)+65536*PEEK(1791)m `"32150 ANS=USR(ADR(B$),ADR(LINE$),LEN$86B &&CREATE LINE 32026 FOR TURBO TYPOBY J.D. McLAUGHLIN (c) 19)S}85, ANTIC PUBLISHING( +22#-@@2( 32026 B$=>:@4,<Af@F-@@q)T}"P (>:,Z AfdE-@@(CONT0-@@BAB@E&n8AB)U}@5(LINE 32026 HAS BEEN CREATED8x]]169,1,133,203,104,104,133,205,104,133,204,104,104,133,207,169,0,141,253,6,141)V},254,6,141[[255,6,160,0,165,203,133,208,177,204,133,206,24,165,206,109,253,6,141,253,6,144,11,238WW254,6,173,254,6,20)W}8,3,238,255,6,198,208,208,230,200,230,203,198,207,208,215,96,34 D:TURBO2.BAShhhhhϩ8WW254,6,173,254,6,20(d05 ; TURBO TYPO06 ; BY J.D. McLAUGHLIN07 ; (c) 1985, ANTIC PUBLISHING10 *= $060020 BASIC1 = 1789 ;FIRST30 BAS-Y}IC2 = 1790 ;SECOND AND40 BASIC3 = 1791 ;THIRD BYTES OF ANS FROM BASIC PROGRAM50 LDA #160 STA $CB ;-Z}ESTABLISH COUNTER (TYPOII'S VARIABLE C)70 PLA ;DISCARD #OF BYTES PASSED80 PLA 90 STA $CD ;HI-[} BYTE OF ADR(LINE$)0100 PLA 0110 STA $CC ;LO BYTE OF ADR(LINE$)0120 PLA ;BASIC ALWAYS PASSES A 0 H-\}ERE AS HI BYTE OF LEN(LINE$)0130 PLA 0140 STA $CF ;LO BYTE OF LEN(LINE$)0150 LDA #00160 STA BASIC1 ;-]}ZERO ALL0170 STA BASIC2 ;BYTES OF0180 STA BASIC3 ;ANS0190 LDY #0 ;SET COUNTER0200 LOOPA LDA $CB ;GET-^} VALUE OF 'C'0210 STA $D0 ;USE AS A COUNTER0220 LDA ($CC),Y ;GET CHARACTER FROM LINE$0230 STA $CE0240 LOO-_}PB CLC ;LOOPB 'MULTIPLIES' CHAR. BY 'C'0250 LDA $CE0260 ADC BASIC10270 STA BASIC10280 BCC ONW0290 -`} INC BASIC20300 LDA BASIC20310 BNE ONW0320 INC BASIC30330 ONW DEC $D00340 BNE LOOPB0350 INY 036-a}0 INC $CB ;SAME AS C=C+10370 DEC $CF ;REDUCE NUMBER OF CHAR.S REMAINING0380 BNE LOOPA ;ALL CHARS. PRO-b}CESSED?0390 RTS ;YES,THEN RETURN$CF ;REDUCE NUMBER OF CHAR.S REMAINING0380 BNE LOOPA ;ALL CHARS. PRO,.^_"#TOPBOTFRETSTRINGPATTERNTONESTONITNACCHORLINFRETONTIMONTHREFIVSEMINTHRE  1d}< Z AxA@@@A& @i @i @ B@@@S1e}A@@v@d@S@GUITAR TUTORBY FRANK IMBURGIO (c) 1985, ANTIC PUBLISHING1f}.@.@@K: xG;@0,;@0,;@0,;@0,9@,9@c,[-1g}@cj68,-@2n x @ A A(}((# @P- A7 A`A @--@@1q}UB%DOS SYSB*)DUP SYSB0SPALETTE ASMB7PALETTE BASBPENCILS BASBPIANO LGOB PRINTIO ACTBQROUNDUP BASB?STICK3D ACTBOTURBO1 LSTBRTURBO2 BASB XTURBO3 ASMBFcTUTOR BASB UPDATES ACTBVIEW3D ACTBVIEW3D EXE")67<,.>:,- ++32,32,17,18,23,18,23,18,23,18,23,18,5--@@")67<,.>:,- ++32,32,21r}6,18,24,18,24,18,24,18,24,18,3--@@")67<,.>:,- ''32,1,18,19,18,19,18,19,18,19,18,4(--@1s}@")67<,.>:,- )2232,32,124,32,124,32,124,32,124,32,124,32,124-$20(-@ ($(1t}((, 0(<)-@  A) AA7-@@ 7(Р TO PLAY NUMBERED CHORDSF.-@@1u}!.(Ӡ TO SOUND NOTESKR-@@".(à for new chord.RUSE INVERSE VIDEO FOR P,S,AND ESCc$d 1v}Af'AQ@'AR@n((( Pick a note to build a chord on.x6 (C(D(E(F!(G'(A1w}-(B0(6(?6)@& @e)!@q,(6 A0 6-6-J A9(You have picked >:,1x} as your tonic.<(J( Now pick:( 1)Natural(2)Flat(3)Sharp(/ AE/ @)!@AE1y}' B"@'6-%@"@6-%@ A(Pick a chord pattern6(1)Maj1z}or(2)Minor%(3)7th3( 4)min 7th6( A!! @)!@A6-&@ B$1{} A6-6-%AR@#I-@@)-@@-"9(>:, = I6-@1|}(-@"$68,-( ,-@%6-%@,#8,-@6-@@"1}}'(>:,+ /"6(>:, X"@6-@rY"@y6-@sZ"@t6-@f["@1~}6-@u\"@6-@v]"@w6-@i^"@6-@x_"@6-@g1}`"@6-@p%%6-++&@e,$A,%B$ (>:,"@(b"@(#1}"@(min"@(7"@(min7( $V-@@@1}3-@ %@L(>:+'@,%Av,P V6-+6-@+-@@@-@#(>:8,,1}(>:8%@,,66-8%@, A,6-%@0 66-:-@#(Ԡ$:USE INVERSE VIDEO F1}OR REST< (} ((($AR'(9A<$-@A $ 6-)@1}>:,4S A0#!@H* @V# A1"@A2@'A`"$1,19,19,19,19,1}41,19,19,19,20,41,19,20,20,19,41,19,20,20,20,420,20,20,20,20,201,19,19,19,20,41,20,20,19,1}19,420,19,19,19,19,201,19,19,19,19,201,20,19,19,19,420,19,19,19,19,41,19,19,20,19,201,19,1}19,19,20,41,19,19,20,19,41,19,20,19,20,41,19,20,19,19,41,20,19,20,19,41,19,19,20,19,41,191},19,19,20,20 ??ABOVE SETS UP ALL NEEDED SHAPES FOR FINGER DOTS. SOUND NOTES INDIVIDUALLY 4#%@#-1}@'"068,-4  2(28,@@2 AU R"@)"@>2@8@1},@@H AUR A0@ 2(2@8@,@@2 AU 2(2@8@,@@1}2 AU H"@)"@>2@8@,@@H A0` ==2@P:+8,'@,&?1}P,@@ N AU AU+-@G2K N$ PUT CHORDS INTO MEM1}ORY& '6-+&@I,$@'#%@+ )"68,-)68%@,-0 4")"@*68%@,-1}4 A105 68%@,-: 4"@)"@*68%@,-4 A1@? ))68%@,-P:+'@,&?P,D1} +68%@,-+68%@,-@2I &"@&68%@,-@N &"@&68%@,-@5S 681}%@,-X  A$ PLAY CHORDS IN MEMORY \ A A)AR@C(à TO STOP PLAYING\1}INVERSE VIDEO FOR ESC &6-F:Ad,&"@(A20 "@16- "@06-@ "@&1}6-@ "@$6-@ "@)6-@ "@'6-@ "@Q6-@1} "@S6-@ !! )!@A2 46-$@ 8,"@2* A204 A2 B-1}@42+8%,,@@8 B A2 :-@327 :$jJiiEXPLAIN T1}HE FOLLOWING DATA :FIRST SIX:PRINT OUT Xs AND Os ON TOP :i.e.;32 IS SPACE,88 IS X, 79 IS OoJiiTHE NEXT SIX ARE DATA LINES T1}O READ SHAPES FOR EACH CHORD PATTERN.i.e.;2000 IS A FRET W/ NO FINGERSzJDDTHE LAST LINES OF DATA IN A SERIES (LINES 200991},20199, etc.)|J88ARE SOUND NUMBERS:TONIC,THIRD,SEVENTH,MINOR THIRD. N5588,79,32,32,32,79,2000,2003,2000,2000,2000,2000!N1}5588,79,32,32,32,79,2001,2002,2000,2000,2000,2000"N5588,79,32,79,32,79,2000,2014,2000,2000,2000,2000#N5588,79,32,79,32,71}9,2001,2015,2000,2000,2000,2000NmmA - IN THIS ORDER:20000=MAJ:20001=MIN:20002=7th:20003=min7. All others (B,Bb, etc) are1} in same order.N144,114,96,81,121N5588,32,32,32,32,32,2000,2004,2000,2003,2000,2000N5588,32,32,32,32,32,2000,2004,1}2005,2002,2000,2000N5588,32,32,32,32,32,2000,2004,2000,2014,2000,2000N5588,32,32,32,32,32,2000,2004,2005,2015,2000,20001}NBN128,102,85,72,108N5588,32,32,79,32,79,2001,2015,2009,2000,2000,2000N5588,32,32,32,32,32,2000,2000,2004,2001}5,2002,2000N5588,32,32,32,32,79,2001,2015,2016,2000,2000,2000N5588,32,32,32,32,32,2000,2000,2004,2005,2015,2000JOC1}KO121,96,81,68,102LO5588,88,79,32,32,32,2000,2011,2012,2000,2000,2000MO5588,88,79,32,32,32,2008,2017,2005,2000,2000,201}00NO5588,88,79,32,32,32,2012,2011,2000,2000,2000,2000OO5588,88,79,32,32,32,2008,2017,2005,2000,2000,2000ODO108,1}85,72,61,91O5579,32,32,32,79,79,2017,2006,2000,2000,2000,2000O5579,32,32,79,79,79,2000,2006,2000,2000,2000,2000O55791},32,79,32,79,79,2017,2009,2000,2000,2000,2000O5579,32,79,79,79,79,2000,2009,2000,2000,2000,2000PEP96,76,64,53,811}P5588,88,32,32,32,32,2018,2017,2015,2000,2000,2000P5532,32,32,32,32,32,2004,2000,2006,2000,2000,2000P5588,88,32,32,31}2,32,2004,2017,2009,2000,2000,2000P5532,32,32,32,32,32,2004,2000,2009,2000,2000,2000vPFwP91,72,60,50,76xP5532,321},79,79,79,32,2000,2009,2007,2000,2000,2000yP5532,32,32,32,32,32,2000,2000,2004,2000,2006,2000zP5532,32,79,79,79,32,2008,21}009,2010,2000,2000,2000{P5532,32,32,32,32,32,2000,2000,2004,2000,2009,2000PGP162,128,108,91,136P5532,32,32,32,1}32,32,2000,2000,2000,2004,2017,2006P5532,32,32,32,32,32,2000,2000,2000,2004,2000,2006P5588,88,32,32,32,32,2003,2008,2001}0,2000,2000,2000P5532,32,32,32,32,32,2000,2000,2000,2004,2000,2009>QAb?Q153,121,102,85,120@Q5588,32,32,32,32,32,1}2004,2000,2003,2000,2000,2000AQ5588,32,32,32,32,32,2004,2005,2002,2000,2000,2000BQ5588,32,32,32,32,32,2004,2000,2014,20001},2000,2000CQ5588,32,32,32,32,32,2004,2005,2015,2000,2000,2000QBbQ136,108,91,76,114Q))C FLAT IS REFERRED TO B 1} NATURALRC FLAT NOTES ARE BR5588,32,32,32,32,32,2000,2000,2000,2004,2000,2003 R5588,32,32,32,32,32,2000,2000,20001},2004,2005,2002 R5588,32,32,32,32,32,2000,2000,2000,2004,2000,2014 R5588,32,32,32,32,32,2000,2000,2000,2004,2005,2015jR1}DbkR114,91,76,64,96lR5588,32,32,32,32,32,2000,2000,2004,2005,2015,2009mR5588,88,32,32,32,32,2000,2008,2017,2014,2001}0,2000nR5588,88,32,32,32,32,2004,2005,2011,2000,2000,2000oR5588,88,32,32,32,32,2015,2018,2017,2000,2000,2000REbR1}102,85,68,57,91RF FLAT IS REFERRED TO E3SF FLAT NOTES ARE E4S5532,32,32,32,32,32,2000,2004,2017,2006,2000,20005S1}5532,32,32,32,32,32,2000,2004,2000,2006,2000,20006S5532,32,32,32,32,32,2000,2004,2017,2009,2000,20007S5532,32,32,32,32,31}2,2000,2004,2000,2009,2000,2000SGbS173,136,114,96,144SA SHARP IS B FLATSB SHARP IS C`TC SHARP IS D FL1}ATTD SHARP IS E FLAT(UE SHARP IS FUF SHARP IS G FLATUG SHARP IS A FLAT D1:TUTOR.BASC SHARP IS D FL0n; UPDATES (LISTING 5)PROC Uview():Position(22,15)vflag==+1:IF vflag>1 THEN vflag=0 FIIF vflag=0 THEN Print("")5}ELSE Print("") FI:RETURNPROC Ueye():BYTE i:Position(5,17)FOR i=0 TO 2 DO IF eye(i)<-10 THEN eye(i)=-10 ELS5}EIF eye(i)>10 THEN eye(i)=10 FI PrintI(eye(i)):Put(' )OD Position(24,17)IF eye(3)>200 THEN eye(3)=200ELSEIF eye(3)<10 TH5}EN eye(3)=10 FIPrintI(eye(3)):Put(' ):RETURNPROC Umag():Position(37,17):mag==+1IF mag>9 THEN mag=1 FI:PrintI(mag):RETURN5}PROC Urot():Position(12,18):PrintI(rx)Put(' ):PrintI(ry):Put(' )PrintI(rz):Pb(2)FixR():FixM():CLR():Draw(P):RETURNPROC 5}Uri():Position(35,18) PrintI(ri):Put(' ):RETURNPROC Ucen(INT x,y):Position(8,19)PrintI(x):Put(' )PrintI(y):Put(' ):RETUR5}NPROC Ufoc(INT ARRAY v):BYTE iPosition(24,19)FOR i=0 TO 2 DO PrintI(v(i)):Put(' ) ODRETURNPROC Upt(INT n):Position(5,25}2):PrintI(n)Put(' ):IF n<100 THEN Put(' ) FIPosition(30,22):Pb(8):RETURNPROC Ucxyz(INT ARRAY pt):BYTE iPosition(15,22):P5}rintB(pt(3) & 3)IF pt(3)<16 THEN Print(" LineTo ")ELSE Print(" Plot ") FIFOR i=0 TO 2 DO PrintI(pt(i)):Put(' ) ODRETU5}RNPROC Ugr():Position(1,15)IF gflag=7 THEN gflag=8:cx==+80:CP=C8 Print("xox GRAPHICS 8 xox"):Gr8(dl1)ELSE gflag=7:cx==-5}80:CP=C7 Print("x GRAPHICS 7PLUS x"):Gr7(dl1)FI Ucen(cx,cy)CPon():CLR():Draw(P):RETURNPROC UReset():BYTE iPosition(5,15}7):Pb(12)Position(12,18):Pb(12)Position(8,19):Pb(9)Position(24,19):Pb(14)FOR i=1 TO 8 DO P(i)=Q(i) ODmag=3:rx=0:ry=0:rz=5}0:ri=30:FixE()Ueye():Ufoc(foc):Umag():Urot():Uri()cy=90:cx=160:gflag=8:Ugr():RETURN 8 DO P(i)=Q(i) ODmag=3:rx=0:ry=0:rz=4W; VIEW3D (LISTING 10); by Paul Chabot ; ANTIC MagazineINCLUDE "D:GR78M.ACT"INCLUDE "D:MISC1.ACT"INCLUDE "D:COLO9}RS.ACT"INCLUDE "D:DRAW3D.ACT"INCLUDE "D:UPDATES.ACT"INCLUDE "D:STICK3D.ACT"INCLUDE "D:DISKIO.ACT"INCLUDE "D:PRINTIO.ACT"9}INCLUDE "D:MENU3D.ACT"PROC Setup():BYTE iSetTrig():Setjxjy():SetDfault():FixP(Q)Gr78ON():dl1=dlist:sa1=sa:ram==-33Graph9}ics(0):ram==+33:dl2=dlist:cur=1CMon():Menu():Dir():UReset():dlist=dl1mes^=lin20RETURNPROC Main():BYTE k:Setup()DO WHILE9} key=255 DO OD k=key:key=255 dlist=dl1:CPon() IF k=31 THEN mes^=lin22 ;1 JoyD(1) ELSEIF k=30 THEN mes^=lin22 ;2 9} CLR():JoyD(0) ELSEIF k=26 THEN mes^=lin17 ;3 JoyE() ELSEIF k=24 THEN mes^=lin19 ;4 JoyF() ELSEIF k=29 THEN mes9}^=lin19 ;5 JoyC() ELSEIF k=50 THEN mes^=lin20 ;0 UReset() ELSEIF k=22 THEN mes^=lin18 ;X rx=(rx+ri+360) MOD 39}60:Urot() ELSEIF k=43 THEN mes^=lin18 ;Y ry=(ry+ri+360) MOD 360:Urot() ELSEIF k=23 THEN mes^=lin18 ;Z rz=(rz+ri+39}60) MOD 360:Urot() ELSEIF k=13 THEN mes^=lin18 ;I ri==+1:IF ri>45 THEN ri=45 FI:Uri() ELSEIF k=1 THEN mes^=lin18 ;J 9} ri==-1:IF ri<-45 THEN ri=-45 FI:Uri() ELSEIF k=18 THEN mes^=lin23 ;C FixCol() ELSEIF k=16 THEN mes^=lin15 ;V U9}view():CLR():Draw(P) ELSEIF k=37 THEN mes^=lin17 ;M Umag() ELSEIF k=58 THEN dlist=dl2 ;D CMon():Dir() ELSEIF k=9}0 THEN mes^=lin16 ;L LoadP():Ueye():Ufoc(foc):FixE() FixM():CLR():Draw(P):mes^=lin20 ELSEIF k=62 THEN mes^=lin16 ;S9} SaveP():mes^=lin20 ELSEIF k=61 THEN mes^=lin15 ;G Ugr() ELSEIF k=10 THEN mes^=lin16 ;P Prnt():mes^=lin20 E9}LSEIF k=33 THEN mes^=lin20 ;SPACE CLR():Draw(P) ELSE dlist=dl2:CMon() FIOD mes^=lin16 ;P Prnt():mes^=lin20 E8U$x (c)1983 Action Computer Services  B JKIHiDiELV`L=$=} =$ BLV`L$$l L$ &` Fj`8冨凪` $EӅӥ=} $`ʆǪƩ Ɛee` $ƦʆǢ &Ɛeǐ % %L$ $'&&&8儨児=}祂*L$&&*ń8&&L$ [%`hihiHHȱȱL$c !#3`=}L$JJJJ`H $h`Hȩh r$L% {$L% %$L% -$L% 3$H8=}`HhHh _&L% BHI V䅠L% L& =$L%Ԇ ؠPIPP`=} &P -$L% &L& &L& 'L&H- &8塪墨hL' 'L& &'L& &ȹP`=}텠8堨塪 &芨Oȩ-`PP &P棩 Ѥģ0-ģ6000:,80H =}& &ehe&eģ0ʥ 8堅塅`$ &&*i0:0i &Ʀ`¢ 护=}°ڱ%ȱ%E &L`(担CS R&L`(I 'L`(H (L`( &L`( &B V %NLMȑ=}` MLN%B VL%S:)E:)H L& ) ) & L&h)0I))L&[\ZUVT` @)))=}` G)L& :)L& @)L&) ` G)L& &%` 0d $ҥ `2)2=}ҩ`p`0)9*`@0)ӈJJJJ)`Ѕ`ȱ`` 5*ȥ`Hh=}ƣĢ`ƥĤ`Ѣ *`ȱѢĦ`膡`=}`ťƤe8夰L* Ƥ8`ŦeѠe桊L*PZ@=}O+@ W+ ~IF Lo+k+`EN mLz+ %s+`;Gm,L+ %+`gr()m, ELSEIF L+ %+M+L+K+J+ w++MJ+ +MK+L=}++ML+ +MM+L+`J+͏+K++0L,8+J+++K+++Ȍ+L1,8J+++K+++++L+͑+M++0La,8+L+=}++M+++Ȍ+L~,8L+++M+++++K++J++M++L+++͓+++0L-+m+++m++8++++=}++8+++++++Ȍ++-+--͡+-+L-$+m+++m++++0L@-+m+++m++Lf-+m=}+++m+++m+++m++++++ w+++L,L`.+m+++m++8++++++8++++++=}+Ȍ++-+--͡+-+L`. +m+++m++++0L.+m+++m++LD.+m+++m+++m+++m=}++++++ w+++L-+K++J++M++L+`-L. )e+f+YX1{.0z.Ȍy.y.L.y. me+=}*(mf+8y. me+*(mf+i(ȱiy.L.8z.z.{.{.z.{.pz.i{.iPz.i=}{.iy.y.L/z.my.{.iy.iz.e{.iy.LI/z.iDž{.iz.iȅ{.iBz.iɍi=}+{.ij+z.i̅{.i8{.1z.0` L///)//N+//L108/a+eb+i////L/`=}/?80LA0 %202030020300Lc0`4050040500L0`3020 $6020)7040 me+50*(mf+=}d+c+c+m60d+i<0m70=0i1a+m70b+i`0[0L1 %0000000L"1`000=}000L>1`00 $00)00 me+0*(mf+d+c+c+m0d+ia+m0b+iQ`.L11=}1T+b+S+a+/n+/m+@0y+?0x+0+0+1i1iN1ic1iN1b͢1L/21m11i=}1L 2f1͢1LZ21m11i1L42`0L`2[2[2)N+[2Lz2[2\2\2L28\2a+eb+i[2=}[2\2L2`mo22L2 %2220?ͱ220L2`220ͳ220L3`22 $22)22 =}me+2*(mf+d+c+c+m2d+i2m22i1a+m2b+i`[3L3 %z3z3{30?z3{=}30L3`|3}30|3}30L3`{3z3 $~3z3)3|3 me+}3*(mf+d+c+c+m~3d+ia+m3b+i=}Q`*L)4$4#4`+b+_+a+_2n+^2m+2y+2x+3+3+#4i$4iO#4ic$4iO%4b%4L4=}#4m%4$4i%4L4f%4%4L4#4m%4$4i%4L4`4=}5 #5\L=5959595L595 m4*(m58ȱ95 m!5*(m"58=}ȱ95LE5`yL55758558575 R&`L5 %55555555555L 6 55855=}5555L5`e+[z5x5z5y5{50LE6{5y5z5x5dx5y50L6dy5x5 ez5e{5y5L6 %|6|=}6Z|6LA7|6|6 &%- [%}6~6|6~6}6 &% [%}6~6|6d &%8=}}6}6~6~6-~6}6 [%}6~6}6|6!6|6L6`x5LI7 %B7hC7B7 %B7C7B7[C70L7E7B7!6D7L=} 8B7ɵC70L78B7C7E7!6D7L 8B7C70L78B7鴅C78!6D7E7L 88hB7C78!6D7=}E7E7D7`L8 %8h88 %888[80Li88Z888!68L88ɵ80L888Z=}88!688L8880L88888!688L88888!6888`iL8=}88880L!98888888`L39-9,9,9 -9LM9`-9,9 8-9,9/9.9.9/9/9.9=}/9.9 &%m.9m/9,9Ŭ-90L9/9.9`Lh9eL9L9 %99999ȱ &%99 =}m9*(m9 m9*(m9ȱ &%9e99e9 m9*(m9 m9*(m9=}ȱ &%9e99e999`L: %::: m:*(m: m:*(m:ȱ=} &%:: m:*(m: m:*(m:ȱȱ &%8媅ȱ嫑 m:*(m=}: m:*(m:::ȱȱ &% m:*(m::: m:*(m:ȱȱ=} &%8媅ȱ嫑 m:*(m::: m:*(m:ȱȱ &% m:=}*(m: m:*(m:::ȱȱ &%8媅ȱ嫑`,<*(mL<<<<<>} 8<< m<*(m< 8<<<<<<0L?=<<<< m<*(m< >}8<<<<<<0L=<<<d<< [%e<e<<<;<<L>< m>}<<*(m<<< [%<ж<<<< 9<<<< 09<>}<<<;<<L>< m<<*(m<< m<<*(m< &%<< [%<Ќ>}<`e+4>4>4‚P?L ?N+?N+ :)?IL1??N+N+ l+U+m?V+i?N+ &>} :)?JJJJ & & :)?) & &`=L?N+L??L?8N+?U+m?V+iJJJJ??͌?L?>}? :)? & &U+m?V+i? U+m?V+i)e>m?>iU+m?V+i`LJ@N+L>}Z@E@Lc@8N+E@U+mE@V+i)F@F@iF@F@L@F@ :)F@ & &U+mE@V+iU+mE@V+i)>}mF@>mE@>iU+mE@V+i`L@@@LRA>m@>i@>U+m@V+i>m@>i> }@LA`LWASASALA>mSA>iSA>SAL\A`LAA͇ALAU+mAV+i>mA>iALA`> }LAAALBU+mAV+i?mA?iALA`L B ?ILBL BIL/B ?LoBI9LDB ?LoB> }LWB G@LoBI:LlB @LoBLrBL B`*(mPZȱ ma;*(,yR yyx d> }22(  222(2( 2 2> }22((B(m^;LxCpCoCRBB H*oCpC &%isCi>}tCrCqCsCCtCCCqCCrCL$DqC mBrC*(mBqC moCrC*(mpCqCгrCLCBiBBiB>}Bi BBiB`D me;LVDHDGD mGD*(mHDLDKD mGD*(mHDHHBB 8hhLDKD &>}% [% mGD*(mHDHHBB F7hhLDKD &% [%>}GDHDȱJDID mGD*(mHDȱNDMDBB F7PDODBB 8RDQDGDHDRDQDJDID &%>}PDODNDMD &%8媅嫅 [% mGD*(mHDPDODJDID &%RDQDND>}MD &%ee [%GDHDȱJDID mGD*(mHDȱLDKDBB F7PDOD>}BB 8RDQDGDHDRDQDJDID &%PDODLDKD &%8媅嫠 mGD*(mHDPDOD>}JDID &%RDQDLDKD &%eeGDHDȱ [% mGD*(mHD>}ȱ [%HDGD <`xxxLGGG mG*(mGȑ mG*(mGȑ>}GG SDGG mG*(mGȑ mG*(mGȑGG SDGGGGG>}G :GG }mGȱ mB*(mBGGȱ mB*(mB mG*(mGȱ mB*(mB >}mG*(mGȱ mB*(mBGGȱ mB*(mB mG*(mGȱ mB*>}(mB mG*(mGȱ`L=J mB*(mBBB mB*(mB mB*(mBȱ>} mB*(mB mB*(mBȱBi Bi < mB*(mBLSK mB*(mB>} mB*(mBȑ mB*(mBȑLIN mB*(mBLK mB*(mB>}LK mB*(mB mB*(mBȑ mB*(mBȑLIN mB*(mB mB>}*(mB8񬅪񬑮 mB*(mB mB*(mB8񬅪񬑮 mB*(mB mB*(mB> } mB*(mBȱȱ &% mB*(mB mB*(mB mB*(mBȱȱ >!}&%eȱe mB*(mB mB*(mBȱȱ [%BiBi < >"}mB*(mBȱ0LIN mB*(mB mB*(mB8񬅪񬑮 mB*(mB mB*(mB>#}8񬅪񬑮 mB*(mB mB*(mB8񬅪񬑮BiBiBi BiBB >$}:BB <`LNBBHHBBBB 9hh mB*(mBHHBiBiBB 9hh>%} mB*(mBHHBiBiBB 9hh mB*(mBHHBiBiBi>&}Bi 9hh mB*(mBHHBi BiBB 9hh mB*(mB>'}HHBi BiBiBi 9hhBB <BiBi <BiBiBi Bi>(}BB :Bi Bi <`rLPPPxLPPPP͐PLQP mP*(mPP mP*(mPP mB>)}*(mB8񪅨ȱ񪑮PLPsBILQBBPP 9 [%PPBiBiPP 9>*} [%PPPPzByB &% [%{BeuB|BevBPPzByB &% [%8}B>+}wB~B孍xBLS mB*(mBPPPPzByB &% [%PPBBPP 9 >,}[%PPBiBiPP 9 [%PPBi BiPP 9 [%PP8PPPPP>-}PPP0LRPPPP [%PPPPPP &%PP [%uBvBPPPP &%>.}PP [%wBxBuBm{BuBvBm|BvB8}BwBwB~BxBxB`LSBB H*`1;0LSSSSi SSiSSS>/}SSSͱSLTSiSSiSSS P mS*(mS) l+ mS*(mSȱ0L`TxBwB>0}vBuB +LTxBwBvBuB w+vBK+uBJ+xBM+wBL+SLS`LT :)sBsBLTsBsBLTLT T R<LT>1} 젢T R&`LT :)TTLUT mB*(mBȱ0LFUT mB*(mBLUT mB>2}*(mB Ѯ0LUT mB*(mB T mB*(mB ' &TLT :) mB>3}*(mBȠѮ0LV mB*(mBȈL@V mB*(mB ȱ0L@V mB*(mB  mB>4}*(mB ' &`LnV% :)yBzB yBzB0LVzBȌyBzByB '`LV :)BB ' &BB ' >5} &BB ' 5 G N SBB S`LV# :)BB ' &`L W %W :)WW ' &WW ' &`mL>W9W8>6}W :):W:WLW:W m8W*(m9W ' &:WLRW`OLWWW :)WW ' &WdW0LW>7} & :) 5`-LWWW :) mW*(mW) & mW*(mWȱ0LBXL8X LineTo X. >8}R&LVXLOX Plot XE R&WWLXW mW*(mW ' &WL[X`LX :)tBILXtB{BiP{>9}B|Bi|B>>>>LXxox GRAPHICS 8 xoxX R&BB &4L@YtB8{BP{B|B|B>>>>L0Yx GRAPHICS 7PLUS xY R&>:}BB 1~B}B|B{B W A SBB S`LeY :) 5 :) 5 :) 5 :) 5aYaYLYaY m>;}B*(mBaY mmC*(mnCaYLYzByBBBBBBBBB :J TBB ;W kV V V~BZ}B|B><}{BtB X`*(m-LFZ=Z=}eBZ=Z>}BwBvBuB +4L[ mAZ*(mBZ4 m!5*(m"58񬅪ȱ񬑮BZAZ PBZAZ WxBwBvBuB +L[>?} *4xBwBvBuB +L]?Z?ZI!L\@}LQ\xBwBvBuB w+vBK+uBJ+xBM+wBL+@ZIL\>Z>ZL\m>Z mAZ*(mBZ>Z mAZ*(mBZ>A}>ZL`\AZiAZBZiBZ mAZ*(mBZ) l+BZAZ PBZAZ WL]?ZI L-] mAZ*(mBZIȱI>B}BZAZ WL]?ZIL] ? mAZ*(mBZ mAZ*(mBZ)ȱ)mN+iBZAZ WL]?ZL4^4>C}L ^AZBZ4 m4*(m5qȱq mAZ*(mBZ4 m!5*(m"58񬅪ȱ񬑮BZAZ PB>D}ZAZ WxBwBvBuB +L[BB8E}*(mBU^Lo^W^V^ PxBwBvBuB +W^V^ ;W *Lh_ *4xBwBvBuB +4LT_ mV^*>F}(mW^4 m!5*(m"58񬅪ȱ񬑮W^V^ PW^V^ ;WxBwBvBuB +L^ *4xBwBvBuB +I!L_>G}U^U^L_U^ mB*(mBU^ mV^*(mW^U^L_ SBB SW^V^ PL_L_L`4L`V^>H}W^4 m4*(m5qȱq mV^*(mW^4 m!5*(m"58񬅪ȱ񬑮W^V^ PW^V^ ;Wx>I}BwBvBuB +L^BB ;W`̠ϠL`BB`` mB*(mBȱ`` mB*(mBȱ`` >J}*4 T *La *4 mB*(mB4 m!5*(m"58񬅪ȱ񬑮 mB*(mB4 m4*>K}(m5qȱq TLaI!Lb :J N SBB SBB`` mB*(mBȱ`` m>L}B*(mBȱ``L)bL)bLbBB4 m4*(m5qȱq mB*(mB4 m!5*(>M}m"58񬅪ȱ񬑮LaBB`` mB*(mB`ȑ` mB*(mB`ȑ` T` LLbN>N}+Lc l+|Bb{Bb~Bb}Bbbbbb + *4bbbb Wbbbb +I!Lcb|Bb{B>O}b~Bb}B SBB SLcLcLd4 m4*(m5bqbbqb4 m!5*(m"5bqbbqbbb>P}bb +L/c~B}B|B{B W`V^c Ġ$d:L5d1d :)LLdҠdD R&1d &di+j+BB>Q} :)1d &ILdLd`y cLd %ddbdedddidh V`V^΢c Ld V^  sLdR>R} :)d dLe 5 &dLd :)d L&L1eD:*.V3De) &ddLed˩ z&dILgeLed>S} ˢd *d R&dLed &Led &dLGe :)d R& L&R`LfV^ iLeeeLeD: >T}eٮee * :) 5 :)e s&eie eL.f ee îee +LMf.V3DfeHee +>U} :)ee R&`cc Lf :)Lf Ӡ֠Š f R&d e :)Lf [S]-Šf R&ILfLfxfxfI>L>V}f :)S &0d/d R&`$|f${f4d$3d$dBBȱ &%iyfizf L&d &>W}dL{g L&|f${f$`zfyfBB d>> d L& :)Lg Ġ g R&|f${f$ d`fiL>X}g :)Lg ̠ϠĠ g R&d e :)Lh [L]-Ġh R&IL.hL!hggLYh :)L &0d/d R&`>Y}$g$g4d$3d$d L&d &dLh L&g$g$`BB dBB &%>Z}igigBiBigg d>> d L& :)L=i Ġ i1 R&g$g$ TA >[}A :) 5`c LjifieiLui)is Y&eifi &'Li i Y& mei*(mfi &'>\}Li iԩ Y& mei*(mfi &'L j:j  Y& mei*(mfi &'LAj) j> Y&`>]}V^ > lLrj3_jKejLUV^j^ Lj j| lLj filename>>j lLj#eye >^} dist. magj lL k"PreRotated ri=j lL,kCenter FocuskL2k :)LJk PD>_} k> R&IL^kLQkMjMjI LkMjI:Lk :)P &0d/d R&`$Qj$Pj4d$3d$d L&LkP:>`}k &dLk L&Qj$Pj$`7585 8575jR *djR *L#l l! F&jR F&dLQl >a}L&Qj$Pj$`MjI L mcjidjidjcj F&BmjBljnjKj'KjLmmKjNjiOjLjLjLlljm>b}NjmjmOjLjnj8Nj(NjOjOjLjLlkjjj Y&jn F&KjLlLmcjidjidjcj F&L1meye=m, Y&>c}BB giLNm focus=mF Y&BB giLem mc F&KjLjBi NjBiOjKjBBKjȱ0LmLmLjNjiNjOji>d}OjOjNj giLjLmLj &LmLm mߩ F& :)Ln Ġ m R&Qj$Pj$ L&`L;L!n8BnBnn>e}1n01B0Bn nLnnmnnimnneninLOnnini0nini0>f}niniGnininini0ninininininini>g}nininininini nini#nin)ȄRLo v i e w 3 D o R&L>h}oo ?&Lo Paul Chabot 1985o ?&Lp% G Gr7/8٠o ?&L:pX I>i}nc rx V View p$ ?&LZpY Inc ry M Mag. pD ?&LzpZ Inc rz C Colorpd ?&LpI Inc riɠϠp ?&LpJ>j} Dec ri D L S P p ?&Lp򠠠p ?&Lp1 ADD Points/Lines p ?&Lq2 EDIT Points/Linesq ?&L:q>k}3 Change EYE/dist. q$ ?&LZq4 Change FOCUS qD ?&Lzq5 Change CENTER qd ?&Lq̠󠠢q ?&>l}Lqx GRAPHICS 7PLUS x q R&Lq q ?&Lq filename>>q ?&L$r#eye dist. >m} magr ?&LQr"PreRotated ri=r. ?&LrrCenter Focusr[ ?&Lr%ݠ堠ݠ>n}r| ?&Lr" Ҡ [any key] - MENUr ?&Lr pt# colorr ?&Ls& àolor Ƞue ̠um Ġefault>o}r R&XiXBYiBXiBYiBXiBYiBXiЍBYiBXiBYiBXi BYiBXiHBYiBXipBYi>p}BXiBYiB`Ls 6 :5 TAnCmC uC |.1B0BYBXB8j!j )ji!j1B0B A n d bYB1B0>q}i+j+BB`L.t sIL>tL1t*tB1B0 A*tILti+j+BB CZLx*tILti>r}+j+BB S CZLx*tILti+j+BB `Lx*tILti+j+BB Z^Lx*tIL&ui+>s}j+BB bLx*tI2LMui+j+BB bYLx*tILui+j+BBBmBBmBihi>t}h %BB VLx*tI+Lvi+j+BBBmBBmBihih %BB VLx>u}*tILavi+j+BBBmBBmBihih %BB VLx*tI Lvi+j+BB>v}BB-ͅBB0LvB-B VLx*tILvi+j+BB8BBBBBӭB0LvBӍB VLx*tIL>w}wi+j+BB BLx*tILRwi+j+BB T SBB SLx*tI%Lywi+j+BB kVLx*tI>x}:LwB1B0 A dLx*tLwi+j+BB g TBB ;W :J N SBB Si+j+BBLx*tI>L>y}0xi+j+BB }fi+j+BBLx*tI=LWxi+j+BB XLx*tI Lxi+j+BB>z} /ki+j+BBLx*tI!Lxi+j+BB SBB SLxB1B0 AL1t`+ti+j+BB<g