@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 D8uhADOASSCCHIGLO ,,LET}TTER WRITER Stage I by A. Katz, 1982CCIf using DOS or other co-resident software must adjust DOC toCChigher 4K incremU}ent. Lines 10000,10120,and 1st digit of 32000must be adjusted.DDLines 10115, and 10120 must be changed if Stage II V}is on disk.ggԪ SAVE "C:" ϠŠȠŠĠΠŮŠŠΠŠ'J #B W}6-&;@$,26-A@>6-AWJ6-@'"-@#@$'7<,4XB.'!6-@X}:7<,, B!6-8'%6-@:7%<%,, B%6-B'#A6%$@%#6-%L' V' B`'?Y}:<@:,,j'-AA@At'%?:<@:,,~' '(HIT ON BEEP'RAC'ADZ}@39A(KA)@3R%C:'&@:A,#6-&@:A,%@&$'6-&@:0,$}106868186D[}000685D56885D4 }A000B1D4498091D460686868}85D4A90085D5A5D42960C900}D008A5D418694085D460A5D4(}2960C960D00160A\}5D438E9202}85D46068686885D4A90085D5<}A5D42960C940D008A5D438E9F}4085D460A5D42960C960D001P}60A5D418692085D46068]}6818Z}6D000685D56885D4AD000618d}691085D6A001B1D48891D4C8n}E6D4D0F6E6D5A5D5C5D6D0EEx}606868186D000685D56885D4^}}AD000618691085D7A90085D6}A000A5D6D002C6D7C6D6B1D6}C891D688A5D6C5D4D007A5D7}C5D5D001601890E2X D:WRI_}TER.BAS00618691085D7A90085D6}A000A5D6D002C6D7C6D6B1D6}C891D688A5D6C5D4D007A5D7}C5D5D001601890E2X D:WRI  L ABC AD@" ddҮӠӠĠ a}ΠƠŠ͠ΠŠ̮ϮƠŠŮ]]ծӠӠĠΠƠŠ͠ΠŠ b}ƠҠǠŮ--; ;::ӠĠӠ٠ c}қ--; ;nnProgram donated to the library of the: d} ś+ +@+(@ AUTORUN MAKER.-@@.(@ please e}wait ;AC,;@,467@,.%67AC,.467@,.++@@ D:MENU.SY f}S(-@AC2)@67,.>:,< F@d;@,6.RUN-D:MENU.SYS##67@ g}<@,.>:@4,4 6-B:,&67%@,.>:AU,46-%@,h (} (h(WCAUTION!!!! THIS PROGRAM PUT h}S AN AUTORUN.SYS FILE ON THE DISK CURRENTLYIN DRIVE 1.6_(_(TTHE DISK MUST NOT BE WRITE PROTECTED AND IT MUST HAVE AT LE i}AST 7 FREE SECTORS.@3( ( (/(DO YOU WANT TO OUTPUT TO DISK3J 4N&T0YA ..@@ j} D:AUTORUN.SYSGGPut out the header and the core machine language prog.255,255,0,6,59,6 k},,173,31,208,41,4,240,10,169,18,141,33,3++169,6,141,34,3,96,251,243,51,246,33,6//163,246,51,246,60,246,76,228,243,0, l}238,33**6,172,33,6,192,0,208,10,169,0,141,33**3,169,228,141,34,3,185,59,6,160,1,96-@@f"!" m}@)"@H!6-%*@ Add the command list-@6-@:7<,,&*@ n}033Append initialize and run vectors:&&226,2,227,2,0,6,224,2,225,2,17,6D-@@"N*@ o} X@8++@@ D:MENU.SYSB-@ACL*@@:7<,,V ` p}@'( ( (('( ALL DONED:AUTOMAKR.BAS-@ACL*@@:7<,,V ` I_ABYTESBYTELIN@$$***********r}*******************$$* AUTORUN.SYS *$$* A.N.A.L.O.G. COMPUTING #9 *$$* BY JOHN S. ESLARY s} *$$* BOX 581 *$$* NEWCUMBERLAND WV 26047 *$$****************************** ;@!t},9@ ,(>:A%, Ap-@#AB@$&(AB@2(>:A%,Fu} #AP -AxA66@Z"_"A6 A d n x-AYAx v}(F:,F:,@2A` I6-B:,%@0A&@&A6<AI(>:A%, Aw}P:(2TYPE IN THE NAME OF YOUR PROGRAM AND PRESS RETURNL-@@P"(>:A%,"-@@$$(200 x}DATA 82,85,78,34,68,58,-@B:,(@:7<,,, -B:,@  @(32,""@y}(32(CONT"$ EE0,243,228,76,246,60,246,51,246,163,6,67,246,51,243,251,0,7,96,1LL160,155,169,170,104z},3,26,157,206,165,232,3,26,157,205,165,6,105,174,72FF138,96,1,160,6,106,206,6,131,185,9,240,6,106,172,96,6,106,141,11L{}L169,6,112,141,6,169,6,111,141,67,169,247,208,202,200,6,107,153,205,177GG16,162,0,160,3,26,157,6,169,206,133,3,26,189,23|}2,3,26,157,107,169JJ205,133,3,26,189,6,105,142,232,244,208,232,232,232,5,240,69,201,3,26189,0,162, A06}}-@7"AyA;AB@<&=AB@@ AJ6-A T-A~}6Ax^0(>:A%,"-@@0( DATA h6-%@r-@@ w<"Ax)(F:,},226,2,227,2,0,62(CONT< A|-"@ (F:, #(CONT- A!(F:,,6-%@!  }255,255,0,6,142,6X A@#Ab..@@ D:AUTORUN.SYSl"*@v A }@ ( D:AUTORUN.BASb..@@ D:AUTORUN.SYSl"*@v A )70 DIM A$(40),AN$(1)115 GOSUB 150190 POKE DAUX1,SECLOW210 POKE DAUX2,SECHI280 DATA 32,0,0,0,32,83,228,16,3,76282 DATA 52},29,32,10,32,76,75,29,173,144284 DATA 29,42,42,13,143,29,141,122,4,76286 DATA 75,29,173,122,4,72,41,3,141,143288 DATA 29,1}04,74,74,141,144,29,96,173,234290 DATA 34,240,4,104,76,169,32,104,104,141292 DATA 11,3,104,141,10,3,104,133,206,104294 DAT}A 133,205,104,104,141,237,31,32,83,228295 RETURN 296 DATA 16,3,76,201,34,162,11,160,15,177298 DATA 205,157,214,31,136,202,}208,247,177,205300 DATA 141,11,3,136,177,205,141,10,3,136302 DATA 177,205,141,229,31,136,177,205,141,228304 DATA 31,136,17}7,205,240,20,141,230,31,44306 DATA 230,31,16,28,32,192,33,142,138,29308 DATA 32,193,34,76,76,29,162,34,160,91310 DATA 32,1}39,33,173,237,31,32,162,30,76312 DATA 22,33,162,33,160,212,32,139,33,32314 DATA 192,33,162,33,160,219,32,139,33,173316 DAT}A 11,3,32,27,35,173,10,3,32,162318 DATA 30,160,16,140,229,34,169,155,32,164320 DATA 246,162,7,142,228,34,32,83,228,16322 D}ATA 3,76,201,34,32,10,32,238,235,34324 DATA 208,3,238,236,34,173,144,29,205,237326 DATA 31,208,35,173,123,4,13,143,29,2403}28 DATA 81,32,179,33,32,237,34,206,228,34330 SECNUM=VAL(A$):IF SCENUM<1 OR SECNUM>720 THEN ? " ĠҮŠӠ}":POP :GOTO 370332 RETURN 334 DATA 31,162,34,160,0,32,139,33,32,55336 DATA 30,173,11,3,32,27,35,173,10,3338 DATA 3}2,162,30,162,34,160,34,32,139,33340 SECHI=INT(SECNUM/256):SECLOW=INY(SECNUM-(SECHI*256)):RETURN 342 DATA 141,235,34,141,234},34,141,236,34,76344 DATA 76,29,173,228,31,77,235,34,208,31346 DATA 173,229,31,77,236,34,208,23,141,235348 DATA 34,141,236},34,162,34,160,114,32,139350 DATA 33,169,155,32,164,246,169,1,76,27352 DATA 33,162,34,160,119,32,139,33,173,229354 DATA 31},32,162,30,173,228,31,32,162,30356 DATA 162,34,160,145,32,139,33,173,236,34358 DATA 32,162,30,173,235,34,32,162,30,162360 }DATA 34,160,171,32,139,33,169,0,141,235362 DATA 34,141,236,34,76,22,33,173,148,29364 DATA 141,230,34,173,149,29,141,231,34,}140366 DATA 148,29,142,149,29,32,145,29,173,230368 DATA 34,141,148,29,173,231,34,141,149,29370 DATA 174,232,34,172,233,34,}96,173,143,29371 REM ***DELETE LINE 371 ***372 REM ***DELETE LINE 372 ***374 DATA 162,0,189,215,31,32,36,30,32,164376 DAT}A 246,32,43,30,232,224,11,144,239,96378 DATA 70,73,76,69,58,32,0,32,32,32380 DATA 32,32,83,84,65,82,84,32,83,69382 DATA 67},84,79,82,58,36,0,32,73,83384 DATA 32,68,69,76,69,84,69,68,33,33386 DATA 253,253,155,0,155,70,73,76,69,32388 DATA 78,85,77},66,69,82,32,77,73,83390 DATA 77,65,84,67,72,32,65,84,32,83392 DATA 69,67,84,79,82,27,31,0,155,67394 DATA 72,69,67,75,32,8}0,82,69,86,73396 DATA 79,85,83,32,83,69,67,84,79,82398 DATA 32,76,73,78,75,83,33,33,253,253400 DATA 0,67,65,78,78,79,84,32},82,69402 DATA 65,68,32,83,69,67,84,79,82,58404 DATA 27,31,36,253,0,155,78,79,32,69406 DATA 78,84,82,89,32,70,79,82,32,70}408 DATA 73,76,69,27,31,36,253,0,32,69410 DATA 78,68,0,155,79,82,73,71,73,78412 DATA 65,76,32,83,69,67,84,79,82,32414 DATA} 67,79,85,78,84,27,31,36,0,155416 DATA 65,67,84,85,65,76,32,83,69,67418 DATA 84,79,82,83,32,76,79,65,68,69420 DATA 68,27,3}1,36,0,155,83,72,79,82422 DATA 84,32,70,73,76,69,32,69,82,82424 DATA 79,82,33,33,253,155,0,162,33,160426 DATA 239,32,139,3}3,96,162,34,160,67,32428 DATA 139,33,173,11,3,32,27,35,173,10430 IF A$="W" THEN GRAPHICS 0:GOSUB 750:GOTO 370432 DATA 22,3}3,0,0,0,0,0,0,0,0434 DATA 0,32,36,30,173,26,35,240,6,32435 IF A$="P" THEN GOSUB 6000:GOTO 370436 DATA 55,30,76,8,35,169,27},32,164,246438 DATA 169,31,32,164,246,32,55,30,173,143440 DATA 29,32,27,35,173,123,4,32,162,30442 DATA 169,0,141,26,35,96,}1,32,255,29444 DATA 32,243,29,96,0,0,999450 IF A$="C" THEN GRAPHICS 0:GOSUB 1030:GOTO 370454 IF A$="T" THEN GOTO 7000456 }IF A$="M" THEN GOTO 6500470 GOSUB 330490 GRAPHICS 0:GOSUB 5500:GOSUB 340750 POKE 710,64:POKE 709,10:POKE 712,101030 POKE }710,26:POKE 709,0:POKE 712,102030 ? #6;"IRECTORY LIST":? #6;"RINT CURRENT SCRN"2040 ? #6;"RACE SECTOR CHAIN":? #6;"ODIF}Y SECTOR LINKS"3000 POSITION 0,17:? "":POSITION 0,17:RETURN 3010 REM *** DELETE LINE 3010 ***3030 REM *** DELETE LINE} 3030 ***5005 GRAPHICS 0:GOSUB 55005500 POKE 712,10:POKE 709,0:POKE 710,214:RETURN 6000 TRAP 6050:LPRINT :LPRINT 6005 ? "} ǠΡ":POKE 710,1866010 SCAND=PEEK(88)+PEEK(89)*2566015 REM **PRINT SCREEN TO PRINTER **6020 FOR X=1 TO} 196025 ARPT=16030 FOR Y=SCAND TO SCAND+396032 A$(ARPT,ARPT)=CHR$((ASC(" ")+PEEK(Y))):TEMP=ASC(A$(ARPT,ARPT))6033 IF TEMP}>128 THEN TEMP=TEMP-128:A$(ARPT,ARPT)=CHR$(TEMP)6035 IF A$(ARPT,ARPT)<" " OR A$(ARPT,ARPT)>"Z" THEN A$(ARPT,ARPT)="."6037 A}RPT=ARPT+1:NEXT Y6038 IF A$(19,19)="S" THEN GOTO 60456040 LPRINT A$:SCAND=SCAND+40:NEXT X6045 POKE 710,214:TRAP 710:A$="":}GOSUB 150:RETURN 6050 ? "ҠΧԠġ":GOTO 60456500 ? "} ٠Ҡ":? :? "ҠϠ}٠ؠҠé";:INPUT A$6505 IF A$="" THEN GOTO 3706510 IF A$(1,1)="$" THEN GOSUB 40006520 GOSUB 3306530 GOSUB 340:GOSUB} 1506535 X=USR(8174)6540 IF PEEK(7562) THEN GOTO 5506550 ? :? "ţ";PEEK(7568);":Ԡҽ ";(PEEK(7567)*256)+PEEK}(1147)6555 ? :? "ҠנŠàҠة";:INPUT A$6560 IF A$="" THEN FIL=PEEK(7568):GOTO 65906570 IF A$(1,1)="$" THEN} GOSUB 40006580 FIL=VAL(A$)6590 POKE (7568),FIL:? :? "ҠנãؠҠé";:INPUT A$6595 IF A$="" THEN GOTO 37066}00 IF A$(1,1)="$" THEN GOSUB 40006610 GOSUB 3306620 GOSUB 340:POKE (7567),SECHI:POKE (1147),SECLOW6625 X=USR(8188)6630 ? }"Ӡġ":? :? "נŽ ";PEEK(7568);" נҽ ";(PEEK(7567)*256)+PEEK(1147)6635 SECNUM=PEEK(DAUX1)+PEEK(}DAUX2)*2566640 ? :? " ŠϠˠƠӠ":? :GOTO 3707000 ? "INPUT FILE NUMBER (HEX OR DEC)":? "OR TO AB}ORT";:INPUT A$7010 IF A$(1,1)="X" THEN GOTO 3707020 IF A$(1,1)="$" THEN GOSUB 40007030 FIN=VAL(A$):STSEC=INT(FIN/8)+361:IF} STSEC<361 OR STSEC>368 THEN ? "ĠŠ":GOTO 3707035 RELFI=FIN-(INT(FIN/8)*8)7040 IDX=(RELFI*16)+10217042 ? "}} Ҡ"7050 X=USR(8218,STSEC,IDX,FIN)7055 IF PEEK(7562) THEN POKE 7562,0:POKE 8173,0:? :GOTO 3707060 SECLOW=}PEEK(1147):SECHI=PEEK(7567)7070 IF NOT PEEK(8938) THEN POKE (8173),0:GOTO 3707080 ? :? " TO CONTIN RINT SCRN TO ST}OP";:INPUT AN$7090 IF AN$="" THEN POKE 8938,0:POKE 8173,0:GOTO 3707100 IF AN$="P" THEN GOSUB 6000:GOTO 70807110 IF AN$<>"+}" THEN POKE 8938,0:POKE 8173,0:GOTO 7107115 ? "} ҠŠԩ"7120 X=USR(8218)7125 GOTO 7055807110 IF AN$<>"+k !$ : BUFMLBYTLINSUCHECAA } * ˠԠ* ٠Π٠* ǠŠ$;A,;}@,$6-C:,-@@"#67<,.>:, (104,32,83,228,962+6-A+-@A@}7'6-#-@'"<67%<%,.>:,A 6-% "F+ (ERROR AT LINE !(%((}+K6-%@ P^(DATA READ SUCCESSFUL.G(%INSERT A FORMATTED DISK INTO DRIVE #1^(AND PRESS Ԡ.U F:}B2y,@@Z @_9Ai@'Ap@9Ayd)-%AA()6}-%@i&6-P:'AV,&6-&+$AV,nArAssAx6-?:C:,,x1F:Aq,@}.(DISK WRITE ERROR!1} (RABBIT DISK OK.0,4,0,6,6,6,169,1,192((141,240,2,165,106,201,192,208,1255}!!3,76,63,6,169,36,141,68,562 3,169,6,141,69,3,32,57,480""7,76,33,6,80,114,111,103,530''114,97,109,32,114,101,}113,117,797%%105,114,101,115,32,52,56,75,650$$32,82,65,77,46,253,155,169,879$$0,141,198,2,141,24,208,169,883##}145,141,68,3,169,7,141,69,743 3,32,57,7,169,0,141,47,456""2,141,0,212,141,11,3,141,651 4,3,169,1,141,10,3,141,}472 1,3,169,82,141,2,3,169,570 8,141,5,3,32,83,228,32,532##85,7,173,10,3,201,105,208,792%%243,173,11,3,201,}1,208,236,1076!!32,128,7,169,0,141,11,3,491 141,4,3,169,1,141,10,3,472 141,1,3,169,87,141,2,3,547!!169,8,14}1,5,3,32,83,228,669""32,85,7,173,10,3,201,105,616%%208,243,173,11,3,201,1,208,1048%%236,169,229,141,68,3,169,7,10}22""141,69,3,32,57,7,169,105,583!!141,10,3,169,1,141,11,3,479141,1,3,169,0,141,4,3,462""169,8,141,5,3,169,8}2,141,7182,3,32,83,228,32,85,7,472''173,10,3,201,209,208,243,173,1220##11,3,201,2,208,236,32,128,821""7,169},105,141,10,3,169,1,605 141,11,3,141,1,3,169,0,469141,4,3,169,8,141,5,3,474""169,87,141,2,3,32,83,228,745""}32,85,7,173,10,3,201,209,720%%208,243,173,11,3,201,2,208,1049%%236,169,221,141,68,3,169,7,1014 141,69,3,32,57,7},76,33,418 6,162,0,169,9,141,66,3,556##169,80,141,72,3,169,0,141,775##73,3,32,86,228,173,31,208,834""201,6,2}08,249,96,173,3,3,939""201,1,208,205,24,173,4,3,819!!105,128,141,4,3,173,5,3,562!!105,0,141,5,3,24,173,10,461!}!3,105,1,141,10,3,173,11,447 3,105,0,141,11,3,24,96,383$$169,226,141,68,3,169,7,141,92469,3,32,57,7,32,77,7,2}84))96,160,194,236,225,227,235,160,1533**210,225,226,226,233,244,160,177,1701%%174,181,160,32,98,121,32,66,864}&&114,105,97,110,32,77,111,114,760%%105,97,114,116,121,32,32,80,697''114,111,109,112,116,115,58,32,767##83,45,82},101,97,100,32,77,617%%45,87,114,105,116,101,32,76,676%%45,68,111,110,101,47,69,114,665**114,111,114,253,155,253,}253,253,1506((253,253,253,253,253,253,155,0,16730,0,0,0,0,0,0,0,00,0,0,0,0,0,0,0,00,0,0,0,0,0,0,0,0}D:BKRABBIT.BAS53,253,253,253,253,253,155,0,16730,0,0,0,0,0,0,0,00,0,0,0,0,0,0,0,00,0,0,0,0,0,0,0,0d+++ 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,6 D:BURP.BAS402,20,32,113,16,76,25,18^-.MONTHCALMONTLDAYEARUUU  UZ@@@@@ }@ @ @ @ @@@@A@@AAA%))C }ALENDAR GENERATOR by Michael Duboy%;@ ,;@,% Abb6.X 1 2 3 4 5 6 7 8 9 10 11 12 13 1415 1 }6 17 18 19 20 2122 23 24 25 26 27 2829 30 31D-"@)"@)"@ )"@D6.7@<@,3"@ }*"@06.7@<@,3$&"@&6.7@<@,$ 6.JANUARY$ $6-%@!6. } FEBRUARY$$  6-%6. MARCH$ 6-%6. APRIL$ 6-%6. MAY$ 6-%6. JUNE$ } 6-%6. JULY$ 6-%6. AUGUST$ 6-%6. SEPTEMBER$ 6-%6. OCTOBER$ 6-% }6.NOVEMBER$ 6-%6.DECEMBER$''** DETERMINES 1ST DAY OF MONTH **i6-@6-@'6-@ }36-@96-E6-@Q6-@]6-c6-i6- u"@6-@'6-36-@?6-@ }E6-Q6-@]6-@i6-@o6-u6-#gg@@@@@@@@ }@@ @!@"(!@6-&@- AP2** 1ST USR FUNCTION **3** 34 BYTES }+1 BRK **<!!104,104,104,56,233,4,240,20F!!201,1,240,8,201,2,240,4,201P3,208,239,169,0,141Z$$1,6,76,38,6,169,1, }141,1,6,96,0d** 2ND USR FUNCTION **n** 48 BYTES+1 BRK **x104,162,3,160,076,50,6,162,7,204,4,6!!240 },23,169,0,205,3,6,240,12206,3,6,200,202,224,0,240 233,76,50,6,142,2,6,96,202##160,0,224,0,240,219,76,50,6,0 }** 3RD USR FUNCTION **** 48 BYTES **104,162,3,160,376,99,6,162,1204,4,6,240,23,169,0 }205,3,6,240,12206,3,6,200,232,224,8240,233,76,99,6142,2,6,96,232,160,0224,8,240,219,76,99,6" ** U }SR FUNCTIONS STORED **# ** AT PAGE 6 **,%-AAAr"!% ^c +@-@c( }@6 CALENDAR and REMINDERh/(@/(@:1901-2099=*("Pleas }e use a number for the month.=(:1,1980"(What month and year"V!A ) A+-@@ }F(@ OUT OF RANGE!L(V A86-&A6-O:,,A@@8A9.6-?:AA<,.DET }ERMINES IF LEAP YEARA0*6-?:Av,*FOR NEGATIVE VALUE R1 A)6-?:A%,)FOR PO }SITIVE VALUE 1;6-F:A7,!6-F:A8,;**1ST DAY OF THE YEAR** @0&2 +@-@@2(@ } 01(@1(@sun m t w thu f s: @D?6-+&@,$@'-@4(@ }?(@XggAA A0A@APA`ApAAAAA a** S }PECIAL DATES **b!!(@נҧӠc$$(@ħӠd##(@Ӡe%% }(@Ӡf""(@ͧӠk Al%%(@ΧӠu A }v$$(@Ԯ˧Ӡ A (@ҠĠή&&(@Ǡ } A%%(@ҧӠ٠Ġ A%%(@ҧӠ٠Ġ$$(@ } A##(@Š A$$(@ŧӠ A""( }@Ҡ٠Ԡ A%%(@Ӡ٠Ġ A%%(@ǠȠ } A(@ Ӡ A D:CALENDAR.BAS%%(@ǠȠ X2;PMSEBUTTOCHOICCONSOLE BUTTON SUBROUTINEBY JERRY WHITE 6/5/820uU$} +AR@1A@HC@@UA@ :uY/('} Use the or button$} to2(Y(" highlight your choice below, thenDu^($( press the button.8-@DB2yH R B$}^6-@Nu - (ΠӠXu&6-F:B2y,&"@B@bu! B@!"@Blu=6-$}%@!@)6-@3 B= B0vuC"@ B%-@9(ΠϠC B@uD$}"@ B%-@:(ΠՠD B@u B@u`-@@,(RERUN THIS PROGRAM/(D$}(RETURN TO BASICG(](RUN MENU PROGRAM`$u[ BA@+"@1(}4(F( LOADING MENUQ%D:M$}ENU[ BuM"@+(&(BASIC.(IS@ARJ BMu B%u Bpu, 6$}-6-F:B2y,,@BPu Bp$u*-@#B2y' *$ D:CONSOLE.BASu, 6$v!" OBJBDSHEXAOPFILHLBYT )} CREATOR BY WILLIAM VOLKCOURTESY OF S.P.A.C.E22SEACOAST PERSONAL ATARI COMPUTER ENTH)}USIASTS,,THIS MASTERPIECE MAKES A BASIC PROGRAM22THAT WILL 'RECREATE' AN OBJECT FILE, ON DISK99THIS ALLOWS THE OB)}JECT FILE TO BE SENT OVER A MODEM--IN THE FORM OF A 'LISTed' BASIC PROGRAMLLWHEN THE CREATED BASIC PROGRAM IS RUN, IT)} RECREATES THE OBJECT FILE!!! [[THE PROGRAM WILL PROMPT YOU FOR THE NAME OF THE OBJECT FILE, AND THE 'LISTed' PROGRAM ]1)};@ ,;@ ,;@,;@,H6.0123456789ABCDEF]6.D: 0.ASCL/('}NAME OF OBJECT FILE, TO BE T)}RANSFERED H(I.E. D:MICRODOS.OBJ LX.(&}A NAME, 7 LETTERS MAX, FOR THE SERIESX(%OF 'LISTed' BASIC PROGRAMS, THAT WI)}LL(s)(! BE CREATED, AND RUN IN SEQUENCE,N( IN ORDER TO RE-CREATE THE OBJECTm(FILE, YOU PREVIOUSLY NAMEDp(s(2N()}THIS COULD BE 'MOONBSE'#2B:, @N67B:,%@,.AAAAAAA< @@FT6-@#-) }@ :67@<@ ,.T67@<@,.=:,P''(CREATING BASIC PROGRAM NAMED Z?AA ") }@?@@ d An6-@  Ax-AA @(@) } DATA c-@@P$)@56-P:'@,G6-&+$@,U6-%@c6-%@(@7) }<,7<, (@ @ @@'(@@$@') }X++THE PROGRAM TO CREATE THE OBJECT FILEb;A,l A v#))OPEN THE FILE FOR OUT-PUT OR APPEND;;T)}HIS LINE WILL BE REPLACED BY THE PROPER OPEN COMMAND"-@@P5!6-@:7+$@,&@,,56-@:7$@)},,['6-+&@H,&+!@d,$@K6-+&@H,&+!@d,$@[6-%$@*@  )}A`@00ADDS THE OPEN COMMAND TO THE BASIC PROGRAM(@ 650 OPEN #10*@@D>(@)}Q*@@De(@x*@@D*@@4(@*@@4(@)}$ D:CREATOR.BAS@x*@@D*@@4(@*@@4(@( LM BDSHEXASTARAMMLOBUFFESECTOPTHLBYTBUFHBUFLSECHSECLRESUL-} -}DIETY BY WILLIAM VOLKCOURTESY OF S.P.A.C.E22SEACOAST PERSONAL ATARI COMPUTER ENTHUSIASTS,,-}THIS MASTERPIECE MAKES A BASIC PROGRAM++THAT WILL 'RECREATE' SECTORS, ON DISK55THIS ALLOWS THE SECTORS TO BE SENT OV-}ER A MODEM--IN THE FORM OF A 'LISTed' BASIC PROGRAMHHWHEN THE CREATED BASIC PROGRAM IS RUN, IT RECREATES THE SECTORS!-}!! XXTHE PROGRAM WILL PROMPT YOU FOR THE STARTING SECTOR, AMT & NAME OF LISTed' PROGRAM R&;@ ,;@,;@-},=6.0123456789ABCDEFR6.D: 0.ASCoAdA'Ae@29Af@KAf@]-}AgA(oAh@2""(THIS PROGRAM LOADS SECTORS<""(INTO MEMORY, AND CREATES AF33(+ A BASIC PROGRAM-} TO RE-CREATE THOSE SECTORSP( START SECTORZ6(HOW MANY SECTORS 1-80"6!@@_--6-F:AD,%-}AV$F:AE,%Ad51()INSERT DISK IN DRIVE # 1, TO READ SECTORS5n 6-6-x-@ A@-}6-%@6-%A( ::(2}A NAME, FOR THE 'LISTed' BASIC PROGRAM, THAT WILLa( BE CREATED, AND RUNB-}(!IN ORDER TO RE-CREATE THE SECTORS[(YOU PREVIOUSLY NAMED^(a('#(THIS COULD BE D:MOONBSE.ASC'''(CREATING BA-}SIC PROGRAM NAMED "?AA)"@?@@ , AP6 6-@))-A0$@- }@%A)@J(@ DATA T_-@@2 6-F:,16-P:'@,C6-&+$@,Q6-%@-!}_6-%@^(@7<,7<,h6-%@ r(@| @X11THE PROGRAM TO-"} CREATE THE SECTORS ON A DISKb<<LINE TO BE REPLACED WITH CORRECT ASSIGNMENT STATEMENTSlL-6-F:AD,%AV$F:AE-#},%A36-96-?6-L;@d,qoAdA'Ae@29Af@KAf@]Ag-$}A(oAh@v-@$@"-@@25!6-@:7+$@,&@,,56-@:7$-%}@,,['6-+&@H,&+!@d,$@K6-+&@H,&+!@d,$@[6-%$@ 6-%@-&}    -@* A 46-%@>6-%A(H   6-P:'AV,6-&$AV-'}ArAs'Ai@'Ap@6-P:'AV,6-&$AV AxAy-(}6-?:Ad, $  6-6- -@ A  6-%@6-%A(   6--)}P:'AV,6-&$AVArAs'Ai@'Ap@6-P:'AV,6--*}&$AVAxAy6-?:Ad,$CREATE PROPER LIMITS(((@ 610 AMMT=:START-+}=$ D:DIETY.BASAy6-?:Ad,$CREATE PROPER LIMITS(((@ 610 AMMT=:START,Ad$$******************************n$$* DISK DIRECTORY *x$$* BY TOMM1-}Y BENNETT *$$* *$$* THIS PROGRAM WILL ALLOW *$$* YOU TO SEE THE PROGRAMS ON *1.}$$* A DISK QUICKLY AND EASILY. *$$* IT STOPS EVERY 17 FILES TO *$$* ALLOW YOU TO READ THE FILE *$$* NAMES. 1/} *$$******************************S +'0@@@A0@@@SA10}R@3;@ ,3@@D:*.*<-@@0(*** DISK DIRECTORY ***<6-@11}% Ap%*** WATCH FOR EOF ***B@-@ (.6-%@B"@ A AP((((12} HIT ANY KEY TO END...7F:Ad,AU*AdAU4+7" A,-(-(" HIT ANY K13}EY TO CONTINUE...6:F:Ad,AU*AdAU0(}: A0@ A D:DISKDIR.BAS HIT ANY K0nAREK+@%@'A@9A AKAA ##(@55} ##(@ ANALOG 400/800##(@ presents (##(@ utility #3 56}2##(@ <##(@ F(@ byP!!(@ TONY M57}ESSINAZ$$(@ d#6-At #**ML SAVE AREA **nAA@"%"A 7AU58}@A A%x3A)6-%@3 A}7%(@ loading dsktool.utl7% D:DSKTOOL.PT259}''32,83,228,48,51,173,142,29,208,69%%32,145,29,32,50,30,173,34,30,32%%27,30,32,187,29,162,0,160,0,189%%253,3,325:},255,29,32,234,29,32,36%%30,32,190,29,32,43,30,200,192,8((240,29,232,76,25,29,140,138,29,173%%122,4,72,41,3,141,15;}43,29,104,74''74,141,144,29,160,0,140,34,30,104''96,142,35,30,138,56,233,7,170,238''35,30,189,253,3,32,207,29,1425<},141))29,32,164,246,174,141,29,232,236,35**30,208,235,169,155,32,164,246,174,35''30,224,128,176,190,32,50,30,32,15=}8%%30,32,187,29,160,0,174,35,30,7625,29,0,0,0,0,0,0,0,162''0,189,166,29,240,13,142,139,29,32**164,246,174,15>}39,29,232,56,176,238,96&&125,66,89,84,69,35,127,127,72,69&&88,127,127,65,84,65,83,67,73,155&&0,32,190,29,169,32,35?}2,164,246,96$$41,15,201,10,48,2,105,6,105,48))96,201,32,144,20,201,125,144,18,201++128,144,12,201,155,144,10,201,5@}160,144%%4,201,253,144,2,169,46,96,32,36))30,173,254,29,32,164,246,173,253,29##32,164,246,32,43,30,96,0,0,72&&5A}74,74,74,74,32,196,29,141,254,29((104,32,196,29,141,253,29,96,173,34%%30,24,105,8,141,34,30,32,255,29%%32,234,295B},96,0,0,142,139,29,140((140,29,96,174,139,29,172,140,29,96))169,62,32,164,246,169,36,32,164,246**96,104,104,133,25C}06,104,133,205,160,2**177,205,72,200,177,205,32,149,30,141&&148,30,104,32,149,30,10,10,10,10''13,148,30,170,24,105D}5,8,141,141,29**200,200,200,177,205,201,32,208,5,200**177,205,208,21,72,200,177,205,32,149''30,141,148,30,104,32,5E}149,30,10,10''10,10,13,148,30,157,253,3,232,236$$141,29,144,213,72,76,6,29,0,56%%233,48,201,10,144,2,233,7,96,765F}%%52,29,32,255,29,32,234,29,96,32))83,228,48,241,169,253,133,205,169,3))133,206,160,5,162,0,177,205,157,215))35G}1,200,232,224,11,144,245,160,0,177++205,141,230,31,200,177,205,141,229,31,,200,177,205,141,228,31,200,177,205,141*5H}*227,31,200,177,205,141,226,31,44,230%%31,16,8,169,68,141,231,31,76,24''31,80,37,169,85,141,231,31,169,32''44,235I}0,31,240,5,169,42,141,233,31&&169,2,44,230,31,240,8,169,50,141''232,31,76,24,31,169,49,141,232,31$$173,11,3,32,165J}2,30,173,10,3,32''162,30,32,190,29,162,0,189,215,31&&32,36,30,32,164,246,32,43,30,232))224,11,144,239,32,187,29,15K}73,226,31''32,162,30,173,227,31,32,162,30,32((187,29,32,190,29,173,228,31,32,162''30,173,229,31,32,162,30,32,187,5L}29''32,190,29,173,237,31,32,162,30,32&&187,29,162,2,189,231,31,32,36,30((32,164,246,32,43,30,169,32,157,231))5M}31,202,16,236,238,237,31,238,236,31((169,8,205,236,31,240,22,165,205,24**105,16,133,205,144,2,230,206,169,155((325N},164,246,32,198,31,76,182,30,169 &&155,32,164,246,173,10,3,24,105,1 ##141,10,3,144,3,238,11,3,162,0**142,236,31,1735O},235,31,208,17,238,235((31,76,169,30,162,11,169,32,157,215((31,202,208,250,96,206,235,31,76,7529,0,0,0,0,0,0,0,5P}0,00,0,0,0,0,0,32,32,32,32 32,0,0,0,32,83,228,16,3,76%%52,29,32,10,32,76,75,29,173,144%%29,42,42,13,143,295Q},141,122,4,76%%75,29,173,122,4,72,41,3,141,143 ((29,104,74,74,141,144,29,96,173,234"((34,240,4,104,76,169,32,104,105R}4,141$''11,3,104,141,10,3,104,133,206,104&**133,205,104,104,141,237,31,32,83,228(&&16,3,76,201,34,162,11,160,15,1775S}*,,205,157,214,31,136,202,208,247,177,205,''141,11,3,136,177,205,141,10,3,136.,,177,205,141,229,31,136,177,205,141,225T}80))31,136,177,205,240,20,141,230,31,442''230,31,16,28,32,192,33,142,138,294&&32,193,34,76,76,29,162,34,160,916''5U}32,139,33,173,237,31,32,162,30,768''22,33,162,33,160,212,32,139,33,32:))192,33,162,33,160,219,32,139,33,173<##11,3,35V}2,27,35,173,10,3,32,162>))30,160,16,140,229,34,169,155,32,164@''246,162,7,142,228,34,32,83,228,16B%%3,76,201,34,32,15W}0,32,238,235,34D))208,3,238,236,34,173,144,29,205,237F''31,208,35,173,123,4,13,143,29,240H''81,32,179,33,32,237,34,25X}06,228,34J''16,210,169,1,141,26,35,206,229,34L''16,190,141,234,34,76,76,29,32,198N%%31,162,34,160,0,32,139,33,32,555Y}P##30,173,11,3,32,27,35,173,10,3R''32,162,30,162,34,160,34,32,139,33T&&169,1,141,138,29,141,26,35,169,0V))141,235,5Z}34,141,234,34,141,236,34,76X''76,29,173,228,31,77,235,34,208,31Z))173,229,31,77,236,34,208,23,141,235\))34,141,236,35[}4,162,34,160,114,32,139^''33,169,155,32,164,246,169,1,76,27`))33,162,34,160,119,32,139,33,173,229b''31,32,162,30,1735\},228,31,32,162,30d))162,34,160,145,32,139,33,173,236,34f((32,162,30,173,235,34,32,162,30,162h((34,160,171,32,139,33,5]}169,0,141,235j''34,141,236,34,76,22,33,173,148,29l**141,230,34,173,149,29,141,231,34,140n))148,29,142,149,29,32,145,5^}29,173,230p))34,141,148,29,173,231,34,141,149,29r))174,232,34,172,233,34,96,173,143,29t$$141,11,3,173,123,4,141,10,35_},96v&&162,0,189,215,31,32,36,30,32,164x((246,32,43,30,232,224,11,144,239,96z""70,73,76,69,58,32,0,32,32,32|##32,35`}2,83,84,65,82,84,32,83,69~""67,84,79,82,58,36,0,32,73,83##32,68,69,76,69,84,69,68,33,33&&253,253,155,0,155,70,73,75a}6,69,32##78,85,77,66,69,82,32,77,73,83##77,65,84,67,72,32,65,84,32,83##69,67,84,79,82,27,31,0,155,67##72,69,65b}7,75,32,80,82,69,86,73##79,85,83,32,83,69,67,84,79,82%%32,76,73,78,75,83,33,33,253,253""0,67,65,78,78,79,84,32,825c},69##65,68,32,83,69,67,84,79,82,58$$27,31,36,253,0,155,78,79,32,69##78,84,82,89,32,70,79,82,32,70##73,76,69,25d}7,31,36,253,0,32,69##78,68,0,155,79,82,73,71,73,78##65,76,32,83,69,67,84,79,82,32##67,79,85,78,84,27,31,36,0,1555e}##65,67,84,85,65,76,32,83,69,67##84,79,82,83,32,76,79,65,68,69##68,27,31,36,0,155,83,72,79,82##84,32,70,73,76,5f}69,32,69,82,82&&79,82,33,33,253,155,0,162,33,160''239,32,139,33,96,162,34,160,67,32%%139,33,173,11,3,32,27,35,1735g},10''3,32,162,30,169,155,32,164,246,7622,33,0,0,0,0,0,0,0,0##0,32,36,30,173,26,35,240,6,32%%55,30,76,8,35,15q}9B%DOS SYSB*)DUP SYSB SWRITER BASB`AUTOMAKRBASBqAUTORUN BASB4BASCNG1 ENTBBKRABBITBASBBURP BASBCALENDARBASB CONSOLE BASBCREATOR BASBDIETY BASB,DISKDIR BASB64DISKTOOL BsFORTHDOSBASB!LETTER BASBMLDATA ENTBGSAFLAND BASB STRINGS BASB0TAKE BBTYPEIT BASB8UWALLBANGBASB AUDCTL BAS69,27,32,164,246((169,31,32,164,246,32,55,30,173,143%%29,32,27,35,173,123,4,32,162,30$$169,0,141,26,35,96,1,32,255r}5,2932,243,29,96,0,0,999 D:DTOOL.PT273,143%%29,32,27,35,173,123,4,32,162,30$$169,0,141,26,35,96,1,32,2542QRe { BABUECSTARSIZLINSCRSECTOAMMBUFFEOPCOUNBUFHBUFLSECHSECLRESUL9t} 9u} F;@ ,;@,46-+I:,&A,F;,;A ,?67,. '67@<@9v},. ?67@,.7@,oAdA'Ae@29Af@KAf@]AgA(o9w}Ah@2$$(THIS PROGRAM TRANSFERS FORTH<''(INTO TEXT FILES, AND VISA-VERSAF%%(USE TEXT FILES TO EDIT FORT9x}H!K(NAME OF TEXT FILEP""(WHAT IS THE FORMAT OF YOURZ''(FORTH,-1K SCREEN 64 CHAR. LINE_=#(-1/2K SCREE9y}N 32 CHAR. LINE'=01*02@d( START SCREENn;6-@6-@d#42/6-@;6-@29z}x+'(1-FORTH TO DOS, 2-DOS TO FORTH+41A42A A FORTH TO TEXT FILE11(9{})INSERT DISK IN DRIVE # 1, TO READ SCREENS1( # OF SCREENS1$$A(!A$6-@%$6-$$6-C:9|},'6-@-@' A@6-%@6-%A( K(CREATING TEXT FILE -G($INSERT DISK9}} TO WRITE TO, HIT RETURN K"+@+@@,-@+$$A(,'66.7$&+&@9~},<$,@ 6-B:,J,7<,4 "6-&@, A0T)(@7@<,) APY(@^ 9}@TEXT TO FORTH-)(!INSERT TEXT-FILE DISK, HIT RETURN- @@6-9} A@!@ 6-B:,6-$%@("66-%@@ A@&6 67<%&@,.9},6-%@6 A@0. 6-.7%@<%@,4 A:,7<,0 "6-&@, ApD'"9}6-'CANT FIND BLANKNL#67<%&@,.7@<,46.7%@,B6-%@L AEX6@6-'9}@%P:,66-P:,%@bN(INSERT DISK IN DRIVE #1:( TO WRITE  SCREENSJ( HIT RETURNNl$ 6-$69}-C:,$6-@%$v'6-@-@' A@6-%@6-%A( 6-P:'AV,9}6-&$AVArAs!Ai@!Ap6-P:'AV,6-&$AVA9}xAy6-?:Ad,$D:FORTHDOS.BAS!Ap6-P:'AV,6-&$AVA8B}~~CURSOXCUYCUWINDODDOKEMODASSCRIGHDOWXTOGGLINSERDELETJOLEFUCSALOLSWAISTARSCRAMARKMARK=}FINISDEVOL =}=} AP,,Letter Writer Stage II by A. Katz 1982  A  A5 A A!=} A+ A5 @ E6-%@6-%@+"@@76-E6-&@@ $2F6-&@6-=}&@,"6@86-@9F6-%@@4$F/6-&@@6-&@,6@/$HY6-6-&@=}*"6@66-D6-%@@VB2y@Y$JM(%@P:+$@@%,'AV,M$@@%&F:=}%@,$AVL$Z.6-%@@6-%@+@$.$\X6-@#6-%@)"@y56-@xC6=}-&@@UB2y@X$^M(%@P:+$@@%,'AV,M$@@%&F:%@,$AV`$dKEYB=}OARD INPUTn!6-F:Ad,"AU!$x)@A`A"AU6-@%?:<,=} " 6-?:<,$6-?:<,6-@: ,%A(6-?:<,%?:<,$6-?:<,=}6-?:<,$JOYSTICK INPUT!6-R:,"@!$6-?:<,'#"@)"@)"@' '=}#"@)"@ )"@' '#"@)"@)"@' '#"@)"@ )"@' 6-?:<=}, A,START BUTTON INPUT6F:B2y,@$;6-?:<,@$ +$BACK TO DISPLAY AREAJ A=}T"@ A$^ h A0OPTION BUTTON INPUTF:B2y,@$)6-%@=}!@)6-)")0@@ @)"@)0@@@)"@)=}0@@@%-@@P % A6-?:<%@:,,-%@%A@y F:,"$=} &&(UNABLE TO FIND MARK >:?:<,,&' -AP@6@$ '$%%@'AV%2=}6-@6-@'6-26-?:<,56-6-50@@ @B$ (} (((=}1. SAVE DOCUMENT(2. LOAD DOCUMENT(3. LIST DOCUMENT(4. VIEW AND EDIT(T A`)(PICK ONE (1,2,=}3,OR 4) -66-P:,T!* @Ap ( AP" AP"@$,B6- A=}5(ENTER STARTING MARK # 9B6-P:,1*!@ )  (* A6@6-&@6-! A-"=}6(@ A@ 6-J@6-@ A 3(ENTER ENDING MARK # 7@6-P:,O*!@ )  (=}* AT>@6- A+"4(> AY"@6-%A@y^ 6-h? A`=}(#( ENTER DEVICE '6B:,"?6.E:m44@@&+"@,$@r AP$|(=} BAD DEVICE A@INITIALIZATION-@-@@K36-@06-@P'6-@p=}36-@'6-A!6-A"'6-A#?6-A76-AW'6-A36-AA?6-A6-=}F:A6,$AV;@, --6-F:A`,%F:Aa,$AV%@*!!6-F:,%F:%@,$AV1$4S=}AVE MODULE>-%@H*@F:,R @$LOAD MODULE6-?:<%@:,, A"P=}-%@)@ "A"U  A"U- F:A,A6AP-IF NOT EOF AP=}@$LIST MODULE -%@&@ *@?: A W6. supplies : ]6-g A 3#6. # oE}f mineral mines : )6-3 A :*6. # of industrial factories : 06-: A  !6- '@E}A0"A1E"@6-6-!6-'6--6-36-96-?6-E6-, ALAND PRICE6@E} @A@DON'T KEEP TRACK RECORD OF 1st 3 YEARS;KK*** KEEP TRACK OF HIGH AND LOW STATISTICS ( for grading perfoE}rmance )@ !6-E !6-J !6-O !6-T !6-Y  6-^  6-c  6E}-h  6-I'6.Do you want to sell any land 1 A; Ap?I A PF A,6.on food for yoE}ur people 6 A@ A@F6-; !!6.***You only have '6-1 A ; A 6-&L*6.Do yoE}u want to buy any land 4 A> ApBL A M6- A96.on farming equipment C AE}M A@A 6-!'6.***You only have -6-7 A A A  6-&F A ,6.work on farms this yE}ear 6 A@ A@F6-; !!6.***You only have '6-1 A ; A0N6- A:6.E}on military equipment D AN A@A 6-!'6.***You only have -6-7 A A A@ 6-&[6E}-+&,! A G6.work in the military this year Q A[ A@E 6-!&)6.***You only have E}16-&; A E APV6-+&&,# A B6.work in mines this year L AV A@I 6-E}!&&+6.***You only have 56-&&? A I A`\6-+&&&,% A H6.work in factories tE}his year R A\ A@M 6-!&&&-6.***You only have 96-&&&C A M Ap_6-E} AK6.'for geological testing/mining supplies U A_ A@A 6-!'6.***You only have -6-7 E}A A A 6-&D6- A06. on industry : AD A@A 6-!'6.***You oE}nly have -6-7 A A A' 6-& A"'FARMING OUTCOME A%PEOPLE DIE?2 A2COMPUTE E}MILITARY HOLDING/EXPANSION AMINING OUTCOME A INDUSTRY OUTCOME" A@"NATURAL PHENOMINAE&E} @A0D(($(HIT RETURN TO CONTINUE...(N6-%@ A&?'6-P:H:,$@%@E},%3?6-g6.Land is selling for ( A16.=:,; AH6-6@ ]6. sf. per acre.E}g A $$_(@ A`$6-@SH:,$+$@'+%'@,, @_6-@H<"@E}*H:,$+$@'+%'@,,!@H6-@W!6-P:&$H:,$?,?6-P:%H:,$$?@,K E}W6-ApA@A6-@ A B(6. No military action this year.56-6@ E}? A B$TH6-P:H:,$@%H:,$'+'@%>%'@,,N!T6-A16.' A military DEFE}EAT! Loss of acrage : 76-A A (:6. Loss of people : %6-/ A 76-&:$<>>6-P:H:,$@E}%H:,$+'@%'@,,FA16.' A military VICTORY! acrage gained : 76-A A P2 6-%26-P:H:E},$%H:,$@,Z96. people gained : $6-. A 66-%9$xW!6-P:&H:,$$?P,?6-P:%HE}:,$$?,K W6-z"!'@"6-P:'@,|"!'@"6-P:'@,~E-6.# NuE}mber of mines lost/discovered : 56-&? A E6-C6-+,$+,$P:H:,$+$@%A$,,NE}(@q6. Safries earned in mining : w6- A  6-%$@W!6-P:&H:,$$?0,?6-P:%H:E},$$?,K W6-B"!'@"6-P:'@,D"!'@"6-P:'@,FD,6." Number of E}factories lost/built : 46-&> A D6-JC6-+,$+,$P:H:,$+$@P%AP$,,N(@E}s6. Safries earned in industry : y6- A T 6-%$(@($'6@ '67B:,%E}@,.=:,!(@(&$l;16.'How many Safries do you want to spend ; A;16.'How many of tE}he people do you want to ; A A@ 4A@' 6-A:,' )=:,0A@(@E}? $ A@ 4ApK6-?7@<@,4Y)7@<@,4yK6-@E}(@? $9%6.How many acres do you want / A9 A@F 6-$!)6.***You only have E}/6-9 A <'F A 6-&6-%16. Acres now owned : $6-. A 1$A-6.#How many acres do yE}ou want to sell 7 AA A@ F 6-$!)6.***You only have /6-9 A <'F A 6-%6-&E} A 0/")"%6-/ A"D)6-P:H:,$'@%'@,86-P:$+',,>!D6-E}W!6-P:&$H:,$?,?6-P:%H:,$$?@,K W6-I(@96.$ Acres of farmablE}e land this year : ?6-I A w/6-P:&H:,$@%'+%?,,$A6-$+!,g6. Safries earned frE}om farming : m6-w A  6-%$ a 6-&! *@)6-%P6. STARVATION!! PEOPLE STARVED = WE}6-6a A  h!-6-%P:H:,$'@,P6. FOOD SURPLUS !! NEW BORN : X6-&b A h6- kE}@+6-P:H:,$$?,36-&[6.! People died of natural causes : a6-k A   @A0E} $ (@(@$(@^6.3 OH NO! TOO MANY HAVE DIED...REVOLUTION STARTED! k6-6@ u A  E}A5 ](@(@$(@C6. OH NO! ACRAGE LEFT = I6-S A ] A5 (@(@F}$(@`6.5 CONGRATULATIONS! YOU HAVE RULED UNTIL RETIREMENT! m6-6@ w A  A5 *** FIND RATINGF} *** 16-@ @'6-@1 A6 __6-&+&,'@&+AP&&,'@&+A&&,'A%+%F},'@%+%,'A nM6-%+@D&,'@%+&,'A%+&,'A %'A%'BV6-P:,b!@n6F}-A  @6-@# #A7-@"# N(@(@N6.. HISTORIANS FIND YOU TF}O BE A RULER !$HH67@)%+@&B:,,'@<@8&+@&B:,,'@,..6-6@  A F}tHHHORRID,POOR,BAD,FEEBLE,FAIR,N AVERAGE,N OKAY ,GOOD,GREAT,PERFECT"H:, ?" AA"H:, ?F}" AB"H:, ?" AC$16-P:H:,$'@%@$'@,<(@W6. ##F}# DROUGHT ! ### d6-6@ n A {6-6@ A%hy!6-P:H:,$$@%,,(@L6. ### RAINY F}SEASON ! ### Y6-6@ c A o6-@y A%o6-P:H:,$'@,*(@W6.& ### EARTHQUAKE !F } ### PEOPLE LOST : ]6-g A o6-&3'6-P:H:,$'@%@,-!36-:6. Loss of acrage :F } %6-/ A 76-&:$ D:SAFLAND.BAS-P:H:,$'@%@,-!36-:6. Loss of acrage :D2ANU>#@@K:>OPENS KEYBOARD FOR INPUT %;A,%J }SET UP STRING AREA$6-$INITIALIZE COUNTER A INPUT THE STRING( PRINT THE STRING2 @ J }DO IT AGAINd##*** LONG INPUT SUBROUTINE ***i 6.nE)@EPLACES THE ATASCII VALUE OF THE KEY PRESSED INTJ}O As3A&A03CHECKS FOR THE DELETE KEYt/"A/CAN'T DELETE ANYTHINGuN6-&@"J}$6.. A`NCHECKS FOR ZERO STRING LENGTHx:6.7@<, A`:DELETE THE LAST CHARACTER-"AUJ}($-CHECKS FOR RETURN KEY6-%@67,.>:,/ (>:,/SHOW CHARACTERS AS THEY ARE TYPED AJ} D:STRINGS.BAS RETURN KEY6-%@67,.>:,/ (>:,/SHOW CHARACTERS AS THEY ARE TYPED AH}~4HXYQQXYPQWIIQSTICQCAPTDRAWISNQ1QCCQLQ1LQ1TIMZGRAQ13CNSQ3Q8SAMPLQQQQN}4INSTLOOB@@ N}@N} !"#$%&'()*+,N}-./01 BE 6-6---51%8,$%8,$="%A E NN}'6-%8,$+&,(6-%8,$+&,06-%8-N1%8,$%8,$# "%  (' 6-6- 2 -N}-</1%8,$%8,$$+(,%''+ / P- 1%8,$%8,$%%) - d68,-8,%i1 6N}-6-6-%8,%6-%8,)- 1 n5 +(,%6-$A$%16-@&+8,$,5 s)6-%8,$6-%8,$N}!% ) x; +(,%"6-$A$%@ 76-@&+8,$,;  8,"  6-6-  >,&@N}/%@-,&@;/%@>$, 6-$%6-6-6-1Y-A#2AC&;2A&N}@E AI U6-APY 6L-@CA0!232&@C7 B-6L2@ 2N}  JAdAUT<<F:Ad,"AU*R:,"*R:,"*T:,"*T:,"A@YAdAU^<  (N}( Play again?()@16.>:,94Y<%h- Ap(!( Running MENU-%D1:MENUr*('(ՠN}*4 6-6-6-6-!6-'6-10%4$6-@6-@E 1"APP% 6-N }%!6-%%6-@ AP" 6-+(,%6- "6- 6-R:,APpT:,"*"@ N!} 6-% AP`"%1 -  %! '6-1 AP`@w N"}=36-+!@* @,&+!@* @,=6-%$ !6-  6-QG6-+"@ )"@)"@N#},&+"@)"@)"@,Q6-%$ !6-  6-  1!2A !2 N$}% 6- AP`p$2@P !2$$X7 (}AR@)0@70@b$$( N%} ***** TAKE 5 *****lR(R(G The object of the game is to either capture 5 pairs of your opponentsvUU(Lplaying pieN&}ces or get 5 of your piecesin a row (horizontally, vertically, orSS(Kdiagonally). Captures can only be made by surroN'}unding exactly 2 of yourLL(Dopponent's pieces with your own. A capture does NOT occur if your44(,opponent places tN(}wo pieces between yours.S(S(H You use the joysticks to position a cursor, then press the button toUU(Lplace yN)}our piece on the board. At theend of the game, the board will remainQQ(Ion the screen until you hit a key, move a joN*}ystick, or press a button.E-@@#8( HIT ANY KEY TO CONTINUEE)@V (}V(H Two or four peN+}ople may play this game. If four play, break up intoPP(Htwo teams. Players 1 and 3 are on thesame team and alternateN,} turns with(players 2 and 4. %(%( An example game follows:?[-@@#8( HIT ANY KEY TO CONTINN-}UEE)@WAR[ '6-6-@'6-@36-@?6-@K6-@W6-@N.}c6-@o6-@{6-@ 6-@6-@6-@6-@06-@H6-@'{6-A0N/}6-AP'6-A36-B?6-AK6-ApW6-A`c6-BPo6-B`{6-BP.'11;@,9N0}@,9@,9@,8'N 68,-68,-68,-'68,-068,-:68,-6D68,-6N68,-6:'N 68,-66N1}8,-6 68,-)68,-268,-;68,-D68,-N68,-6<' 68,-68,-B'k#@@K:' *(N2}I(Do you need instructions?V)@_6.>:,g4Yk L'c  (*(How many players? (2 or 4)7)@E6-N3}&@Hc@*@B`t'XAR@(((*(Player6"@N( 1 is RED and usesX B N4}~'(((s 1 and 3 are RED and use 'R( joystick 1.(#(Player/"@H( 2 is BLUE and usesR B@N5}'(((s 2 and 4 are BLUE and use 'E( joystick 2.(8( HIT ANY KEY TO BEGINE)@') +%0N6}0!0)0''9-@ ,$%%/$%/,$%9/$%'%2A !2% N7}' 6- :'+000'0:?-@ ,$%/$/,$%?/$%@:%2AN8} !2% :1AR@1( SAMPLE GAME:-A :2AV!AW@N9}2( Basic moves:G 6-6-@E!6-@$% +6-76-@@C6-@ G :G 6-6-@U!6-@$N:}% +6-76-@5C6-@G :ZAV!AW@8(Ġ>6-J6-@0V6-@N;}Z :!6-@56- ! ; 6-6-@v  ;-@P ;'6-@@6-@ # ' N<};56-@ 6-@v# 1-A5 ;8AV!AW@8( Basic moves $;G 6-6-@N=}@!6-@ % +6-76-@PC6-@$G .;TAV!AW@2( Ϡ 86-D6-@5PN>}6-@T 8;2AV!AW@2( Basic movesB;G 6-6-@@!6-@$% +6-76-@5C6-N?}@$G L;TAV!AW@2( Ġӡ 86-D6-@`P6-@$T a  6-6-@!-%) =AU%@K-AO U6-NA}[6-a6-> 6-+(, $ N$a(+00@%0($ D:TAKE 5.BASK-AO U6-Lc 3 AQIOQANA1Q1I1 RC} 0@'(} ANIMAL!($('(R-(% In this game, you RD}will think of anR( animal and I will ask you YES/NO(D8(0questions in trying to guess what youranimal is.;(>(A(D(2GRE}G;@0,;@0,;@u,;@u,;@,;@,<*&(Have you thought of an animal*F4LARF}P4N@`Z2 0Y((Please answer YES or NO.2 @`d6-A#n " (((x# "(RG} 4N" AP2 0Y((Please answer YES or NO.2 A "!6- A  #O:RH},"(IS IT  0YA+%(Great! I guessed your animal.((+()%(Would you like to play again)RI} 4Y(} @`2 0N((Please answer Y S or NO.2 A\( (3(%O.K. Please rewind the tape and pRJ}ress\($both play and record on the recorder(Have you done this4NA@3 0Y)(Please answer RK}YES or NO. 3 A@Ad@4$( ($(Thank you for playing.",2 0N((Please answer Y S or NRL}O.2 Ap6!(What was your animal!@;'(What is a good question to tell7( from ;J.*(And for RM} the answer would be.Tc0Y*0N7(!All questions must have YES or NOY(ansers. Re-enter the questionc A RN}^0 (}A (!(0( DATA h# ""r( DATA ,|% 4Y(,6-% ARO} (,6-( DATA , 4Y(6, A0(,6**( 1000 DATA %@,%@RP} (CONT*-'AB@*&'AB@'A A\ (} ((9(%Thank yoRQ}u for the information. I willL(remember that.O(R(\ A #B A" ( A @`RR}1002,10002&&DOES IT HAVE WINGS,-10000,-10001'A SPARROW'A HOUSE CAT D:TYPEIT.BAS1'A SPARROW'RS}A HOUSE CAT'A FIREFLY' A FISH'AN EARTHWORM' A FLY' A SNAKE'A RHINNO'AN ELEPHANT'A MONKEYRT}'A CHICKEN' A MOUSE'A CHEATAH' A SHARK'A BLUE WHALE A SKUNK ' A TICK!'A PILLBUGMONKEYPw#$\PROGPNTLINCOUNBYTTOTACHECKSUdHARVEY WALLBANVV}GERnCASSETTE MAKER PROGRAMx;A,6-@6-A  A %6-%@%-@@VW}"67,.>:,6-%@6-% (LINE:""AP (BAD CHECKSUM: LINE  & VX} F:A,"@A@(BAD DATA: LINE &##@@A(C:##67@<@,.>:VY},##67@<@,.>:@,##67@<@,.>:AP,##67@<@,.>:@Q, @VZ}<<255,255,0,52,216,57,76,71,52,112,112,112,112,71,7,15600058,7,7,7,7,7,7,7,7,7,112,112,70,27,52,2054BB65,3V[},52,242,225,226,226,233,244,243,218,211,192,243,227,4904AA239,242,229,218,208,208,208,208,103,97,109,101,0,0,111,7185AV\}A118,101,114,128,112,114,101,115,115,0,0,115,116,97,114,8645BB116,128,216,32,101,228,169,211,141,35,52,169,3,141,245,106V]}32$>>57,169,208,141,43,52,141,44,52,141,45,52,141,46,52,12016.==169,60,141,228,57,141,26,2,32,220,56,160,2,32,231,13573V^}8<<56,136,16,250,169,3,141,48,2,169,52,141,49,2,169,14976B@@4,141,111,2,169,40,141,219,57,169,196,141,220,57,169,16812V_}L@@60,141,221,57,141,2,208,169,184,141,222,57,141,3,208,18767V@@169,122,141,217,57,169,55,141,218,57,169,46,141,47,2,205V`}18`??169,3,141,29,208,169,48,141,7,212,169,150,141,198,2,22305j??169,72,141,199,2,169,24,141,192,2,169,152,141,193,2,24Va}073t??169,52,141,194,2,169,196,141,195,2,169,1,141,233,57,25935~??162,53,160,204,169,7,32,92,228,169,137,141,38,2,169,2Vb}7698<<53,141,39,2,169,153,141,40,2,169,53,141,41,2,169,29013==1,141,25,2,169,0,141,30,208,141,246,57,141,227,57,30599Vc}AA141,223,57,141,224,57,141,14,210,162,3,157,229,57,157,32572@@247,57,157,251,57,157,255,57,157,3,58,202,16,238,170,3Vd}4654@@157,128,49,157,0,50,232,208,247,169,255,157,0,51,232,36746??208,250,232,138,41,1,170,189,219,57,74,8,205,11,212Ve},38761@@208,251,141,10,212,40,144,3,141,10,212,173,10,210,41,40567AA246,141,26,208,160,10,169,0,157,15,208,141,10,212Vf},173,42443AA10,210,41,246,141,26,208,136,208,237,173,200,2,141,26,44448==208,173,245,57,240,8,173,246,57,16,3,76,99,5Vg}2,173,46274==31,208,41,1,208,177,76,71,52,173,228,57,201,2,240,48040<<3,206,228,57,169,1,141,25,2,96,173,228,57,141,2Vh}6,49593??2,238,219,57,206,220,57,238,221,57,173,221,57,141,2,51702 BB208,206,222,57,173,222,57,141,3,208,238,227,57,17Vi}3,227,54121==57,41,1,170,189,207,57,141,0,210,169,8,141,223,57,55792@@96,173,246,57,208,60,173,245,57,208,55,32,220,5Vj}6,162,57840(<<0,142,1,210,142,3,210,142,5,210,142,7,210,142,24,594302882,142,25,2,142,26,2,189,47,52,48,7,157,92,58,604Vk}21<==232,76,240,53,162,0,189,58,52,48,7,157,151,58,232,62136F??76,254,53,76,189,56,173,12,208,141,236,57,173,4,208,6405Vl}2P>>141,237,57,173,226,57,48,9,206,226,57,74,9,160,141,65873Z<<7,210,173,223,57,48,8,206,223,57,9,192,141,1,210,67638dVm}>>173,224,57,48,8,206,224,57,9,128,141,3,210,173,225,69524nAA57,238,225,57,238,225,57,238,225,57,141,4,210,173,246,71915Vn}x>>57,240,26,238,246,57,238,192,2,238,192,2,173,192,2,74010>>10,10,10,141,2,210,169,136,141,3,210,76,189,56,173,75546Vo}@@229,57,240,13,206,229,57,173,219,57,201,28,240,3,206,77704BB219,57,173,230,57,240,13,206,230,57,173,220,57,201,204,8Vp}0041AA240,3,238,220,57,173,231,57,240,16,206,231,57,173,221,82404??57,141,2,208,201,39,240,3,206,221,57,173,232,57,24Vq}0,84481@@16,206,232,57,173,222,57,141,3,208,201,208,240,3,238,86686??222,57,169,0,133,77,141,234,57,141,235,57,173,12Vr}0,2,88504==201,15,240,16,165,20,41,7,208,10,169,16,141,2,210,89965==169,4,141,224,57,173,120,2,56,233,5,10,170,165,20Vs},91514CC106,106,106,106,189,160,57,144,3,189,182,57,133,128,189,93369>>161,57,144,3,189,183,57,133,129,162,3,78,120,2Vt},176,94966??16,189,209,57,240,3,141,234,57,189,213,57,240,3,141,96955??235,57,202,16,232,173,236,57,201,12,208,9,206,Vu}35,52,98886>>206,245,57,238,246,57,41,4,240,8,238,217,57,169,0,100909>>141,234,57,173,236,57,41,8,240,8,206,217,57,16Vv}9,0,102753??141,234,57,24,173,219,57,105,4,74,205,218,57,144,9,104474"AA206,35,52,206,245,57,238,246,57,173,218,57,105Vw},10,10,106389,@@205,220,57,144,9,206,35,52,206,245,57,238,246,57,24,1083906BB173,217,57,109,234,57,141,217,57,141,0,208Vx},24,173,218,110416@@@57,109,235,57,141,218,57,170,160,0,177,128,157,0,50,112132JCC232,200,192,14,208,245,173,132,2,205,Vy}233,57,141,233,57,114456T@@176,63,173,234,57,13,235,57,208,5,238,233,57,208,50,116463^AA169,64,141,225,57,169,4,141,5,2Vz}10,238,244,57,173,244,118604h??57,41,3,170,173,234,57,10,157,255,57,173,235,57,10,120293r??157,3,58,24,173,217,57,105,3V{},157,247,57,173,218,57,121999|AA105,8,157,251,57,169,0,170,157,128,49,232,16,250,162,123910==3,189,255,57,29,3,58,240,V|}127,189,251,57,24,125,3,125520@@58,157,251,57,168,10,105,2,205,220,57,144,12,32,208,127206@@56,109,230,57,141,230,57,V}}76,31,56,233,12,205,219,57,128975@@176,9,32,208,56,109,229,57,141,229,57,185,128,49,29,130669@@34,57,153,128,49,185,1V~}29,49,29,34,57,153,129,49,189,132093>>0,208,160,0,106,144,3,76,195,56,200,192,4,208,245,133890BB24,189,247,57,125,255V},57,157,247,57,157,4,208,205,222,136101@@57,144,12,32,208,56,109,232,57,141,232,57,76,111,56,137681@@233,6,205,221,57V},176,9,32,208,56,109,231,57,141,231,139653;;57,202,48,3,76,232,55,162,3,169,0,29,255,57,29,141030;;3,58,202,16,247,20V}1,0,208,3,141,5,210,160,0,78,142562??237,57,144,40,32,10,57,185,238,57,72,32,231,56,104,144114??168,240,23,162,3,254,V}43,52,189,43,52,201,218,208,8,145978CC169,208,157,43,52,202,16,238,136,208,233,76,189,56,200,148161??192,3,208,206,14V}1,30,208,76,98,228,138,72,32,10,57,149860??32,231,56,104,170,76,111,56,169,0,157,255,57,157,3,151494&>>58,24,169,8,96,V}162,200,169,0,157,6,58,202,208,250,1532610BB96,174,10,210,224,200,176,249,189,7,58,208,244,173,10,155489:@@210,41,15,20V}1,10,176,247,153,238,57,25,204,57,157,7,157287D??58,138,153,241,57,96,169,0,190,241,57,157,7,58,173,159082N==10,210,41,V}31,9,16,141,6,210,169,30,141,226,57,96,160475X883,12,48,192,0,0,18,10,60,116,60,28,30,62,63,161177b88126,0,0,11,10,60,1V}16,60,28,30,62,62,247,0,0,161989l<<72,80,60,46,60,56,120,124,252,126,0,0,208,80,60,163333v;;46,60,56,120,124,124,239,0,V}0,66,36,60,20,60,24,164368<<60,126,126,231,0,0,66,36,60,40,60,24,60,126,126,16550977231,0,0,68,36,60,20,60,24,60,126,V}254,7,0,0,166455::34,36,60,40,60,24,60,126,127,224,0,0,68,36,60,1674108860,60,24,60,102,254,7,0,0,34,36,60,60,60,24,1V}682518860,102,127,224,0,0,62,57,62,57,62,57,0,0,38,1691599957,38,57,38,57,0,0,110,57,134,57,86,57,74,57,170038667V}4,57,74,57,0,0,50,57,50,57,50,57,0,0,122,1707438857,146,57,98,57,16,80,144,38,41,1,255,0,0,0,171733110,1,255,226,2,22V}7,2,0,52,0,0,0,0,0,0,172498D:WALLBANG.BAS8857,146,57,98,57,16,80,144,38,41,1,255,0,0,0,171733110,1,255,226,2,22T2 .NbOFNUMBEKEd1 A01AUDCTL DEMO BY JERRY WHITE 6/2/82nM-Z}@327 MTURN OFF ALL SOUNDSxB('(ENTER A NUMBER BETWEEN 0 ANDB(255 THEN PRESS Z}#AdAU A #* 6-P:,* )!AUA UB7`AC'B7b@9B7dZ}@KB7fA!UC MAJOR/-B7aB7g@+Ab/ **DISTORTION=10 VOLUME=2 (10*16+2=16Z}2)B7hAUDCTL> -AC@`6@,B7`0 >SLIDE SOUNDO((PRESS TO END=(PRESSZ} ANOTHER KEY TO CONTINUEOAdAUH6-F:Ad,"@(0@@3(=(BASICE(ISH**AZ}U)F:B2y,@A) A)WHATCHA WANT? PRESSA KEY!Y +'0@@ 9@@Z}<(YCLEAR SCREEN/LEFT MARGIN=5$($(This program was designed%(%(to demonstrate the effects$($(made Z}possible by altering%(%(the Audio Control Register$($(at decimal location 53768"((($d208).$ D:Z}AUDCTL.BAS altering%(%(the Audio Control Register$($(at decimal location 53768"((($d208).$ D:X /