' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` PP>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & 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 ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`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- ( q Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(`F d ֠z# uP      9`   ` @)?WRP`kiliFGtuki/likiVliki}li}~kiliki˪likilikiliki@li`e8rde.?r.?̥)}))}Ce8FL` 9 0%`8J E0 FE 8׭ 0V`}`/`V```<`=8J E FE 68ea8@aLo 0'`8J E0 FE 8L   CL)?)@)A)B?@}AB88}?@y}Le)?)@)A)B?@}AB88}?@y}L)?)@)A)B?@}AB88}?@y}L)T@ U & .`Ee)@ EZ\ I^x 9N =R<c)ec@ \ x  =)@ \ x     C8Ii<=?0>e<=>=>DDLWCFL`>e=<><>DDLEe8 F`I E  C8Ii<8Ii=p><=<->e<=>=>DDLlCFL`>e=<><>DDL E      !$'*-0  $(,048<@ #(-27:2(PNH?2#`^VK<*ĵpmeXF1Ϻ8Pds}1FXemp*@ &+/0         0/+& @>:2(PNH?2#`^VK<*ĵpmeXF1Ϻ8Pds}1FXemp*@ &+/0        9`   ` @)?WRP`kiliFGtuki/likiVliki}li}~kiliki˪likilikiliki@li`e8rde.?r.?̥)}))}Ce8FL` 9 0%`8J E0 FE 8׭ 0V`}`/`V```<`=8J E FE 68ea8@aLo 0'`8J E0 FE 8L   CL)?)@)A)B?@}AB88}?@y}Le)?)@)A)B?@}AB88}?@y}L)?)@)A)B?@}AB88}?@y}L)T@ U & .`Ee)@ EZ\ I^x 9N =R<c)ec@ \ x  =)@ \ x     C8Ii<=?0>e<=>=>DDLWCFL`>e=<><>DDLEe8 F`I E  C8Ii<8Ii=p><=<->e<=>=>DDLlCFL`>e=<><>DDL E      !$'*-0  $(,048<@ #(-27:2(PNH?2#`^VK<*ĵpmeXF1Ϻ8Pds}1FXemp*@ &+/0    !!!!!!!"""""""#######  0/+& @>:2(PNH?2#`^VK<*ĵpmeXF1Ϻ8Pds}1FXemp*@ &+/0        9`   ` @)?WRP`kiliFGtuki/likiVliki}li}~kiliki˪likilikiliki@li`e8rde.?r.?̥)}))}Ce8FL` 9 0%`8J E0 FE 8׭ 0V`}`/`V```<`=8J E FE 68ea8@aLo 0'`8J E0 FE 8L   CL)?)@)A)B?@}AB88}?@y}Le)?)@)A)B?@}AB88}?@y}L)?)@)A)B?@}AB88}?@y}L)T@ U & .`.`Ee)@ EZ\ I^x 9N =R<c)ec@ \ x  =)@ \ x     C8Ii<=?0>e<=>=>DDLWCFL`>e=<><>DDLEe8 F`I E  C8Ii<8Ii=p><=?0>e<=>=>D]DLlCFL`>e=<><>D]DLL      !$'*-0  $(,048<@ #(-27KP% THEN A KEY HAS BEEN PRESSED,ie:FiH DEF,DIM, & BLOAD iRCODE%(15),X%(15),Y%(15),SCALE%(15),XROT%(15),YROT%(15),ZROT%(15),SX%(15),SY%(15)i\RESET%7932:CLR%7951:HIRES%7983:CRNCH%7737:TXTGEN%768ifD$(4): CTRL-Djz INITIALIZ(135CH)SIZEa3:1:100#a`*aa32abA0<=?0>e<=>=>DDLWCFL`>e=<><>DDLEe8 F`I E  C8Ii<8Ii=p><=<->e<=>=>DDLlCFL`>e=<><>DDL E      !$'*-0  $(,048<@ #(-27YY1JC%Y15X#C%8ī70`(C%o20,Y200,Yw<20F3:0,0200,0200,1200,1200,0PY U:DDU:AJ1:BK1&bMMW:M0M0=bLLW:L159L159JbJ0J0[bK279K279kb AJ1:BK1b3:N,LJ,L:J,M:K,M:K,L:P,L:A,DB,D:E,DE,C:F,C:F,DbC1920b250 I139IaZ3:A,YB,Y'adC69:CYCY9anD89:DYDY_axA,DB,D:E,DE,C:F,C:F,D:60aJ109:K169:L139:M19:N0:P279aQ1:U2:V6:W12a4:N,LJ,L:J,M:K,M:K,L:P,L:A,DB,D:E,DE,C:F,C:F,DbJJV:EEQ:KKV:FFQ:CC;`:THROUGH ENDLESS VERTICAL DOORS---RUSS KARAS 1-9-81D` :3s`0,0279,0:279,159:0,159:0,0: FRAME{`IO`0,139279,139:109,139109,19:169,19:169,139`2Y139:A110:B168:E134:F144`<4:A,YB,Y`FII1:I119ī200aPY `60000-`A,BCH,C:CH,A:CH,CD,B:H`dPERSPECTIVE((0)S)Oz`xCHANGEPERSPECTIVEĒ0:1:CHANGEPERSPECTIVE`3:1:100```a3`bA0`cD279`dS1.4`eO10`fO20`gB159`hC90`0100A 0,C:80,C:80,D:100,D:200'a TT0@a TTTT1:TT1004000Ja 3000WaZ0:Y51ia4:51,Y99,YsaZZ1~aY51Za3:51,Y99,YaZ68ī35a4010T ` :3P`0,12050,120:50,50:100,50:100,120:150,120:51,11999,119\`#T0:I0p`(TT1:T10050x`-40`2Y119`4:51,Y99,Y`,II1:I69ī2990`^Y119I`3:51,Y99,Y`C70:CYCY`XD100:DYDYa50,D60,D:6 g` C%16336`30(`B%(C%):207`E110000C`#E;"=";R`(P(E):P,^`2C(C%)e`<E 0,40140,40:140,72:60,72:60,40:64,44136,44:136,68:64,68:64,44: PICTURE FRAMEa86,4887,48:88,48:89,49:90,50:90,51:90,52:91,5191,52:94,52:95,53:95,54: BIRD'b64,5267,52:67,5371,53:71,55:73,55:73,57:75,57: B` MANUAL ENTRY OF 179X200GRAPH DRAWING---RUSS KARAS---1-6-80H` O`23`d0,0200,0:200,159:0,159:0,0:40,24:160,24:200,0:40,2440,100:`n4,3620,40:20,87:4,93:4,36:4,3816,40:16,87:4,90:16,8720,87:16,4020,40[ax6    100k, BEGIN SET AT 627639k- GRAPHIC UTILITY 1 ROT%(15),YROT%(15),ZROT%(15),SX%(15),SY%(15)jj\RESET%7932:CLR%7951:HIRES%7983:CRNCH%7737:TXTGEN%768jfD$(4): CTRL-Djz INITIALIZATION j::"MODULE NAME = ";M3D$jD$;"BLOAD MODULE.";M3D$jQZ1j BY JIM ST. LOUIS k+ THE KEYBOARD READ ADDRESS, KR% IS THE ADDRESS FOR KEYBOARD RESETicCS%16336: CS% IS THE ADDRESS TO CLICK THE SPEAKER ONCEidKP%127: IF KB%>KP% THEN A KEY HAS BEEN PRESSEDie:iH DEF,DIM, & BLOAD ,jRCODE%(15),X%(15),Y%(15),SCALE%(15),X";Z$h3I::h4A$(I)%h5J1I1h6:A$(J)>h7J:::Rh8D$;"CLOSE ";Z$hh9D$;"NOMON C,I,O"nh:h EACH A$ = SHAPEh EACH GAME = FILE NAMEh` DIMENSION & DEFINE haEE%868: CALL CLEARS LINE AibKB%16384:KR%16368: KB% ISFILE NAMEgQD$;"OPEN ";N$0gRD$;"WRITE ";N$9gSI1FgTJ1I1RgU:A$(J)YgVJmgWD$;"CLOSE ";N$sgXg( DOS READ g)D$(4): CTRL Dg-:D$(4)g. Z$ = NAME OF FILEg/D$;"MON C,I,O"g0::g1D$;"OPEN ";Z$h2D$;"READ 15f:1,100f'2f' MERGE LANDING ZONE Lf N CRYPTO & EDITORS bf*NI$:(I$):20010uf@ DOS WRITE fAA$(100):I0fBD$(4): CTRL DfJ I = A$(I) MAX.fM INPUT A$(*) HEREfNA$(I)""40009fOD$(4): CONT-D gP N$ = X50100e3"eCC(16352))eX2e192GeR27ZROT%(0)0\eZROT%(1)R:RR1deXCke1veN0:2}e3eT1100:N0:4:N1:1:Te::100,280eeeeX100:Y100e3e0,100250,100e100,0100,159f159 dd3dX,Y;d0,100279,100:100,0100,159NdZR5:XR5:YR5YdXC100_dzdXXC:Y100:N0:S15:4dXXC:Y140:N0:S5:3dY100dYR5:XR0:ZR0dN0:XROT%(0)5:192dZR((X50)1.85)dS((X50)3.33)dN0 e HGR/HGR2 (cTMH%0MH%1:16300,0:EcUMH%1MH%0:16299,0:YcdRESET%:HIRES%hcxCODE%(0)2wcCODE%(1)0cX%(0)100cY%(0)100cSCALE%(0)15cCRNCH%:CRNCH%:180ccPOKE-16299,0c3:X,Yd0,100279,100:100,0100,X279XX1!b*K%72X0XX16b+K%85Y0YY1Mb,K%78Y159YY1vb-(22):"X = ";X;" Y = ";Y;" ":b2 GRAPHICS CALLS b362454:bP FLIPFLOP TEXT/HGR bQMO%0MO%1:16303,0:bRMO%1MO%0:16304,0: cS FLIPFLOPa15: DETECTS ESC KEY0aK%(KB%):KR%,0:Ea SCAN KEYBOARDqa17:3:X,Y:F%(0):P%(CS%):K%KP%ıa0:X,Y:40:20a!T2701:ZROT%(N)T:CRNCH%:T%(CS%):T:a"T2701:ZROT%(N)T:CRNCH%:T:a( CURSOR H,U,J,N b)K%74: "`60000: CURSOR & ESC F`T027:XROT%(N)T:CRNCH%:T:j`T027:YROT%(N)T:CRNCH%:T:`T027:ZROT%(N)T:CRNCH%:T:`CODE%(N)2:X%(N)X:Y%(N)Y:SCALE%(N)S:XROT%(N)XR:YROT%(N)YR:ZROT%(N)ZR:CRNCH%:`20:K%27K%155ı       ?h L? ?>?ɍH) @ { ?h571=SWITcbf  p`P@0  0@P`p   0@P`pp`P@0    0@P`p L? ?>?ɍH) @ { AC1 : ; ; ADD X TO SWITCH Y ; #X (ZWORK),YGET X  #Y (ZWORK),YGET Y  $SWITCH,YGET CONTENTS OF SWITCH Y  AWORK1SAVE X AWORK1SAVE X SWITCH,YUPDATE SWITCH #$2 AC9000 ; ; ; AC1200 : ; ; SUBTRACT X FROM **!'r *+$(V]- +,$W]- +- (Xh=v 2.)Y> ,/M)ZA ,0N[A ,1 )cgn ,2Otx 3:]  4:^  5_Vu &6P`I# &C3100 AC3200 AC3300 AC3400 AC3500 AC3600 AC3700 AC3800 AC3900 ; ; ; H@()Ak;p 1B}Y>Cd; DS MEX NFX EG1aq H$? )ISo 0Jz  1K{ !LHF '"Ma> %# [Rn #$#O? x (%Pg (&&QEB -'&Ry -(S- *)T- `dd HH h0hH@hH@ `X``hH@@ HH(h Hب@ pHH0@@H(`hH@h H@HxHH@@hH@H `p`hH8 ȸH0HH@H𠸸hH(@8 XP`@ p؈88888X xph` X (PhHH0(H` PX X@`XHX@( `@@p (0`8@HPX0@x`@h@`h`px0PPP(00P`  <"\:FBF:<<@@\bBb\\bb\@<:FBBB8 0 "" "8.TTTT>DDDD8DDD8:FF:\bb\@@:F|<@>>H0BBBb\BBB$DDTTlB$$BBBb\@<~ ~880(8DRj2x$B~BBB>DD
DDDDD>~~~BB>BB>"B$$$$$~$~$$x8P<F&db  R"\   T8|8T| ~-@ BB<~B > `B@0ee6>60HH0>>>***>"6*""">$ 88>>>>*>><> ?:{>7 6`HNɍh%J) +%j )* * (je$*h)H'hH*&'*&'*&'&'i'&HO**+I`+h**O+i+$$! $%%#"%Nh`LLLL`ª`LQLYC0LXLeL          ,81:1,80:1,79:1,78:0,77:0,76 105:28,105:27,104:26,104:25,104wd*24,104:23,104:22,103:21,103:20,103:19,102:18,102:17,102:16,101:15,101d+14,100:13,99:12,99:11,98:10,97:9,96:8,95:7,94:6,93:6,92:5,91:4,90!e,4,89:3,88:3,87:3,86:2,85:2,84:2,83:1,82:157,86:57,87:57,88:56,89:56,90:55,91{c'54,92:54,93:53,94:52,95:51,96:50,97:49,98:48,99:47,99:46,100:45,101c(44,101:43,102:42,102:41,102:40,103:39,103:38,103:37,104:36,104:35,104#d)34,104:33,104:32,105:31,105:30,105:29,8,51:49,52:50,53:51,54:52,55:53,56:54,57:54,58b$55,59:56,60:56,61:57,62:57,63:57,64:58,65:58,66:58,67:59,68:59,69b%59,70:59,71:59,72:60,73:60,74:60,75:60,76:60,77:59,78:59,79:59,80(c&59,81:59,82:58,83:58,84:58,85:,51:14,50:15,49:16,49:17,48:18,48:19,48:20,47:21,47:22,47a!23,46:24,46:25,46:26,46:27,46:28,45:29,45:30,45:31,45:32,45:33,46a"34,46:35,46:36,46:37,46:38,47:39,47:40,47:41,48:42,48:43,48:44,495b#45,49:46,50:47,51:4#J` CIRCLE PLOTTED ON GRAPH PAPER AND ENTERED BY KEYBOARD---RK 1-6-81P` W`3`0,75:0,74:0,73:1,72:1,71:1,70:1,69:1,68:2,67:2,66:2,65:3,64`3,63:3,62:4,61:4,60:5,59:6,58:6,57:7,56:8,55:9,54:10,53:11,52Ba 12,51:13OM SWITcbf  p; AC1 : ; ; ADD X TO SWITCH Y ; #X (ZWORK),YGET X  #Y (ZWORK),YGET Y  $SWITCH,YGET CONTENTS OF SWITCH Y  AWORK1SAVE X AWORK1SAVE X SWITCH,YUPDATE SWITCH #$2 AC9000 ; ; ; AC1200 : ; ; SUBTRACT X FR **!'r *+$(V]- +,$W]- +- (Xh=v 2.)Y> ,/M)ZA ,0N[A ,1 )cgn ,2Otx 3:]  4:^  5_Vu &6P`I# &C3100 AC3200 AC3300 AC3400 AC3500 AC3600 AC3700 AC3800 AC3900 ; ; H(H@()Ak;p 1B}Y>Cd; DS MEX NFX EG1aq H$? )ISo 0Jz  1K{ !LHF '"Ma> %# [Rn #$#O? x (%Pg (&&QEB -'&Ry -(S- *)T-`dd HH h0hH@hH@ `X``hH@@ HH(h Hب@ pHH0@@H(`hH@h H@HxHH@@hH@H `p`hH8 ȸH0HH@H𠸸hC@8 XP`@ p؈88888X xph` X (PhHH0(H` PX X@`XHX@( `@@p (0`8@HPX0@x`@h@`h`px0PPP(00P`     ` `3` X139YX2X`0,79139,79:120,100:115,115:110,130:110,159k`X139,79141,77r`4{`X,Y`XX1`LX280X0` FF1` X0F0` YF` X139Y78`T 3` X,Y`X900X c` cacb3:0,0!ccMODE1*c0100M0,0,159b20,0,20,159)b40,0,40,159:b60,0,60,159Kb80,0,80,159_b100,0,100,159 rb$120,0,120,159zb.-2b8140,0bB140,159bG200,50bL-3bV279,0b`279,10bj279,20bt279,40b~279,80b-2 b250,0b-92:120aX11MODE1:1205aX13MODE3:120HaX18İ8:120[aY1:Y19270ea(24)yaMODE2İ2:120aMODE3İ3:120aX2:X29270aY2:Y29270a(24)aMODE1İ1aMODE2İ2a120aX$::X$:::b0,+`60000: DATA VIDEO e`"HPLOT X1=";X1;",Y1=";Y1;" TO X2=";X2;",Y2=";Y2;" ":X1,Y1X2,Y2:`"HPLOT TO X1=";X1;",Y1=";Y1;" ":X1,Y1:`"HPLOT X1=";X1;",Y1=";Y1;" ":X1,Y1:`C:C:`d`n`xX1`X19270aX12MODE   z"#??̠̠ӠȠԠ "Ġڠ ŠŠŠŠ٠ΠǠ Š٠ȠϠ Ҡ٠Ҡ ΠŠ ̠Ҡ ՠӠԠӠ ٠ŠŠ Ӡ ӠӠ̠Ӡ ŠĠ ̠̠ȠԠ" ŠŠӠ ŭέӠŠ  Ӡ ŠҠ ٠Ġ ̠ ̠ŠӠ Ӡ ٠Р Ҡ ӠӠ ҲҳӠҠҵ ŮĠ!Ůؠ"˱˱ŮҠŮҠ ٠Ġ  ٵϲŮŵʲΧӠŠȠԠˠ Ӡ˱ ŮӠϠαгĠ٠ΠŠŠŠҠՠҠůˠ:3:0:X139:Y79a(1&a21X,Y3a<SS1:S>aF1X,YKaPS3050QaZXS7` SHAPE TABLE FOR SQUARE RUSS KARAS 1-12-81` 7676,1:7677,0:7678,4:7679,0:7680,18:7681,63:7682,36:7683,36:7684,45:7685,45:7686,54:7687,54:7688,63:7689,0`232,252:233,29: STORES STARTING ADDRESS NO HIMEM PROTECTIONa  F (23):"STEP? = ";S<TT1:X0270S:X,T:XD(20S 4 2" RUSS KARAS 13 SECTOR DISK 12/27/80" +80,202:781,208:782,246:783,166:784,0:785,76:786,2:787,0:788,96jb"TEXTBOOK TONE UTILITY LOADED"pbIADED INTO MEMORY":a("TO LOAD TEXTBOOK VERSION INSTEAD,"Ka2"TYPE CONT"Qa<ad FOLLOWING IS TEXTBOOK VERSION, WHICH DIFFERS FROM THE "LEMONADE" VERSIONan770,173:771,48:772,192:773,136:774,208:775,4:776,198:777,1:778,240:779,8Fbx7r=`TONE PRODUCTION UTILITY (EX-"LEMONADE") RK 1-13-81` 770,173:771,48:772,192:773,136:774,208:775,5:776,206:777,1:778,3:779,240`780,9:781,202:782,208:783,245:784,174:785,0:786,3:787,76:788,2:789,3:790,96a"UTILITY LO}:(24):"SKIP=";S *X050HY((S2))159S:X,Y:YVXX(S2)m#Y0159S:X,Y:Yt2X{<5S  ݙPUUPDLL ݙUZUD DDD L @D  ` PP@DḎ  DDDDUUHH̙ U D D1133 LL(@DDDDDDP Z@HD̙  `U_U__ZZZUU𠯪UDD11  LL DDDD UUU_ ݙ UUUUZ@L  D13 LLDD    n+100!n, BEGIN SET AT 62763=n- GRAPHIC UTILITY 1 (15),X%(15),Y%(15),SCALE%(15),XROT%(15),YROT%(15),ZROT%(15),SX%(15),SY%(15)m\RESET%7932:CLR%7951:HIRES%7983:CRNCH%7737:TXTGEN%768mfD$(4): CTRL-DmpmM3D$"BIPLANE5&OBJ2"mM3D$""ĺD$;"BLOAD MODULE.";M3D$m$M3D$""ijm8RESET%INE hlbKB%16384:KR%16368: KB% IS THE KEYBOARD READ ADDRESS, KR% IS THE ADDRESS FOR KEYBOARD RESETlcCS%16336: CS% IS THE ADDRESS TO CLICK THE SPEAKER ONCEldKP%127: IF KB%>KP% THEN A KEY HAS BEEN PRESSEDlH DEF,DIM, & BLOAD KmRCODE%::k1D$;"OPEN ";Z$+k2D$;"READ ";Z$6k3I::Ak4A$(I)Lk5J1IXk6:A$(J)ek7J:::yk8D$;"CLOSE ";Z$k9D$;"NOMON C,I,O"k:k EACH A$ = SHAPEk EACH GAME = FILE NAMEk` DIMENSION & DEFINE laEE%868: CALL CLEARS L40009jOD$(4): CONT-D0jP N$ = FILE NAMECjQD$;"OPEN ";N$WjRD$;"WRITE ";N$`jSI1mjTJ1I1yjU:A$(J)jVJjWD$;"CLOSE ";N$jXj( DOS READ j)D$(4): CTRL Dj-:D$(4)j. Z$ = NAME OF FILEj/D$;"MON C,I,O"k0H% i300%iBOMB$:BOMB$"R"1007i::100,900:=i'Yi' MERGE LANDING ZONE si N CRYPTO & EDITORS i*NI$:(I$):20010i@ DOS WRITE iAA$(100):I0iBD$(4): CTRL DiJ I = A$(I) MAX.iM INPUT A$(*) HEREjNA$(I)""h1SCALE%(0)(T2)%h:YROT(1)T3Kh;YROT%(1)27YROT%(1)27YROT%(1)]h@ZROT%(0)27ThEYROT%(0)YROT%(0)2:YROT%(0)27YROT%(0)0hJX%(0)SX%(1)hTY%(0)SY%(1)hYXROT%(1)T:YROT%(1)T3:YROT%(1)0YROT%(1)27h^CRNCH%hhTiCRNCES%gCODE%(0)0PgX%(1)X:Y%(1)Y:ZR%(1)ZR:YR%(1)YR:XR%(1)XR:SCALE%(1)S_gCODE%(0)1kgCRNCH%wgCRNCH%gN0:4gN1:4g'Y%(1)100:X%(1)80g(Y%(0)100:X%(0)100g)YROT%(1)3g*YROT%(0)5:XROT%(0)10g+X%(1)140h,T027N)140:Y%(N)100:N:0fP FLIPFLOP TEXT/HGR MfQMO%0MO%1:16303,0:jfRMO%1MO%0:16304,0:fS FLIPFLOP HGR/HGR2 fTMH%0MH%1:16300,0:fUMH%1MH%0:16299,0:fdfxX140:Y100:ZR0:YR0:XR0:S15f52gCLR%:HIR(0):" ":(22):(0):"X = ";X;" Y = ";Y;" "Fe.CRNCH%e/(22):(0):" ":(22):(0):"X = ";X;" Y = ";Y;" "e1e2 GRAPHICS CALLS e362454:f4N01:CODE%(N)0:SCALE%(N)15:XROT%(N)0:YROT%(N)0:ZROT%(N)0:X%(027:ZROT%(N)T:CRNCH%:T:XROT%(N)0:CRNCH%:[d%T027:YROT%(N)T:CRNCH%:CRNCH%:T:d&T027:ZROT%(N)T:CRNCH%::CRNCH:d( CURSOR H,U,J,N d)K%74X279XX1d*K%72X0XX1d+K%85Y0YY1d,K%78Y159YY1:e-(22):15: DETECTS ESC KEY+cK%(KB%):KR%,0:@c SCAN KEYBOARDlc17:3:X,Y:F%(0):P%(CS%):K%KP%ıc0:X,Y:40:20c!T2701:ZROT%(N)T:CRNCH%:T%(CS%):T:c#T027:XROT%(N)T:CRNCH%:CRNCH%:T:XROT%(N)0:CRNCH%:CRNCH%:/d$TT%(1)T:X%(0)SX%(1):Y%(0)SY%(1):CRNCH%:T:\bS015:4:S:1:2:3:S1501:4:S:eb QZ1b T028:ZROT%(N)T:YROT%(N)28T:CRNCH%:T:bT028:ZROT%(1)T:ZROT%(0)28T:XROT%(1)28T:XROT%(0)T:CRNCH%:T:b20:K%27K%155ıcZROT%(N)ZR:CODE%(N)2:CRNCH%:CRNCH%:aCODE%(N)1:X%(N)X:Y%(N)Y:SCALE%(N)S:XROT%(N)XR:YROT%(N)YR:ZROT%(N)ZR:CRNCH%:CRNCH:aT015:SCALE%(N)T:CRNCH%:T:T1501:SCALE%(N)T:CRNCH%:T:.bX%(1)140:Y%(1)100:SCALE%(1)15:T027:ZRO'%" REQUEST CATALOG"027:XROT%(N)T:CRNCH%:T:XROT%(N)0:CRNCH%:`T027:YROT%(N)T:CRNCH%:T:YROT%(N)0:CRNCH%:`T027:ZROT%(N)T:CRNCH%:T:ZROT%(N)0:CRNCH%:(aX%(N)X:Y%(N)Y:SCALE%(N)S:XROT%(N)XR:YROT%(N)YR:     GAME = FILE NAME,h` DIMENSION & DEFINE MhaEE%868: CALL CLEARS LINE hbKB%16384:KR%16368: KB% IS THE KEYBOARD READ ADDRESS, KR% IS THE ADDRESS FOR KEYBOARD RESEThcCS%16336: CS% IS THE ADDRESS TO CLICK THE SPEAKER ONCE$idKP%127: IF): CTRL Dg-:D$(4)0g. Z$ = NAME OF FILEDg/D$;"MON C,I,O"Ng0::ag1D$;"OPEN ";Z$tg2D$;"READ ";Z$g3I::g4A$(I)g5J1Ig6:A$(J)g7J:::g8D$;"CLOSE ";Z$g9D$;"NOMON C,I,O"g:g EACH A$ = SHAPEh EACH 4): CTRL D!fJ I = A$(I) MAX.9fM INPUT A$(*) HERENfNA$(I)""40009cfOD$(4): CONT-DyfP N$ = FILE NAMEfQD$;"OPEN ";N$fRD$;"WRITE ";N$fSI1fTJ1I1fU:A$(J)fVJfWD$;"CLOSE ";N$fXf( DOS READ g)D$(44:N1:1:Te::100,280"e(e.e>eX100:Y100Ee3Xe0,100250,100ke100,0100,159se15e:1,100e'e' MERGE LANDING ZONE e N CRYPTO & EDITORS e*NI$:(I$):20010e@ DOS WRITE eAA$(100):I0 fBD$(ZR5:XR5:YR5dXC100%dX100/dY1007dN0@dS15Vd:HIRES%:HIRES%idN0:4:CRNCH%wdX50100d1:2:3dCC(CS%)dXd192dR27ZROT%(0)0dZROT%(1)R:RR1dXCd1dN0:2d3 eT1100:N0:MO%1MO%0:16304,0:3cS FLIPFLOP HGR/HGR2 PcTMH%0MH%1:16300,0:mcUMH%1MH%0:16299,0:cdCODE(0)0:CODE(1)0ciRESET%cc3:X,Yc0,100279,100:100,0100,159cc3cX,Yc0,100279,100:100,0100,159d:T:b( CURSOR H,U,J,N 4b)K%74X279XX1Ib*K%72X0XX1^b+K%85Y0YY1ub,K%78Y159YY1b-(22):"X = ";X;" Y = ";Y;" ":b2 GRAPHICS CALLS b362454:bP FLIPFLOP TEXT/HGR bQMO%0MO%1:16303,0:cRCRNCH%:CRNCH%'a20:K%27K%155ıAa15: DETECTS ESC KEYXaK%(KB%):KR%,0:ma SCAN KEYBOARDa17:3:X,Y:F%(0):P%(CS%):K%KP%ıa0:X,Y:40:20a!T2701:ZROT%(N)T:CRNCH%:T%(CS%):T:b"T2701:ZROT%(N)T:CRNCH% "`60000: CURSOR & ESC F`T027:XROT%(N)T:CRNCH%:T:j`T027:YROT%(N)T:CRNCH%:T:`T027:ZROT%(N)T:CRNCH%:T:`CODE%(N)2:X%(N)X:Y%(N)Y:SCALE%(N)S:XROT%(N)XR:YROT%(N)YR:ZROT%(N)ZR:CRNCH%:` ::100,999:aE 01 b83,108 l87,110! v88,99, 90,957 50,78B 85,78N 44,111Z 46,117f 52,120r 56,115~ 56,120 60,122 65,122 70,122 75,122 80,122 80,116 84,118 88,114 R"GHOULISH FUCKUP!!!!" f1 97,80 96,83 88,84+ 80,846 73,79A 73,73L 78,69W 84,65b 39,96n 43,100z 45,103 45,109 53,110 54,105 59,111 60,104 &62,112 067,105 :69,112 D75,104 N78,110 X81,103 82 29,75 27,60# 30,50. 35,409 45,32D 60,27O 40,66Z 50,66e 53,67p 60,70{ 64,72 64,79 57,85 "52,86 ,45,86 642,85 @37,82 J35,80 T35,76 ^36,70 h93,65 r97,67 |99,73 379,27$#88,310(100,42<-105,65H.105,80T2108,84`7106,89k<99,94vA96,91F94,110K89,122P80,131U70,133Z55,133_50,130d40,120n38,108x36,9633,9630,93 29,    )279adY(1)191 anR063'axR2a1X,Y?aR6320FaROa110IP `:I0+`Y(1)159:X(1)279:II1;`C(1)7:CP`X,Y:I5000ī10W`2c` ::I0q`C%(1)6`C%3C%6`(C%7C%2`-II1:I3I1`.I1Ĺ16299,0`/I2Ĺ16300,0`2C%`<S%(1)30`FS%0S%1`PS%aZX(1 hL50 iC140 jW3:N4& 0100 H(60000: RJK 1/81 ;X,YA,Y:A,B:X,B:X,Y:KdFFH(FS)XiFVFVenFIFVpxF(F)XTF:ACF:YIF:BEFW:1F%(0)N:1100` SET-UPabH.5cV5dS.2eI79fT139gE806,120fS]60,122fZ]65,122)fa]70,1225fh]75,122Afo]80,122Mfv]80,116Xf}]23051df]84,118pf]88,114f](10):(24):"GHOULISH FUCKUP?????"f](10):(24)f]TIME11000:TIMEf]:23058T110e\54,105e\59,111'e\60,1043e\62,112?e\67,105Ke\69,112Ve\23051be\75,104ne\78,110ze\81,103e\83,108e]87,110e ]88,99e]90,95e]50,78e"]85,78e)]23051e0]44,111e7]46,117e>]52,120eE]56,115fL]551 d\37,82d\35,80#d&\35,76.d-\36,709d4\93,65Dd;\23051OdB\97,67ZdI\99,73edP\97,80pdW\96,83{d^\88,84de\80,84dl\23051ds\73,79dz\73,73d\78,69d\84,65d\39,96d\43,100d\45,103d\23051d\45,109e\53, FROM HERE ON, BEGIN WITH ANOTHER HPLOT BEFORE HPLOT-TO'S.Fc[23051Lc[Rc[]c[40,66hc[23051sc[40,66~c[23051c[50,66c[53,67c[23051c[60,70c[64,72c[64,79c[23051c[57,85c[52,86c\45,86c \42,85d\2308,108b[23051b[36,96'b[230513b[33,96>b#[23051Jb*[30,93Ub1[23051ab8[29,82lb?[23051xbF[29,75bM[23051bT[27,60b[[23051bb[30,50bi[23051bp[35,40bw[23051b~[45,32b[23051;c[79,27: COMPLETES OUTLINE amZ23051atZ106,89"a{Z23051.aZ99,949aZ23051EaZ96,91PaZ23051]aZ94,110haZ23051uaZ89,122aZ23051aZ80,131aZ23051aZ70,133aZ23051aZ55,133aZ23051aZ50,130aZ23051aZ40,120aZ23051b[3!`Y SCRAPPY HALLOWEEN V.2 '`YT`YBRA16336: IN FEMTO-PUSSYFATHOMS_`Z23058p` ZWOW(BRA):v`Z}`Z3` Z79,27`'Z23051`.Z88,31`5Z23051`KP% THEN A KEY HAS BEEN PRESSEDNmH DEF,DIM, & BLOAD mRCODE%(15),X%(15),Y%(15),SCALE%(15),XROT%(15),YROT%(15),ZROT%(15),SX%(15),SY%(15)m\RESET%7932:CLR%7951:HIRES%7983:CRNCH%7737:TXTGEN%768mfD$(4): CTRL-Dmpnl43150 l૲ AUDIO CONTROL ?ɍH) @ { ?h&= -2 , @N-/1$ TCODE%(N&28 hX%(N)X:&'(N)YE |1:p`P@0  0@P`p   0@P`pp`P@0    0@P`p L? ?>?ɍH) @ {  R   +,*,"$&(.P HGR/HGR2 Q TMH%0MH%1:16300,0:n UMH%1MH%0:16299,0: dRESET%:CLR%:HIRES% x84 3:X,Y 0,100279,100:100,0100,159 3 X,Y 0,100279,100:100,0100,159   )*)+!#%'-1:CODE%(N)0:SCALE%(N)15:XROT%(N)0:YROT%(N)0:ZROT%(N)0:X%(N)140:Y%(N)100:N: F SOUND EFFECTS GROUNDS1BURST:T(16352):F%(0):ROUNDS: P FLIPFLOP TEXT/HGR QMO%0MO%1:16303,0:H@(FF +K%85Y0YY1[ ,K%78Y159YY1 -(22):(0):" ":(22):(0):"X = ";X;" Y = ";Y;" " .CRNCH% /(22):(0):" ":(22):(0):"X = ";X;" Y = ";Y;" " 1 2 `X``hH@@ HH(h Hب@ pHH0@@H(`hH@h H@HxHH@@hH@H `p`hH8 ȸH0HH@H𠸸hH(/' ##### xph` X (PhHH0(H` PX X@`XHXАx(@pH`p@Аx (0pH8@HPXp@(ЈH x ((@pH`h@ppx@pHИ`@xpH  <"\:FBF:<<@@\bBb\\bb\@<:FBBB8 0 "" "8.TTTT>DDDD8DDD8:FF:\bb\@@:F|<@>>H0BBBb\BBB$DDTTlB$$BBBb\@<~ ~880(8DRj2x$B~BBB>DD
DDDDD>~~~BB>BB>"B$$$$$~$~$$x8P<F&db  R"\   T8|8T| ~-@ BB<~B > `B@0ee6>60HH0>>>***>"6*""">$ 88>>>>*>><> ?:{>7 6`HNɍh%J) +%j )* * (je$*h)H'hH*&'*&'*&'&'i'&HO**+I`+h**O+i+$$! $%%#"%Nh`LLLL`ª`LQLYC0LXLeL          0,114,60,96,60,72,60,1000,0,=bx114,60,107,60,114,60,128,60,96,120,114,60,128,60,144,240b128,60,114,120,144,60,171,120,144,60,171,15,144,15,171,30,192,240b192,60,144,120,114,60,128,120,192,60,144,120,114,60,128,60c114,60,107,60,96,60,114,60,144,60,128,120,192,60,144,6P1000Ā aF768,P:769,TV:770(aP50ad96,180,114,180,144,180,192,180,171,60,152,60,144,60,171,120,144,60,192,60,192,60,171,60,152,60,171,60,192,60an128,180,96,180,114,180,144,180,171,60,152,60,144,60,128,120,114,60,128,60,152,60,171,60,192,120`"DAISY"&`RUSS KARAS 1-15-81>`TONE UTILITY POKES` 770,173:771,48:772,192:773,136:774,208:775,5:776,206:777,1:778,3:779,240`780,9:781,202:782,208:783,245:784,174:785,0:786,3:787,76:788,2:789,3:790,96`2P,TVa<ŠŠŠŠŠΠ٠ĠΠŠ S# 16388,0: CLEAR KBD STROBE3 :936::A: 2 LINES, FROM Y AND Y+1B 3S: FIRST LINE BLACK, NEXT WHITEt DRAW LINE THROUGH "CENTER" TO OPPOSITE SIDE 279,YSA,B0,159YS (16384)155250 S,Y 1145,14:16038 40: DRAW A NEW PATTERN 16298,0: TURN OFF HI-REEP THROUGH X VALUES8 dS01: 2 LINES, FROM X AND X+1` n3S: FIRST LINE BLACK, NEXT WHITE x DRAW LINE THROUGH "CENTER" TO OPPOSITE SIDE XS,0A,B279XS,159 (16384)155250 S,X Y0158I%: STEP THROUGH Y VALUES S014 : CLEAR THE TEXT WINDOW=:216,0: TURN OFF ONERRCm(: SET HIGH RESOLUTION GRAPHICS MODE2A(1)279: PICK AN X FOR "CENTER"<B(1)159: PICK A Y FOR "CENTER"FI%((1)4)2: PICK A STEP SIZEP:22 ZX0278I%: ST   KE 24576,0" ( " POKE 103,1". F " POKE 104,96"L c " POKE 175,1"i  " POKE176,96" :(24):" CATALOG"; (8)   ` APPLESOFT 3D  aCODE%(15),X%(15),Y%(15),SCALE%(15),XROT%(15),YROT%(15) 10/20/80 3D HEADER #h"UNLIKE INTEGER BASIC,":"APPLESOFT REQUIRES A SERIES OF POKES""WHICH WILL DESTROY THIS PROGRAM":"REQUIRING YOU LOAD IT AGAIN.""THE POKES ARE:"(10)" DEL 0,21": " PO k, BEGIN SET AT 627635k- GRAPHIC UTILITY 1 E%(15),XROT%(15),YROT%(15),ZROT%(15),SX%(15),SY%(15)rj\RESET%7932:CLR%7951:HIRES%7983:CRNCH%7737:TXTGEN%768jfD$(4): CTRL-Djz INITIALIZATION jM3D$"2STARMX"jD$;"BLOAD MODULE.";M3D$jQZ1j BY JIM ST. LOUIS k+100 KB% IS THE KEYBOARD READ ADDRESS, KR% IS THE ADDRESS FOR KEYBOARD RESETicCS%16336: CS% IS THE ADDRESS TO CLICK THE SPEAKER ONCEidKP%127: IF KB%>KP% THEN A KEY HAS BEEN PRESSEDie:iH DEF,DIM, & BLOAD 4jRCODE%(15),X%(15),Y%(15),SCAL$;"READ ";Z$h3I::"h4A$(I)-h5J1I9h6:A$(J)Fh7J:::Zh8D$;"CLOSE ";Z$ph9D$;"NOMON C,I,O"vh:h EACH A$ = SHAPEh EACH GAME = FILE NAMEh` DIMENSION & DEFINE haEE%868: CALL CLEARS LINE IibKB%16384:KR%16368: N$ = FILE NAME$gQD$;"OPEN ";N$8gRD$;"WRITE ";N$AgSI1NgTJ1I1ZgU:A$(J)agVJugWD$;"CLOSE ";N${gXg( DOS READ g)D$(4): CTRL Dg-:D$(4)g. Z$ = NAME OF FILEg/D$;"MON C,I,O"g0::g1D$;"OPEN ";Z$ h2D159 f15f:1,100f':f' MERGE LANDING ZONE Tf N CRYPTO & EDITORS jf*NI$:(I$):20010}f@ DOS WRITE fAA$(100):I0fBD$(4): CTRL DfJ I = A$(I) MAX.fM INPUT A$(*) HEREfNA$(I)""40009fOD$(4): CONT-DgPS((X50)3.33)eX50100&e34-eX6e192KeR27ZROT%(1)0`eZROT%(1)R:RR1heXCoe1zeN0:2eN1:3eT1100:N0:4:N1:1:Te::100,280eeeeX100:Y100e3e0,100250,100f100,0100, ? &d0,100279,100:100,0100,159,d3d3b200,208,245,174,0,3,76,2,3,96,1000-ad::3:0?an1:X137:Y96Jax1X,YTaSS1iaS:X139(S2.5)taPS10a1X,Ya768,P:769,20:770aS25200a120aC%(1)7aS%(1)24aX%(1)279aY%(1)191aC%:S%1bP@` JSL CLONES---RK 1-12-81` 232,252:233,29:7676,1:7677,0:7678,4:7679,0:7680,46:7681,36:7682,145:7683,37:7684,39:7685,13:7686,54:7687,5:7688,0`A770`N:N1000100`(A,N:AA1:30a2173,48,192,136,208,5,206,1,3,240,9,20279 fT139 gE80 hL50) iC1405 jW3:Z4N kM59:N159:O0:Q219W l110X60000: RJK 1/81 _X,YA,Y:A,B:X,B:X,Y:M,OX,Y:Q,OA,Y:M,NX,B:Q,NA,B:onFFH(FS)|xFVFVFIFVF(F)Z:1XTF:ACF:YIF:BEFW:1110` SET-UPabH.5cV5dS.2 eI0 gMODE1g3000g+1008g, BEGIN SET AT 62763Qg- GRAPHIC UTILITY `g9 RJK10 M,O" fH::$f\D$;"OPEN ";SHAPE$;fpD$;"READ ";SHAPE$Hf:S$(N%)ifS$(N%)(0)N%N%1:43140fD$;"CLOSE ";SHAPE$fD$;"NOMON C,I,O"fԨf૲ AUDIO CONTROL fH DEF,DIM, & BLOAD fD$(4): CTRL-Dfffg3:0,T eL:/eV"ENTER NEW SHAPE NAME ";SHAPE$Fe`D$;"OPEN ";SHAPE$^etD$;"WRITE ";SHAPE$keT1NM%we:S$(T)~eTeĤ:(0)eؤD$;"CLOSE ";SHAPE$e줱e DOS READ e T020:S$(T)"":Te:e "SHAPE #";SHAPE$f4D$;"MON C,IS ABS. OFFSETd!d֜SUB LINE0dۜ6:X%C%XEdPP1:6:Y%C%Y[dPP1:6:X2%C%YrdPP1:6:Y2%Y2%1yd7dSUB 7 DRAWS LINEdd( GRAPHIC EDIT/STORE d DOS WRITE d$S$(0)""ıd8T020:S$(T)""NM%T1:T20:TeB))cC%200M%C%-cM% IS THE PLOT MODE7cPP1]cM%40105,40155,40200,40250,40300scNOTE M% REUSABLEcIMPLEMENTS PLOT UNTIL C%=250cPccWRAPS UP LOOPcSUB POINTc6:X%C%XcPP1:6:Y%C%YcXX%,YY% dX I bEANNOTATED&bJ"SHAPE #";SHAPE$;bOINPUT TEMPORARYRbTNM%((SHAPE$,2))gbY NM% IS MAX. N yb^P1(S$(N))bcP SCANS S$(N) bh N IS SET BEFORE SUB 40000bm6brGOSUB6 DECODES ASCIIbwC%0ıc|POSSIBLY REDUNDANT WITH LEN(S$(Na Y1:Y193017(a MODE2İ61:3002>a MODE3İ62:3002Ra X2:X293017fa Y2:Y293017a (24):(1):"X1 =";X1;" Y1 =";Y1;" X2 = ";X2;" Y2 = ";Y2;" "a MODE1İ60a MODE2İ61a 3002a X$::X$:::b@ RELATIVE PLOT a`61100: DATA VIDEO /`<X1,Y1X2,Y2:=`=X1,Y1:J`>X1,Y1:V`?C:C:}`0,0,0,159,279,159,279,0,0,0,-9 ` ` ` X1` X193017` X12MODE2:3002` X11MODE1:3002` X13MODE3:3002` X18İ63:3002     ,0 u u0 u( @ DOS WRITE 8 JS$(1)""ı\ TT0LIMIT:S$(T)""NT:40040c ^Tk h: r"ENTER OPUS NAME: ";OPUS$ |D$;"OPEN ";OP$ D$;"WRITE ";OP$ N T1N :S$(T) T D$;"CLOSE ";OP$ œ100 ( DF$:5000,5999:F$:6000,6999:F$:7000,7999:F$:8000,8999:F$:9000,9999:F$u 9u"LIST UTILITIES?";F$:F$""30011 :u40000,49999:F$ ;u"LIST DEFINITIONS AND DIMENSIONS?";F$:F$""Ā 2020+ T255D  "NOTE= ";P:1:3100J 'a 0u LIST UTILITY 1u"LIST SUBS?";F$:F$""30005 2u0,9:F$:10,19:F$:20,29:F$:30,39:F$:40,49:F$:50,59:F$:60,69:F$:70,79:F$:80,89:F$:90,99:F$ 5u"LIST 76:A%(10)72:A%(11)64:A%(12)57:( d2 n30008 N TUNE ARRAY A%(*)V T8] 3c  A%73ė:"INPUT:":PA%(N%):T10:1:"A%(";N%;")= ";:A%(N):T255:1:T10:2010 PA%(N%):1 K040 "A%(";K;")= ";A%(K);" ", PA%(K):(60000: FROM RJK & LEMONADEDPITCH,P:TIME,T:770:uN$:A%(N$):N%(N$):A%3ĉ::2000,2999:{::30000 ::100,999:" A%(0)192:A%(1)171:A%(2)152:A%(3)144:A%(4)128:A%(5)114:A%(6)102:A%(7)96:A%(8)85:A%(9) $dA0:B0:C279:D159:X79-2958':MMMI,M((1)125)X6MMM295a900A,BV,X:C,D:C,BV,X:A,D:V139M5:500lV139M6:500 300 A  p 7W259 H(H@(|w\y6?22H h0hH@hH@ `X``hH@@ HH(h Hب@ pHH0@@H(`hH@h H@HxHH@@hH@H `p`hH8 ȸH0HH@H𠸸hC 00 XP`@ p؈88888X xph` X (PhHH0(H` PX X@`XHX (08@HPX`hpx     TP2Dh~6lSxe`sh@9?ɍH) @ { ?h&3?  p`P@0  0@P`p   0@P`pp`P@0    0@P`p L? ?>?ɍH) @ {  7W259 H@(|w\y6?22H h0hH@hH@ `X``hH@@ HH(h Hب@ pHH0@@H(`hH@h H@HxHH@@hH@H `p`hH8 ȸH0HH@H𠸸hH( 00 XP`@ p؈88888X xph` X (PhHH0(H` PX X@`XHX (08@HPX`hpx  <"\:FBF:<<@@\bBb\\bb\@<:FBBB8 0 "" "8.TTTT>DDDD8DDD8:FF:\bb\@@:F|<@>>H0BBBb\BBB$DDTTlB$$BBBb\@<~ ~880(8DRj2x$B~BBB>DD
DDDDD>~~~BB>BB>"B$$$$$~$~$$x8P<F&db  R"\   T8|8T| ~-@ BB<~B > `B@0ee6>60HH0>>>***>"6*""">$ 88>>>>*>><> ?:{>7 6`HNɍh%J) +%j )* * (je$*h)H'hH*&'*&'*&'&'i'&HO**+I`+h**O+i+$$! $%%#"%Nh`LLLL`ª`LQLYC0LXLeL               TP2<:vqlSxo\sh@97Ak{?h L? ?>?ɍH) @ { ?h&3?  p`P@0  0@P`p   0@P`pp`P@0    0@P`p L? ?>?ɍH) @ {  7W259 H@(|w\y6?22H h0hH@hH@ `X``hH@@ HH(h Hب@ pHH0@@H(`hH@h H@HxHH@@hH@H `p`hH8 ȸH0HH@H𠸸hH( 00 XP`@ p؈88888X xph` X (PhHH0(H` PX X@`XHX (08@HPX`hpx  <"\:FBF:<<@@\bBb\\bb\@<:FBBB8 0 "" "8.TTTT>DDDD8DDD8:FF:\bb\@@:F|<@>>H0BBBb\BBB$DDTTlB$$BBBb\@<~ ~880(8DRj2x$B~BBB>DD
DDDDD>~~~BB>BB>"B$$$$$~$~$$x8P<F&db  R"\   T8|8T| ~-@ BB<~B > `B@0ee6>60HH0>>>***>"6*""">$ 88>>>>*>><> ?:{>7 6`HNɍh%J) +%j )* * (je$*h)H'hH*&'*&'*&'&'i'&HOQ**+I`+hQ**O+i+$$! $%%#"%Nh`LLLL`ª`LQLYC0LXLeL!! ! ! ! ! !!!!!!!!!     T A%73ė:"INPUT:":PA%(N%):T10:1:"A%(";N%;")= ";:A%(N):T255:1:T10:2010d PA%(N%):1p K040 "A%(";K;")= ";A%(K);" ", PA%(K):1 *K 4(39):(1) >2020 T255  "NOTE= ";P:1:3100 ' 0u LIST UTILITY !)192:A%(1)171:A%(2)152:A%(3)144:A%(4)128:A%(5)114:A%(6)102:A%(7)96:A%(8)85:A%(9)76:A%(10)72:A%(11)64:A%(12)57: d:"TYPE IN ANY STRING UP TO 255 CHARACTERS:": iS$(0):N0 n5 x100  TUNE ARRAY A%(*) T8 3  (60000: FROM RJK & LEMONADEDPITCH,P:TIME,T:770:uN$:A%(N$):N%(N$):A%3ĉ::2000,2999:{R1(S$(N)):E((S$(N),R,1)):EE64:E1E50E1(R1):"^";:PE%(E):1:R:::30000 ::100,999:| A%(0"""YC2)(Y)bYC0YC1&bYF100YC8bRY%(YDYF)1JbXRXRX%:RYRY%Yb'RX0RX0jb'RX99RX99yb$'RY0RY0b.'RY99RY99b*RX,RYb,TT1bP-T9T1b-T100,101,102,103,104,105,106,107TajX10:Y10:Z10:2003akX10:Y10:Z10:200=aB%A%Ia,A%(1)^a^B%(A%1)A%B%sahB%(A%1)A%B%aB%A%5000aaX3aXC(A%(Z)).8aXD(XC2)(X)aXC0XC1aXF100XCaRX%(XDXF)1apYC(A%(Z)).8 bzYD(O` PERSPECTIVE PROJECTION EXPERIMENTS 12-30-80 ET SEQ RUSS KARASU` \`3g`11500`dX10:Y10:Z10:200`eX10:Y10:Z10:200`fX10:Y10:Z10:200`gX10:Y10:Z10:200`hX10:Y10:Z10:200aiX10:Y10:Z10:200" ""c-9 c`cacb3:0,0)ccMODE12c0100Mb0,0,0,159 b20,0,20,1591b40,0,40,159Bb60,0,60,159Sb80,0,80,159gb100,0,100,159 zb$120,0,120,159b.-2b8140,0bB140,159bG200,50bL-3bV279,0b`279,10bj279,20bt279,40b~279,80b-2 b250,02MODE2:120&aX11MODE1:120=aX13MODE3:120PaX18İ8:120caY1:Y19270ma(24)aMODE2İ2:120aMODE3İ3:120aX2:X29270aY2:Y29270a(24)aMODE1İ1aMODE2İ2a120bX$::X$:::3`60000: DATA VIDEO i`"HPLOT X1=";X1;" , Y1=";Y1;" TO X2=";X2;" , Y2=";Y2;" ":X1,Y1X2,Y2:`"HPLOT TO X1=";X1;" , Y1=";Y1;" ":X1,Y1:`"HPLOT X1=";X1;" , Y1=";Y1;" ":X1,Y1:`C:C:`d`n`xX1`X19270aX1"" " "