G@L|}6CD l0C)HCC WhL/h `CmCDiD`  R@WG1  Y0@R !L` D  C D     G)16CS S)  C)D1 p p 0 C9DI pCDL~CiCDiD`G D  C D     )16CS S)  C)D1 p p }G0 C9DI pCDL~CiCDiD` DD˙` d J)L !}GD L(( LL()  L| L( S LH 0p n  }G CY?  q  L L  ` )}G `A! d߰")-݆ "  $G@LLL&0") $G% } GH0 3S8`G ȱG ȱG   Gȭ Gȭ GG}GHiH8(()) G$H% `(0 } G)8` d)L ݆ & LGȘ ݆LL d  ! LL d)N>Q  HH) } G  hyhyB q L> Lm JJ  Ln*` dB%' } G8  H H` 1 { LL   !L     Hh SY?  q  1L } G  !? S   q 1 L   Ll  Lg E`L   !L)  q 1L}G) `L0AM݊L݉ ML  N݆LLLNLMLHG!@}G1F GȱGLLEEȩÑEȑEEȑE Ed E7EȩE  q}G L !,0,0SGɛ L 1 !L EHEh W G gLLSROTCES EERF }G G) *Gȩ GȽG GȌd q q G`  8   0G  `D}GCEDC0X:Ȣ Y ȱC* ? 0.. , 0%n ?A[ 0 : L`L  `, 0`Y}G`piH n0)բY? 08`0 }G  0$L GGȽG L `8L`L}G8`  05G)݁,G)ȱGȱGHh0})Hh` B! 8`8iiiLE`}GE8FEh( l0`ɃLL L8^~jj8jHi hEEEiEȱEiE` dTE}G H8EEȱEEȩEh J E8   . m  i`LI!)E1FR}G1LJ舩9GIH`LJJ`HGHh l`}G S gL   8 rii `дCDCG W  }C#C  Lq` X٨`DOS( ySYS IIIIIIIIIIIIIIIC`0 ߩ0}}~}C  %|+-3G||DDOS PVDOSDOS[ `SYS sx}~}C}nx$ ~}C CDOS SYS~}CV 0`BDELV !B }G`LVUQ   ]   TU J ]L!T  #      TU  } G L ? .  t`GBJ V~DEHI B V0dV!}!GQDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}"GDEL8HI   0 HI,0 0  9 .G VLO#}#G,0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI$}$G V0 0`B;DELV䌚 !B y`@ʆ v s? F0Ξ05: [ BDEHI%}%G VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}&GSTILL RUN DOS B;DE J V (` 9 V⪍ ઍ  -'}'GLLu DEHILV 9 .l 9 .l  `` s$B VBH(}(GI|DE V BLV nB,DE J V* \*` B V BLVDEHI BLVL)})G1u H232435; 1 ;  hh@2 e1i1LHҍ 00) 08 109hh@ Ҡ2e*}*C(1i1232435ޥ<<823Z\}}+G 3E:}DISK OPERATING SYSTEM II VERSION 2.0SCOPYRIGHT 1980 ATARIA. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDGE J. D,},CUPLICATE DISKC. COPY FILE ^K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILEb M. RUN AT ADDRESSF. LOCK F-}-CILE )N. CREATE MEM.SAVG. UNLOCK FILE- RO. DUPLICATE FILEH. WRITE DOS FILESW9!&x#!7&p))'&X*./)L''-؆莟.}.GR'S  vW DEHHI 1A#! @ ~0ɛ8A0.) ȅ 1 1i/}/Gil ! 1L NO SUCH ITEMSELECT ITEM OR FOR MENU! 0 .{z:*{}.|~ 1 0 00}0GJB 18L^%|DLl%DIRECTORY--SEARCH SPEC,LIST FILE? # 0 0 n&|D! 1L NOT A DISK FILE1}1GN !B 1L " 1 !BDED:}:1BJ|DE 1DEBH2}2GI 1 h0ߢ 0.  0?詛 1 ~0YЛ 1 "L<" "L 3}3CS BL1TYPE "Y" TO DELETE...DELETE FILE SPECCOPY--FROM, TO?OPTION NOT ALLOWEDjy COPYING---DN:}4}4C # 0|D .L$A#B#C#JB|DE 1BHIDD#E 1D#0: B5}5G 1L B#C#C#B# B 1N#$0SYS1}:e#D# d# D# .d#ȽD# d# 𩛙d#X# 1,A#6}6GPdD#ELO- A.BJdD#E 1 1HH 0hh|DL^%1}:e# Lt% e#dD#EL%7}7G 1 0 . .0% 1L WILD CARDS NOT ALLOWED IN DESTINATION 0 A.|K@C}>G//3Hu ξL/L DRIVE TO WRITE DOS FILES TO?WRITING NEW DOS FILESTYPE "Y" TO WRITE DOS TO DRIVE 1.?}?GD1:DOS.SYSERROR - NOT VERSION 2 FORMAT. , &* բ( 1L `[) 0NΞ 0 L1M) 1@}@G L BAD LOAD FILELOAD FROM WHAT FILE?) 0 0#B 1L WHAT FILE TO LOCK?) 0 0$B 1L WHAT FILE TO UNLOCK?DUA}AGP DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO USE PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV. h  ,B}BG  `)  <0 2 2 0  ,   ,,ޢ* 1L ,K* 1 ~0 0C}CGFINSERT BOTH DISKS, TYPE RETURNERROR - DRIVES INCOMPATIBLE., 1 ~038  , 1L D}DG, &*  Lz+, 0 , 1 ~0 + Y,0!,0 ,L+ ,mm  v,"ǭE}EG0Ξ, 05,Lt+L +,Hh` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNF}FGINSERT DESTINATION DISK,TYPE RETURN`    `L,8,0( rG}GGL1(`ߢ) 1* 1 ~0Y`hhL S SL1) 8`NAME OF FILE TO MOVE?- 0 0|DLtH}HG% A., 1 <0 0 .@L# .BJ 1  DEHIB V L1 ,5 1 <0,L. I}IG JB|,A#Pd#DE 1 HI BDEHHII 1 B 1 , 1 <0,0Lf- B VJ}JG,A#P, 1 <0 0L#L ߢ) 1* 1 ~0Yj383}mm ݭK}KG}`8}``|* ? ɛ,`|:(|/ 1L `DESTINATION CANT L}LGBE DOS.SYS0 0H{ $22Δ $28/L /) $2 Π $2 0 ξM}MGhAΞB,0 J 1 BޝDEHI,HDE 1HIHIDELSAVE-N}NGGIVE FILE,START,END(,INIT,RUN)O X0 1`BDEPHI V` X0H 1 L O}OG0 0 1L0`PLEASE TYPE 1 LETTER,0`hhL <0 1L0LA1 ,;ɛ7,"ɛ:ݦ1ݥP}PGA"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{Q}QC?NAME TOO LONG B VL ` L1I H1EӝDL1DEI|mDiE` V0`8d/8 i:"2!22 1R}RG L ERROR- 130ɛ+,' 20*.. өw2 1``2TOO MANY DIGITSINVALIDS}SG HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4uT}TG HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4uUCQABQbAWAICHBAUPPELOWENROWNCLMRCCLMROWCLMROWCLMCHNYZabijqryV}VC  $% ,- 45 <= DELMTU\]delmtu{W}WC5--* Initialize number of rows and columns6-@9D6-@HQ +@U""* Draw random array of cellsX}XC-@ -@G -* Select cell type%%6-P:H:MR,$@V[,%@_''A@APA`Y}YCAp @2O Au @6Qo Au @Up  Au @t Z}ZCL  * End of initial array* Select cell to remove;6-P:H:RZ,$,%@^h;6-P:H:nv,$,%@z&[}[C* * Select cell to duplicate';6-P:H:08,$,%@<F;6-P:H:LT,$,%@X0&&* Check that cells are differen\}\Cpt1 "*" A5*** Find contents of cell to duplicate6 1:* Remove cell; - @t @]}]C-@ :AP D* Replace cellE - @>>:,I&&* Continue to remove and replaceJ A^}^CQ D:SURVIVEbAWAICHBAUPPELOWENROWNCLMRCCLMROWCLMROWCLMCHNYZabijqry _C F ZFNANS%&,.@46=>EFMNVlANTIC 8/83--rAC" `}`CM)A6%- ( A@<Y-BcB'g168F:,,-8F:,,%@Qc5 GBBr@4guYAY@4yP0 a}aC0(@ >:@',>:@V&,>:@)*5,d4-;JAU4(@Nn-8, x @r A` b}bC9AU,;@!,e +'G((OPTION--> 1 TALK A BITJ(Q i2 PLAY BACK THE BITe(s 3 TALK A L c}cC OTC!( (4 PRINT SUMMARYC(2 M5 PRINT THE NUMBERS>(W i6 SAVE A TALK>(s 7 RESTORE d}dCA TALK% A %!@#A < A@$(}WHAT SAMPLE SPEED(<!AUA@??AA` e}eCA`A@A A!:AWA@>J'AP^9A@dbEAWA A( f}fC#,66-?:A6,$Ab@'56B7u@9O@ A`Tx-UfAU&68,-l* <BBr g}gC \@@ 1P:nAY7=x @`A\hWA!Abp3A@dtEA h}hC ;WAA(|66-?:A6,$Ab@?M6B7u@Qh A`}#@lp@tv| i}iC P:P(@>:@' ,>:@V$+,>:@)/L,d-BcB'gy(@PhF:, } @l A`W j}jC A@'A .9A@d2EAWA A(6-?:A6, A`(GIVE FILE k}kC NAME4 A*@"&@*,2M4 A`=AYSn)-BcB'g9*@rF:,= 0 l}lC*@  AY@4W* A`D(GIVE FILE NAMEX4 A*@[_@cek4 A@l@ m}mC AY*)-BcB'g6)@.D<@ *@HV AY@4Z* A`KK104,169,8,141,31,20 n}nG8,173,31,208,41,1,208,249,160,255,162,255,32,149,6II136,208,248,169,8,141,31,208,166,208,224,0,208,3,76,181,6,169,0,141 o}oGKK0,212,141,14,212,141,10,212,141,10,212,166,207,32,149,6,173,4,210,162KK19,142,15,210,162,23,142,10,212,142,15,210,142 p}pG,11,210,174,243,6,224,0JJ208,22,41,240,141,242,6,106,106,106,106,41,15,9,16,141,1,210,238,243CC6,76,45,6,106,106,106, q}qG106,41,15,9,16,141,1,210,41,15,13,242,6 LL206,243,6,160,0,145,205,173,31,208,41,1,240,19,230,205,208,163,230,206 NN166, r}rG206,228,209,208,155,76,153,6,202,208,253,96,165,208,201,2,208,11,1694II0,133,205,169,64,133,206,76,37,6,169,64,141,14,212, s}sG169,34,141,0,212HJJ96,169,0,141,14,212,141,0,212,166,207,32,149,6,160,0,177,203,170,106\EE106,106,106,41,15,9,16,141,1, t}tG210,138,41,15,9,16,24,24,24,24,166pOO207,32,149,6,141,1,210,230,203,208,206,230,204,166,204,228,206,208,206,76153,6, u}uC0,0 D2:TALK.BASS%&,.@46=>EFMNVlANTIC 8/83--rAC" vG20 *= $60030 PLA PULL OFF DUMMY ARG COUNT40 LDA #$0850 STA $D01F INIT SWITCHES60 M1 LDA $D01F GET VALUE70 AND #$01 w}wG?START PRESSED80 BNE M1 NOT YES90 LDY #$FF DELAY0100 M2 LDX #$FF SOME0110 JSR DEL GO LOOP0120 DEY0130 BNE M20140 x}xG LDA #$08 RESET0150 STA $D01F START SWITCH0160 LDX 208 GET PARM0170 CPX #0 ?PLAYBACK0180 BNE NP NO0190 JMP PB GOy}yG PLAY BACK SOUND0200 NP LDA #00210 STA $D400 KILL DMA0220 STA $D40E KILL VBI0230 MD STA $D40A WSYNC0240 STA $D40A WSYz}zGNC0250 DONE LDX 2070260 JSR DEL GO WAIT IF NEED BE0270 LDA $D204 GET INPUT BYTE0280 GO LDX #$130290 STX $D20F TURN OF{}{GF FAST SCAN0300 LDX #$170310 STX $D40A WSYNC0320 STX $D20F SAY FAST POT SCAN0330 STX $D20B START SCAN0340 LDX FLAG|}|G0350 CPX #0 ?LEFT HALF OF BYTE0360 BNE RT NO0370 AND #$F00380 STA BYTE SAVE IT0390 ROR A0400 ROR A0410 ROR A042}}}G0 ROR A0430 AND #$0F0440 ORA #$10 SAY USE 4 BIT D/A0450 STA $D201 ECHO TO SPEAKER0460 INC FLAG SAY RIGHT NEXT0470 ~}~GJMP MD0480 RT ROR A0490 ROR A0500 ROR A0510 ROR A0520 AND #$0F0530 ORA #$10 SAY USE 4 BIT D/A0540 STA $D201 SAY }GSOMETHING0550 AND #$0F REMOVE TOP 4 BITS0560 ORA BYTE ADD IN LEFT NIBBLE0570 DEC FLAG SAY LEFT NEXT0580 LDY #00590 }GSTA (205),Y SAVE TO BYTE0600 LDA $D01F0610 AND #$01 ?START KEY0620 BEQ FINI YES0630 D3 INC 205 INCREMENT0640 BNE MD }GBUFFER0650 INC 206 AREA0660 LDX 206 POINTER0670 CPX 209 ?END OF MEMORY0680 BNE MD NO CONTINUE0690 JMP FINI GO FINI}GSH THINGS0700 DEL DEX0710 BNE DEL0720 RTS0730 FINI LDA 208 ?TALK A LOT0740 CMP #2 ?HUH0750 BNE FINI1 NO, JUST RETUR}GN0760 LDA #0 RESET0770 STA 205 BUFFER0780 LDA #64 START0790 STA 206 POINTERS0800 JMP NP AND DO IT AGAIN0810 FINI1 }GLDA #$400820 STA $D40E RESTART VBI'S0830 LDA #$22 AND SCREEN DMA0840 STA $D4000850 RTS0860 PB LDA #00870 STA $D40E}G KILL VBI0880 STA $D400 KILL DMA0890 PB1 LDX 207 GET DELAY COUNT0900 JSR DEL0910 LDY #00920 LDA (203),Y GET SOME DAT}GA0930 TAX0940 ROR A0950 ROR A0960 ROR A0970 ROR A0980 AND #$0F GET LEFT NIBBLE0990 ORA #$10 SAY USE D/A1000 S}GTA $D201 STORE THE VALUE1010 TXA1020 AND #$0F1030 ORA #$101040 CLC1050 CLC1060 CLC1070 CLC1080 LDX 207 GET DE}GLAY VALUE1090 JSR DEL1100 STA $D201 MAKE SOME NOISE1110 D4 INC 203 INCREMENT1120 BNE PB1130 INC 204 BUFFER1140 LDX}G 2041150 CPX 206 POINTERA1160 BNE PB11170 JMP FINI1180 BYTE .BYTE 01190 FLAG .BYTE 01130 INC 204 BUFFER1140 LDX^Guv%%FLALASXYZTCSYSNYTTPITCCSPSNPROLCSRSNRHVDEMODALTCSHAPVODIRECTIOTURYAXRATIYRATI}CZRATI !')@0179@@AGI@PQ XY `a hi pq xy}}C #$+,34;<CDKLRT[\cdklst{}C !"%ANTIC 8/83DDSHOWS ROTATION IN ALL 3 AXES FOR ATARI LOGO AND BARN WITH SILO }C A-1SUBROUTINE PLOTS SHAPE21 +@$17'0@;=CEKQ1@U;TTFLAG=0 MEANS PLOT; FLAG=1 MEANS DR}C5AWTO. TRAP 190 FOR LINES PAST EDGE OF SCREEN<6-; AEFFVARIABLE 'LAST' ALLOWS DATA BASES WITH VARYING NUM}CBERS OF POINTSF-@P 6-8,6-8,6-8,Y[[-999 INDICATES NEXT VALUE WILL BEGIN A NEW LINE, SO FLAG=0}C1 FOR PLOT INSTEAD OF DRAWTOZ&"6A 6-7& APc22CALCULATE YAW; ROTATION ON Y (VERTICAL) AXISd46-$}Ci%$6-"6-$6%$(6-.6-46-m66CALCULATE PITCH; ROTATION ON X (HORIZONTAL) AXISn:o6-$%$6}Cy(6-$%$.6-46-:6-wSSCALCULATE ROLL; ROTATION ON Z AXIS (AXIS THAT COMES OUT FROM PLANE OF SCREEN)x.}}C\6-$%$(6-$6%$.6-22IF FLAG=0 THEN NEW LINE, SO PLOT FIRST POINT7"b!,%$%%$%-6-@}G7 AP>>IF FLAG=1 THEN CONTINUE EXISTING LINE; DRAWTO NEXT POINT/%$%%$% %%SOUND INDICATES }CPICTURE IS DONE_-@"A&*920<A!@@D@HP= _2VX^`fhn77IF IN MAN}CFUAL MODE, WAIT FOR ANY KEY TO BE PRESSED**F:Ad,"AU*"@JAp77GET RID OF KEY PRESSED AND RETURN FRO}EGM SUBROUTINEAdAU$[[TRAP ERRORS FOR LINES PAST EDGE OF SCREEN (ERROR 141) AND SET FLAG TO PLOT NEXT POI}C NT#6-H A# APINITIALIZING SECTION +@LZAR@^gW-@ko@s1(@}Catari graphicsC-@ @$+W(@/IN 3-D(One moment, please...PPFIRST DATA STATEMENT INDICATES NUM}CFBER OF POINTS, STORED IN VARIABLE 'LAST'#"#9,9,9,;@J,RRC=SIN & COS OF 45 DEGREES; HC=HORIZONTAL CEN}GTER OF IMAGE; VC=VERTICAL CENTERnnMODE=1 FOR AUTOMATIC DEMO, 2 FOR MANUAL CONTROL; CH=1 TO CHOOSE ATARI LOGO, CH=2 FOR BA}C4RN OR OTHER SHAPE?6-?pp6-A`'6-@8@36-@DL?6-@P]i%2coA!@sw@{G}C2@ @@@ &i2@*.@26@:>@Br ''INITIALIZE ARRAYS; X AND Y=0,Z=-8I-xAC}C &68,-568,-!-E68,-6@1<I i%2BNAC@RV@Z`G2@dpA@tx@|}Ci2@ Ab@@!^!22READ DATA 4 TIMES FOR 4 CURVED PARTS OF LOGO"-@bf@j, #A6}C-@ @IJ@ "I%%CHANGE COORDINATES FOR 4 CURVESJ!"@Nk68,-!68,-TH"@oy 68%@I}}C ,-168%@I,-H68%@I"',-@+6^2"@:D!68%@HV,-6268%@Zh,-hI"@l!68%AG,-6}C%268%AG,-I68%AG,-@)lr | ,,READ DATA FOR 2 STRAIGHT PARTS OF LOGO-rv@z}C #AP-@@!A "\68A%%$@E\,-968A%%$@`k,-E"@o\68A%}C,-@   IIREAD DATA FOR CONNECTING LINES BETWEEN FRONT AND BACK PARTS OF LOGO-A AB@}C! "~ 68,-68%@%2,-568%@6S,-6A >68,-O68%@Wd,-g68%@h,-6A ~68%@}C,-@ s  READ DATA FOR WORD 'ATARI'-AEAx "$ 68,-68,-$68,-@w }C FADE OUT SOUNDx -@$&,16?59<2?KAC@OWX2@[gA@kst2@wAb}C@ Ex %,,GIVE USER A CHOICE OF DISPLAY ROUTINES&N0@IM@QU@Y (#(N(&For auto-rotate routine, }Clpress Ԡ0++(#For manual settings, press Ԡ9 PRESSING START SETS MODE=1:.F:B2y,"@px$6-@|}C. A YC<<PRESSING SELECT SETS MODE=2, SKIPS AUTO-ROTATE ROUTINED.F:B2y,"@]e$6-@i. AN Ap}COWAAAUTO-ROTATE ROUTINE: YAW, PITCH, ROLL--5 POSITIONS FOR EACHX-@SW@[db-jn@rl'6-}C 6-'6-'v"@+56-$@u9D"@HR6-$@`Va"@eo6-$@`sCCLINE}G 660 CALCULATES SIN & COS FOR YAW, PITCH, AND ROLL VALUES9 6-E:,6-G:,6-E:,'6-G:,06-E:,96-G:,GO TO}C PLOTTING SUBROUTINE @P!\00GIVE THE USER SOME TIME TO LOOK AT DISPLAY-@`dAh   }C;33ALL DONE WITH AUTO-ROTATE DEMO, SO SET MODE=2#6-@?G#"@KA;;TRAP 810 TRAPS DATA ENTRY ERRORS FOR}G YAW, PITCH, ROLL A""READ NAME OF ALTERNATE SHAPE"LLCH=2 MEANS SHOW ALTERNATE SHAPE INSTEAD OF LOGO,}C! SO SKIP LINES 750-780"@%4A +:M( (+(To see an ATARI logo, enter 1.(M( To see a(n) }Ca , enter 2 EEIF CH=2, THIS IS THE FIRST TIME FOR THE NEW SHAPE, SO READ DATA "@eiA mt +z }GT( (-(The last display used values of0(;(YAW=H(PITCH=T(ROLL=)..TRAP IF BAD ENTRIES FOR YAW, PITCH, RO}GLL*S A((0(Enter desired new angles3(P(of yaw, pitch, and roll.S(4 =22CALCULATE SIN & COS FOR}CU YAW, PITCH, AND ROLL>9 6-E:,6-G:,6-E:,'6-G:,06-E:,96-G:,H +[iAR@mQHHREMIND USE}CAR THAT IN MANUAL MODE YOU MUST PRESS A KEY FOR NEW IMAGERj0@EI@MQ@U (#(&(D(After the image is drawn,}C0G(j(press any key to draw another.\-@48A< e<<GET RID OF LAST KEY PRESSED; GO TO PLOTTING SUBROUTINE}CfAdAU @Po99AFTER PLOTTING, ASK USER FOR CHOICES FOR NEXT IMAGEp A@##READ DATA FOR ALTER}CNATE SHAPE5AR@((5(One moment, please... READ NUMBER OF DATA POINTS"SET ARRAYS EQUAL }CTO ZEROB-! 68,-'0/68,-6?>68,-EB ]]'RATIOS' ALLOW SCALING SHAPE. ADJUST XRATIO TO}G COMPENSATE SHAPE SHOWN ON YOUR TV SCREENooLARGER VALUES (RATIO=4) STRETCH OUT IMAGE ALONG X,Y,Z AXIS; SMALLER VALUES (RA}C&TIO=1 OR 0.5) SQUEEZE IMAGE'6-@*26-@6>'6-@BJJREAD BARN DATA, OR YOUR OWN DATA BY CHANGING DATA LIN}CES FROM 2000 ON-@ "$68,-$68,-$$68,-$,,IF X=-999 THEN DON'T MULTIPLY BY RATIO}CW+"6A 68,-"68,-+68,- NOW BACK TO MAIN PROGRAM=6-]c6-io'6-u36-@}C= APATARI LOGO DATA; LAST=278 278))CURVED PARTS OF LOGO (USED 4 TIMES)__-20,-56,-20,-10,-21,-8,-}G22,2,-24,4,-24,8,-26,10,-26,12,-28,14,-28,16,-30,18,-32,20,-34,22YY-36,24,-38,26,-40,28,-42,30,-42,31,-50,34,-54,36,-60,3}G8,-70,40,-70,56,-62,56,-54,54YY-48,52,-44,50,-40,48,-38,46,-34,44,-32,42,-30,40,-28,38,-26,36,-24,34,-24,32,-22,30^^-}G20,28,-20,26,-18,24,-18,22,-16,20,-16,18,-14,16,-13,12,-12,10,-12,-56,-20,-56,-999,-999++STRAIGHT PARTS OF LOGO (USED 2 T}GIMES)..-8,-56,-8,56,8,56,8,-56,-8,-56,-999,-999#11CONNECTING LINES FROM FRONT TO BACK OF LOGO$UU-20,-56,-70,40,-70,}G56,-12,-56,-8,-56,-8,56,8,56,8,-56,12,-56,70,56,70,40,20,-56-DATA FOR WORD "ATARI".--21,75,25,65,29,75,28,72,22,72,-9}G99,-9998''31,65,39,65,35,65,35,75,-999,-999B--41,75,45,65,49,75,48,72,42,72,-999,-999LEE53,75,53,65,58,65,60,67,60,7}G0,58,72,60,75,58,72,53,72,-999,-999V3364,65,70,65,67,65,67,75,64,75,70,75,-999,-99977NAME OF ALTERNATE SHAPE AND NUMBE}GR OF DATA POINTSBARN,154mm-25,21,-15,-25,21,15,-25,-9,15,-25,-9,-15,-25,-17,-9,-25,-21,0,-25,-17,9,-25,-9,15,-999,-}G999,0,-25,5,-9nn-25,5,-5,-25,-1,-5,-25,-1,-9,-25,5,-9,-999,-999,-999,-25,2,-9,-25,2,-5,-999,-999,-999,-25,-1,-7,-25,5,-7}Gll-999,-999,-999,-25,5,5,-25,5,9,-25,-1,9,-25,-1,5,-25,5,5,-999,-999,-999,-25,2,5,-25,2,9,-999,-999,-999hh-25,5,7,-25,}G-1,7,-999,-999,-999,15,-9,-15,15,21,-15,15,21,15,15,-9,15,15,-9,-15,15,-17,-9,15,-21,0gg15,-17,9,15,-9,15,-999,-999,-999,}G15,5,-9,15,5,-5,15,-1,-5,15,-1,-9,15,5,-9,-999,-999,-999,15,2,-9 aa15,2,-5,-999,-999,-999,15,-1,-7,15,5,-7,-999,-999,-999,}G15,5,5,15,5,9,15,-1,9,15,-1,5,15,5,5kk-999,-999,-999,15,2,5,15,2,9,-999,-999,-999,15,5,7,15,-1,7,-999,-999,-999,-25,21,15}G,15,21,15,15,-9,15 mm-25,-9,15,-25,21,15,-999,-999,-999,-25,21,-15,15,21,-15,15,-9,-15,-25,-9,-15,-25,21,-15,-999,-999,0,-}G11*ff21,15,1,21,15,1,13,15,-11,13,15,-11,21,15,-5,21,15,-5,13,15,-11,21,15,-11,13,15,-5,21,15,1,13,154kk1,21,15,-5,13,1}G5,-999,-999,-999,-25,-9,-15,15,-9,-15,15,-17,-9,-25,-17,-9,-25,-21,0,15,-21,0,15,-17,9>mm-25,-17,9,-25,-9,15,15,-9,15,15,-}G17,9,15,-21,0,15,-17,-9,15,-9,-15,-999,-999,-999,-25,-9,-15,-25,-17,-9Hnn-25,-21,0,-25,-17,9,-25,-9,15,-999,-999,-999,15,2}G1,-12,15,-15,-12,20,-21,-10,15,-15,-8,15,21,-8,18,21,-5Rjj18,-15,-5,20,-21,-10,22,-15,-5,22,21,-5,25,21,-8,25,-15,-8,20,-2}G1,-10,25,-15,-12,25,21,-12,22,21,-15\hh22,-15,-15,20,-21,-10,18,-15,-15,18,21,-15,15,21,-12,15,21,-8,18,21,-5,22,21,-5,25,}G21,-8,25,21,-12fmm22,21,-15,18,21,-15,15,21,-12,-999,-999,0,15,-15,-12,15,-15,-8,18,-15,-5,22,-15,-5,25,-15,-8,25,-15,-12}Gp5522,-15,-15,18,-15,-15,15,-15,-12,-999,-999,-999D:LOGO3DRHVDEMODALTCSHAPVODIRECTIOTURYAXRATIYRATIEGmnvD T FLALASXYZTCSYSNYTTPITCCSPSNPROLCSRSNRHVDEMODALTCXRATIYRATIZRATIYADIRECTIOTUR}C !@()/1@89?A@HI PQ XY `a hi pqxy}}C #$+,34;<CDJLST[\cdklst{}C %ANTIC 8/83 A)N1SUBROUTINE PLOTS SHAPE21 +@$RX'0@\^dflr1@v<6}C- AF-@!WP 6-8,6-8,6-8,Z&"6A 6-]& APd46-$%$6-}C'"6-$6%$(6-.6-46-n:-a6-$%$6(6-$%$.6-46-:6-x.g6-$%$(6-$6%}C$.6-7"2!,%$%%$%-6-@6g7 AP/%$%%$% _-@koAsw92}}C A!@@ = _2&(.068>\**F:Ad,"AU*"@`ApAdAU}C $#6-I A# APINITIALIZING SECTION +@M[AR@_hW-@lp@t1(@}Catari graphicsC-@!@%,W(@0DIN 3-D);@H,"")9,9,9,?6-?pp6-A`}C'6-@ 36-@ ?6-@$P+READ SHAPE DATA,GAR@T(/(One moment please.G(Reading da}Cta for @B-# 68,-)2/68,-8A>68,-GB I]]'RATIOS' ALLOW SCALING SHAPE. ADJUST XRATIO }C6TO COMPENSATE SHAPE SHOWN ON YOUR TV SCREENJ'6-@:B6-@FN'6-@R]T-@a^ "h$68,-$}CP68,-$$68,-$r+"6A 68,-"68,-+68,-| 36-V\6-bh'6-nv36-@z}CjY(1(&For auto-rotate routine, press ԠY(#For manual settings, press Ԡ.F:B2y,"@nv$6-@z. }CA  F:B2y,"@#A' AWAAAUTO-ROTATE ROUTINE: YAW, PITCH, ROLL--5 POSITIONS FOR EACHX-}C@ @b-"@&/l'6-5;6-AG'6-MXv"@\f6-$@uju"@y6}C-$@` "@#6-$@`'i9 6-E:,6-G:,6-E:,'6-G:,06-E:,96-G:, @Pmx-@|}CAM   ))END OF AUTO-ROTATE; NOW MANUAL MODE6-@Qe A +k T( (-(The }Glast display used values of0(;(YAW=H(PITCH=T(ROLL=*S A((0(Enter desired new angles3(P(of }Ccyaw, pitch, and roll.S(4 >9 6-E:,6-G:,6-E:,'6-G:,06-E:,96-G:,H +iwAR@{R}Cj0@ @@s (#(&(D(After the image is drawn,G(j(press any key to draw another.\-@wA}C! fAdAU @P%p ALETTER A WITH 3D ARROWS3-D LETTER A,30::-12,15,0,0,-15,0,12}G,15,0,8,6,0,-8,6,0,-999,-999,-999AA-20,20,0,20,20,0,20,-20,0,-20,-20,0,-20,20,0,-999,-999,-999;;-50,0,0,50,0,0,40,10,}G0,50,0,0,40,-10,0,-999,-999,-999>>0,50,0,0,-50,0,-10,-40,0,0,-50,0,10,-40,0,-999,-999,-999;;0,0,-50,0,0,50,-10,0,40,0}G,0,50,10,0,40,-999,-999,-999D:LOGO16PITCCSPSNPROLCSRSNRHVDEMODALTCXRATIYRATIZRATIYADIRECTIOTUR-Gm88INTFLXDIRJOYDIRCALIRPTKEYPLACENAMEMIRRORERASEARRAYINXINYCIOMODECADVLSTARTENCNGNINECN}GGCTIGTIRETENINEAGKEMRSSSXYXYCMSTADBYTEIOCNTVEHOVOLOCURCOERODIOCBICCOICSTICBAICBAICBLICB}CL $%,-35@<=CE@LM SU [] ce km su{}C@@ @&(.078?@GHOPWX_`ghopwx}}C !""##*+$23%:;&BC'JK(RS)Z[*bc+jk,rs-z.}C/ 012%&3-.4565=>6EF7MN8UV9]^:ef;mn ?@AM CREATE -- 1/27/83 A@ F:@ QV,!@Z^@Pbs($2/"@w6-}C%,/ @p%<6-@)-3B,F@ FHNb$P# 6-hp#6-@tZ$d}CM6-%8,6-%8,/ "()!@y,7M6-%+ =E,&+!@yIU,n7 @Yp)!A876-%+ @t,&+!A8}C7,x(8,)8,1$A @;S A `vv;@"Wi,;A1,9@mt,9@x,;}C@e ,;@,;@ .,;A',;@q29,9@=I,119@ MT,9@ X_,;@cj,;@n,KK6.ALJ**}CF*K**O*PU#I**V*C**BXZ4*36*521**.N*M**R*EY*TWQ9*07$8**FHD**GSA$ A@Jo 6-C:,6. נ6-ug +@}C AYEA6-F:A`,%AV$F:Aa,g6-F:%@IR,%F:%@Vu,$AVD 6-C:,6-%@y(6}C-%@( 66-%@G"D6-%@6&36-%@G7A6-%@(EP"68@Tc,-%A`%@goB68@s,-8@}C,%@ b68@,-8@!2,%A' 68@6=,-8@AF,%@ JU3-@Y]@ a"&68,-/68,-3 }G880,3,40,3,79,3,0,71,40,71,79,71,0,138,40,138,79,1386-?:<Ai<Ap<,6-?:<Aq<Ar<,"6-?}G:<As<At<,,6-?:<Au<Av<,66-?:<Aw<Ax<,@6-?:<Ay<A<,J=6-?:<A}Cd<A<,=INITIALIZE INTERRUPT POINTERT**6-?:<%A<%A<%A7`,^S%@hl@px+%A|}C@?%A@:SCLEAR OUT OLD LMSh''%@>B@FJ%@dNa%A(r%@!ei@m%A(|3%}C@# 3%@$#6%A()-@%:>@(BL%%@P_) 3%@)cek%A(3%@0}C %@1@!<%A(%A@@D%@dH[%Ai@_%A(W%Aq@e}C=.%ArF:A`,E%AsF:Aa,WAY@4AJI6-PV#-\`@ydn16-%@r=!@}CI6- ;, (,@,4+,@ 8Z7,AW; =6-?:C:,<@^`<fj<@hnt<8@x,<8}C@,,6-?:C:,<<@#'<@h+1<8@5<,<8@@S,%A&,U @W],@@ae@ io1,@9sw@ {C}C,@@AWU,@9EAWKAdA 'Ae@I9AfAKAhA$ 6-?:,  } C A J6-6@!$-@%)@-726-%@;C>!@GMJ6-S^#,dl/@p# 6 } C-@ 6-6@"&46-%@&06-&@4=4"6@AVAp0C6-%@Zb%-@fj@n)/,5/ } C9 C AP:&&6-?:<@"&<@*<<%A ,DH-BDJP'@TX@\cH(@g 8 7 6 5 4 3 2 1 B } C N5-@@"$68,-("168,-5 XGG0,0,0,0,0,0,0,0,1,1,1,-1,1,0,0,0,-1,1,-1,-1,-1,0,0,0,0,1,0,-1,0,0 } Cb-@ @!6-@ (-6-@@,496-@q8HC A pM@LP_,VZ@p^bq,hl@qpv,@yz@}Cp ,@y@q l6-&/vV @03R6-F:Ad,(AU2X8,B APL A 0V A p}C 6-%16-R:+5,LT:;>,"DL$6-@PT.Z`8 @djB AnL A0 }C A A06-!)@-P#8,)8,#6-@Tf , Aj1}C$ A03@ @$6 A 03!@c:A  A @3AdAU# A$@30A}CP C 4C6-@)$#6-@5(0/6-@`4[9 A0C A`C 4S6-@)_g#6-@@ks/6-@`w9 A}C!0C A  C 4M6-@)%-#6-@G19/6-@`=9 A0C Ap*33Routine to load main menu will be adde}Cd here.4C 4D6-@@&#6-@G*2/6-@`6]9 A0C AP>C 4I6-@5ai#6-@Smu/6-@`y9 }C#A0C A"HM 4L6-@5'/#6-@@3;/6-@`?p9 A0C A$`M A`RC 4F6-@)t#6-@@}C /6-@G69 A0C A"\C 4N6-@@:B#6-@`FN/6-@Ry9 A0C AfC 4Z6-@)}}C#6-@5 /6-@E?9 A0C A!@pC 4R6-@5CK#6-@EOW/6-@`[9 A0C AzC 4E6}C-@5 #6-@S/6-@`!w9 A0C A` 46. $4TA$@ A $T B{}C-@ @?(@0 6Q-@:>@BPT$!@dTn6.*$!6.7%@rx<%@|,}C!$ A@[(@&"@*.@2J4AdAUF@NR@dVdXB7t@dhu[$+(@y }CJĠ( A+$ F:Ad,"AUA $-@NRAVs $  ,!6@w ,}C =-@@ %%3+,7!@7I=, !6@Mw, /$$W A 0,(@{}C_ŠҠϺ>AdAUH A W6-F:Ad,.[ A @ A 3@:, @Icl)@:,!@Vp= A0G }CIA 0Q A [ A`8 A06-A:,$B8 ,!-@MQ@U]% /c5,8$LD A"F}C:Ad,"AU6-@!@%/: D A3BV$`E@FJ@N^,1@bf@j; AE A  } Coj4DApt3 0T A0 A 0) A 3 A ~R A0 A 0! A`=(@sǠ!}!C%ΠOAdAUR3O A)@6.C:(BB@dDKE@OS@WA(O A A0 A"}"CplBB@d+ A 0;(@/PǠΠE AO AT[l@_c@gioa6-@#}#C6-A'6-@ #36-@'_= A#0K6-%A@W6-AT@a A#0@c A$r A 0$}$C )(@ ԠԺ;AdAUE A T6-F:Ad,^ A @h A@r A6 6-A:,"!@%}%C ) @ B, A`6 A  A0r A 0)(@F ĠԺ;AdAUE A T6-F:A&}&C7d,^ A @h A@r A6 6-A:," @;A)!@E, A`6 AP A0$ A` A '}'C+  A` APA@h/'AAF9AAKAA]A A4oA(}(CA A@?AA$AEn$(> 4X A0 A 01(@r; )})C5AP>'2$<A 4X A0 A 01(@9j; AP>'A'F$P ,F:A ,&@!nr@vZ[6*}*C. D:  6-@<* A 0<AdAU[(@@LźT]d6-@ae@iq)-@uy@ }+}+C?6INPUT LOOPnZAdAU A .6-F:Ad,P2EI@MOUY@]tZ A @xC6-%@x32,},C >C4#AP4$)!@B_Ap# 4*6-&@c# A67<,.-}-C(@ $ $F6-A(C A0# A 09(@Gu14C AF$ A =6-{.}.C6- 1 @*!@ (=6-@,7%!@;A* @EM%6-@Q]=1+"@ag)"@ks,*+"@w)"@/}E/C ,=6-@=1+"@!')"@+3,*+"@7=)"@AJ,=6-@Nk/ 6-8,6-8,!"@o/6-%A&0}0C6-?:C:,<<<@gB<<,$ A 116-?:C:,<HJ<PT<@gX<8,<8,,"$,k A 0Ad1}1CAU;(@o DˠҠTźE A T6-F:Ad,^ A @h A@k$6 A @-@sw@@{92}2C2 @@@ $[2*,24:<BJo-@NR@Vfs w -@jn@ r $JC3}3C -@ 6@ <2&*@.2@6J@ C$TC -@NPV[6@_c<2imAqu@y@4}4C C$^2@ @$2) A@E28>@BF@JXO A@k2^d@hl@pu A@25}5C -$h-@15@9K $r-@OS@W[92ae@)im@qu@y[26}6C@ @5@@&o-@*.@2:s 2@BHJPRX^2@bdjlrtz 7}7C$| A4DA!m3 0T A0 A 0) A 3 A` A3 Bq A 0!8}8C A@@(@GǠ͠RAdAUdBB@dKR@VZ@^A(C: A A9}9C0 Ap)BB@d!<3 A 0= A@\(@@eǠ͠f A@im@qsy:}:C a6-@ !6-A'6-@ %-36-@1j= A#0K6-%A@W6-AT@a A#0'6-@nu@y$ ;};CA'$'(@: A$ A'$z@>Y A" A 0;(@] ԠE AO A 0<}<C h(@  ٠οzAdAU A 6-F:Ad,= A @ A0! A )4Y3 A 0=}=C= A`$u6-@/ A 06(@3נҠҺHAdAUR A a6-F:Ad,k A @u >}>CA G A0)@:, @H#,)@:,!@V03 A 0= A G AA6-A:,%A6-F:,' A 0A(@?}?C, Š6-F:Ad,!6-R:2;,A"@?O)"AB)"@S]O6-%@awaAdAU2}@}@C@ @#e#"@'7)"AC)"@;E16-&@I_CAdAUe2ei@mouy@}A}AC &**"@)T:,""?Ap0!AU6-EN: Tg6-AUD5%2mouw}B}BC<+5 AN A$X@ A 0)(@@aŠ3 A= Ae@$b*6-?:<A<C}CCA<,'6-?:,*$l B"6 APv^@:p A" A 016-F:A,="AbT(@t ˠD}DC#^ A@2"Ag((@'I Š2 A@(@M Ԡ$ A A 0! AE}EC $$$ B; A3$ Aj A 0+(@?A̠ҠP̺=AdAUG A V6-F:Ad,F}FC-` A @j A  A04PA 1l) 0A A 0 A ) A`;16-?:C:,<@@p<A6<G}GC<%A@,; A!,r A 0+(@0[S̠ҠLź=AdAUO@_c@gmY Aqh6-F:AdH}HC,r A @;@@"('-@,0@4[1 A0; A - 4S6-@_g#6-@k- A P) 0I}ICL A 0 A ) A !,6-@086-@ <G+6-@Kp&6-A9&% +6- 46-v(P:'J}JC@,'@46-@)'@-; "6-P:'@?J,;P:'@NU,'@Y]EciW@mq@uc,@yK}KC y/@y%&@ @$(@,7 g!@v;A!@EI@MQ+Wa9-@ye?,G/%K ]@L}LC@ g A!<*BB6-?:C:,<<<<%A@%++&@@E,$@@IR,%P:'@Vr,,4$>u A 0,(@vM}MC_ӠY ϠԺ>AdAUH A W6-F:Ad,a A @k A u A0H\ A$cq4Y+@uy1-}N}NC@ Q @O loading main menu\%D:MENUR$\V A 0*(@SnҠԠ76-6@rD6-6@O}OCV@ @f[6-R:%,, A0@& A ;T:FI,"OA6-G6-Q A@[ A!pp A!PP}PCzO@ @% A 0=(@)BҠԠO@FJ@NYm6-R:_f, Aj& A ;T:Q}QC," (A6-G6-Q A c@,0@4:m A">n A! A@$5 A!@@rv@z%6R}RC'-+6-5 A!p= A 0+(@+DҠԠ=@HL@P[D6-R:ah, Al &,,,S}SC@-@ @ D  T:&),"/>A"p D,, A"0G A"-AeT}TCG@ @"<S:$ ,/!@@D@H_$$v A 0-(@cԠκ?AU}UCRdAUI A X6-F:Ad,b A @l A v A0=@:, @IV_)@:,!@Wc) A 03 A = A"V}VC  FT:,"*@&*@.>.4,F@BF@Ju 6-8A:,,6-8A:,,$ I6-$@y6W}WG-A4%-6-A5%;6-A6%I6-A7%$ 6-A@%6-AA%. 6-?:<<<,8 6-?:<<<,B  X}XC`6-?:C:,<,L  6-F:,$V WRONG DISK`   }***Error***j nAdAU Bdn JInsert Y}YCJ disk and press RETURN to load the main menu.t F:Ad,@NnA$ ~ A!  x -@rtz6Z}ZC@ <2@)@ (X2@,0@548@<Dt2@HL@`PT@Xx  -6. נ#6-[}[C0- A$p \(6. ̠&6-@4B.0L@@FJ@N^DJ,\@bf@j  4T6.\}\C $67@<A,.dh)@ ԍ`HЍ )@ Эh@HHЍ ) @ТEO%Nhh@]}]CHЍ )67A<A,.d?ЭEO%NЭh@HHЍ ) @ТEO%Nhh@HЍ )@ Э^}^CO::67A<A1,.h@HЍ ) @Эh@67@SW<A[,.dhhhhhhhhhhhޠ_}_C ٥ ܄**)ۊ)eّۤ٤ڈ0ܑވ8(ޥ i6667A<A',.(ޥii(ܥi ``}`GQQ6.Ghhhhhhhhh٩ֈ ȱ)٩و)i(٥i` 6.hhhhhؠhh`6.hhha}aCLVC#67@5<@5",.>:@4&,C67A&<A&,.>:AU,$ D:KEYSTROKDECADVLSTARTENCNGNINECN`bC0 R: u5 R: ANTIC AUGUST 19837 R: PHIL & KATHY BERGH10 GR:QUIT [Clear registers if re-running20 T:} !c}cG ANIMATED TRAIN30 T:40 T:Please wait while the character set is moved. This takes about 20 seconds.50 PA:10060 R:Train!d}dG cars poked into CTRL A through H.70 C:#Z=@176/1024+3 [New RAM character set pointer80 C:#Z=#Z*1024 [New RAM pointer byte9!e}eG0 C:#W=#Z [Second new character set pointer100 C:#A=#Z [Third new character set pointer.110 C:#Y=@B756*256 [Original charac!f}fGter set pointer120 C:@B756=#A/256 [Use RAM set130 C:#X=0 [Set loop counter to 0140 *MOVEIT [Copy ROM into RAM150 C:@B#Z=@!g}gGB#Y160 C:#Y=#Y+1170 C:#Z=#Z+1180 C:#X=#X+1190 J(#X<1024):*MOVEIT200 C:#W=#W+((1+64)*8)[OLD ADDRESS+((ATASCII+OFFSET)TIME!q}hC@Y]ddiCb'DOS SYSb*+DUP 9SYSb UTURNCOATBASb_TALK= IBASbvTALKM ASMbLFUJI2 BASbFUJI1 BASbrKEYSTROKBASjGbbTRAIN PLTb CAPITAL PLTbQPICUTIL BASb0ESCHER BASb1MZMANIACBASb"HRESISTORBASbjRESIST2 LSTbpAUTORUN SYSkC bMENU bDOC )TXTbHELP- 0BASqGS 8) CTRL A210 C:@B#W=7 [Back of caboose220 C:#W=#W+1230 C:@B#W=4240 C:#W=#W+1250 C:@B#W=127260 C:#W=#W+1270 C:@B#W=73!r}rG280 C:#W=#W+1290 C:@B#W=73300 C:#W=#W+1310 C:@B#W=255320 C:#W=#W+1330 C:@B#W=56340 C:#W=#W+1350 C:@B#W=16360 C:#W=#A!s}sG [Reset pointer to beginning of RAM set370 C:#W=#W+((19+64)*8)[OLD ADDRESS+((ATASCII+OFFSET)TIMES 8) CTRL S380 C:@B#W=224 !t}tG[Front of caboose390 C:#W=#W+1400 C:@B#W=32410 C:#W=#W+1420 C:@B#W=254430 C:#W=#W+1440 C:@B#W=146450 C:#W=#W+1460 C:@!u}uGB#W=146470 C:#W=#W+1480 C:@B#W=255490 C:#W=#W+1500 C:@B#W=28510 C:#W=#W+1520 C:@B#W=8530 C:#W=#A540 C:#W=#W+((4+64)*8!v}vG)[OLD ADDRESS+((ATASCII+OFFSET)TIMES 8) CTRL D550 C:@B#W=73 [Back of coal car560 C:#W=#W+1570 C:@B#W=0580 C:#W=#W+1590 C!w}wG:@B#W=63600 C:#W=#W+1610 C:@B#W=63620 C:#W=#W+1630 C:@B#W=63640 C:#W=#W+1650 C:@B#W=255660 C:#W=#W+1670 C:@B#W=28680!x}xG C:#W=#W+1690 C:@B#W=8700 C:#W=#A710 C:#W=#W+((6+64)*8)[OLD ADDRESS+((ATASCII+OFFSET)TIMES 8) CTRL F720 C:@B#W=183 [Front!y}yG of coal car730 C:#W=#W+1740 C:@B#W=0750 C:#W=#W+1760 C:@B#W=240770 C:#W=#W+1780 C:@B#W=248790 C:#W=#W+1800 C:@B#W=25!z}zG2810 C:#W=#W+1820 C:@B#W=255830 C:#W=#W+1840 C:@B#W=28850 C:#W=#W+1860 C:@B#W=8870 C:#W=#A880 C:#W=#W+((7+64)*8)[OLD !{}{GADDRESS+((ATASCII+OFFSET)TIMES 8) CTRL G890 C:@B#W=119 [Back of engine900 C:#W=#W+1910 C:@B#W=0920 C:#W=#W+1930 C:@B#W=1!|}|G26940 C:#W=#W+1950 C:@B#W=99960 C:#W=#W+1970 C:@B#W=127980 C:#W=#W+1990 C:@B#W=2551000 C:#W=#W+11010 C:@B#W=281020 C!}}}G:#W=#W+11030 C:@B#W=81040 C:#W=#A1050 C:#W=#W+((8+64)*8)[OLD ADDRESS+((ATASCII+OFFSET)TIMES 8) CTRL H1060 C:@B#W=192 [Fro!~}~Gnt of engine1070 C:#W=#W+11080 C:@B#W=481090 C:#W=#W+11100 C:@B#W=481110 C:#W=#W+11120 C:@B#W=2521130 C:#W=#W+11140 C!}G:@B#W=2521150 C:#W=#W+11160 C:@B#W=2541170 C:#W=#W+11180 C:@B#W=571190 C:#W=#W+11200 C:@B#W=161210 *GO1220 POS:2,212!}Cj30 T:}1240 POS:14,101250 T:All Aboard!1260 C:#P=21270 C:@B752=1 [Turn cursor off1280 POS:2,181290 T:} !}C [36 CTRL M's1300 POS:2,171310 T: [CTRL A through H1320 PA:601330 *MOVETRAIN1340 SO:0,0,0,01350 !}GPOS:#P,171360 T:  [Space erases last car1370 PA:51380 C:#P=#P+11390 J(#P<32):*MOVETRAIN1400 C:@B752=0 [Turn cursor!}Cu back on1410 T:1420 T: Type J:*GO to see the train again.1430 E:H10 GR:QUIT [Clear registers if re-running20 T:~ DCy0 R:̠̠͠5 R:ANTIC AUGUST 19837 R: PHIL & KATHY BERGH10 GR:QUIT [Clear registers if re-running20 T:} %}C Cursive Capital L30 T:40 T:Please wait while the character set is moved. This takes about 20 seconds.50 PA:10060 R:C%}Gursive L poked into capital L70 C:#Z=@176/1024+3 [New RAM character set pointer K value80 C:#Z=#Z*1024 [New RAM character s%}Get pointer byte value90 C:#W=#Z [Second new character set pointer100 C:#A=#Z [Third new character set pointer110 C:#Y=@B75%}G6*256 [Original Character set pointer120 C:@B756=#A/256130 C:#X=0 [Set loop counter to 0140 *MOVEIT150 C:@B#Z=@B#Y [Copy %}CROM byte into RAM160 C:#Y=#Y+1# C[Increment ROM and170 C:#Z=#Z+1G b[RAM pointers180 C:#X=#X+1f [and counter190 J(#X<1%}CV024):*MOVEIT200 C:#W=#W+(44*8)[OLD ADDRESS+(INTERNAL CHAR SET #)TIMES 8)210 C:@B#W=7[ [Row 1220 C:#W=#W+1230 C:@B#W=15%}C L[Row 2240 C:#W=#W+1250 C:@B#W=124 [Row 3260 C:#W=#W+1270 C:@B#W=12P r[Row 4280 C:#W=#W+1290 C:@B#W=63v [Row 5%}CA300 C:#W=#W+1310 C:@B#W=109 [Row 6320 C:#W=#W+1330 C:@B#W=57E f[Row 7340 C:#W=#W+1350 C:@B#W=0k [Row 8360 T:370 %}CyT:Sample cursive L's:380 T:390 T:Lori Louise London LibraryHY BERGH10 GR:QUIT [Clear registers if re-running20 T:} $AG%(7(CCCCCC2C4PIZACONCXSDMCTCROTXTTEXTSVPOHCOLCHACHARFLACHARPOCHARSESCLODUMMPROGIER)}GFILEOUTFLAIOCBUOUTFILEANOTHEANSMOVEFLAOFFSEMOVENMOVEPHOFVCORCLBYTITEMEDGELIHBORDINFILEBLANVOFRSFLASC)}C REEDCOLRE&'./67>?FGNOVW ^_ fg no vw })}C@ !")*129:ABIJQRYZabijqry)}C  !$%",-#45$;=%DE&KM'TU(\])ce*km+tu,{-)}C./0 1&(2.03784>@5FH6OP7WX8_`9gh:op;wx<})}C$$: $*t$$: * PICUTE by W. W. Hough *'$$: * for ANTIC Magazine 8/83 *1$$: }*)}C*d6-"*6-@.#6-%+6-%36-%;6-%C6-%K6-$S6-%_6-A k6-A)}CGw6-B2y Am: Typo announcement (ZAP)n\A@hK[12A6@_c@gq?-@`uC M2)}CrYA\$w: Display picture (PIC)x/ -A%8, /A8,?A`@v!Aa)}C 3@@?AY  $: Character transfer'4A@% 6-%$A`%A)}C-a-B:,!6-@:7<,,"@21i! ) 6-!A'#6-&A()6-' @2mw6-%@d{')}C A '!@1* @!+'6-&@2/<=6-%@@$!6-%$+&,-Ab=6-?:C:,<<, 6.)}C( : Select path from pictureG@,<+2A!@@D@HR9-AV= G2F:,"A@" )}CF:,"6-@" A`F:,"A AP!: I/O Routines and traps"6' +AY ,A )}C@ 6 A,_ " (4(#No such picture on disk--DIRECTORY:7(A AD(U( Press OPTION_ A@6\5")}GAb)F:A,"Ab)F:A,"A98(L(NO ROOM ON DISKO(R(\ AP@(6.D:WWXXYYZZ.PIC6-( AJ)}GQ(.(#An error was encountered on output.Q(I wrote your picture in a fileT$(called 'WWXXYYZZ.PIC'.!($(^, A)}C^6-6-(,( Press STARTh F:," r A`|#D:*.*# Ab ( A)}Ck6.$ AY %% %P:'AV,7%&AV$F:%,E%@oyY%@ })}C@056-?:A6,!6-F:A,5"AbA"A0  $B+(>:A%,&A @)}C8A@dB A`" -%Avy%8," M(0(%Enter name of the OUTPUT picture file76.;D)}G6.D:M67,. 4  A) 6.6-AY% A) : Pick your changee 6- +A )}C@ "(%(9(Do you want to:<(Y( Add >:A,ext\(e( .(>:A, ove Picture!(.( Add)}G n (>:A, orders (crop)#(E( Change >:A,olorsH(K(n(Type T, M, B, or C (or RETURN)4)}CT A B & 4 04BA: 4M AF D 4C A` N  A@W: I)}Gnternal moveX) 6-(>:A%,(# A)6-b5  56-?:C:,<&Av&<&Av<B0`%,l5 !56-?:C:)}G,<%BS`&<%BS`<B0@&,u: Vertical correctionv " $  6-%6-?:C:,<<%P:',$,$)}G: Change colorsl(>:A%,(<($Which of the four colors do you wantl(to change? Enter 1-4 or >:A,LL )}C!%4A6-6-% A%21*34  Ap 6-A:,6-0 -(0(Enter new color (COL)}COR )H A&(! ?Color (0-15) *: )!@C> H AH A &( Luminance (0-14) *:)}C  )!@*> H A 68,-@.$%   $0(0(%Do you want to change another color ?)}G4YA` 4N$   A`: Crop pictureI(>:A%,(I(Enter color of border (1-4 or >:A)}G,IXED) 94M(9("Enter byte for mixed color (1-254)*7 A4M) )!AT- 7 A4)}C,4MAP>21)34  A0AH6-+A:,&@EJ,$@NRW(W(Do you want to crop >:A,OP)}G, >:A,OTTOM, >:A,EFT\**( SIDE, or >:A, IGHT SIDE fO4T%6.scan lines down/6.)}Gtop;6-AE A O A PpL 4B6. scan lines up,6.bottom86-AB A L A `zB 4L)}G6.spaces(6. left side.6-8 A B A pC 4R6.spaces)6. right side/6-9 A C A )}G  Ap4(!( How many  from 4((0 to ) ) A 0 )! ) A 0   $!6-?:)}GC:,<<<$,! A -#6-?:C:,<<%Av&$<$,- A 5-%Av@'6-?:C:,<<<,+ 5 A 1)}G-%&%Av&-6-?:C:,<<<,1  6- A@ : Input display characters^(>:A%,(^(FENTER)}G TEXT (maximum of 20 characters, and use initial spaces to offset<(text from left margin):"(<( <<<20--CHARACTERS>>>)}C!/A%A@d%,4/$j(.(#Do you want (1) REGULAR HEIGHT (alaS( Graphics 1) or (2) DOUBLE H)}GEIGHTj((ala Graphics 2) .(or higher up to 5.(times regular ?> AP"( Enter 1 to 5 &0 )!4 )}Cj> AP$i(-("Enter vertical position (from top)i(!where you want top of text (0 to A&@n$).9 A)}Cp+ )!A&@ $/ 9 Ap80(0(%What color do you want for your text?B9 A( Enter 1-4 )}Cw!+ )!/ 9 AL 6-&$U: InitializationV'F:A,"'AF:A,`KK;,;@{,)}C;@ ,;@%,;,9,;@)0,;@4,j26-A$$AV6-2AF:A,t; 6.6-6-)}C:6-"6-(6-/6.56-;6-~S+A @>S&(>:A%,)(M(X ^PICUTEb by W. W. HOUGHP(S(U,)}G($A Utility for Creating and ModifyingU($High Resolution MICROPAINTER Screens-( (-(After your picture is displayed)}GM)(!and a tone sounds, the program isM(waiting for your input. Press:k(,(! START to save modified pictureL()}G SELECT to change pictureh( OPTION to start overk(j(,(!If you would like to see the diskT(#directory now, pr)}Gess SELECT. To goj(on, press START.; "( To make a blank;(picture, press OPTION.# F:,"(>:A%,)}Ct# A`- F:,"(>:A%,# A- A` F:,"*"6- A A PA@dx()}G(E(%Enter name of the INPUT picture file L6.P* 6.D:67,.4 * A`: Input move increments)}GJ(>:A%,((6(Do you want to move  :J4YA 4NA  A.(.(#Ente)}Gr horizontal offset (-20 to 20)(+ A  &)!! + A 2.(.(#Enter vertical offset (-192 to 192)<6 )}G A@( 6A)!A, 6 A@F  6-%P 6-%$Y: Exit if not first init.Z ")")}C9$d"A0n6-F:AY,6-AHx9 +@$=\F:A,"9AF:@`e,&@iC6-F:A,)}C@76-$AV%F:@"T,CAY: Access to OS I/O--@X"#A6%' -6-++104)}CL,162,16,32,86,228,152,141,193,2,96: Positive internal moves4;@VP[,-@V_""067<,.>:,4 ii10)}EG4,104,133,204,104,133,203,104,133,206,104,133,205,104,133,208,104,133,207,164,207,136,192,255,240ee7,177,203,145,205,24,1)}G44,244,166,208,240,18,160,255,198,204,198,206,177,203,145,205,136,192,255208,247,202,208,238,96: Negative interna)}Cl moves4;@T!,-@T%""067<,.>:,4 ff104,104,133,204,104,133,203,104,133,206,104,133,205,104,133,)}G208,104,133,207,166,208,240,16,160,0gg177,203,145,205,200,208,249,230,204,230,206,202,208,242,160,255,200,196,207,240,7,1)}CF77,203,145,20524,144,244,96: Horizontal borders4;@GJU,-@GY""067<,.>:,4 ff104,104,)}G104,133,203,104,133,205,104,133,204,104,133,207,104,133,206,165,203,166,207,240,12,160,0ZZ145,204,136,208,251,230,205,202)}G,208,246,164,206,136,192,255,240,4,145,204,208,247,96 "": Transfer & write character4;A,-A""06)}G7<,.>:,4 ``104,104,133,205,104,133,204,104,133,207,104,133,206,169,0,141,230,6,160,4,173,226,6,208,14"WW24,13,225)}G,6,136,240,4,10,10,144,246,141,231,6,173,224,6,141,233,6,160,4,169,0,153,XX233,6,136,208,250,162,0,172,230,6,177,204,141,2)}G32,6,160,0,30,234,6,30,234,6,30,2366SS6,30,236,6,24,14,232,6,144,11,173,225,6,29,236,6,157,236,6,176,8,169,3,29,234@YY6)}G,157,234,6,200,192,4,208,214,232,224,2,208,207,173,226,6,208,50,160,0,173,231,6,57J[[234,6,145,206,200,192,2,208,243,24,14)}G4,16,206,233,6,208,159,238,230,6,169,8,205,230,6Tbb208,143,96,165,206,105,40,133,206,144,232,165,207,105,0,133,207,144,224)}Cp,160,0,177,206,57,234^556,25,236,6,145,206,200,192,2,208,241,24,144,220g: Vertical correctionh4;@Ut,-)}C@U""067<,.>:,4 ree104,104,104,133,204,104,133,208,133,206,104,133,207,162,193,165,207,24,105,40,133,205,144,2)}G,230|dd206,160,0,177,205,145,207,200,196,204,208,247,202,240,14,165,207,24,105,40,133,207,144,222,230208,24,144,217,)}C196M%6-F:A`,%AV$F:Aa,3%@x5];%M-%%AF:,"@ai@m;F:,"@y)}C @x3%F:%,&@#K;6-%C %6-?:C:,<<AP<AO^,7AP@bCAQ/6-?:C:,<)}C<<A,/A&@3 i: If blank, get colorsB "6-6-6-+1A @mv4(> AzB )}G"": Get input file,read colors5 6-6-%6-%Av%6.+6-5 A -68,-F:%&,  )}G-%  A0  D1:PICUTE.CROTXTTEXTSVPOHCOLCHACHARFLACHARPOCHARSESCLODUMMPROGIER(5C>l  AXLPB0NZ<( ((@CF@KLRld"( st |A}C + $AdAU0@(*04@8>70@BDJN@RXQ0@\^dh@lrc@v@A}Cu@ @7'{(}AR@+4++(#U++(#| ANTIC MONTHLY DISK AUG. 198A}C 3 |++(#.8++(#Yc @ gr-@vAA}C $ GG;@@,;@ "),;@@-4,;A8?,;@CJ,;@@Nh, "D1:MENU" &&@lp@tv|A}CD:*.* 6,6."3 96 @0=Ji6-%@NX(6.7@\`<@dm,A67@ qu<@ y,.A}C .i67@ <@,.7@ $<@(A,3 6.|67B:,%@EU,.367B:,%@Yg,.G67@ko<@s,.(--A}C@>B:,:7<,4 G67<,..] 6.=:, @BJD67@NR<@V],.7@ae<@ir,]67@v<@Br}C(q-=CLLRDBACSSCBS@/1@89@AHIPQXY`ahipq xy }-}C$ *** PRE-SELECT ***##9@(,<@07,9@;C,J +IO'0@SU[]cJ(ISO-SKETCH by BENJAMI-}CXN BARTELSF( (COLOR(0-15),LUM(0-14)#(F(INPUT BACKGOUND COLOR AND LUM. / @5\b6-hx/6-$@|%-}C*#O#(INPUT CURSOR COLOR AND LUM.- @@.696-@:J?O6-$@N%(|((BOX #1.(INPUT TOP COLOR AND LUM-}C.8 @P U68@<@$,-@(6[|68@:><@BI,-$@Mw%2p"(INPUT RIGHT COLOR AND LUM., @`{I-}C68@ <@,-@)Op68@-1<@5<,-$@@i%<o!(INPUT LEFT COLOR AND LUM.+ @pmuH68@y<@-}C ,-@ No68@#<@'.,-$@2k%F((BOX #2Pn (INPUT TOP COLOR AND LUM.* @owG68@{<-}C@,-A6Mn68@!%<@)0,-$@4^%Zp"(INPUT RIGHT COLOR AND LUM., @bjI68@nr<@v,-A4-}COp68@<@#,-$@'P%_o!(INPUT LEFT COLOR AND LUM.+ AT\H68@`d<@hm,-@fqNo68-}C@ <@,-$@%d*** START POSITION ***nG*("}=TOGGLES BETWEEN POSITIONINGG(CURSOR AND DRAWING BOXE-}GSx4)(!=TOGGLES BETWEEN BOX #1 AND4(BOX #2(=CLEARS SCREEN((PRESS START TO BEGIN F:B2y-}C,"@ AB16-@@"*6-@.4%+@8>16-DWZ A8@[_<@ct,=A8@x<@-}C,ZA8@<@ 4,Z A8@8<<@@Q,=A 8@UY<@]n,ZA8@rv<@z,-}CJAA*** POSITION CURSOR *** F:B2y,@NaAc68@eh,-nv-68@z,--}CB68@,-#W68@',,-@06c6-<N 1 Tx, A@"F:B2y,"@|-}C" A F:B2y,"@!2A`' @6d, AP' A AF:B2y,"@h'%,7Ad-}CAUA A%$I6-R:+4,F"@8>)"@BH)"@ LR)"@V\)"@`nI$(6-T:t,"-}C"(,3%+"@$*"@(/,)"@3=36-%@AM3%+"@QW*"@[b,)"@fp36-&@t'"-}C@ )"@'6-&@) '"@-3)"@7A'6-%@EV S"6-%+"6@Zb,&+"@fu,A6-%+"6@y,&+-}C"A,S@w4 1$6-@8N& F:B2y,@RA"$,*** MAIN LOOP ***6D6-}C-R: ,D"@)"@"()"@,2)"@6:A >R@ F:B2y,"@VrA`J F:B2y,"@vA-}CO F:B2y,"@A!*T A.X*** CHANGE BOX COLORS ***6-@\r& F:B2y,@vA -}C  A/*** DRAW BOX ***K68@3:,-8@>G,368@KR,-8@V_,K68@cj,-8@n,``68@-}C,-@ $+"@,%@%$+"@).,%@29$+"@=B,%@FM$+"@Q],7""@ae*T:kn,"t768@-}C,-@ 7""@*T:%(,".6768@:?,-@CPi6-%@T[$+8@_d,"@hn)8@rw,"@{,&.}C@$+8@,"@!)8@%*,"@.9,6-%@=D$+8@HM,"@QW)8@[`,"@di,&@mt$+8@x, @.}C ,%@ $+8@,"@!&,&@*1$+8@5:,"@>J, @NV6-@Ze!@uiq6-@uu .}C@6-@7!A6-A@w;=Ca*** BOX TOP ***@ek%$@o 8@.}C,"@ A ?+8@!&,"@*0*8@49,"@=C5 AGM? A Q\?+8@`e,"@io*8@sx,"@|.}C5 A ? A $! A & A*0! A 4hL*** LEFT HALF ***V! A ,!/&@l`9 A%#,.}C&@&@9/&@$&@(=e# A0#,&@AG&@Kj$*** RIGHT HALF ***1 A5,%@.}C1/%@&@29 A@#,%@6<&@@H9/%@LR&@Vk# AP#,%@ou&@y.}C'$*** DRAW LEFT SIDE ***@+1%$@5@ 8@DI,"@MQA0U`I+8@di,"@ms*8@w,"@.}C 5 A% ? A'I A0!,@8@05,!@9?" A#CI, A%MS6 A'W]@ A0al,8@pu,"@y" . } CA# , A0\>8@$,"@(.*8@27,"@;A*8@EJ,"@NTH A#X^R A%bh\ A0lu + A#y . } CA% ! A'+ A0H*** TOP WEDGE ***  A#,%@La 9 A# #,&@ek%@ow9,&@{. } C%@  A#0,&@!8 9 A#@#,&@<B%@FN9/&@RX&@\q$ 9 A#P#,&@u%@. } C 9/&@%@L. $ *** MID WEDGE *** ) A% ,%@PZ)/%@^s 9 A%0#,&@w%@. } C 9/&@%@/ 9 A%@#,&@39%@=E9/&@IO%@S $ *** BOTTOM WEDGE *** ) A' .}C ,%@)/%@4 # A'0#,&@8>%@ Bn $ *** DRAW RIGHT SIDE *** @rx%$@|.}C 8@,"@A@* I+8@.3,"@7=*8@AF,"@JP5 A5TZ? A7^dI A@hs @8@w,!@.}C " A3 , A56 A7!'@ A@+6 ,8@:?,"@CI" A3MS, A@Wb \>8@fk,"@ou*8@y,"@.}C *8@,"@H A3"(R A5,2\ A@6? + A3CI A5MS! A7W]+ A@a *** TOP WEDGE *** # .}C A3#,%@%@3 9 A3 #,%@7=%@AI9,%@MS%@Wl  A30,%@p 9 A3@.}C #,%@%@ 9/%@$*&@.C 9 A3P#,%@GM%@QY9/%@]c%@g $ *** MID WE.}CDGE *** 9 A5 #,%@ &%@*29/%@6<%@@U 9 A50#,%@Y_%@ck9/%@ou%@y 9.}C A5@#,%@%@'9/%@+1%@5j $t*** BOTTOM WEDGE ***~9 A7 #,%@nt%@x9/%.}C@ %@&# A70#,%@*0%@ 4C$ AGYD:SKETCH`ahipq xy },XCE780DSATPSCUDRLQBSP10SCORXYEOPWX_`ghopwx}2}C   "# *+ 13@ 9;@AC@IK@QS@Y[@bcjkrsz2}C %&-.56=>Fr&&FROM ANTIC -- THE ATARI RESOURCE Av A62}C-@@6-@#+&@"*$A@.4&@8I$L 6-@MQ@U[--@_agn:(@rL@2}C@ F:@ ,!@X!+&6-&@/3L29?%@ CG@KQ%@U[^@ _agmp@qu@yz 2}C@@CHECK TIME6-R:$0,.6-+"@4<,&+"@@L,J6-+"@PX,&+"@\a,TgZ,b6-%j6-%2}Cr1@e% @):,#O"@>BHV,+6-@CZb<6-@f$8,E6-8,O @`2}C $O"@D(,+6-@,4<6-@8L$8,E6-8,O @`P[%O"@y_ciw,+6-@{<2}C6-@ $8,E6-8,O @`"-&O"@15;I,+6-@xMU<6-@Ym$8,E6-8,O @`q' @ 2 } C (F-@&(@!- 8@15@9PFCHANGE TIME-6"VZ`l,) Ap6GAME OVER?2!}!C 2<"6@22"$*,28< @%<P7> &6-6@TX40^d$@hl@pv> @ z<2"}"C-@ @#@&&- @@*8Aa8,$@<@%@DO!)8,$@SW%@ [f )8,$@jn%@r!)8,$@2#}#C%@ $ i6-&q6-&{ @0(JCHECK FOR PRIZEFa6-8,$@NR%@Vc56-8,$@gk%@oxD68,-}2$}$C S68,-a6-%@)K-@-3329=@`AE@IM@QYG-@]a@%emK m2su{2%}%C-@@ "1  PY 7A,&@EO),%@S[7,&@_iE,%@mwY"@{2&}&CAZ @ dv +@ F76-F:A`,%F:Aa,$AV%@JRK&@VZ@p^f_%@Djn@erv%@E2'}'CF:A`,no%@F.F:Aa,&6-@282">M;6-F:,O@QW&@[aY AeoCHANGE DISPLAY LISTx2(}(C A6-@ 6-@@!'6-@#%/7&@3;$A @?H ALY06-&@]g6-%@k0LEVEL FINISHED2)})CQA&@!+@ &3-@*.@29Q(@=kӡWAA'-@os@wW(@2*}*C YOU HAVE COMPLETED" ?LEVEL a6-%$%!-@CG@KR7(@VgSCORE I-@ko@ sa(@2+}+C ӠLA@#5!A-6-;ABT:GJ,"PVL AZkA@o AP,K2,},CA!@@#+@'/76-@3NKPUT IN NEW PRIZES6'2TZ$@@^b@fj@ntS2@x$@2-}-C@ %@ @@-iA&@19$@=C&@GS$&@Wi$@w 68,-P:H:ot,$@ x,=62.}.C 8,-P:H:,$@ &,V6-8,$@*.%@2?o6-8,$@CG%@K\w1JbuA ^_,&@y2/}/C,%@ -,%@$;,&@(2I6-%@6>U @BW_ Ahl6-@[_12egmouw}20}0CS2@ "(i@,2&@6D$l$t@HL@PV'-@Z\bi=(@mTIME: O@21}1C @ Y@e6-@#AtDRAW SCREENS ""GdA@s ,/,@hr&+/@v&9,22}2C@F &G/@F&],@#)&@F-5&s/@9?&@FC[& A)ak6-%@o$) A23}3C 6-@  """AAs ,/,@FEO&+/@FS[&A,@_e&@Fiq&W/@u&@F24}4C &e,@&s/@6& A`)!<F6-%@Ja$) A`g"@ek%@ou&@y$525}5C&@ $GAY@4 &Q A*2]6-@6<g @@MG6-%@Qa'A&@em$=@qw&@{$26}6CG A WW2,10,14,22,26,38,0,1,2,10,0,1,2,14,0,1,2,22,0,1,2,26,0,0,3,7,11,15,19,27,0,3,3,11$$0,2,3,11,0,1,3,19,0,3,27}7G3,21,0,0BB2,10,14,22,26,38,0,1,26,38,0,1,22,40,0,1,2,10,14,38,0,1,2,38@@0,0,3,7,11,15,19,27,0,2,3,15,0,1,3,15,0,2,3,128}8G1,0,1,3,7,0,0bb2,10,14,22,26,38,0,3,2,22,26,38,0,1,2,34,0,0,3,7,11,15,19,23,0,5,3,15,0,1,3,15,0,3,15,23,0,0cc2,10,14,29}9G22,26,38,0,1,22,40,0,1,14,40,0,1,2,6,10,38,0,1,6,38,0,0,3,7,11,15,19,23,0,1,15,19,0,13,15,0,1,3,11,0,3,0,0>>2,10,142:}:G,22,26,38,0,1,2,22,0,1,6,26,0,1,2,38,0,1,6,38,0,0!113,7,11,15,19,27,0,6,3,11,0,3,3,15,19,23,0,0&TT2,10,14,22,26,38,0,1,2;};G2,26,30,40,0,1,6,30,34,40,0,1,2,34,0,1,6,38,0,1,10,38,0,0+HH3,7,11,15,19,27,0,1,19,23,0,5,3,7,0,1,7,11,0,1,11,15,0,1,15,192<}<G,0,00JJ2,10,14,22,26,38,0,1,2,26,30,40,0,1,6,30,34,36,0,1,2,34,0,1,6,36,0,05HH3,7,11,15,19,27,0,1,19,23,0,5,3,7,0,1,7,12=}=C"1,0,1,11,15,0,1,15,19,0,0X16-(8A%>W1GAME OVERb6-%@[k'A&@ow$=@{2>}>C&@$V6-8,$@%@#0o6-8,$@48%@<F},&@JT,%@X`,&@dn,%@rg 2?}?C@ Al A0vqA&@4:!+@>L3A@VPVE-@Z^@biq(@my} 2@}@C SCORE %.-@"@&-.(@1S ^F:B2y,"@Wi$A06-ou<6-{H2A}AC6-A T6-^ A < AP=AYBK"6-6@OW.6-A[w=6-F:A,^6-&@{32B}BC-$AV+%@&,$AV?,VC ^CLEAR MEMORY FOR SCREENSGG9@Za,9@el,9@pw,9@{,2C}CC9@ ,9@ ,68@$),-@-5-68@9>,-@BJB68@NS,-@W_W68@ch,-@ltl68@x,-@2D}DC 68@,-@!68@%*,-@.668@:?,-@CN68@RW,-@[c-68@gl,-@pxB68@|,2E}EC-@W68@,-@%l68@).,-@2:68@>C,-@GO68@SX,-@\d68@hm,-@q68@2F}FC,-@ -68@,-@!)B68@-2,-@6>W68@BG,-@KSl68@W\,-@`h68@lq,-@u68@2G}GC ,-@ 68@,-@"7A A;PD:MANIACWX_`ghopwx}0LHCZJK-?BANDACCBANDBANDBANDBANDCOLCOLCOLCOLPMBASRAMTOPVPOKEOHM@acikrsz6I}IC %& -. 56 => EF MNUV]^efmnuv| 6J}JG* RESISTOR VALUE MODEL* BY Charles D. Moore&&* use the '1 2 3 4' keys to show(&&* different colors for each 6K}KCband2&&9@,;@7W,;A,<$$* LOAD BAND COLORS IN TO ARRAYF(-]a@e"$68,-( PS6L}LCBET INITIAL BAND COLORSZ##* OPEN THE KEYBOARD FOR INPUTd36-HN6-TZ'6-`h36-@lvn##@z@6M}MC K:xDEFINE COLOR REGISTERS6-A6-A6-A6-A * BUILD STRIN6N}NCEG WITH COLORS A* DISABLE THE CURSORAR@IR +@V* DRAW THE RESISTOR A6O}OCD6-BBy6-A* ESTABLISH P/M AREA(6-F:,&@H(6-AV$$$* SET P/M TO 2 LINE RESOLUT6P}PCION'AY@F&'B2w@*Y"* SET P/M FIELD PRIORITY,A#@]6* CLEAR P/M AREA@+-%6Q}QCA%A$'@+ JSET PLAYER SIZEST/-FJ@N\+B2V%b/ ^ A hSET 6R}RCUP PLAYERSr6-@T(|-%@,"%A%%A@%%Ah%%A%6S}SC5 SET HORIZONTAL POSITIONSB2H@9B2IAB2PAB2QA#$ 6T}TCT A $* SEE NOTE ON COLORSMAIN PROGRAM STARTS HERE A )@X * RING BUZZER ON WRONG KEY6U}UC0 @I )!@R:&(>:AS,0 A &6-&@H>Y0''AAA]A:* INCREMENT BAND C6V}VCOLORD6-%@, A N6-%@0G A X6-%@Kb A b6-%@fl A 0v* CL6W}WC)EAR WINDOW#(>:A%,#AR@-\$$* ASSIGN COLOR NAMES TO WINDOW467@`m,. %67@7q,. 467@6X}XC,.??67@<@ (,.7$@ ,0%@4:<$@ >B%@ FR,??67@VZ<@^g,.7$@ ko%@sy<$@ }6Y}YC%@ ,??67@<@' ),.7$@ -1%@5;<$@ ?C%@ GS,??67@(W[<@6_h,.7$@ lp%@t<$@ 6Z}ZC%@ (,(READ BANDS%%2.:%%%@>B@FWAR@[((Resistor value is 6[}[C 6-+$@,%!@ 6A0 6-$+@:L#,6-P:%?PP\, % A`( % A`*56\}\C C6-'A=+( K ohms5 A`4.6-P:'CAg,$( Meg ohms. A`>'"@ku6-$?y' 6]}]CAPH6-$?FR( \( Tolerance isf#"@JZ( 5%.# A ^sp( 10%.z//2y+%6^}^C %%,$@@@%%%2+-35;=Cr ATEST FOR BAND MAX!@ v6-6_}_C!@ 6- +!@/56-;F!@JR6-@Va @em6-@q* DISA6`}`CBLE BREAK KEY'@A'B7tA$SET BAND COLORS 8, 8, 8, 86a}aC$,$$.DRAW RESISTOR80@(,@04@8AB0@EI@ MQ@U^L0@bf@ jn@ryV0}6b}bC @` @*j-@.2@6C"t/,@ GM&@QY%//@`]c&@gy%~  @}6c}cC -@@$"/,@(.&@2:%//@>D%@HZ% 1 @^d,@hl@"pv1,@z@6d}dC#1 @, @"$*1/@.2@"6=',CG@#KQ'/@UY@#]f',@ajn@"rx'/@y|6e}EeC@"',@a@#"'/@y&*@#.$DEFINE COLOR STRING##* CLEAR STRING FOR COLOR NAME467@6f}fC ,. %67A,. 467@$0,. -6:@>R"3367$@ VZ%@^d<$@ hq%B:,%@u,.(6g}gG 2$<++0,64,71,41,254,231,147,117,7,15,31,11F* COLORS FOR WINDOWP))BLACK,BROWN,RED,ORANGE,YELLOW,GREENZ((BL6h}hGUE,VIOLET,GRAY,WHITE,GOLD,SILVERd2,1,0,0,0,0,1,2n0,1,2,2,2,2,1,0x* PLAYER DATA==252,126,126,126,63,63,63,66i}iCZ3,63,63,63,63,126,126,126,252 D:RESISTORLCOLCOLCOLPMBASRAMTOPVPOKEOHM@acikrsz40jG5000 REM SUBROUTINE TO FIND COLORS5010 REM * USE THIS TO ADJUST COLORS5020 REM * TO YOUR MONITOR OR TV5030 REM * INSERT LI:k}kGNE "505 GOTO 5000"5040 REM * PLACE NEW VALUES IN BAND(A)5050 GOSUB 10205060 REM * UP/DOWN FOR SMALL CHANGE5070 REM * LEFT:l}lG/RIGHT FOR LARGE CHANGE5080 REM * BUTTON FOR EXTRA BIG CHANGE5090 REM * VALUE FOR COLOR WILL APPEAR5100 REM * IN THE WINDO:m}mGW5110 ? "}"5120 S=STICK(0)5130 IF STRIG(0)=0 THEN BC=BC+50:GOTO 51905140 IF S=15 THEN 51205150 IF S=14 THEN BC=BC+15160:n}nG IF S=13 THEN BC=BC-15170 IF S=11 THEN BC=BC+105180 IF S=7 THEN BC=BC-105190 IF BC<0 THEN BC=2555200 IF BC>255 THEN BC=0:o}oG5210 POKE COL1,BC5220 ? :? :? BC5230 GOTO 5120 THIS TO ADJUST COLORS5020 REM * TO YOUR MONITOR OR TV5030 REM * INSERT LI81pCoEiͩkΩ͙kCop j`j {j`Hi͝Νh`}>q}qCoL"UNEM:D"NURͩkΩ͙kCop j`j {j`Hi͝Νh`}<rC,.0$@'(''7@+/<@3?,4FREE@CL- @ Pi2() <@mF''7@Bs}sC<@ ,4FREE@"K @ &1P(7@59<@=N,)|U @0R[W'!-@6_f+'@jo,%@s' |Z+Bt}tC+(#|& 0|[ ( |8 = F P|\++(#qd-(-("Bu}uC1 Select HELP.BAS for information.xAR7@[@DH@9LR'-@VZ@"^dC(p SELECTIONM Bv}vCA0Q[ B4P:,A00"@8B&6.7@FJ<@Ni,0 AELB6.7+&@mr,$@v%@Bw}wC<+&@ ,$@%@$,L B(337@7;<@?N,4 36.7@RV<@Zf,!7@jn<@r,4DOS!.Bx}xC0 6.-@?B:,07<,4 AH67B:,%@Cr,.7<,   6.! 6.D1:!67B:,%@v,.?By}yC AR@'-@@"#)? 1 DLOADING ? AHN@RV@9Z`1@dh@lv5%? BzBz}zCK-@ @"-  0CANNOT RUN 7 @4:A B>lK A0D1:MENU."( st |@Y{C<@ ,4FREE@"K @ &1P(7@59<@=N,)|U @0R[W'!-@6_f+'@jo,%@s' |Z+B|}|C+(#|& 0|[ ( |8 = F P|\++(#qd-(-("B}}}C1 Select HELP.BAS for information.xAR7@[@DH@9LR'-@VZ@"^dC(p SELECTIONM B~}~CA0Q[ B4P:,A00"@8B&6.7@FJ<@Ni,0 AELB6.7+&@mr,$@v%@B}C<+&@ ,$@%@$,L B(337@7;<@?N,4 36.7@RV<@Zf,!7@jn<@r,4DOS!.B}C0 6.-@?B:,07<,4 AH67B:,%@Cr,.7<,   6.! 6.D1:!67B:,%@v,.?B}C AR@'-@@"#)? 1 DLOADING ? AHN@RV@9Z`1@dh@lv5%? BzB}CK-@ @"-  0CANNOT RUN 7 @4:A B>lK A0D:MENU"( st |@WC%J WELCOME TO THE ANTIC MONTHLY DISK n Most of the F}Gprograms on this disk arewritten in Atari BASIC. Some requirespecial hardware or specific instruc-tions. We recommend you F}Grefer to thecorresponding issue of ANTIC forcomprehensive documentation. If youwish to order a back issue, or needsubscriF}Gption information, contact usat (415) 957-0886 or, for credit cardorders, dial (800) 227-1617, Ex. 133.In California,(800)F}C 722-3545, Ex. 133XXXThe menu that appeared on the screenwhen you booted the disk will onlyrun programs with a .BAS exF}Gtender.If you try to run a program and the response is 'cannot run Filename',then check the file extender withthe followiF}C4ng list:XXX.BAS BASIC saved program, use menu; sRUN or LOAD and RUN..LST BASIC listed program, ENTERz theF}C*n RUN..EXE Assembly language 'Load and1 NGo' file. Remove BASIC, bootU pDOS, type L then enter thew filenaF}C)me..ASM Assembly language source code0 Mfrom Atari Assembler Editor.T Must be assembled..M65 Same as .ASM onF}CRly MAC/65..SYN Same as .ASM only Synassembler.AMC Same as .ASM only AMACXXXV.OBJ Machine language object file. F}C $Same as .EXE but not 'Load and+ GGo'. Refer to correspondingN article..ACT ACTION! source code..SYS ResF}CBerved for DOS system files..PLT Pilot language, requires PilotI xcartridge..LGO Logo language, requires Logo} F}C0 cartridge..TXT Text file. Usually accessed7 Nby another program.XXXRAll programs from ANTIC issues datedprior F}Gto August 1984 were reproducedfrom ANTIC's Archive. We have up-dated them from our HELP columns and most are compatible wiF}Gth the XLmachines. We have worked to insurethat our programs operate as pub-lished, but we consider all our software lisF}Cytings to be works in progress which we encourage you, thereader, to personalize and enhance.Good luck, and ENJOY! } F}C J-ANTIC ED WELCOME TO THE ANTIC MONTHLY DISK n Most of the D"CiwLINEA;xx ;A ,;@?P,; (}@T[;@_c@gio D:DOC.TXTJ}C A (@)2lB:,!@-5-7@9=<@AT,4XXX0(3(E-@X\@"`X( ӠΠ\b(}J}Cl @@ <( @@%da@)/ B39*-@=A@"ER("ΠҠՠҠˠҠVa%D:MENUJ}CD:HELPLINEA;xx ;A ,;@?P,; (}@T[;@_c@gio D:DOC.TXTHCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCE