@L|}6CD l0C)HCC WhL/h `CmCDiD`  R@P1  Y0@R !L` D  C D     )16CS S)  C)D1 p p 0 C9DI pCDL~CiCDiD` D  C D     )16CS S)  C)D1 p p }0 C9DI pCDL~CiCDiD` DD˙` d J)L !}D L(( LL()  L| L( S LH 0p n  } CY?  q  L L  ` )} `A! d߰")-݆ "  $G@LLL&0") $G% }H0 3S8`G ȱG ȱG   Gȭ Gȭ GG}GHiH8(()) G$H% `(0 })8` d)L ݆ & LGȘ ݆LL d  ! LL d)N>Q  HH) }  hyhyB q L> Lm JJ  Ln*` dB%' }8  H H` 1 { LL   !L     Hh SY?  q  1L }  !? S   q 1 L   Ll  Lg E`L   !L)  q 1L}) `L0AM݊L݉ ML  N݆LLLNLMLHG!@}1F GȱGLLEEȩÑEȑEEȑE Ed E7EȩE  q} L !,0,0SGɛ L 1 !L EHEh W G gLLSROTCES EERF } G) *Gȩ GȽG GȌd q q G`  8   0G  `D}CEDC0X:Ȣ Y ȱC* ? 0.. , 0%n ?A[ 0 : L`L  `, 0`Y}`piH n0)բY? 08`0 }  0$L GGȽG L `8L`L}8`  05G)݁,G)ȱGȱGHh0})Hh` B! 8`8iiiLE`}E8FEh( l0`ɃLL L8^~jj8jHi hEEEiEȱEiE` dTE} H8EEȱEEȩEh J E8   . m  i`LI!)E1FR}1LJ舩9GIH`LJJ`HGHh l`} S gL   8 rii `дCDCG W  }C  Lq` X٨`DOS SYS IIIIIIIIIIIIIIIC`0 ߩ0}} }W |||DDOS DOSDOS SYS }}}}m}}CDOS SYS} 0`BDELV !B }`LVUQ   ]   TU J ]L!T  #      TU  } L ? .  t`GBJ V~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI   0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DELV䌚 !B y`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J V (` 9 V⪍ ઍ  -'}LLu DEHILV 9 .l 9 .l  `` s$B VBH(}I|DE V BLV nB,DE J V* \*` B V BLVDEHI BLVL)}1u H232435; 1 ;  hh@2 e1i1LHҍ 00) 08 109hh@ Ҡ2e*}1i1232435ޥ<<8}  ,}1  @ LN 41@ T 1040,@ L CREDI@$9 TOTAL CREDIT 1040,LN 41 @ 4 @ 83%@ -}ID IN 8@  EXP PA@$8 1983 EXP PAID IN 84 @ 83% @ OUNT@ TAGE AM@  PERCEN@$7 1984 PERCENTAGE AMOUNT .}$$? B$$$$?! B`$$2B@H$PERCENT$?" B@/}$@ BLEH$ DEDUCTIBLE$?# B $ H$LINE 6$?$ B$ $$?% B$0} $$?& B`$ $$?' B@$ $$?( B $ $$?) 1}B@$TABLE $$?0 @$ PERCENTAGE  @ E@ NSE BAS@$5 EXPENSE BASE$2}   @  INCOME@ SE'S E.@$4b SPOUSE'S E. INCOME  @ INCOME3}@ EARNED @$4a OWN EARNED INCOME4 @ ID@ NSES PA@$3 EXPENSES PAID @ ED 2441@ DIT SCH@ ARE CRE@4}$CHILD CARE CREDIT SCHED 24414A0@ ,LN 38@ TO 1040@  G TAX @ 28 SCH G TAX TO 1040,5}LN 38 $u@ INE 10@ AX ON L@ 26&27 TAX ON LINE 10 $u@ E 8@  ON LIN@ 6}25 TAX ON LINE 8$@ @ NE 23@ % OF LI@$24 300% OF LINE 23$$@ 21 & 22@  LINES @$23 N7}ET LINES 21 & 22$$w@ E 16@  ON LIN@$22 TAX ON LINE 16$$w@ E 17@  ON LIN@$8}21 TAX ON LINE 17$w @ E 19@  ON LIN@$20 TAX ON LINE 19$@  & 18@ INES 17@ AL OF L9}@$19 TOTAL OF LINES 17 & 18$ @ LINE 11@ UNT ON @$18 AMOUNT ON LINE 11$@  & 16@ INES 15@ AL:} OF L@$17 TOTAL OF LINES 15 & 16$ @ LINE 7@ UNT ON @$16 AMOUNT ON LINE 7$?%@$ INCOME@$RAGA;}BLE@$ OF AVE@$15 25% OF AVERAGABLE INCOME4 @  INCOME@ RAGABLE@$14 AVERAGABLE IN<}COME$ @ INE 7@  FROM L@$13 1.4 FROM LINE 7$@  10@ ES 11 &@  OF LIN@$=}12 NET OF LINES 11 & 10$ @ STATE@ MUNITY @$11 COMMUNITY STATE$@ ON@ TRIBUTI@  OF DIS@$>}10 NET OF DISTRIBUTION @ TION@ ISTRIBU@ ATURE D@$9 PREMATURE DISTRIBUTION$g @ 040 L37@ NCOM?}E 1@$8 84 INCOME 1040 L37$@@ @  1.4@ IPLY BY@$7 MULTIPLY BY 1.4$@ @ DE BY 3@$@}6 DIVIDE BY 34& @ COME@ OTAL IN@$5 TOTAL INCOME @ 1-83@ NCOME 8@ DE US I@$4 A}OUTSIDE US INCOME 81-83  @ 7@ 040 L 3@$3 '83 1040 L 37  @ 7@ 040 L 3@$4 '82 1040 L 37 B} @ 4@ 040 L 3@$1 '81 1040 L 34 @ RAGING@ OME AVE@ E G INC@$SCHEDULE G INCOME AVERAGING4C}@ NE 9@ 040, LI@ TOTAL 1040, LINE 9@$@1044 &@ L@ SUBTOTAL@$@9$ @  EXCL@  UTILITY ED}XCL@$@8 @ BLE@  NONTAXABLE@$@7 @ STRIB@  GAIN DISTRIB@$@64 @  TOTE}AL@$@5  @$@PAYOR@$@4  @$@PAYOR@$@4  @$@PAYOR@$@4 @  II@ F}DS PART@$PDIVIDENDS PART II4&@ T@ INTERES@  TOTAL INTEREST@$@3  $@@ G} $@@  @ NTEREST@ OTHER INTEREST$@@ @ D@ FINANCE@ SELLER-FINANCEH}D$@@ @ T I@ EST PAR@$ INTEREST PART I   @ E B@$ SCHEDULE B4I}@ INE 34@  1040 L@ TAL DED@ 26 TOTAL DED 1040 LINE 34$` @ ` @A4` @ ` @J}A#` @A@ ON@ DEDUCTI@ STATUS DEDUCTION@$@254 @ VE@  SUK}M ABOVE@$@24 @$@ TOTALS4& @ TION@  DEDUCTION@$@23  @$@OTHER@$@22 L} @$@OTHER@$@22  @ P@$PTAX PREP@$@21  @$@DUES@$@20 @$@ MIM}SC4 @ S@ LTY LOS@$P19 CASULTY LOSS4& @ TION@  DEDUCTION@$@18  @ ER@  CN}ARRYOVER@$@17  @ H@ NON-CASH@$@16  @ RGE@  CASH LARGE@$@15b$ @ ALL@  CASHO} SMALL@$@15a @ S@ IBUTION@$P CONTRIBUTIONS4& @ TION@  DEDUCTION@$@14  @$@P}OTHER@$@13  @$@OTHER@$@13  @ CARDS@  CREDIT CARDS@$@12  @ HER@  INT. OTQ}HER@$@11b$ @ NANCIAL@ INT. FINANCIAL@$@11a @ EST@$P INTEREST4& @ TION@  R} DEDUCTION@$@10  @$@OTHER@$@9  @$@SALES@$@8a/b  @ TATE@  REAL ESTATE@$S}@7$ @$@INCOME@$@6 @$@ TAXES4 @ TION@  DEDUCTIT}ON@$@5$? @ LESS 5%@$@44& @ L@  TOTAL@$@3  @$@2c o}EiͩkΩ͙kCop j`j {j`Hi͝Νh`V}L"UNEM:D"NURͩkΩ͙kCop j`j {j`Hi͝Νh`#$| * AXLPB0NZ<( ((@@dH"(  X} +AdAU0@@70@@Q0@@c@@ Y}u@@7{(}AR@++(#++(#| ANTIC MONTHLY DISK APR. 198 Z}5 |++(#++(# @ -@A [} $ GG;@@,;@ ,;@@,;A,;@,;@@, "D1:MENU" &&@@ \}D:*.* 6,6." 6 @0i6-%@(6.7@<@,A67@ <@ ,. ]}.i67@<@,.7@<@,3 6.|67B:,%@,.367B:,%@,.G67@<@,.(-- ^}@B:,:7<,4 G67<,..] 6.=:, @D67@<@,.7@<@,]67@<@ _},.0$@(''7@<@,4FREE@- @ 2() <@F''7@ `}<@,4FREE@K @ P(7@<@,)|U @0W'!-@6+'@,%@' |Z+ a}+(#| |[ ( |  |\++(#d-(-(" b} Select HELP.BAS for information.xAR[@@9'-@@"C( FILE NUMBERM c}A0Q[ BP:,A00"@&6.7@<@,0 AELB6.7+&@,$@%@ d}<+&@,$@%@,L B37@<@,4 36.7@<@,!7@<@,4DOS!. e}0 6.-@B:,07<,4 AH67B:,%@,.7<,   6.! 6.D1:!67B:,%@,.? f}AR@'-@@"?  LOADING ? A@@91@@5%? B g}K-@@"-  CANNOT RUN 7 @A BK A0D1:MENUHELP .BASLP   h WELCOME TO THE ANTIC MONTHLY DISK Some of the programs on this diskrequire special hardware or specificinstructions. Sei}e the correspondingissue of ANTIC for documentation.The menu will only run programs witha .BAS extender. If the response j}is'cannot run Filename', then checkthe file extender with the followinglist:XXX.BAS BASIC saved program, use menu k} RUN or LOAD and RUN..EXE Remove BASIC, boot DOS, type L then enter the filename..ASM Assembler sourcel} code..SYS Reserved for DOS system files..TXT Text file.XXX Ken Harm's updated TaxSpreadsheet' is on this disk m}asTAX1040.SC. To load it, bootSYNFILE and, when the screen comesup, press [OPTION] then continue topress [RETURN] until tn}he TAX1040information is loaded.Good luck, and ENJOY! -ANTIC EDnue topress [RETURN] until t` $@@$@2c  @$@OTHER@$@2c  @ RTATION@ TRANSPORTATION@$@2b$p} @ ETC.@  DR,DDS,ETC.@$@2a4$@ PTIONS@  PRESCRIPTIONS$@@ @ AL@$ Mq}EDICAL   @ E A@$ SCHEDULE A  $?P B4 B$ $?H Bi$B r} $?E Bst$B $?B B$BG $?5 Ai$BA$2s}@2@2@$LINE 10$?2 AR$Bt}$2@2@2@$@LINE 8$?( A8$u}B5$2@2@2@$LINE 16$?$ A%4v}$B$2@2@2@$LINE 17$? w} A$BP$2 @2 @2 @$LINE 19$}>?mCOLROASTARTOVECININCCDLISSCCPLPMBASXX@@}}iwLINEAxx ;A ,;@,; (}@;@@ D:DOC.TXTz} A(@2lB:,!@-7@<@,4XXX0(3(E-@@"X( ӠΠ\b(}{}l @@<( @@da@ B*-@@"R("ΠҠՠҠˠҠVa%D:MENU|}D:HELPLINEAxx ;A ,;@,; (}@;@@ D:DOC.TXT @ ~}THE EIGHT QUEENS PROBLEMBY ANGELO GIAMBRAANTIC MAGAZINE A8,!@}A`C-@@+8<8,,"@76-@C6-@( 216-'68,-8,%@}1 @ <-@@Fu<6-+"@)"@,$6@%+"@)"@,u6-+"@)"@,$6@}%+"@)"@,PH 6-%6-8,%H @)!@) @)!@A Z*8<,"@ 6-@}* @PdE 6-%6-%E @)!@) @)!@A n @x C68<8,,-@}!@C2@P@@s6-8,%@6- -/(@!Q2}_6-%@s"@ A68,-@ @0G6-&@%68<8,,-G2A@}@[ 6-8,%@$6-*-9(@ [2868,-8,%@}88,"@ *"@A 8,"@ A` @0669@<@,9@,9@<@,}*&(}STARTING POSITION (1-8)*8"@@K.6-@8@D-@@+}-@@<68<,-@ D 3-@@ 68,-$ 368@,- A@%6-@6-}% A0K6-%@-( SOLUTION K( PRESS ANY KEY"-@@10@}@@E-@@i2$@@@2@$@@@ ,}0@}1-@@5 9 [2}2@69)@}/( 9 A`@!!( DONE J A0T|;@,;A H,367@},.>:,K67A H,.>:,Z67@,.c6-C:,|6-P:'A$,$A$^  6-%A$hB6-&%}@%AADBAF:A,&@r AF:A,&@*+@<A@4NA}@4`ArA A@@AY|aAR@5( EIGHT QUEENS P}ROBLEMJAVF:A,a6-F:A,$AV85,85,127,28,28,127Y-BsDBsD%A(F:,66-%@}: Y6-F:A,$AV%@ 3-@@"!/6-%@3 oA@4'A@4}9B2H@KB2IA]B2PA(oB2QAD3-AAq/67%<%,.>:AU,3} v6-@c6.>:A@,*6-A54 A@6-AcJ AV6-A` Al6-A v Av}6-@U6.>:@,*6-AC4 A@6-AqJ AV6-A` Al6-A 'v A)B2w}@)BBy'AVA-@+B2V%@/ AAY@FKB2R@'B2S}Aa9A@4KA#@ $d-%@)-@@<67%%<%%,.@ D P"@}cd67%,.>:AU,2/67%%%@<%%%@,.>:AU,2$ D1:QUEEN.BAS@`_`P!!AAKEYMTMSCRINFILEOUTFILEBLLLHOPOPOPOPCHOICIOUMINDESSCRENDASHKEYLI}3((  @1 @ @@@q}@@%@@@@@a@@@dSECRET AGENTnBY} JOHN T. SMITHxANTIC MAGAZINE BPGG;@,;@%,;@%,;A ,;A ,;A,11};@,;@,;@@,;@,4267@,. #67@@,.267@,.f6-@16-@}***MAIN MENU***4(>:A%,"AA`4A@H,( (&( ԠԠ)(,(,) ( } Πՠ#(&()(J(MAKE YOUR SELECTION(h%%( 1--TO SELECT A NEW KEYWORDr!!( 2--TO ENCODE A MESSA}GE|!!( 3--TO DECODE A MESSAGE((( 4--TO DISPLAY CURRENT KEYWORD( 5--TO END PROGRAM( (  A}C B* 6-P:,* @)!@AC"@#"@ B # A@P&-"@})"@# A`- A@P0#"@ AP# A@P***KEYWORD SECTION***4(>:A%,"AA}4AA0267@,.-#67@%,.267@,. 6. 67@<@,. .( (%( } Ġ((+(.($$(LENGTH OF KEYWORD (1 TO 25) AQ@ B* 6-P:,* @)!@%}AQ@(6.7@<,F0( (0( ENTER YOUR  CHARACTER KEYWORDP((ONE CHARACTER AT A TIME"(%(((-@}( CHARACTER  :  ARp B 6-@:, !)' AT67<,. (}( ( ((%(YOUR KEYWORD IS: ((( ( -@AP $+( ((( Ġ}Ҡ+(6(KEYWORD CHARACTER @&&(IS NOT IN THE AUTHORIZED LIST.J$$(PLEASE CHOOSE A NEW KEYWORD.T%-@}A % AQp%%***ENCODING/DECODING SECTION***(>:A%,767@,."67A ,.167@},.76. 6-B:, AaUA@H'AA09-@@U  ϠĠ}Ġ7-@@7 ŠŠĠԠ-@AP $.4(>:A%,"A4}A@L;( ( (2(! ԯԠ̠5(8(;(`(SELECT INPUT DEVICE(j( 1--KEYBOARD}o( 2--DISKt( 3--CASSETTE(~ (  Abp B++@*@*@Abp!}!"@)"@Ae8(>:A%,((2( ˠԠŠ5(8( 6.6.!( (!(INPUT FILE }NAME:  Acp B4Ac@ 6-B:,  ( (DISK DRIVE NUMBER:  Ad  B}4)4 6.1(%%01*02*03*04Ad2e67@<@,.D367@<@,.L67@<}@,.:e67@<%@,.Z @@n(>:A%,(((x6-@-'( }ԯԠ̠*(-(/)(!OUTPUT WILL APPEAR ON THE SCREEN.,(/(.+(# SELECT ADDITIONAL OUTPUT DEVICES:.(}( DISK (Y/N):  AeP B 4Y6-$@0Y*0NAeP(  PRINTER (Y/N}):  Aeu B 4Y6-$@0Y*0NAeu ( ( CASSETTE (Y/N):  Ae} B 4Y6-$@0Y*0NAe55"@)"@)"@)"@A  6}.6.9(>:A%,((3( ˠԠŠ6(9("(OUTPUT FILE NAME: , Ag B6}4Af`@ 6-B:,T ( (DISK DRIVE NUMBER: ^ AgP Bh4)4 6.1r%%01*02}*03*04Ag@|e67@<@,.D367@<@,.L67@<@,.:e67@<%@,. } @@@##***ENCIPHERING/DECIPHERING***T:(>:A%,"AA4AA7(:(r2}"@2( ǠŠ|2"@2( ǠŠ"@A}"@A'( ( (('(ENTER YOUR MESSAGE.**("PRESS ΠTO END YOUR MESSAGE.(( MESSAGE: [}##@@K: 6.)@ "AUA 6-B:, "A&AP }!)A !!67%@<%@,.>:,& (>:,0 A: (!@(6.7@<&@,D "@}6.I (>:,N AX  (]@ Al ***DISK INPUT***v 6. %( ( (%( }ˠԠ )@ "AUA !)A0 6-B:, !!67%@<%@,.>:, A0} @ A ***CASSETTE INPUT*** +( ( (%( ŠԠ((+( (PREPARE CASSETTE PLAYER}.!%(%(PRESS Π WHEN READY. !##@@C:*! 6.4!)@>!"AUA`H!}!)AR! 6-B:,\!!!67%@<%@,.>:,f! Ap!@!***TRANSLATION SECTION***! } 6-B:,"A"( ( (( NO MESSAGE$"-@AP $`"( (AR@"6}-@"-@"6-@:7<,," !)6- A""@6-%@:7<,,"%"@%6-&}@:7<,,%+&," !6-&+&,# !6-&+&, # 6-%+&,#67<,.>:,(#-@@ <#"}@( ǠF#"@( ǠZ#_%2@@9-@@= _2}x#$-@@ $( # 6-#6-%@# #&AR&}6.7@<,#"@A#!!"@)"@A`#"@A#***CASSETTE OUTPUT***$7}(>:A%,((1( ŠԠ4(7($(PREPARE CASSETE PLAYER.$.(%(PRESS Π WHEN READY.((+(}.(1$]B7u@5'B7h@@9B7dKB7f]B7sAU6$##@@}C:@$-@J$6-@:7<,,T$*@^$ h$6-AUr$*@$@$"@}A$"@A$***OUTPUT TO DISK***$3(>:A%,(((3( ˠԠ$-@}$6-@:7<,,%*@% %6-AU&%*@0%@D%!!"@)"@A%***}PRINTER OUTPUT***% 3 3 3%/"@/3 ENCODED MESSAGE%/"@/3 DECODED MESSAGE}%'3 3 3'3 MESSAGE: []%***SCREEN OUTPUT*** &6-P:'A,%@ &-@4&167@,.}"67A,.167@,.>&(>:A%,((((\&1"@1( ĠŠf&:"@1}( ĠŠ4(7(:(&6-$A&  6-&((6.7@%+&@,$A<,&'( } MESSAGE: []!($('(&  ' B0&!!(PRESS ΠTO CONTINUE& Ap B' '1( (}+( ŠĠ.(1('""(PRESS Π TO CONTINUE' B B$.##***CURRENT KEYW}ORD DISPLAY***.?(>:A%,!67@,.-067@%,.?67@,.. 6-B:, B!0/'A@}H'AA0/--@@-(ϠĠӠ0/7-@@7(ŠŠĠԠ:}/-@A $b/8AA'AA086.7@<,/3( ( (*( Ԡ}-(0(3(/$!(YOUR CURRENT KEYWORD IS: $(/( /( /*( ( (*(PRESS ΠTO CONTINUE 0 }B# B$a"(>:A%,"+@%@ b/-@@/ @ SECRET AGENTb%-@@}% @ b0-@@0 @ ΠԮHb?-AU;2'@@@?} \bI-@@PE2+AU&,'@@@I fbG-AUC2AU&'@}@@G pb7-@@d32@@7 b2%2/+2}$ D1:AGENT.BASTMSCRINFILEOUTFILEBLLLHOPOPOPOPCHOICIOUMINDESSCRENDASHKEYLI10 REM S.A.M. SPEECH EDITOR20 REM BY MARK GIAMBRUNO30 REM ANTIC MAGAZINE40 REM WARNING! THIS PROGRAM REQUIRES S.A.M. AN }D WILL LOCK UP YOUR COM- PUTER WITHOUT IT.50 REM PLEASE READ THE SPEECH EDITOR ARTICLE BEFORE USING THIS PROGRAM.70 } GRAPHICS 0:SETCOLOR 1,0,8:SETCOLOR 2,6,0:POKE 752,1:IF PEEK(8192)<>104 THEN GOTO 176080 DIM SAM$(255),NSAM$(255),NREC$(255) },TEMPFN$(12),FN$(14),CHOICE$(1),DIR$(17)90 SAM=8192:LIGHTS=8210:SPEED=72:PITCH=64:THROAT=128:MOUTH=128:CONSOLE=53279:CHOICE= }1:COUNT=0:SAMFLAG=1100 SPEEDREG=8208:PITCHREG=8209:THROATREG=18050:MOUTHREG=18051110 REM MENU120 ? CHR$(125):POSITION 11,1 }:? "ȠҠ"130 POSITION 12,3:? " "140 POSITION 12,4:? " Ժ SAM "150 POSITION 12,5:? " LIG }HTS: OFF "160 POSITION 12,6:? " SPEED: 72 "170 POSITION 12,7:? " PITCH: 64 "180 POSITION 12,8:? " KNOBS: ON " }190 POSITION 12,9:? " THROAT: 128 "200 POSITION 12,10:? " MOUTH: 128 "210 POSITION 12,11:? ""220 POSI }TION 6,13:? "USE Ԡ TO CHOOSE ITEM":POSITION 6,14:? "USE Π/ TO ALTER ITEM"230 POSITION 6,15:? "USE Ԡ TO } ENTER PHRASE":POSITION 6,16:? "USE ̭Ҡ TO RESET EDITOR"240 POSITION 6,17:? "USE ̭Ѡ TO QUIT EDITING":POSITION 6,1 }8:? "USE à TO LOAD/SAVE PHRASE"250 POSITION 2,19:? ""260 REM CHECK FOR KNOBS270 IF } PEEK(17800)=104 AND PEEK(23789)=104 THEN GOTO 310280 IF PEEK(17800)=104 AND PEEK(18187)=32 THEN POKE 18187,0:GOTO 310290 I }F PEEK(17800)=104 THEN KNOBS=17800:KNOBSIN=1:KNOBSFLAG=1:GOTO 330300 IF PEEK(23789)=104 THEN KNOBS=23789:KNOBSIN=1:KNOBSFLAG }=1:THROATREG=24039:MOUTHREG=24040:GOTO 330310 KNOBSIN=0:KNOBSFLAG=0:POSITION 22,8:? "N/A":POSITION 22,9:? "---":POSITION 22, }10:? "---"320 REM MAIN LOOP330 POKE 754,255340 IF PEEK(CONSOLE)=6 THEN GOSUB 440350 IF PEEK(CONSOLE)=5 THEN GOSUB 560360 } IF PEEK(CONSOLE)=3 THEN GOSUB 650370 IF PEEK(754)=168 THEN POKE 754,255:POKE LIGHTS,0:RUN 380 IF PEEK(754)=175 THEN POKE 7 }52,0:POKE 754,255:POKE 764,255:GRAPHICS 0:NEW 390 IF PEEK(754)=28 THEN POKE 754,255:GOSUB 1160400 GOTO 340410 REM DELAY SU }BROUTINE420 FOR DELAY=0 TO 30:NEXT DELAY:RETURN 430 REM START SUBROUTINE440 POKE 754,255:POKE 764,255:POKE SPEEDREG,SPEED: }POKE PITCHREG,PITCH450 IF KNOBSFLAG<>0 THEN POKE THROATREG,THROAT:POKE MOUTHREG,MOUTH:A=USR(KNOBS)460 IF SAMFLAG=1 THEN SAM }$=NSAM$470 IF SAMFLAG=0 THEN SAM$=NREC$480 POKE 703,4:POKE 752,0:ROW=0:IF LEN(SAM$)<76 THEN ROW=1490 POKE 656,ROW:? SAM$:P }OKE 656,ROW:POKE 657,1:INPUT SAM$:IF LEN(SAM$)>=114 THEN SAM$(114)=""500 POKE 752,1:? CHR$(125):POKE 703,24510 A=USR(SAM)5 }20 IF SAMFLAG=1 THEN NSAM$=SAM$530 IF SAMFLAG=0 THEN NREC$=SAM$540 RETURN 550 REM SELECT SUBROUTINE560 GOSUB 420570 IF C }HOICE=1 THEN CHOICE=2:POSITION 14,4:? "INPUT:":POSITION 14,5:? "Ӻ":RETURN 580 IF CHOICE=2 THEN CHOICE=3:POSITION 14,5: }? "LIGHTS:":POSITION 14,6:? "ĺ":RETURN 590 IF CHOICE=3 THEN CHOICE=4:POSITION 14,6:? "SPEED:":POSITION 14,7:? "Ⱥ": }RETURN 600 IF CHOICE=4 THEN CHOICE=5:POSITION 14,7:? "PITCH:":POSITION 14,8:? "Ӻ":RETURN 610 IF CHOICE=5 THEN CHOICE=6 }:POSITION 14,8:? "KNOBS:":POSITION 14,9:? "Ժ":RETURN 620 IF CHOICE=6 THEN CHOICE=7:POSITION 14,9:? "THROAT:":POSITION }14,10:? "Ⱥ":RETURN 630 IF CHOICE=7 THEN CHOICE=1:POSITION 14,10:? "MOUTH:":POSITION 14,4:? "Ժ":RETURN 640 REM OPT }ION SUBROUTINE650 IF CHOICE=1 THEN GOTO 730660 IF CHOICE=2 THEN GOTO 780670 IF CHOICE=3 THEN GOTO 890680 IF CHOICE=4 THEN } GOTO 1030690 IF CHOICE=5 THEN GOTO 820700 IF CHOICE=6 THEN GOTO 1060710 IF CHOICE=7 THEN GOTO 1110720 REM SAM OR REC OPT }ION730 GOSUB 420740 IF SAMFLAG=0 THEN SAM=8192:SAMFLAG=1:POSITION 22,4:? "SAM":RETURN 750 IF SAMFLAG=1 AND PEEK(18187)<>32 } THEN GOTO 1700760 SAM=8199:SAMFLAG=0:POSITION 22,4:? "REC":RETURN 770 REM LIGHTS ON/OFF OPTION780 GOSUB 420790 IF SPEEDR }EG=8208 THEN SPEEDREG=8206:PITCHREG=8207:POKE LIGHTS,1:POSITION 22,5:? "ON ":RETURN 800 SPEEDREG=8208:PITCHREG=8209:POKE LIG }HTS,0:POSITION 22,5:? "OFF":RETURN 810 REM KNOBS SUBROUTINE820 IF KNOBSIN=0 THEN GOTO 1710830 GOSUB 420840 IF KNOBSFLAG=0 } THEN KNOBSFLAG=1:POSITION 22,8:? "ON ":POSITION 22,9:? " ":POSITION 22,10:? " ":GOTO 870850 KNOBSFLAG=0:POKE THROATREG, }128:POKE MOUTHREG,128:A=USR(KNOBS):POSITION 22,8:? "OFF"860 POSITION 22,9:? "---":POSITION 22,10:? "---":RETURN 870 POSITIO }N 22,9:? THROAT:POSITION 22,10:? MOUTH:RETURN 880 REM SPEED SUBROUTINE890 VALUE=SPEED:X=22:Y=6:GOSUB 920900 SPEED=VALUE:RE!}TURN 910 REM PRINT VALUE SUBROUTINE920 IF PEEK(764)=15 THEN VALUE=VALUE-1:GOTO 940930 VALUE=VALUE+1940 IF VALUE<0 THEN VA!}LUE=255:GOTO 980950 IF VALUE>255 THEN VALUE=0960 IF VALUE<10 THEN POSITION X+1,Y:? " ":GOTO 980970 IF VALUE<100 THEN POSI!}TION X+2,Y:? " "980 POSITION X,Y:? VALUE990 IF COUNT<5 THEN COUNT=COUNT+1:FOR DLAY=0 TO 30:NEXT DLAY1000 IF PEEK(CONSOLE)=!}3 THEN GOTO 9201010 POKE 764,255:COUNT=0:RETURN 1020 REM PITCH SUBROUTINE1030 VALUE=PITCH:X=22:Y=7:GOSUB 9201040 PITCH=VA!}LUE:RETURN 1050 REM THROAT SUBROUTINE1060 IF KNOBSIN=0 THEN GOTO 17101070 IF KNOBSFLAG=0 THEN GOTO 16901080 VALUE=THROAT:!}X=22:Y=9:GOSUB 9201090 THROAT=VALUE:RETURN 1100 REM MOUTH SUBROUTINE1110 IF KNOBSIN=0 THEN GOTO 17101120 IF KNOBSFLAG=0 T!}HEN GOTO 16901130 VALUE=MOUTH:X=22:Y=10:GOSUB 9201140 MOUTH=VALUE:RETURN 1150 REM LOAD/SAVE MENU1160 TRAP 16501170 OPEN !}#1,4,0,"K:":POKE 764,255:POSITION 4,20:? "IRECTORY, OAD OR AVE PHRASE?";1180 POKE 694,0:POKE 702,64:GET #1,KEY:IF KEY=68 !}OR KEY=76 OR KEY=83 THEN ? CHR$(KEY):GOTO 12001190 ? "";:GOTO 11801200 IF KEY<>68 THEN GOTO 13401210 REM SHOW DIRECTORY1! }220 CLOSE #1:TRAP 1270:POKE 703,4:POKE 754,255:OPEN #1,6,0,"D:*.*"1230 ? CHR$(125):INPUT #1,DIR$:POKE 656,0:? DIR$;" ";:INP! }UT #1,DIR$:? DIR$1235 INPUT #1,DIR$:? DIR$;" ";:INPUT #1,DIR$:? DIR$1240 IF DIR$(5)="FREE SECTORS" THEN GOTO 12801250 GOS! }UB 13001260 POKE 754,255:GOTO 12301270 ? 1280 GOSUB 13001290 CLOSE #1:? CHR$(125):POKE 703,24:POKE 754,255:RETURN 1300 ?! } " Ԡ٠٠Ϡ"1310 IF PEEK(754)<>255 OR PEEK(CONSOLE)<>7 THEN POKE 754,255:POKE 764,255:RETURN 1320 GOTO! } 13101330 REM ENTER FILENAME1340 FN$="D:":POKE 752,0:? " ҠŮԠ ";1350 POKE 694,0:POKE 702,64:GET #1,FN1360!} IF (FN>47 AND FN<58) OR (FN>64 AND FN<91) THEN ? CHR$(FN);:FN$(LEN(FN$)+1)=CHR$(FN):GOTO 13501370 IF FN=126 THEN FN$(LEN(FN!}$))="":? CHR$(FN);:GOTO 13501380 IF FN<>155 THEN ? "";:GOTO 13501390 POKE 752,1:? 1400 IF KEY=76 THEN ? " Š!}ǠӿٯΩ":POKE 694,0:POKE 702,64:GET #1,KEY1410 CLOSE #1:POSITION 0,20:? ""1420 IF KEY=83 THEN GOTO 15901430 !}REM LOAD PHRASE1440 OPEN #1,4,0,FN$1450 TRAP 1550:SAM$=""1460 IF KEY<>89 THEN GET #1,NSAMFLAG:FOR L=1 TO 6:GET #1,Z:NEXT L!}:IF NSAMFLAG<>SAMFLAG THEN GOSUB 7401470 IF KEY<>89 THEN GOTO 15401480 GET #1,NSAMFLAG:GET #1,NLIGHTS:GET #1,SPEED:GET #1,P!}ITCH:GET #1,NKNOBSFLAG:GET #1,THROAT:GET #1,MOUTH1485 IF NSAMFLAG=0 AND PEEK(18187)<>32 THEN GOTO 15001490 IF NSAMFLAG<>SAM!}FLAG THEN GOSUB 7401500 IF NLIGHTS<>PEEK(LIGHTS) THEN GOSUB 7801510 SPEED=SPEED-1:GOSUB 890:PITCH=PITCH-1:GOSUB 1030:IF KNO!}BSIN=0 THEN GOTO 15401520 THROAT=THROAT-1:GOSUB 1080:MOUTH=MOUTH-1:GOSUB 11301530 IF NKNOBSFLAG<>KNOBSFLAG THEN GOSUB 8201!}540 IF NSAMFLAG=0 AND PEEK(18187)<>32 THEN SAM$=NSAM$:GOTO 15701545 FOR L=1 TO 113:GET #1,CHAR:SAM$(L,L)=CHR$(CHAR):NEXT L1!}550 IF SAMFLAG=1 AND SAM$<>"" THEN NSAM$=SAM$:GOTO 15701560 IF SAM$<>"" THEN NREC$=SAM$1570 CLOSE #1:GOSUB 440:RETURN 1580!} REM SAVE PHRASE1590 OPEN #1,8,0,FN$1600 PUT #1,SAMFLAG:PUT #1,PEEK(LIGHTS):PUT #1,SPEED:PUT #1,PITCH:PUT #1,KNOBSFLAG:PUT !}#1,THROAT:PUT #1,MOUTH1610 IF SAM$="" THEN GOTO 16301620 FOR L=1 TO LEN(SAM$):CHAR=ASC(SAM$(L,L)):PUT #1,CHAR:NEXT L1630 C!}LOSE #1:POKE 754,255:GOTO 17201640 REM ERROR HANDLING1650 CLOSE #1:POKE 754,255:POKE 764,255:ERROR=PEEK(195):POSITION 2,20:!}? "":POSITION 11,201660 IF ERROR=170 THEN ? "ŠԠĠ":GOTO 17401670 IF ERROR=165 THEN ? "ԠŠ":GO!}TO 17401680 ? " Ҡ";:? ERROR:GOTO 17401690 POSITION 12,20:? "ӠԠΠ":GOTO 17401700 POSITION 8,20:? "!}ҠԠŠ":GOTO 17401710 POSITION 9,20:? "ӠԠŠ":GOTO 17401720 POSITION 13,20:? "ŠĠ"!}:GOTO 17401730 POSITION 2,20:? "":POSITION 12,20:? "Ҡ٠"1740 IF PEEK(764)<>255 OR PEEK(CONSOLE)<>7 THEN POS!}ITION 2,20:? "":RETURN 1750 GOTO 17401760 ? CHR$(125):POSITION 10,2:? "ӮͮԠĠ":POSITION 9,4:? "ΠƠ! }Ҡ"1770 POSITION 9,5:? "ŭԠȠӮͮ":POSITION 11,8:? "THE S.A.M. EDITOR":POSITION 11,91780 ? "CAN BE USE!!}D WITH:":POSITION 11,11:? "1-S.A.M. ALONE":POSITION 11,12:? "2-SAM & RECITER":POSITION 11,131790 ? "3-SAM & KNOBS.SAM":POSIT!"}ION 11,14:? "4-SAM & KNOBS.REC":POSITION 11,15:? "5-SAM, RECITER"1800 POSITION 13,16:? "& KNOBS.REC"1810 POSITION 10,18:? "!#}NOTE: DON'T USE SAM,":POSITION 10,19:? "RECITER & KNOBS.SAM"1820 POSITION 10,20:? "-OR A COMBINATION OF":POSITION 10,21:? "K!$}NOBS.SAM & KNOBS.REC"1830 GOTO 1830 MARK GIAMBRUNO30 REM ANTIC MAGAZINE40 REM WARNING! THIS PROGRAM REQUIRES S.A.M. AN %WXI`P0P1P2P3FILEFILENAMEBGETFIRSTFIRSTFIRSTSSECONDSECONDOKAPPPPPOLH%&} %'} PATRICK'S PRICELESSPICTURE SHOWBY P.L. DELL'ERA(ANTIC MAGAZ%(}INEFRR;A,;A,;A,;A,;@,;@,;@H,PO +@$AAF1A%)}AD@6-F:A`,O6-F:Aa,Z=6-%$AV%@=6-F:@,%F:@,$AVdA6-%@%*}n6-%@xF:,"@@,F:,"@y@x,6-%@F:,@eA %+} AF:A,&@45 +6-F:A`,+6-F:Aa,5 ABUILD DLI ROUTINE, BGET$(RELOCAT%,}ABLE)/ #AP!-A6Aw%"+/ ::.0h 0 hhhhhEhDhIhHB VՄ`INPUT ROU%-}TINE1 A@@1AR@.@.@@K:,,($}˧Ӡ%.}ӠŠ"1@1@@D:*.*,% A6-@%6-@6@@$$%/}7@<@,0 AJ6-@T06-%@07<,0 * @A@^W7<,0 *"@16.%0}7@<@,<67,..M67%@,.W Ah=7@<@,4 36.7@<@,= Ar267%1}<,..267%@,.7@<@,|Z - 7@,66-@%+"@,$@P6-%@$+"@,Z %2}A B@9-@@'@@9AR@(Please enter filename:6%3}-@ 6-@+6.D1:------------'-&@+( 6. F:Ad,AUA F:B2y,@%4}AP A @ F:B2y,@A A AP)@"AUA+%5}B:,"@*@:~,!(+ AS6-G+!@d* @,)"@F)+!@G* @X,S6-@D%6} -(>:,,67B:,%@,.>:,:6-%@D A&@:~,A0EB:,"@6-@ %6.+-%7};(@-E A:(B:,ADS6-&@-'(@---I6.7@:,67A,.*67@,.* 6.>:,67A,.*67@,.* 6.>:,67A,.*67@%;},.* 6.>:,67A,.*67@,.6-@"6-%@"!B:,A@7<,4.A@%<} @A)67,..P06-%@)6-@:0,. 6-C:, AP"Af.Ag. 6-C:, AP%=}"AE.AF. 6-C:, AP"AT.AU . 6-C:, AP"A`.Aa A %>}@  F:B2y,@A*7BB@d!A`-Aa7 A`>FILL COLOR POTSR Ap%?}\> @@>6-?:C:,<@<<A,f@ Bp6-%@67<,.>:,z(#%@}6-F:A,%6-F:A,($!!INSTALL DLI, PUT PICTURE ON SCREEN3AA'A 3A%A}A`AaNA'A@9BBAKAY@4N$TURN TEXT S%B}CREEN ONiAAF'AAD9A @KAR@N(ZA`fAai$(RELOC%C}ATABLE)cc72,138,72,162,191,141,10,212,189,204,204,141,10,212,141,22,208,189,204,204,141,23,208,189,204$FF204,141,24,20%D}8,189,204,204,141,26,208,202,208,226,104,170,104,64D1:PRICELES.BASONDOKAPPPPPOLH$KO-CBUFBYTHERHOWMAN PRICE PATCHEDBY P.L. )F}DELL'ERAANTIC MAGAZINEF +P;A$',Z..@@ D:PAINTER.EXEd3-@@)G}3(READING D:PAINTER.EXE ...n-@A$'x)@67<,.>:, @&-@@)H}&( PATCHING ...-@ "-"67%<%,.>:,  3-@)I}@3(WRITING D:PATCHED.EXE .....@@ D:PATCHED.EXE-@A$'*@@:7)J}<,, "@,6 366,29@80,97,116,99,104,101J100,32,98,121,32,80T46,32,68,101,108,108^)K}39,69,114,97,32,45h45,65,78,84,73,67r 441,3|32,32,32,32 482,276,186,88 492,3448,1,96,169)L},34,14147,2,162,96,169,12157,66,3,32,86,228169,3,157,66,3,169204,157,68,3,169,89157,69,3,208,38)M} 566,3476,0,89,169,0,1410,208,141,1,208,15775,3,169,12,157,743,32,86,228,160,12169,32,153,)N}149,87,13616,250,76,120,88& 602,1700,169,5,157,66,3:169,149,157,68,3,169D87,157,69,3,169,13N 633)O},19X160,255,200,185,149,87b201,46,240,4,201,155l208,244,140,90,89,76v 61,89 662,4162,0,189,149,)P}87 692,1 144,226 704,2174,90,89 726,2234,234,234 743,276,150,89 806,576)Q},211,89,83,58,155 843,232,148,88  2419,276,154,88  2426,1* 154,88D1:PATCHED.BASBY P.L. (u54E (c)1983 Action Computer Services  B JKIHiDiELV`Ln4-S} n4 BLV` L44l L4 &` Fj`8冨凪` 5EӅӥ-T} 5`ʆǪƩ Ɛee` 5ƦʆǢ &Ɛeǐ 55 55L4 5'&&&8儨児-U}祂*L4&&*ń8&&L4 5`hihiHHȱȱL4c !#3`-V}L4JJJJ`H 4h`Hȩh 4L"6 4L"6 V4L"6 ^4L"6 d4H8-W}`HhHh 6L"6 BHI V䅠L"6 L6 n4L"6Ԇ ؠPIPP`-X} 6P ^4L"6 7L6 6L#7 77L6H- 68塪墨hL77 P7L6 W7L6 6ȹP`-Y}텠8堨塪 6芨Oȩ-`PP 6P棩 Ѥģ0-ģ6000:,80H -Z}& &ehe&eģ0ʥ 8堅塅`$ 6&*i0:0i 6Ʀ`¢ 护-[}°ڱ%ȱ%E 6L8担CS 6L8I P7L8H K8L8 7L8 &B V "6NLMȑ-\}` MLN%B VL"6S:39E:89H }6 ;9<9 F6 }6h)0I6979LF6[\ZUVT` q96979-]}` x9L6 k9L6 q9L6) ` x9L6 W5` 0d 4ҥ `2)2-^}ҩ`҅`0)92:`@0)ӈJJJJ)`Ѕ`ȱ`` f:ȥ`Hh-_}ƣĢ`ƥĤ`Ѣ :`ȱѢĦ`膡`-`}`ťƤe8夰L; Ƥ8`ŦeѠe桊L ;@{;-a}E@:L;;;i;i;;i;i; ;i;i; ;;; `I L?;L;;;;J-b}J;;);; m;*(m;;;;m;;i;m;;i1;m;;i`󠠠ӠР-c}L< 5i<jzo<L=mxV>q<L>Hp<Le>n8n<nvvm8m<m`L> =9;;YX-q}b'DOS SYSbs+TAX1040 SC bUAUTORUN SYSbWMENU bhDOC TXTbyHELP BASbxQUEENS8 BASbDAGENT BASbISPEECHEDLSTb %PRICELESBASb EPATCHED BASb#RSPLASH EXEb ~SPLASH1 BASb SPLASH2 ACTbSPLASH3 ACTbSPLASH4 ACTb[MANEUVERBASbGCRAZY8 BASbdPBI M65byDIGITIZEBASRESETIO BASTYPOERASLSTȌ>>LE?> m;*(m;8> m;*(m;i(ȱi>L>1>0>>i>iN>-r}ic>iN>b>L?>m>>i>L~?f>>L?>m>>i>L?`6P?L??-s}???LE@??? |LB F@LBLBILB x@LB-y}LBI9LB ALBLBLB ALBLBI#LB`LB 6:KBKBIL$C?ɟL$C?L{CKBI LDC?LDC8??L{CKBI L^C?-z}L^C?L{CKBIL{C?L{C8??LPB`LC >??LC?m??i?m??i?LCLC$-{}󠠠ӠР̠ӠȠC p6LD"CENTER 80 , 60 [S]tep 7 [C]OLORC p6LED! [joystick] [H]ueD# p6-|}LqD![trig]-SPLASH [N]ew Screen [L]umDO 6P? ,/,@/AY B-AY1}D ,/A,F/ H$dJOYSTICKf'AV@'AW@h--($[trigge1}r] - SPLASH n'AV@'AW@ p( ,  x/6-R:,/T:,"1}A@z4F:Ad, AU*AdAU4 AP|"@A '"@* A'6-%@1}'"@*!'6-&@'"@* AY'6-%@'"@*!'6-&@ 1}A$INC STEP)6-%@!@)6-@0AV@'AW@%0( 33A1}@$P:H:,$@,%@$ SETUP1 +@A1A @33A@1}$P:H:,$@,%@CAR@@+6-A 76-@`C6-@,,($Ү1}Р̠ӠȠ""(CENTER 120 , 60 STEP 7 !!( [joystick] [S] $D1:SPLASH1.BASMAGAZINE0s; SPLASH 2; Paul Chabot ;MODULEBYTE c1=709,c2=710,bor=712,cur=752 ,key=764,trow=656,tcol=657,y,sCARD xPR5}OC Setup()Graphics(8):c2=0:c1=14:cur=1:color=1bor=16*Rand(16)+2:x=120:y=60:s=7PrintE("ҮӠР̠ӠȠ"5})PrintE("CENTER 120 , 60 STEP 7 ")PrintE(" [joystick] [S] ")RETURNPROC Splash()CARD ibor=16*Rand(16)+2FO5}R i=0 TO 319 STEP s DO Plot(x,y):DrawTo(i,0) Plot(x,y):DrawTo(i,159)ODFOR i=0 TO 159 STEP s DO Plot(x,y):Dr5}awTo(319,i) Plot(x,y):DrawTo(0,i)ODRETURNPROC IncStep()s==+1:bor=16*Rand(16)+2IF s>16 THEN s=1 FItrow=1:tcol=25:Prin5}tB(s):Print(" ")RETURNPROC Joystick()BYTE sttrow=3:tcol=2Print("[trigger] - SPLASH ")DO trow=1:tcol=9:st=Stick(05}) PrintC(x):Print(" , "):PrintB(y):Print(" ") WHILE Stick(0)=15 DO IF Strig(0)=0 THEN RETURN FI IF key<255 THEN 5}key=255:IncStep() FI OD st=Stick(0) IF st=7 AND x<319 THEN x==+1 ELSEIF st=11 AND x>0 THEN x==-1 ELSEIF st=13 AND y<15}59 THEN y==+1 ELSEIF st=14 AND y>0 THEN y==-1 FIODRETURNPROC Main()DO key=255:Setup() DO Joystick():Splash() t5}row=3:tcol=2 Print("[A]-Another [C]-Clear") WHILE key=255 DO OD IF key=18 THEN EXIT FI key=255 ODOD5}RETURNSH 2; Paul Chabot ;MODULEBYTE c1=709,c2=710,bor=712,cur=752 ,key=764,trow=656,tcol=657,y,sCARD xPR4; SPLASH 3;------------------------------------; Gr8; Paul Chabot;MODULEBYTE ARRAY mask=[128 64 32 16 8 4 2 1]CARD A9}RRAY adrow(160)PROC Clor(BYTE c)BYTE iFOR i=0 TO 7 DO mask(7-i)=c:c==LSH 1ODRETURNPROC Dot(CARD x,BYTE y)BYTE xb,9}xrBYTE ARRAY row ,premask=[127 191 223 239 247 251 253 254]xb=x RSH 3:xr=x AND 7:row=adrow(y)row(xb)==& premask(xr) % ma9}sk(xr)RETURNPROC BLine(CARD x1,BYTE y1,CARD x2,BYTE y2)BYTE y,xf,yf,jCARD x,iINT a,b,t,dx,dyDot(x1,y1):Dot(x2,y2) 9}IF x2>x1 THEN dx=x2-x1:xf=0ELSE dx=x1-x2:xf=1 FIIF y2>y1 THEN dy=y2-y1:yf=0ELSE dy=y1-y2:yf=1 FIIF dx<2 AND dy<2 THEN RET9}URN FIx=x1:y=y1IF dx>dy THEN a=dy+dy:t=a-dx:b=t-dx FOR i=2 TO dx DO IF xf=0 THEN x==+1 ELSE x==-1 FI IF t<0 THEN9} t==+a ELSE t==+b IF yf=0 THEN y==+1 ELSE y==-1 FI FI Dot(x,y) ODELSE a=dx+dx:t=a-dy:b=t-dy FOR j=2 TO dy 9}DO IF yf=0 THEN y==+1 ELSE y==-1 FI IF t<0 THEN t==+a ELSE t==+b IF xf=0 THEN x==+1 ELSE x==-1 FI FI Do9}t(x,y) OD FIRETURNPROC Gr8()BYTE bor=710,iCARD sa=88Graphics(8):bor=18:adrow(0)=saFOR i=1 TO 159 DO adrow(i)=adro9}w(i-1)+40ODRETURN;------------------------------------; Variant of SPLASH;MODULEBYTE c1=709,c2=710,bor=712,cur=752 ,9}key=764,trow=656,tcol=657,y,sCARD xPROC Setup()Gr8():c2=0:c1=14:cur=1:x=120:y=60:s=7bor=16*Rand(16)+2PrintE("Ү9}ӠР̠ӠȠ")PrintE("CENTER 120 , 60 STEP 7 ")PrintE(" [joystick] [S] ")RETURNPROC Splash()CAR9}D ibor=16*Rand(16)+2FOR i=0 TO 319 STEP s DO BLine(x,y,i,0):BLine(x,y,i,159)ODFOR i=0 TO 159 STEP s DO BLine(x,y,0,i)9}:BLine(x,y,319,i)ODRETURNPROC IncStep()s==+1:bor=16*Rand(16)+2IF s>16 THEN s=1 FItrow=1:tcol=25:PrintB(s):Print(" ")R9}ETURNPROC Joystick()BYTE sttrow=3:tcol=2Print("[trigger] - SPLASH ")DO trow=1:tcol=9:st=Stick(0) PrintC(x):Prin9}t(" , "):PrintB(y):Print(" ") WHILE Stick(0)=15 DO IF Strig(0)=0 THEN RETURN FI IF key<255 THEN key=255:IncStep() 9}FI OD st=Stick(0) IF st=7 AND x<319 THEN x==+1 ELSEIF st=11 AND x>0 THEN x==-1 ELSEIF st=13 AND y<159 THEN y==+1 EL9}SEIF st=14 AND y>0 THEN y==-1 FIODRETURNPROC Main()DO key=255:Setup() DO Joystick():Splash() trow=3:tcol=2 P9}rint("[A]-Another [C]-Clear") WHILE key=255 DO OD IF key=18 THEN EXIT FI key=255 ODODRETURN 1]CARD A8s; SPLASH4;------------------------------------; Gr7plus ; Paul Chabot ;MODULEBYTE ARRAY mask=[64 16 4 1]CARD ARRAY =}adrow(160)PROC Clor(BYTE c)mask(3)=c:mask(2)=c LSH 2mask(1)=c LSH 4:mask(0)=c LSH 6RETURNPROC Dot(BYTE x,y)BYTE xb,xr=}BYTE ARRAY row ,premask=[63 207 243 252]xb=x RSH 2:xr=x AND 3:row=adrow(y)row(xb)==& premask(xr) % mask(xr)RETURNPROC=} BLine(BYTE x1,y1,x2,y2)BYTE x,y,xf,yf,iINT a,b,t,dx,dyDot(x1,y1):Dot(x2,y2) IF x2>x1 THEN dx=x2-x1:xf=0ELSE dx=x1-x2=}:xf=1 FIIF y2>y1 THEN dy=y2-y1:yf=0ELSE dy=y1-y2:yf=1 FIIF dx<2 AND dy<2 THEN RETURN FIx=x1:y=y1IF dx>dy THEN a=dy+dy:t==}a-dx:b=t-dx FOR i=2 TO dx DO IF xf=0 THEN x==+1 ELSE x==-1 FI IF t<0 THEN t==+a ELSE t==+b IF yf=0 THEN =}y==+1 ELSE y==-1 FI FI Dot(x,y) ODELSE a=dx+dx:t=a-dy:b=t-dy FOR i=2 TO dy DO IF yf=0 THEN y==+1 ELSE y==-1 FI =} IF t<0 THEN t==+a ELSE t==+b IF xf=0 THEN x==+1 ELSE x==-1 FI FI Dot(x,y) OD FIRETURNPROC Gr7plus()BY=}TE iBYTE ARRAY dlCARD sa=88,dlist=560Graphics(8):adrow(0)=saFOR i=1 TO 159 DO adrow(i)=adrow(i-1)+40ODdl=dlist:dl(3)==}78:dl(99)=78FOR i=6 TO 98 DO dl(i)=14 ODFOR i=102 TO 166 DO dl(i)=14 ODRETURN;------------------------------------; COLO=}R SPLASH;MODULEBYTE cur=752,key=764,trow=656,tcol=657 ,x,y,s,c,i,jBYTE ARRAY creg=708 ,dfault=[54 26 194 0 80]PROC =}Splash()FOR i=0 TO 159 STEP s DO BLine(x,y,i,0):BLine(x,y,i,159) BLine(x,y,0,i):BLine(x,y,159,i)ODRETURNPROC IncStep=}()s==+1:IF s>16 THEN s=1 FItrow=1:tcol=26:PrintB(s):Print(" ")RETURNPROC IncColor()i=c:c==+1IF c>3 THEN c=0:i=4 FIClo=}r(c):i=creg(i) trow=1:tcol=37:PrintB(c):Print(" ")trow=2:tcol=36:PrintB(i RSH 4):Print(" ")trow=3:tcol=36:PrintB(i & 14):P=}rint(" ")RETURNPROC IncHue()IF c=0 THEN i=4 ELSE i=c-1 FIj=creg(i) RSH 4:j==+1IF j>15 THEN j=0 FItrow=2:tcol=36:PrintB=}(j):Print(" ")creg(i)=(j LSH 4)+(creg(i) & 14)RETURNPROC IncLum()IF c=0 THEN i=4 ELSE i=c-1 FIj=creg(i) & 14:j==+2IF j=}>15 THEN j=0 FItrow=3:tcol=36:PrintB(j):Print(" ")creg(i)=(creg(i) & 240)+jRETURNPROC Joystick()BYTE st,kDO trow=1:tco=}l=9 PrintC(x):Print(" , "):PrintB(y):Print(" ") WHILE Stick(0)=15 DO IF Strig(0)=0 THEN Splash() FI IF key<255 TH=}EN k=key:key=255 IF k=62 THEN IncStep() ;S ELSEIF k=18 THEN IncColor() ;C ELSEIF k=57 THEN IncHue() =} ;H ELSEIF k=0 THEN IncLum() ;L ELSEIF k=35 THEN RETURN ;N FI FI OD st=Stick(0) IF st=7 =}AND x<159 THEN x==+1 ELSEIF st=11 AND x>0 THEN x==-1 ELSEIF st=13 AND y<159 THEN y==+1 ELSEIF st=14 AND y>0 THEN y==-1=} FIODRETURNPROC Setup()Gr7plus():cur=1FOR i=0 TO 4 DO creg(i)=dfault(i) ODPrintE("󠠠ӠР̠ӠȠ=}")PrintE("CENTER 80 , 60 [S]tep 7 [C]OLOR")PrintE(" [joystick] [H]ue")Print("[trig]-SPLASH [N]ew Scre=}en [L]um")x=80:y=60:s=7:c=0:IncColor()RETURNPROC OpenScene()Setup():x=20:y=20:s=9:Splash()IncColor():x=50:y=110:s=7:Spl=}ash()IncColor():x=120:y=60:s=9:Splash()IncColor():x=80:y=130:s=9:Splash()IncColor():x=140:y=130:s=7:Splash()RETURNPROC =}Main()OpenScene():Joystick()DO Setup():Joystick() ODRETURNPaul Chabot ;MODULEBYTE ARRAY mask=[64 16 4 1]CARD ARRAY <?~, -AVTABLSCREENRAOFFSEVVCHRBASEBYTEMECHACLOOPGCHASETIMBYTCSTARPLACPOBPOSPP1PP2PLAYEBA}IGLOOPIECPPOPLARRMOVPLARR2MOOVPLARR1OCCHIDADISPPCHANCTURPLPPDGAMNOPLANOKyHB%A}B`BS@rA!@@ @ P @2A}@d42@&@@@@@ A!A}@A"C #@R@$%@&'@(A)*Ag+@,-@c.@/@0@A}1234Xu$A5678@9A:O ;B<=>?@@A}A@MANEUVERBY WILL WOODARDANTIC MAGAZINE ZZ;A@,;@,;@,;@,;@A},9@<@ ,9@, +@%%6-F:A4,%AV$F:A5,%%6-F:@,%AV$F:@,(6A}-&C:,26-P:'AV,<6-&AV$F%@H%@JAVA&L0@@A}70@@@Q0@@k0@@@0@MT-@A}A@@*67,.=67%@,.P67%@,.T N) "6@)6.7&<&,O}6@A}-%6.7<,067<,.?67&<&,.[2@@w2@@@}6.P6@A}  @xQG%2G2@Rhh210,30,-20,e,40,31,-1,u,29,29,1,n,A}212,32,-20,v,21,28,1,a,33,33,20,e,2,27,1,m,59,34,-1,r,-1,-1,-1,fZ##@@K:d B^6-@A}c-@B( ( ((-@B( Enter orders for blinking player((8%+$,<@,"A}A06-8%+$,,6.7<,-@@92@G@@F67<,.Z-@@%A}^ i67<,.}-@@% )%2) L"-@8%+$,<@,/)@A}@68%+$,<,-H(>:,L  AY"((((3(ERROR IN ORDERS...G-@AK Y6-A}&@( ( (((  i( ( ((i(GREEN DAMAGE: :8@<@, {:8@<@, :A}8@<@,&]](RED DAMAGE: :8@<@, {:8@<@, :8@<@,X-@A}@]-@_;"@6-% A216-@; A4a;"@6-@% A416A}-; A2v w  A9x# 8%+$,<@,"#$y? 8%+$,<,$A<2A}?$z# 8%+$,<@,"#${? 8%+$,<,$A<2?$)6-%@A}"@)6-@i( ( ((i(GREEN DAMAGE: :8@<@, {:8@<@, :8@A}<@,]](RED DAMAGE: :8@<@, {:8@<@, :8@<@,0#(Press any key tA}o continue..0)@ AU6-@6-""-@8%+$,<@,6.>:8%+$,<,,A}++0N*0S*0E*0W,+6-@3'+*01*02*03*04*0-,36- $-@AA} $-@A $${6- B`{-8%+@$,,&@ 8%+@$,,&@ &+8%+A}@$,<@,$@ ,6@ &6-%@(@g' AI@.A6.7<,44T)4)4{)4)4A}@)47'A AI%3+67<,.+6.7%@ <%@ ,8H++0*0*0*0T*0@*0{,H67%@ <%A}@ ,.: ; AI@=6.7%@ <%@ ,>F)0*0*0*0T*0@*0{F67%@ <%@ A},.?r6.7<,"-@d@067<,.>:,L2@@n2r BA}67<,.D AG$L6.7%@ <%@ ,NH++0*0*0*0T*0@*0{,H67%@ <%@ A},.Q$h6- B`h-8%+@$,,%@8%+@$,,%@%8%+@$,<@,6-A}%@bU+P:'@,,'@P:P:'@,'@,*&+P:'@,$@,@X'b AP@A6.7<,44A}T)4)4{)4)4@)47'A AP%+67<,.+6.7&@<&@,H++0*0*0*0T*0@A}*0{,H67&@<&@,.  AP@a6.7&@<&@,D0*0*0*0T*0@*0{A}a67&@<&@,.r6.7<,"-@d@067<,.>:,L2@@n2A}r 67<,. A$6.7&@<&@,H++0*0*0*0T*0@*0{,HA}67&@<&@,.$z6- B`z-8%+@$,,%@ 8%+@$,,%@ %+8%+@A}$,<@,$@ ,@ 6-%@At' AQ@A6.7<,44T)4)4{)4)4@)4A}7'A AQ%+67<,.+6.7&@ <&@ ,H++0*0*0*0T*0@*0{,H67&@ <&@ A},.  AQ@6.7&@ <&@ ,F)0*0*0*0T*0@*0{F67&@ <&@ ,.A}r6.7<,"-@d@067<,.>:,L2@@n2r  67:,L2@@n2A}r n67<,.p As$x6.7%@<%@,yH++0*0*0*0T*0@*0{,A}H67%@<%@,.}$--68@<@,-8@<@,& 8@<@,4-@A}@%i2H:,$@%@P@@678@,<8@,,.>:H:,$A%, %%2A} $6-8%+$,,6.7<,L6.7%@<%@,L4T)4)4{)4)4@)4A}Ai %%4`)4)4Y)4Ai 4Ai +67<,.+67%@<%@,.##68%+$,A},-8%+$,,%@$x6-8%+$,,6.7<,y6.7&@ <&@ ,z==4T)4)4{)4)4@)4A})4Y)4Ax {%%4`)4)4Y)4Ax |-6.78%+$,,&@ ,-4Ax +67<,.+67A}&@ <&@ ,.##68%+$,,-8%+$,,&@ $l 6-8%+$,,6.7<,n L6.7%@ <%@ ,LA}4T)4)4{)4)4@)4A o %%4`)4)4Y)4A p 4A v +67<,.+67%@ A}<%@ ,.{ ##68%+$,,-8%+$,,%@  $ --68@<@,-8@<@,& 8@<@A},4-@@%i2H:,$@%@P@@678@,<8@,,.>:H:,$AA}%,  %%2 $!6-8%+$,,6.7<,!L6.7&@<&@,L4T)4B})4{)4)4@)4A !%%4`)4)4Y)4A "4A "+67<,.+67&@<&@B},. "##68%+$,,-8%+$,,&@"$(#?6-H:,$@&!@56-H:@,? A)#6-6H:@B},*#..6-8%+@$,<@ ,$+@',%+#"6-P:$A,"6-'A-# @:,$A.#-@@B}:8%+@$,<@,]68%+@$,<@,-678%+@$,,<8%+$@,,,.0# 6#*B} 8@<@,* B7#* 8@<@,* BP9#i( ( ((i(GREEN DAMAGE: :8@B}<@, {:8@<@, :8@<@,<#]](RED DAMAGE: :8@<@, {:8@<@B}, :8@<@,Y#$'` -A@@6@<2@@`2@%@@@B}/'30@30@%@@0'W'2@A@&@@S2@A@&&@B}@@W 3'%2G2@i2@B }2@5'70@@70@@@8'Z( (( RED VICTORY>( Do you wB }ish to play again? K)@W"@Z%A' +B'` -AA@6@<2@@B }`2@%@@@a'30@30@%@@b'W'2@A@&@@B }S2@A@&&@@@W e'%2G2@iB }2@2@g'70@@70@@@j'OB}( (( GREEN VICTORY@( Do you wish to play again? DL4YO%s' + 00-68@<@,-8@B}<@,&0$K--68@<@,-8@<@,&K 8@<@,4-@@%i2H:B},$@%@P@@678@,<8@,,.>:H:,$A%, K%%2B} K$R--68@<@,-8@<@,&R 8@<@,4-@@%i2H:B},$@%@P@@678@,<8@,,.>:H:,$A%, R%%2B}R$ b0-68@<@,-8@<@,&0$e(%2A@@($e(%2AE@B}@($eG%2G2@0u##67@G<@T,.:u##67@B}g<@t,.ԓDu##67@<@,.TNu##67A<A,.Xu##67A'<A4,.B}{bu##67AG<AT,.lu##67Ag<At,.@vu##67A<A,.{u6-@B}u(-@@"$68,-( u0-@@",68%@,-0 u68,108,148,93,133,173ue-@B}@!"268<@,-C68<@,-T68<@,-e68<@ ,-uk68%@<@,-568B}%@<@,-N68%@<@,-g68%@<@ ,-k u 5,5,13,3,5,2,20,5,5,3,17,5u$X +B}g +((l(6-%@q3 (CONT-0AB@3&v#AB@#B}B&{ +D1:MANEUVER.BASAAG2@B}VCHRBASEBYTEMECHACLOOPGCHASETIMBYTCSTARPLACPOBPOSPP1PP2PLAYEB@&0T#i#CARDCARD1HAND1HAND2TYPE1TYPE2CHOICECHARDPMBASCHBASLCOUNTCOUNTCOUNDECVALUVALUETOTOPCHOIF}CPILPILENMNMBSTECOA5A>5A|AA`ADFBh @# @ B BF}x @@ @@@%@@@@@@@@H@@F }@@@@ CRAZY EIGHTSBY PRINCETON CHANANTIC MAGAZINE<y +AR@yF!}9@R,9@R,9@,9@,9@,9@,;@,;@(,A*-@@&68,-F"}* F#(6-F:A`,%F:Aa,$AV:ALA^A@pBBAAYF#}P--@")A6%- ZX6-F:A,&@(6-&@4BByFB2H@RF$}XB2V@dKA#6-$AV;-%A%A$GK n)-%A%A""F%}%) xaA!A-AVA-@@(E"Q67,.>:,U a6-?:C:,,76-$AV)F&}-%Av%A-"37 --72,169,148,141,10,212,141,24,208,104,64mm254,254,254,130,130,130,130,130,130,13F'}0,130,130,130,130,130,130,130,130,130,130,130,130,130,254,254,254gg104,169,0,133,205,168,169,224,133,206,177,205,145,203,F(}200,208,249,230,204,230,206,165,206,201,228208,239,96==85,85,85,85,85,85,85,85,170,170,170,170,170,170,170,170IF)}-@@#3-@@8@9-A(abE I ~-@@&( ٠8-@@F*}G( ĠY-@@l(Π~AY@FE6-6-'6-@36-@RE@F+}@z-@@R&68,-568,-9 M-@@\68,-k68,-z68F,},-68,- +-@@+-@@<%6-P:H:,$@R,%@<8,F-}AP7 68,-68,-#6-&@' 36-@7 W (}%-@@@A-@@8@F.}G-O(abS W K-@@%6-%@168,-8,=68,-8,K6-&@"3 6- A6F/}-8,%6-8,/ AP3 ,O-@@%6-%@168,-8,=68,-8,K6-&@O 6Q 6-8,6-F0}8,!6-@-6-@36-96-C APQ6-&@@)B2w@)%@!A0JQ-@@F1}3(DECK: COMPUTER: = A Q"APTR(IT IS NOW YOUR TURN0(-DRAW FROM DECKG(-PUT CARD IF2}N PILER(-PASS^9A'A@d9AdAUcY#@@K:0)@;F3}@Y @I)!@QAPh1 A 1&@HApA A rV"@.(YOU CAN ONLY HAVE F4}UP TO 18B(CARDS YOUR HANDL A0V A0|S3(THERE ARE NO MORE CARDS TO DRAW= A0I6-S F5}A086-%@%-@@48,8 G 6- A6-8,%6-8,/ AP;68,-8,G6F6}8,-8,6-&@ A0+'(PLEASE ENTER IN THE CARD'S RANK+" 4AC6-@" Ap" 4TWF7}6-@" Ap" 4TH6-@" Ap" 4FO6-@" Ap" 4FI6-@" ApF8}" 4SI6-@" Ap" 4SE6-@" Ap" 4EI6-@" Ap" 4NI6-@ F9}" Ap" 4TE6-@" Ap" 4JA6-@" Ap" 4QU6-@" Ap&" 4KIF:}6-@" Ap01(THERE IS NO SUCH CARD' A01 A0:! A`!AUA0DD A -(PLEASF;}E ENTER IN THE TYPE OF6(CARD:D ApN9 4%(THERE IS NO SUCH THING/ A09 A0X! A`!AUF<}A0b5-@@'8,)8,+ 5 AlM**@9(YOU CANNOT PUT THIS CARD DOWNC AF=}0M A0v"@AK6-&@6-! A5-@=-%G( K I6-@F>}6-@$6-8,-6-8,7 AP@6-8,I6-8,568,-!68,-5"A@ A0F?}= A /(WHAT TYPE OF CARD DO YOU WANT3= Ap9 4%(THERE IS NO SUCH THING/ A09 A F@}68,- A@7#(YOU DO NOT HAVE SUCH A CARD- A07 A0W @*!:(YOU NEED TO HAVE 18 CARFA}DS TOC(PASSM A0W A05 A  A05(IT IS THE COMPUTER'S TURNB-@@48,*8,FB}*8,@8 B A<-@.8,*8,*8,@2 < AP1+P:H:,$@,%@"FC}@16-8,"@Ag6-@6-@$6-8,-6-8,7 AP@6-8,I6-8,X68,-FD}g68,-b-@@ 6(I HAVE PLACED DOWN ONE OF MY@(CARDSN6-&@X A0b A0 ]%6-P:HFE}:,$@,%@9-@@O8,)8,"@S ] A 68,- A` N#-FF}@@@8,*8,*8,@D N A0*Q)"@1(I WILL HAVE TO PASS; A0G6-FG}Q A04S-@@,(I WILL DRAW A CARD@-@@O8,S >K6-%@68,-8,FH})68,-8,3 A0A6-&@K A0R-@-%D2F:@ ,@@i2@FI}F:@ ,@@2@F:B7p,@@\]-@@ %() =-@FJ}Y2] fu -uA A A A 0A @A PA `A pA A FK}AAA p-%@%@A A A A 0A @A PA `A pA FL}A0AAA zroA@APA`ApAAAAA A0A@FM}A@A@r$ ( $ ( $ ( $ ( $ ( $ ( $ ( $ ( $ (FN} $ ( $ ( $ ( $ ( $#-%@%@ (#$ A@$@6-@6-@FO}'6-@36-@= AP@$$@6-@6-@'6-@36-@= AP@$.V6-@6FP}-@'6-@36-@= API6-@S APV$8`6-@6-@'6-@36-@= APFQ}I6-@S AP] A@`$BV6-@6-@'6-@36-@= API6-@S APV$FR}L`6-@6-@'6-@36-@= API6-@S AP] A@`$V`6-@6-@'6FS}-@36-@= API6-@S AP] AP`$``6-@6-@'6-@36-@= APFT}I6-@S AP] A``$j6-@6-@'6-@36-@= API6-@S AP] AFU}Pi6-u6-@6-@6-@ AP$t&-%@%@# A`&$~( --%FV}%! A`% ($''ApAAA ( $ ( $ ( $ ( $C @CFW}A@APA`ApAAK @K&@AAA A0A@APFX}??&@A`ApAAAA6-@6-$6-@6-$FY}6-@6-$6-@ 6-$6-@&6-$ 6-@26-$6-FZ}@6-@$6-@6-@$(6-@6-@$26-@ 6-@$<6-@&F[}6-@$F6-@26-@$P6-@6-@$Z6-@6-@$d6-@6F\}-@$n6-@ 6-@$x6-@&6-@$6-@26-@$`-@@"F]}#-@G( K ]-@@`$@  F:@ ,@`A@F^}$q$(PRESS RETURN IF YOU ARE SURE6AdAUV@@K:c)@n@q$ F_}4HE6-@$ 4DI6-@$ 4CL6-@$ 4SP6-@$ 6. $/%(LOF`}OKS LIKE THAT WE HAVE A TIE/ A`4 A *(CONGRATULATIONS, YOU WON4 A`&&(SORRY THAT YOU LOST. TRY AGAFa}IN^ A01(PRESS TO BEGIN A NEW GAMEN-AU6@ZA^ "7F:B2y,@-AFb}F:@ ,7 Ap,%6`AY@#:6-F:A`,%F:Aa,$AVN%@!A0`AFc} D1:CRAZY8.BAS@@ @@@@@BASLCOUNTCOUNTCOUNDECVALUVALUETOTOPCHOIDI %X; Parallel Device Handler ExampleX; By Earl RiceX; ANTIC Magazine(X;25X;(ASM,,#D:MYFILE.OBJ) because the objJe} code is put<%X;where there is no RAM available.FFPX; EQUATESZ9PDVMSKG;;Parallel device mask (indicates which areJf}d9PDIMSKI;;Parallel interrupt mask (not used in thisn-GPDVV;;Generic Parallel Device VectorxX;$HATABS;;DeJg}vice handler table)CRITICB;;Critical code section flagX;3DEVNAM T;;Device name, E.G. T for "Telephone".$HWGETJh};;Hardware GET register%HWPUT;;Hardware PUT register.5HWRSET;;Hardware reset (clears get register).)HWSTAJi}T;;Hardware STATUS register.X;X; Rom vector table ;;Optional ROM checksum ;;Optional Revision numbJj}er ;;Mandatory ID number ;;Optional Name or Type4!NONEED;;Lo-level IO vector, which we don't need"5!NONEED;;IRJk}Q handler vector, which we don't need., ;;Mandatory ID number6 DEVNAM;;Device name@1 NONEED;;Open vector, which wJl}e don't need.J2 NONEED;;CLOSE vector, which we don't need.T GETBYT;;GET BYTE vector.^ PUTBYT;;PUT BYTE vectoJm}r.h" GETSTA;;GET STATUS vector.r4 NONEED;;SPECIAL vector, which we don't need.|,!INIT;;INIT vector at power up orJn} reset. ;;NOT USED.X;X;CODE STARTS HEREX;)X;Initialize device and device handlerINIT%QPDVMSK;;Get enabJo}led device flagsL>;;Set bit 0.PPDVMSK;;& replace.:X;Note: if device used interrupts we would set bit 0 ofX;,XJp};Put device name in Handler table HATABS$>X; Top of loop SEARCH#QHATABS9;;Get a byte from table&#FFNDIJq}T;;0? Then we found space.02:2D2N(>$;;Length of HATABSXDSEARCH;;Still lookingb/:;;No room in HATABS; device not Jr}initializedlX;vX; We found a spot. FNDITQ>DEVNAM;;Get device name.#PHATABS9;;Put it in blank spot.2Js}&Q>GPDVV;;Get lo byte of vector.'Q>GPDVV;;Get hi byte of vector.PHATABS9:X;X; GET BYTE routine.Jt} GETBYTQ>-PCRITIC;;Enable deferred vertical blank.%QHWGET;;Get a byte from hardware. PHWRSET;;Reset hardware.Ju};;;Indicate we handled it. :*X;4X; PUT BYTE routine.> PUTBYTH$>R-&CRITIC;;Enable deferred vertical blank.\Jv}!PHWPUT;;Put byte to hardware.f;;;Indicate we handled it.p:zX;X; GET STATUS routine. GETSTAQ>-PCRITIC;;EJw}nable deferred vertical blank.QHWSTAT;;Get HW status.;;;Indicate we handled it.:X;X; Do nothing routine. Jx}NONEED;;;Indicate we handled it.:X;X;l RiceX; ANTIC Magazine(X;25X;(ASM,,#D:MYFILE.OBJ) because the objH5`6z PICPQJFNLHATIMIADHADLLCONz}  DIGITIZER BYN{} C. JACKSON & S. CHAPMANANTIC MAGAZINE(<<;Av,;@,;@@,;@,;@ ,2,(( }Name of pictN|}ure- ,<V(}Contrast setting--(5((1) = Low ContrastV( (20 minutes to process)FC(((2) =N}} High Contrast?( (60 minutes to process)CP!!"@)"@AZ @`dK+(#}Put a WHITE screen N~}in front of theG(sensor, press [RETURN].Kn6-Q:,xM-(%}Put a ˠ screen in front of theI(sensor, prN}ess [RETURN].M$6-Q:,$6-+&,'@3"@6-M:,!6-M:,36-+&,'@$ (}Press [RETURN}N] to begin$.@.@@P:P0(@>:@',>:@6,>:@,PSELECT DOWNLON}AD CHARACTER SETJ0(@>:@',>:@Q,>:,JSET LINEFEED VALUE TO 02(@>:@,2CHOOSEN} CONDENSED MODEH0(@>:@',>:@w,>:@,HSET LEFT MARGIN TO 1.F%(@>:@',>:@V,N}FDISREGARD "PAPER-OUT" DETECTOR44(@>:@',>:@,>:@,./ +@ /6-F:@,%F:@,$N}AV-@Av@@eC(@>:@',>:@,>:A5,J>:@,.e2@f@N}@.-@@.67<,.>:F:A$,,-@$AV9 )29N}(@."6-@@6-,-@@@6"@AP@::6-@$P:+@:7%@N}<%@,,&,'%?P,J$$6-%P:+@:7<,,&,'%?P,T Ap^==6-@$P:+M:@:7%@<%@,,,&N},'%?P,h''6-%P:+M:@:7<,,,&,'%?P,rAV6-AU| 6-6-AU&N}%%&@#67<,.>:,6-&@#  67,. +@+@@96-AHN}6-C:,)6-P:'AV,96-&$AV3%@@%%@3%@+%@+%N}@ @0*6-?:C:hhhLV,<@,*@# +#( saved to disk..(*(Press [RETURN] to view N}picture.. @@ +@ E%@@.%@F:@,E%@F:@N},+%@+%@ @0*6-?:C:hhhLV,<@,*@& APD:DIGITIZE.BASN}̻ˁ컺̻ WRITE DOS TO DRIVE 2.D2 NOT VERSION 2 FL]? A$B@$@E G TAXES@$SCHEDULE G TAXES$? A$A$2* @2}* @*2* @$1040TAX$? A$Ae$$$? }A1$AD$ @@@$FLAG$? $A# $ $}@ @ USEHOLD@ D OF HO@ E Z HEA@$SCHEDULE Z HEAD OF HOUSEHOLD  $?P B B }$?I B$BG $?E B)`$B( $?B Au$B $}?8 AH$B)$2@2@2@$LI}NE 10$?3 A17$Bv$2@2@2}@$@LINE 8$?( A#$BIP$2@2@2}@$LINE 16$?% A2P$B#$2@2@2}@$LINE 17$?" AHP$B$2 @2 @2} @$LINE 19$? ApP$A@$E G TAXES@$SCHEDULE G TAXES$? ABP$}AYP$2* @2* @*2* @$1040TAX$? AAP}$A8$$$? AP$A'P$ @@@$FLAG$? $A} $ $@ @ ARATE@ E Y SEP@$SCHEDULE Y SEPARATE  $?P B&} B$$ $?I Bf0$B$ $?E BY $BV$ $?B BQh$}B$ $?8 Ar$BX$2@2@2}@ LINE 10$?3 Abt$BR$2@2@2}@$@LINE 8$?( AG$B$2@2@2}@ LINE 16$?% A4e$BF$2@2@}2@ LINE 17$?" A$$B$2 @2 @}2 @ LINE 19$? AA$B`@$@E G TAXES@ SCHEDULE G TAXES$?} A$B$2* @2* @*2* @ 1040TAX}$? A$Av$ $? A1$AU$ @  @@@ FLA}G$? $A4$ $ $@@ R)@ WIDOW(E@ RIED & @ E Y MAR@$SCHEDUL}E Y MARRIED & WIDOW(ER)  $?P B5 B $?H Ba BS$ $?B} B$B $?8 Au$BA $?4 AW$B$ $?0 }AA$B5$ @ A#2@2@2}@ LINE 10$?& A'7$B$ @ A#2@2}@2@$@LINE 8$?# A $BP$ @ A#2}@2@2@ LINE 16$? A$B)}$ @ A#2 @2 @2 @ LIN}E 17$? A$B$ @ A#2 @2 @2} @ LINE 19$? A5$A@$ TAXES@$ SCHED G TAXES$? A5$}Ae $? AA$AD$ @ *A#2* @2* @}*2* @ 1040TAX$? A!$A4$ $? $A#} @ GLE@ E X SIN@$SCHEDULE X SINGLE$   $4 @$@OWED$@@h4} @ D@ OVERPAID$@@e4&@ YMENTS@ OTAL PA@  *** TOTAL PAYMENTS$@@d}  @ XES@  MISC TAXES@$@62/63  @ FICA@  EXCESS FICA$@@a  @ 68@  FOR}M 4868$@@`  @ INCOME@  EARNED INCOME$@@Y @ AYMENTS@ MATED P@ 84 ESTIMATED PAYME}NTS$@@X$ @ D@ WITHHELD$@@W4 @ AX@  TOTAL TAX$@@V  @ }AXES@  OTHER TAXES@$@52/55 @ ch SE)@ PLOY (S@ SELF EMPLOY (Sch SE)@$@514} @  +CRED@  NET TAX +CRED@$@50$ @ S CRED@  BUSINESS CRED@$@47/494} @  + CRED@ NET TAX + CRED@$@46$ @ L CRED@  PERSONAL CRED@$@42/45$$@ ED 2441@ CA}RE CRED 2441@$@414$@ TAL TAX@  *** TOTAL TAX@$@40$@$ES@ NAL TAX@ ADDITIONAL TAXES@$@39$} $@  TAX@  SCHED G TAX$$$*:J@ HED TAX@ RATE SCHED TAX@$@38$}@ COME@ ABLE IN@ NET TAXABLE INCOME@$@37$A@ E@ ON VALU@ EXEMPTION VALUE@$@364 }@ OME@  NET INCOME@$@35$@ ch A)@ DED. (S@ ITEMZD DED. (Sch A)@$@34a/b4@ INCOME@  GROSS @ ***} ADJ GROSS INCOME@$@32&334&@  ADJ@  INCOME@  TOTAL INCOME ADJ@$@31$@  DED@  COUPLE@ SCHE}D W COUPLE DED@$@30$ @ ALIMONY@$@29$@ ALTY@ WAL PEN@ WITHDRAWAL PENALTY@$@28$} @$@KEOGH@$@27$ @ UCTION@  IRA DEDUCTION@$@26$@ (2106)@ E BUS. @ EMPLOYEE BUS. (210}6)@$@25$ @ EXP@  MOVING EXP@$@244&@ E@ L INCOM@  TOTAL INCOME@@23$ @ N}COME@  OTHER INCOME@@22 @  SECURI@  SOCIAL@ TAXABLE@$@21$@ OYMENT@  UNEMPL@ TAXABLE UNEMP}LOYMENT@@20b$ @ ch F)@$P FARM (Sch F)@@$@ ch E)@ ETC. (S@ RENTS, ETC. (Sch E)@@}$@ TAXABLE@ ENSION,@ OTHER PENSION,TAXABLE@@17b$@ PENSION@ AXABLE @ FULLY TAXABLE PENS}ION@@$ @ INS@  SUPP GAINS@@$ @  GAIN@  40% CAP GAIN@@$@ }ch D)@  GAIN(S@ CAPITAL GAIN(Sch D)@@$@ C)@ S (Sch @ BUSINESS (Sch C)@@$ } @ ALIMONY@@$ @ UNDS@  TAX REFUNDS@@$$@ ON@  EXCLUSION@@9b-C$}$@ DS(S.B)@ DIVIDENDS(S.B)@@9a$@ d B)@ T (Sche@ INTEREST (Sched B)@@4 @$@W}AGES@@@ -------@ COME --@ ---- IN@ ----------- INCOME ------------P@ NS =@ XEMPTIO@ TOTA}L EXEMPTIONS =H@6e @@ .......@ DOW(ER)@  (5= WIDOW(ER).......$P @ EHOLD, @ AD/H}OUS@  (4= HEAD/HOUSEHOLD, 5= WIDOW/ERP @ EPARATE@ RRIED-S@  (3= MARRIED-SEPARATE$P @ OINT,@ RRIED-J@ } (2= MARRIED-JOINT,H@1-5@ GLE@ (1= SINHPSTATUS @ FILING STATUS (1= SINGLEH@1040 @$@ --------- } @$@NQA@$@LINE @  @  @  @$@FORM @ LATOR@ X CALCU@ COME TA@$P1984 INCO}ME TAX CALCULATOR