@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 D8uBASIC SEARCHER (Filename BASICSCH.LST)by SCOTT SHECK, ANTIC Mag., Jan.1985FUNCTION: BASIC Searcher finds thelines contT}aining any command, operator,function or variable in your BASICprogram. It will run on all Ataricomputers of any memory siU}ze.USING: 1. Load your program into memory. 2. Type "ENTER D:BASICSCH.LST" & RET. 3. Type "GOTO 31900" & press RETURNV}.After a brief pause, a list of yourprogram's variables will appear on yourscreen. Each variable in the list willbe accomW}panied by a reference number. 4. To locate a particular variable inyour program, type in its correspondingreference numbeX}r and press RETURN. 5. BASIC Searcher can also find basicreserved words, constants and characterstrings. Just type in a rY}eferencenumber from the accompanying Table. REFERENCE NUMBER TABLE 0 REM 10 GOTO 1 DATA 11 GO TO 2 INPUTZ} 12 GOSUB 3 COLOR 13 TRAP 4 LIST 14 all constants or BYE 5 ENTER 15 all strings or CONT 6 LET 16 COM [}7 IF 17 CLOSE 8 FOR 18 CLR or , 9 NEXT 19 DEG or $20 DIM or : 30 ON or <>21 END or ; \} 31 POKE or >=22 NEW 32 PRINT or <23 OPEN 33 RAD or >24 LOAD 34 READ or =2]}5 SAVE or TO 35 RESTORE or26 STATUS or STEP 36 RETURN or *27 NOTE or THEN 37 RUN or +28 POINT or # ^} 38 STOP or -29 XIO or <=[arith.] 39 POP or /40 ? or NOT 50 SOUND or <41 GET or OR 51 LPRINT_} or >42 PUT or AND 52 CSAVE or =43 GRAPHICS or ( 53 CLOAD or +[unary]44 PLOT or ) 54 Implied LET or -45 `}POS.or = [arith.] 55 ERROR[syntax] or ( [string]46 DOS or = [string] 56 ( [arrays]47 DRAWTO oa}r<=[string] 57 DIM [arrays]48 SETCOLOR or <> 58 ( [functions]49 LOCATE or >= 59 ([DIM string]60 ,[array] 70 Pb}EEK 80 INT61 STR$ 71 SIN 81 PADDLE62 CHR$ 72 RND 82 STICK63 USR 73 FRE 83 PTRIG64 ASC 74c} EXP 84 STRIG65 VAL 75 LOG66 LEN 76 CLOG67 ADR 77 SQR68 ATN 78 SGN69 COS 79 ABSSC 74s31900 REM SEARCH UTILITY31901 REM BY SCOTT SHECK31902 REM ANTIC MAGAZINE31903 GOSUB 31907:POKE 4,1:POKE 2,PEEK(136):POKE 3 e},PEEK(137)31904 ZZ=USR(1536):IF PEEK(4)=0 THEN 3192531905 A=PEEK(0)+PEEK(1)*256:IF X=10 THEN LIST "P",A:GOTO 3190431906 LI f}ST A:GOTO 3190431907 RESTORE 31908:GRAPHICS 0:IF PEEK(1537)<>216 THEN FOR X=1536 TO 1638:READ A:POKE X,A:NEXT X31908 DATA 1 g}04,216,160,0,177,2,133,0,200,177,2,133,1,201,124,208,11,165,0,201,156,208,5,160,031909 DATA 132,4,96,200,177,2,133,204,200,2 h}00,177,2,197,203,208,4,32,91,6,96,201,0,240,35,201,131910 DATA 240,31,201,14,208,4,169,7,208,7,201,15,208,11,200,177,2,132,2 i}06,24,101,206,168,177,2,201,2031911 DATA 240,209,201,22,208,206,32,91,6,76,2,6,031912 DATA 165,2,24,101,204,133,2,144,2,230 j},3,9631913 ? :? ,"SEARCH UTILITY":POKE 82,0:COUNT=128:ZZ=PEEK(130)+PEEK(131)*256:? :? COUNT;" ";31914 A=PEEK(ZZ):? CHR$(A-1 k}28*(A>=128));:IF A<128 THEN 3191931915 COUNT=COUNT+1:IF PEEK(ZZ+1)=90 AND PEEK(ZZ+2)=218 THEN 3192031916 IF COUNT=148 THEN l}POKE 82,14:POSITION 14,231917 IF COUNT=168 THEN POKE 82,28:POSITION 28,231918 ? :? COUNT;" ";31919 ZZ=ZZ+1:GOTO 319143192 m}0 POKE 82,2:POSITION 2,23:? :? "NUMBER";:INPUT A:POKE 203,A:? "CREEN OR RINTER";31921 X=PEEK(764):IF X<>10 AND X<>62 THEN n}3192131922 ? "}":RETURN 31923 ? "}":? :FOR ZZ=31900 TO 31914:? ZZ:NEXT ZZ:? "CLR:POKE 842,12:CONT";:POSITION 2,0:POKE 842,1 o}3:STOP 31924 ? "}":? :FOR ZZ=31915 TO 31928:? ZZ:NEXT ZZ:? "CLR:POKE 842,12:?CHR$(125)";:POSITION 2,0:POKE 842,13:END 31925 p} ? :? "END OF SEARCH":? :? " AGAIN (Y/N) ?";:POKE 764,25531926 IF PEEK(764)=43 THEN POKE 764,255:GOTO 3190031927 IF PEEK(76 q}4)=35 THEN POKE 764,255:GOTO 3192331928 GOTO 319264,25531926 IF PEEK(764)=43 THEN POKE 764,255:GOTO 3190031927 IF PEEK(76 4n_qOIFSERBOOL ds}&&DEMO PROG FOR BOOLEAN SUBROUTINEn A  SETUP SUBROUTINEx11;@,;A(,;@d,;@d,# (t}}ϠΠ#(//6.%HERE'S HOW TO USE BOOL TO SHIFT CASE:+ 6. 67@c,. +67@,.-(u})6-?:C:,<@:O,(H A`C27@,0Ay}*7@,0O*7@,0E9(C A`Q()(USE ONLY 0 OR 1 IN BIT STRINGSQ(#BIT STRINGS MUST BE THE SAME LENz}GTH"5(!(TYPE FIRST BIT STRING:%/ A@56.,J(TYPE SECOND BIT STRING:#- A@9B:,B:,@(J A{}`6B#6-?:C:,<@:,:~},% ($ 6-@ -@B:,S6-@:7,,6-A(+-%@867<,.0>F6-&S67<,.1} "B:,''$'6-'@ #6-%@' Πàś;A,[[6.Qh  h}ԩh0hh8ְװԅ`A O E !ذI)67@,.ذA؁8I67@!<}@!,.>:@4,$ D:BOOL.ԅ`A O E !ذI)67@,.ذA؁8I67@!<,BOOLBOOL is a BASIC subroutine to perform boolean logic on two strings. Itsupports "AND", "OR" and "EXCLUSIVE OR".IMPO}RTANT NOTES 1. BOOL is fully self-relocatable, so it may be moved anywhere in memory. 2. The result is stored back i}nto the first string.CALLINGRETURNCODE=USR(BOOL, OPCODE, S1ADR, S2ADR, SLEN) BOOL: The address of the BOOL subrout}ine [usually ADR(BOOLSTRING$)]. OPCODE: Decimal value of the operation code, like ASC("A") ["A" = AND; "O" =OR; "E" = EX}CLUSIVE OR]. S1ADR: Address of the first (and the result) string [usuallyADR(DATASTRING1$)]. S2ADR: Address of the} second string [usually ADR(DATASTRING2$)]. SLEN: Length of the strings [usually LEN(DATASTRING1$) orLEN(DATASTRING2$)}].RETURN CODES 0 Normal completion 1 Error: wrong number of arguments. 2 Error: invalid operation code.DEMON}STRATIONBOOL.DEM is a simple tokenized BASIC (binary) program which will demonstratethe BOOL subroutine. First it shows ho}w to use BOOL to shift upper case to lowercase. Then it shows how to use BOOL to swap two strings WITHOUT using a thirdstri}ng. Finally it allows you to test the boolean logic by typing in bit stringsof 0's and 1's.USETo use the subroutine, jus}t transfer the statements 900-904 to your ownprogram (you could do a LIST "D:TEMP",900,904 from the demo followed by an ENTE}R"D:TEMP" into your own program); of course, you can renumber the statements asnecessary. Remember to call the subroutine o}nce at the beginning of your programto set it up.-John Navas [72645,1070]asnecessary. Remember to call the subroutine oNd+++ BURP +++nBASIC UNUSEABLE-DISKxRECLAIMER PROGRAM..@}@ D:AUTORUN.SYS AP"*@ A@@255,255,140,7,141,7,169,}076,13,78,13,76,82,13,14213,144,13,32,0,6,165,13169,13,208,248,32,101,6,06,144,6,169,0,141,148,6 }141,147,6,172,147,6,177,71""141,145,6,200,177,71,141,146!!6,200,201,255,208,8,205,1456,208,3,76,149,16,140,147}"6,169,0,160,3,78,146,6,""110,145,6,106,136,208,246,42642,42,42,168,169,0,56,106@""136,16,252,170,173,145,6,1}05J 10,168,138,49,69,208,5,104T!!104,76,181,18,138,81,69,145^69,160,3,177,69,56,233,1h145,69,238,148,6,76,8,}6r!!172,148,6,240,21,162,10,189|134,6,9,128,157,6,20,202 16,245,169,96,141,1,20,1402,20,32,113,16,76,25,18}96,66,97,100,32,83,101,99!!116,111,114,115,224,2,225,2 133,6D:BURP20,1402,20,32,113,16,76,25,18Z9mSHLERBYTHEXd44DEMO PROG FOR ATASCII-HEX CONVERTER SUBROUTINEn} A  SETUP SUBROUTINEx&&;@,;@,;@,)&(}ϠɠϠؠ)(/(+( TYPE A} STRING OF UP TO 16 CHARS:/ 6.6.-!6-?:C:,<&$}H))ŠŠϠˠҮR,BY ED SCHULTZE JR.\**, , PUT THE CASSETTE IN THE RECORDERf++AND POSITION$} THE TAPE AS YOU NORMALLYp((WOULD TO BOOT THE CASSETTE. PRESSz&&THE PLAY BUTTON ON THE RECORDER.)),NEXT INSERT A D$}ISK INTO DISK DRIVE**ONE. THE PROGRAM WILL AUTOMATICALLY((FORMAT THE DISK--SO AN UNFORMATTEDDISK MAY BE USED.$}**,PRESS 'OPTION' IF YOU WISH TO ABORTTHE PROGRAM.==169,33,141,2,3,169,1,141,1,3,104,104,141,254,6,133,1405??$}5,104,141,253,6,133,4,32,83,228,48,16,169,128,133,62,1545@@169,1,133,75,32,125,228,32,157,243,16,6,32,129,243,76,1697$};;177,6,162,3,189,0,4,157,64,2,202,16,247,173,65,2,1469>>141,255,6,160,127,185,0,4,145,4,136,16,248,24,165,4,1620<<1$}05,128,133,4,165,5,105,0,133,5,206,65,2,240,8,32,1336??157,243,16,223,76,44,6,169,60,141,2,211,169,0,141,11,1669993,1$}69,1,141,10,3,141,1,3,173,253,6,141,4,3,173,1225;;254,6,141,5,3,169,87,141,2,3,32,83,228,206,255,6,1621::238,10,3,24,$}173,4,3,105,128,141,4,3,173,5,3,105,1122$990,141,5,3,32,83,228,16,3,76,44,6,206,255,6,208,1312.,,223,96,0,0,0,0,0,0,0,0$},0,0,0,0,0,0,319EXIT ROUTINE.D2:CASTODSK.BAS,$A(%A(,,223,96,0,0,0,0,0,0,0,0$c!!ROWCRCOLCRCRSINDSPFLOPBUFDEVNULTSLOWEOLAUXTLPSTFIREEOHISTDIOPOXFIXCOXRESEACRLOR(}TOUCOINDXBTHCOIN@@ARAfAA  &A ' 9(} @2A)@8@@@@@W66@@8@(} AEP!@"#@$% ff&@'@; + A;(}(}Š (C)1981 JOHN NAVAS II36-@6-@'6-AR36-Afss;@,;A(,9@,;A((},;AV,9@,;@,9@,;A(,;AX,Y A A! A 967@,.>:(},J67A',. Y67@,.x6-@H+-@A!@767,.>:,R67%@,. ----+----`6-%@(}l!@Wx6-@H8 6.>:AU,86-F:@,&F:@,%@ԠРś(((Π(}( AP1-@@! A@% 16-$E6-@ A %@16-@; A0(}E A`./-@@! AE% / A@ ԛ7<,0DA! 8,!6-@$@ 6(}.,6-?:C:,<8,<@76-A(&B:,767B:,%@,.7@<,C#6-@6-#6-%@E (} A5H(}P-@@ $( POSITION 0'(P($PRESS TO WRITE, TO ENDMu@8(# ( EDIT OPTIONS: (} )DV-@@](i6-@u6-RT A!) B'6-F:,06-F:,<"A(}UJ6-%@T A!T"A%6. A!U!! @()!@1A!PV@(A!7W)"(}@6-@ )6-%A(XE6-&@ )6-@76-&@E6-&@2Y@)A!@(}Z)"@6-@)6-&A([E6-%@!@)6-76-%@E6-%@2\C"@0(}6-&@)"@56-@8C6-%@2]C"@16-%@)"@756-@C6-&@2^W(}@!-@$@ 3(&@ ?E-M(>:,W A!0f(A!ph@/ @H)+!@W* (}@e,)!@p6(@ A!0jG@(>:%A(,-6-&@H9!@ G6-&@lJ6-@:7,,(}"@@6-&P:'@,$@%$@J A!`n6-P:'@,$@%p)67<,.>:,"AU)6-@2(}q7@!A%--@@7 A8rA -&(>:,+"@76-@)A A!8t)(}"@6-@)6-&@vS"@76-%@+6-%@27!@E6-&@S6-&A(x(}6-@1 A!AzP@#-@@46-P:'@,@"@P6-&$@|+6-%Av!A(}+6-%@~! -%(>:, ! A!`6-@-@9@#$"!@)6-@"$(}@ 6.-@A(' A#.)<67<,.>:,@  6-%@ A# $ 7' 6-!F:A,(}A6-6-Ap7 A` "@$ 1('(ǺԠȠ1 A# ԛ 7<,0D(}A1 :&6-?:C:,<8,<@+(#9'}堨ν/>4AP>''? :? "Output filename";:INPUT FN$FTT7@<@,4D*+7@<@,49(}:)7@<@,4:,@P267@<@,.D:,67@,.26.Z0(,( Configure for ASIC or ssembl9)}er0\! 4B6-! @^! 4A6-@! @` ( @c A`Bd%%(9*}}Working...please stand byn## "6-;,#6-@x 6.".-@B:,@.ARAU9+}M6-&@#-@@M((Countdown...T-P:'@,) =!67<,.>:A:7<%@,,,/6-%@9,}3 = A ^"@(67A)<A),.#A67AB<AB,. ^67A2p<A2t,.65535SF:A,"9-}@(8(TOO MANY DATA LINES!!!P(CANNOT CREATE FILE!SK %@(0(TOO FEW DATA LINES!!!H(CANNOT9.} CREATE FILE!K(NOW WRITING: $ A/@L@@^Af@l(@9/}w@Af7-($Ġ7 AP,*'(OOPS, I/O ERROR #F:A,*90} 3660cc255255000048182048112112112112112112112071025048112112112006112112112002112002112002065000048cc000000100191}05115107105111000240236245243000000000034057000048014044014000036037044044007037050cc03300000000000809900900003304605204192}035000045033039033058041046037012000017018015024021000000cc0000000000000000000000000000000000000000340971151011000001111193}0000000000000000000000000000000cc000000000036041051043041047000098121000036114014000034101114110097114100000047112112101194}10104$cc101105109000169033141047002169000141048002169048141049002169004141198002141200002173197002141.cc19900209622400295}2270020760421530481090292390421721700291692551530260031692551530270031731430298cc1330101731440291330111731460291330121731496}7029133013076255255032255255044096041048029169145133Bcc012169029133013169109133010169029133011160255169093153026003200169097}29153026003096032233030162Lcc03203223503016000018509704103219003020020115520824503215403016025510420015321800019202320824798}Vcc104170104168169155040096032255255008201155208246152072138072160023185218000072136016249173072`cc0030562290402402081499}1095041169229133223169041133224162255134220232134233160255230220200204095jcc04124000217601617722304802624017218512800503219:}77030209223240232200177223016251200200200152032tcc1420302082141851280050321770300731282092232082352000440960410160231690359;}197223240017076207029~cc041127201048144006201058176002056096024096174095041169155157128005189128005032177030157128005cc9<}202016244169000133234133239169029072169182072177223072200132222177223072096024101223133223169cc00010122413322409616925519=}41252002169005141066003133034169128141068003169005141069003096201155cc2400080411272010651440020410950961531280052300361989>}040206072003096169000133235185128005032086cc030144007141089041200185128005201047208008200185128005009128133235096162016169?}9012157066003076cc086228169128160005162000157068003152157069003169128157072003169000157073003169009157066003076cc19209@}40141028031140029031160255200185128005153188005016247073128153188005200169032153188005200cc1400770311691881600050760660319A}169155162000072169000240012162000072157068003152157069003169128cc157072003169000157073003169011157066003104076192040133239B}7132238032066031165237164238162016036cc23904800403623504820809614207703113322313222417207703113617722315322600513601624819C}69226160005cc076066031162008169111160041072152072138072162016032235030174155031104157074003104157069003104cc1570680039D}169003157066003076192040162058169168236170005240002169165160005096160003032201030032cc144033016013169165160002032235035039E}2182031076223031169088160041162006032149031016001096169125cc03205903116900013321913322302416501413322710501813323116501519F}33228105000133232162016169019024 cc1012271332271570680031690001012281332281570690031652270562330011332291652282330001332309G}169005cc157066003169018157072003032192040189072003201017240054160000177227200145227230219169040197219cc240039165223249H}8024105001216133223072041240074074074074009048201048208002169032160000145229200(cc10404101500904814522907600303203623501609I}070362390480030321430311652290721652300721620001342332cc2321652310241050011332291652321050001332301652192010021760072010019J}240065076098033024165229133<cc227105019133229165230133228105000133230160002177229209227144009208026200192013176021144241169K}9Fcc001133233160016177229072177227145229104145227136208243232228219208198165233208163165231133227Pcc13322916523213322819L}33230165219072074105000133223170104056229223133224165229024105019133229169Zcc0001012301332302022082401690011330851330821699M}018141077031036223048075198223048071165227164228dcc032095031169019141077031024101227133227169000101228133228036224048221199N}8224048217169002141077ncc031169019160041032095031169019141077031165229164230032095031165229024105019133229169000101230xc9O}c133230076014033169002133085133082169018141077031104133224104133223160000169155145223165219106cc1760081690010321420302069P}077031165223164224032095031076183037160255162001232189128005201032240cc012201044240008236095041208239169000096200232189129Q}8005192001208012201058208008072169049153168cc00520010415316800523609504120822716915515316800509603214403304800109616903209R}16032169033016026cc169035016024169036016020160006032201030169033141090003169254036235016002169253198233133218032cc2339S}030036239048025165220010168185203041072185204041168104198084032018031036218016003076007035cc173095041201003176001096173139T}0005032086030176067201058240060201068208019173131005201058240036cc03208603014400717313200520105824002416202018913000515719U}31005202016247160002032233035200185130cc0050480130162481602552001851300051531280050162471322380760180350410312010162080029V}169000133236cc173131005041031133237201016048011201026016007173095041201003208008165236133237169128133236056cc165088239W}3019133223165089233000133224169020032142030160001177223240104197237208241136165236041cc12720922320823220020017722324000429X}01010208222169128133227169005133228160003177223240039024105cc0321452272001920112400211920142082381361690462092272400012009Y}169155145227132238076007035169046cc145227230227208213192011176227169046145227200192011240200198227208247160002036218016009Z}2160006cc032233035165218201010240004201032208120160000173128005141165005200185128005201058208003169049cc13614116600529[}00185128005141167005165218201010240028198234162004169165160005032149031008032233cc0300400480101620231690211600410321170319\}096160002200185128005201155240008201032240004201044208"cc240169032153128005162003165218201032240014169058205169005240007209]}5170005240002162000200189165,cc00523215312800520115520824416521820103217600109603224303003623301600303219603516201616521819^}576cc066003169000157073003169040157072003169128157068003169005157069003032192040096162017169111160@cc0410321170311692559_}141252002205252002240251173252002041063072032057031104201043208001096104104Jcc096169128133227169005133228185088041145227139`}6016248096174095041224003176001096162000160255232Tcc18912800504801120104420824607216915515712800510420015320800520115524009a}07232189128005076023036^cc169001032245033169034032059031160000200185128005016250169034153128005162255232200189208005153h9b}cc128005016246032243030032196035165220010168185203041133227185204041133228162030160036189128005rcc153128005136202016246169c}2005160000177227041127032190030200202016245136173044036032190030200185|cc12800501624714009504107614703916900013323516000229d}00185128005201047208047185129005141168005009cc1281332350320860301440071691551531280050480441690581411690051691551411700059e}153128005185130005cc048054041001141254002016047201032240004201044208006032144033076249036204095041208182169000032cc249f}5033160255200185128005153168005016247165235016005041127141169005032057031169010032245033036cc23904800603224303003219603519g}60255200185128005048011201042240004201063208242076188037165235041cc1271332262080221741700051731690052240582400031731660059q}jB%DOS SYSB*)DUP SYSBSBASICSCHDOCBdBASICSCHLSTBrBOOL DEMB BOOL DOCBBURP BBYTHEX DEMBBYTHEX DOCBCASTODSKBASBDDEBE DEMB DEBE DOCBDISKIO DEMB DISKIO DOCBo DISKIOPLBASB DSKIOKEYMACBDSKTOCASBASB.PAINLESSPLMBPLOTCHARDEMBPLOTCHARDOCB! TOOLBOX BASB+TRACE BASBHVERSIONCBASBMWEDGE BAS205129005208004009128133226169016133225cc036226016005032016038208089169032141155031169128160005162004032149031032036038039r}6226016005032cc028038208063165235016020201208208006032143031076143037201211208006169000133225240023032182031cc16200809s}32149031076143037032036038036226016005032028038208016032068038036233048009036226016233cc0320160382402280322330301620320329t}235030169000141254002165233016007201136240003076219040036239cc048018096169255133239169048133240133241169128160005076223039u}1230241165241201058208004230240169cc04813324114113100519821901600109616524014113000516904614112800516907714112900516204719v}60155165cc235016013142132005041127141133005140134005016003140132005032145036076205037162014169044160041cc0321170310769w}196035162019169058160041208242056173229002229014162032157072003173230002229015157cc073003165014157068003165015032047039139x}2233096166225173100003157068003173101003157069003173104cc00315707200317310500315707300316901115706600307619204017209504119y}36136185128005201047208005169cc1551531280051332351332291690010322450330322430301691281600051620040321490311690591412240029z}141&cc2260021690391412250021412270020320280390160152011362080080362350480030320250390960762190401690cc255205128005208019{}0205129005208005133229076156038036229016231173128005133223173129005133224032:cc02803916201617312800505622922315707200317319|}29005229224157073003189072003024105001157072003189Dcc0730031050001570730031652231570680031652240320470390481590362350480139}}032022039169059141226002Ncc169039141227002076156038108226002108224002162016169002157072003169000157073003169128157068003X9~}cc169005157069003169007157066003032086228152096169255048002169000141096041096160004032201030173bcc08904114115704116201719}69150160041032117031032196035162008169156160041032149031032233030096169lcc0002400061690312080021690622060950412080591980849}133223160029132224032247030160255200177223032vcc190030201155208246140095041104104032154030076002030172095041136185128005209}1044208014162000200cc189105041032190030232224006208244104104076207029169125032059031169255133227169229141028031169cc09}41141029031230227032024031238077031173077031024109028031141028031173029031105000141029031165cc2272400442010121760460101689}173028031072173029031072185203041141028031185204041141029031169061cc032059031230085032024031104141029031104141028031032059}7031076204039201016144246032057031162255cc23218906104215712800501624704112715712800523216904815712800523216903215712800519}62006157128005cc173066042160255032095040173069042160030032095040173072042160061032095040198084096238131005162cc0050739}128157128005232232200185000029157128005201155208244076243030160037204095041144091200173cc131005041015170202048081224003179}6077169155172095041153128005169225133223169028133224160253200cc20020016903103214203020201624517313300507312815306604216029}55200185135005145223201155208246096cc0320862280362340480031520480111690001332341690161411550311520961921282402411041041699}002133085cc133082192128240045152162048160048201010144010233010200192058144245232208240009048141086041140cc085041224049}8208002162032142084041162011169077160041032117031096032032156068117112108105099097cc11610103210210510810111009710910104609}46046155060083111117114099101032068105115107062155060068cc1011151161051100971161051111100320681051151070621550691141141119}114032035048048048155068049058 cc042046042155000000076073083084049044048155051050055054055155080114101115115002217022105109}2032cc111107097121032062082069078065077197068069076069084197076079067203085078076079067203087082073 cc08406903206804909}58068079083046083089083155076073083084160083065086069160069078084069210066073*cc0780650820890320760790650681600820850780329}1600770790861972290411280411340411400411440411670414cc172041177041189041194041182041199041150041070079082077065212033224049}6206033202046196033212046>cc2030332160462130332200462160352490462110352490461970352490462040352490462100352490461940381019}Hcc046205036140068073210031195079070198039059079206039063076073083212039154087068079211039069076Rcc1740391540720690762089}039184068069198040120155039105155039109155039113000165012141146029165013\cc141147029165010141143029165011141144029160253209}0200200185026003201069208246200140170029185026fcc00313322314111302916909315302600320018502600313322414111802916902915302609}03160015177223153093pcc029136016248173097029024105001141227029173098029105000141228029169225141097029169029141098029zcc9}169076141231002169042141232002165012141146029165013141147029169155141000029141031029141062029cc169000133020169128238199009}2197020176249162000142155031032235030169105160042162012032149031076 148029 AP%D:MENU.* +9}D:DIOP49162000142155031032235030169105160042162012032149031076 148029 AP%D:MENU.* +8 )*b%KEYBFFRTEMPKEYFILE@ qqϠӠϠ=}Ңᬠì㠸堲㩠àǮ299;@1$@,;@1,9@=},;@ ,<86.>:AU,)67@1$@,.867@,.F.@.@@E:P'A=}@'A@Z Ad-@@1$@n67<,.>:F:At#%,,x (-=}@68,-F:B%$@,..(DEF%@ >:8,&A(, 6-@%$@1(@=}7<,/@:7<,,AU%6-%@/ A ()"(Enter filename for saving:)(>$6-F:=}B,$BAU@BM 6.D1:=7@<@,4:)7@<@,4:C6.M=} A67@,.6-@"!B:,A ,7<,4.A 6' @6-%@' A=}@67,..KEYJ+@+@@T)*@AU)*@AU^)*@)*=}@@)h)*@@)*@@)r-@B:,|*@@:7<,, 6-@c=}-@6-%@#*@#*@@B#*@#*@@B*@8=}, @(}Ϡ""( ٠ϠŠ##( by Patrick Dell'Era=}++(#Current Keyboard Macro Definitions:$D:DSKIOKEY.MACnes lost)p(##( by Patrick Dell'Era<WvwORSTARTYNNAMECORBUFARAIOCFIRSBOOLASFIRSTLASTBEFASIZAUXSIRLENTBUPEKRSTARPOLONA} A}@^&;@,;@,;@,@6-A}P:?$I:,,R;,;A,^6-+-@@1"'67,.>:,+ D +:6.&DOS 2.0S BIA}NARY-LOAD-DISK TO BOOT-TAPED @5?6-@$@+-@@/";67,.>:,? j @R6.>PLEASA}E ENTER BINARY LOAD FILE NAME IE D1:LOADNGO.BIN (RETURN)\ @5`j B4 @*@@4A} @K(=(ERROR F:A, FILE >:@4,>:@4,H@Kw B)@')@=A}AU)AU_6.FILE NOT BINARY SAVE FORMATi @5t@w )@)@-6-%AV$86A}-&B:,E)@R)@b6-%AV$"A6*"A7@C 3 -)@/67B:,%@,.>:A},3  K @)@')@76-%AV$K"BU5@ *A6@ M"A6A})@))@96-%AV$M"A7@D"A6@F 6-6-&&@"6-B:,.A}F67%<%,.>:,R)@)@-6-%AV$56-&R*B:,%@A B)A}6.LOGICAL RECORD ERROR!3 @5>@A,F:A,"A6" B, @!gF:A,"@Z6.;A}RAM TOO SMALL IN THIS SYSTEM! CANNOT GENERATE BOOT CASSETTEd @5g'$(>:AU,ERROR F:A,'w@A}6-P:'AV,/6-&AV$I67@<@,.>:,c67@<@,.>:,w"AU@&Y @"O6.;A}BINARY FILE IS NOT LOAD-AND-GO!PLEASE ENTER DECIMAL ADDRESSY @53%6.$A000 HEX IS 40960 DECIMAL./ @53- A} B# )!BU4- @"X6-P:'AV,$6-&AV$>67@<@,.>:,X67@<@,.>A}:,66-P:B:,'A(,($A(B:,66-%@67@<@,.>:,A76.-WRITE PREPARE BOOT TAPE! BEEPA}S REQUIRE RETURNA @5i6-A(6-@'6-@K6-P:B:,'A(,$A(%A(T6-C:,^ @FiA}@x @026.ANOTHER COPY ?ENTER Y N RETURN< @5@x7@<@,0Y*7@<@,0N@0A}. B.7@<@,4Y@( o @2)6.ANOTHE DISK FILE? Y N3 @57o7@<@,0A}Y*7@<@,0N@2!) B&7@<@,4Y)%"#Q%6-F:@,&F:@,%@36-%A}@?6-NB:, @Q$$7 B:,"(6.4@F:@,&@7$% B:, (6.$&b6.A}7<,#4 )4>:AU,16-&@@(7@<,V6.7%@:,7)@Q67@<A}@,.>:,]6-AU`$."@ @G3/! B!@C:0A2%%@100A2A}%%@&+P:'AV,$AV,2$$A2%%@P:'AV,300A2%%@&+P:'AV,$AV,4$$A}A2%%@ P:'AV,5A2%%@6A2%%@7 6-C:,6-?:<,$8bb0,1,0,33,0,3A}3,169,60,141,2,211,169,2,133,9,169,0,141,68,2,165,12,133,2,165,13,133,3,108,12,09104,104,104,170,76,86,228: A}D2:DSKTOCASrL1(`,9,169,0,141,68,2,165,12,133,2,165,13,133,3,108,12,09104,104,104,170,76,86,228: @LbNSTKLCATTRACPLYRSKIQUICSPSPEEP0PSKHITCLSTRP0PHTCLP1SMILEP2P3EXPLODP0PAINLESWOBBLHPOSPXPE}OSIZEPTAGP0HLDP1HLDP2HLDP3HLDPMBAYPO E} E} !"#$rrӤҠҠE}Ǡ󠸯ǠӪЪêŠì LLǺ堠 E} ӤҠқ `6-+@%A7AR@:(L( INITIALIZINGV A` E}AҠŠӠš1-@% !'6-1 @5Z @ @8(}ENTER NUMBEE}R OF PLAYERS<Z @)!@@ U @,/@91/@9@=/@I/@U6-E}AS @0+(} ENTER SPEED (1 TO 4)/56-S @)!@@0#& BF:AV,& AE}(( A -F-&@!%@ % +F󠦠1ΠŠР2D F:E},6-&@42A@@:D @`7>R:,@"6-%@%>2@@@<E}[ @&-@6@A%H:,$@%@E [A<"@&%@R:E},<堢עFF6-%@*F:B2y,"@06-<6-@F A K9 2!!6-%@E}/6-%A9 AP;#(}SCORE  SPEED '; @@PR4 F:,-@ %$ *E}4 @U @PY##ŠӠŠZ 6.6.6._F-@@P36-P:H:,$A`,%E}@F6.7<%@,d62@@%A66-H:,$@i*F:,&$@ *2n=E} A@@'@3@ = A sc"(}Š YOUR SCORE C(PRESS START FOR MORE PLAYERSE}c(PRESS TRIGGER FOR SAME PLAYx4F:B2y,"@$6-@*6-4 A@}4 T:,"$6-@5&+@ $,*6-E}4 A@P"F:@,"@&$@.6-@:6-@F6-@P A@ A O A#B"E}+-A$Au/"59 O A &+@ $,= (}6-6-A!6-'9AdAU= E}ŠĠE0F:@ ,@/F:AV,"@2$E栴'-AVAu'(F:,AE} F:, @ F:,!A AV&-2F:,@@ *2-$+""ԠE}ҠŠ,50F:B7p,@ 6.&6.,6.26.5$?##ԠӠϠ̪@ 6.6.6.E}6.$(#GGӤӠΠŠ ٠,#!!Я͠-#6-F:AE},&@1#󠪛2#<<;@,;@,;@,;@,;A,;# E}󠪪<#6.gggg$A@@36. >EAAHT6.sO@fAAu6.Og>E}A@pI#""ǠӠ̪O# Ӥ󠪪P#36-A$6-A('6-A23E}6-ART#󠪪U#?6-B2H6-B2V'6-B2R36-B2`?6-B2xY#""E}󪪛Z#]];@,;@,;@,;@,;@,;@,;@,;@,d#?6.~Z~<!E}6.<<<<~06.<~?6.r#ᠪs# 6.6.6.6.'E}堛'$'/ #B"!-A$Au%"+/ %'Ϡӛ&'90,110,130,150''E}Ϡӛ('20,58,68,78)'Ϡ˛*' 0,0,0,0+'ϠЯϠԛ,'16,25,25,25-'E}Ϡ͠ԛ.'88,79,79,79/'ϠԠԛ0'48,57,57,571'ϠԠԛ2'E}200,191,191,1913'РŠӛ4' 0,0,0,05'ϠÛ6'1,1,1,0,255,255,255,0,0,07'E}ϠÛ8'1,255,0,0,1,255,0,0,1,255B'!!ŠҠˠԛC'!!ǠĠӤV'ZZ6.PLbE}آxJ80E }N  N N*}N  W'cc67@,.PN  NУL8E}<@Dм4HML-X'@@67Aa,.-O4NHMNMNLLФLb'ĠE}Р'/ #Bb!-A6AF%"+/ '))216,104,201,11,240,3,76,116,228,104'''104,141,79,4,133,2,E}240,10,201,128'%%208,240,169,0,133,3,240,4,169,1'''133,3,104,133,1,104,133,0,208,222'%%170,240,13,165,0,24,101,2,133E},0'$$165,1,101,3,133,1,165,0,157,56'##4,165,1,157,60,4,172,79,4,169'&&0,145,0,136,208,251,104,157,68,4'))104,157,E}64,4,104,104,240,174,157,72'&&4,232,224,4,208,203,142,28,4,206'**79,4,104,170,104,168,169,7,76,92,228'!!E}'!!ŠŠ'jjX=USR(1536,0,(PMBAS*256)+1024,ADR(P0$),8,ADR(P1$),8,ADR(P2$),8,ADR(P3$)E},8,ADR(PAINLES$)):POKE 559,62'!!ŠŠ'yg6-?:A6<A(<+$AV,%A1 Standard Atari I/O error code.DEMONSTRATIONN}PLOTCHAR.DEM is a simple tokenized BASIC (binary) program which willdemonstrate the PLOTCHAR subroutine. As a first test, N}try "7" for the graphicsmode, "12,12" for the column,row, and "2" for the color code; then type anyshort text string that yN}ou like. Experiment with the demo to learn how to usethe subroutine.USETo use the subroutine, just transfer the statemenN}ts 900-905 to your ownprogram (you could do a LIST "D:TEMP",900,905 from the demo followed by an ENTER"D:TEMP" into your owN}n program); of course, you can renumber the statements asnecessary. Remember to call the subroutine once at the beginning ofN } your programto set it up.-John Navas [72645,1070]asnecessary. Remember to call the subroutine once at the beginning ofL7xYZ R } (u************************)u* TYPER'S TOOLBOX **u* by STEVEN BOBULSKY *+u* ANTIC MAGAZINE R } *,u* JANUARY, 1984 *-u* MODS by DAVID HARPER *.u************************0u] B5( }Enter the R }starting line number.9<(Y(Increment between lines]:u;;A ,;A ,'6-;!B&BDue R} B .(}Enter for regular linesJ(OR for DATA lines.NeO:,@B Nu%6-"@%R} BXuz6-@6-$6-O:,4( }:7(z(>Enter your items, or none, & hit Π twice when finiR}shed.buM(( Item #167B:,%@,.,?6-%@M6-%@lu 06- BPvuU 4R}67B:,,.%6-&@36-&@A6-%@U"@Bu"@BPu4B u 6-%R}67B:,,.uQ6-(}(!(*(<-NAB@Q&u\ B(3(PropoR}sed next line is %6(<%?(Y(Π => CONTINUE\(uv(٠٠ => MENU$@D@@R}K:Q)@\@v"@:>:AU,,Bua B(!"6@&(;( Item count = [(Items R}in current block = ^(a(up(( CURRENT LINE (( = F(PROPOSED NEXT LINE = %L%O(b( => NEXT LINER}p( => EDITup( => CHANGE INCREMENT2( => SHIFT MODESS( => RESTART (no lines lost)p( => DELETE A LINE RANGR}EuO((Š:"@1( REGULAR LINES4(O( Š = I:,u="6@( DATA LINES"(=( ŠR} = I:,ujI:, A.(٠̠R( or your program linesg(to TAPE or DISK.juR}W@.@@K:;)@W @:1,)!@:6,Bv@"@:2,9(&}: When done, hit R} over CONT=@( v5"@:2,(( '"6@5(DATA v6"@:2,(((!(CONT3-R}6& v,"@:2,(}6."(, BP*vW"@:3,2(}Enter the new line increment.6<(}?(CJ6.MR}(W BP4vB"@:4,(}((%6.16-@86-6B BP>v"@:5, BHv"@:6, BR}Rv7 6.(}6-@$6-%-6-O:,7 B0\vAB@(}$fvh(}ҠŠ:(Type in the R}line or just press\(Π to skip to the MENU._(h( pvR@.@@K:;)@RR}67B:,%@,.>:,zv"@:>:AU,, BPv (>:, B vB4>:AU,/(}No new entry on line 86-R }O:,B BPv"@:>:AU,, Bpv9( ((CONT$-@6AB@9&v. B6-O:,R!}%!($(. B vg@B((}ŠŠٺàՠԠɠϠΠg( ٠ŠŠ٠ŠR"}v''(Even this program, if you wish.v^ B(,( line to delete0L( line to deleteP^!R#}Bvs@@3(Enter the line increment.[(#(If unsure, use for this value)_s!B'BR$}vq(}LOWEST LINE =-(HIGHEST LINE =A(Šՠſ D(_(Press ٠ to continue,qA@dvo(or R%}٠ to abort.'@G@@K:T)@_@:Y,e(}o BPvT(,(!If you want to wR&}atch the process,T(#press . If you would like speed,va%(٠ will blank the screenG(during the delete to initiR'}atea(DIRECT MEMORY ACCESS.vi@.@@K:;)@A(}L@:1,^AYiR(}@wj-@@6(POKE 842,12:POKE 559,34:CONTH-@@j(POSITION 2,6:? Q:POSITION 2,4w`-@R)}@9(Q=Q+S:IF Q<=U THEN POSITION 2,1K-@]AB@`&w/ (} B%AY@4/R*} BPD:TOOLBOX1.BASHEN POSITION 2,1K-@]AB@`&w/ (} B%AY@4/PKLDBGSDBGSTARDBGTDBGSAVDBGEODBGCODBGSAVDBGTODBGLNDBGLNDBGPTDBGSAVV,} y BFyyBASIC TRACE UTILITYyALAN FILIPSKI 1V-}982 y"yFIND START OF STMNT TABLE$y%%6-F:A6,%AV$F:A7,&ySET ERR IN EACH STMNT(y BR*y' (V.} !(BASIC TRACE UTILITY'( ,y""(ENTER LINE NUMBER AT WHICH.y(EXECUTION IS TO START0y==((FIRST LINE IN PROG IS V/}F:,%AV$F:%@,)2y4y//CLR ARRAYS IF STARTING AT FIRST STATEMENT6y))F:,%AV$F:%@,B8V0}8y((6-F:A6,%AV$F:A7,:yRESTORE DBGSTARTy$ (HOW MANY LINES TO TRACV1}E $@yBdBy Dy))TRAP HERE AT EACH ERROR ENCOUNTEREDFy%%6-F:A6,%AV$F:A7,Hy F:AV2},"@BTJyUNEXPECTED ERROR TYPELyPF( ERR TYPE F:A, AT LINE F:A,%AV$F:A,P BV3}dNy!BrPy(HOW MANY MORE RyTy!BrVyTIME TO QUIT. REMOVE ERRSXy BZV4}y( TRACE ABORTED\y&^y33REINTRODUCE ERR INTO CLEARED "FOR" OR "GOSUB"`y"Bby* 6-%*F:%@,V5}"@UBdy6-%F:%@,&@fy6-%@hyF:,%F:,jy@Uly22REINTRODUCE ERR INTO LASV6}T STATEMENT EXECUTEDny* 6-%*F:%@,"@UBpy6-%F:%@,&@ry6-%@tyF:,%F:V7},vy@Uxy66CLEAR ERR FROM "FOR" OR "GOSUB" ON TOP OF RUNSTKzy6-|y99F:AB,"F:AD,*F:AC,"FV8}:AE,B~y%%6-F:AD,%AV$F:AE,y6-F:&@,y6-F:&@,y Bvy 6-&y77FV9}IND STATEMENT WHICH TRIGGERED TRAP AND CLEAR ERRy6-F:A,y6-F:A,y Bvy 6-&yGG* * * * * *V:} * * * * * * * * * * * * * * * * * * * * * * * * * * *y''INSERT USER PRINT STATEMENTS HEREyGG* * * * * * * * * * * * * V;}* * * * * * * * * * * * * * * * * * * *yLIST TRAPPED STMNTyF:,%AV$F:%@,y B BFy6-V<}&@y33IF STMNT IS END OR STOP, CLEAR ALL STATEMENTSy9/F:%@,"@!)F:%@,"@89 ByEXV=}ECUTE STATEMENTy F:,%F:%@,$AVyySUB TO SET ERRSy\\SET COMMAND TOKEN IN ALL USER STATEMENTS (EXCEV>}PT DATA STATEMENTS) TO 55 (=ERROR)y>>SAVE ORIGINAL USER COMMAND BY ADDING TO END-OF-LINE BYTEy 6-y77F:%@V?},"@U)F:%@,"@Bdy6-%F:%@,&@y6-%@yF:,%F:,y@UyV@}6-%F:%@,y//F:,%AV$F:%@, BBTy$yy^^SUBROUTINE TO FIND STMNT AND REMOVE ERR. VA}2-BYTE LINE NO. EXPECTED IN DBGLN1 AND DBGLN2y((PTR TO LINE IS RETURNED IN DBGPTR.y 6-y##"F:,*"F:%@,BVB}y6-%F:%@,y BxyREMOVE ERRyF:%@,@U$y6-%F:%@,&@y6-%VC}@yF:,!AByF:,&@"y@"y$yF:,&AUyAUy$yy$$VD}SUBROUTINE TO CLEAR ALL ERRORSyy 6-6-y""F:%@,@UB(y,6-%F:%@,&@,6-%@VE}yF:,!AB&y!!NON-REM LINE HAS 22 FOR EOLy*F:,&@" @"* B(yREM LINE HAS VF}155 FOR EOLy F:,&AU AUy6-%F:%@,y//F:,%AV$F:%@, BBz 6-zVG}$ D2:TRACE.BAS&AU AUy6-%F:%@,y//F:,%AV$F:%@, BBz 6-zT $%E0<-@C")Bc%- <6-?:Bc,??104,169,0ZI},133,203,169,160,133,204,162,32,160,0,177,203,72AA169,255,141,1,211,104,145,203,169,253,141,1,211,136,208,237//230,20ZJ}4,202,48,6,208,230,160,0,208,226,96'-@@"#' ,,54017,255,43231,234,43232,240,43233,17//4ZK}3234,234,47913,0,49139,0,49140,0,49141,0%%49142,0,49143,0,49144,0,49145,0 B! BASIC VERSION C ACTIVATEDB POKE 54017ZL},255 TO REACTIVATED2:VERSIONC.BAS@@5,0 B! BASIC VERSION C ACTIVATEDB POKE 54017XJ; CKSUER THE ATARI WEDGECOMPUTE! NOVEMBER 1982(CHARLES ^N}BRANNON2d WEDGE PROGRAM BASIC LOADERnI +,(INSERT A DOS 2.0S DISKETTEI(WITH DOS.SYS IN DRIVE 1.x#(^O}#(PRESS WHEN READY. F:Ad,@A@JAdAU@(&NOW WRITING THE WEDGE AUTORUN.SYS FILE^P}J AB.@@ D:AUTORUN.SYS8 BB A8@5("CAN'T OPEN AUTORUN.SYS FOR WRI^Q}TE!8u*@AU)*@AU<*@O*@@1b*@@tu*@@3^R}-Ay6A"%@(" A*@( B 6-% 3B5'(BAD NUMBER IN DAT^S}A36-@@")( ()(DATA OK, WRITE SUCCESSFUL,6J(<(ERROR- F:A, WHEN ATTEMPTING D^T}ISK WRITEG@JVV104,165,12,141,37,31,165,13,141,38,31,169,36,133,12,169,31,133,13,32,43,31,32,92ff31,169,75,^U}141,231,2,169,33,141,232,2,96,32,64,21,32,11,31,96,169,80,141,68,3,169,31,141,69,3,1696cc0,141,73,3,169,12,141,72,3,169,11^V},141,66,3,162,0,32,86,228,152,48,1,96,76,55,33,65,116,97,114TYY105,32,87,101,100,103,101,155,160,0,185,26,3,201,69,240,7,2^W}00,200,192,34,208,243,96lXX200,169,165,153,26,3,200,169,31,153,26,3,162,0,189,0,228,157,165,31,232,224,16,208ZZ245,169^X},184,141,169,31,169,31,141,170,31,24,173,4,228,105,1,141,186,31,173,5,228,105ZZ0,141,187,31,169,0,133,203,96,251,243,51,2^Y}46,184,31,163,246,51,246,60,246,76,228,243kk56,1,1,125,32,32,62,246,8,201,155,240,4,230,203,40,96,140,181,31,142,182,31,1^Z}65,203,240,86,169,51,133]]205,169,32,133,206,160,0,177,205,217,128,5,208,12,200,177,205,240,40,196,203,208,240,76YY37^[},32,201,255,240,53,160,0,177,205,240,9,230,205,144,2,230,206,76,242,31,24,165,205 ll105,3,133,205,144,2,230,206,76,215,31,^\}200,132,204,177,205,141,183,31,200,177,205,141,184,31,108,183,31 ]]160,0,169,46,153,128,5,169,0,133,203,169,155,172,181,31^]},174,182,31,40,96,68,73,82,0,1258 \\32,83,67,82,65,84,67,72,0,22,33,76,79,67,75,0,27,33,85,78,76,79,67,75,0,32,33,82,69,78^^}V __65,77,69,0,37,33,75,73,76,76,0,42,33,255,155,50,54,32,70,82,69,69,32,83,69,67,84,79,82,83t dd155,155,0,0,68,58,42,46,4^_}2,162,80,169,12,157,66,3,32,86,228,162,80,169,3,157,66,3,169,6,157,74 ff3,169,120,157,68,3,169,32,157,69,3,32,86,228,152,1^`}6,3,76,55,33,162,80,169,5,157,66,3,169,100,157 cc68,3,141,68,3,169,32,157,69,3,141,69,3,169,20,157,72,3,141,72,3,32,86,228^a},152,48,13,169,9,141 dd66,3,162,0,32,86,228,76,166,32,162,80,169,12,157,66,3,32,86,228,76,30,32,162,80,157,66,3,169,0 ii^b}157,73,3,164,203,153,128,5,56,152,229,204,157,72,3,24,169,128,101,204,157,68,3,169,5,105,0,157,69,3 !gg32,86,228,152,16,3,^c}76,55,33,76,30,32,169,33,76,229,32,169,35,76,229,32,169,36,76,229,32,169,32,76(!mm229,32,173,37,31,133,12,173,38,31,133,13,^d}76,116,228,72,162,80,169,12,157,66,3,32,86,228,104,162,255,154F!((133,185,76,64,185,224,2,225,2,1,31 D2:WEDGE.BAS^e}162,80,169,12,157,66,3,32,86,228,104,162,255,154F!((133,185,76,64,185,224,2,225,2,1,31 D2:WEDGE.BAS\