@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@P!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr d M * @  $ % CC$$)%1 Udߥ$9%: !0 S$%} DD˙`  }J)Lr J  ((  p L ()   J}L= ( L 0q A    IB JC;? D W } LL  ` W )LA!  ߰")-݆ p" } $G@LL 08`Q")<2Q0 -G$Ș݆ UL# ; p8(()(0ʥ)NQ` }$GȘ݆LU )L ݆ L GȘ ݆LL )W>Z   HH)H }p h  hyhy D L> L JJ    ! LA*` BF }7'8  M HN H` 8 Z  \LdJJ!"! GFE@F (!L }EE !E^ ^ E E7EȩEdE/EȩE  D } .L }  ;F d  ;?F7F? ( .   Z D LL d } . D  L    p  E` , d)  D L) 0BM݊L݉} ML  N݆ L NLML [ TEqEHȱEqEh 0Gȹ G} HLL GɛL  LFREE SECTORS G) *Gȩ GȽG GȌ*jj >G} C8jJ3j2CD( C202C ԠBX` N 1? l LlD:RAMDISK}.COMLu L1 L ;LHL  T`  `1  ɐ     `TU  } L ? .  t`GBJ ~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI4 0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DEL`?<0LV`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J  (` 9 V⪍ ઍ  -'}LLu ÝDEHILV 9 .l 9 .l  `` s$B BH(}I|DE V BLV nB,DE JLV B V BLVDEIʩ BꭝLu  } 3E:}DISK OPERATING SYSTEM II VERSION COPYRIGHT 1984 ATARI CORP.A. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDG*}E J. DUPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRES+}SF. LOCK FILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES P. FORMAT SINGLEL !N',}#"&))9(&*)/h)''-&؆莟R'S  vL/ˢ L }Insert DOS 2.0s, type Y Λx -}DEfHI 1莏#q! @ y0ɛ8A0,' ȅ 1 1ild! 1L!NO SUCH ITEMSELECT.} ITEM OR FOR MENU! 0 .z:*{}.|{ 1 0 0JB 18L%|DL/}%DIRECTORY--SEARCH SPEC,LIST FILE?[# 0 0 &|D3" 1L!NOT A DISK FILEN !B 1L!E# 1 !BD0}ED:}:1BJ|DE 1DEBHI 1 h0ߢ 0.1}  0?詛 1 y0YЛ 1 ;#L" ;#L! BL1TYPE "Y" TO DELETE...DELETE FILE SPEC2}COPY--FROM, TO?OPTION NOT ALLOWED736 FREE SECTORS COPYING---D1:DIRECK.COMl# 0|D .L/%#3}##JB|DE 1BHID#E 1#0: B 1L!#͑### B 1#c$0SY4}S1}:## # # .#Ƚ# # 𩛙## 1,#PD#ELJ- <.BJD#E 5}1 1HH 0hh|DL%1}:̳# L% #D#EL% 1 0 . .0O% 1L!WILD CARDS NOT A6}LLOWED IN DESTINATION 0 <.|K}N 2 FORMAT. t* 5) 1L!`) 0NΞ 0 L1) 1 L!BAD LOAD FILELOAD FROM WHAT FILE?) 0 ?}0#B 1L!WHAT FILE TO LOCK?) 0 0$B 1L!WHAT FILE TO UNLOCK?DUP DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO US@}E PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV.FE! +L1   `*  70 2 2A} 0.* 1 y0 0)INSERT BOTH DISKS, TYPE RETURN^, 1 y038逍 N, 1L! ,B}C, t*  Lx+, 0 ^, 1 y0 , ,0,0 ,L+ ,I0 ,Vǭ0C}Ξ, 0 }, 1 y0C,ШC, 0K'!" H H 'h h Lx+!EF 5L1L!D,I,HhD}` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNINSERT DESTINATION DISK,TYPE RETURNE}`  `8 rL1`-* 1P* 1 y0Y`hhL!NAME OF FILE TO MOVE?- 0 0|DL% <.F},^ 1 70 0 .@L# .BJ 1  DEHIB V L1 ,} 1 70,L.  G}JB|,#P#DE 1 HI BDEHHII 1 B 1 ,^ 1 70,0La- B V,#PH},^ 1 70 0L#L!-* 1P* 1 y0Yj383}mm ݭI}}`8}``|* ? ɛ,`|:-)| / 1L!`DESTINATION CANT BE DOJ}S.SYS0 0H{ 24Δ 28/L!/) 2 Π 2 0 ξK}hAΞB,0 J 1 BDEHI,HÝDE 1HIHIDELSAVE-GIVE L}FILE,START,END(,INIT,RUN)O S0 1`BDEPHI V` S0H 1 L!M}0 0 1L~0`PLEASE TYPE 1 LETTER,0`hhL! 70 1L0L<1 ,;ɛ7,"ɛ:ݦ1ݥN}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{NAMEO} TOO LONG B VL!` L1I H1EΝDL1|mDiE` V0`8d/8 i:222 1 LP}!ERROR- 138ɛ+,' 20*.. өr2 1``2TOO MANY DIGITSINVALID HEXAQ}DECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8uR} ECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8u_`P!!AAKEYMTMSCRINFILEOUTFILEBLLLHOPOPOPOPCHOICIOUMINDESSCRENDASHKEYLIT}3((  @1 @ @@@qU}@@%@@@@@a@@@dSECRET AGENTnBYV} JOHN T. SMITHxANTIC MAGAZINE BPGG;@,;@%,;@%,;A ,;A ,;A,11W};@,;@,;@@,;@,4267@,. #67@@,.267@,.f6-@16-@X}***MAIN MENU***4(>:A%,"AA`4A@H,( (&( ԠԠ)(,(,) ( Y} Πՠ#(&()(J(MAKE YOUR SELECTION(h%%( 1--TO SELECT A NEW KEYWORDr!!( 2--TO ENCODE A MESSAZ}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<,. (a}( ( ((%(YOUR KEYWORD IS: ((( ( -@AP $+( ((( Ġb}Ҡ+(6(KEYWORD CHARACTER @&&(IS NOT IN THE AUTHORIZED LIST.J$$(PLEASE CHOOSE A NEW KEYWORD.T%-@c}A % AQp%%***ENCODING/DECODING SECTION***(>:A%,767@,."67A ,.167@d},.76. 6-B:, AaUA@H'AA09-@@U  ϠĠe}Ġ7-@@7 ŠŠĠԠ-@AP $.4(>:A%,"A4f}A@L;( ( (2(! ԯԠ̠5(8(;(`(SELECT INPUT DEVICE(j( 1--KEYBOARDg}o( 2--DISKt( 3--CASSETTE(~ (  Abp B++@*@*@Abp!h}!"@)"@Ae8(>:A%,((2( ˠԠŠ5(8( 6.6.!( (!(INPUT FILE i}NAME:  Acp B4Ac@ 6-B:,  ( (DISK DRIVE NUMBER:  Ad  Bj}4)4 6.1(%%01*02*03*04Ad2e67@<@,.D367@<@,.L67@<k}@,.:e67@<%@,.Z @@n(>:A%,(((x6-@-'( l}ԯԠ̠*(-(/)(!OUTPUT WILL APPEAR ON THE SCREEN.,(/(.+(# SELECT ADDITIONAL OUTPUT DEVICES:.(m}( DISK (Y/N):  AeP B 4Y6-$@0Y*0NAeP(  PRINTER (Y/Nn}):  Aeu B 4Y6-$@0Y*0NAeu ( ( CASSETTE (Y/N):  Aeo} B 4Y6-$@0Y*0NAe55"@)"@)"@)"@A  6p}.6.9(>:A%,((3( ˠԠŠ6(9("(OUTPUT FILE NAME: , Ag B6q}4Af`@ 6-B:,T ( (DISK DRIVE NUMBER: ^ AgP Bh4)4 6.1r%%01*02r}*03*04Ag@|e67@<@,.D367@<@,.L67@<@,.:e67@<%@,. s} @@@##***ENCIPHERING/DECIPHERING***T:(>:A%,"AA4AA7(:(r2t}"@2( ǠŠ|2"@2( ǠŠ"@Au}"@A'( ( (('(ENTER YOUR MESSAGE.**("PRESS ΠTO END YOUR MESSAGE.(( MESSAGE: [v}##@@K: 6.)@ "AUA 6-B:, "A&AP w}!)A !!67%@<%@,.>:,& (>:,0 A: (!@(6.7@<&@,D "@x}6.I (>:,N AX  (]@ Al ***DISK INPUT***v 6. %( ( (%( y}ˠԠ )@ "AUA !)A0 6-B:, !!67%@<%@,.>:, A0z} @ 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.BASpb7-@@d32@@7 b2%2/+20T#i#CARDCARD1HAND1HAND2TYPE1TYPE2CHOICECHARDPMBASCHBASLCOUNTCOUNTCOUNDECVALUVALUETOTOPCHOI }CPILPILENMNMBSTECOA5A>5A|AA`ADFBh @# @ B B }x @@ @@@%@@@@@@@@H@@ }@@@@ CRAZY EIGHTSBY PRINCETON CHANANTIC MAGAZINE<y +AR@y }9@R,9@R,9@,9@,9@,9@,;@,;@(,A*-@@&68,- }* F#(6-F:A`,%F:Aa,$AV:ALA^A@pBBAAY }P--@")A6%- ZX6-F:A,&@(6-&@4BByFB2H@R }XB2V@dKA#6-$AV;-%A%A$GK n)-%A%A"" }%) xaA!A-AVA-@@(E"Q67,.>:,U a6-?:C:,,76-$AV) }-%Av%A-"37 --72,169,148,141,10,212,141,24,208,104,64mm254,254,254,130,130,130,130,130,130,13 }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, }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,170I }-@@#3-@@8@9-A(abE I ~-@@&( ٠8-@@ }G( ĠY-@@l(Π~AY@FE6-6-'6-@36-@RE@ }@z-@@R&68,-568,-9 M-@@\68,-k68,-z68 },-68,- +-@@+-@@<%6-P:H:,$@R,%@<8, }AP7 68,-68,-#6-&@' 36-@7 W (}%-@@@A-@@8@ }G-O(abS W K-@@%6-%@168,-8,=68,-8,K6-&@"3 6- A6 }-8,%6-8,/ AP3 ,O-@@%6-%@168,-8,=68,-8,K6-&@O 6Q 6-8,6- }8,!6-@-6-@36-96-C APQ6-&@@)B2w@)%@!A0JQ-@@ }3(DECK: COMPUTER: = A Q"APTR(IT IS NOW YOUR TURN0(-DRAW FROM DECKG(-PUT CARD I }N PILER(-PASS^9A'A@d9AdAUcY#@@K:0)@; }@Y @I)!@QAPh1 A 1&@HApA A rV"@.(YOU CAN ONLY HAVE }UP TO 18B(CARDS YOUR HANDL A0V A0|S3(THERE ARE NO MORE CARDS TO DRAW= A0I6-S  }A086-%@%-@@48,8 G 6- A6-8,%6-8,/ AP;68,-8,G6 }8,-8,6-&@ A0+'(PLEASE ENTER IN THE CARD'S RANK+" 4AC6-@" Ap" 4TW }6-@" Ap" 4TH6-@" Ap" 4FO6-@" Ap" 4FI6-@" Ap }" 4SI6-@" Ap" 4SE6-@" Ap" 4EI6-@" Ap" 4NI6-@  }" Ap" 4TE6-@" Ap" 4JA6-@" Ap" 4QU6-@" Ap&" 4KI }6-@" Ap01(THERE IS NO SUCH CARD' A01 A0:! A`!AUA0DD A -(PLEAS }E ENTER IN THE TYPE OF6(CARD:D ApN9 4%(THERE IS NO SUCH THING/ A09 A0X! A`!AU }A0b5-@@'8,)8,+ 5 AlM**@9(YOU CANNOT PUT THIS CARD DOWNC A }0M A0v"@AK6-&@6-! A5-@=-%G( K I6-@ }6-@$6-8,-6-8,7 AP@6-8,I6-8,568,-!68,-5"A@ A0 }= A /(WHAT TYPE OF CARD DO YOU WANT3= Ap9 4%(THERE IS NO SUCH THING/ A09 A }68,- A@7#(YOU DO NOT HAVE SUCH A CARD- A07 A0W @*!:(YOU NEED TO HAVE 18 CAR }DS TOC(PASSM A0W A05 A  A05(IT IS THE COMPUTER'S TURNB-@@48,*8, }*8,@8 B A<-@.8,*8,*8,@2 < AP1+P:H:,$@,%@" }@16-8,"@Ag6-@6-@$6-8,-6-8,7 AP@6-8,I6-8,X68,- }g68,-b-@@ 6(I HAVE PLACED DOWN ONE OF MY@(CARDSN6-&@X A0b A0 ]%6-P:H }:,$@,%@9-@@O8,)8,"@S ] A 68,- A` N#- }@@@8,*8,*8,@D N A0*Q)"@1(I WILL HAVE TO PASS; A0G6- }Q A04S-@@,(I WILL DRAW A CARD@-@@O8,S >K6-%@68,-8, })68,-8,3 A0A6-&@K A0R-@-%D2F:@ ,@@i2@ }F:@ ,@@2@F:B7p,@@\]-@@ %() =-@ }Y2] fu -uA A A A 0A @A PA `A pA A  }AAA p-%@%@A A A A 0A @A PA `A pA  }A0AAA zroA@APA`ApAAAAA A0A@ }A@A@r$ ( $ ( $ ( $ ( $ ( $ ( $ ( $ ( $ ( } $ ( $ ( $ ( $ ( $#-%@%@ (#$ A@$@6-@6-@ }'6-@36-@= AP@$$@6-@6-@'6-@36-@= AP@$.V6-@6 }-@'6-@36-@= API6-@S APV$8`6-@6-@'6-@36-@= AP }I6-@S AP] A@`$BV6-@6-@'6-@36-@= API6-@S APV$ }L`6-@6-@'6-@36-@= API6-@S AP] A@`$V`6-@6-@'6 }-@36-@= API6-@S AP] AP`$``6-@6-@'6-@36-@= AP }I6-@S AP] A``$j6-@6-@'6-@36-@= API6-@S AP] A }Pi6-u6-@6-@6-@ AP$t&-%@%@# A`&$~( --% }%! A`% ($''ApAAA ( $ ( $ ( $ ( $C @C }A@APA`ApAAK @K&@AAA A0A@AP }??&@A`ApAAAA6-@6-$6-@6-$ }6-@6-$6-@ 6-$6-@&6-$ 6-@26-$6- }@6-@$6-@6-@$(6-@6-@$26-@ 6-@$<6-@& }6-@$F6-@26-@$P6-@6-@$Z6-@6-@$d6-@6 }-@$n6-@ 6-@$x6-@&6-@$6-@26-@$`-@@" }#-@G( K ]-@@`$@  F:@ ,@`A@ }$q$(PRESS RETURN IF YOU ARE SURE6AdAUV@@K:c)@n@q$  }4HE6-@$ 4DI6-@$ 4CL6-@$ 4SP6-@$ 6. $/%(LO }OKS LIKE THAT WE HAVE A TIE/ A`4 A *(CONGRATULATIONS, YOU WON4 A`&&(SORRY THAT YOU LOST. TRY AGA }IN^ A01(PRESS TO BEGIN A NEW GAMEN-AU6@ZA^ "7F:B2y,@-A }F:@ ,7 Ap,%6`AY@#:6-F:A`,%F:Aa,$AVN%@!A0`A } D1:CRAZY8.BAS@@ @@@@@:Aa,$AVN%@!A0`A I`6z PICPQJFNLHATIMIADHADLLCO}  DIGITIZER BY} C. JACKSON & S. CHAPMANANTIC MAGAZINE(<<;Av,;@,;@@,;@,;@ ,2,(( }Name of pict}ure- ,<V(}Contrast setting--(5((1) = Low ContrastV( (20 minutes to process)FC(((2) =} High Contrast?( (60 minutes to process)CP!!"@)"@AZ @`dK+(#}Put a WHITE screen }in front of theG(sensor, press [RETURN].Kn6-Q:,xM-(%}Put a ˠ screen in front of theI(sensor, pr}ess [RETURN].M$6-Q:,$6-+&,'@3"@6-M:,!6-M:,36-+&,'@$ (}Press [RETUR}N] to begin$.@.@@P:P0(@>:@',>:@6,>:@,PSELECT DOWNLO}AD CHARACTER SETJ0(@>:@',>:@Q,>:,JSET LINEFEED VALUE TO 02(@>:@,2CHOOSE} CONDENSED MODEH0(@>:@',>:@w,>:@,HSET LEFT MARGIN TO 1.F%(@>:@',>:@V,}FDISREGARD "PAPER-OUT" DETECTOR44(@>:@',>:@,>:@,./ +@ /6-F:@,%F:@,$}AV-@Av@@eC(@>:@',>:@,>:A5,J>:@,.e2@f@}@.-@@.67<,.>:F:A$,,-@$AV9 )29}(@."6-@@6-,-@@@6"@AP@::6-@$P:+@:7%@}<%@,,&,'%?P,J$$6-%P:+@:7<,,&,'%?P,T Ap^==6-@$P:+M:@:7%@<%@,,,&},'%?P,h''6-%P:+M:@:7<,,,&,'%?P,rAV6-AU| 6-6-AU&}%%&@#67<,.>:,6-&@#  67,. +@+@@96-AH}6-C:,)6-P:'AV,96-&$AV3%@@%%@3%@+%@+%}@ @0*6-?:C:hhhLV,<@,*@# +#( saved to disk..(*(Press [RETURN] to view }picture.. @@ +@ E%@@.%@F:@,E%@F:@},+%@+%@ @0*6-?:C:hhhLV,<@,*@& APD:DIGITIZE.BAS}̻ˁ컺̻ WRITE DOS TO DRIVE 2.D2 NOT VERSION 2 FAPD:DIGITIZE.BAS]~, -AVTABLSCREENRAOFFSEVVCHRBASEBYTEMECHACLOOPGCHASETIMBYTCSTARPLACPOBPOSPP1PP2PLAYEB}IGLOOPIECPPOPLARRMOVPLARR2MOOVPLARR1OCCHIDADISPPCHANCTURPLPPDGAMNOPLANOKyHB%}B`BS@rA!@@ @ P @2}@d42@&@@@@@ A!}@A"C #@R@$%@&'@(A)*Ag+@,-@c.@/@0@}1234Xu$A5678@9A:O ;B<=>?@@}A@MANEUVERBY WILL WOODARDANTIC MAGAZINE ZZ;A@,;@,;@,;@,;@},9@<@ ,9@, +@%%6-F:A4,%AV$F:A5,%%6-F:@,%AV$F:@,(6}-&C:,26-P:'AV,<6-&AV$F%@H%@JAVA&L0@@}70@@@Q0@@k0@@@0@MT-@}A@@*67,.=67%@,.P67%@,.T N) "6@)6.7&<&,O}6@}-%6.7<,067<,.?67&<&,.[2@@w2@@@}6.P6@}  @xQG%2G2@Rhh210,30,-20,e,40,31,-1,u,29,29,1,n,}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-@}c-@B( ( ((-@B( Enter orders for blinking player((8%+$,<@,"}A06-8%+$,,6.7<,-@@92@G@@F67<,.Z-@@%}^ i67<,.}-@@% )%2) L"-@8%+$,<@,/)@}@68%+$,<,-H(>:,L  AY"((((3(ERROR IN ORDERS...G-@AK Y6-}&@( ( (((  i( ( ((i(GREEN DAMAGE: :8@<@, {:8@<@, :}8@<@,&]](RED DAMAGE: :8@<@, {:8@<@, :8@<@,X-@}@]-@_;"@6-% A216-@; A4a;"@6-@% A416 }-; A2v w  A9x# 8%+$,<@,"#$y? 8%+$,<,$A<2 }?$z# 8%+$,<@,"#${? 8%+$,<,$A<2?$)6-%@ }"@)6-@i( ( ((i(GREEN DAMAGE: :8@<@, {:8@<@, :8@ }<@,]](RED DAMAGE: :8@<@, {:8@<@, :8@<@,0#(Press any key t }o continue..0)@ AU6-@6-""-@8%+$,<@,6.>:8%+$,<,,}++0N*0S*0E*0W,+6-@3'+*01*02*03*04*0-,36- $-@A} $-@A $${6- B`{-8%+@$,,&@ 8%+@$,,&@ &+8%+}@$,<@,$@ ,6@ &6-%@(@g' AI@.A6.7<,44T)4)4{)4)4}@)47'A AI%3+67<,.+6.7%@ <%@ ,8H++0*0*0*0T*0@*0{,H67%@ <%}@ ,.: ; AI@=6.7%@ <%@ ,>F)0*0*0*0T*0@*0{F67%@ <%@ },.?r6.7<,"-@d@067<,.>:,L2@@n2r B}67<,.D AG$L6.7%@ <%@ ,NH++0*0*0*0T*0@*0{,H67%@ <%@ },.Q$h6- B`h-8%+@$,,%@8%+@$,,%@%8%+@$,<@,6-}%@bU+P:'@,,'@P:P:'@,'@,*&+P:'@,$@,@X'b AP@A6.7<,44}T)4)4{)4)4@)47'A AP%+67<,.+6.7&@<&@,H++0*0*0*0T*0@}*0{,H67&@<&@,.  AP@a6.7&@<&@,D0*0*0*0T*0@*0{}a67&@<&@,.r6.7<,"-@d@067<,.>:,L2@@n2}r 67<,. A$6.7&@<&@,H++0*0*0*0T*0@*0{,H}67&@<&@,.$z6- B`z-8%+@$,,%@ 8%+@$,,%@ %+8%+@}$,<@,$@ ,@ 6-%@At' AQ@A6.7<,44T)4)4{)4)4@)4}7'A AQ%+67<,.+6.7&@ <&@ ,H++0*0*0*0T*0@*0{,H67&@ <&@ },.  AQ@6.7&@ <&@ ,F)0*0*0*0T*0@*0{F67&@ <&@ ,.}r6.7<,"-@d@067<,.>:,L2@@n2r  67< },.  A$6.7&@ <&@ ,H++0*0*0*0T*0@*0{,H67&@ <&@ ,.!}$Pq6- B`q-8%+@$,,&@8%+@$,,&@&8%+@$,<@,6@R6"}-%@TbU+P:'@,,'@"P:P:'@,'@,*&+P:'@,$@,@X'b AR@ZA6.7<,4#}4T)4)4{)4)4@)47'A AR%d+67<,.+6.7%@<%@,eH++0*0*0*0T*0$}@*0{,H67%@<%@,.f g AR@ia6.7%@<%@,D0*0*0*0T*0@*0%}{a67%@<%@,.kr6.7<,"-@d@067<,.>:,L2@@n2&}r n67<,.p As$x6.7%@<%@,yH++0*0*0*0T*0@*0{,'}H67%@<%@,.}$--68@<@,-8@<@,& 8@<@,4-@(}@%i2H:,$@%@P@@678@,<8@,,.>:H:,$A%, %%2)} $6-8%+$,,6.7<,L6.7%@<%@,L4T)4)4{)4)4@)4*}Ai %%4`)4)4Y)4Ai 4Ai +67<,.+67%@<%@,.##68%+$,+},-8%+$,,%@$x6-8%+$,,6.7<,y6.7&@ <&@ ,z==4T)4)4{)4)4@)4,})4Y)4Ax {%%4`)4)4Y)4Ax |-6.78%+$,,&@ ,-4Ax +67<,.+67-}&@ <&@ ,.##68%+$,,-8%+$,,&@ $l 6-8%+$,,6.7<,n L6.7%@ <%@ ,L.}4T)4)4{)4)4@)4A o %%4`)4)4Y)4A p 4A v +67<,.+67%@ /}<%@ ,.{ ##68%+$,,-8%+$,,%@  $ --68@<@,-8@<@,& 8@<@0},4-@@%i2H:,$@%@P@@678@,<8@,,.>:H:,$A1}%,  %%2 $!6-8%+$,,6.7<,!L6.7&@<&@,L4T)42})4{)4)4@)4A !%%4`)4)4Y)4A "4A "+67<,.+67&@<&@3},. "##68%+$,,-8%+$,,&@"$(#?6-H:,$@&!@56-H:@,? A)#6-6H:@4},*#..6-8%+@$,<@ ,$+@',%+#"6-P:$A,"6-'A-# @:,$A.#-@@5}:8%+@$,<@,]68%+@$,<@,-678%+@$,,<8%+$@,,,.0# 6#*6} 8@<@,* B7#* 8@<@,* BP9#i( ( ((i(GREEN DAMAGE: :8@7}<@, {:8@<@, :8@<@,<#]](RED DAMAGE: :8@<@, {:8@<@8}, :8@<@,Y#$'` -A@@6@<2@@`2@%@@@9}/'30@30@%@@0'W'2@A@&@@S2@A@&&@:}@@W 3'%2G2@i2@;}2@5'70@@70@@@8'Z( (( RED VICTORY>( Do you w<}ish to play again? K)@W"@Z%A' +B'` -AA@6@<2@@=}`2@%@@@a'30@30@%@@b'W'2@A@&@@>}S2@A@&&@@@W e'%2G2@i?}2@2@g'70@@70@@@j'O@}( (( GREEN VICTORY@( Do you wish to play again? DL4YO%s' + 00-68@<@,-8@A}<@,&0$K--68@<@,-8@<@,&K 8@<@,4-@@%i2H:B},$@%@P@@678@,<8@,,.>:H:,$A%, K%%2C} K$R--68@<@,-8@<@,&R 8@<@,4-@@%i2H:D},$@%@P@@678@,<8@,,.>:H:,$A%, R%%2E}R$ b0-68@<@,-8@<@,&0$e(%2A@@($e(%2AE@F}@($eG%2G2@0u##67@G<@T,.:u##67@G}g<@t,.ԓDu##67@<@,.TNu##67A<A,.Xu##67A'<A4,.H}{bu##67AG<AT,.lu##67Ag<At,.@vu##67A<A,.{u6-@I}u(-@@"$68,-( u0-@@",68%@,-0 u68,108,148,93,133,173ue-@J}@!"268<@,-C68<@,-T68<@,-e68<@ ,-uk68%@<@,-568K}%@<@,-N68%@<@,-g68%@<@ ,-k u 5,5,13,3,5,2,20,5,5,3,17,5u$X +L}g +((l(6-%@q3 (CONT-0AB@3&v#AB@#M}B&{ +D1:MANEUVER.BASAAG2@N}VER.BASAAG2@&O-CBUFBYTHERHOWMAN PRICE PATCHEDBY P.L. P}DELL'ERAANTIC MAGAZINEF +P;A$',Z..@@ D:PAINTER.EXEd3-@@Q}3(READING D:PAINTER.EXE ...n-@A$'x)@67<,.>:, @&-@@R}&( PATCHING ...-@ "-"67%<%,.>:,  3-@S}@3(WRITING D:PATCHED.EXE .....@@ D:PATCHED.EXE-@A$'*@@:7T}<,, "@,6 366,29@80,97,116,99,104,101J100,32,98,121,32,80T46,32,68,101,108,108^U}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,169V},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,38W} 566,3476,0,89,169,0,1410,208,141,1,208,15775,3,169,12,157,743,32,86,228,160,12169,32,153,X}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 633Y},19X160,255,200,185,149,87b201,46,240,4,201,155l208,244,140,90,89,76v 61,89 662,4162,0,189,149,Z}87 692,1 144,226 704,2174,90,89 726,2234,234,234 743,276,150,89 806,576[},211,89,83,58,155 843,232,148,88  2419,276,154,88  2426,1* 154,88D1:PATCHED.BAS76u %X; Parallel Device Handler ExampleX; By Earl RiceX; ANTIC Magazine(X;25X;(ASM,,#D:MYFILE.OBJ) because the obj]} code is put<%X;where there is no RAM available.FFPX; EQUATESZ9PDVMSKG;;Parallel device mask (indicates which are^}d9PDIMSKI;;Parallel interrupt mask (not used in thisn-GPDVV;;Generic Parallel Device VectorxX;$HATABS;;De_}vice handler table)CRITICB;;Critical code section flagX;3DEVNAM T;;Device name, E.G. T for "Telephone".$HWGET`};;Hardware GET register%HWPUT;;Hardware PUT register.5HWRSET;;Hardware reset (clears get register).)HWSTAa}T;;Hardware STATUS register.X;X; Rom vector table ;;Optional ROM checksum ;;Optional Revision numbb}er ;;Mandatory ID number ;;Optional Name or Type4!NONEED;;Lo-level IO vector, which we don't need"5!NONEED;;IRc}Q handler vector, which we don't need., ;;Mandatory ID number6 DEVNAM;;Device name@1 NONEED;;Open vector, which wd}e don't need.J2 NONEED;;CLOSE vector, which we don't need.T GETBYT;;GET BYTE vector.^ PUTBYT;;PUT BYTE vectoe}r.h" GETSTA;;GET STATUS vector.r4 NONEED;;SPECIAL vector, which we don't need.|,!INIT;;INIT vector at power up orf} reset. ;;NOT USED.X;X;CODE STARTS HEREX;)X;Initialize device and device handlerINIT%QPDVMSK;;Get enabg}led device flagsL>;;Set bit 0.PPDVMSK;;& replace.:X;Note: if device used interrupts we would set bit 0 ofX;,Xq}jB%DOS SYSB*)DUP SYSBDSAGENT BASBGCRAZY8 BASBDIGITIZEBASB[MANEUVERBASB OPATCHED BASB\PBI M65B zPRICELESBASBQUEENS8 BASBISPEECHEDLSTB#SPLASH EXEB "SPLASH1 BASB .SPLASH2 ACTB9SPLASH3 ACTBLSPLASH4 ACT;Put device name in Handler table HATABS$>X; Top of loop SEARCH#QHATABS9;;Get a byte from table&#FFNDIr}T;;0? Then we found space.02:2D2N(>$;;Length of HATABSXDSEARCH;;Still lookingb/:;;No room in HATABS; device not s}initializedlX;vX; We found a spot. FNDITQ>DEVNAM;;Get device name.#PHATABS9;;Put it in blank spot.2t}&Q>GPDVV;;Get lo byte of vector.'Q>GPDVV;;Get hi byte of vector.PHATABS9:X;X; GET BYTE routine.u} GETBYTQ>-PCRITIC;;Enable deferred vertical blank.%QHWGET;;Get a byte from hardware. PHWRSET;;Reset hardware.v};;;Indicate we handled it. :*X;4X; PUT BYTE routine.> PUTBYTH$>R-&CRITIC;;Enable deferred vertical blank.\w}!PHWPUT;;Put byte to hardware.f;;;Indicate we handled it.p:zX;X; GET STATUS routine. GETSTAQ>-PCRITIC;;Ex}nable deferred vertical blank.QHWSTAT;;Get HW status.;;;Indicate we handled it.:X;X; Do nothing routine. y}NONEED;;;Indicate we handled it.:X;X;atus.;;;Indicate we handled it.:X;X; Do nothing routine. 5WXI`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.!}7@<@,<67,..M67%@,.W Ah=7@<@,4 36.7@<@,= Ar267!}<,..267%@,.7@<@,|Z - 7@,66-@%+"@,$@P6-%@$+"@,Z !}A B@9-@@'@@9AR@(Please enter filename:6!}-@ 6-@+6.D1:------------'-&@+( 6. F:Ad,AUA F:B2y,@!}AP A @ F:B2y,@A A AP)@"AUA+!}B:,"@*@:~,!(+ AS6-G+!@d* @,)"@F)+!@G* @X,S6-@D!} -(>:,,67B:,%@,.>:,:6-%@D A&@:~,A0EB:,"@6-@ %6.+-!};(@-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`AaNA'A@9BBAKAY@4N$TURN TEXT S!}CREEN ONiAAF'AAD9A @KAR@N(ZA`fAai$(RELOC!}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!}8,189,204,204,141,26,208,202,208,226,104,170,104,64D1:PRICELES.BAS,189,204,204,141,23,208,189,204$FF204,141,24,20 K>?mCOLROASTARTOVECININCCDLISSCCPLPMBASXX@@%} @ %}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%%<%%,.@ D P"@$`10 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? "RECITER & KNOBS.SAM"1820 POSITION 10,20:? "-OR A COMBINATION OF":POSITION 10,21:? "K(%54E (c)1983 Action Computer Services  B JKIHiDiELV`Ln4.} n4 BLV` L44l L4 &` Fj`8冨凪` 5EӅӥ.} 5`ʆǪƩ Ɛee` 5ƦʆǢ &Ɛeǐ 55 55L4 5'&&&8儨児.}祂*L4&&*ń8&&L4 5`hihiHHȱȱL4c !#3`.}L4JJJJ`H 4h`Hȩh 4L"6 4L"6 V4L"6 ^4L"6 d4H8.}`HhHh 6L"6 BHI V䅠L"6 L6 n4L"6Ԇ ؠPIPP`.} 6P ^4L"6 7L6 6L#7 77L6H- 68塪墨hL77 P7L6 W7L6 6ȹP`.}텠8堨塪 6芨Oȩ-`PP 6P棩 Ѥģ0-ģ6000:,80H .}& &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 ;@{;.}E@:L;;;i;i;;i;i; ;i;i; ;;; `I L?;L;;;;J.}J;;);; m;*(m;;;;m;;i;m;;i1;m;;i`󠠠ӠР.}L< 5i<jzo<L=mxV>q<L>Hp<Le>n8n<nvvm8m<m`L> =9;;YX.}Ȍ>>LE?> m;*(m;8> m;*(m;i(ȱi>L>1>0>>i>iN>.}ic>iN>b>L?>m>>i>L~?f>>L?>m>>i>L?`6P?L??.}???LE@??? |LB F@LBLBILB x@LB.}LBI9LB ALBLBLB ALBLBI#LB`LB 6:KBKBIL$C?ɟL$C?L{CKBI LDC?LDC8??L{CKBI L^C?.}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-AY2&}D ,/A,F/ H$dJOYSTICKf'AV@'AW@h--($[trigge2'}r] - SPLASH n'AV@'AW@ p( ,  x/6-R:,/T:,"2(}A@z4F:Ad, AU*AdAU4 AP|"@A '"@* A'6-%@2)}'"@*!'6-&@'"@* AY'6-%@'"@*!'6-&@ 2*}A$INC STEP)6-%@!@)6-@0AV@'AW@%0( 33A2+}@$P:H:,$@,%@$ SETUP1 +@A1A @33A@2,}$P:H:,$@,%@CAR@@+6-A 76-@`C6-@,,($Ү2-}Р̠ӠȠ""(CENTER 120 , 60 STEP 7 !!( [joystick] [S] $D1:SPLASH1.BAS0s; SPLASH 2; Paul Chabot ;MODULEBYTE c1=709,c2=710,bor=712,cur=752 ,key=764,trow=656,tcol=657,y,sCARD xPR6/}OC Setup()Graphics(8):c2=0:c1=14:cur=1:color=1bor=16*Rand(16)+2:x=120:y=60:s=7PrintE("ҮӠР̠ӠȠ"60})PrintE("CENTER 120 , 60 STEP 7 ")PrintE(" [joystick] [S] ")RETURNPROC Splash()CARD ibor=16*Rand(16)+2FO61}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):Dr62}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:Prin63}tB(s):Print(" ")RETURNPROC Joystick()BYTE sttrow=3:tcol=2Print("[trigger] - SPLASH ")DO trow=1:tcol=9:st=Stick(064}) PrintC(x):Print(" , "):PrintB(y):Print(" ") WHILE Stick(0)=15 DO IF Strig(0)=0 THEN RETURN FI IF key<255 THEN 65}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<166}59 THEN y==+1 ELSEIF st=14 AND y>0 THEN y==-1 FIODRETURNPROC Main()DO key=255:Setup() DO Joystick():Splash() t67}row=3:tcol=2 Print("[A]-Another [C]-Clear") WHILE key=255 DO OD IF key=18 THEN EXIT FI key=255 ODOD68}RETURNol=2 Print("[A]-Another [C]-Clear") WHILE key=255 DO OD IF key=18 THEN EXIT FI key=255 ODOD4; SPLASH 3;------------------------------------; Gr8; Paul Chabot;MODULEBYTE ARRAY mask=[128 64 32 16 8 4 2 1]CARD A::}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,:;}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) % ma:<}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) :=}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 RET:>}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 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 j=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 Do:A}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)=adro:B}w(i-1)+40ODRETURN;------------------------------------; Variant of SPLASH;MODULEBYTE c1=709,c2=710,bor=712,cur=752 ,:C}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("Ү:D}ӠР̠ӠȠ")PrintE("CENTER 120 , 60 STEP 7 ")PrintE(" [joystick] [S] ")RETURNPROC Splash()CAR:E}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):F}: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(" ")R:G}ETURNPROC Joystick()BYTE sttrow=3:tcol=2Print("[trigger] - SPLASH ")DO trow=1:tcol=9:st=Stick(0) PrintC(x):Prin:H}t(" , "):PrintB(y):Print(" ") WHILE Stick(0)=15 DO IF Strig(0)=0 THEN RETURN FI IF key<255 THEN key=255:IncStep() :I}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 EL:J}SEIF st=14 AND y>0 THEN y==-1 FIODRETURNPROC Main()DO key=255:Setup() DO Joystick():Splash() trow=3:tcol=2 P:K}rint("[A]-Another [C]-Clear") WHILE key=255 DO OD IF key=18 THEN EXIT FI key=255 ODODRETURNol=2 P8s; SPLASH4;------------------------------------; Gr7plus ; Paul Chabot ;MODULEBYTE ARRAY mask=[64 16 4 1]CARD ARRAY >M}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>N}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>O} 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>P}: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=>Q}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 >R}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 >S} 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>T}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)=>U}78:dl(99)=78FOR i=6 TO 98 DO dl(i)=14 ODFOR i=102 TO 166 DO dl(i)=14 ODRETURN;------------------------------------; COLO>V}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 >W}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>X}()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>Y}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>Z}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>a} FIODRETURNPROC Setup()Gr7plus():cur=1FOR i=0 TO 4 DO creg(i)=dfault(i) ODPrintE("󠠠ӠР̠ӠȠ>b}")PrintE("CENTER 80 , 60 [S]tep 7 [C]OLOR")PrintE(" [joystick] [H]ue")Print("[trig]-SPLASH [N]ew Scre>c}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>d}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 >e}Main()OpenScene():Joystick()DO Setup():Joystick() ODRETURNs=9:Splash()IncColor():x=140:y=130:s=7:Splash()RETURNPROC <?