G@L|}6CD l0C)HCC WhL/h `CmCDiD`  R@PG1  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}~}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ޥ<<8ywx}}+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- 165ɛ+,' 20*.. өw2 1``2TOO MANY DIGITSINVALIDS}SG HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4;uT}TG HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4;uUC%J WELCOME TO THE ANTIC MONTHLY DISK n Most of the V}VGprograms on this disk arewritten in Atari BASIC. Some requirespecial hardware or specific instruc-tions. We recommend you W}WGrefer to thecorresponding issue of ANTIC forcomprehensive documentation. If youwish to order a back issue, or needsubscriX}XGption information, contact usat (415) 957-0886 or, for credit cardorders, dial (800) 227-1617, Ex. 133.In California,(800)Y}YC 722-3545, Ex. 133XXXThe menu that appeared on the screenwhen you booted the disk will onlyrun programs with a .BAS exZ}ZGtender.If you try to run a program and the response is 'cannot run Filename',then check the file extender withthe followi[}[C4ng list:XXX.BAS BASIC saved program, use menu; sRUN or LOAD and RUN..LST BASIC listed program, ENTERz the\}\C*n RUN..EXE Assembly language 'Load and1 NGo' file. Remove BASIC, bootU pDOS, type L then enter thew filena]}]C)me..ASM Assembly language source code0 Mfrom Atari Assembler Editor.T Must be assembled..M65 Same as .ASM on^}^CRly MAC/65..SYN Same as .ASM only Synassembler.AMC Same as .ASM only AMACXXXV.OBJ Machine language object file. _}_C $Same as .EXE but not 'Load and+ GGo'. Refer to correspondingN article..ACT ACTION! source code..SYS Res`}`CBerved for DOS system files..PLT Pilot language, requires PilotI xcartridge..LGO Logo language, requires Logo} a}aC0 cartridge..TXT Text file. Usually accessed7 Nby another program.XXXRAll programs from ANTIC issues datedprior b}bGto August 1984 were reproducedfrom ANTIC's Archive. We have up-dated them from our HELP columns and most are compatible wic}cGth the XLmachines. We have worked to insurethat our programs operate as pub-lished, but we consider all our software lisd}dCytings to be works in progress which we encourage you, thereader, to personalize and enhance.Good luck, and ENJOY! } e}eC J-ANTIC ED WELCOME TO THE ANTIC MONTHLY DISK n Most of the "fCiwLINEA;xx ;A ,;@?P,; (}@T[;@_c@gio D:DOC.TXT g}gC A (@)2lB:,!@-5-7@9=<@AT,4XXX0(3(E-@X\@"`X( ӠΠ\b(} h}hCl @@ <( @@%da@)/ B39*-@=A@"ER("ΠҠՠҠˠҠVa%D:MENU i}iCD:HELPLINEA;xx ;A ,;@?P,; (}@T[;@_c@gio D:DOC.TXT jC>l  AXLPB0NZ<( ((@!CF@KLRld"( st |k}kC + $AdAU0@(*04@8>70@BDJN@RXQ0@\^dh@lrc@v@l}lCu@ @7'{(}AR@+4++(#U++(#| ANTIC MONTHLY DISK DEC. 198m}mC 3 |++(#.8++(#Yc @ gr-@vAn}nC $ GG;@@,;@ "),;@@-4,;A8?,;@CJ,;@@Nh, "D1:MENU" &&@lp@tv|o}oCD:*.* 6,6."3 96 @0=Ji6-%@NX(6.7@\`<@dm,A67@ qu<@ y,.p}pC .i67@ <@,.7@ $<@(A,3 6.|67B:,%@EU,.367B:,%@Yg,.G67@ko<@s,.(--q}qC@>B:,:7<,4 G67<,..] 6.=:, @BJD67@NR<@V],.7@ae<@ir,]67@v<@r}rC,.0$@'(''7@+/<@3?,4FREE@CL- @ Pi2() <@mF''7@s}sC<@ ,4FREE@"K @ &1P(7@59<@=N,)|U @0R[W'!-@6_f+'@jo,%@s' |Z+t}tC+(#|& 0|[ ( |8 = F P|\++(#qd-(-("u}uC1 Select HELP.BAS for information.xAR7@[@DH@9LR'-@VZ@"^dC(p SELECTIONM v}vCA0Q[ B4P:,A00"@8B&6.7@FJ<@Ni,0 AELB6.7+&@mr,$@v%@w}wC<+&@ ,$@%@$,L B(337@7;<@?N,4 36.7@RV<@Zf,!7@jn<@r,4DOS!.x}xC0 6.-@?B:,07<,4 AH67B:,%@Cr,.7<,   6.! 6.D1:!67B:,%@v,.?y}yC AR@'-@@"#)? 1 DLOADING ? AHN@RV@9Z`1@dh@lv5%? Bzz}zCK-@ @"-  0CANNOT RUN 7 @4:A B>lK A0D1:MENU."( st |Y{Cn`aIARTRIGRDSTAPESPIKSLANTFLASLANDDXYXYCONSOLDETYPTILTSPIKESLANTSPIKELBwy@}|}|C #$+,34;< CD KL ST [\ cdklst{}}}C@&'-/@57@>?FGNOVW]ANTIC MAGAZINE##JERRY O~}~CX'NEILL -- 26 SEPT 1983RANDOM COLOR BACKGROUNDS JUMP TO SETUP ROUTINE A\c;;PLACE DRAWING ROUTINE NEAR }C#START OF PROGRAM FOR SPEEDd+ +@$'-@19+"@=RA nc%6-P:H:X],$@af,%@jt?6-P:H:z,$}C@ ,M0@c0@'%@+JwDRAW MAIN ARMSxi-@NR@Vd),A`@hne/@r$8<@}C,%A`@$8<@#,%@'Qi DRAW SPIKES ON ARMS-@Up6-8',"@t6-@}C&-@@))6-8</>%,)6-8<@BV%,96-$8<@Zq,%A`96-$8<@u,%@}C-6-$8<@',%-6-$8<@+?,%-6-$8<@CT,%-6-$8<@X,% ,//  }C 3-@@P#$0' 3@4BF:,@FYAP3-@]a@Pek#q' 3@}C( CHANGE SNOWFLAKE TYPE A,HSETUP SECTIONE +@LZAR@^b90hl@ pt@xE6-}CB2y--@@#-(@'= SNOWFLAKESS-@ AE@IP%(@T_by7-@cg@ krS(@vjerr}Cy o'neill @B -&*@.2E28GA!&+$@KP,@TX@\bs2@fuA &+$@y,@}C @ 2@@`#@'+@/5,;H -NR@VZE2`oA!&+$@sx,@|}C@ q2@@`%$@#'@+/@392@=A@YEK%$@OS@W[@_e,@i $ -@}C 6@N2+A!&+$@/4,@8<@@F|2@JYA &+$@]b,@fj@nt2@x@`}C@ @,@. . -@24:?6@CGN2M\A!&+$@`e,@im@qwz2@{}C@` %$@@@ &2@*.@Y28%$@<@@DH@LP,Vc 8i%2ikqsy}C G2@ &,i2@028:@BHB9$(EACH SNOWFLAKE IS DIFFERENT.'(9( PRESS }CԠLF:,@AV[ (}3($AFTER EACH IS DONE,THE BUZZER SOUNDS[(#PRESS Ԡ FOR ANOTHER SNOWFLAKE`9}C69@ <@,9@"<@&-,9@(1@,9jS-@DH@LV368<@Zc,-G:$@`gr,O68<@v,-E:$}C@`,S tB-@"*+-@.2@6/":68<,-> B ~552,3,4,5,6,1,3,4,5,6,1,2,6,1,2,3,4,5,5,6,1,}C2,3,41-@AA 1(PRESS Ԡ NOW3-@EI@PMS#Ye' 3@iwF:,@{}CA6-cAA12 DIFFERENT SNOWFLAKE TYPES--USE A DIFFERENT ONE EACH TIME)6-%@go"@s)6-@}CsffST=STEP LENGTH;TAPER=1 IS TAPERED,=2 IS NOT;SLANTFLAG=1 IS UPSWEPT,=2 IS DOWNSWEPT,=3 ALTERNATES46-@w('}C@"P:'@,46-@*Y6-@.6M"@:@)"@DJ)"@NT)"@X^)"@bh)"@ltY6-@x?}C6-@ !@'6-@"*3!@.6?6-@:C'6-IQ"@U]'6-@a..LOAD RANDOM LENGTHS OF}C4 SPIKES INTO ARRAYA`ApS-@8<@@O'E68,-++@S^&+$,,'@bg,$H:m,I S A}C 7-@@#'368,-@ '+$H:1?,7 @wCEKT  AXyD1:SNOWFLAK.NAS@}vG10 J:*TITLEPAGE20 *PLAYER [THE PLAYER IS AN "X"30 C:#T=%T8 [KEEP TRIGGER VALUE AS A VARIABLE40 GR(#T=0)+(@B1363=0):DRAWTO}G %X+#B,%Y-#A [DRAW IF TRIGGER NOT PRESSED OR PEN IS ERASE50 GR(#T=1)*(@B1363<>0):FILLTO %X+#B,%Y-#A [FILL IF TRIGGER PRESSED}G AND NOT ERASE60 C:#A=#A*2 [SCALING FACTOR70 C:#J=#J+#A [COMPUTE NEW VERTICAL VALUE FOR PLAYER80 C:#Y=#J [KEEP IT AS #Y90}EG C:@B#Y=0 [THROUGH LINE 270 - MOVE PLAYER TO NEW VERTICAL POSITION100 C:#Y=#J+1110 C:@B#Y=0120 C:#Y=#J+2130 C:@B#Y=3414}G0 C:#Y=#J+3150 C:@B#Y=20160 C:#Y=#J+4170 C:@B#Y=8180 C:#Y=#J+5190 C:@B#Y=8200 C:#Y=#J+6210 C:@B#Y=20220 C:#Y=#J+7230}G C:@B#Y=34240 C:#Y=#J+8250 C:@B#Y=0260 C:#Y=#J+9270 C:@B#Y=0280 C:#X=#X+#B [COMPUTE NEW HORIZONTAL POSITION290 C:@B5324}G8=#X [POKE IT INTO PLAYER/MISSLE BASE300 C:#A=0 [RESET A310 C:#B=0 [RESET B320 C:@B1363=#C [POKE REMINDER OF WHICH PEN TO }GUSE330 *MAINLINE [CHECKS JOYSTICK340 C:@B77=0 [SET ATTRACT FLAG TO KEEP SCREEN FROM CHANGING COLORS350 U(@B764<255):*COLOR}GCHANGE [CHANGE COLOR IF THERE IS KEYBOARD IMPUT360 A:=%J0 [GRAB VALUE OF JOYSTICK370 M: 1 , 9 , 8 , 10 , 2 , 6 , 4 , 5 [MAT}GCH VALUE OF JOYSTICK380 JM:*NORTH,*NE,*EAST,*SE,*SOUTH,*SW,*WEST,*NW [JUMP TO APPROPRIATE ROUTINE FOR DIRECTION TRAVELED390}C J:*MAINLINE P[THROUGH LINE 690-400 *NORTH C:#A=-1 [COMPUTE NEW410 J:*PLAYERV r[POSITION IN420 *NE C:#A=-1v [APPROP}CRIATE430 C:#B=1 [DIRECTION440 J:*PLAYER450 *EAST C:#B=1460 J:*PLAYER470 *SE C:#A=1480 C:#B=1490 J:*PLAYER500 }G*SOUTH C:#A=1510 J:*PLAYER520 *SW C:#A=1530 C:#B=-1540 J:*PLAYER550 *WEST C:#B=-1560 J:*PLAYER570 *NW C:#A=-1580 C:#B}G=-1590 J:*PLAYER [JUMP BACK TO MOVE PLAYER AND DRAW LINE600 *SETUP [SET UP PLAYER/MISSLE GRAPHICS610 GR:CLEAR;GOTO 0,0;PEN}CQ YELLOW620 C:#C=@B1363 [PUT CURRENT PEN VALUE IN #C630 T:640 T: INITIALIZING W. PLEASE WAIT650 C:@B559=62 [ENABLE PM}GG(32)+ONE LINE PLAYER RES.(16)+USE PLAYERS & MISSILES(12)+STANDARD PLAYFIELD(2)660 C:#I=@B106-24 [RESERVE 6K FOR PMG670 C:@}GB54279=#I [PMBASE680 C:@B53256=0 [SIZE OF PLAYER 0 - NORMAL, 1 - DOUBLE, 3 - QUAD. (2=0)690 C:#J=#I*256+1024 [ADDRESS OF P}GLAYER'S 256 BYTES700 C:#X=0 [#X IS TEMPORARILY A LOOP COUNTER710 *CLEARPLAYER720 C:@B#J=0730 C:#X=#X+1740 C:#J=#J+1750 }GJ(#X<256):*CLEARPLAYER760 C:#J=#I*256+1024+124 [ADDRESS OF PLAYER 0 IN RAM770 C:@B623=1 [PRIORITY SELECTION - PLAYER 0 -3 H}GAS PRIORITY OVER ALL THREE BACKGROUND COLORS780 C:#X=124790 C:@B53248=124 [PLAYER 0 HORIZONTAL POSITION800 C:@B704=14810 }GC:@B53277=3 [2 TURN ON PLAYER + 1 TURN ON MISSLES820 T:}830 U:*INSTRUCTIONS840 J:*PLAYER850 *COLORCHANGE860 GR(@B764=11}G):PEN UP [CHANGE PEN USED UPON KEYBOARD INPUT870 GR(@B764=21):PEN BLUE880 GR(@B764=40):PEN RED890 GR(@B764=42):PEN ERASE}G900 GR(@B764=43):PEN YELLOW910 GR(@B764=146):PEN YELLOW;CLEAR920 U(@B764=146):*INSTRUCTIONS930 T(@B764=21)+(@B764=40)+(@B}G764=42)+(@B764=11)+(@B764=43)+(@B764=146):\940 C:#C=@B1363 [SAVE NEW PEN VALUE950 C:@B764=255 [RESET KEYBOARD BUFFER960}C( E:970 *INSTRUCTIONS980 T: R - PEN RED0 NU - PEN UP990 T: B - PEN BLUEU uE - ERASE1000 T: Y - PEN YELLOWz CTR}GL C - CLEAR1010 E:1020 *TITLEPAGE1030 GR:QUIT1040 POS:11,51050 T:TURTLE SKETCHPAD1060 POS:12,81070 T:ANTIC Volume 210}CO80 POS:15,91090 T:Issue 91100 R:BY KATHY AND PHIL BERGH1110 POS:2,141120 T:T DRAW using a joystick in Port 1. To FILL,}G press the trigger. You change the PEN colors by \1130 T:pressing R for RED, B for BLUE, Y for YELLOW, U for UP, and E for E}GRASE. You need not press return. \1140 T:To CLEAR the screen, press CONTROL and C.1150 POS:6,221160 T:Press RETURN to cont}C$inue \1170 A:1180 J:*SETUP1190 R:A*y1200 R:Ӻ1210 R: #X - HORIZONTAL POSITION OF} }C 6PLAYER1220 R: #Y - VERTICAL POSITION OFH PLAYER1230 R: #I - PAGE NUMBER OF PMBASE1240 R: }C #J - ADDRESS OF PLAYER 0 IN, PRAM1250 R: #A - VERTICAL POSITIONe INCREMENT1260 R: #B -}C HORIZONTAL POSITION' RINCREMENT1270 R: #C - SAVED VALUE OF THEf COLOR REGISTER IN USE1}G280 R: #T - SAVED VALUE OF TRIGGERER IS AN "X"30 C:#T=%T8 [KEEP TRIGGER VALUE AS A VARIABLE40 GR(#T=0)+(@B1363=0):DRAWTO%Cl5 REM Ӡ͠ӠԠƠҭԠӠĠΧΠ֮®Ġ̠ԠΠΠӠr10 DIM RAM}G$(1),ROM$(1)20 RAMTOP=PEEK(106):POKE 106,RAMTOP-430 GRAPHICS 040 VT=PEEK(134)+256*PEEK(135):AT=PEEK(140)+256*PEEK(141)50 }GGRTOP=RAMTOP-4:RAMLOC=GRTOP*25660 OFFRAM=RAMLOC-AT70 LENHI=INT(1025/256):LENLO=INT(1025-(LENHI*256))80 OFFRAMH=INT(OFFRAM/}G256):OFFRAML=(OFFRAM-(OFFRAMH*256))90 POKE VT+2,OFFRAML:POKE VT+3,OFFRAMH100 POKE VT+4,LENLO:POKE VT+5,LENHI110 POKE VT+6,}GLENLO:POKE VT+7,LENHIOFFRAMH*256))90 POKE VT+2,OFFRAML:POKE VT+3,OFFRAMH100 POKE VT+4,LENLO:POKE VT+5,LENHI110 POKE VT+6,Cm4 REM Ӡ͠ӠԠƠҭԠӠĠΧΠ֮®Ġ̠ԠΠΠӠήr5 REM ANTI }CC MAGAZINE10 REM .*720 REM *Q [*30 REM *b mODD MAN OUTu *40 REM }C * BY J*50 REM * JOHN AND MARY HARRISON *60 REM *d n*70 REM *z FOR }C *80 REM * )ANTIC MAGAZINE/ 9*90 REM *S \*95 REM x*120 }GDIM RAM$(1),ROM$(1),OBJECT$(264),GEO$(264),E$(264),BOX$(16),INDEX(8)140 DIM Z$(1)200 MEMTOP=PEEK(106):GRTOP=MEMTOP-8:POKE 1 }G06,GRTOP:GRTOP=GRTOP+4:GRAPHICS 2220 SETCOLOR 2,4,4:SETCOLOR 4,4,4:SETCOLOR 0,0,14:SETCOLOR 1,0,14:POKE 752,1240 POSITION 4 }G,2:? #6;"ODD MAN OUT"260 POSITION 9,4:? #6;"BY"280 POSITION 0,6:? #6;"JOHN & MARY HARRISON"300 ? "Setting up the game, ple }Gase wait."340 AT=PEEK(140)+256*PEEK(141):VT=PEEK(134)+256*PEEK(135)360 RAMLOC=GRTOP*256:OFFRAM=RAMLOC-AT:OFFROM=(14*4096)-A }GT380 LENHI=INT(1025/256):LENLO=INT(1025-(LENHI*256))400 OFFRAMH=INT(OFFRAM/256):OFFRAML=INT(OFFRAM-(256*OFFRAMH))420 OFFRO }GMH=INT(OFFROM/256):OFFROML=INT(OFFROM-(256*OFFROMH))440 POKE VT+2,OFFRAML:POKE VT+3,OFFRAMH460 POKE VT+4,LENLO:POKE VT+5,LE }GNHI480 POKE VT+6,LENLO:POKE VT+7,LENHI500 POKE VT+10,OFFROML:POKE VT+11,OFFROMH520 POKE VT+12,LENLO:POKE VT+13,LENHI540 P }GOKE VT+14,LENLO:POKE VT+15,LENHI580 FOR I=1 TO 16:READ X:BOX$(I,I)=CHR$(X):NEXT I620 FOR I=1 TO 256:READ X:OBJECT$(I,I)=CHR }G$(X):NEXT I640 FOR I=1 TO 256:READ X:GEO$(I,I)=CHR$(X):NEXT I660 FOR I=1 TO 256:READ X:E$(I,I)=CHR$(X):NEXT I680 FOR I=0 T }GO 7:READ X:INDEX(I)=X:NEXT I1320 RAM$=ROM$1340 RAM$(473,488)=BOX$1440 CHOICE=11460 REM SETUP GAME LEVELS I,II,III1480 RA }GM$(145,208)=OBJECT$(1,64):RAM$(257,448)=OBJECT$(65,256):GOTO 15401540 REM PLAY GAME FOR LEVELS 1,2,31560 GRAPHICS 2:POKE 75 }G6,GRTOP:REM CALLUP ALTERNATE CHARACTER SET1580 FOR I=0 TO 3:SETCOLOR I,0,14:NEXT I:SETCOLOR 4,CHOICE*2,81600 SETCOLOR 2,CHO }GICE*2,81620 REM POKE 16,112:POKE 53774,1121700 FOR K=1 TO 31720 FOR J=0 TO 11740 FOR I=0 TO 31760 P=INDEX(I+J*4)+321780 }G POSITION I*4+3,5:? #6;CHR$(P);CHR$(P+1)1800 POSITION I*4+3,6:? #6;CHR$(P+2);CHR$(P+3):POSITION I*4+3,8:? #6;"[":NEXT I1820 }G INPUT Z$:NEXT J1840 IF K=1 THEN RAM$(145,208)=GEO$(1,64):RAM$(257,448)=GEO$(65,256):GOTO 18801860 IF K=2 THEN RAM$(145,208 }G)=E$(1,64):RAM$(257,448)=E$(65,256)1880 NEXT K1900 GRAPHICS 0:END 4440 REM BITMAPS4460 DATA 255,129,129,129,129,129,129,2 }G554480 DATA 255,255,255,255,255,255,255,2554620 DATA 1,1,3,3,7,255,63,314640 DATA 128,128,192,192,224,255,252,2484660 DAT }GA 15,31,63,62,120,112,64,1284680 DATA 240,248,252,124,30,14,2,14700 DATA 0,1,1,3,7,3,3,74720 DATA 0,128,128,192,224,192,19 }G2,2244740 DATA 31,3,7,31,127,1,1,14760 DATA 248,192,224,248,254,128,128,1284780 DATA 1,2,4,8,16,32,63,324800 DATA 128,64, }G32,16,8,4,252,44820 DATA 32,32,35,34,34,34,34,624840 DATA 4,4,196,68,68,68,68,1244860 DATA 0,1,3,5,5,9,9,174880 DATA 0,0, }G0,128,128,64,64,324900 DATA 17,33,63,1,63,16,8,154920 DATA 32,240,0,0,252,8,16,2404940 DATA 1,1,2,2,2,2,2,24960 DATA 128, }G128,64,64,64,64,64,644980 DATA 2,2,2,6,10,18,18,345000 DATA 64,64,64,96,80,72,72,685020 DATA 0,3,3,1,1,1,7,15040 DATA 0,1 }G28,128,0,0,0,192,05060 DATA 1,1,1,33,97,17,9,75080 DATA 0,0,0,8,12,16,32,1925100 DATA 0,0,0,0,16,32,64,2555120 DATA 0,0,0 }G,0,0,7,8,2555140 DATA 255,64,32,16,0,0,0,05160 DATA 255,8,7,0,0,0,0,05180 DATA 0,60,66,129,128,128,128,1285200 DATA 0,60, }G66,129,1,1,1,15220 DATA 64,64,32,16,8,4,2,15240 DATA 2,2,4,8,16,32,64,1285260 DATA 1,2,4,8,16,32,64,1285280 DATA 128,64,3 }G2,16,8,4,2,15300 DATA 128,64,32,16,8,4,2,15320 DATA 1,2,4,8,16,32,64,1285340 DATA 255,128,128,128,128,128,128,1285360 DAT }GA 255,1,1,1,1,1,1,15380 DATA 128,128,128,128,128,128,128,2555400 DATA 1,1,1,1,1,1,1,2555420 DATA 15,16,32,64,128,128,128,1 }G285440 DATA 240,8,4,2,1,1,1,15460 DATA 128,128,128,128,64,32,16,155480 DATA 1,1,1,1,2,4,8,2405500 DATA 0,0,0,0,0,0,0,055 }G20 DATA 1,3,5,9,17,33,65,1295540 DATA 1,2,4,8,16,32,64,2555560 DATA 1,1,1,1,1,1,1,2555580 DATA 3,4,8,8,8,16,16,165600 DAT }GA 192,32,16,16,16,8,8,85620 DATA 16,16,16,8,8,8,4,35640 DATA 8,8,8,16,16,16,32,1925660 DATA 0,0,0,7,8,16,32,645680 DATA 0 }G,0,0,224,16,8,4,25700 DATA 64,32,16,8,7,0,0,05720 DATA 2,4,8,16,224,0,0,05740 DATA 15,8,8,8,8,8,8,85760 DATA 240,16,16,16 }G,16,16,16,165780 DATA 8,8,8,8,8,8,8,155800 DATA 16,16,16,16,16,16,16,2405820 DATA 1,1,1,1,1,1,1,2555840 DATA 128,128,128, }G128,128,128,128,2555860 DATA 255,1,1,1,1,1,1,15880 DATA 255,128,128,128,128,128,128,1285900 DATA 63,32,32,32,32,32,32,635 }G920 DATA 252,0,0,0,0,0,0,2525940 DATA 32,32,32,32,32,32,32,635960 DATA 0,0,0,0,0,0,0,2525980 DATA 0,0,255,129,129,129,129, }G1296000 DATA 0,0,255,1,1,1,1,16020 DATA 129,129,129,129,129,129,0,06040 DATA 1,1,1,1,1,1,0,06060 DATA 0,0,129,129,129,129 }G,129,1296080 DATA 0,0,1,1,1,1,1,16100 DATA 129,129,129,129,129,255,0,06120 DATA 1,1,1,1,1,255,0,06140 DATA 63,0,0,0,0,0,0 }G,636160 DATA 252,4,4,4,4,4,4,2526180 DATA 0,0,0,0,0,0,0,636200 DATA 4,4,4,4,4,4,4,2526220 DATA 63,32,32,32,32,32,32,3262 }G40 DATA 252,0,0,0,0,0,0,06260 DATA 32,32,32,32,32,32,32,636280 DATA 0,0,0,0,0,0,0,2526300 DATA 0,0,255,128,128,128,128,128 }G6320 DATA 0,0,255,1,1,1,1,16340 DATA 128,128,128,128,128,128,0,06360 DATA 1,1,1,1,1,1,0,06380 DATA 0,0,128,128,128,128,12 }G8,1286400 DATA 0,0,1,1,1,1,1,16420 DATA 128,128,128,128,128,255,0,06440 DATA 1,1,1,1,1,255,0,06460 DATA 255,0,0,0,0,0,0,0 }G6480 DATA 252,4,4,4,4,4,4,46500 DATA 0,0,0,0,0,0,0,2556520 DATA 4,4,4,4,4,4,4,2526540 DATA 18,22,32,36,40,44,48,52,0,0,0 wC_ CYCL&'./67>?FGNOVW^_fg oANTIC MAGAZ$}C(INE??VIDEO CHRISTMAS CARD PROGRAM BY,.KNINA R. FRANCO 2/3/83U +@OULINES 1000,2000 MAKE THE TREE,TO GET THIS S$}C!YMBOL""HIT REVERSE CTRL J' '+'015@9=@AJ-@NPV]$(@ak6-@ os@wG(@$}CWEY-@@$l(@(6WISH~-@:>@BI(@M`YOUAW-@dh@ls,(@w MER$}C RYCHR>-@@W(@#: ISTMASWE0-@>B@FM0(@Qj WISHYOUAc-@nr@v2(@$}CMERRYCHRISTMASD-@ $@(/c(@3PANDAHAPPYNEW$'-@TX@ \c'(@gYEAR-AR$}C@)-THIS TURNS OFF CURSOR 1-@-1@Q5f13000,4000 SETS UP SOUND " """/2lr@v@$}CK2@ @@#g2@'-@15@9?2@CI@MQ@Uh {"AD+2nrx$}C7"ADS2@#%+=_"AD{2@AEKMSh +"AD+2@lpvx}$}C -@@y  P-(%FROM NINA AND ALBERTO, CHRISTMAS,1983PPRINT YOUR PERSONAL MESSAGE HEREu-@}$}C$(@ 8-@#'@p+5< N-@9;AH](@LXq-@\`@pdu * A@ *4020,$}G4030 MAKES STAR FLASH**LINES 5000,5070 ARE YOUR NOTE VALUESgg91,136,108,91,91,136,108,91,68,136,108,91,68,136,108,91,$}G68,136,108,91,60,136,108,91,68,136,108,91^^72,136,108,91,81,204,162,136,81,204,162,136,81,204,162,136,81,204,162,136,81,2$}G04,162,136UU81,204,162,136,60,121,96,81,60,121,96,81,60,121,96,81,53,121,96,81,60,121,96,81ll68,121,96,81,72,182,144,$}G121,72,182,144,121,91,182,144,121,91,182,144,121,91,182,144,121,91,182,144,121bb53,108,85,72,53,108,85,72,53,108,85,72,50$}G,108,85,72,53,108,85,72,60,108,85,72,68,162,136,108ll68,162,136,108,81,162,136,108,81,162,136,108,91,136,108,91,91,136,10$}G8,91,81,204,162,136,81,204,162,136ii60,121,102,81,60,121,102,81,72,182,144,121,72,182,144,121,68,136,108,91,68,136,108,91$}Cg,68,136,108,91??68,136,108,91,68,136,108,91,68,136,108,91,744,744,744,744D1:XMASTREE.BAS oANTIC MAGAZ$eC #0100 ; LIST#D:AUTBUILD/ 60110 ;B p0120 ; ROUTINE TO BOOT IN THE RS232 INTERFACE| 0(}C%130 ; THEN EXECUTE A BASIC STATEMENT1 H0140 ; E.G. RUN"D:MENUT [0150 ;_0_g q0160 DUMMYu y= $}0)}C E459 0170 SIO (= $E459- 2F3E4: P0180 SCRNRD = $F3E4U Z000Cb v0190 DOSINI = $0C} )}C0 0200 #*= $3800( 93800 A950 0210C KLDA #$50P a3802 8D0003 0220k tSTA $0300{ SE)}CT UP DCB TO3805 A901 0230& ,LDA #16 XINPUT "R" HANDLER3807 8D0103 0240b kSTA $0301r FROM 850 IN)}CTERFACE380A A93F 0250" *LDA #$3F/ @380C 8D0203 0260J SSTA $0302W h380F A940 0270r LDA #$40 )}C 3811 8D0303 0280 &STA $0303* ;3814 A905 0290E KLDA #5R c3816 8D0503 0300m vSTA $0305z 38)}C19 8D0603 0310 !STA $0306% 6381C A900 0320@ FLDA #0M ^381E 8D0403 0330h qSTA $0304u 3821 8D)}C 0903 0340 STA $0309 13824 8D0A03 0350; DSTA $030AH Y3827 8D0B03 0360c lSTA $030Bp 382A A90C )}C0370 LDA #$0C ,382C 8D0803 03806 ?STA $0308C T382F 2059E4 0390^ eJSR SIOn TO INPUT "R" H)}CANDLER *0400 ;3832 1003 04104 =BPL IO.OKA R3834 4C5738 0420\ eJMP LDBSCl IF CAN'T INPUT ) } C '0430 ;3837 A20B 0440 IO.OK+ 3LDX #$0B; dSET UP INPUT BUFFER3839 BD0005 0450 LOOPi LDA $0500,X 383C 9) } C D0003 0460 )STA $0300,X 383F CA. 20470< ?DEXI Z3840 10F7 0480d lBPL LOOPq 3842 2059E4) } C 0490 JSR SIO .TO BOOT IN "R": Q0500 ;3845 3010 0510[ dBMI LDBSCk IF BOOT FAILED ) } C 0520 ;3847 200605 0530* 3JSR $0506: ITO INIT. RS232U l0535 ;384A A50C 0540v LDA DOS) } CINI )CREATE IND. JSR384C 8D5538 05503 QSTA INDJSR+1 384F A50D 0560[ yLDA DOSINI+1 3851 8D5638 0570} )}C STA INDJSR+2 3854 207 0580 INDJSR JSR DUMMY; 7%@BR!AF--@VuAG&7 A`-@y@-"}"C&"6-%"68%&@#,-& " "  AV (} (K(CHECK SUM ERROR AT LINE NO. F:A,-#}#C$AV%F:A,V@'66@3+0@46<>D D:AUTORUN.SYS&#F:A,$AV%F:A,&-$}$C-@ +AF 6-8,)"@/6*@:SB:,) AP*@Wp -B:,@ty6@}-%}%C *@)@:7<,, "*@-?AU,*@CUAU6*@YkA&@*@os@wJ*-&}&C@A'T*@"@&0^*@46<Fh*@JN@VR\r@`|&&169,80,141,0,3,16-'}'G9,1,141,1,3,708''169,63,141,2,3,169,64,141,3,3,758%%169,5,141,5,3,141,6,3,169,0,642&&141,4,3,141,9,3,141,10,3,141-(}(G,596''11,3,169,12,141,8,3,32,89,228,696&&16,3,76,87,56,162,11,189,0,5,605**157,0,3,202,16,247,32,89,228,48,1022-)})G((16,32,6,5,165,12,141,85,56,165,683))13,141,86,56,32,0,0,169,103,141,741((33,3,169,56,141,34,3,169,0,141,749..-*}*G214,56,96,251,243,51,246,118,56,163,1494--246,51,246,60,246,76,228,243,0,172,1568--214,56,240,9,185,145,56,206,214,56-+}+G,1381++160,1,96,140,33,3,169,228,141,34,10053,169,155,160,1,96,584Xa (} (5($BOOTBILD by Chuck Hosick, A.C.A.-,},GO.C.8(a($This program creates an AUTORUN.SYS bE(program on disc which:E(" 1. Loads the RS-232 handler fromld)(!--}-C &the 850 interface module if:G(, Da. you have one andd(J b. it is turned onv\(and then4( 2. execute-.}.Cs an immediate mode\(# CBASIC command which you enter.Z2(H _For example - RUN>:@4cu,D:MENU5(W(z ENT-/}/C!ER YOUR BASIC COMMANDZ( @@%CD1:BOOTBILD.BASGHOPV 33BOOTBUILD by Chuck Hosick for ,C0C 9uCD@ $A (3Bgp@T8;@1@C@dG*** PROGRAM 1 *** *** SET UP COLOR TABLE ***11}1C -@^"Ah% (200,90,56,152,88,12023A6%@1bf@1j3INITIALIZE COUNT12}2CBERS<66*** PUT SIX INTERRUPTS INTO THE DISPLAY LIST ***F +@FL@PP%%6-F:A`,%F:Aa,$AVZ-13}3C@ @H@Yd%AA n*** CREATE DISPLAY ***x1AR@]1(DLI COLOR TABLE EXAMPLE14}4C ,A@I"'/A@&,'/@H04@8A-@HEI@IM^Ae@bk++@ot@x15}5C AS:((*** SET UP DLI SERVICE ROUTINE ***--GK@0O")A6%- 4472,138,72,238,31,616}E6Cg,174,31,6,189,0,6,141,10,212<<141,22,208,224,37,208,5,169,31,141,31,6,104,170,104,64'Am'A@17}7C3BBAD2:DLI1Bgp@T8;@1@C@dG*** PROGRAM 1 *** *** SET UP COLOR TABLE ***0'8CDB@@ $'@d+J *** PROGRAM 2 ***+@NR%@V%%6-F:A`,%F:Aa,$AV(59}9C +%@ A5+%@!2A52--8<@1@")A6%- <==72,169,92,141,10,212,141,22,208,15:}:Cc69,16,141,00,02,104,64F>>72,169,136,141,10,212,141,22,208,169,00,141,00,02,104,64PFAiw'A@{F5;};CHSET ADDRESS OF FIRST ROUTINEZ"BBA"ENABLE DLId-NR@V_n"-@cl"(@pANTICx5<}<C  A0D2:DLI2$'@d+J *** PROGRAM 2 ***+@NR%@V%%6-F:A`,%F:Aa,$AV(4=C) NR`STARDBA$-0@V59A$=HB6@PMP@dUV\PROGRAM 3 ** SET UP DLI9>}>C ROUTINES **1 +@'AR@+N1AA8A@`R(%%(PLEASE WAIT, LIFTING ANCHOR..2%%69?}?C*-F:A`,%F:Aa,$AV<+%@.>A5+%@BrA5F** READ IN DLI ROUTINE **P--x@I9@}@G")A6%- Z>>72,169, 82,141,10,212,141,22,208,169,16,141,00,02,104,64d8872,138,72,152,72,169,132,162, 849A}AG,160,04,141,10,212n77141,26,208,142,22,208,140,01,212,169,00,141,00,02x104,168,104,170,104,64 A0++** EN9B}BC/ABLE INTERRUPTS PRINT DISPLAY **'A5C'A@GuBBA(>:A%,%-@ y@9C}CC %(@@A%-@ !%@)0%(@4BBC&-@FJ@NU&(@YhDEF&-@lp@t&(@9D}DCTDEF A##*** REDEFINE CHARACTER SET ** AF:A,&@X6-+F:A,,$AV)A9E}ECV'AV)AR@ )-/ZA#%F:BsD%, -`d@Uhw"#"%@2{$9F}FC@%# ,0,0,1,1,3,7,7,156%%192,248,224,128,128,192,192,224@15,31,63,63,127,255,1,1J%%224,240,248,248,29G}GG52,128,128,128T0,1,255,255,255,127,95,95^%%255,255,255,255,255,255,255,255h%%240,240,255,254,252,248,240,224r$9H}HC)D:DLI3TARDBA$-0@V59A$=HB6@PMP@dUV\PROGRAM 3 ** SET UP DLI8IGO44XNMBLINYNANMNUMBNPRSZSZHZSTHZSTLFLRTLLFLRTLSTVSTVLLUPLLLUPLCCCPPPMSPP0P1=J}JCoPOFREGISTEPMBASPL0PL1PL0PL1ZRARMTPMPLPLHLQT0RTN0QT1RTNRTN1CHRSPPMP2P3LHPy=K}KC $%+-45<= DE KM TU \] delmtu|=L}LC '(/078?@GHOPWX_`ghopwx }=M}MC! "#$!#%)+&23':;(BC)JK*RS+Z[,bc-jk.rs/z0=N}NC1 234%&5-.6567=>8EF9MN:UV;\^@tv@?|@=O}OC@ ABC !D()E01F79G?AHGIIPQJXYK`aLhiMow 1 +@{=P}PC A@6-1A ARR;@18,;@<C,;@GN,9@RY,9@]d,9@ho,9@s,[-=Q}QC@ @ "+,@"./ C-@26@:JG"KW,@N][ ([-@ae@iy"+,@ }=R}RC / C-@@(G"KW,@ ,[ 2SS240,76,97,217,229,82,109,207,246,69,114,240,82,101,211,243,115,212,225,=S}SG82,116<o6-F:A,!6-F:A,06-F:A ,?6-F:A,KAWAcA oAF9-=T}TC@ @  ,F:B2y,"@$-/'9 @1>P  @`BSZ]A@@Wo'A A36-uS@=U}UC@ K:]+"dM(ŠϠ͠ҡ6(A SERIES OF QUESTIONSM(WILL BE DISPLAYED.n:"(EACH Q=V}VGUESTION WILL REQUIRE:(A NUMERICAL ANSWER.x])(!INDICATE CHOICE BY TYPING DIGITS.K(TYPE RETURN ONLY AFTER NUMBER]( I=W}WGS COMPLETED.P)(!YOU CAN ABORT NUMBER AT ANY TIME,P(" TO RETURN,BY TYPING A SPACE."("(ӠԠΠ=X}XCAB2y@'*F:B2y,"@+7(>:A%,A Ap APS A`1(INDICATE GRAPHICS MODE FOR Y=Y}YC:OURS(PROGRAM! ANY MODE EXCEPT 10.W6-Ap6-@H'6-@Ld1 Ap76-C"@hnM ArW Ap=Z}ZGc A`/(INDICATE RAM IN YOUR MACHINE.<(TYPE 1-4I( (1)16KV( (2)24Kc( (3)32KN( (4)40-48K(?=[}[C&6-A26-@>6-@#oH ApN6-p A`4(!CHOOSE NUMBER OF PLAYERS(1 OR 2)!@6-AsL6-@=\}\C X6-@"b App6-&@&f A`4("DO YOU WISH SINGLE(1) OR DOUBLE(2)J(LINE RESOLUTION?V6-A=]}]Ci` Apf6- A`'(CHOOSE PLAYER ZERO SIZE(0,1,3)!4(NORMAL=0;(?G6-AS6-ow_6-@{k=^}^C6-@ (s6.2} Ap6-6-.p A`5(CHOOSE PLAYER ONE SIZE(0,1,3)!<(?H6-A0T6-@=_}_C^ Apd6-p6-!` A`4("CHOOSE INITIAL HORIZONTAL POSITIONF( RANGE=0-255.`(VISIBLE LIMITS=48=`}`C -200T ( 6PLAYER ZERO(0-255)?,6-AP86-<dD6-AUN ApT6-?#(h PLAYER ONE(0-255)?/=a}aG6-A`9 Ap?6-g A`-(CHOOSE LIMITS ON HORIZONTALC(POSITIONS(0-255)!g(IF CHOOSE 0 AND/OR 255,WILL=b}bG GET( WRAPAROUND!"O#( PLAYER ZERO LEFT MARGIN?/6-A9 Ap?6-E!O A ,P$( PLAYER ZERO R=c}cCIGHT MARGIN?06-A: Ap@6-F P A 6R&( PLAYER ONE LEFT MARGIN?26-A< ApB6-H=d}dG!R A @S'( PLAYER ONE RIGHT MARGIN?36-A = ApC6-I S A J}%6-A%+A$+"=e}eC@,,G6-@%+@%$+"@)3,,S6-@7Rs6-A%%A($+"@V,} A`TU!(INITIAL VERTICAL POS=f}fGITION5(RANGE=2-.U(VISIBLE LIMITS=-)^F ( PLAYER ZERO(2-)?,6-AP6 Ap@ ApF6=g}gG-hI#( PLAYER ONE(2-)?/6-A`9 ApC ApI6-rC A`+(CHOOSE LIMITS ON VERTICALC( PO=q}hCcdiCb'DOS SYSb*+DUP (SYSbUDOC- 9TXTbfHELP= IBASbjMENUP b{SNOWFLAKBASb"SKCHPAD PLTbODDMAN2ALSTjCIb-ODDMAN2BLSTbXMASTREEBASb BOOTBILDASMbBOOTBILDBASb0DLI1M YBASb8DLI2] iBASb =DLI3m BASbkIAUTOPM BASkC`b GARBAGE BASb+WORMSQRMBASb\JACKPOT BASb'QAUTOPM ASMbNxGTIAPAD BASbAUTORUN SYSqGSITIONS(2-)!|Y#( PLAYER ZERO LOWER LIMIT?/6-A9 ApC ApI6-O Y A Y#( PLAYER ZE=r}rCtRO UPPER LIMIT?/6-A9 ApC ApI6-O!Y A \&( PLAYER ONE LOWER LIMIT?26-Ax< A=s}sGpF ApL6-R \ A L&( PLAYER ONE UPPER LIMIT?26-A< ApF ApL6- !=t}tCL A Y A`'(CHOOSE PLAYER COLORS.<(HUES ARE ROUGHLYY(P Q0V lBLACK TO WHITEj(p 1-4 REDS+(=u}uC 5 PURPLE?( +6-10 BLUEST(/ @11-13 GREENSj(D 14-15 ORANGES`(( PLAYER ZERO $ A06-=v}vC <6-@0H6-A@R Ap`6-$@4]r( PLAYER ZERO ! A -6-@av:6.3579 F6-@zR6=w}wC-AP\ Aph6-`r A@ 6-%T( PLAYER ONE $ A06-@d<6-ApF ApT6=x}xC-$@ 7h( PLAYER ONE $ A 06-@;C<6-@GcH6-AR Ap^6-ih A@ 6-%=y}yCEt A`*(CHOOSE BACKGROUND COLOR!2( < AH6-@IQT6-AUq\( f Apt6-$@u/"=z}zC@ *%6-D/ A0Y (  A !6-@HP-6-@T96-AC ApM A@Y6-={}{C/"@ *"%6-(/ A@ 6-% A`y(CHOOSE PLAYFIELD TYPE!-( NARROW=0=( =|}|C& REGULAR=1J( WIDE=2Q(?]6-@*i6-As Apy6-` A`(9($PRIORITY CHOICES! NOTE THAT PLAYER=}}}G 0`("ALWAYS HAS PRIORITY OVER PLAYER 1!h(TYPE DESIRED NUMBER.A( ALL PLAYERS OVER PLAYFIELDS(0)h(" PLAYERS 0 & =~}~Cu1 OVER PLAYFIELDS(1)&O(( ALL PLAYFIELDS OVER PLAYERS(2)O(" PLAYFIELDS 0 & 1 OVER PLAYERS(3)02 (?6-@y"6=}G-A0, Ap26-:_ A`(:(%WHERE DO YOU DESIRE TO STORE PM DATA?_( ABOVE A LOWERED RAMTOP(TYPE 0)D**(=}C6" BENEATH THE DISPLAY LIST(TYPE 1)N2 (?6-@:"6-Ap, Ap26-Xf A`+(CHOOSE SPEED OF MOVEM=}CJENT.D( HALF SPEED(TYPE 0)_( NORMAL SPEED(TYPE 1)f(?b6-AN Ap6-cm A`.(DO YOU WISH T=}C^O STORE THE VBI@( ROUTINE IN A:U( STRING(TYPE 0)m( IN PAGE 6(TYPE 1)d> (?6-dl"6-@p.6-A=}G8 Ap>6-g A`ll(.(#INDICATE NUMBER OF BYTES IN PLAYER.V(#BOTH PLAYERS MUST HAVE SAME NUMBER.l(MAXIMU=}CM BYTES=10!v>6-@"6-@&a"(?.6-A8 Ap>6-;,;,o-gk@ox&68,-}=}C 568,-D68,-(S68,-.8W c6->Do6-Jr A`(2(TYPE IN DATA FOR PLAYER ZERO.=}C#P(START FROM TOP OF PLAYER.\6-);h6-AUr A?J-@N@ (?6-A Ap$26-&@=}C6 @ A A"@4"B68,-%67<,. 36-%@F7 A A A"AU68,-%67<,. 36=}C-%@ g7 A A 67<,.>:, L A`(4(TYPE IN DATA FOR PLAYER ONE@6-msL6-y=}C -@FG ((?6-A@' Ap+96-&@Jg= G AuE"@4k68,-)67<,=}C. 76-%@S; E AuE"AU68,-)67<,. 76-%@W; E Au67<,.>:, =}C  B F +^((/(ǠҠF(ŠϠW)@bf@jlrD:PM.LST=}C K6-+@ %+$@,,$@"9WAP 9"@=E/6-@IM%@QX$+!@\r,9 A *776-@v%@=}C$+"@ ,%@$+!@ +,4ZZ(@/31000 PM=PEEK(106)-:POKE 106,PM:GR.:POKE 54279,PM:PMBASE=256*PM>=}C1C6-+&,$AV96-%A%+A$+"@5f,,C AH?+6-%A@%+A@$+"@j,,5 A? A =}CR"@w6-@%$+ @).,%@29$+"@=B,%@FM$+"@QV,%@$Za$+"@ej,%@6nu$+!@y,6=}C-+&,$AV\u"@&c6-@*1$+ @5:,%@$>E$+"@IN,%@2RY$+"@]b,%@@fm$+!@q,u6-+&,$=}C(AVf1'6-%A%+A$+"@,],,1 Ap5+6-%A@%+A@$+"@aw,,5 AzNN(@{=}CH 31000 GR.:PM=PEEK(106)-:POKE 54279,PM:PMBASE=256*PMss(@Lo31010 DIM ZERO$(47):ZERO$=>:@4s,/hhhh=}C/hhhϥ̦ ͈ψ`>:@43>,QQ(@B 31020 X=USR(ADR(ZERO$),0,PMBASE,A$%A$$+"@=}C,)//6-A&+@ %$+"+1)"@5A,,VV(@E31030 POKE 53256, :POKE 53248, :POKE 704,=}C:POKE ,CC(@"\ :POKE 53257, :POKE 53249, :POKE 705,"bi(@m BB(@=}C$31040 DIM P0$():P0$=>:@4(1,>:@45?, 8EH,"N`A (@dw31043 8-}=}C@  6-8,$(8(@$7://(@;fP0$(, )=CHR$(34) (@jw  8}=}C," A0(@231047 8-8<@@X 6-8,$(8(@\o:00(@sP0$(=}C", )=CHR$(155) (@&3 "9KA BB(@Oq31050 DIM P1$():P1$=>:@4u,>:@=}C4, 8,"0Au(@4G31053 $8-MQ@Um 6-8,$(8(@q:)/=}C/(@ 6P1$(, )=CHR$(34). (@:G 3 8MP,"VhA 8(@l31057 B8=}C- @( 6-8,$(8(@,?:L00(@CoP1$(, )=CHR$(155)V (@s `''6=}C-A%+A$+"@+,,%jcc(@/D 31060 FOR X=&@H TO 0 STEP-1:POKE PMBASE++X,ASC(P0$(X+1,X+1))=}C:NEXT Xt"=Ap~''6-A@%+A@$+"@AO,,%cc(@Sh 31070 FOR X=&@l TO 0 STEP-1:P=}C5OKE PMBASE++X,ASC(P1$(X+1,X+1)):NEXT Xrr(@9Q31080 POKE 203,%@Uh :POKE 204,%@l :POKE 1000,=}C* :POKE 1002, :POKE 1004,>>(@.l :POKE 1006, :POKE 1008, :POKE 1010,HH(@p31090 POKE=}C7 1001, :POKE 1003, :POKE 1005,BB(@;u :POKE 1007, :POKE 1009, :POKE 1011,33(@y3=}C/1100 POKE 1012, :POKE 1014,77(@3b31110 POKE 1013, :POKE 1015,##(@f31115 DIM PM$(211)=}C{{(@ %31120 PM$(1,65)=>:@4)t,Ax)%x)Wx)Hx)9Lbϝ>:@4x,{=}C{(@ %31130 PM$(66,128)=>:@4)r,?ͽα͈̅\B>:@4v,ww(=}C@$31140 PM$(129,196)=>:@4(,D̅˽ͽα͈̅b(@=}C>:@4 ,b(@431142 PM$(197,211)=>:@48Q,>:@4Uo,A))(@s31145 P=}CM$(41,41)=CHR$(1) nn(@#Y31147 PM$(54,54)=CHR$(136):PM$(65,65)=CHR$(200):PM$(79,79)=CHR$(136):PM$(84,84)=CHR$(20=}C0)__(@oJ31148 PM$(113,113)=CHR$(200):PM$(129,129)=CHR$(198):PM$(130,130)=CHR$(203)aa(@sK31149 P=}CSM$(153,153)=CHR$(200):PM$(158,158)=CHR$(136):PM$(174,174)=CHR$(136):++(@WPM$(194,194)=CHR$(200)#NN(@=}CK931150 FOR X=0 TO 210:POKE 1536+X,ASC(PM$(X+1,X+1)):NEXT X(NN(@Op31155 DIM SET$(11):SET$=>:@4t, h =}C  \`>:@4,)E"!(E(@,e(:AD=ADR(PM$):HI=INT(AD/256):LO=AD-256*HI*(@iv -Y"|=}CY(@ W<31160 SET$(3,3)=CHR$(LO):SET$(5,5)=CHR$(HI):X=USR(ADR(SET$)).OO(@[:31160 SET$(3,3)=CHR$(0):SET$(5,=}C&5)=CHR$(6):X=USR(ADR(SET$))2c6-@D*/%+@3:$+"@>E,,%+@IN$+"TY,%@]d$+"@hm,%@qx$+"@|,=}C,(@ ,31190 POKE 559,<W6-@05$+";@,%@DK$+"@OT,%@X_$+"@ch,%@ls$+"@w,(=}C@9:POKE 623,PEEK(623)+ :POKE 53277,3F(@=V 32000 RETURNPt@Za@e# A`G(FILE ON D=}CPISK IS CALLED 'PM.LST'q(%TO MERGE WITH YOUR PROGRAM,USE ENTER!tZ.6-F:@Tc,&A(. iAd@=}CB7tn"6-@+6."6-1;x')@?Q(>:,'6.=:W,"AUApR"@2=}C9(5(ǠҮŠή? A0K6-@=ON'R 9 @HSY)!@W]f(& Ajr26-@v5'9 =}C Q"@ -@:B:,."@:7<,,1'4(> A>FJ6-@J\M'Q "@` )67<,.>:,6-%=}C@ ) A/B:,""( A,7'+6-@;[/ 3 6-A:, )! A_j#'/6-@n3  ( $=}Ce;.(&ԠšŠ٠Ρ8 A0;$( HUE(0-15)?$1( LUMINANCE.(i (EVEN NUMBER 0-14)?=}C1$-@A, $@#"@06)"@:@)"@DJ- ANV96-@Zr<'@ $ -@v@=}C6@ =-@#6@'+[215@9?&@CQ_ c 2WY_agio$"526-+&=}C+A'%A($+"@#,,,$6@'5$,'6-P:'AV,$6-&AV$'$6'6-P:'AV,$6-&AV$'$@X(=}G( YOU HAVE EXCEEDED THE NUMBER OFF(BYTES ALLOWED WITH VALUESX( OF 155 OR 34!JA%(PLEASE USE A DIFFERENT VALUE!/ A=}C=6-&@A Tk%(ҠԠӠŠO(%ŠȠŠ̠Ρg(Šˠ=}Gk ^G.(&GR.11 NEEDS A BACKGROUND HUE OF ZERO!A(I'VE SET THAT!D(G$hL*("GR.9 NEEDS A BACKGROUND LUMINANCEF(OF=}G ZERO! I'VE SET THAT!I(L$ D1:AUTOPM.BASZSZHZSTHZSTLFLRTLLFLRTLSTVSTVLLUPLLLUPLCCCPPPMSPP0P1<1CB)*+DELAP1BCDEFGHIJKP2TIMRAAFA AY A A  Aa A A A}C' A i A  A  q @,/@47?;fsA`rr""***GARBAGE COLLECTOR DEMO*** 1 +yA}C AR@1@ *+(+(/ DEMO OF FAST ARRAY RESETTING2(2(' (ELAPSED TIME FOR TEN 10 X 10 ARRAYS)A}C (-@A& 2;@*1,9@ 59<@ =D,9@ HL<@ PW,9@ [_<@ cj,9@ nr<@ v,9@ A}C<@ ,9@ <@ &,9@ *.<@ 29,9@ =A<@ EL,9@ PT<@ X_,9@ cg<@ kr,;@v,<5(A}C8 (5('NOW RESETTING WITH OLD FOR .. NEXT LOOPFE@<>DJ'@NPV\9@ `bhESET CLOCKP+-A}C @ +-@ "0Z68<,-6A%68<,-GR668<,-XcG68<,-itX68<,-zi6A}C8<,-z68<,-*68<,-0;68<,-AL68<,-Rkd   nJJ6-+F:@ o,%AV$F:@A}C,%AV$AV$F:@ &,,'@`*5x"("( 9 TIME WAS  SEC.+( (+(GET READY FOR NEW FAST RESET6A}G-C:,&C:,?ACP:C:,'AV,?ABC:,&AV$F:AC,-ADF:AB,-AEF:AC,A}C;%@ ,-@A#: 1 (--GO!@>@FL1@ PRXc567@gl,.>:r,567%@A}C ,.>:,67@0,.//6-+F:@ 4C,%AV$F:@GM,,'@`Q\%(%(c TIME WAS  SEC.++(A}C TO RESET %@- BYTES'@15@9E'ARK D:GARBAGE A  Aa A A @]GaRSCREERBUEXLSRDISDDXYTSETPTPPPOSEGBUBOCASTLFILCHRCHSESHFAAABRICSKNAMESE}C)CORERCHROBLANKCAROLMMNMMS34;<CDKLST[\cdklst { E}C   &'./67>?FGNOVW^_fgnovw}E}C@ @!")*12 9:!AB"IJ#QR$YZ%ab&hj@'pr(x)E}C* +,-$%.,-/450<=1DE2LM3TU4\]5de6lm7tu8{E}CL...WORM SQUIRM......by John Gunther... ANTIC MAGAZINE A@PgK6-%P:A$H:mx,,.F:,"}E}C4<6-%H6-@0'K$ @ +4,:B6-@ FP)6-%@T`,$d R:fk,"@osAwi|E}C-  $6-R:),@6-+"@-5,&+"@9E,\6-+"@IQ,&+"@U^,|"@bh)%"nAn 6E}C9-6-6-sAAV6-%6-%16-%%@ =e$A(F:,AP 6-F:,"A i"A E}C A/ "6-@#+!6-A0/9/6-%@=J6-%@Nh! !68,-%@ l$!%8,E}EC !%8&,C 8,6-6-!AV%@GZ! A3+@^b%@f)AV'AV3 E}CAK6-6-"6'6-A36-@p:B?6-@ FNK6-@uR[)0@_c@gk@ou)6-{E}C 76-@ 6-@/-%)@-W7%%A`% "C-@[_@#cm'%$@ q?%@E}C%$@ C ,}-!'.+(@2CSCORE:=-@GIOVR(@ZjSIZE:d-@nr@#v}(@E}C HI.SCORE:-!%@)@B6-%P:A$H:FQ,,.F:,"W48 B A A6E}C6-@ 6-@ 6%%@ $,$8@0<,%6-@@H6-@LR% AVtF8,%A.%%@ x$%E}C A(B-AfF  !6- AP96-A6-A$!6-/6-%@j9 A ;6-E}C@ 6-%@P)6-@ (56-@,A;6-%-? E^AV%++2dh@lv$+&,@z@E}C! AV%@"3! 36-%@7;32ACIKQSYb K-@fhnu"(@y4E}C-@ A(@4K AP 6-P:H::?,$@"CQ, A6-%@%U[%$@ _o#(F:,/6-@s5A6E}C-A0P $ >"%6-@)7!-6-A0;E;6-%@ IY>$ (6-&? ]c%0@gk@ o($J&9E}C@ ,;@u,;@%,26-@)1>6-@ 5KJ6-BsDWK6.A} E}C &W66 SPACES/;@*2,#6. > S/12 SPACES*-Y]@aj&68,-p* {9E}C@ ,9A,068@#,-@'/E68@38,-@<DZ68@HM,-@QYo68@]b,-@f{6-A6G6-+F:E}C A,&@8,*6-$AVGAF:A,&@<E +@IO AS\n-@`d@hon(@sK YOU E}CM A worm AS YOU eat YOU GET LONGER AND SCORING MORE POINTS*-@QU@Y`*(@dw but...v-@{E}C@ v(@pSYOUR terminated RUN INTO YOUR BODY, TURN BACK ON YOUR- SELF5-@tx@|E}C5(@ (OR RUN INTO A WALLU-.lA6-%*%F:,=%A%F:,QA '@pU '"E}C   B' A'1--1@5C"-%$@G_%1 "9-ei@m"5%$@E}G%%A9  AP!!1,195,36,24,60,90,153,24,36 1,60,36,24,60,90,153,24,36 2,5,2,6,60,102,231,165,E}G231$$2,160,64,96,60,102,231,165,231 3,231,165,231,102,60,6,2,5$$3,231,165,231,102,60,96,64,160!!4,135,109,19E}G1,16,16,31,13,7!!4,7,13,31,16,16,191,109,135##5,225,182,253,8,8,248,176,224##5,224,176,248,8,8,253,182,225''6E}G,126,255,255,255,255,255,255,126''6,126,255,255,231,231,255,255,126''7,255,255,255,255,255,255,255,255''7,255,255E}G,255,255,255,255,255,255&&11,153,165,102,24,231,36,102,153&&11,153,189,126,24,255,60,126,153&&8,14,142,200,235,23E}CB5,191,229,231&&8,56,184,200,235,235,191,253,255P-1rr +HN'0@RTZ\bhA0@lp@tv|E}C[0@ @#r 8@',,A0hw$ ( PLEASE ENTER YOUR $|< 6-B:, @lv<67%@z,.E}C7@ <@&,(-@"&@*7(8,A;K  AOZ 6-@Q^f6-@`ju4!.-@y6E}C@.68%@(,-8,>!##67%@,2<%@6K,.7<,C!6-&@OY6-&@]wH!; 68,-067%@{(7<,8,L6-%@&0Z6-%@4D](a !; BHN6-T\%6-@`h16-@ lr; Av(#(%6E}C-F:@ ,%AV$F:@*,($'J B.Z+(DIFFICULTY (1-10 1=HARD)/=6-$@^tG BJ$t'd-@x@E}C 2(@&CONGRATULATIONSD-@*.@29d(@=[YOU HAVE COMPLETEDy'h-@_c@gn0(@r THIS LEVE}C EL !D-A%H T6-A0)9^ Bh A=D1:WORMSQRM.BASLCHRCHSESHFAAABRICSKNAMESDUG'c-y-WHEEL1WHEEL2WHEEL3LINE1LINE2LINE3WINCHECKPAYOFFTENCHERRYPLUMORANGEBELLBARDIAMONDCOINCHBASCJI}CIACKPOSPOIOUSPINDELABESPISPINSPINXXXYYYZZZPADIPRXZ`bhjprxI}C   #% +- 35 ;=CEKMTU\]delmtu|I}C '(/078?@GHOP WX!_`"gh#op$wx%}I}C& '()"#**++23,:;-AF $$K*` PROGRESSIVE JACKPOT d**** ANTIC MAGAZINE I}C *##*( INITIALIZATION .*= +@AH7-NPV]7(@aprogressive jackpot!%I}C-@  @%(@)1-@-1@5<1(@@ZBILL MARQUARDT2-@^b@fm2(@qPLEASE STI}CAND BYGG;@2,;@2 ',;@2+2,;@6=,;@AH,;@LX,<<;@\c,;@gn,;@ry,;@}I}C,;@ ,$<<;@",;@&-,;@18,;@<C,;@GS,)6;@Wh,6.]'67@lw,.667@{,.I}G.**6. =>X?@XZ=X>?X@ZX=>X?@XZ=X>?X[ZX=>8**6. Z@?X>=ZX@?>X=Z[X?>=XZ@?X>=ZX@?Z@B**6. >ZX[@X>ZX=@X>ZX=@X>ZX=@X>ZX=@XI}C_>ZL 6.@@@6.>>>V 6.===6.ZZZ` 6.[[[6.??j 6.XXX{|!!c* CHARACTER SET DATA ***}J}G~%%255,255,255,255,255,255,255,25515,15,31,31,63,63,127,127%%240,240,248,248,252,252,254,2541,1,3,3,7,7J}G,15,15%%128,128,192,192,224,224,240,240!!255,255,255,255,0,0,255,25515,15,15,15,15,15,15,15%%240,240,240,24J}G0,240,240,240,240%%255,239,247,251,253,251,247,239%%255,247,239,223,191,223,239,2470,0,60,126,126,126,60,24J}G24,24,24,24,24,24,24,2424,24,24,24,24,248,248,0##231,195,195,195,129,0,231,255%%137,247,195,129,129,129,195,2J}G55##248,243,237,158,9,144,249,255%%227,253,194,130,131,131,135,255%%255,209,213,213,213,209,255,255%%255,255,J}G129,129,129,255,255,255%%247,227,193,128,193,227,247,255%%254,127,254,127,254,127,254,127!!60,126,209,213,209,126J}G,60,0!!224,192,128,0,0,128,192,2247,3,1,0,0,1,3,7""*** CHANGE CHARACTER SET ***$$6-+F:AB,&J}C@,$AV.-IA*%F:BsD%,. -@@MA"% -A A'J}G "% (-AAc2"% <-AHAUF"% P-AdAJ } C"Z"% vw""(-9 DISK USERS ONLY >-Rx8 A8@VZ@^`f D:JACKPOT.DATy(J } C@*6.=:,"6-B:,(6-z A.8{@<B A FO|' BSZ@^i'6.0.00m s}""}-J } C-=>""* SLOT MACHINE GRAPHICS DATA?@8,5,5,5,5,5,5,5,32,32J11,5,5,32,32,32,5,5,12,32TJ } G!!11,5,10,10,10,10,10,5,12,58^11,5,61,5,90,5,62,5,12,59h11,5,62,5,64,5,90,5,12,59r11,5,88,5,63,5,88,5,12,59|J } G**11,5,10,10,10,10,10,5,12,59,32,93,32##6,5,5,5,5,5,5,5,7,59,32,92,32**5,5,126,32,32,32,127,5,5,60,32,92,92##5,J}C'5,5,5,5,5,5,5,5,32,92,92,92"",*? DRAW SLOT MACHINE C*R +@V]70ceko@sy70@}J}C@ @70@!@%)@-370@7;@?C@GgAV'AV #Aku&&(@yJ}C ԡ+-@#'@+3+-@7;@?S" -(@Wr>:,   +-@v@J}C +-@ @)" -(@-F>:,   M-@JN@RY'(@]jplay9-@nr@vM(@J}C$P:,M-@@")'(@-:take9-@>B@FMM(@Q$P:,  ""** MOVE COIN & START PLJ}CAY **  &-@@ '&(@+<$ 6-@@O6- U @SY,@]a@ek1/@os@wC,@J}C@ U/@@) -@-1@5:6@>G  @2KQ,@U` ! @dj!,@nt&@x J}C-@ @%   -@)-@166@:C  @2GO,@S\ ! @`h!,&@lp@t -J}C@ @"  # $ ""'*: PLAY 1 TO 3 DIMES >*M% & **"SW*R:]b,"@fjApnw+ **"}J}C*F:B2y,"@A'. / ""--> DISK USERS ONLY C-W0 F:B2y,"@[iBP1 ""}-J}C-2 : T:","@&5A2D %%2;GAA@KO@S^N -@bf@ju X %%2{J}C#b 6-%@'2l + @6@6-%?DN+6-%?R[m '-@_c@gn'(@ruy n %J}C-@ @%(@,P:,v !@086-@<G "@K^A2` "@bsA2P  @2w,@J}C@   @,@#'@+4 E @8>,@BF@JP)@TZ;,@^b@fyE A2p a @}J}C,@ @)@";,@&*@.4E@8>W,@BF@J]a A2p W @ag,@ ko@sy)@}J}C;,@ @E@"W,@&*@.9 -@=A@PER  R:X],@arA1 @wvx}J}C   @!A1 &-@ %)@-4&(@8\   6.=:,6-B:, A`""** PULL ARM & SPIJ}CN WHEELS **&-@"@&-&(@1>$%%2DH@5LP@TX@\e1 @2io,@sw@{1J } C/@ @ @X#,@'+@/:-@>B@%FQ %%2WY_agio-@J!}!C@@  1 @Y ,@$(@,21/@6:@>G @XKQ,@UY@]h44-@lp@t%+H:@J"}"C,$@0 %@,'-@!%@)0'(@4D7<,'-@HL@PW'(@[k7<,'-@os@w'(@J#}#C7<,7-@@!(7(@,47%@8><%@BL,7-@PT@X_7(@ck7%@ou<%@y,J$}$C7-@ @7(@%7%@)/<%@3=,"7-@AE@IP7(@T\7%@`f<%@jt,,7-@x@J%}%C 7(@7%@ <%@$.,67-@26@:A7(@EM7%@QW<%@[i,@U6-%@mq32w@PJ&}&C@ @U2$&,.4?J!@0CK6-@OjT ^ 6-h,,-@nu+H:@y,$@J'}'C0 %@ ,r'-@@#*'(@.>7<,|'-@BF@JQ'(@Ue7<,7-@im@qx7(@|J(}(C7%@ <%@,7-@#'@+27(@6>7%@BH<%@LV,7-@Z^@bi7(@mu7%@y<%J)})C@,7-@@#7(@'/7%@39<%@=I,-@MQ@Uf U6-%@jn32tx@P|J*}*C@ @U2!#)+1<!@0@H6-@Lg  6-,,-@kr+H:@v,$@0J+}+C%@ ,'-@@ ''(@+;7<,7-@?C@GN7(@RZ7%@^d<%@hr,7-@v@J,},C7(@ 7%@<%@".,-@26@ :K U6-%@OS32Y]@Pae@im@quU2{J-}-C!!@0%-6-@1M& 0 6-""U*b READ WHEELS i*x?1@|J.}.C@+1@@#?1@'+@/:?1@>B@FN+1@RV@Zb?1@fj@ny?1@}J/}/C@+1@@$?1@(,@0=Q67@AE<@IW,.>:,767@[_<@cq,.>:,Q67@uy<@}J0}0C,.>:,Q67@<@+,.>:,767@/3<@7E,.>:,Q67@IM<@Qb,.>:,Q67@fj<@n,.>:,767@J1}1C<@ ,.>:,Q67@!<@%@,.>:, 6.mn""E*W CHECK FOR WINNER \*oop4Aesz3 4J2}2C%6-%@P%6-%@P36-%@%)X3 46-%@%6-%@36-%@\3 46-%@@%6-%@J3}3C@36-%@%3 46-%@)3%6-%@7A36-%@EPN7@TX<@\i,4(6-%?Pmw66-%?P{DJ4}4C6-%@ !N A`pU+7@%)<@-4,47@8<<@@K,96-%? OYG6-%? ]gU6-%@k3 46-%?J5}5C%6-%?36-%@!,-"@0:6-&@>J#6.- A`NY-"@]g6-&@kw#6.- A`{J6}6C6- '6.=:,.B:=:,,"@+3.67@7;<@?U,.00B:=:,,"@Ya067@ei<@m,..00"J7}7CA0 2"@#!-@ '+@/62(@:K ] 2"@OU!-@ Y]@ah2(@l ]]2!@J8}8C !-@ @2(@!2]]]3-@6<32BF@&JN@RV@Ze-@im@q 9%2J9}9C %9-@)-@1B  6-HQ&-@UY@]d&(@huwin&-{J:}:C@  &(@"$-@&*A.; '-@?C@GN'(@RUY b%-@fj@nu%(@yP:J;};C ,&-@@&(@!. (-48@ <C((@GJO X&-@ \`@dk&(@o $6-J<}<C A0 ab""$*3 SUPER JACKPOT 9*Hcd&-@ LP@T[&(@_p]]]h9-@tx@|J=}=C92 @&@@!,j-@04@8C l)%2IKQSY[ap) n -@tx@|J>}>C6@x-(@"/}9-@37@;?92EI@&MQ@UY@]h-@lp@t -%J?}?C2  1) - 0-@59@=D0(@Hc YOU WON IT! 1-@gk@ou10@yJ@}@C@ -@@%#0 50@48@<@@DL1-@PT@%Xw5   6-%<6-}JA}AC6- !6-26. 0.00# )< A -9UV""?*O PROGRESS CHECK U*dWX +@hvB2y@zbJB}BC--@ @-(@3PLAYED $l--@7;@?F-(@JPWONT k$q 6-&v9qw!-@{JC}CC@ 9(@NET '${< -3!-@7;@?F<(@JcNET -$O:,"iApp AppJD}DC @-@@@(@!7RETURN P:+',$A;J, %@ BNT-@X\@`g@(@kPRESS TO JE}ECPLAY F:B2y,@3Ap 6- A 7C=>""J*X PAYOFF CHART _*o?@+(@s>:A%JF}FC,+B2y@E3-@ $@(/3(@3<X X X @.O $0.10J3-@SW@[b3(@fj?o os. $O.20T3JG}GC-@ @3(@%? ? ).8 $0.50^3-@<@@DK3(@OX> > > \.k $1.00h3-@os@w3(@JH}HC@ @ @ .! $1.40r3-@%)@-43(@8A= = = E.T $1.80|3-@X\@`g3(@ktZ Z Z x. $2.5JI}IC 00-@@0(@!: super jackpot4-@>B@ FM4(@QZ[ [ [ ^._ d$l!6-rv@z6(JJ}JC@2PRESS start TO PLAY F:B2y,@6MA 6- A Q%#&#""** FILL IN TRAILING ZEROES *'#JK}KC (# @*"@)$2#7 A-3*"@7?767@CG<@K`,..00 <#6 Adj*"@nv667@z<@JL}LC,..00 F#8 A#*"@'/567@37<@;Q,.0 8$P#7 AU[*"@_g467@ko<@s,.0 7$JM}MC Z#6 A*"@!367@%)<@-A,. 6$d#5 AEK*"@OW567@[_<@cv,..00 n#4 Az*"JN}NC@467@<@-,.0 x#3 A17*"@;C367@GK<@Og,.0 #$::!!l- DISK USERS ONLY JO}OC-: 6-:..@ @$&,F D:JACKPOT.DAT: @JS@W]:!!x-8JJP}PGD1:JACKPOT.BASEL2WHEEL3LINE1LINE2LINE3WINCHECKPAYOFFTENCHERRYPLUMORANGEBELLBARDIAMONDCOINCHBASCJHQC00010 ;&*L00020 ; VBI PLAYER MOVER 1.000030 ;Q BY F.PINHO 7/8300040 ; ASSEMBLE WITH ASM/ENR}RCgD00050 ; HALF-SPEED ROUTINE00060 ; NOP'S IN CODE CHANGED BY00070 ; BASIC FOR NORMAL SPEED00080 ;}*NS}SC*00090 *= $600$ ;RELOCATABLE00100 STICK0 = $027800110 STICK1 = $027900120 XITVBV = $E46200130 HNT}TC0POSP0 = $D00000140 HPOSP1 = $D00100150 PB16 E= 20300160 PB2K \= 20400170 STPLL` q= 20500180 STPLHu = 20600NU}UC 190 VPSP0 = 100000200 VPSP1# = 100100210 STPL0L = 100200220 STPL1L = 100300230 STPL0H = 100400240 STPL1H = NV}VC100500250 UPL0 %= 100600260 UPL1* := 100700270 LL0@ P= 100800280 LL1V g= 100900290 LFL0l = 101000300 LFL1NW}WC B= 101100310 HPOST0 = 101200320 HPOST1 = 101300330 RTL0G X= 101400340 RTL1] i= 101500350s yLDX #0} NX}XC ;PLAYER NUMBER00360 B0 @LDA STICK0,X;READ JOYSTICK00370J PAND #1V l;CHECK FIRST BIT00380v BNE B1 NY}YC $;IF BIT SET,KEEP CHECKING00390. 4BEQ UP: U;BIT CLEAR,GOTO UP00400 B1\ yLDA STICK0,X;READ STICK00410} NZ}ZC AND #2 #;SECOND BIT00420- 3BNE B29 H;BIT SET?00430R ZBEQ DOWN^ u;CLEAR.GO DOWN00440 B2| LN[}[CDA STICK0,X00450 !AND #4' 7;THIRD BIT00460A GBNE B3M \;BIT SET?00470f nBEQ LFTIr ;CLEAR. GO N\}\C LEFT00480 B3 &LDA STICK0,X004900 6AND #8< M;FOURTH BIT00500W BNE STICK ;IF BIT SET,GO ON00510 N]}]C .BEQ RIGHTI ;CLEAR.GO RIGHT00520 STICK2 5INX> P;NEXT PLAYER00530Z `CPX #2f v;ALL DONE?00540} N^}^C BEQ EXIT ";YES.EXIT VBI00550, 2BNE B08 M;NO.REPEAT00560 EXITR yJMP XITVBV ;BACK TO ATARI VBI00570 UP} N_}_C' LDA VPSP0,X ;VERTICAL POSITION005801 4TAY= M;HOLD IN Y00590W ZDEYc r;DOWN ONE00600| NN`}`COP ";CHANGED BY BASIC00610, 5TYA00620? ZCMP UPL0,X ;TOO FAR?00630d jBCC B1p ;YES. GO BACKNa}aC00640 8STA VPSP0,X ;NO.STORE NEW VERTICAL00650B EINYN i;BACK TO OLD LOCATION00660s NOP00670 Nb}bC 3LDA STPL0L,X;PLAYER DATA ADDRESS LOW00680= iSTA STPLL ;STORE IN WORKING LOCATION00690s LDA STPL0HNc}cC,X;ADDRESS HIGH00700 3STA STPLH00710 UPLP8 TLDA (STPLL),Y;GET BYTE00720^ aDEYj y;DOWN ONE00730} Nd}dC NOP00740 BSTA (STPLL),Y;STORE AT NEW LOCATION00750L OINYX t;GO BACK FOR NEXT BYTE00760} Ne}eC INY00770 NOP00780' .DEC PB13 J;DECREASE COUNTER00790T \BPL UPLP` ;IF NOT DONE,DO IT AGAIN0080Nf}fC0 LDA PB2 :;RELOAD INITIAL COUNTER VALUE00810D KSTA PB1P d;RESET COUNTER00820n qCLCz ;FONg}gCxRCED BRANCH00830 RETURN1 BCC B100840 RIGHTI BEQ RIGHT ;INTERMEDIATE BRANCH POINT.USED TO EXTEND RANGE00850 RTN2I| BNh}hCCC B2 ;SAME00860 B3I &BCC B3, <;SAME00870 LFTIA IBEQ LEFTM ];SAME00880 STKIb BCC STICK ;SAME00890 STINi}iC"CKI BCS STICK ;SAME00900 DOWN' FLDA VPSP0,X ;OLD VERTICAL00910P STAY\ l;HOLD IN Y00920v yINY} Nj}jC ;UP ONE00930 %NOP00940/ 8TYA00950B ]CMP LL0,X ;TOO FAR?00960g mBCS B2s ;YES. GO BNk}kC ACK00970 ?FGNOVW^_fgnovw}R|}|C @!"!"#)*$12%9:&AB'IJ(QR)YZ*ab+ij,qr-y.R}}}C/ 012$%3+-4455<=6DE7LM8TU9\]:de;lmR~}~C?@A @B'(C/0D78E>@FFHGNP@HWXI_`JghKopLv$$**R}C* GTIA SKETCHPAD %** $$***) 7SCOTT BERFIELD> H** ##**L ZANTIC MAGAZINEa j**1 +pv@z@R}C1AR@r A  A`(&(>:A%,1 &,2" 6-F:," @pv<6OR}C:&@ +,,",&,,6 @P/:F"@>f AP " A Z"@Xj A`d"R}C@! A@n"@4 Ax"@V8M A"@bQf Ap"@@j A0"R}C@G  A"@4 A"@8M A "@5QW A[f4"@Wjp Bt4FOR PRR}CINTER DUMPING ONLY"@F!2AP @P6lUU(>:A%,BPLACE CURSOR WITHIN THE OUTLINE ANDp PRESS TRIGGERR}C(ESC TO EXIT). @@)"F:,"@(-9" @@=r 9 6-6-Ap!6-A -6-x96-R}CF%-A&1!"%  , 8"-&@JN@RW6@[*18"A , R}C ""@! ,/6-&@%;1"+6-@?[/ 6 AP@"@_xA@J 6-6-@|R}C T)6-%@>1") A^ APh BBH @@Lmr T:,"$|"F:,"@q" AR}C "F:,"@4" A"F:,"@(8D" @@H 6-6-6-6-%8R:,,6-%8R:,,R}C !@y6-# )16-@y5J!AI6-PY _6-AI 1,R}C6 ,O:&@,",&,,6 Ap3 6-6-%6-6-%'6-%-!36- !6-R}G A@3 6-6-%6-6-&'6-&- 36-  6-%,8,AY%/8,AY& P:R}C?P$,%0P:?P $,%:*,8,AY#/8%,AY'*$DSS(>:A%,@POSITION CURSOR AND PRER}C7SS TRIGGER TO PLOT POINTS(ESC TO EXIT).I"F:,"@(;G" @@KN X ,b Al[[(>:A%,HPOR}GSITION CURSOR AND PRESS TRIGGER TO PLOT STARTING POINT(ESC TO EXIT).v  ,6-6-UU(>:A%,BNOW POSITIOR}CN CURSOR AT ENDPOINT AND XPRESS TRIGGER(ESC TO EXIT).  ,/"F:,"@(\h" @@l A aR}Ga(>:A%,NUSE JOYSTICK TO DRAW, HOLD TRIGGER FOR A THICK LINE, PRESS TO EXIT TO MENU 6-F:,"R}C@ A "@ 5 A"@(9? @@CT:,"Ap16-%8R:,,6-%8R:,,% R}C16-@y  !6-  6- !6-& O:&,,,& ApT:,Ap 16-%8RR}C:,,6-%8R:,,+!@xD16-  6-   6-@xH*!AH6-4; ,&&/%&,%R}G'/&1,&%;/%%> ApHSS(>:A%,@POSITION CURSOR TO LOWER RIGHT CORNER OF BOX AND PRESS TRIGGER.RR}G`  ,6-6-`(>:A%,6NOW POSITION TO UPPER LEFT AND PRESS TRIGGER TO PLOTf/  ,///R}C %// @@pO AK(>:A%,-ENTER ROUNDNESS(1=3 TO 1 ELLIPSE, .275=ROUND)Oz`P(HNOW PLACE THE CURSOR AR}GT THE CENTER OF THE CIRCLE AND PRESS THE TRIGGER.T Z6-`6-ss(>:A%,`NOW POSITION THE CURSOR TO A POINT ON TR}C"HE CIRCUMFERANCE OF THE CIRCLE AND& PRESS THE TRIGGER.!  6-6-!!6-& !6-& A @ 6-R}Cy& !6-& A ` 6-& "6- A  "6- A 6-M:+$,%+$,,+6-}R}C6-+6-@&@7$O  A@ =G76-%@KQ$%@U_E6-%@ciO Am ! BR}C  @@ 6-%@($+&,%@,9)6-&@=G6-%@KQ) AUE A`,%+$,%),%+$,%R}G7,%+$,&E,%+$,&;,&+$,&,&+$,&-,&+$,%;,&+$,%$$.j Ap9(>:A%,INR}C&PUT FILE NAME ( TO EXIT).=V7@*.<@2=,4E` BAGj @@KW8@[A(Bg6-AV$F:AR}C ,<6-F:@,%AV$F:@#`,D6-&U6-P:'AV,g6-&+$AV,LWAP@dt*ARF:@x,?R}C ASF:@C,KAVWAWV66-?:C:hhhLV,<@Gh,$6* AND d inverse` Blr @@vjB R}CFA0>(>:A%, LOAD FROM WHICH FILE ( FOR MENUBt07@JN<@R],4E& Bag0 @@kw~@{R}CA(WAP@-*ARF:@1B,?ASF:@Fy,KAVWAW66-?:C:hhhLV,<@}R}C!,$6* AND d inverse B%+ @@/pS8(>:A%,%DO YOU WANT TO SAVE THIS IMAGE FIRST?L@tK:SR}C')&>:,0Y*>:,0N& A+N>:,4Y Ap"@GR`"@5dx%/-@y|R}C,!/% / @@*** MODE SELECTION ***(>:A%,)()(PLEASE SELECT A GRAPHICS MODE: )()( MR}GODE 916 SHADES OF ONE HUE.(.(# MODE 109 HUE/SHADE COMBINATIONS-(*( MODE 1116 HUES OF ONE SHADE-(#"("R}C( &DO PRESS (@*HK:)2,,&@HLoA@ApA`<R6-@ sR(>:A%R}G,3GRAPHICS MODE 9 GIVES YOU 16 SHADES OF ANY ONE HUE.F_(?(3WHAT BACKGROUND COLOR WOULD YOU LIKE TO USE(0-15)CR}CM+@ _AR@,PaA#@d06!@:J'6-36-@1NV?6-@Z`M0@dnW Ar]6-a R}C Zi6-@uf(>:A%,GGRAPHICS MODE 10 GIVES YOU YOUR CHOICE OF ANY 9 HUE/SHADE COMBINATIONS.i(d-@ynCR}C-@ ,=(COLOR # HUE,SHADE(0-15)2 28~NCx)) )!@R\) )!@`xA68,-$@|%R}C x6-@ 6-@% ('6-@,21+@6NCA#A(O@Rc-AAt8&A,x R}CAR@ A7 6- V6-@;S(>:A%,4GRAPHICS MODE 11 GIVES YOU 16 HUES OF ANY ONE SHADR}C=E.V(/(+(WHAT SHADE(0-15) WOULD YOU LIKE/y +@AOAR@Sk1A#A=@owG A{UR}C0@[6-g6-@1&s6-@*Oy6-W 6- #-8,8,@SY7-_c@gE,%APS/%R}C2AYW  6-% 6-K6-@96>6-@yB(O:&,7,8,AYH/8%,AYK$AYR}C{{9@,9@ ',9@2+2,9@6=,;@AH,;@@LS,;@ W^,;Abi,;@2mt,9@x<@R}C, 6-6-!!6-@%--6-@1996-@y=E6-AIQ6-?'P]6-Ai6-Apu6-Ad6R}C-AU5-@@"$68,-("168,-5 GG0,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,0R}C,-1,0,0"(-@@2"$68,-( ,dd8,11,12,15,16,19,20,23,24,27,28,31,32,35,36,39,40,43,44,47,48,51,52,55,5R}Cx6,59,60,63,64,67,68,716MM6.Coint, ine, oodle, ox, ircle, ill,hole screen, ave, etreive7b,6." ardcopy,} R}C ew, uit>AY@4$A$bUse INVERSE to begin each word@%%6-F:A`,%AV$F:Aa,JAYR}C-T%AfAC^'A@1='ACh-A6AFr"  |++72,169,0,141R}C?,10,212,141,27,208,104,64BBAAY@4C$0u44(>:A%,!andom or atterned?(esc to exit):uR}CP#@ @'K:0)@+4;@8XF"@:P,P B0Du"@'\b @@fNu BXu##@R}C@ "P:bu+-(,@06+-<@@Dlu"68<,-vu   u%%255,255,255,255,254,25R}G3,251,247u%%254,222,253,219,222,219,187,183u%%222,181,213,183,181,213,244,173u%%181,177,213,149,177,149,212,165u##R}Cw177,145,149,84,145,148,84,161u145,33,148,68,33,36,68,72u33,1,36,8,1,4,16,64u0,4,0,64,0,0,0,0uU67@{,.R}C %67@,.K=67@ 4,.>:A(,U67@8?,.>:@CN,u>(@RY(@]d>(@hn>:@'r,A>:@R}C,um -@y!6@%-,6-@17@-=^AH1m67,.>:8P:H:di,$@m,<,,uB067%R}C@,.>:8P:H:,$@ /,<,,>6-%@3AB u!(@EH R a! v Bek @@o v>>GR. 9 DUR}CNMP PROGRAM FOR MX80 BY RON MILLER, SAN DIEGO ACEv7 B0#BP7@RV@Z\brP: v>-@v@2R}G")67<,.>:,- >Set grey scale*v%%255,255,251,223,251,222,206,1834v!!219,78,221,70,217,70,248,85>v 38,153,36R}C4,153,36,145,17,72Hv4,65,4,32,0,16,0,0Rvy67@8?,.>:@'CL,,67@P],.KD67@au,.>:A(,\67@y,.>:R}C@/,yTell Epson 384 dots coming\vZ @3: @>E> @IO>:@'S^,A>:@b,Zset Epson for 8 dots/liR}C nefv -@y6@"*,6-@.4@-:VAH1X6-%%@Zkn67,.7<%@o,|6-%@R}C pv! @ ! zv$D1:GTIAPAD.BASWFLADFLACOLOXOYOVAXDYDOOBNONCMACMIBMABMPCCoEiͩkΩ͙kCop j`j {j`Hi͝Νh`}V}CoL"UNEM:D"NURͩkΩ͙kCop j`j {j`Hi͝Νh`}TCu@ @7'{(}AR@+4++(#U++(#| ANTIC MONTHLY DISK DEC. 198V}C 3 |++(#.8++(#Yc @ gr-@vAV}C $ GG;@@,;@ "),;@@-4,;A8?,;@CJ,;@@Nh, "D1:MENU" &&@lp@tv|V}CD:*.* 6,6."3 96 @0=Ji6-%@NX(6.7@\`<@dm,A67@ qu<@ y,.V}C .i67@ <@,.7@ $<@(A,3 6.|67B:,%@EU,.367B:,%@Yg,.G67@ko<@s,.(--V}C@>B:,:7<,4 G67<,..] 6.=:, @BJD67@NR<@V],.7@ae<@ir,]67@v<@V}C,.0$@'(''7@+/<@3?,4FREE@CL- @ Pi2() <@mF''7@V}C>l  AXLPB0NZ<( ((@!CF@KLRld"( st |T}E