' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#07#0:"4<*55**5*%5)1)1)1)'#0/#0*5*75**5*:5/#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (   ՠ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*`,IX%: G$;:G$(7)G$"":.G$(7):V24:33::G$"PRINTER";::PRİ184i34,1:35,21:ST%,1:FL%,0:PF%,0:PR:"TRACK: ";:NM%,TK%:HX%:" SECTOR: ";:NM%,SE%:HX%:" VOLUME: "(VO%)X025516LI%:NM%,X:HX%:5:"-";:146#:2::">>EDIT<<";:CC%0`:12:"MODE";:112:28:"CURSOR";::" ";:NM%,PT%:HX%24:11:"PRESS TO EXIT";ED%1::ST%,0:MV%:HA%49,41G$;:DV%DV%:DR%,DV%1:G$;:HA%1:FM%,HA%:111G$;:IX%IX%:HF%FI%0:130FI%1:130,FI%2:130;FI%3:130JFI%4:130YFI%5:130_zCR%CR%1:CR%2CR%0CH%,CR%:MV%:LN%LN%1:LN%2LN%0LG%,LN%:G$;:HA%2:FM%,HA%:111HA%1ı:2::"++EDIT++";:CC%1KY%143,165,69,169,69,138,131,132,133,134,135,136,137,69,69,69,143,165,69,169,69,69:117y|KY%28FX%0:SF%,FX%:TT%}KY%36FX%1:SF%,FX%:TT%~KY%33FX%2:SF%,FX%:TT%KY%34İ54KY%21İ58117FL%,FI%:TT%:MV%:)0İ77vT0%TK%:SO%SE%Dw(CH%)2FI%2HA%2FT%İ75:121Lx15\yKY%KY%170zKY%22KY%KY%22:KY%142,194,190,149,145,69,153,151,50,54,58,163,63,167,171,155,140,178,179,69,152,69,182,183,69,193,69,69,69,69,69:117X{KY%0KY%23ĴWR%Ģ24:31::"??WRITE??"G$G$G$;::16368,0:75:KY%14119Gk110]lX140:"=";::fmTT%onIO%zoMV%:pHA%1ıq23:20:FX%0ĺ"SCRN";rFX%1ğ:"SCRN";sFX%2Ğ:"SCRN";t:u216,0:ED%0:NS%0:0:0:TT%:(EF%$ `ӠƠL` i-@i%`iɀi@!ɠ88  ``ɠ` hhL`, d` J`,  J` % 2 `ɀ0ɠ` : $  J S:;`% "$  J JL  2  JLp  % ""`֠HI HI HI :"$20 FOR 1 YR"::86]23:"INSERT DISK -- PRESS ANY KEY TO CONTINUE";:57:23:958:90e HIH#ȱH$!`" ``3!``LLcLLL=LL:L:L:L:L:L:L:L:,&, $:B132:"-";:::6:"A DISK EDITING UTILITY PROGRAM"5:B132:"-";::::5:"FOR INSIDE INFO ON DISK BACK-UP":5:"AND TIPS ON DOS AND PROGRAMMING":14:"SUBSCRIBE TO:"::11:"'HARDCORE COMPUTING'"::4:"THE MAGAZINE FOR APPLE ENTHUSIASTS":15768:F%769:D1%770:P1%839:N1%771:O1%842:V%(X%1)256:A$"0123456789ABCDEF":D$(7):B$(8):L%773:B1%2:867:"D I S K E D I T V E R S I O N 2 . 5":" COPYRIGHT 1981 (C) HARDCORE COMPUTING"::" 14404 EAST 'D' ST TACOMA, WA 98445"::5URN TO CONTINUE";:57$35,24:91C%T%V%B%A%W%X%Y%A1%R%Z%Q%E1%F1%I%G%O%M%:07775:A%1:I%1:E%1:K%1:G1%2:B%2:X%812:Y%836:A1%833:L1%803:M1%804:I1%806:H1%807:J%814:C1%815:D%772:L%773:Q1%845qK1%816:J1%827:U%830:H%216,0:59$D$:E%E%:D%,E%:91x24:31::"BINARY";::868:34,1:35,21:21:::58,W%:59,(X%1):R%0:Z%20B1Z%:(59)(X%1)1ĺ:R%1:BZ%3BZ%R%Ă:162P1%::57:C%155163Z%1:158"END OF BUFFER PRESS RETC%ıZ14:5:R%C%:"PRINT USING 80 COLUMNS (Y/N) ";::"N"B$;::5:C$"Y"B1%1eCR%:u1002:15524:31::"CATALOG";::34,1:35,21:::(4)"CATALOG,D"(M1%)",S"(L1%)16::O1%:35,24:"PRESS ANY KEY TO CONTINUE ";:57:91 ;:1::"SLOT";::6:62:C%15ī876C%1C%7143IL1%,C%16:87~J%,G1%:24:31::D$">WRITE<";::72:J%,K%:87::1002:34,1:35,21::12:" WHICH SLOT IS YOUR PRINTER USING? 1-7 ";:E1%1:35,24:62:C%15ıC%7İ55:148 :C%15C%R%:141-Z%C%:4:70:F1%141<C%25141\R%C%:62:C%15C%R%:141Z%C%:4:70:C%0C%255İ92:135B%(C%13)2:A%(C%((B%2)13))31:W%C%:8724:31::D$">READ<";::" ";:72#E1%1:24:31::D$"SET SLOT"KY%128İ960:1180"ED%ı<IX%KY%9İ960:1180B_ CALCULATE HEX/DEC NO. ~ED%IX%KY%A1%16A2%: KY%A1%10A2%: GET TRACK VALUE NS%1:23:1::"TRK";::6IX%:1180:KY%15KY%TK%:1370(IX%KY%21370V%:190$j PROCESS HEX/DEC INPUT LtKY%KY%176:KY%0KY%22KY%128:z~KY%9KY%KY%7:KY%10KY%15KY%128: GET KEY WITH DEFAULT NS%İ90:1210 GET KEY WITHOUT DEFAULT 150:ED%KY%160ıKY%141ı1140(BF%XL):HH%:L:2$ GET KEY WITHOUT PROMPT R.KY%(16384):KY%1281070b816368,0:yB HANDLE AN ERROR LA1%(ER%):34,1:35,21::12:12:A1%16ĺ"UNABLE TO WRITE":1120V"DISK DRIVE ERROR"`G$G$;:X11000::EF%,0:35,24:MA1%(1152)176:A2%(1153)176:A2%1İ1290:A1%KY%:A2%(1154)176:A2%1İ1290:eKY%A1%:{ FOR HEX NUMBER KY%(1153):1140:A1%KY%:KY%(1154):1140:A2%KY%:KY%A1%16A2%: PRINT 1 LINE OF HARDCOPY " ";:L015LI%:NM%,LOWER RIGHT CORNER 5VT%21HT%25HT%25:PT%255S PRINT NEW CURSOR VALUE 30:">":23:35:NM%,PT%:H1%:ED%ġ:1740 MAKE NOISE AND RETURN G$G$;: FIND BINARY START (1152)1641030 FOR DECIMAL NUMBER W":15:"$20 FOR 1 YR"::108d'23:"INSERT DISK -- PRESS ANY KEY TO CONTINUE";:75:23:958:110'1:" 68N":0,63998:0D132:"-";:::6:"A DISK EDITING UTILITY PROGRAM"u&5:X132:"-";::::5:"FOR INSIDE INFO ON DISK BACK-UP"&5:"AND TIPS ON DOS AND PROGRAMMING":14:"SUBSCRIBE TO:"::11:"'HARDCORE COMPUTING'":'4:"THE MAGAZINE FOR APPLE ENTHUSIASTS771:FR%842:BF%(NM%1)256:DV%(DR%)1a%A$"0123456789ABCDEF":G$(7):B$(8):PF%773:LI%2j%108%:"D I S K E D I T V E R S I O N 2 . 7":" COPYRIGHT 1981 (C) HARDCORE COMPUTING":4&" 14404 EAST 'D' ST TACOMA, WA 98445"::5:X%1:HA%1:FT%1:RD%1:WR%2:VT%2:CR%2[$TH%775:CS%776:CH%777:CF%778:LG%779:TT%845$NM%812:HH%836:HX%833:SL%803:DR%804:TR%806:SC%774:CM%814:ER%815:ST%772:PF%773:H1%848)%VO%816:IO%827:MV%830:FM%768:FL%769:EF%770:BI%839:HF%160A2%1:197 #KY%208201/#70:L%KY%=#PRİ184S#:KY%L%:PR:195#"END OF BUFFER PRESS RETURN TO CONTINUE";:75#KY%208205#:35,24:0:111#KY%FX%BF%VT%HT%PT%NM%HH%HX%A1%A2%ED%NS%IX%HA%FI%SE%TK%'$HT:ST%,FT%:111L"24:33::"BINARY";::868:34,1:35,21:21:::KY%PT%e"58,KY%:59,(NM%1)v"A1%0:A2%20"X1A2%:(59)(NM%1):A1%1:(1152)160ĺ:208"A1%ĺ::208"BI%""75:KY%155210"KY%141196#KY%NT USING 80 COLUMNS (Y/N) ";::"N"B$;::14:N$"Y"LI%1H!PRA1%:X!1002:192!24:33::"CATALOG";::34,1:35,21:::(4)"CATALOG,D"(DR%)",S"(SL%)16::FR%:35,24:"PRESS ANY KEY TO CONTINUE ";:75:111!216,0:77"G$;:FT%FT%SL%,KY%16:TT%:N CM%,WR%:24:33::G$">WRITE<";::93:CM%,RD%:TT%:l ::103,1:104,8:1002: 34,1:35,21::12:" WHICH SLOT IS YOUR PRINTER USING? 1-7 ";:NS%1:83:KY%15ı KY%7İ69:184 KY%ı 14:5:A1%KY%;!"PRI1771A2%KY%:13:91:KY%0KY%255ČTT%:171xVT%(KY%13)2:HT%(KY%((VT%2)13))31:PT%KY%:CS%,PT%:TT%:24:33::G$">READ<";::" ";:93NS%1:24:33::G$"?SLOT??";:1::"SLOT";::6:83:KY%15ČTT%:KY%1KY%7179 1:TK%35ĹTR%,TK%:1090TK%0:TR%,TK%:109NS%1:24:33::G$"CURSOR";::868:23:31::"CRS";::36IX%:83:KY%15ČTT%:A1%KY%:13:83:KY%15KY%A1%:177A2%KY%:13:91:IX%177KY%25177A1%KY%:83:KY%15KY%A1%:-FM%,1:74:FM%,2:74:(16384)1551626:XH35,24:0:19lSE%SE%1:SE%1ĹSC%,SE%:109SE%15:SC%,SE%TK%TK%1:TK%1ĹTR%,TK%:109TK%34:TR%,TK%:109SE%SE%1:SE%16ĹSC%,SE%:109SE%0:SC%,SE%TK%TK%TK%35ĹTR%,TK%:1580/+ TK%0:TR%,TK%:1580J+( *** JUMP CURSOR *** +2 NS%1:24:33::G$"CURSOR";::868:23:31::"CRS";::36IX%:1180:KY%15ČTT%:+< A1%KY%:70:1180:KY%15KY%A1%:2680+F A2%KY%:70:1280:IX%2680,P KY%2526E%1ĹSC%,SE%:1580(* SE%15:SC%,SE%C* DECREMENT TRACK NO. h* TK%TK%1:TK%1ĹTR%,TK%:1580* TK%34:TR%,TK%:1580* INCREMENT SECTOR NO. * SE%SE%1:SE%16ĹSC%,SE%:1580* SE%0:SC%,SE%* INCREMENT TRACK NO. + TK%TK%1:16LI%:NM%,X:HX%:5:"-";V)~ SWITCH BETWEEN HEX AND ASCII AND CALL PRINT A LINE ) FM%,1:1050:FM%,2:1050:(16384)1552470) :X) RESET TEXT WINDOW AND TURN OFF PRINTER ) 35,24:0:190) DECREMENT SECTOR NO. * SE%SE%1:SOW (B 34,1:35,21:g(L TURN OFF FILTER, SELECT FILTER NUMBER, SET PRINTER FLAG, TURN ON PRINTER (V ST%,1:FL%,0:PF%,0:PR:(` PRINT TRK, SCT AND VOL (j "TRACK: ";:NM%,TK%:HX%:" SECTOR: ";:NM%,SE%:HX%:" VOLUME: "(VO%))t X0255EN DISPLAY )'G$;:HA%1:FM%,HA%:1620G' SELECT HEX/DEC PROMPTS d'G$;:IX%IX%:HF%,IX%:}' TURN SOUND ON/OFF ' G$;:G$(7)G$"":' G$(7):'$ *** PRINT HARDCOPY *** '. 24:33::G$"PRINTER";::PRİ2800(8 SET TEXT WINDODE";:1640:28:"CURSOR";::" ";:NM%,PT%:HX%T&24:11:"PRESS TO EXIT";& SET EDIT FLAG (ED%), TURN OFF FILTER (ST%=0) &ED%1::ST%,0:MV%:HA%680,550& SWITCH ACTIVE DRIVE &G$;:DV%DV%:DR%,DV%1:& ' SET HEX SCREM %>LN%LN%1:LN%2LN%0,%HLG%,LN%:G%R SELECT ASCII FORMAT e%\G$;:HA%2:FM%,HA%:1620%f ++EDIT++ MODE ENTRY POINT %pHA%1ı%z:2::"++EDIT++";:CC%1:2200% EDIT MODE ENTRY POINT %:2::">>EDIT<<";:CC%00&:12:"M910$ SELECT FILTER #5 +$FI%4:1910C$ SELECT FILTER #6 S$FI%5:1910k$ SELECT FILTER #7 $ ONLY 6 FILTERS AT THIS TIME $ $ CRUNCH SCREEN DISPLAY $ CR%CR%1:CR%2CR%0$*CH%,CR%:MV%:%4 SELECT DOS, PASCAL OR CP/ RIGHT #XKY%21İ800##b1700J#l POKE FILTER NO. & PRINT PROMPTS c#vFL%,FI%:TT%:MV%:{# SELECT FILTER #1 #FI%0:1910# SELECT FILTER #2 #FI%1:1910# SELECT FILTER #3 #FI%2:1910# SELECT FILTER #4 $FI%3:120,960,2580,960,960:17000" SET NORMAL MODE Q"KY%28FX%0:SF%,FX%:TT%j" SET FLASHING MODE "KY%36FX%1:SF%,FX%:TT%"& SET INVERSE MODE "0KY%33FX%2:SF%,FX%:TT%": MOVE CURSOR LEFT "DKY%34İ750#N MOVE CURSORY%2140,2930,2870,2250,2190,960,2320,2280,700,750,800,2490,860,2550,2610,2350,2110,2700,2720,960,2300,960,2760,2780,960,2910,960,960,960,960,960:1700"KY%0KY%23ĴKY%2160,2520,960,2580,960,2080,1930,1950,1970,1990,2010,2030,2060,960,960,960,2160,25  COMMAND PARSER F 216,0:ED%0:NS%0:0:0:TT%:(EF%)0İ1100g  SAVE CURRENT TRACK/SECTOR { T0%TK%:SO%SE%  IF FILTER #3 THEN BLANK CURSOR (CH%)2FI%2HA%2FT%İ1070:1760 110 KY%KY%170!KY%22KY%KY%22:K40:"=";::)" PRINT SCREEN PROMPTS 2,TT%P6 READ OR WRITE A SECTOR Y@IO%wJ PRINT BUFFER TO SCREEN TMV%:^ PRINT EDIT MODE PROMPTS hHA%1ır23:20:FX%0ĺ"SCRN";|FX%1ğ:"SCRN";FX%2Ğ:"SCRN";:15ĺG$;:14102 SAVE OLD SCT#, POKE NEW SCT# hSO%SE%:SE%KY%:SC%,SE%:23:11::"SCT";::TT% IF WRITE THEN LAST CHANCE (CM%)WR%Ģ24:31::"??WRITE??"G$G$G$;::16368,0:1070:KY%1411901600 PRINT 40 "="'S X1:"SCT";::16IX%:1180:KY%15KY%SE%:1510H CHECK FOR HEX I/O WIX%1510q SAVE KEY, PRINT IT A1%KY%:70:KY%11510 GET ANOTHER KEY 1180:KY%15KY%A1%:1510 CHECK FOR VALID SECTOR# A2%KY%:1280:KY%0KY%2KY%31370;<A1%KY%:70:1180:KY%15KY%A1%:1370MFA2%KY%:1280kP CHECK FOR VALID TRACK# ZKY%0KY%34ĺG$;:1310d SAVE OLD TRK#, POKE NEW TRK# nT0%TK%:TK%KY%:TR%,TK%:TT%x GET SECTOR VALUE /23:1::"TRK";:11:OM 1 TO 5"+*A140:SPACE$SPACE$" ":AA*A09:PO$(A):A^*:A324:A:1:SP$;:At+19:24:"SCORE:" +19:2:"TANK":"VALUE":4:"IS":3:"-=>";+22:14:"SOFTKEY TEXT INVADERS 2.0";*+4+24:2:"<-LEFT";:15:"RETURN = STOP"; ###### ".,) "** **** ******* ** **"P6) "******* **** ****** "q@)"## ## #### ## ## ### "J)"##### ## ## ## ## "T)" ### ## ## ### ## ## ### "^)" ### ## ## #### ## ##"h)GO%11000 0*ERR$"CHOOSE A NUMBER FRTINUE";:70:23:958:280:330:RC%:310=j1:" 80N"::032:"-";::::5:"FOR INSIDE INFO ON DISK BACK-UP":5:"AND TIPS ON DOS AND PROGRAMMING":14:"SUBSCRIBE TO:"::11:"'HARDCORE COMPUTING'"::4:"THE MAGAZINE FOR APPLE ENTHUSIASTS":15:"$20 FOR 1 YR"::260)`23:"INSERT DISK -- PRESS ANY KEY TO CON$"0123456789ABCDEF":0:0:DV%(DR%)1:260L:"D I S K V I E W V E R S I O N 1 . 1":" COPYRIGHT 1981 (C) HARDCORE COMPUTING"::" 14404 EAST 'D' ST TACOMA, WA 98445"::5:X132:"-";:::6:"A MINI-NIBBLER UTILITY PROGRAM"V5:X13N DOS AND PROGRAMMING":14:"SUBSCRIBE TO:"::11:"'HARDCORE COMPUTING'":6 4:"THE MAGAZINE FOR APPLE ENTHUSIASTS":15:"$20 FOR 1 YR"::15606 23:"INSERT DISK -- PRESS ANY KEY TO CONTINUE";:1070:23:958:16006 1:" 68N":0,63998:0 R S I O N 2 . 7":" COPYRIGHT 1981 (C) HARDCORE COMPUTING":5 " 14404 EAST 'D' ST TACOMA, WA 98445"::5:X132:"-";:::6:"A DISK EDITING UTILITY PROGRAM"5 5:X132:"-";::::5:"FOR INSIDE INFO ON DISK BACK-UP"K6 5:"AND TIPS O%806:SC%774:CM%814:ER%815:ST%772:PF%773:H1%8484 VO%816:IO%827:MV%830:FM%768:FL%769:EF%770:BI%839:HF%771:FR%842:BF%(NM%1)256:DV%(DR%)14 A$"0123456789ABCDEF":G$(7):B$(8):PF%773:LI%24 1560@5 :"D I S K E D I T V E VARIABLES W3 KY%FX%BF%VT%HT%PT%NM%HH%HX%A1%A2%ED%NS%IX%HA%FI%SE%TK%o3 DEFINE VARIABLES 3 HT%1:HA%1:FT%1:RD%1:WR%2:VT%2:CR%23 TH%775:CS%776:CH%777:CF%778:LG%779:TT%84554 NM%812:HH%836:HX%833:SL%803:DR%804:TRRINT SCREEN 2 980:L%KY%+2& PRİ2800B20 :KY%L%:PR:2950\2: PRINT EXIT MESSAGE 2D "END OF BUFFER PRESS RETURN TO CONTINUE";:10702N LAST CHANCE TO PRINT 2X KY%20831002b EXIT BINARY ROUTINE 2l :35,24:0:1620 3v POSITION:(59)(NM%1):A1%1:(1152)160ĺ:3140@1 A1%ĺ::3140I1 BI%O1 h1 KEY? = EXIT 1 1070:KY%15531801 KEY? = 20 LINES 1 KY%14129601 KEY? = 1 LINE 1 KY%160A2%1:29801 KY%2083030 2 P00T TURN FILTER ON/OFF <0^ G$;:FT%FT%:ST%,FT%:1620Z0h DISASSEMBLE THE BUFFER 0r 24:33::"BINARY";::868:34,1:35,21:21:::KY%PT%0| START AT CURSOR 0 58,KY%:59,(NM%1)0 A1%0:A2%200 START AT LAST BYTE -1 X1A2% COLUMNS (Y/N) ";::"N"B$;::90:N$"Y"LI%1=/" PRA1%:U/, CALL FOR CATALOG f/6 1002:2890/@ 24:33::"CATALOG";::34,1:35,21:::(4)"CATALOG,D"(DR%)",S"(SL%)16::FR%:35,24:"PRESS ANY KEY TO CONTINUE ";:1070:16200J 216,0:110REEN, RECONNECT DOS AND EXIT TO BASIC D. ::103,1:104,8:1002:]. FIND PRINTER SLOT . 34,1:35,21::12:" WHICH SLOT IS YOUR PRINTER USING? 1-7 ";:NS%1:1180:KY%15ı. KY%7İ960:2800. KY%ı. 14:5:A1%KY%0/ "PRINT USING 80" ";:1310!- CHANGE SLOT NO. k- NS%1:24:33::G$"?SLOT??";:1::"SLOT";::6:1180:KY%15ČTT%:- KY%1KY%72720- SL%,KY%16:TT%:- WRITE A TRACK/SECTOR - CM%,WR%:24:33::G$">WRITE<";::1310:CM%,RD%:TT%:&. CLEAR SC80*,Z A1%KY%:1180:KY%15KY%A1%:2680Z,d A2%KY%:70:1280:KY%0KY%255ČTT%:2610,n CALCULATE NEW CURSOR POSITION ,x VT%(KY%13)2:HT%(KY%((VT%2)13))31:PT%KY%:CS%,PT%:TT%:, READ A TRACK/SECTOR - 24:33::G$">READ<";:: ROW WINS **X TICTIC2$X* 39304X4 WINNER03>X> 3660PXH XA:YB:4000bXR XB:YB:4000tX\ XC:YB:4000Xf WINNERXp Xz ** BOTTOM ROW WINS **X TICTIC2X 3930X WINNER03X 3660X XA:YC:4000X XB:YC:4000 Y XCWINNER03Wv 3660'W XC:YA:40009W XC:YB:4000KW XC:YC:4000WW WINNER]W vW ** TOP ROW WINS **W TICTIC2W 3930W WINNER03W 3660W XA:YA:4000W XB:YA:4000W XC:YA:4000W WINNERW X ** MIDDLEV XA:YC:4000V WINNER&V 3730,V KV ** CENTER COLUMN WINS **YV TICTIC2cV 3930sV WINNER05}V 3660V XB:YA:4000V& XB:YB:4000V0 XB:YC:4000V: WINNERVD VN ** RIGHT COLUMN WINS **VX TICTIC2Vb 3930 Wl EFT SLASH WINS **U" TICTIC2)U, 39309U6 WINNER03CU@ 3660UUJ XC:YA:4000gUT XB:YB:4000yU^ XA:YC:4000Uh WINNERUr U| ** LEFT COLUMN WINS **U TICTIC2U 3930U WINNER03U 3660U XA:YA:4000U XA:YB:4000 S7İ1610T S8İ1440*T S9İ12700T NT ***********************lT ** RIGHT SLASH WINS **zT TICTIC2T 3930: ** STARS **T WINNER03T 3660T XA:YA:4000T XB:YB:4000T XC:YC:4000T WINNERT U ** L)1S RX(SIDE)RX(SIDE)1%S 36604S Y3,Y3XES Y3,Y3X1VS X1,X2Y3cS X1,Y2iS( S2 **********************S< ** DETERMINE SQUARE **SF S1İ2500SP S2İ2360SZ S3İ2200Sd S4İ2070Sn S5İ1910Sx S6İ1750 TIDE)1RV RB(SIDE)RB(SIDE)1(R` 36609Rj X2,X2Y3JRt X3,X3Y3[R~ X3,X2Y2lR X2,X3Y2}R X2,X3Y1R X,X2YR X2,XY1R X3,X2Y2R R ** MAKE A "1" **R XA:YAR LA(SIDE)LA(SIDE)1S RA(SIDE)RA(SIDE)LA(SIDE)1$QRC(SIDE)RC(SIDE)1.Q3660?QX2,X2Y3PQX2,X2Y3_QX1,X2YpQX3,X2Y2QX3,X2Y2Q X2,X3Y2Q X2,X3Y1Q X2,X3Y2Q$ X2,X3Y1Q. Q8 ** MAKE A "2" **QB XB:YARL LA(SIDE)LA(S P XA:YB$P*LB(SIDE)LB(SIDE)13660WPHY3,Y3X2hPRY3,Y3X1yP\X3,X3Y2PfX3,X2Y1PpX2,X1YPzX1,XY1PX,Y2PP ** MAKE A "3" **PXC:YAPLX(SIDE)LX(SIDE)1 QLA(SIDERB(SIDE)1#ORX(SIDE)RX(SIDE)1;OLB(SIDE)LB(SIDE)1SOLX(SIDE)LX(SIDE)1]O3660nOX3,X2Y3}OX3,X2YOX2,X2Y3OX3,X2Y2OX3,X2Y1OX3,X2Y2OX2,X3Y1OX2,X3Y2O P ** MAKE A "4" **10002R:5:5:"YOUR FINAL SKILL LEVEL WAS "SK%XR7:5:"YOUR FINAL SCORE WAS "PT%NR13:5:"DO YOU WISH TO TRY AGAIN? (Y/N)":AN$:AN$"Y"GO%1:10000XRAN$"N"ĉ::bR21070N".";:13290F3VG%:HG%2:" - ";:13290:VG%1:HG%:" ";:13290g3VG%:HG%2:" ";:13290w3E1100:E3HG%19:400:3E110:BU(NO):E: NAG%AG%1*NVI%:1:868:VI%1:1:8684NVI%SK%AG%:HI%3:IT%1>N13000zN2:A1N%:IN$(1)IN$(1)"]"I$(91)" "_2IN$(0)IN$(0)"/ "(220)" ":IN$(2)IN$(2)"< > "h2A:3:220:13290:IV%:IH%:".";:13290::2203VG%:HG%2:"=:#:=";:13290:VG%1:HG%:"'";:13290 3VG%:HG%2:"- * -";:13290:VG%1:HG%:::B1(ER$):B5:((ER$),B,1);:Z(NO):B[:/(7);:ST,0:5:(SP$,(ER$)1)::12020~D/5:1:868:7:868:9:868:/13000:VINVADER%:HINVADER%:INVADER$(1)/400d2100022SK%6SK%SK%12A02:IN$(A)" ":A(2N%SK%ILL LEVEL?";:7:9:"1....2....3....4....5";:9:14:"< PICK ONE >";L.A5m.KE%(16384):KE%12712050.KE%177KE%181ī12080/SK%KE%176:12100/7:A54::A;:ZZ(NO)(NO):C115:C::A54:A;/AA1:A5A1&/12020-0/2:33:"RIGHT->";D>+1:2:"SPACE = SHOOT!";:26:"ESC = NEW GAME";b\+32,1:33,38:34,3:35,16rf+3:1:958p+3:1::(SP$,38);+:A1214:A:4:BU$;:13:BU$;:22:BU$;:31:BU$;:A:+400+210+GO%0D.5:7:"WHAT IS YOUR SK"ERROR":D11000::22:" ":1400fV'PK778806:ID:PK,ID:V' 169,32,133,1,169,0,133,0,160,0,177,0,73,127,145,0,230,0,208,246,230,1V$' 165,1,201,64,208,238,96V.'CHANGE COLOR6U! 5500-5520 END OR CONTINUE ROUTINEPU! 5850-6950 COMMANDSwU." 7000-7450 LOAD EXISTING SCREEN?U`" 7500-8150 INTROU" 9250-9300 ERROR HANDLINGU"$ER0ĺ" ******** NOT FOUND ********":D1500:U6$1050IVT$ER1 WITH KEYSCT 2850-3550 INTERPRET AND EXECUTE KEYBOARD COMMANDS wT! 3600-3950 'R'-DRAW CIRCLE WITH INPUTED SCALE T4!4100-4450 'Z'-SAVE SCREEN?-ENDTf!4500-4600 'S'-SHADE RECTANGLET! 4650-4900 'P'-DRAW POINTS WITH PADDLES U! 4950-5100 'C'-THEN YOU CAN SAVE THE SCREEN TO DISK INSTANTLY.">SbS@" HIT ANY KEY TO CONTINUE"zSr(16384)1288050S16368,0:S 1600-1850 INIT & VARIABLESS: 1650-1850 INIT EXIS SCREENSl 50 DRAW CURSOR T 2050-2800 DRAW POINTS."R" THE POSITION KEY (A) WILL ALLOW YOU TO PLOT THE END-POINT OF A LINE OR THE UPPER-LEFT AND LOWER-RIGHT CORNERS OF A BOX OR"8S" A SOLID. IN ADDITION YOU CAN DRAW CIRCLES OR DOODLE IN POINTS. ABLE TO CREATE PICTURES ON THE HIGH-RESOLUTION SCREEN."QF" BY MOVING A 'CURSOR' WITH THE GAME PADDLES YOU CAN PLOT POINTS, DRAW LINES, BOXES, OR SOLID"Rx" RECTANGLES IN ALL OF APPLE'S HIRES COLORSTALOG":7300-PD$;"BLOAD";B$;",A8192,D";DReP:5850:16304,0:16297,0:16300,0:230,32:1250uPL:ER0:200P3:" **** ARTIST'S EASLE *****":255P::JQ" WELCOME TO ARTIST'S EASLE!-- WITH THIS PROGRAM YOU WILL BE " DO YOU WISH TO LOAD AN EXISTING"PO" SCREEN OR START A NEW ONE "sO" (N=NEW E=EXISTING) ";{O A$OR(A$,1)"E"ıOkE11:D21:5600O" WHAT FILE NAME?":" (C-CATALOG)":" ";B$OD$(4) PB$"C"ĺD$;"CAAMBER **`0"HELLO AMBER"!`:*******_ ** NO ONE WON **k_"IT LOOKS LIKE NO ONE WON THIS GAME... SO LET'S TRY ANOTHER GAME "_PAUSE03000:PAUSE_" AND THIS TIME,";NAME1$;" AND ";ANAME$;", TRY A LITTLE HARDER! "_PAUSE02000:PAUSE_`& ** HELLO 880^4110^5^^ **************************X^h ** ZERO WINNING VARIABLES **f^rSIDE12u^|RX(SIDE)0^RA(SIDE)0^RB(SIDE)0^RC(SIDE)0^LX(SIDE)0^LA(SIDE)0^LB(SIDE)0^LC(SIDE)0^SIDE^_ *****************************************"%]K] *******************************q] *** DISPLAY THE WINNING ROWS **]Q0ī4030]Q0ī4070] ** FLASH THE 'X' **]15:1070]0:1070]4110] ** FLASH THE 'O' **]15:880^0:??? **5\" HOW ABOUT ANOTHER GAME ? "\\" IF YOU DO, THEN TYPE 0 ";AGAINn\(AGAIN0ī160\2"WELL......SO LONG, THEN."\<::" THE END"\F\P **********************\Z ** STARS ****\d:]n"**********ONGRATULATIONS !!!! "Q[" IT LOOKS LIKE ";NAME1$;" WINS THIS GAME."j[PAUSE01000:PAUSEt[3850[ ** O WINS **[" YOU WON,";ANAME$;"! YOU BEAT ";NAME1$;"! "[3850[PAUSE01000:PAUSE\  ** ANOTHER GAME ZB **********************3ZL ** NOISE MAKER **@ZVP16336PZ`NOISE010jZjH(P)(P)(P)(P)uZtNOISE{Z~Z **********************Z *** CONGRATULATIONS TO WINNER **ZQ0ī3760ZQ0ī3810Z ** X WINS ** [" C:YC:4000Y WINNERY =Y ** WHO IS THE WINNER? **SY RX(SIDE)3İ2740iY LX(SIDE)3İ2840Y LA(SIDE)3İ3250YLB(SIDE)3İ3350YLC(SIDE)3İ3450YRA(SIDE)3İ2940Y$RB(SIDE)3İ3050Y.RC(SIDE)3İ3150Y8TIC0ī37302z"#???     ҧӠԧӠ"ԧӠ̠ΠŠРҠΠŠƠРҠ ԠРԠԠ Ԡ"ՠԠԠ!נŠȠӠ0֠ȠӠԠӠĠY38Y3Y2H(Y2)bL"CHANGING "A$" ";::"TO";::" "B$:D$"UNLOCK"A$:D$"RENAME"A$","B$wVL1ĺD$"LOCK"B$[NA$(X26A)(NA$(X26A),7)B$`230j UNLOCK/LOCK ALL FILES B$"A"1280:"LOCK/UNLOCK ALL FILES ";::"L/U";:RENAME FILE B$"C"1160)1310KL1ĺG$"THIS FILE IS LOCKED"Qi"RENAME "A$;:3000oB$"Y"560$."CHANGE "A$" ";::"TO";::" ";:B$3(B$)30ė:12:13208B$""560B:12DY40(A$)(B$)12 FB1C$"LOAD":8208101 DELETE FILE BB$"D"990dL1ĺG$"THIS FILE IS LOCKED"~:"DELETE "A$;:3000B$"Y"560::12Y40(A$)9Y2Y2(Y2)"DELETING "A$:D$"UNLOCK"A$:D$"DELETE"A$  $B$:B$T$HE$"Y"560&M13702R::12UTY40(A$)(C$)(L$)(B$)5bVY2Y2mX(Y2)\C$"NING "A$B$L$fL$""L$",A"L$pD$C$A$L$z230 LOAD/BLOAD SELETED FILE B$"L"940B$"":L$"":C$"BLOAD"B2940  RUN/BRUN FILE 1B$"R"900KL$"":B$"":C$"BRUN"b B0C$"RUN":830% IF FILE IS BINARY GET OPTIONAL LOAD ADDRESS *:"WHERE TO "C$;:" (DEC $HEX ) > ";L$:4L$""B$" AT " >C$" "A$B$L$;:E$B$:3000:T$E$:E6A),37):230! UNLOCK FILE `B$"U"L1760: UNLOCK FILE ONLY IF FILE IS NOW LOCKEDx"UNLOCK "A$;:3000B$"Y"560:12:Y40(A$)11:Y2Y2Y2:"UNLOCKING "A$:D$"UNLOCK"A$NA$(X26A)" "(NA$(X26A),37):230 OUR CHOICE > ";:B$::* LOCK FILE hB$"K"L0710: LOCK FILE ONLY IF IT IS UNLOCKED NOW~"LOCK "A$;:3000B$"Y"560:12Y40(A$)(B$)8:Y2Y2(Y2)"LOCKING "A$:D$"LOCK"A$ NA$(X26A)"*"(NA$(X2:B1$"R) BRUN"2I(A$,2,1)"T"B2:B$"E) EXEC"INL$:B$:B2ĺB1$tS"D) DELETE":"C) CHANGE PROGRAM NAME"X"A) LOCK/UNLOCK ALL"b"X) EXIT TO CATALOG"g1370lB$"":Y3781:(A$,Y,1)" "ĂvA$(A$,8,Y7)"ENTER Y(A$)64K+ INITALIZE DEFAULTS FOR THE MINI-MENU AND PRINT OUT CHOICES g0::2:16:"MINI-MENU"57:3:A$NA$(X26A):A$:L0:B0:L$"K) LOCK":B$"L) LOAD":B1$"R) RUN"?(A$,1)"*"L1:L$"U) UNLOCK"D(A$,2,1)"B"B1:B$"L) BLOAD"A$(8)MA0XX1:270: A$(21)MA0XX1:270M A$(24)1300m A$(27)3010: IS IT ESC?~ A$(13)55 A$(3)ĉ::D$"CATALOG":B$:::8:"HIT ANY KEY TO CONTINUE ";:B$:230 A$(Y64)470 A$"A"A$"Z"470&A" "A$ 21:A$ :  CHECK FOR LEGAL SELECTION C Y26o  PRINT PAGE # AND GET FILE SELECTION 34,20:35,24 22:30:"PAGE "X1" OF "MA1; 24:10::"PRESS 'ESC' FOR HELP";: 21:1:"SELECT ONE (PRESS A KEY ) ";:A$: @Y113' BA$(NA$(26XY),8,17)E E(A$,2,1)"="YY1:440[ JA$(64Y)" "A$c ^A$i hp r5 w PRINT FILENAMES ON RIGHT SIDE OF SCREEN |Y113 ~A$(NA$(26XY13),8,17) (A$,2,1)"="MAX:YY12:440 A$(65Y12)X1:216,0:D$"PR#0":D$"IN#0":( X0[ PRINT OUT FILENAMES ALSO SOFT ENTRY POINT a | 1:10:(NA$(0),3,15) 3:HE$:19:HE$ X0XMA X(MA)X0 "34,4:35,18 ,5:1: 6 ; PRINT FILENAMES ON LEFT SIDE OF SCREEN (7)/ 4 HARD ENTRY POINT (RE-READ CATALOG) 7 7:_ <12:12:"READING CATALOG ":12:29 CALL MACHINE SUBROUTINE AND GET A CATALOG 1350 2054:D$"CATALOG" GET MAXIMUME PAGE X13:(NA$(X261),2,1)"="210 MA68(ST6UVk,ȱk-`8逍,-`@:` INITALIZE STRING STORAGE n NA$(104)X140:HE$HE$"=":XX10411:NA$(X)(HE$,38): ST%(984)!X205820735:X,ST%:(NA$(0)(HE$,19) 2D$(4):G$(7)          PROGRAM WRITTEN! BY5 ROBB CANFIELDU MENU":: :"M";::" 'RETURN' GET'S A NEW CATALOG":l :"C";::" CTRL 'C' GET A NORMAL CATALOG": :"X";::" CTRL 'X' EXIT MENU": " ANY LETTER A-Z GO'S TO MINI-MENU": 20:7:"PRESS ANY KEY TO CONTINUE";:B$::230 "::6:"PRESS ANY KEY TO CONTINUE";:B$:55O SUBROUTINE TO GET KEYPRESS n " ";::"Y/N";::B$::: PRINT INSTRUCTIONS  ::2:16:"COMMANDS"::HE$: "> RIGHT ARROW MOVE FORWORD THRU MENU":  "< LEFT ARROW MOVE BACKWORD THR13505<:7:"PRESS ANY KEY TO CONTINUE";:B$:560VF216,0:D$"PR#0":D$"IN#0":P:12:3:G$"!!! - UNABLE TO READ DIRECTORY !!!":216,0:Z:12:(L$,3)",A$"Ė10:G$"ERR IN LOAD ADDRESS":1340,dG$"STRANGE ERR. I WILL RE-READ THE CATALOG 230! EXIT MINI-MENU? LB$"X"B$(27)B$(13)B$(24)230b EXEC TEXT FILE xB2B$"E"560C$"EXEC":L$"":B$"":830:: ERR ROUTINES L1ĺD$"LOCK"A$(:G$" ERR IN NEW NAME. PLEASE TRY AGAIN"2:B$B$"L"B$"U"560<B$"U"B$"UNLOCK":T$" "YB$"L"B$"LOCK":T$"*"::11:(40(B$)6)2:B$"ING ALL"Y1105(NA$(Y),8,2)"=="23013:10:(NA$(Y),8,30)D$B$(NA$(Y),8,30)NA$(Y)T$(NA$(Y),37),O%"M%M%1:M%1ĹI1%,M%:898M%34:I1%,M%:89WO%O%1:O%16ĹH1%,O%:89hO%0:H1%,O%M%M%1:M%35ĹI1%,M%:89M%0:I1%,M%:89E1%1:D$;:24:31::"CURSOR";::868:23:33::"CRS";::37:62:C%15ī87R%C%:4:6234,1:35,21::D%,1:F%,0:L%,0:C::"TRACK: ";:X%,M%:A1%:" SECTOR: ";:X%,O%:A1%:" VOLUME: "(K1%):B025516B1%:X%,B:A1%:5:"-";:H%,1:56:H%,2:56:(16384)155126}:B~35,24:0:10O%O%1:O%1ĹH1%,O%:89O%15:H1%:31::S%ĺD$"++EDIT++";1sS%ĺD$">>EDIT<<";PtQ%1::D%,0:U%:I%39,31luD$;:(M1%)1ĹM1%,2:yvM1%,1:wD$:I%1:H%,I%:91xD$:F1%F1%:N1%,F1%:yD$:D$(7)D$"":zD$(7):{24:31::D$"PRINTER";::Cİ148|gC%4C%20İ1290hC%15G%0:F%,G%:91LiC%14G%1:F%,G%:91hjC%13G%2:F%,G%:91kC%2C%18İ133lC%50T%0:92mC%58T%1:92nC%55T%2:92oC%5C%21S%S%p100qD$:I%2:H%,I%:91r241%ĺ"DEC";)b27:E%Ğ:"F";::G%1;:6c" ";:dd216,0:Q%0:E1%0:0:0:88:(D1%)0İ59xeN%M%:P%O%:92f6:C%C%192:C%0C%27ĴC%113,157,153,117,114,55,121,119,40,43,46,127,50,131,135,123,55,142,143,55,120,55,146,147,55,156:100868: Y92ZJ1% [U%:\23:5:X%,M%:A1%:14:X%,O%:A1%:23:(K1%)" ";:37:X%,W%:A1%:868:27:T%0ĺ"SCRN";]T%1ğ:"SCRN";^T%2Ğ:"SCRN";_:" "B$;:S%ĺ"+";`24:6:(L1%)16;:15:(M1%);:22:F1%ĺ"HEX"; aF:O%C%:23:10::"SCT";::92:(J%)G1%Ģ24:31::"??WRITE??"D$D$D$;::57:C%14110qUH1%,O%:I1%,M%:90VB140:"=";::W23:1::"TRK";:10:"SCT";:19:"VOL";:33:"CRS":"SLOT";:9:"DRIVE";:18:"I/O";X24:31::"COMMAND";::R%C%:4:62:C%15C%R%:77,LZ%C%:70EMC%0C%34ĺD$;:72YNN%M%:M%C%:92O23:1::"TRK";:10::"SCT";::14:62:C%15C%O%:84PF1%84QR%C%:4:C%184R62:C%15C%R%:84SZ%C%:70:C%0C%15ĺD$;:79YTP%O%@C%141ı.AC%C%176:C%0C%22İ55:62UBC%9C%C%7:C%10C%15İ55:62_CQ%ıuDF1%C%9İ55:62{EFQ%F1%C%R%16Z%:GC%R%10Z%:HE1%1:23:1::"TRK";::5:62:C%15C%M%:77IF1%C%277JC%377KA015B1%:X%,(V%BA):Y%:A:> 9C%(16384):C%12857N :16368,0: ;R%(C1%):34,1:35,21::12:12:R%16ĺ"UNABLE TO WRITE" <R%16ĺ"DISK DRIVE ERROR" =D$D$;:B11000::D1%,0:35,24:91:10 >E1%İ5:64 ?8:Q%C%160ı 53 .3:W%W%1:W%255W%0< /A%A%3:A%37A%1:51V 0B%21A%25A%1:51^ 153 23:W%W%13:W%255W%W%260 3B%B%1:B%21B%2 4B%21A%25A%25:W%255 52:">":23:37:X%,W%:A1%:Q%ġ:102 6 7D$D$;:" 8" ";:63:C%15İ17:35 $T %35:R%C%:" ";:4:V%W%,C%:32:Z%C%:C%15Z%R%:R%0x &70:V%W%,C%:3:X%,C%:Y%:46 '37 (3:W%W%13:W%0W%W%260 )B%B%1:B%2B%21:52 *53 +3:W%W%1:W%0W%255 ,A%A%3:A%1A%37:41 -C%136ČU%:43:23 I%1ı' 303 I%1ıE 6:C%16013Q T%30j C%192C%C%32:28w C%C%32 T%1C%C%96:30 C%C%160 V%W%,C%:3:X%,C%:Y%:46 R%1:24 2:63:C%16ı !C%141ı "D$:32 #2:N%:O%P%:87:92:91:10621:100U 10621:Q%R%I%2(222)255C%131:R%0:30] 10h S%30 C%142T%0:92:24 C%134T%1:92:24 C%137T%2:92:24 C%145ČU%:40:23 C%154ČU%:50:23 C%149ČU%:46:23 $::0:0:08704:164:87:1002A%:B%:FA%:B%:" ";:[(A$,C%1,1);:sC$:C%(C$)128:9|112C%(16384):C%128Ğ:">"B$">"B$">"B$">"B$;::91:7 16368,0:C%155ı" D%,E%:F%,G%:H%,I%:J%,K%:L%,1:M%          ,TK%:TT%Od23:1::"TRK";:11::"SCT";::16IX%:83:KY%15KY%SE%:105]eIX%105xfA1%KY%:13:KY%1105g83:KY%15KY%A1%:105hA2%KY%:91:KY%0KY%15ĺG$;:100iSO%SE%:SE%KY%:SC%,SE%:23:11::"SCT";::TT%>j(CM%)Z"[ED%IX%KY%A1%16A2%:7\KY%A1%10A2%:s]NS%1:23:1::"TRK";::6IX%:83:KY%15KY%TK%:98^IX%KY%298_KY%398`A1%KY%:13:83:KY%15KY%A1%:98aA2%KY%:91bKY%0KY%34ĺG$;:93 cT0%TK%:TK%KY%:TR%OG$G$;:X11000::EF%,0:35,24:MV%:19SPKY%KY%176:KY%0KY%22KY%128:QKY%9KY%KY%7:KY%10KY%15KY%128:RSNS%İ14:85T17:ED%KY%160ıUKY%141ıV80WKY%128İ69:83XED%ıYIX%KY%9İ69:83IKY%(1153):80:A1%KY%:KY%(1154):80:A2%KY%:KY%A1%16A2%:rJ" ";:L015LI%:NM%,(BF%XL):HH%:L:KKY%(16384):KY%12875L16368,0:MA1%(ER%):34,1:35,21::12:12:A1%16ĺ"UNABLE TO WRITE":79N"DISK DRIVE ERROR"+260 AVT%VT%1:VT%21VT%2BBVT%21HT%25HT%25:PT%255rC11:">":23:35:NM%,PT%:H1%:ED%ġ:119xDEG$G$;:F(1152)16473GA1%(1152)176:A2%(1153)176:A2%1İ92:A1%KY%:A2%(1154)176:A2%1İ92:HKY%A1%:B%VT%1:VT%2VT%21:66!567)612F7PT%PT%1:PT%0PT%255f8HT%HT%3:HT%1HT%37:52n967v:12;PT%PT%1:PT%255PT%0<HT%HT%3:HT%37HT%1:65=VT%21HT%25HT%1:65>67?12@PT%PT%13:PT%255PT%PT%:84:KY%16ı%+KY%141KY%149ı1,G$:42M-11:84:KY%15İ27:45S./45:A1%KY%:" ";:13:BF%PT%,KY%:42:A2%KY%:KY%15A2%A1%:A1%0091:BF%PT%,KY%:12:NM%,KY%:HH%:581472123PT%PT%13:PT%0PT%PT%2604VT149ČMV%:58:33+KY%136ČMV%:54:338HA%1ı@ 40M!HA%1ıa"15:KY%16023n#FX%40$KY%192KY%KY%32:38%KY%KY%32&FX%1KY%KY%96:40'KY%KY%160(BF%PT%,KY%:12:NM%,KY%:HH%:58)A1%1:34*11SF%,FX%:TT%:MV%#10621:117[10621:ED%A1%HA%2(222)255KY%131:A1%0:40c19oCC%40KY%142FX%0:112:34KY%134FX%1:112:34KY%137FX%2:112:34KY%145ČMV%:50:33KY%154ČMV%:63:33KY%VT%:" ";:! (A$,KY%1,1);:; N$:KY%(N$)128:18D 21L 11 KY%(16384):KY%128Ğ:">"B$">"B$">"B$">"B$;::MV%:16 16368,0:KY%155ıST%,FT%:FL%,FI%:TR%,T0%:SC%,SO%:FM%,HA%:CM%,RD%:PF%,1:TK%T0%:SE%SO%:CS%,PT%: $ $ JL2 $ $  J$ % (`     COMMAND? P`g `, , ` $`` ` ::16384:211:117 HT%:VT%: HT%: J`       G `L ` /   'L 'L 'L% " $& $ $ $ $0 $ "$ $ ( b $#JJJJ $ $$ɀi@ɠ88 ` ``L L Lo LT L] Ld `ɠ`@L @ɀL  w4,>1,O6T$r.w&ฐཐ ې hhLr  JL , , L , $, d, $  J S:;`   % "$  J Lr  /    JLR bLH % " "`HI HI HI $ `ӠƠ i-@i%`i2067:10:eB HIH#ȱH$?̅g h`" ``3?``LS L! L LLL L L L:L:L:L:L:L:d, $,  J` `,  J`  `ɀ0ɠ` :          40:23:958:170:210:RC%:20051:" 80N"::0::::5:"FOR INSIDE INFO ON DISK BACK-UP":5:"AND TIPS ON DOS AND PROGRAMMING":14:"SUBSCRIBE TO:"::11:"'HARDCORE COMPUTING'"::4:"THE MAGAZINE FOR APPLE ENTHUSIASTS":15:"$20 FOR 1 YR"::160!23:"INSERT DISK -- PRESS ANY KEY TO CONTINUE";:56789ABCDEF":0:0:DV%(DR%)1:160:"D I S K V I E W V E R S I O N 1 . 1":" COPYRIGHT 1981 (C) HARDCORE COMPUTING"::" 14404 EAST 'D' ST TACOMA, WA 98445"::5:X132:"-";:::6:"A MINI-NIBBLER UTILITY PROGRAM"5:X132:"-";:R PRINTER USING? 1-7 ";:35,24:80:KY%15ıAKY%7ĺG$;:670NPRKY%:KY%A1%A2%IX%NM%HX%:NM%774:HD%772:HX%795:SL%768:DR%769:TR%770:ST%773:B1%773:B2%845:RC%780:PS%783:PN%786:PP%789:PM%792:H1%777$G$(7):B$(8):A$"01234174KY%175TK%A1%21:6508bKY%15TK%A1%2:650MlA2%KY%:20:140yvTK%KY%2:25IX%:NM%,KY%:HX%:B$".";30:KY%181KY%175TK%TK%1TK%0TK%70ĺG$;:560TR%,TK%:210:170:200,34,1:35,21::12:" WHICH SLOT IS YOUW SLOT?";:1::"SLOT";::6:80:KY%15İ170:240MKY%1KY%7ĺG$;:530l&SL%,KY%16:170:210:400023:18::"TRACK";::25IX%:80:KY%174KY%175TK%1:650:KY%15İ170:240DIX%KY%2630NKY%3630XA1%KY%:20:80:KY%):H1%:XX:%(16384)155X300,Xt35,24:0:X(BF%256):XXBF%(X256):30,XX:31,X:ST%,1:PP%:240TK%TK%1:TK%1ĹTR%,TK%:190TK%70:TR%,TK%:190TK%TK%1:TK%71ĹTR%,TK%:190TK%0:TR%,TK%:190223:31::"NE8:1002:2400TR%,0:RC%:TR%,TK%:200HG$(7)G$"":240YG$(7):24023:31::"PRINTER";::PRİ67034,1:35,21::PR::"TRACK "TK%2:BF%(30)((31)256)260 X025513:NM%,X:HX%:5:"- ";:XX012:NM%,(BF%XXX "KY%196DV%DV%:DR%,DV%1:210:400: ,KY%199410K 6KY%204490\ @KY%206510m JKY%208430 TKY%210Ģ23:31::">READ<";::" ";:200 ^KY%211530 hKY%212560 rKY%213IX%IX%:HD%,IX%:240 |KY%216ĉ::103,1:104,15:(DR%);:24:IX%ĺ"$";S NM%,(TR%)2:HX%:((TR%)2)(TR%)2ĺB$".5";` " ";: 170:210:40:KY%136ČPM%:240 KY%149ČPP%:240 KY%188KY%172ĹST%,1:PM%:240 KY%190KY%174ĹST%,1:PP%:240 G$;:KY%195400)%KY%7:KY%10KY%1570+ xIX%KY%9701 L IX%KY%A1%16A2%:a KY%A1%10A2%:w X140:"=";:: 23:1::"SLOT";:9:"DRIVE";:18:"TRACK"; 23:31::"COMMAND";::868: 210 PS%:PN%:240 23:6:(SL%)16;:J` LJ% ::20480:700; (A$,KY%1,1);:U N$:KY%(N$)128:50s (KY%(16384):KY%12840 216368,0:KY%155ı <10621:240 FG$; P30:KY%174KY%175ı ZKY%160ı dKY%KY%176:KY%0KY%2270 nKY%9KY ? % "$  J H  J% ""`0`  ` `+*xS&x'8*3Ixix&& 8 ' & x)*++`FG8`0($ p,&" $L  6 2067:10: L?`L L\LaLLLL HIHȱHg h`Zxm  b ? P`;82L8L8/LNNy xL       50!* MOVE CURSOR RIGHT >4PT%PT%1:PT%255PT%0_>HT%HT%3:HT%37HT%1:890}HVT%21HT%25HT%1:890R930\50f MOVE CURSOR DOWN pPT%PT%13:PT%255PT%PT%260zVT%VT%1:VT%21VT%2 CHECK FOR SPACE IN H%:800650/ CURSOR MOVEMENT ROUTINE 750M MOVE CURSOR UP oPT%PT%13:PT%0PT%PT%260VT%VT%1:VT%2VT%21:91093050 MOVE CURSOR LEFT PT%PT%1:PT%0PT%255 HT%HT%3:HT%1HT%37:730930%149ıXG$:570/b GET FIRST HEX DIGIT Ol30:1200:KY%15İ350:620Uvq HEX EDIT ENTRY POINT 620:A1%KY%:" ";:70:BF%PT%,KY%:570:A2%KY%:KY%15A2%A1%:A1%0 POKE BYTE INTO BUFFER 1280:BF%PT%,KY%:50:NM%,KY%:H0KY%KY%32+FX%1KY%KY%96:530;KY%KY%160cBF%PT%,KY%:50:NM%,KY%:HH%:800 ASCII EDIT ENTRY POINT &A1%1:4700 GET SECOND HEX DIGIT :30:1200:KY%16ıD IF OR CTRL 'U' KEY THEN RETURN NKY%141KYIGHT !KY%149ČMV%:800:450M CHECK FOR CTRL 'H', MOVE CURSOR LEFT iKY%136ČMV%:750:450 CHECK FOR HEX MODE HA%1ı530HA%1ı ASCII EDIT ROUTINE 110:KY%160270FX%530KY%192KY%KY%32:51,@ CHECK FOR CTRL 'I', SET INVERSE MODE JJKY%137FX%2:1640:470tT CHECK FOR CTRL 'Q', MOVE CURSOR UP ^KY%145ČMV%:700:450h CHECK FOR CTRL 'Z', MOVE CURSOR DOWN rKY%154ČMV%:860:450| CHECK FOR CTRL 'U', MOVE CURSOR R5KY%131:A1%0:5307 IF NOT EDIT MODE THEN ERROR @190_ CHECK FOR ++EDIT++ MODE lCC%530 CHECK FOR CTRL 'N', SET NORMAL MODE "KY%142FX%0:1640:470, CHECK FOR CTRL 'F', SET FLASHING MODE 6KY%134FX%1:1640:470TR%,T0%:SC%,SO%:FM%,HA%:CM%,RD%:PF%,1:TK%T0%:SE%SO%:CS%,PT%:SF%,FX%:TT%:MV% CLEAR STACK AND GOTO COMMAND PARSER 10621:1700 CLEAR STACK, IF EDIT MODE AND CTRL 'C' PRESSED THEN PUT IN BUFFER 10621:ED%A1%HA%2(222)25N CURSOR 30Y BASIC GET KEY ROUTINE, FLASHES CURSOR WHILE WAITING FOR KEYPRESS KY%(16384):KY%128Ğ:">"B$">"B$">"B$">"B$;::MV%:130 CHECK FOR 'ESC' KEY 16368,0:KY%155ı RESET ALL DEFAULTS UST%,FT%:FL%,FI%: HT%:VT%:3 ( POSITION CURSOR, ERASE PROMPT I 2HT%:VT%:" ";:f < PRINT A HEX CHARACTER | F(A$,KY%1,1);: P GET A CHARACTER WITH PROMPT ZN$:KY%(N$)128:170 d SET TRAP FOR CTRL 'C' n230 x ENTER HERE TO PREPOSITIO $ $ JL2 $ $  J$ % (`     COMMAND? P`g `, , ` $`` ` ::16384:3200:1700  POSITION CURSOR  J`       G `L ` /   'L 'L 'L% " $& $ $ $ $0 $ "$ $ ( b $#JJJJ $ $$ɀi@ɠ88 ` ``L L Lo LT L] Ld `ɠ`@L @ɀL  w4,>1,O6T$r.w&ฐཐ ې hhLr  JL , , L , $, d, $  J S:;`   % "$  J Lr  /    JLR bLH % " "`HI HI HI $ `ӠƠ i-@i%`i.2067:10:eB HIH#ȱH$?̅g h`" ``3?``LS L! L LLL L L L:L:L:L:L:L:d, $,  J` `,  J`  `ɀ0ɠ` :               -7 ";:35,24:140:KY%15ı1KY%7ĺG$;:1040>$PRKY%:V. DEFINE VARIABLES 8KY%A1%A2%IX%NM%HX%:NM%774:HD%772:HX%795:SL%768:DR%769:TR%770:ST%773:B1%773:B2%845:RC%780:PS%783:PN%786:PP%789:PM%792:H1%777,BG$(7):B$(8):AK%A1%2:1010#A2%KY%:30:230OTK%KY%2:25IX%:NM%,KY%:HX%:B$".";r50:KY%181KY%175TK%TK%1TK%0TK%70ĺG$;:920TR%,TK%:330:280:310 GET PRINTER SLOT 34,1:35,21::12:" WHICH SLOT IS YOUR PRINTER USING? 1:880$SL%,KY%16:280:330:700= GET NEW TRACK NO. 23:18::"TRACK";::25IX%:140:KY%174KY%175TK%1:1010KY%15İ280:370IX%KY%2990KY%3990A1%KY%:30:140:KY%174KY%175TK%A1%21:1010KY%15TTK%1:TK%1ĹTR%,TK%:3004>TK%70:TR%,TK%:300PH READ NEXT HALF-TRACK tRTK%TK%1:TK%71ĹTR%,TK%:300\TK%0:TR%,TK%:300f GET NEW SLOT NO. p23:31::"NEW SLOT?";:1::"SLOT";::6:140:KY%15İ280:370zKY%1KY%7ĺG$;"TRACK "TK%2:BF%(30)((31)256)260sX025513:NM%,X:HX%:5:"- ";:XX012:NM%,(BF%XXX):H1%:XX: (16384)155X300X 35,24:0:X(BF%256):XXBF%(X256):30,XX:31,X:ST%,1:PP%:370* READ LAST HALF-TRACK 4TK%KY%216ĉ::103,1:104,8:1002:,370H RECALIBRATE R/W HEAD fTR%,0:RC%:TR%,TK%:310 TOGGLE SOUND ON/OFF G$(7)G$"":370G$(7):370 PRINT ROUTINE 23:31::"PRINTER";::PRİ1040(34,1:35,21::PR::KY%208750&D READ CURRENT TRACK UNKY%210Ģ23:31::">READ<";::" ";:310lX SELECT NEW SLOT }bKY%211880l SELECT NEW TRACK vKY%212920 SELECT HEX/DEC PROMPTS KY%213IX%IX%:HD%,IX%:370 EXIT PROGRAM #AD G$;:KY%1957004 TOGGLE DRIVE NUMBER _KY%196DV%DV%:DR%,DV%1:330:700s SOUND ON/OFF KY%199720 READ LAST HALF-TRACK KY%204820 READ NEXT HALF-TRACK &KY%2068500 PRINT SCREEN CONTENTS :r280:330:70&| BACK ONE LINE =KY%136ČPM%:370U FORWARD ONE LINE lKY%149ČPP%:370 BACK ONE PAGE KY%188KY%172ĹST%,1:PM%:370 FORWARD ONE PAGE KY%190KY%174ĹST%,1:PP%:370 "C" CALIBRATE R/W HE:18:"TRACK";2 "23:31::"COMMAND";::868:; ,330N 6PS%:PN%:370i @ PRINT PROMPT VALUES J23:6:(SL%)16;:15:(DR%);:24:IX%ĺ"$"; TNM%,(TR%)2:HX%:((TR%)2)(TR%)2ĺB$".5"; ^" ";: h UPDATE STATUS, GET KEY %9KY%KY%7:KY%10KY%151203 IX%KY%91209 n CONVERT A1% AND A2% TO HEX OR DECIMAL NUMBER IX%KY%A1%16A2%: KY%A1%10A2%: PRINT BORDER X140:"=";::  PRINT PROMPTS  23:1::"SLOT";:9:"DRIVE";Z16368,0:KY%155ı1 d REINITIALIZE STACK B n10621:370K xG$;p GET KEY, CHECK FOR "." OR "/" 50:KY%174KY%175ı CHECK FOR CTRL KEY KY%160ı ONLY HEX OR DECIMAL VALID KY%KY%176:KY%0KY%22120 KYJ` LJ& ::20480:1080C  PRINT A HEX CHARACTER Y (A$,KY%1,1);:t ( GET KEY WITH PROMPT 2N$:KY%(N$)128:90 < GET KEY WITHOUT PROMPT FKY%(16384):KY%12870 P RESET KEYBOARD STROBE AND CHECK FOR ESC KEY  ? % "$  J H  J% ""`0`  ` `+*xS&x'8*3Ixix&& 8 ' & x)*++`FG8`0($ p,&" $L  >2067:10: L?`L L\LaLLLL HIHȱHg h`Zxm  b ? P`;82L8L8/LNNy xL      G%19:VG%17:DI%1:AG%1<'BU$(220)(239)(220)(239)Y'IVRAY%0:IHRAY%0:UFO%1c'TH%2'ZA$(0)"*":ZA$(1)":":ZA$(2)" ")" ### ## #### #### ## ### ")" ## ## ## ## ## ")"#### ## ### ## #####" ")"#### ## ###IN$(1):VI%1:HI%:IN$(FR%1);9~ FR%FR%:1500:1000G HI%HI%1r HI%2ĢVI%:1:868:IT%RI%:VI%VI%1| 2410'255::::t'NO16336:ST16368:KEY16384~'HI%3:VI%5:IT%1:I$"9"'RI%1:LE%2:TR%2:FR%1'PO%9:TT%2'HNO):@PT%BP%SK%PO%PT%DJ19:30::" ";:30:PTS%;::] t(IN$(1))520000IT%LE%2500` HI%HI%1:HI%37(IN$(1))IT%LEFT%:VI%:1:868:SK%3VI%VI%1j VI%:1:868:VI%1:1:868 t VI%:HI%:A%1)" "(IN$(AA),RA%3):AA)650;VI%1421000PRH0100VI%10l100: 500: AU%İ508RHB2000A016VI%:FR%01520ZZ(NO)(NO)::ZZ(NO)(NO)::ZZ(%10:930"SS%ĭTE%PO%TE%1`TE%TE%1:QI%IV%1:TE$(TE%):QH%RA%HI%:TE%1TE$" "mSS%960IV%VI%2:IH%RA%HI%:700:VI%:IH%::TE$;:SS%0IN$(1)(IN$(1),RA%)TE$(IN$(1),RA%2) TE$" "āAA02:IN$(AA)(IN$(AA),R"%";:1530;\IV%1:IH%::" ";:IV%:IH%:" ";:1530:EpIH%0KzR%(1)N%:RA%R%43:(IN$(1))5ĢVI%:1:868:VI%1:868:RA%(IN$(1))ıRA%0RA%RA%TE$(IN$(1),RA%1,1)TE%(TE$):TE$" "900 TE%9TE%TE2:"-=#=-";:IV%1:IH%1:"/I";(220);:ZZ(NO){4IV%1:IH%1:" ";:IV%:IH%2:" ";:IV%1:IH%1:" ";:BO>A110:ZZ(NO):TV%:TH%:"#";:B15:B:TH%:" ";:AHTV%0:TH%0:IV%0:IH%0: RT16:IV%1:IH%::" ";:IV%:IH%:I%HI%4:(IN$(1))4670GIV%:IH%:"+";:IV%1:IH%:" ";:dIV%1:IH%:" ";:T1216299,0::IV%:IH%:"^";:1530:16300,0 :IH%:(223);:1530T:IH%0: BO110:ZZ(NO)1*IV%1:IH%1:(220);"I";"/";:IV%:IH%X%2:630: qBP%0:1600:640=vZA$(A);:X(NO)(NO):RTH%0:TV%0:970X(IN$(1),(IN$(1))2,1)" "āAA02:IN$(AA)(IN$(AA),(IN$(AA))4):AA:(IN$(1))4ī660(IN$(1),4,1)" "āAA02:IN$(AA)" "(IN$(AA),(IN$(AA))5):AA:HX%1:630:VI%1:X%1:630:X%:630:< ]BP%0:1600:640 bA02:VI%:X%1:630:X%2:630:X%:630:VI%1:X%2:630:X%:630:X%1:630: gBP%10:1600:640 lA02:VI%1:X%1:630:VI%:X%1:630:X%2:630:X%3:630:VI%1:X%3:630:A: IH%09004 IV%IV%1:X%IH%1:Y%IV%:10E XK%160700V XK%161800n XK%92XK%111850~ &IV%17750 ::13200:PO%PO%1:PO%021000 DVG%2:IH%:IH%0:" "; N400:' XA02:VI%1:X%1:630:VI%:X%1:630:X%:630:G%36HG%36:TT%LE%:5 VG%:1:868:VG%1:868[ VG%:HG%1:"=";::PO%;::"=";s VG%1:HG%:"I";: ,HG%HG%1:HG%3HG%3:TT%RI%: ^210 B%1:A1923:AA15 A:AA5 PI$(PO$(PO%),B%,1)  PI$;::B%B%1:AA,17:BU(NO):A:TH%:".";:TV%0:? dKE%(KE):KE%127ĹST,0V nDI%FS%0KE%160p xKE%155GO%1:10000 KE%160AU%1:40 KE%141TT%3 KE%149TT%RI%:DI%0:200 KE%136TT%LE%:DI%0:300 TT%200,300,350 HG%HG%1:H <XK%127āA15:30:1530:35:1530:30:1530A:TV%TV%1:30:TV%0:Y AXK%171800k FTV%VI%1ıu HSS%1 KXK%221İ600:RA%X%HI%:910 PXK%219İ620:RA%X%HI%2:910 U610:RA%X%HI%1:910" ZTV%:TH%:" ";:TV%1:TH%:"$";:A  10000& XX%X%1:YY%2(Y%1)IXK%XX%,YY%)16XX%,YY%1):_TV%:TH%:" ";:u#TV%:TH%:"!";:(TV%0İ90:TH%:" ";-TH%HG%:TV%VG%2:35:2TV%1ı430:TV%TV%1:35:TV%5ī907X%TH%1:Y%TV%1:10:XK%160ıH         NRC(SIDE)RC(SIDE)1"N36603NX2,X2Y3BNX3,X2YSNX2,X2Y3dN&X3,X2Y2uN0X3,X2Y1N:X3,X2Y1NDX3,X2Y2NNX2,X3Y2NXX2,X3Y1NbX2,X3Y2NlNv ** MAKE A "5" **NXB:YB ORB(SIDE)LX(SIDE)LX(SIDE)1,MhLC(SIDE)LC(SIDE)1DMrRA(SIDE)RA(SIDE)1NM|3660_MX3,X3Y3pMX2,X3Y2MX1,X2Y1MX,X1YMX1,XY1MX2,X1Y2MX2,X1Y3MM ** MAKE A "6" **MXC:YBNLB(SIDE)LB(SIDE)1SIDE)RB(SIDE)1L3660+LX2,X2Y3:LX2,X2YKLX2,X2Y3\LX3,X2Y2mLX3,X2Y1~LX3,X2Y1LX3,X2Y2LX2,X3Y2L"X2,X3Y1L,X2,X3Y1L6X2,X3Y2L@LJ ** MAKE A "7" **LTXA:YCM^E)1K(3660K2X2,X3Y.K<X2,X2Y3?KFX2,X2Y3PKPX3,X2Y2aKZX3,X2Y1rKdX3,X2Y2KnX2,X3Y2KxX2,X3Y1KX2,X3Y1KX2,X3Y2KK ** MAKE AN "8" **KXB:YCKLC(SIDE)LC(SIDE)1LRB(JY3,Y2X2"JY4,Y3X33JY4,Y3X3DJY4,Y3X3UJY4,Y3X3bJX4,Y4oJX4,Y4|JX4,Y4JX4,Y4J3660JJ ** MAKE A "9" **JXC:YCJ RX(SIDE)RX(SIDE)1JLC(SIDE)LC(SIDE)1KRC(SIDE)RC(SID,Y2IX3,Y2IX3,Y3+IX2,Y38IX2,Y3EIX3,Y3RIX3,Y2\I3660bI$zI. ** MAKE AN "X" **I8Y1,Y1XIBY2,Y1X1ILY2,Y1X1IVY1,Y2X1I`Y1,Y2X1IjY3,Y2X2ItY3,Y2X2J~Y3,Y2X2400430GH"...";ANAME$;", IT'S STILL YOUR TURN..."HRPAUSE0600:PAUSE: THE NEXT TURN **^F *********************** ** SUBROUTINES *************************xF *******************F ** DRAW TIC TAC TOE **F0,390F0,3939F0,390F0,3939F2,3713F2,3725F2,3725F2,3713G0ESIDE1:540(ESS(RR)S:13:26206E&Q0ī590DE0Q0ī580cE: ***********************tED6:880:600EN9:1070:600EX ** HAS ANYONE WON YET **EbRR4İ3550ElTIC0ī160EvRRRR1:QQERR10İ4330:160F360: ** BEGINRN TO PLAY....."ZD" UPON WHAT NUMBER SQUARE DO YOU WISH ME TO DRAW YOUR 'X'...";S:440pD(S1)(S9)ī780DST1: ** CHECK IF NUMBER IS TAKEN ***DSSS(ST)ī860DSTST1:ST9ī490D460DQ0ī530DQ0ī520DESIDE2:54 C@S:S1CJCT23:::,C^Q1:RR1FCh ** THE NEXT TURN **TCrQ0ī420bC|Q0ī390C"IT IS NOW ";ANAME$;"'S TURN TO PLAY....."C"ON WHAT NUMBER SQUARE DO YOU WANT YOUR 'O' DRAWN...";SC440D"I THINK THAT IT'S ";NAME1$;"'S TUONED VARIABLES **0BTEST09:SS(TEST)0:TESTQB4200: ** ZERO VARIABLES **[BTIC0xB **********************B ** DRAW TIC TAC TOE **B1B680B ************************B ** NUMBER THE SQUARES **B"12B,S19C62620SE TYPE YOUR NAME WHEN I ASK FOR IT.."dA"WHO IS PLAYING 'X'";NAME1$:"WHO IS PLAYING 'O'";ANAME$uA"THANK-YOU"AA7:B19:C31AA((NAME1$,5)"AMBER")((ANAME$,5)"AMBER")İ4390AYEL039:13:0,39YEL:YELB ** ZERO ALL DIMENSI" @ ** BEGIN **@:@@ ** CREATED DECEMBER 3, 1980 **P@(NAME2$(75)`@2ANAME$(75)k@FSS(9)@PLA(3),LB(3),LC(3),LX(3)@ZRA(3),RB(3),RC(3),RX(3)@d9:"AMBER'S T I C T A C T O E"@n20:"PRESENTED BY UNCLE BEV "&Ax23:"PLEA           NTER AT CURSOR"7Nh" CTRL R=CIRCLE BELOW CURSOR"dN|" CTRL L=LINE BUT A,B NOT CHANGED"N" Z=END-SET COLOR TO BKGND AT CURSOR"NN:" *** HIT ANY KEY TO BEGIN ***"NN(16384)1286900:16368,0:N&NX:10)O" P=DRAW POINTS WITH PADDLES"AM}" I=INVERSE SCREEN"^M" A=POSITION (A,B)M" L=DRAW LINE FROM 'X,Y'TO 'A,B'"M" B=BOX FROM A,B(UL) TO X,Y(LR)"M," S=SHADE FROM A,B TO X,Y (SEE BOX)N^" R=CIRCLE WITH CEOVE CURSOR WITH PADDLES"LBL" W=WHITE (OR-CTRL W )"fL8" E=ERASE (OR-CTRL E )"Lj" C=CHANGE COLOR"L" F=SWITCH FULL/MIXED SCREEN"LL7:"T=SWITCH BACK TO DRAW"LL2" D=DRAW POINTS WITH KEYS"#Md302,0:34,0:::10:"GOTO 175 TO REENTER WITH SCREEN INTACT":\KD2Ė6:"DRIVE # ";:DR$oKDR$""DR1:KDR(DR$):DR25600KK:2K " ******* ARTIST'S EASLE *******"K>Kp" *** BY JACK HEWITT ***"KL" M0:PP1:200JuKFLAGİ300$JX,Y-JPP0BJ(16384)127ıLJ$4650ZJV16301,0J21:"COLOR ? (0-E 1-G 2-V 3-W 5-O 6-B)";COJCO0CO74950JCO:J|:16301,0:21:"DO YOU REALLY WISH TO END ? ";A$J(A$,1)"Y"ī1350?K16$,1)"Y"4230Ih5500.I5600: GET DRIVE#cIE1ĺ"SAVE AS ";B$;:A$:(A$,1)"Y"N$B$:4300~I"WHAT FILE NAME? ";N$I16302,0ID$(4)I0D$;"BSAVE";N$;",A$2000,L$2000,D";DRIb5500IBGAXIBG,BBG,Y:II*750 J\:TT(2.5SC)0Ģ21:"OFF SCREEN TRY AGAIN ":D11000::LHBSC:R13675cHQX(SC2),Y:3700~H[X(SC2),Y(2.5SC)Ht772,5:773,0HR0644:R:1:Hn772,197:773,6:8:24:H16301,0::21:"SAVE THIS SCREEN (Y/N) "; I6A$:(A1)&G K212Ĺ16304TS,0:TS(TS1)FG K194ēA,BX,BX,YA,YA,B\G K210R11:3600rG K146R10:3600GH K211İ4500Gz K195İ4950G K218ī4100G G21:"DRAW CIRCLE-WHAT SCALE ";SCG)SC1SC35ĺ"":3600;H.X(SC2)0Y F 2050&F" 16368,0:K193AX:BY2F; KFLAG1FFT K140ēA,BX,YbFm K204ēA,BX,Y:AX:BYsF K208İ4650F K133Ē4:CO4F K197Ē0:CO0F K201Č778F K215Ē3:CO3F5 K151Ē7:CO7FN K196İ2050G K198Ĺ16302FS,0:FS(FS1E. KB218XX1:YY1,E` KB216YY1>E KB215YY1VE KB197XX1:YY1hE KB196XX1E( KB195XX1:YY1EZ KB208KFLAG1:Ed Y191Y191Ei Y0Y0Es X0X0Eu X279X279E X,YE KB198Ĺ16302FS,0:FS(FS1)DrCO3:TS1:FS0:3:216,0:ER1.D16301,0@D232,0:233,3wD768,1:769,0:770,4:771,0:772,197:773,6:774,0D24:8D:DDD1:TT0:CS0:200DKFLAGİ300D4DD0DfKB(16384)D16368,0DKB209XX1:YY1EKB193XX0CxT110::600CK(16384):K127İ2850CCTT1:CS1:200SCKFLAGİ300aC50:1400rC@:CO3:CO:CJCO$(7):CO$(0)"BLACK ":CO$(1)"GREEN ":CO$(2)"VIOLET":CO$(3)"WHITE ":CO$(4)CO$(0):CO$(5)"RED ":CO$(6)"BLUE "CTCO$(7)CO$(3) S-":21:30:"QWE":22:30:"A D ":23:30:"ZXC "\BXDD1Ģ23:11:"P-RETURN "BPP1Ģ23:11:"ANY KEY ESCAPES"BKFLAG0BBX((0)1.095):Y((1).75)B B9250B7500B7000:5850:1600B1610:34,21:CF5= ";Y;" "A0A,22:11:"COLOR= ";CO$(CO)YA^TT1Ģ23:9:" T-FOR COMMANDS "{ADD1Ģ22:30:"A= ";A;" "ADD1Ģ23:30:"B= ";B;" "ACS1Ģ21:" "7B&DD1Ģ21:" USE KEY@ ARTIST'S EASLE6@ COPYRIGHT FEB 1980P@ ALL RIGHTS RESERVEDb@16384:10000k@100@2X((0)1.095):Y((1).75)@<1X,Y:@d:16300,0:1000@5850:16304,0:16297,0:34,21::1350@22:"X= ";X;" " A23:"Y       ` dD$(4) 103,1:104,64-16384,0X,D$;"RUNMTN ISLE RELIEF MAP MAKER 1.0"^2(R%TEST)211000X +TESTR%:IN(GAPTEST),100:JJIN(GAPTEST)GAPINGAP:JJ,0:JJ^R+yN** DRAW ENTIRE MAP ** N:*NIBMEM%EMEM%>NPMEM%I:2000zNI: TMAX:GAP20:INAABB:11000:IN`8'AABB:BBBMEM%399:TESTMAX:GAP1:INAABB20:11000:INB'AABB:BBBMEM%380:TESTMAX:GAP20:INAABB1:11000:INL'AABB:BBBMEM%:GAP1:TESTMAX:INAABB20:11000:IN`'j'1000*R%(1)MAX1:ԭSNOW0Ē3:SNOW0*(X%XMAP%)102080A X%,Y%XMAP%,YMAP%K TESTQ*l '** INIT VARIABLES **'BMEM%2100:EMEM%2499'***GOTO10080':16299,0'G$(7):D$(4)'MAX4$'ABMEM%EMEM%:A,110:A!.'AABMEM%:BBBMEM%19:TES** PLOT, GRAPH & **2** DRAW LINES TO **K** NEW ELEVATION **R3gTMEM%PMEM%:300XMAP%,YMAP%:X%XMAP%:Y%YMAP%TEST14:TEST250,260,270,280: 130:300ELEV%8SNOW1TMEM%10020802:TIP%20LIMITLIMIT"SIDES147xWIDTH1LIMIT2dSIDES500,600,700,800: N,E,S,W SLOPES}ZELEV%(ELEV%10)10(PMEM%)1101500(PMEM%)ZELEV%ĹPMEM%,ZELEV%2000WIDTHSIDELIMITMOUNTAIN20000633:MOUNTAIN1R%.VZTIP%(1)400BMEM%1A`ELEV%(1)58ej(ZTIP%)110(ZTIP%)1801110xtELEV%(1)58~ZTIP%,(ELEV%10)10************************* STEP 2 ***** CALCULATE SIDES **LIMIT15PMEM%Z* *** OF ALL 4 SIDES ***; *** OF MOUNTAINS ***h SIDES14:SLOPE%(SIDES)(1)41:SIDES @*** MAKE MOUNTAINS *** A********************** G********************** H*** STEP 1 *** I*** SET PEAK HT. ***LR%(1)%1 100 ZMEM%TMEM%20@ WIDTHLIMIT2ZMEM%ZMEM%1I 200Y PMEM%TMEM%_ u ** WEST SLOPE ** TMEM%PMEM%20 *100 4ZMEM%TMEM%1 9WIDTHLIMIT2ZMEM%ZMEM%20 >200 RPMEM%TMEM% z *** CALCULATE SLOPE **%TMEM%20+ WIDTHLIMIT2ZMEM%ZMEM%1= 200: M &PMEM%TMEM%S Nk U*** EAST SLOPE ***~ XTMEM%PMEM%20 b100 lZMEM%TMEM%1 qWIDTHLIMIT2ZMEM%ZMEM%20 v200 PMEM%TMEM%  ** SOUTH SLOPE ** TMEM%PMEMMEM%BMEM%YY%20% @(TMEM%)100ı; TFACT%(TMEM%)10N ^ELEV%FACT%10b cELEV%8SNOW1~ hSITE%(TMEM%)FACT%10 rXMAP%XX%10YY%3 |YMAP%YY%5ELEV%13  *** NORTH SLOPE *** TMEM%PMEM%1 100: ZMEMPE%(SIDE)1))2$ ELEV%0ELEV%0* C ** N-E-S-W SIDES **V TMEM%PMEM%20\ n TMEM%PMEM%1t  TMEM%PMEM%20  TMEM%PMEM%1  (** TMEM CALCULATION ** )** OF X,Y,ELEV,SITE ** ,YY%(TMEM%BMEM%)20 6XX%T 210000'a *** MEMORY CHECK ***_dTMEM%BMEM%TMEM%EMEM%ġ::1500: vn: < OK, ON MAP >** TMEMORY CHECK **TMEM%BMEM%TMEM%EMEM%ġ:2080*** MAKE ELEVATION ***  ELEV%((ZMEM%)10)10((1)(SLO      F0SS(1)CHANGE%:SXSX:FF. B S2:1000:F2F:S2S& ZXS1,AXS2,A9 _XS1,AXS2,AI dZ(16336)R nA,B xBUZZ125:BZZ1BUZZ:Z(16336):BZZ,BUZZ 62454:30 (1)1311FF KEY(16384):16368,0 KEY160ġ:40 F0SS(1)CHANGE%:SXFF:SX(0" *** APPLESOFT INK BLOT ***0CHANGE%56 ?Y96IX137XF11:F21kB1(1)105(HC%(1)8:HC%:HC%""2S1X2(1)X:S2X2(1)X7GAP%(1)31<AY(1)YY(1)YGAP%FFF1:SS1:1000:F1F:S1S PFF2:S  [q*[qU[q[q[q[q[q[q*[qU[q[q[e`$ `$Lq/?r`6$[q6q6[Lq/?rV`$~[~q6q[q`1%qde28rM[ w_qŲqٰq%ذqűMذqŲM%ذqűMذqŲM,\YZq/?r\AUVW1de deMYdeM_`/?r %q6q.?6@rd6?xdeUVW/? rq/? r\-űq/?rŲq/?rq/?rUV/?rW/?rXqDZqű\DZqűqqDzqŲ\DzqŞ]ҠˠԠ ذqٰ#q60q6/q6,'q6,q6,q6?,2q6(qqq<de deFqq dM$nq`qDZq6Dzq    @     @   @    @ @          !!! ! ! ! ! !!!!!!!!!""  q` @@@   @     ~`P  @