@8`?8K8P?@     Y`  Y0 l `8''xXL( LinkLine/80}0V.041486 (C)1986 Antic Publishing Written by Patrick Bass Receiving Working Transmitting READY>}(|)PBJKL(E:D(E VP B D'EWHI V &B JKL)R1:D(E V $}B JKL()R1:$D)E VP BD'E HI V G,P BlD'E HI V ,L5)D1:)*~):)):"`}BJKzD)E V 0#`BJK}D)E V0`P BD'EHI V`08~): }H):A`BJKzD)E VAP BD'EHI VL*`BJK}D)E V0A*+(` B }D(EHI Vii8` B JKL*R1:D*E V (BJKL+R1:D+E V }0((( BD(EHI V( BD(EHI Vii8++ }( BD(EHI V B V`G,B- B JKL_,R1:[D,E V (BJKL,R1:D,E V }+ BD'EHI V ,+'+ ΢ B V`' P BD'EHI V`+LL-SL- `}+})0 )0 b-` B VPC->. BvD'EHI V *``BD'EHI V0$'}iiiiLb-`+}) - *` B V0`0P B`D'E HI} V B JKL!.R1:D.E V (BJK?./LF.R1:BD.E V BD'EHI V䭜'ۢ B}םD-EHI V B؝D-EHI V BD'EHI V'iiii8--}--- -Ш B V`'!32000 REM TYPO II BY ANDY BARTON32010 REM VER. 1.0 FOR ANTIC MAGAZINE32020 CLR :DIM LINE$(120):CLOSE #2:CLOSE #332030 OPEN} #2,4,0,"E":OPEN #3,5,0,"E"32040 ? "}":POSITION 11,1:? "Ϡɠ"32050 TRAP 32040:POSITION 2,3:? "Type in a program line"3}2060 POSITION 1,4:? " ":INPUT #2;LINE$:IF LINE$="" THEN POSITION 2,4:LIST B:GOTO 3206032070 IF LINE$(1,1)="*" THEN B=VAL(LIN}E$(2,LEN(LINE$))):POSITION 2,4:LIST B:GOTO 3206032080 POSITION 2,10:? "CONT"32090 B=VAL(LINE$):POSITION 1,3:? " ";32100 PO}KE 842,13:STOP 32110 POKE 842,1232120 ? "}":POSITION 11,1:? "Ϡɠ":POSITION 2,15:LIST B32130 C=0:ANS=C32140 POSITION} 2,16:INPUT #3;LINE$:IF LINE$="" THEN ? "LINE ";B;" DELETED":GOTO 3205032150 FOR D=1 TO LEN(LINE$):C=C+1:ANS=ANS+(C*ASC(LINE}$(D,D))):NEXT D32160 CODE=INT(ANS/676)32170 CODE=ANS-(CODE*676)32180 HCODE=INT(CODE/26)32190 LCODE=CODE-(HCODE*26)+65322}00 HCODE=HCODE+6532210 POSITION 0,16:? CHR$(HCODE);CHR$(LCODE)32220 POSITION 2,13:? "If CODE does not match press Π }and edit line above.":GOTO 32050!$%e ASASALSASAHCLSELCLSEHSASLOME ##MULTI}-AUTORUNS WITH ATARI DOSBY BILL BODENSTEIN (c) 1987, ANTIC PUBLISHING(;@,233F:AT,"@v*F:A}T,"Af@p<\+(#Please boot an Atari DOS 2.0 or 2.5R("disk before running this program.\ A0F +}A@fPE(E(9 This program permanently modifies your DOS.SYS file, UFF(>permitting you to run sever }al AUTORUN.SYS files at boot-time.V=( ('(Continue Y (Y/N)+=AX% 0Y((Aborted!% !}A0ZX(1(&Make sure your DOS disk is in drive 1.D( Press Q@X(d?6-F:A,!6-F:A"},06-F:AT,?6-F:AU,n56-%$AV56-F:AC,%F:AD,$AV(Modifying DOS...# A#}"6-%@6-%@= &@!"- 36-= AA6-%&$}AAV6-%&AV&@ Ap,ATAU6$6-P:'AV,$6-&$AV%}@AAJCADP:'AV,9AC&F:AD,$AVC B(Writing modified DOS.&}..A@6@@ D1:DOS.SYSA@(DOS modified!--152,72,32,-1,-1,104,16,4'},201,136,208,16==238,302,512,169,292,141,84,3,169,512,141,85,3,76,114,21!!169,48,141,302,512,76,-1,-16668,49,58,6(}5,85,84,79,82,85,78,48,46,83,89,83,155D1:MULTIAUT.BAS>` *O.|r*m - ЭЭм// ??<JNA NJ/<NA"/0<NBNuNVaaJygaHN *}^NuNVNZ./</</<N $ 3>.j/<>/< N&P. ?<NTByByN^NuNV. < +}?<NT3 yfa< yfa. ?<NT3 yf3N^NuNV. r?<NTBy<`Ry ,}< y>Naa>>NN^Nu -}NV. ?<NTah09,|3f09,|@3:. ?<NTD:*B9./</< .}NPJyg">>N>a&a>>NN^NuNVBy`By<`Ry< y?<?<N v /}X>f?<?<N vX>:?<?<N vXByd`*0yd"|00H>?<?<N vXRyd09dy,m>?<?<N 0} vXN^NuNV32>N 3h09h|A:*.*B9B9./</<NPJy 1}gv>>N>/<?<=N \32 y2o$.0/9 n?92?<?N P3,>2?<>N T>>NN 2}^NuNV>>NBW/<?<2?<>N T>>NN^NuNV 3}>>N>aa>>NN^NuNV>?<N vT3& y&f>?<N vT3f>?<N vT3:09: 4}@yf3.Byd`* |02yd/?<?<N vX _Ryd09dy.m3d,N^NuNV>?<?<N vX nf> 5}S?<?<N vX nf>L?<?<N vXBy`> |2y \g$0y"|0H>?<?<N vXRy |2y 6}J(nBy`*0y"|0H>?<?<N vXRy |2y n> ?<?<N vXN^NuNV. :?<N 7}T>>NNN^NuNV3eBByDByH3NNN^NuNV3{BByDByH3NNN^NuNV#z# 8} .мZ#3dBByD3 H n 3NN n 0N#z###~N^NuNV3 3 9}zBByD3H3NNN^Nu#Bv"<vpsNBNuNV30.|Hм -@=|` nH2n2 :}RRn nm.4N>B@09 N^NuNV#### #Z##4> aF3 ;} @pN^NuNV>a*pN^NuNV3# Z>4NN^NuNV#Z# ^>ZN n0"B@09 N^NuNV> <}MN n0" n 0$ n0& n0(B@09 N^Nu#NN/9Nu#NM/9Nu#NA/9Nu =}  >} ?}[1][ Welcome to LinkLin @}e/ST | v.041286 ][ Perform ][3][ Load: 8Bit->ST Save: ST->8Bit ][ Load | Save ][3][ Enter the 8Bit file to load. ][ Selec A}t ][3][ Select the ST file to transfer. ][ Select ][3][ Select the new device:filename.ext ][ Select ][3][ Want to tran B}sfer another file? ][ Yes | No ][3][Thanks for using|LinkLine/ST|v.041286][ Exit ]}_crystal>_ctrl_cn _workin C} _hialert _typeale <_loadler r_saveler _devaler _moreale _tksaler :_max_len n_main D}J_initiald_communi_termina_load_fi8_save_fi_load_8B_write_tL_read_thX_send_ E}co_send_fi_get_fil_v_clsvw_v_hide__v_opnvw&_v_show__gsx1_gsx2_iiof F}fz_iooff_pioff~_pooff_vdi_crys_if_appl_inZ_appl_ex_form_al_fse G}l_in_graf_ha $_gemdos _bios v_xbios f_intin_intout_org_pal_c_mx H}_my_finishe_new_pal_i_j_k_l_hi_word_w I}rite_b_ptsin_path_ptsout_write_h_global_inchar&_lo_word(_pressed*_ J}bytes_r,_bytes_t._text_bu0_control_int_in_int_out _read_ha._dum0_file_ha2 K}_ad_c4_resolut8_lenhi:_delay<_gem_han>_gl_apid@_contrlB_addr_inZ_charact } S  0  Sd QR`0+  b c OPMN LSH {ɟ0M} Icɘ RIRUɝ QIQG)?<|Q)@|)?I<R|)|)? |||MR0N}Q0+hh@|I|#9>-( = /.!$%' )"8,+ &01234567 :*;< ?   b cO0O}PM NLT@/(@ rAiC nEAM-@@;(@ PrS a Ke0*554 9ҢX : J: R$ST UVD:E HI VT UD:E HI V4Q} 9X : J:X4UeXeY,eXeYeXeYXi܅YiA@ȩXi+YiXi-R}Yi56ҩ ȑȩ 8)L46JiL8M 9ҭx݂:Lr6S}L6Ŋ  '3L68(L6i(iL68L6iiT} L(8 L677 L8Š#L8 67P 9)朥ن:Lk9 67ƍL6 `8( L7PU} L7' L7) z:z:l8(L7i(iL78L7iiLV}78( 78L8' L8) L8L68(i(i  Lc8 LW}8 L88ii  L8 L8 L8L6Lr6:ҘH 9hX}L98XY  89 L9((eeL5i`i`i`Y}ii``8 :ҘH 9h揢iL9iL9L9Z} ?9 J:L5L5`019y:D`BJKGD:E V BR'SٍDGEHI V[}`E:RSTUV) GDGEHI V`z::7777 jhji<52/<5//@55<<<<PRESSSTART \}XX 3333?33?3 ?0?? 3 03 3333  00 <  <DDDD(((<<<< ]} 00?3333? < ??3?0????33??0<<?0?33?? 00?3?33??3? 0 0 ??<<<<<<^}<<XYUUUUUUUU?33?33?3?33??3003?<3333<?0<00??0<000?300??33?333? ?3?33<<3300000?3??333_}?33333 3333 ?3?000 3333 ?3?<33?0??? 33333?3333? 333??333 3333? @@************************O}>?O !BRPLPPSPSSNLJDLLYYTSCCCDSMOVa} b} ! VECTRONBY HEATHc} LAWRENCE (c) 1987, ANTIC PUBLISHING06-@$F:B2y,"@06- A` A A d}MOVE PROJECTILE(s@w6-;6-@%@4$+"@,[6-@%@$+"@,s%%@@e}$@2%%@@$96-%+"@,&+"@,W6-%+"@,&+"@,l6-F:%%@@$,%f}%@@$@<>-@@ 1"@)"@; A@>$FuK+@*@*@*@g}*@*@ ,@P]A@gu%%@@$@Ps-@A@;2@@h}@? a2@sA@5Zk6-@$+"@,%@$+"@)"@,%@i}$+"@,%@$+"@)"@ ,}6-%+"@,6-%+"@, AdG6-&+@*@ ,3j}"A = AG @PnMAIN ROUTINExi6-@( A%6-@16-@6; AG6-@k}S6-@Y6-c A`i6-i6- A%6-@16-@6; AG6-@ S6-@7Y6-cl} A`i6- A MOVE LAUNCHERS{56-T:,$+"@,%T:@,$+"@,I"@@{6-m}R:,$+"@,%R:@,$+"@,!@*@A`9%%@@$g6-%@$+"@n},&@$+"@,6-%@$+ @,&@$+!@,7%%@@$)-@@- 7 A`o}SET UP A DEFLECTORk!%@%@@$@?%@7%@@$@ Q-@ k(Ҡžp}>:,c56-T:,$+"@,%T:@,$+"@,A"U-@AY c APg56-R:,$+q}"@,%R:@,$+"@,g@*@*@*@AaW6-@6$+"@,%@7$+"@r},%@8$+"@,%@9$+"@,a AMOVE CURSORs-@ ,(,,,,,,,,,,,,,,,,,,86-@ s}D6-@Y6-F:%%@@$,s%%@@$%@556-T:,$+"@,%T:@,$+"@,"t}*;2@@B@@O-@@PS u2@ A`Y"u}*"-&(>:,:-@A> L6-%@V AY$"[56-R:,$+"@,%R:@,$+"v}@,I"@A`[%%@@$,YY6-&@$+"@ )"@)"@,%@$+"@)"@)w}"@,6YY6-&@$+"@)"@)"@,%@$+"@)"@ )"@,@16-%@$+ @x},&@$+!@5,_6-&@$+!@,%@$+ @,t6-F:%%@@$,%%@@$%@ A`y}JGUTTER BALLT"@Ap.-6@F%%@@$@j2@%@P@@z}~-@@ ^-6@2%%@@$@V2@%@P@@j-@@{}n %%@@$@hD%%@@$@ A2@D$r-@6@|}2%%@@$@V2@%@P@@j-@@n %%@@$@ |(%2@}}($UPDATE STATSL-@ @!(+-@7@!/(A-@%@!I( L$~}GAME OVER/PLAY AGAIN? +@-@@6(@ H-@@_(@ =========q-@}@(@ 1g-@@.(@ 24"F-@@](@ }!g APF6-@%+!,'-@@F(@  ]-@@0(@ } B-@@](@ Ϡ٠-@@!#AP5-@@9"="Y2@}@@}2@%@@@-@ O%2@G2@}K O * F:B2y,@A* @ PLAYFIELD +AR@3AV}'AVEA@5g6-F:@,%AV$F:@,s6-6-6-@6-@=@w}+@A=B7tAU @E,@1/@C,@8@U/@8@}U @D,1/@8C,@ U/@9@ c6-!-@!K(}%PLAYER 1: TARGETS LEFT: PLAYER 2:W6-@c6-@%6-P:H:,$@,%@G6-P:H:,$@3},%@i6-P:H:,$@,%@F:%%@@$,A0%%@@$D%%@@$#6-%}@- AA@PA0D$&REDEFINE0 AF:A@,&@*+@<-@@Q(@}c-@@x(@--------@@5=@w+@A=B7tA}:(@by:&-@@B(@T-@@r(@PRESS TRIGGER...6-+F:}A,%@,$AV?;;6-C:.hhhhhhh`,@00X=USR(MOVE,FROM_ADDRESS,TO_ADDRESS,A}MOUNT)D6-?:<BsD<<A$,Eee6-C:X  0``0<~ۙ~<<~~<<~~<},I 6-?:<<%@2<@,N%%+T:,*T:@,,AX$bMM-+"@(,$@(+"},$@(+@$+",&@,g222@+6@$%A!,@@lE-@"( ======== A2@}E v=@w+@A=B7tA{$TUNE DATA5562,2}0,58,20,54,20,48,30,48,30,54,20,58,20,62,50D1:VECTRON.BASBBRWORDGRIDLCLBYTEDWIDTDHEIGHESESGGEXEYSTARTROSTARTCOMISCFLACOUNFLASSFLNNSTMFN}LINPPPPMFOUN@ } } !"#$%&'()WORD FINDER}BY KEVIN PECK (c) 1987, ANTIC PUBLISHING06-@$F:B2y,"@06- X +A@}X;@%,;Av,;@,;@,9@,< @%"# A( @0<DO INITIALIZATION@}( ( ((4( I can't find any puzzle data!7(:(=(@$ Ap$LOOK FOR 1ST. LETTER(FIND REST OF WORDP//}%+$, )%+$,!%@A5Z//%+$, )%+$,!%@A5d/ 6-%6-%6-@'6-%}/6-%i 6-6-n# 16-%A(#,x777<,07+&@,$%<+&@,$%,A$6-%}@!'$ Ap- 6-%6-%6-%#6-%- A.-@@$( WORD. A5}# 16-&A(#,%6-&@%"@A5 6-&6-& A$----------}6-@"6-B:,"F @8-@&%P:+@&,'@,@<(F A ,a-@&@*(7@}<@,<-@&@H @%W(7@<,a A 6(7@<@$,@)AJ&-@&}@&( This word isT$-@&@$( too LONG^&-@&@&( for puzzle!!h A ru}AF:A@,*B2w<AY@4P-@dB2H%h r+u6-}@6-%&@6-@6-%&@# 16-%A(#,CC7@<@,07+&}@,$%<+&@,$%,ANJ6-6@"@w&8@AJB7tAS6-}6@X!!"*"A b @l' @6-%@' Aq' @6-%@' }Av6-@# 16-&A(#,!  6-%@! A!  6-%@! A}6-$-@'@$( Word could &-@&@&( NOT be found*$-@'@$( in puzzle!4}1A@H'A@H1 AP>6-%@H3-@5@! @3-@6@R(\}"@A f!  6-%@! ApS-@&@(+-@&@/(AA}SA8-@(@"(FINISHED.6-8 A`"@A 0 A %-@'}@%( STARTCont$1-@'@!%( OPTIONEnd16-. 6-&6-&0 +,1+%,,}1$6-F:B2y, @$6-2' )6-%6-%' Ar3##+")!A(,Ap8'6-@}"@'6-@BjS-@&@(+-@&@/(AA@SA@tE-@&}@(+-@&@/(A-@&@E(~>-@&@(+-@&@!/(;6->$} F:A,@Ap&-@&@&( Unexpectedly&-@&@&( out of wordsF-@(@}"(in DATA!4A@HFA@H! A`!"@A  A $-@'@$(} UnexpectedQ-@&@-(ERROR # F:A,?A@HQA@H @-@&@@(in LINE} F:A,%AV$F:A,! A`!"@Ap A (Z$-@'@$( Word FOUNDd&-}@&@&( at indicatedn"-@(@"(locationx'AA'AA6-%@}3-@5@! @3-@6@(! AP!"@A  A Ap9A}R@ A`) A /"9 Ap-@@ F:A,@A`NN(FFirst DATA stat}ement must contain WIDTH and HEIGHT of grid. One or-*("both of these numbers are missing!-GD(ERROR #F:A}, in LINE F:A,%AV$F:A,G"P!@$) +-@@M(Improper WIDTH value in DATA!P},Q!@$) +-@@N(Improper HEIGHT value in DATA!Q6/6-!-@$/6-%@}@"6-B:,"A@J8-@@8(Width of GRID DATA element #T  ( is too short!^}( is too long!h67<%&@,. r A`" AP|`-@@<("DATA statement following G}RID DATA`(statements does not contain theKK(Cnumber of WORDS to search for. Please check number of GRID DATA and@=(}5check for possible missing WORD COUNT DATA statement.@{6-F:A,&@&A0+BAR@}TA@^ A`p-@@{(FINDERh A`-@@*(FINDER<-@@I(}BY KEVIN[-@@h(PCK68,--68@,-A(B68@,-AW68@,-A$}l68@,-A@68@,-AH68@,-AR68@,-AT68@,-AU2&6-P:+@$}&,'@%?P,26-A(&&6-P:+@$&,'@%?P,! 6-!@!6-@)6-&@}!@)6-@ 6-)6-&@ )6-&3BBy!AY@F3}B2w@09B2V@'B2W@9B2X@:KAAE'AAE9AAE}KA@D+6-$AV%A+A#@NW-%@%+$@,+?%A(}S%AVW XN-%+$@,&@(8,9%A(8,J%AV8,N bK-%A'}3%A(G%AVK l6-@H%+$@,v7B2H#B2I%@27B2P}%@d (}@-"6-@"-@B:,&(7<%&@,# @$&(6-}%@  '-@%'@@%6.  6.*(}4( COMPUTER >( WORD FIND (H( # FOUND 0 R( # MISS 0 (\(SEARCH WORDf}( (((((p( (((((z( (((7@@!6--6-}7 A"6. "12 SPACES$ D1:WORD.BASMxyNBRDGDECPLBBPNUMBEROTOTPTTPYYRWORKBLANKDECPNNBRLTLHRLOUEMPBASRLINEFEEPLINEOROCO}SLINEGO }} ! WAGES AND HOURSBY HAL BOYER (c) 1987, ANTIC PUBLISHINGFFIMPORTANT: SEE PR}INTER CODES IN LINES 350 & 370 IF YOU DON'T OWN""AN EPSON-COMPATIBLE PRINTER! A@ AU2GOSUB ROUTIN}ESF?6-@6-@!6-+ A<6.7@<,?$P?6-@6-@!6-+ A<6.7@<,}?$Z?6-@6-@!6-+ A<6.7@<,?$d?6-@6-@!6-+ A<6.7@<},?$n 6.=:,x 6.6-B:,%@-@B:,7<,4.6-6-  6-%67&%@}<,.67&<&,..-&%@7<,4 67<,.0 $7-@@"7(}νŠýԠd@.@@K:;)@F@dAU*@'AE}%-@""(>:AV,%$_67@<@,.|.67@,.=:,?67@,.|P67@,.$_67@},.E67@(,.|%67@3,.$467@4,.E67@I,.|e67@T,.$#67@U,.467@g,.}|E67@p,.$T67@q,.e67@,.|"$,67@<@,.|.67@,.=:,?67@,.|N67}@,._67@,.|n67@,.67@",.|6C67@#,.#67@0,.|267@1,.C67@9,.|}@$J_ -@6@<2@P@X2@@`@\ _$T7-@)}-@@ 0(4 7$^8 38PRINTER CODE FOR ONE LINE OF EXPANDED PRINTh##3 *WAGES & HOURS*r}33 333PRINTER CODE FOR CONDENSED PRINT3NAME: 3UU3 BASE RATE= $< } 52 WKSXX3P| HRS | BASE PAY | OVERTIME PAY | WEEKLY PAY | YEARLY PAY |$}MAIN PROGRAM INPUTC +A 1A@CAACAR(}--@}@C(ӠӠ+-@@+(=================: A-@@6(Enter Base Rate..}:_)!@ # A05-@@U( _ A`5 A-@}@1( Enter Name..54@_B:,!@ A0.-@@U("}_ A`J A0-@@F(!Send Output to rinter or creen J B&4@0G}37@<@,0P*7@<@,0S= A0G A0:4SANPRINT ROUTINEbDAR@}'-@@D(ǠΠӠl A@v AP-@@Q>"@$)"@H-}-@@034 > AP#6-%?P#@w 6. A33 VV3N-----}-------------------------------------------------------------------------)AR A0) @G-@}@!)(3 A@= BG @FORMULAS AND JUSTIFY <6-$@@26-P:$A%?P},'A< @p)6-&@@)6- >6-$$@P46-P:$A%?P,'A> @}*6 6-%,6-P:$A%?P,'A6 @4<6-$@R26-P:$A%?P,'A< A>07@}<@,4P& A`0 APH AR$fSCREEN DISPLAY ROUTINEz36-@6--AR@}3(}+-@@+(ӠӠ"-@@"(Name..+-@"@+( Base Rate..}$A-@A('|HRS BASE PAY OT PAY WEEKLY YEARLY |-@@Q6-%?P$6.7@}<@@,$ A -(6-%@<!@  A0# A@/"@'2'< @%!@ } A@%6-@ 4 -4(& -------------------------------------3 A0 A@)AR3 @}SETUP ROUTINE~~;@,;@ ,;@ ,;@ ,;@ ,;@,;@,;@ ,;@@},;@,;@,;@,;@ ,$+ 6.-67@,.-+67@,..67@<@,.|5}67@<@,.|N67@(<@(,.|g67@I<@I,.|67@g<@g,.|67@<@,.|8}+ 6.-67@9,.-+67@,.B67@<@,.|567@<@,.|N67@<@,.|g67}@#<@#,.|67@1<@1,.|67@9<@9,.|L+ 6. 67@,. +67@,.V6-@9P}`@j$ D1:WAGES.BAS2_} FNTEMPARDPLLA DVORAK KEYB }OARDBY DAVID YEARKE (c) 1985, ANTIC PUBLISHING(GG(LINES 10-220 MAY BE USED WITH OTHER BASIC LOADERS IN THIS ISS }UE.-##CHANGE LINE 70 AS NECESSARY.)2&&;@ ,;@ ,;@,<$6-F:B,$BAUFH6. D:D }VORAK.EXEHTHIS IS THE NAME OF THE DISK FILE TO BE CREATEDP3 +3(! ANTIC'S GENERIC BASIC LOADERZ(BY CHA }RLES JACKSONdB Apn1( (( Creating 1(...please stand by.x## "6-;,#6-@ } 6.".-@B:,@.ARAUL6-&@#-@@L((Countdown...T-P:'@, }) =!67<,.>:A:7<%@,,,/6-%@3 = A0SF:A,"@((8(TOO MANY DATA LINES! }P(CANNOT CREATE FILE!SH %@(-(TOO FEW DATA LINES!E(CANNOT CREATE FILE!H @@ }5Af@#(@5Af(@+(( Ġ 417cc255255000029 }148030032083030169000133012169029133013169048133010169029133011169083141231002169cc03014123200216910014100800216902914100 }9002169255141081030141082030096169048141043002173001029cc1330121730020291330131730980291330101730990291330111730790301412 }31002173080030141232002173077cc030141008002173078030141009002076083030138072173009210205242002208005174241002208123170201 }159cc208010173255002073255141255002176099201152208010173082030073255141082030176085201157208010173$cc08103007325514108 }1030176071041063201017208005142220002240060134124142242002173081030208022138.cc0410642080171381331240410631620042022210730!}302400602240002082461730820302080181661241380411928cc133124138041063170189009030005124133124165124141252002169003141241002!}169000133077173082030240Bcc007173081030240002169048141043002104170104064165124073128133124208215035057062003004045006007L!}cc040009000061012018014015005017001019020022047002024025026027028029030031046033016021036037023Vcc0390100410340560440430!}32038048049050051052053054055011058042059060013008063006007014015000000`cc000000000000000165012141001029165013141002029165!}010141098029165011141099029173231002141079030jcc17323200214108003017300800214107703017300900214107803007600302900000000000!}0000000000000000000t00000000000000000000000000226002227002084030 D1:DVORAK.BAS Yb_file_ind_lenlof_driveh_workoutj_button_filenam_for_rea_action__addr_ou }_color.$             }             }$    D0230 LDA DVBVLK+10240 STA RETADD+10250 LDX #UPDATE/256 ;High byte of VBI vector  WELCOME TO THE ANTIC MONTHLY DISKMost of the pr% }ograms on this side of the disk are for the ATARI 520 ST.We recommend you refer to thecorresponding issue of ANTIC forco% }mprehensive documentation. If youwish to order a back issue, or needsubscription information, contact usat (415) 957-0886 % }or, for credit cardorders, dial (800) 227-1617, Ex. 133.In California,(800) 722-3545, Ex. 133XXX *** BONUS FILES * BONU%}S FILES *** ALIENS.PI1, by STart Editor JonBell, is an excellent rendition ofthe spacecraft "Narcissus" as seenin the %}opening scenes of "Aliens." This is a low-resolution picturecreated with Degas (BatteriesIncluded). Color monitor requir%}ed.XXX *** BONUS FILES * BONUS FILES ***Whenever there is sufficient room,we will be including TYPO-ST andLINKLINE%} on the monthly disks.Please see the HELP files on thisside of the disk for LINKLINEinstructions.XXXThe menu th%:}SezCTRLININAB SCREEN CUSTOMIZER)}BY JAMES HAGUE (c) 1986, ANTIC PUBLISHINGd BAR@i!!A @n"A)}"(>:A%,s,-@@,(GRAPHICS MODE ZEROx,-@@,(SCREEN CUSTOMIZER}3-@@)}3(programmed by James Hague#-@@#( MAIN MENU.-@ @.( View/Edit Screen/-@ )}@/( Create Subroutine*-@ @*( Exit Program<-@@<("press the number of y)}our selection A">:,41 A" A">:,42 A " A1>:,43+.(Yo)}ur computer is1J -@6@<2A@@@ J AURETURN KEYPRESS IN (A)5)}AdAU5@@K:)@@$EDIT/VIEW SCREEN(>:A%,4-@)}@4(THE FOLLOWING CONTROLS ARE2-@@2(AVAILABLE DURING EDITING3-@@ 3(select)} line with JOYSTICK6-@@6(OPTION - character luminance1-@@1(SELECT - line luminance)}--@@-(START - line color 7-@@7(press TRIGGER to stop editing6-@@6(pr)}ess any key to continue... A(>:A%,%@6-@% A0#-@@##-@%)}$:P:'@,"'@0(ABCabc: Ap)(ABCabc.@# 3 8-@()}->=6-R:,B)"@*6-&@) AG1"@*@#'6-%@1 AL AQ) }1-@( #-@+(->16-V&6-F:B2y,&@A%[@ ] F:@ ,@)!}A`(T:,$b Ae@AEj6-F:A`%,%@o"@6-)"}tA`% Ay6-P:F:A6%,'@,~6-F:A6%,&@$@Ap)6-%@)#}!@)6- A@A)6-%@!@)6-A6%$@)$}% ACREATE SUBROUTINE(>:A%,A-@,(SUBROUTINE CREATOR/(AAR)%}KK(CEnter the line number that you would like the routine to start at./ A / )!B'A +()&}+( Enter the line number increment.6 A %6 @)P:,)!AA %S(S(HEnter the filename to s)'}ave the sub- routine as. The 'D:' is optional.4A 5;;7@<@,4:*7@<@,0DA)(} 5Q37@<@,0:*7@<@,0:96.B6.D:Q67@,."AR@"(>:A%,g))}-@@5(Insert a FORMATTED disketteG-@@g(press any key to write file $ A A%$(>)*}:A%,8@+@@8(>:A%,&-@@&( writing filePH(@)IF )+}PEEK(1584)=104 AND PEEK(1585)=173 THEN%@$P6-% [S(@RESTORE%@$*:FOR A=0 TO 47:READ B:POKE),} 1536+A,B:NEXT A[6-%%E=(@*FOR A=0 TO 106:READ B:POKE 1584+A,B:NEXT AE6-%*6.(@A=USR(1584):C)-}TRL=205:RETURN66-%/##(@DATAF:A6,4K-@@#4(@,F:A6%,8 C(@).}K6-%9##(@DATAF:A`,>K-@@#4(@,F:A`%,8 C(@K6-%C-)/}@H--(@DATAF:A%@$,MY-@@>(@,F:A%@$%,B )0}M(@U6-%Y R(@ DATA 104,64W@$ ERROR HANDLER  A%@ (>:A)1}%, /-@@/( I/O ERROR F:A, 5-@@5(press any key for main menu  A$ 6)2}-@6( 6-@@6(|OPTION=Character Luminence| 6-@@)3}6(|SELECT=Line Luminence | 6-@@6(|START= Line Color | 6-@@6(|TRIGGER= Ma)4}in Menu | 6-@@6( $'INITIALIZATION'C-@#+A)5}6%?A`%@C ' #B'--A")A%- '66-A6-?:A)6},6;@ ,;@ ,$'$t'104,173,48,2,133,203,173y'49,2,133,204,160,3,177~'203,9,128,145,203,160,6' 1)7}69,130,145,203,200,192,29'208,249,169,129,141,0,2'169,6,141,1,2,160,99'162,6,169,7,133,205,76'92,228,162,)8}64,165,205,240'18,173,24,6,141,197,2'173,0,6,141,198,2,169'1,133,206,162,192,142,14'212,76,98,228,72,138,)9}72'166,206,189,24,6,141,10'212,141,23,208,189,0,6' 141,24,208,230,206,104,170' 104,64 D1:SCREEN.BAS(}at appeared on the screenwhen you booted the disk will onlyRUN programs with a .BAS extender.(NOTE: The menu WILL NOT RUN%;} ST BASIC programs!)If you try to run a program and theresponse is 'cannot run Filename',then check the file exte%<}nder withthe following list:XXX.SYS Reserved for DOS system files..DAT Data file. Usually accessed by anothe%=}r program..TXT Text file. Usually accessed by another program..PI1 A Low-resolution DEGAS picture file.%>}XXX*** Files for the 520 ST ***.C C Language source code. Must be ported to an ST disk. See the corres%?}ponding article for complete details..BAS An ST BASIC program. WILL NOT RUN on 8-bit computers!!! %@} Must be ported to an ST disk. See the corresponding article for complete details.XXX.PRG A compiled %A}ST program which uses GEM. Must be ported to an ST disk. See the corresponding article for comple%B}te details..TOS A compiled ST program which does not use GEM. Must be ported to an ST disk. See the %C}corresponding article for complete details..S 68000 Assembly language source code. Must be ported%D} to an ST disk. See the corresponding article for complete details.XXX Whenever possible, we will try to%E}adapt our programs to work with asmany configurations of C as possible.But we think ANTIC's published Clistings should com%F}e as close aspossible to the industry standard. At this time, only the Lattice,Alcyon, GST and Megamax C packagesdo thi%G}s.XXXAll programs from ANTIC issues datedprior to August 1984 were reproducedfrom ANTIC's Archive. We've updatedthem%H} from our HELP columns andmost are compatible with the XL andXE machines. We have worked to insurethat our programs operat%I}e aspublished, but we consider all oursoftware listings to be works inprogress which we encourage you topersonalize and e%J}nhance.Good luck, and ENJOY!-ANTIC ED TAX ;COPY A-REG INTO X-REG0880 AND #$F7 ;AND OUT SHIFT VALUE0$+ST LISTINGSON MONTHLY DISK...and how to get themby CHARLES JACKSONAntic Technical EditorFor those ST owners who do no-L}t yetown a C compiler, but are eager totry out Antic's C language listings,we are now including the executableobject code-M} on the Antic MonthlyDisk.XXXAll disk files with extendersof .PRG, .TOS, .TPP and .ACC arecompiled ST programs, ready -N}to betransferred to an ST disk andexecuted. Given enough disk space,we will also include the sourcecode. 'C' source cod-u}****** + + + + + +** * * * * * * * * * * * * * ** + + + + + + ** * * * *+* * * * * * * * * ** + P} + + + + + + ** * *+* * * *+* * * *+* * * **+ + + + + + + + + ** *+* *+* *+*+*+* *+@A*+* * * ** + Q}+ + + + + **+* *+* *+* *+* *+* *+* *+* ** + + + + + + + ** * * * * * * * * * * *+* * **+ + + + R}+ + + ** * * *+* * * * *+* * * * * ** + + + + + + + ** * * * * * *+* * * * * * * **+ + + AB + + }10 REM JOYSTICK EXPANDER SUBROUTINE20 REM BY MATT LOVELESS AND MIKE EGGERS30 REM (c) 1987, ANTIC PUBLISHING30000 RESTORE 35T}0100:FOR QQZ=1536 TO 1594:READ QQX:POKE QQZ,QQX:RETURN 30100 DATA 173,36,2,141,57,6,173,37,2,141,58,6,162,6,160,2330110 DAT5U}A 169,7,32,92,228,104,96,162,3,189,120,2,168,185,41,630120 DATA 157,120,2,202,16,243,108,57,6,0,0,0,0,0,4,230130 DATA 3,0,65V},8,7,0,5,1,0,0,0,0,0,0,0,0410 REM CONSOLE KEY SUBROUTINE20 REM BY MATT LOVELESS AND MIKE EGGERS30 REM (c) 1987, ANTIC PUBLISHING31000 RESTORE 31100:F9X}OR XX=1536 TO 1536+111:READ XXX:POKE XX,XXX:NEXT XX:RETURN 31100 DATA 169,0,141,111,6,104,208,1,96,170,104,104,141,112,6,2029Y}31110 DATA 240,5,104,104,202,208,251,44,112,6,240,30,48,5,169,131120 DATA 141,111,6,169,6,133,213,169,112,133,212,162,6,1609Z},75,16931130 DATA 7,32,92,228,169,0,141,112,6,96,169,208,133,213,169,3131140 DATA 133,212,162,228,160,98,169,7,76,92,228,179[}3,15,210,41,831150 DATA 13,31,208,73,15,174,111,6,208,9,170,41,247,240,13,13831160 DATA 76,105,6,170,41,247,240,1,138,141,19\}12,6,76,98,228,082 REM WORD FINDER4 REM BY KEVIN PECK6 REM (c) 1987, ANTIC PUBLISHING2220 DATA 24,242230 DATA PKAENGNITSILMARGORPPAIED224=^}0 DATA WEQBGAOWCSIFALDECMDODNSC2250 DATA DDJACKTRAMIELEORRUVKCCAM2260 DATA NIODZKIKCVDLNCPNEGASIZNN2270 DATA BSSMRSMNEIEFX=_}OMATARHLALA2280 DATA WKNPAIDTSNDNYRXENMPTLCEO2290 DATA ADDOPWWKKVHEIJISIAZGAOXK2300 DATA ERAWMEEMRAPMDZJDRWAEBJCN2310 DAT=`}A KIJXNTNSICHUMNAGPQHXKPAD2320 DATA DVOTTKXFHWOGBENGNCISAUSZ2330 DATA NEYEXYTRIHTENONHASTPRCSO2340 DATA ASSACPNVGUKOIPGSOM=a}OYTLEN2350 DATA TNTHIWGMWIPTSNHAZSCOAUTD2360 DATA SOIEDEACVNUWOSTSDENIDSTA2370 DATA RKCQMOMNULZYAMPECNRMTEEX2380 DATA OSK=b}KXKLAOCUTIRISRTSDLNID2390 DATA TISAPCZSTEHNAJSPYFABWKAM2400 DATA IEWTSBEKSADTXAIGPNANUABI2410 DATA NCOLORINDIRECTIONTOCQUP=c}F2420 DATA OXNYHWBYZTSIHFNXHCAOENFS2430 DATA MZXGMTMRCABMOUICKBNULOMB2440 DATA SUISLCEYONDZSCUJLWXXKJOK2450 DATA LHRCZITI=d}SKTEHOSENSYDIMBT2460 DATA RNVHDDERDNUHTHGIEWNECRCG2470 DATA 202480 DATA ATARI2490 DATA ONETHIRTYXE2500 DATA EIGHTHUNDRED=e}2510 DATA DISKDRIVE2520 DATA CASSETTE2530 DATA DISKETTE2540 DATA JACKTRAMIEL2550 DATA TOUCHTABLET2560 DATA JOYSTICK257=f}0 DATA HIGHRESOLUTIONGRAPHICS2580 DATA COLORINDIRECTION2590 DATA PRINTER2600 DATA INTERFACE2610 DATA ANTICMAGAZINE2620 D=g}ATA MONITORSTAND2630 DATA FIVETWENTYST2640 DATA GEM2650 DATA TRAKBALL2660 DATA CABLE2670 DATA PROGRAMLISTING<rBLINKLINEEXEB TYPOII LSTB MULTIAUTBASB')LINKLINEPRGB#PSLITHER OBJB2`VECTRON BASB7WORD BASB)WAGES BASBDVORAK BASB DOC TXTB(SCREEN BASBKPORT TXTBLDVORAK EXEBSJSTICK LSTBWCONSOLE LSTB ]PUZZLE2 DATBqPUZZLE1 DATB'PUZZLER BASB ALERTBOXBASBHOTPOKERBASBOPICCNVRTBASB$SCROLLITBASBCKRAZYKATOBJBSMLEDITORBASBkTRAILPADOBJBTRAILJOYOBJB PICTURE STBBPOKER SUBBRERUN BAS2 REM WORD FINDER4 REM BY KEVIN PECK6 REM (c) 1987, ANTIC PUBLISHING2220 DATA 8,102230 DATA AKNFEAKC2240 DATA DDRKRDVA2Ar}250 DATA NOWIECST2260 DATA GQGDSMNT2270 DATA EUZKAASL2280 DATA DFSMHCLE2290 DATA TNAPPBOH2300 DATA MIETDKWE2310 DATA NLAs}LUBDMR2320 DATA EWJUOZDD2330 DATA 62340 DATA FROG2350 DATA ELEPHANT2360 DATA CATTLEHERD2370 DATA DOG2380 DATA PHASER2At}390 DATA BULL@e files willhave a .C extender, assemblylanguage source code will havean .S extender.XXXPORTING FILESBefore using an -v}ST program, you musttransfer it to an ST disk. Thisprocess of transferring filesbetween computers is called"porting."X-w}XX To port a file from the AnticMonthly disk to an ST disk, you'llneed the Linkline programs fromthe August 1985 issue-x}.(LINKLINE.PRG and LINKLINE.EXE are both included on this disk).XXXIf you don't have Linkline, youmay also use: -y}- A telecommunications programfor the ST which supports XMODEMfile transfers.FLASH or PC/InterComm will work).XXX - -z}A similar program for your8-bit Atari which supports XMODEMfile transfers. Chameleon orBackTalk will work. Unfortunately-{},HomeTerm won't do the job because ittranslates all carriage returns intoATASCII value 155. Also, don'texpect to succeed-|} at ST porting withany version of AMODEM.XXXA - 8-bit Atari computerB - An Atari 850 Interface Module with a modem -}}cable (RS-232 to D-9.)C - Null modem connectorD - Gender changer (if required)E - Your ST   -~} | A |=>| B |=>| C |=>| D |=>| E |     Sample porting configurationXXX IMPORT-}ANT: If you're not usingLinkline, both modem programsmust be configured similarly. Ifyour 8-bit software is set for 1200-}baud, your ST software also must beconfigured for 1200 baud. Additionally, BOTH programs mustbe set for 8-bit (binary) -}filetransfers.XXX Once both computers are linkedtogether you may begin the filetransfer. You can also reverse this-}procedure to transfer files from STdisks to your 8-bit machine.XXXWALK-THROUGH DEMO1) LINKLINE:Once both LINKLINE pro-}grams arerunning, place the monthly diskinto the 5-1/4" drive, and sitdown at the ST. Choose theLOAD A FILE option and t-}ype inthe name of the file you want totransfer. LINKLINE will pullthe file off of the monthly disk,and save it to an ST -}disk.That's it. You're done.XXXWALK-THROUGH DEMO2) MODEM PROGRAMSLet's walk-through a sample filetransfer. We'll -}use BackTalk on an8-bit machine, and FLASH on the ST. Configure BackTalk for 1200 baud,with Full Duplex and ASCIItrans-}lation. Press [SELECT],choose the XSEND option, selectXMODEM protocol and enter the nameof the file you wish to port.X-}XX From the ST desktop, double clickon FLASH.PRG. Make sure FLASH isrunning at 1200 baud. Type -Bto change baud-} rates, if necessary. Now type -R (for RECEIVE).When the file selector box appears,press [ESCAPE] and type the name -}ofthe file to receive. Press [RETURN]or click on OK. To begin the transfer, press the[START] button on the 8-bit Atar-}i.XXX Occasionally some versions ofXMODEM will append extra "garbage"characters to your files. Textfiles, such as C-} listings, areparticularly susceptible to thisproblem. If your implementation ofXMODEM appends garbage characters toyour-} source code, you must removethose characters with a text editorbefore compiling the program.,a 1000 ' 1010 ' ST PUZZLER 1020 ' (c) 1987 Antic Publishing 1030 ' Ver 120286 1040 ' Written by David Bohlke 1050 E}' 1060 '---------------------------- 1070 MAIN: 1080 randomize 0 1090 gosub SETCOLOR 1100 TRUE=1: FALSE=0 1110 E} WRONG=0 1120 TIMER=0 1130 RIGHT=0 1140 fullw 2 1150 clearw 2 1160 for J=1 to 60 1170 X=rnd*84+210 118E}0 Y=rnd*70+90 1190 while abs( XA-YA )<300 1200 XA=rnd*3600 1210 YA=rnd*3600 1220 wend E} 1230 XR=rnd*9+7 1240 YR=rnd*9+7 1250 color 1,rnd*15+1,1,7,2 1260 pellipse X, Y, XR, YR, XA, YA 1270 E} next J 1280 color 1,1,1 1290 linef 220, 100, 283, 100 1300 linef 283, 100, 283, 147 1310 linef 283, 147, 220, 1E}47 1320 linef 220, 147, 220, 100 1330 color 1,0,0 1340 for X=180 to 219 1350 linef X,60,X,180 1360 linefE} X+104,60,X+104,180 1370 next X 1380 for Y=70 to 99 1390 linef 160,Y,310,Y 1400 linef 160,Y+78,310,Y+78 14E}10 next Y 1420 gosub GRID 1430 color 12 1440 gotoxy 23,7 1450 print" ST Puzzler" 1460 for I =1 to 8 1470 E} for J=1 to 6 1480 B( I ,J )=0 1490 next J 1500 next I 1510 ' 1520 '------------------------- 153E}0 PUZZLE: 1540 gosub MAKE.SCORE 1550 M$=" Selecting piece SCORE " 1560 M$=M$+str$( SCORE )+" " 1570 gosub TITE}LE 1580 R=int( rnd*8 )+1 1590 C=int( rnd*6 )+1 1600 if B( R, C )=1 then goto PUZZLE 1610 NX=240 1620 NY=20 16E}30 gosub PLOTBIG 1640 gosub MAKE.SCORE 1650 M$=" Click to grid SCORE " 1660 M$=M$+str$( SCORE )+" " 1670 gosuE}b TITLE 1680 ' 1690 MLOOP: 1700 gosub MOUSE 1710 if B<>1 then TIMER=TIMER+1: goto MLOOP 1720 A=int(( X-10 )/24)+E}1 1730 B=int(( Y-30 )/24)+1 1740 if A<1 or A>8 or B<1 or B>8 then goto MLOOP 1750 if A=R and B=C then goto GOT.ONE E}1760 WRONG=WRONG+1 1770 gosub MAKE.SCORE 1780 M$=" Incorrect SCORE " 1790 M$=M$+str$( SCORE )+" " 1800 goE}sub TITLE 1810 sound 1, 8, 4, 2, 99 1820 sound 1, 0, 0, 0, 0 1830 goto PUZZLE 1840 ' 1850 '----------------------E} 1860 GOT.ONE: 1870 RIGHT=RIGHT+1 1880 B( R, C )=1 1890 gosub MAKE.SCORE 1900 M$=" CORRECT "+str$( RIGHT ) 191E}0 M$=M$+" -"+str$( WRONG ) 1920 M$=M$+" SCORE "+str$( SCORE ) 1930 M$=M$+" " 1940 gosub TITLE 1950 NX=R*24-14E} 1960 NY=C*24-14 1970 gosub PLOTBIG 1980 if RIGHT<48 then goto PUZZLE 1990 ' 2000 gotoxy 2, 0 2010 color 15 E} 2020 B.LOOP: 2030 gosub mouse 2040 if b<>1 then goto B.LOOP 2050 goto MAIN 2060 ' 2070 '----------------------E}---- 2080 GRID: 2090 color 1, 1, 1 2100 for X=10 to 202 step 24 2110 linef X,10,X,154 2120 linef 10,X,202E},X 2130 next X 2140 return 2150 ' 2160 '-------------------------- 2170 PLOTBIG: 2180 A=R*8+212 2190 B=C*8+9E}2 2200 for I=0 to 7 2210 for J=0 to 7 2220 X=I+A 2230 Y=B+J 2240 gosub LOCATE 2250E} color 1,LC,LC 2260 X1=I*3+NX 2270 Y1=J*3+NY 2280 X2=I*3+NX+2 2290 lineE}f X1,Y1,X2,Y1 2300 linef X1,Y1+1,X2,Y1+1 2310 linef X1,Y1+2,X2,Y1+2 2320 next J 2330 if NX=210 then sound 1,6,10-I,3,0 2350 next I 2360 sound 1,0,0,0,0 2370 returE}n 2380 ' 2390 '----------------- 2400 MAKE.SCORE: 2410 SCORE=( RIGHT-WRONG )*100 2420 SCORE=SCORE-int( TIMER/10 )E} 2430 return 2440 ' 2450 '----------------- 2460 TITLE: 2470 M$=M$+chr$( 0 ) 2480 A#=GB 2490 GINTIN=peek( A#E}+8 ) 2500 poke GINTIN,peek( SYSTAB+8 ) 2510 poke GINTIN+2,2 2520 V#=GINTIN+4 2530 poke V#,varptr( M$ ) 2540 geE}msys( 105 ) 2550 return 2560 ' 2570 '------------------ 2580 MOUSE: 2590 poke CONTRL,124 2600 poke CONTRL+2,0 E}2610 poke CONTRL+6,0 2620 vdisys( 0 ) 2630 X=peek( PTSOUT ) 2640 Y=peek( PTSOUT+2 ) 2650 B=peek( INTOUT ) 2660E} return 2670 ' 2680 '------------------ 2690 SETCOLOR: 2700 restore COLOR.DATUM 2710 for I=0 to 1 2720 reaE}d A 2730 R=int( A/100 ) 2740 G=int(( A-R*100 )/10 ) 2750 B=A-R*100-G*10 2760 poke CONTRL,14 2770 E} poke CONTRL+2,0 2780 poke CONTRL+6,4 2790 poke INTIN,I 2800 poke INTIN+2,R*140 2810 poke INTIN+4,G*E}140 2820 poke INTIN+6,B*140 2830 vdisys( 0 ) 2840 next I 2850 A#=GB 2860 GINTIN=peek( A#+8 ) 2870 pokE}e GINTIN,3 2880 gemsys( 78 ) 2890 return 2900 ' 2910 COLOR.DATUM: 2920 data 030,777 2930 ' 2940 '------------E}----------- 2950 LOCATE: 2960 poke CONTRL,105 2970 poke CONTRL+2,1 2980 poke CONTRL+6,0 2990 poke PTSIN,X+1 30E}00 poke PTSIN+2,y+22 3010 vdisys( 0 ) 3020 LC=peek( INTOUT+2 ) 3030 return DV 1000 ' ST ALERT BOXES 1010 ' (c) 1987 Antic Publishing 1020 ' Ver 120286 1030 ' Written by Dr. Ron Schaefer 1040 'I} 1050 '------------------------- 1060 gosub INITAES 1070 fullw 2 1080 clearw 2 1090 ' 1100 '------------------I}------- 1110 while CHOICE<3 1120 TYPE$="3" 1130 TEXT$="Choose a box|and click the mouse." 1140 BUTTON$="I}One|Two|Quit" 1150 DEFAULT.BUTTON=1 1160 gosub FORM.ALERT 1170 if CHOICE=1 then ?"You chose number 1" 1180I} if CHOICE=2 then ?"You chose number 2" 1190 if CHOICE=3 then ?"Good bye" 1200 wend 1210 end 1220 ' 1230 I}'------------------------------ 1240 FORM.ALERT: 1250 N#=ADDRIN 1260 poke GINTIN, DEFAULT.BUTTON 1270 ALERT$="["+TI}YPE$+"]" 1280 ALERT$=ALERT$+"["+TEXT$+"]" 1290 ALERT$=ALERT$+"["+BUTTON$+"]" 1300 ALERT$=ALERT$+chr$(0)+CHR$(0) 131I}0 poke N#, varptr( ALERT$ ) 1320 gemsys( 52 ) 1330 CHOICE=peek( GINTOUT ) 1340 return 1350 ' 1360 '------------I}---------------------- 1370 INITAES: 1380 A#=GB 1390 CONTROL=peek( A# ) 1400 GLOBAL=peek( A#+4 ) 1410 GINTIN=peI}ek( A#+8 ) 1420 GINTOUT=peek( A#+12 ) 1430 ADDRIN=peek( A#+16 ) 1440 ADDROUT=peek( A#+20 ) 1450 return HyAPK1PK2PK3A *** HOT POKER LOADER ****** by S.M}M. Baugh ***11;@r,;@r,;@r,;@,(6$(Creating file: ĺҮ 6AA2A AM} @A@@ D:POKER.SUBd--@@r")67<,.>:,- n--@@rM}")67<,.>:,- x--@@r")67<,.>:,- 66(@%2 DIM PKR$(216):REM * Hot Poker Sub *66M}(@ 3 PKR$(1,72)=>:@4,>:@4,88(@4 PKR$(73,144)=>:@4,>:@4,99(@5 PM}KR$(145,216)=>:@4,>:@4,FF(@56 FOR L=1 TO 3:READ P:READ D:PKR$(P,P)=CHR$(D):NEXT L--(@7M} DATA 80,155,91,155,181,155ee(@T8 REM MAKE =1ST DATA LINE TO MOVE, =NBR OF DATA STATEMENTS, =DESTINATM}ION??(@.9 REM INCLUDE: U=USR(ADR(PKR$),LNBR,NBRL,DEST)1@( All done..AAH1oAM}AH(J("I'm sorry, I've discovered error #F:A,M(k(Press to continueoA M}@@SS216,104,104,133,209,104,133,208,104,104,141,253,3,104,133,206,104,133,205,165OO136,133,203,165,137,133,204,1M}69,0,168,145,205,160,2,177,203,133,207,160,1OO177,203,197,209,208,9,136,177,203,197,208,208,2,240,14,24,165,203,101,207M}NN133,203,144,224,230,204,24,144,219,160,5,200,177,203,201,44,240,69,201,0NN240,65,200,177,203,201,44,240,32,201,0,240,M}28,132,208,230,208,136,136,56PP177,203,233,48,240,13,170,160,0,24,177,205,105,100,145,205,202,208,246,164$NN208,132,20M}8,136,136,56,177,203,233,48,240,13,170,160,0,24,177,205,105,10.NN145,205,202,208,246,164,208,132,208,136,56,177,203,233,48M},240,7,160,0,248QQ113,205,145,205,230,205,208,2,230,206,169,0,168,145,205,164,208,177,203,201BLL0,240,13,200,24,144,140M},160,2,177,203,133,207,24,144,129,206,253,3,240LAA14,24,165,203,101,207,133,203,144,233,230,204,24,144,228,96V* 216 BM}YTESD:HOTPOKER.BAS 0 @ PqTT!L Y'o'PK1PK2PK3AFROTOPFMTDESINTEMPCNOUTGR7PLUSCREEPOKCOLCOLUTOP2DIRKBYTH2HEADERTYPINQ}BUFIINITBPG6TEMP2DLPOKGRCNVDTOxx KQ}   BXWBYYBXB BXWA!A:,.67@,.:F-(-(Q}!Want a directory listing? (/) >P,)@,>:,0Y*>:,0N@Z (>:,>:,4Y A@d+(!('FRQ}OM' file name? >+ An:67@,.6.+6-?::,.67@,.:)(('TO' file name? >) A:67@,.6.Q}+6-?:Q}-@+6-P:8,'@,>6-8,&$@Je-@%@(<-@&+!@ ,%@A(a-@Q}0&+!@ ,%@e(TM-@%@4(POKE A%,8,8 JARM(^L'(Convert mQ}ore pictures? (/) >4)@?>:,0YF(>:,I(Lh: (>:,@ @&6.0 A@: @ rQ}Ӡ|@6-F:A, +((Error #'( (Want to re-try? (/)'(>)@>:Q},4Y% ( ˠ٠=67@,.*.*3@@= Ap (}-@@Q}@( A`@6.7@<@,$ԠŠb6-F:@,66-F:@Q},&+F:@,"@#,C@J4P-X(b A$ԠŠҠ( ( - ) >,)Q}@,>:,21)>:,34A@& (>:, $0ԠŠƠŠ:((, , or ) >D/)@6.>:,/Q}21)33ApN# 41#6.-icro)llustratorX 426. -icro0ainterb 436. &unwith!rtl ( Q}$v##ĠϠҠŠ4-@@$)@067,.>:,4 ^ 0+(2( ERROR! - Q} is not aN(Micro Illustrator file.Q(T'^ A5)@$-@@1)@5 ?-Q}@$)@-68,-;A%? (-@@ $)@( 9AP@/6-?:<AQ}RG66-?:<AP<@<AR<<AV<A@,G6-?:<@,H(-@@$)@( R?.Q}6-?:<AR<%A@<AV<A6,?6-?:<@,\$f00ŠĠϠҠŠp6 #A 0Q}!-@@%"2*@6 z+-@'*@8,+ ,-@@ "(*@Q}, G66-?:<AP<@<AR<<AV<Av,G6-?:<@,$,,255,128,201,199,26,0,1,0,14,0,40,0,192Q}##27,30,0,0,155,155,155,155,162ŠϠҠŠG66-?:<AP<@<AR<<AV<Av,G6-?Q}:<@,A*@8@,--@=*@8,A $ŠΠȠԠŠg*@Q}AT)*@AT?*@8@,S-@c*@8,g J96-?:<AP<@<ARQ} #AP!-@@%%"167,.>:,5 >-C:,L--@R}A8")A5%- V* 216 BYTESt+-@@6"'67,.>:,+ ~+-@AV"'67,R}.>:,+ 4-@@w"'67,.>:,+ 46-C:,4-@@H"'67,.>:,+ 46-C:,4-@R}@7"'67,.>:,+ 46-C:,:-@A "'67,.>:,+ 46-C:,:6.#@@R}K:C@@E:]0@@@w0@@0@@d-6R}-F:@,%AV$F:@,%A d6-?:<%@<<%@<<%@5<<A`<,$HH104,74,170,160,0,104R},133,255,104,133,254,104,240,4,200,145,254,136 104,145,254,202,208,237,96* 25 BYTESCC132,213,132,207,177,203,8R},32,110,6,40,24,42,38,207,74,133,212FF208,14,177,203,133,213,32,110,6,177,203,133,212,32,110,6,165,207BB240,34,177,20R}3,32,110,6,145,205,166,214,224,2,208,6,32,215,6 EE76,60,6,32,117,6,198,212,208,230,165,213,240,188,198,213,16,222EE177R },203,133,209,32,110,6,165,209,145,205,166,214,224,2,208,6,32DD215,6,76,98,6,32,117,6,198,212,208,233,165,213,240,150,198,R }213(EE16,225,230,203,208,2,230,204,96,24,165,205,105,80,133,205,144,22JJ230,206,165,205,197,217,208,42,165,206,197,218,R }208,36,165,208,208,33<HH230,208,24,165,215,105,40,133,205,165,216,105,0,133,206,24,165,217FGG105,40,133,217,144,2,230,2R }18,230,215,208,2,230,216,96,198,208,165PII215,133,205,133,217,165,216,133,206,24,105,30,133,218,24,165,88,105ZHH40,170,R }165,89,105,0,228,205,208,224,197,206,208,220,104,104,96,230dGG205,208,2,230,206,165,88,197,205,208,205,165,89,24,105,30,19R}7,206n208,196,240,230x* 238 BYTESLL104,104,133,204,104,133,203,104,168,104,133,214,165,88,133,205,133,215"EER}133,217,165,89,133,206,133,216,24,105,30,133,218,132,208,76,0,6,* 36 BYTES|==112,112,112,78,0,80,14,14,14,14,14,14,14R},14,14,14,14,14;;14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14;;14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,R}14,14,14;;14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14;;14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,1R}4;;14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,78::0,96,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14;;1R}4,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14;;14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14;;14,14,14R},14,14,14,14,14,14,14,14,14,14,14,14,14,14,14;;14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14;;14,65,0,6,104,1R}70,104,141,1,2,232,208,3,238,1,2,142,0>>2,104,170,104,64,169,0,141,0,2,169,0,141,1,2,169,192,1410014,212,76,95,228,0,R}0,0,0,0,0,0,0,0,0,0,0,0 0,0,0,0* 256 BYTES@@104,173,48,2,24,105,3,133,203,173,49,2,105,0,133,204,160,0GG17R}7,203,201,79,208,21,169,78,145,203,165,203,24,105,2,133,203,165DD204,105,0,133,204,169,0,240,15,201,15,208,6,169,14,145,2R}03,208BB5,201,65,208,1,96,165,203,24,105,1,133,203,165,204,105,0,133204,169,0,240,197* 77 BYTES8KK104,104,R}133,204,104,133,203,104,168,133,253,104,133,205,6,253,177,203B@@10,102,253,74,201,32,176,5,24,105,64,144,7,201,96,176,3,56R}L11233,32,5,253,145,203,200,196,205,208,223,96V* 48 BYTESX22112,112,80,66,0,0,32,2,0,2,16,66,0,0,2,2,2,2b**2,2,R}2,2,2,2,2,2,2,2,2,2,2,2,2,2,65,0l0v* 37 BYTES@MM128,128,176,169,163,180,181,178,165,128,163,175,174,182,165,178,R}180,165JMM178,128,226,249,128,163,232,225,242,236,229,243,128,170,239,232,238,243T==239,238,128,128,128,166,242,239,237R},154,0,0,0,0,0,0,0,0^++0,0,0,0,0,0,0,0,0,124,0,0,0,0,0,0,0,0h550,0,0,0,0,0,0,0,128,128,128,180,239,154,0,0,0,0r++0,0R},0,0,0,0,0,0,0,0,0,0,0,124,0,0,0,0|0,0,0,0,0,0,0,0,0,0,0,0* 120 BYTESD:PICCNVRT.BASp@APgab  MESSAGEVBORDLISTDLISDLENPGDLBESPEECSCROLINITVHIGLOMEANTIOFFSECHASCROLLBYTE=A6V }nB"B"B"@AYAW A` @Q @ @H AY@@V!}@$@b@A`B# ************************** * Scroll-it! * * By MaV"}rk Sloatman *( * For ANALOG Computing *2 **************************<F;A,P%6-A6;AV#},%6-C:,ZZZCorrects address of beginning of Display List if it is going to cross a 1k boundary.d*6-%@U*6V$}-P:'A$,$A$n) 6-& @U)6-%+@U&,x66delete line 110 if you want the VBI in a string. DIMV%} VB$(71):VBORG=ADR(VB$)'6-AY6-AW'6-A`AUdon't scroll!9 +@AR@V&}90@Q0@@70@@@Q0@@@]-@@V'},(@ SCROLLIT!>-@@](@by mark sloatman p-@@&(@8-@@V(}V(@analog computingY(p( Just a moment...+ A0+put VB routine into memory.@ #A !-AV)}`Ai%"+/ @INITVB routine%%104,162,6,160,0,169,7,76,92,228$6-P:'AV,$6-&$AVDAV*}bAdDTell INITVB where VBROUTINE is located7-%@6"! 7SET UP DISPLAY LIST^^112,1V+}12,112,66,0,0,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,82,0,0,112,112,112,65,0,6P6-F:A,&@&A46V,}-%@>+PMemory for msg.l0@lchange this line if you want to use Inverse Upper case V-}in Gr. modes 1 and 2."0@@70@@@Q0@@@You may, of course, V.}use any color you wish.,44Tell Display List where memory is for display.6?%@0(%@F:@,?%@V/}F:@,@AAR@'-@@!A(Another sec please...JO'-+,$AV+%@,$AV3V0}7 OClear message memory.TAR^(>:A%, APh33Don't want old message on scV1}reen!rP(+( Please select the Graphics modeP( desired for the scrolling line.|8(( Text modes 0,1 or 28( ANTV2}IC mode 4 or 5 AUStop msg.%%"@)!@AP'"6-@'6-@H'V3}"@6-@'6-@$'"@6-@'6-@$+!@* @6-+6-@HZ!%@V4}(%@d%@26-P:'AV,B6-&$AVNA`ZAa A`*(&( Speed (0-fastest,3-sV5}low) *&("( Please input message &*-@B:,*6-F:C:,%&@,88these lines convert ATASCII tV6}o ATARI INTERNAL CODE55@*A')A$*AUA`'@16-%@d' A`'@V7}6-&@2' A`'AY6-%@d' A`&A#6-&@20+,$AV%%: V8}D55POKE VBORG+37 with 7 for GRAPHICS modes 1 and 2N7"@)"@-%@7@7 A0XddPOKE VBORG+V9}37 with 3 for GRAPHICS mode 0 and ANTIC modes 3,4 and 5 (also map modes 7,7+ AND 8)b%@7@l``VBORG+37 contV:}ains the number of times a finescroll needs to be done before a coursescroll.v 6-?:,Start the VB!"(>:A%,(V;}"( All done.KAR@9( hit RETURN for another messageKAdAU99if message scrolls off screen V<}then scroll it again.F:,!B:,%K36-%+R:,"@,&+R:,"@,? K6-V=}!@6-@@ F:Ad,"AU2-@@P6 @ ApAdAU A0V>}%%*VERTICAL BLANK SCROLL ROUTINE*+ #Ap-%@p!"'+ ppNeed to tell VB routine where pointer is iV?}n Display List for memory shown.(So we can do the course scroll)N6-%@)"6-P:'AV,26-&$AV@%@`V@}N%@a$ll216,173,3,1,201,255,240,60,173,2,1,208,52,173,3,1,141,2,1,206,0,1,173,0,1,48,9,141,4,212,141,0,1VA},76,98 ``228,169,3,141,4,212,141,0,1,238,1,1,173,1,1,201,216,208,5,169,0,141,1,1,141,29,6,76,98,228206,2,1,76,98,228VB}D:SCROLLIT.BAS Q.~w m` @ H T 'L pppppG! ppppppppppppp0A +r:y+a%r)l!rZD}pppF0(0A ةH(xh0 1(©0 ZE}% es& \ Hh)4) ҩyҩ     Тa! L!    ZF}Ʃ(ȩŅǢőLj'e'(̍*0 1g%ԩ(Щ>/(ԩoЎ ZG},+ %''0 $ $ u$ " $ i$ " R&  $ LG"L"" .' ҩ" %ZH} %% % % %ЍL""\'0 %  ,&  ,&í) )L  u$ L"    %L!ZI} L# #Т=# n#L#L#=##  J#L#L#ҩiЕ8ZJ}A n#`5 #I182 #` `#I1 #M` # $ZK}ȑ ҩ `` 0 i ة     Y$ҩȍҩP % %% $ % %`ZL}  `ñªàª`80JJ80)J .mi(e0e`ZM}}آ %  %`) 0JJJJ 0`-& ' ZN}c%`HHHĽ%% ԍЌ hhh@V~F*f<zF<+ `dЅZO} '`ˆ0` #& #&i¥iàˆ(©0` B& 8&`ˆ`  ##ZP}  0`خ @'Ү P'ҭ JҮҭLbZQ} L&xJJJJ2 А2Z 'ML&>>>>>J"HDEHȴdKAZR}2-(xdZPKF2(  3VZV3 333VZV300scorelvl% !!?Xt78V l BFNABFF1LINRETRBACKSCHKSUEDILBYTDMOD@^T}  GG9@,;@,^U};@,;@,;@,;@, ;@,?6-A6-AU'6-A&36-?6-I^V} AP-@@8(tart or ontinue? B AI(>:,(?-@@#(FILENAME'9AR@^W}?( 25B:, @$-@ @+( 5 @@<?7@<@,0D:&6.D:567@,.? @F^X} 6.P>:,4SA Z4 A0*@@4 Ad@-@@$)@( 66^Y}-%@@ An5@+@@ 5 Apxr A`*@@4 A@^Z}F-@@`(FILE ALREADY EXISTS!!rARH-@@%( ERASE IT? / AAAR@^[}H(>:,,>:,4N)>:,4n"@, @0>:,0Y*>:,0yA0+@+@@^\}? AP-@@3( נΠ: ?6-6-@#-@@W-@$+ @,%@^]}$+!@ ,%@iAR|(BYTE #:  A$*"6-8,$ A 6-A:,^^} 6. -@"%@ ( 0 68,-6-%$"!A06-&B) 6-%!A)6-&B^_}O-@%@)AR9( CHECKSUM: E6-@O A*"Ap 6-A:,!-^`}@"%@!( "A"/ A@6-@%6-/ A,O-@@'*@^a}8,+ 96-%@E6-O Ap66-@- A-"@:Q,*"@*(A J++**+ @H^b})!@W,A K"*46.O%%"*"*!@APT&&++"*(,)",*"A ^$ "^c}AR@!( $$hAr2!@(6.7@<&@,2 A| 6.# (>:,6-&@^d}# A '6-%@!6-' AP!67,.>:,(>:,! A  +^ A@-@^e}@1( NO SUCH FILE!E-@AI T@^ @0tA@H72A@@^f}K-@@PO q2t$U +@#@A1B7tACAY^g}UA@U-6-F:A`,%AV$F:Aa,%@A&@@pU%@@_-@^h}@9@-%@1 M-@@@@[%_ W%@A@e.%@BF:A`,^i}E%@CF:Aa,W@?-@*(analog ml editor<AY@4?$>#@@^j}K:0)@;@>$D:MLEDITOR.BAS@@HL\?G'c5 (c)1983 Action Computer Services  B JKIHiDiELV`L'bl} ' BLV`L''l L' &` Fj`8冨凪` (EӅӥbm} (`ʆǪƩ Ɛee` #(ƦʆǢ &Ɛeǐ G( G(L( #('&&&8儨児bn}祂*L(&&*ń8&&L( (`hihiHHȱȱL'c !#3`bo}L'JJJJ`H 'h`Hȩh 'L4) 'L4) h'L4) p'L4) v'H8bp}`HhHh )L4) BHI V䅠L4) L) 'L4)Ԇ ؠPIPP`bq} *P p'L4) 0*L) *L5* I*L*H- )8塪墨hLI* b*L) i*L* *ȹP`br}텠8堨塪 *芨Oȩ-`PP )P棩 Ѥģ0-ģ6000:,80H bs}& &ehe&eģ0ʥ 8堅塅`$ )&*i0:0i )Ʀ`¢ 护bt}°ڱ%ȱ%E )L+担CS )L+I b*L+H ]+L+ 0*L+ &B V 4)NLMȑbu}` MLN%B VL4)S:E,E:J,H ) M,N, X) )h)0IH,I,LX)[\ZUVT` ,H,I,bv}` ,L* },L) ,L)) ` ,L* i(` 0d 'ҥ `2)2bw}ҩ`p`0)9D-`@0)ӈJJJJ)`Ѕ`ȱ`` x-ȥ`Hhbx}ƣĢ`ƥĤ`Ѣ .`ȱѢĦ`膡`by}`ťƤe8夰L. Ƥ8`ŦeѠe桊L.L9dbz}5L.........͝...L/. m..*(m.. m..*(m.ȑ.b{}Щ.L.. O,Ȍ , i(i.L/@ , , ,@ ,@ ,`L/ b|}.L/ ""/ ) )L/ Draw with KoalaPad.../ ) )L0%LEFT __\ Ҡ /__ RIGHT/ b}})L50%button / \ button0 ) )Lc0 ANY KEY: Ӡ0B )L0 or b~}Ţ0m ) ) ) )L0$------------------------------------0 )IL)1L0 Hit any button to start:0 ) 1-b} 1-I a-L0`L-1 / )#.. (..Lh1Persistence is now 1T ).. A* )L1Entb}er new persistence (1-10): 1~ ).. 0*L11 ).I  .IL1L11 ) *..`L1 (1811b}11811111i@1i1 ,ILA2LF21i@1i1 ,.IL31i@1i1b} ,1i@1i1 ,1i@1i1 ,1i@1i1 ,1i@1i1 ,1i@1i1b} ,1i@1i1 ,M.L53)IL&3`L93 *-_ i(r (8..b} *-_ i(r (8.. 1-L3 ..IL3.L3. 1-L3 1-L3b} .. m..*(m.. m..*(m.ȱ 1. m..*(m.... m..b}*(m..ȑ.. m..*(m.ȱ. m..*(m.ȱ 1...͟...L4..b}IL93`L4 /ILS5 *1 ͟..L%5. .L:5..L:5 O,`#.. i(.. . 63L4`4`}H'6 (c)1983 Action Computer Services  B JKIHiDiELV`L'f} ' BLV`uL''l L' &` Fj`8冨凪` (EӅӥf} (`ʆǪƩ Ɛee` $(ƦʆǢ &Ɛeǐ H( H(L( $('&&&8儨児f}祂*L(&&*ń8&&L( (`hihiHHȱȱL'c !#3`f}L'JJJJ`H 'h`Hȩh 'L5) 'L5) i'L5) q'L5) w'H8f}`HhHh )L5) BHI V䅠L5) L) 'L5)Ԇ ؠPIPP`f} *P q'L5) 1*L) *L6* J*L*H- *8塪墨hLJ* c*L) j*L* *ȹP`f}텠8堨塪 *芨Oȩ-`PP )P棩 Ѥģ0-ģ6000:,80H f}& &ehe&eģ0ʥ 8堅塅`$ )&*i0:0i )Ʀ`¢ 护f}°ڱ%ȱ%E )L+担CS )L+I c*L+H ^+L+ 1*L+ &B V 5)NLMȑf}` MLN%B VL5)S:F,E:K,H ) N,O, Y) )h)0II,J,LY)[\ZUVT` ,I,J,f}` ,L * ~,L) ,L)) ` ,L * j(` 0d 'ҥ `2)2f}ҩ`p`0)9E-`@0)ӈJJJJ)`Ѕ`ȱ`` y-ȥ`Hhf}ƣĢ`ƥĤ`Ѣ .`ȱѢĦ`膡`f}`ťƤe8夰L. Ƥ8`ŦeѠe桊L.9f}6=PriC(xL.........͞...L/nt. m..*(m.. m..*(m.ȑ.f}Щ.L.. P,Ȍ , j(i.L/@ , , ,@ ,@ ,`L/ f}.L/ ""/ ) )L/ Draw with joystick.../ ) )L0 button: Ҡ and Ţ/ )L'0 f} 0 ) )LU0 ANY KEY: Ӡ04 )L0 or Ţ0_ ) f}) ) )L0$------------------------------------0 )IL1L0 Hit any button to start:0 ) 2- 2-f}I b-L0`L1 / )#.. (..LZ1Persistence is now 1F ).. B* )L1Enter new persistef}nce (1-10): 1p ).. 1*L11 ).I  .IL1L11 ) *..`11 L1 (18111181f}1111i@1i1 ,IL32L821i@1i1 ,.IL 31i@1i1 ,1i@f}1i1 ,1i@1i1 ,1i@1i1 ,1i@1i1 ,1i@1i1 ,1i@f}1i1 ,M.L'3)IL3`ENL13._.._. I--3,3,3)-3) (,3)f}-3) (8媍(3嫍)3,3)-3),3)-3) (8媍*3嫍+3)3(3 j(f}.e..e.+3*3 j(.e..e...͘..LN4._...͚..Ls4._f}. b-L4 ..IL4.L4. b-L4. m..*(m.. m..*(m.ȱ f}1. m..*(m.... m..*(m..ȑ.. m..*(m.ȱ. m..*(m.ȱf} 1...͜...L5..ILC3`L5 /IL6 1 ͠..L5. .L5..L5 P,f}`#.. j(.. . .3L5`5@0Ad110 REM ********************** 20 REM ** SHOWPIC DEMO ** 30 REM ** -- ** 40 REM ** By Mathew Spolin ** 5j}0 REM ********************** 60 REM 70 REM This is the demo driver. 80 REM The actual program starts at line 6400. 90 REj}M 100 FULLW 2:CLEARW 2 110 COLOR 2:?"VALID EXTENDERS:":COLOR 3:?" .NEO - Neochrome Image" 120 ?" .PI? - Degas Image":Cj}OLOR 1 130 ?:INPUT" File to load --> ",FILE$:IF FILE$="QUIT" THEN END 140 GOSUB SHOWPIC:GOTO 100 59997 ' 59998 ' The SHOWj}PIC Subroutine Follows. 59999 ' 64000 SHOWPIC: 64010 COLOR$=SPACE$(32):ERASE PAL%:DIM PAL%(15):IGNORE=0:A#=GB 64020 SCREEj}NREG#=&H44E:SCREENRAM#=PEEK(SCREENREG#):PALREG#=&H45A 64030 GINTIN=PEEK(A#+8):SAVEP=16745024:COUNT=0:FOR REGISTER=0 TO 15 6j}4040 PAL%(REGISTER)=PEEK(SAVEP+COUNT):COUNT=COUNT+2:NEXT REGISTER 64050 IF RIGHT$(FILE$,3)="NEO" THEN IGNORE=128:FORGET=4 6j}4060 IF LEFT$(RIGHT$(FILE$,3),2)="PI" THEN IGNORE=34:FORGET=2 64070 IF IGNORE=0 THEN RETURN 64080 POKE CONTRL,123:POKE CONTj}RL+2,0:POKE CONTRL+6,0:VDISYS(0) 64090 CLOSE #1:OPEN "I",#1,FILE$:A$=INPUT$(FORGET,1) 64100 COLOR$=INPUT$(32,1):CLOSE #1:NEj}WC#=VARPTR(COLOR$) 64110 POKE PALREG#,NEWC#:GOSUB 64180 64120 BLOAD FILE$,SCREENRAM#-IGNORE 64130 POKE GINTIN,1:POKE GINTIj}N+2,1:POKE GINTIN+4,1:GEMSYS(21) 64140 POKE PALREG#,VARPTR(PAL%(0)) 64150 GOSUB 64180:POKE CONTRL,122:POKE CONTRL+2,0:POKE j}CONTRL+6,1 64160 POKE INTIN,0:VDISYS(0) 64170 RETURN 64180 POKE CONTRL,3:POKE CONTRL+2,0:POKE CONTRL+6,0:VDISYS(0):RETURN j} @@  $$h2 DIM PKR$(216):REM * Hot Poker Sub *3 PKR$(1,72)="hhhhhhhͥ˥̩͠˅Ϡ eυː۠"n}4 PKR$(73,144)=",EAȱ, Ј80 idЄЈ80 i "5 PKR$(145,216)="ЄЈ80qn}͑Ωͤб ˅eυː`"6 FOR L=1 TO 3:READ P:READ D:PKR$(P,P)=CHR$(D):NEXT L7 DATA 80,155,n}91,155,181,1558 REM MAKE =1ST DATA LINE TO MOVE, =NBR OF DATA STATEMENTS, =DESTINATION9 REM INCLUDE: U=USR(ADR(n}PKR$),LNBR,NBRL,DEST)@ @ &&&&l+ +** *+* *+* *+* *+*+* *+* *+* ** + + + + + + ** * * * *+* * * * * *+* * * **+ + + + + + +****}******************************************************** * + + * + + * + ** * * + * * * + * * * + * * **+BC* * * }*+*+** **+*+* * * *+** + +* + * + + * + *+ + ** ***** ***** * ***** ***** ** + + +*+ + +*+ + + ******** * * * * *} * * ******** + + * + * + + **+*** ******* * ******* ***+** * + + +* + *+ + + * **+*+*+* *+* + * + *+* CD}*+*+*+** * * * * ********* * * * * **+*+* *+* + + + + *+* *+*+** * * * ** * *** * ** * * * **+ +*+ +* + *+ +*+ +** }*** * ** * *** * ** * *** **+ * * * +*+ + +*+ * * * +** *+* *+* ** *** ** *+* *+* **+* *+ *+* + * + *+* +* *+** * ***** *} *DE+*+* * ***** * ** + + + + * + * + + + + ************************************************************ + + + }+ + + + ** ***** * * * * * * * ***** ** + + *+*+*+*+*+* *+* * + + **+* * + * * + + + * *+ * *+** *+* ***+* ***** *+*** *}+* **+ EF* + *+ + +* + * +** ***+*+*****+*+*****+*+*** ** + * + +*+ +*+ + * + **+***** ** * *** * ** *****+**} + + *+ + +* + + ********* * ******* * ********* + + * + + + + * + + ** ****** * * * * * * ****** **+* *+*} * *+* * *+* FG *+** +**+ *+ +* +**+ ** *** ***+* *** *+*** *** ** +* **+ + + + +** *+ **+* *+ * *** }*** * +* *+** * + * **+* + + *+** * + * ** *****+* +***+ *+***** **+ +** + **+ +*************************}*****GH@B@6E} S PEARSON & P KOHUT 00000} TIME 00 LEVEL 000 LIVES 4 (C) 1985 ANALOG }5@% @+,%-@@% @-.&-@@& @/01&-@@8I͠ΠBy : C.F.Fogarty IIIr}For: ANALOG Magazine.nn128,6,230,6,104,165,10,141,213,6,165,11,141,214,6,165,12,141,158,6,165,13,141,159,6,169,149,r}133,12,169,6mm133,13,32,64,21,169,202,133,10,169,6,133,11,162,0,169,8,141,66,3,169,217,141,68,3,169,6,141,69,3,169,14gr}g141,72,3,142,73,3,32,86,228,169,13,141,74,3,96,173,158,6,133,12,173,159,6,133,13,76,159,23,104,6400125,29,29,29,71,79,8r}4,79,32,49,48,28,28,287 ")-%AV$%AV$-"37  6-?:%AV$, <AB@'Ar}fA9Ag@< (}@)( ( ()(͠ and (((Are now Disar}bled.2.( ( (.(Press /CTRL/D for DOS.<##@@K:F)@(>:,P0"F:B2yr},"@*"@-@0.Z @pd66You only need lines 4-10 in your own program(s). D:RERUN.BASpx