X'0 [ȹ'$ LŠŠˠŠΠҠˠ ΠӠݺ` LRL@{ WNL@{ L L L ` P}L} g RPQ L $N 80 8  80 8  80 8  80 8  ` g RQP` ` P} ` | P} |L |L||8頠 8 L| n|o|% 2|mwy|x|$,|0Iꮖ||L ` |  L L ` ` TL |  L {{I`T{ @ 8 wU{T{LԽe{R{t{S{LPESGHO3WBMJDJR|}}}~{{~~|~xL% "L |  `L@{` |x ݢ{01`ݢ{67Lɠ/Ɉɍ%|| || yyL yL!   ȘHh٩zstxLxP﨩 (  L{{           ߬ߠߍ堣ߍﺍЮϮɠ۠ݠߍ󠠠۠ݠߍ砠۠ݠߍߍߍߍ젠۠ݠߍ젠۠ݠߍ䠠۠ݠߍ󠠠ߍ򠠠۠ݠߍ򠠠۠ݠߍ堠󠠠۠ݠߍ󠠠۠ݠߍ󠠠۠ݠߍ򠠠۠ݠߍ۠ݠߍà۠ݠ߫ɠ報퍱Ң䮍砠۠ݠ  ɠ򮠠㬠ᠶð報ﮠ嬠󠫫䡍򠭠󮠠ɠ  """ " " " " """""""""        $$$$Y}7`aiU.GQ31cT!{o鷗̞&:ԡ__Ԛ>iߊVjHL6;Zꇱٍ 3%!T@,F"2Jy<(m}] Gj;Nf<@V H}KS[gZ4YV6A^Ll ^;!gX`Ezn}%X2n9XnUC}  !!!!!!!"""""""####### @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @d_mw!) Hwh)vέТw vLjLj %'1; EO LYcmmɀI``18`1;Lm}11;ȱ}''mm` Lj % L'1; EOLLj vwHxxJ LjLHJ IxxxbjLj @`JHL LjϠŠĠҍ LjŠԠĠΠҍ <  Lj ΕJހJހL; ȐLj)LjL{HI J/ȱȱȱyH0z HJ HJ xx rxx rI ; Lj0  `  `0 `  `  0 L Ɇ 0 L  LjJJLJJLJJL;ހLjFCmwGmwD'ĩ#mwvЍu'vivLjmwQ` Lj m m2NImw8574 Y2ЭLj2 3.mwнLj 8̄ф̈́҄Ḯ҄Lj ( WhLj LK i$} eȱemȱ`i`E@mwăà жLj 1L9LpLLLLcLL LLʅL`L LKLLֈLL~LL,T1 2`,U,RF MLG,S,W,P`0LjLEmwHWhȑWhLjmwHWhȱߪ + ޮ' ߪ + ޮ ߪL+ -` 0` CLԢ | i} 3` | L g RPQ L i} 6  ߪL+ ߪ + ީ ߪL+ |SCL؀ɔL,ɕL?L@{ | kLԎր L i} i} L׀ L g RPQ Lր׀';1EOYcm` | 5LԎ ޮ;1 L L L` |ɇLɴ0FL@{ | ' ެ ߪL+ g RPQ PQ PQ PQ $` ! ߪ + ޭ ߪ + ީ ߪL+ gLR | *` | i} ` OL| |M ɕ(S7L@{ |  L ` ` | L L L ` DL@{  L ` H h0!a ީ ߪ +` ީL~1O L@{b0 䮠󮍍Ԡ䮠ŠԠӮӮŮﺍǠ̠ЍﬠԠ󩮍庠ҠĠƠ٬ŬŠԬ㮠󠤱ﺍӠōîϮĮ캠䠤Š΍ǠΠӠؠ䠶堨嬠宍ֱˠ򠫫Í宠宠ӠӮ庍Í䮠ȠҠ (C) 1988 UpTime~S4((64447)255(64447)0)7((64447)3(64447)4):((64435)6(64448)0)ĺ(4)"PR#"S:(0) (48896)76ĺ104,66:16896,0(4)"RUNSG.PROGRAM" )U((** * "" **"*"*("( """"(  ((( đ "   < ( $$$$  """"""""""""""((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP11 $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?堨詮庍ԍﮍЮϮˠ󺍍򠭠󠭠ͩ宠àǬӠ٬ŬˠŠ婮ŠC,RET"+(10)"URN,X,S. REPEAT FLAG:"RP;12Z<21:1:"HI-BIT:"HB" X="X" Y="Y" "`F|P CHECK LIMITS ROUTINE ZX0XX280dX279XX280nY0YY192xY191YY192Y159Ĺ16302,0Y160Ĺ16301,0XOX:YOY:1CY191CY0#CY160Ĺ16301,09CY159Ĺ16302,0^LOC(LKCY)256(LK256CY)CXtLOC,255(LOC):  PRINT STATUS ROUTINE 21:1:"HI-BIT:"HB" X="X" Y="Y" ";:24:"STEPX="SX",STEPY="SY:"COMMANDS:ARROW KEYS,A,Z,H,SPACE,ES):CYCY1:1210:1120F~A$(8)ĹLOC,255(LOC):CXCX1:1210:1120xA$(21)ĹLOC,255(LOC):CXCX1:1210:1120A$(27)İ1210:FL1:A$(13)ı1120 CHECK LIMITS OF CURSOR CX0CX39CX39CX0CY0CY191 ,L"LG1:216,0:160RB:21::"DISK ERROR!";::" PRESS A KEY TO RECOVER:";:A$\L1050wV MOVE CURSOR ROUTINE `MF1740jA$:A$"Z"A$((A$)32)oA$(11)A$"A"ĹLOC,255(LOC):CYCY1:1210:1120tA$(10)A$"Z"ĹLOC,255(LOC "SHPSP1$LGSHPSP1:A$:SF%0:21:"TYPE FILENAME TO SAVE (RETURN EXITS)"::"'?' TO CATALOG DISK":22:1:":";A$:(A$)160$1090.A$"?"İ790:10503SF%ė:D$"BSAVE"A$".SSH,A"SP",L"LG1:216,0:1608:D$"BSAVE"A$".SGL,A"SP"X11:SP1,Y2Y11:1210:CXX1:CYY1:1210816301,0vSHPSP2:IY1Y2:JX1X2:BYTE(LKI)256(LK256I)JSHP,(BYTE):SHPSHP1:J,I :21:1:"DONE. SHAPE BEGINNING ADDRESS = "SP:7:"SHAPE ENDING ADDRESS = "SHP1:7:"SHAPE LENGTH =1210:1120,FLCXX1:CYY1:1270:160h:21:1:"COMPILE AS A .SSH OR .SGL SHAPE?":"(S/G):";A$:A$((A$)32(A$"Z")):A$"S"A$"G"963X2CX:Y2CYA$"S"İ1800:1050:21:1:"PLEASE WAIT....COMPILING SHAPE"*SP,X2ETURN."f"(OR ESC TO EXIT)"6pCX0:CY0:FL0:B0Fz1210:1120SFLī160cX1CX:Y1CY:21:1:"NOW MOVE THE CURSOR TO THE LOWER-RIGHT CORNER OF THE SHAPE, THEN PRESS RETURN.""(OR ESC TO EXIT)"CY159Ĺ16301,0:I11500: :8304D$"CAT"O>216,0:I140:"-";:::"PRESS ANY KEY:";:A$:3100:H:"DISK ERROR!";::" PRESS A KEY TO RECOVER:";:A$:3100:160R [3] SAVE SHAPE \:21:1:"MOVE THE CURSOR TO THE UPPER-LEFT":"CORNER OF THE SHAPE, THEN PRESS R0:! CHECK LIMITS FOR SHAPE =CX0CX39240(LD%1)[CX(39240(LD%1))CX0lCY0CY191}CY191CY0CY159Ĺ16302,0CY160Ĺ16301,0CX,CY,SP:  CATALOG ROUTINE 840 :::DOS820*D$"CATALOG" 160LCX,CY,SP:MOUSECX,CY,BB:CX(CXDIV%):CY(CY2):CX,CY,SPU692(16384)127A$((16384)128):16368,0:A$"Z"A$((A$)32)BB1A$(13)(A$)620650CY(SP116(LD%1))160Ĺ16301,0:16302,:MF650?DA$:A$(11)A$"A"įCX,CY,SP:CYCY1:710:570qNA$(10)A$"Z"įCX,CY,SP:CYCY1:710:570XA$(8)įCX,CY,SP:CXCX1:710:570bA$(21)įCX,CY,SP:CXCX1:710:570lA$(27)įCX,CY,SP:160n692vA$(13)570:550540>:D$"BLOAD"A$".SSH,A"SP:LD%1:216,0:550:21::"DISK ERROR!";::" PRESS A KEY TO RECOVER:";:A$:500&CX0:CY0:CX,CY,SP021:1:"MOVE THE SHAPE TO THE DESIRED LOCATION AND PRESS RETURN."5DIV%10:LD%DIV%1.4 USEXX,YY,BB:BB4450"A$" "1(A$)290:390P [2] LOAD SHAPE :21:"TYPE FILENAME TO LOAD (RETURN EXITS)"::"'?' TO CATALOG DISK":22:1:":";A$:(A$)160532A$"?"İ790:500:D$"BLOAD"A$".SGL,A"SP:LD%0:216,0ﺍŠЮϮɠϠŠӠŮ󺍍蠠󠭠󠭠砨󮠠󠤲讠 -AAAL@ 8   8   `AAAA AA$PAȑ AL^A AAөA) JJAAк`H)Ah ) A`H)AhA$P ȱ) AA Aȱ A) A`A `@L@L@Ȅ@eiӠHihIi(0` $(,048<  e A AAAA  8  AA  AA384)155İ1250:FL1:# B41740A MOUSECC,CC,B:B41770G d  COMPILE SHAPE AS .SSH CXX1:CYY1:1270:CXX2:CYY2:1270 X12(X12)X1X11 252,Y1:253,Y2Y1:254,X1:255,X2:SS3 LG(2)(3)2562576:SF%1::80N TO EXIT)"022:1:868:":";F$:(F$)160GF$"?"İ790:1690R1730qD$"BLOAD"F$",A$2000":160216,0:"DISK ERROR OCCURRED!";:PAUSE255,5:160 MOUSEREAD FOR [3] 1250:MOUSECX,CY,B:CX(CX10):CY(CY2):1250 (16C$:(C$)154021:868:B$"X"SX(C$)GB$"Y"SY(C$)Q"1300a| [5] QUIT x::DOSĺD$"BYE"UTĹ104,8:768:"UpTime Quit Code [4] LOAD PICTURE :21:"TYPE NAME OF PICTURE TO LOAD"::"(? TO CATALOG; RETURX,Y:. PLOT DOT IN CORRECT COLOR ROUTINE G1X,Y:(234)1480U0:HBĒ4_1490m3:HBĒ7X,Y:1X,Y: CHANGE X OR Y STEP ROUTINE 22:1:"X OR Y STEP?:";B$:B$"X"B$"Y"15201:868:"INPUT STEP (1-9):";?;|?|?~~~>\>~?? ? ?A?>??__/=?A???@~?W?/??¤?eZVڽU|/C;z^>gjɣ_@x4*+UVU_@UBT /ztt/A5F _~S`O>>`NoK+Um6߯JM*Uj%m/hY<| mn/_}DhO{!$WHI-eǿEi_m"KH?jӟIzI5uԖpo.I"o6Y[%$ͶOF۶~Ir m~id&-mo"Mm2hmyiGH[4ZI$ж,mlZJ7ؔ5>u@$ #ſP\q Gs8C>`sG<yG8ﮟ{GI|({p\J߀WWLWMW00MWW* LW LW,` W W WLWLW` j j 8H E /nosn؛)ɶۻfevkVv\Lhi7s{8yTajmDMS*_5yߨa9s:ʾqs?          ~\>́p> `|`>#\ |>{G@>` }{:|?@~?ah ? wj-?`x?=lOhg63~pN?{/y`0@`,}A|x~u<pyGo8n ޡ7?@g?#$~?`q?8~q?a<~q~Çp?8}pp`p88 _A?t? s`pq|폇}pcߜ?8a.pp|8?||xvp>>w~?Çp`?z?@|?>~?@@? Gp>ct}?p?_yzs;cƼ~=,8cnw"q 4`G 8?}_I >c ~9~9? A9s}Ϩyo>`[{t98g,aŌÞ8sxa<=yPNvoymۧ4۾om >o%y<<q>wpn>;G81/#.|?p~???`?x<}0>~y'|x~>??xL?~ ?AG(#?@O? ?8sό9ǿ8ߜ{zÎy?<<LJ:CC{C=xGp}#|<<<LJ>=G=cǯP>×Pvxwx@<`y"o`M7& s {=??>?w7|~|><?~h>C1Ѓ؆ }|#Cp8\?;/xxߋ??X?ǁx>~??Ct p^>8a Ϙ`q0?0 ?݃8yü=|> wA7qAq,@~C?Aa?<3t~A:Xx>p~?w>|p9;1{o|u:@?BxCp=t<t c1@C׸h 6{h?s.|@ψ> g{|9=|{Q6Fèu|>8zC<xǟ98aǀ?LJ??  }~q1ǎ? z p /?1Ǿ~ ju`Ϡ><0??_|Ï<_~qaXM&_[?N:&?k)_u]ox^?_/~~~||?8>|?!cQ*?5_G{{}8??G  O^ '~/__?? +G ? >-{_φq1?>>?~@?/~?/? { ?/@?m?0?b_WioH^+SUn‡Rf6[^[},.of޴m5mVؕҮ~t??>  gna,s|?`??2= ?Ï?j~G?>??A$P/?0{_??>=||= |cax||9ɜ]G ^?L>τx|~?>|?|LJ>>~x>~U|?ǹ|x_~?p?>?/~|82_qz> [i>`<>>~ߟ<}|>~>~|w4}ݟ@dwtüsl>9O/>0ټ8g211!38ox]ގs}n2z!Xu<:qy!|Ϗ>x'`E?~`'?E,moKl                              < (  !!!      (FL          w          )32           }"N; #!F{X:YY,Y:IC:Nu  . 16368,0Q 17:1:"X      8):A$"Z"A$((A$P           )         *z$0 w  y {L   23)c       K _j y ~ y      T 3:T HBĒ4:T 0:UH 17:5:(SOԀUՂ.Jf̀̀̀ϏɉɉɉϏÃÃP*ՀՀՀՀЪ@*ՂՂՂՂՀĀ*ՊՊՊՊԂ(ԪԪԪԪЊ UЪЪЪЪՀрЪЪрՀՀՂՂԀՂՊՊ FzJ ЂT ԊՀՂՂc,$6HZl~݀׀׀ՀЀ܂܂ԂЀЋЊ2RrЂԊժժлԪԪ|3f|gL3|_}s3|gL0~_}sL3fg?~_}3~>>8~_}_}_U*U*U*U*U*U*UU*U*U*U*U*U*U*BZrՊՊԪԪЪЪՀU*U*U*U**U*U*U*U*U*ĈĈĀ U*U*U*U*U*U*UU*U*U*U*U*U*U}_}_}~~_}s|g|_}s~gL98p_}3zCsfaC?zs?z?Z*U*U*U*U*5z?z?za?s?zI1'O'"d?za?FOD?zy1'NO$rd?zy?$N&r?zg?z?zcIpq'x?zI1Iy<"~?zI?Iy$ |?zI1Iy$'~?zc8Ly1'x?zOs?z?z?*U*G$y$rs?"N$y$xas?2Nd8Axx"""" " " " " @ Š $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?ܠL qLMqqqe0q/qqrsq0qqqqq`eqqpqqqqrsqqqqqqq`ŬîܭŠӠݠpݭԠϠŬŬϬݭܨĠӠŠĩϬΠp`p2pKpȄ`ݭŬݭԠϠɯݭԠŠܠӠݠϠŭҠ   D"A$"A"A$"M"A$"T"B1- B1140S A$""Ĺ253,X:254,Y:IC100:210 B4:255,1(A$"D")2(A$"A")3(A$"M")4(A$"T") (255)įSOUND100,50,1:130 (255)380,700,840,1460 POKE DOT AND ICONS IN C0: L,R,T((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP堵䠲堲󠵠䠲𮍍󠳭䠱䠲𮍍󠲭󠰠堵󺍍󠭠䍦򲠭䍍󺍍Ġ䠠欠ң䮍亍笠⠨ũ򍍦򠭠ᠨ堲報堲󍍍򺍍à󮠠à󺍍Ӡ纍報ɮΠî宬ͺͺà͠󮍍堨ΠîîӠ󠤷°Ơ򠴸ˠî͠Ʈà宍ç堢àìíéààà                USEXX,YY,BB:BB4450"A$" "1(A$)290:390P [2] LOAD SHAPE :21:"TYPE FILENAME TO LOAD (RETURN EXITS)"::"'?' TO CATALOG DISK":22:1:":";A$:(A$)160532A$"?"İ790:500:D$"BLOAD"A$".SGL,A"SP:LD%0:216,0|A$"":230\MOUSEX,Y,BB:X(X1.4):Y(Y2):XOXYOYĕ1X,Y:1XO,YO:XOX:YOYf1340{Y160Ĺ16301,0Y159Ĺ16302,0(16384)128A$((16384)128):16368,0:A$"Z"A$((A$)32)BB4470FTFT0:390MO70:340! "A$"H"HB1HB:1300= ,A$(13)RP1RP:1300X 6MFA$"S"İ1510:230 @A$"X"Ģ22:1:"DO YOU REALLY WANT TO ERASE THE SCREEN?";:B$:1:868:B$"y"B$"Y"đ:1X,Y JA$(27)ĕ1X,Y:160 TRPİ1450 ^1340hA$" "İ1450 [1] EDIT SHAPE  1X,Y+ :13007 MF390V A$:A$"Z"A$((A$)32) A$"A"A$(11)ĕ1XO,YO:YYSY:1370:340 A$"Z"A$(10)ĕ1XO,YO:YYSY:1370:340 A$(21)ĕ1XO,YO:XXSX:1370:340 A$(8)ĕ1XO,YO:XXSX:13 MENU :21:"OPTIONS:":"[1] EDIT SHAPE";:20:"[2] LOAD SHAPE":"[3] SAVE SHAPE";:20:"[4] LOAD PICTURE":"[ESC] QUIT: "; 16301,0 A$:((A$)(A$)4)(A$(27))180 FT1:A$(27)A$"5" A(A$)1:A$"":A500,860,1690,1670A$((A$)32(A$"Z")):A$"Y"A$"N"95> `:A$"N"AC1U dACįMOUSEFIND,MFp iMFįMOUSE0,390,0,382 nI05:J:STI,J::0:1:232,0:233,(ST256):1,0,4,0,7,0 x230,32:62450:3100:230,32 X0:Y0:OXX:OYY HB0:SX1:SY1 F(4)"-grabasic.48p"* O DEFINE VARS q PD$(4):UT(768)76(771)76:DOS(48896)76:DOSD$(13)(4) RD$"BLOADSG.SYSTEM" ULK2048:SP2816:ST2560:SS16384 ZSS:** GENERATE LOOKUP TABLES ^:"Do you have a mouse? (Y/N) ";+ _A$:(3)2562576:SF%1:======* GRABASIC SHAPE GRABBERS* BY JOHN ROMEROj(* (C) 1988 UpTime2*======================= 8(48896)7660942739,94:42740,166:0:(21):::1002<(48896)76ĺ(13)(4)"BRUNGRABASIC.48":80ج٬ ج٠® 󺍍仠䍲仠䍳仠䮠󮍍箠򮠠Ӯ栰Ӡ䮠򠱲宠뮠ؠ٠Ⱜ̠̠䯱䩮ⱬ̠󺍍Ӡîú䠯䠯󺍍ج٠宠宍򠭠塍à򮠠򠭠򠭠򠭠򠭠堲򠱮󠭱󺍍à򮍍     àé卍àç󮠠     à嬠à󩍍󠳠嬠򮍍亍ŠӍήÍήӍήӍήԍήӍîӠӠ䠱󍍪堢䠢砸宠䬠宍à󺍍à̠󍍪報䮠ź򮠠ݠݠ卍ݠ嬠ݠ䬠ݠ쮍𫫫é卍à̠󮠠󺍍ۼݠۭݠ à뮍亍îӠӠ䠱à嬠󮍍場蠤îàج٠򠦠컠򠤰Ʈ宠ج٬䍴仠䍍󺍍ϠԠ砼徠ᠱؠ٠󮍍ݠݠ卍ݠɭԮ䮠ݠݬݬݬݠﮍݠ󺍍۱ݠԠŠ۲ݠĠō۳ݠŠŠ۴ݠĠōݠԺ󺍍۱ݠԠō嫫àé卍ᠮ̠Ƞà宠Ԡנŭ׺Ơ˨Πˠج٬נج٬ č亍ȠҍŮ͍Ů͍îӠˮ蠨ᠮȠҤҤΠîĤҤҤĤĠŮȬĤĠȮȬԺźҍԠϠ宠젮̠讍謠çԬ׬נ䠦Š򮠠堲à庠讍栲讠蠲󠨲堨婠堨婠ؠ٠󮠠ﬠ讠ݠ宠ݠΠκ袠堨䩮䬠ݬݬݬݠݠ讠ݠŠκ讠嬠ᠮȠ䬠ᠮ̠宠謠堮Ƞ蠭ȠŠκ堨詠謠𮠠嬠堨Ƞ̩場ݠݠݠݠ󺍍ˠκ묠РzFb!# X'0 [ȹ'$ LӠӠ   ήԠήӠˠŠŠĠ$ Ҡ٠ ȠҠ Ů͠ ŮӠ ŠӠ ήà!ήӠήӠ ȠҮؠ ŠӮؠŠҮؠ îŠҠ!Ǯ͠Ǯ͠ Ӡ ŠŠ̠Ҡ٠  ӠԠ0ӠԠ à ŠҮؠ  Ҡ î֠ ˠų ȠҠ̠Ӡ̮ΠҠӠĠ̠ŠŠˠΠŠŠϠŠĠĠŠ͠ՠԠĠ̠ŠĮҠ報ԍ堲󢍷  ݢԠؤź  Ԡ󿠢ΤĤŢΤ̤¢čԠĤҤźݮԠؤԠΤҺŠŠĤĢΤĤΠ򮍍ݭݠݩ纍ЍŠ٠Š宩嬠뮍󮮮󮠠˩ԠϠ報宠ɫР嬠묠ݩݭݠ纍נݍŠŠȠˠ󮍍󮠠Ӡ뺍󺍍堢ݢ󮠠ݠ򮠠堨ݭΠݭݩ宍ɠ͠򠱲͠宍ɫ򠱲󮍍宠򠱲宠ݭݬ堢ң󮍍ɫ󺍍î֠뮠𰰳ɮ庍󮍍캍嬠Ԡ묠危宍ɠɠ򍍨뮠                    Ӡ䠱à嬠Šݠԍ亍ŠҍǮ͍Ǯ͍îﬠ嬠嬠宠۴ݠĠōᠮ̠Ƞ宠ݠ宍ᠮȠ嬠뢠򠱴󮠠宠ݠݠ婮۲ݠĠō䬠堮̠Ƞ۳ݠŠōLNLL`LL l KE%33 Gd ACANCEO@ M* Т IN L L, MLl B``9Ly  r r(03 P rŠ)JJ & & f)`` 67L)L 󺍍󺍍Ġ뮠ݭݠݩ庠뮠ŠҠֱӠ堳󠱳򮠠̠Ӡ뮍場宠嬠뮍뮠䮠ɠ堢䠢䢠䠢䠢宍̠λ󢠭婠ﺍĠǠӍϠӮ̠Πֱ̠Πֱ̠λ󢠭堵𠤱ᵶ󮠠嬠卍쬠󠹠̠Ġ٠ō٫Ӫ̠̠΍栢嬠󮍍嬠卍砳󺍍ӠӠ宠ΠŠ庠Πخ砵󺍍Ӡ堳Ԡ䮠Ӡ堵󮍍󮠠嬠嬠ɠ뮍嬠宠쮠蠲䠢뢠䠢뢭䠱宠嬠󮠠󮍍䠨ˠ嬠뺠ˠ嬢󠲭嬠﫫ŧӠŭӺӮ笠čĮî堲󮠢䠯 򮠠堯䠯㮠宠堯墠Ӡ堯宠嬠䠢砳䮍Ӭ󮠠䬠󮠠ᢠᢠ󮠠堢䢠󮍍嬠󠷠ᮠ堢宠宠堢讠򮍍󮠠嬠묢󮠠쬠謠󮠠宠󮠠宍嬢嬠ᠢᠢ嬠󮠠ᠢᠢà󮍍Π堢򮢠栶Π뮠宠堢򮢠嬠묠䬠砹󮠠嬠󮠠ɠ蠴ˬ宍宠ﬠ򮍍à笠笠뮠宠宠󮠠嬠蠢宠󫫫Ӯ笠č󺍍䠨젯袠ՠ򫫫Ϭ堯ӠӮ堯堸               쩍묠묠嬠䠵뮍庠讍Įîﮍ㮩堯㬠嬠Ӯˮ嬍嬠䠨쩍嬠纠뺠婠纠䮠󮠠쬠嬠笠䢠򮠠䮍箠䠯 箠欢쬢䠢 堯䠯栲嬠嬠宠嬠󮍍纠栱򠱶󮠠宍򠶠󮠠󮠠宠𮠠嬠󮠠򮍍宠𮍍󠲰宠ᠲ宠栲󮠠䮠宠묠Ϡà󮠠Ϡ嬠Ϡ򮍍ᮠ󮍍à쮠䠠箠嬠嬠嬠宠嬠䠱󮠠䬠䮠鮠󮍍쬠宠ᬠ󠲠謠㮠젱ɯϠᠢ좠㮠ϠϠϠàϠ󮠠讍ϠàϮᠢ򮢠䠢󩬠砨箠󩮍堢箠򮠠䬠墠젨ᢠ䠢堢󮢠Ϡ󮠠䬠嬠客梠󮠠堳䠢¬â젢䠢殢䠢󮢠䠰䠵梠宠宍ϠàϠϠ󮠠󠱲󮠠䠠󬠲쬠䠷󮠠庠嬠嬠䮠嬠ϠàϮ󠶴ˮ堯ӮϠí䠨ᠱ򮍍纠栱Ϡàύ󮠠䠲󮍍笠ɠéˮ䠲宠䮠嬠宠󠲠嬠à宠󠶠󠳠󮠠ᠱ箠ɫ嬠Ӯ󮠠󮠠󮠠à󮠠󮍍䠲䮠󮍍ҮϮӮˠ嬠嬠嬠򮠠򮠠䬠嬠䠵﫫ӠԠ²ԭ덍ᠢ𬢠󠱰        纠栱ӠԠ䬠íɠíɠ󮠠Ϡ󮠠宠íɠɩ嬠䠲󮠠쮍ϠϠϠ󮠠íɠɩ謠Ϡí󠷠䮠Ϡ宠堲󺠢䬢󬢠䠢客䮠Ϡ󮍍嬠ϠàϠ󮠠ϬϠ嬠ϠàϠ󮍍庠卤썍󮠠Ϡ嬠讠Ϡà谍󮠠堠ӠӠ䮠䬠󮠠쬠ɠ󮍍纠栱򠲠󮠠Ϡ宠ɠᬠ󮠠宠뮢報򮍍䬠䬠򮠠堳䠢̢䠢Ң򮠠墠򮠠Ϣ󮍍ɠ報ɯϠ򮠠󮠠嬠Ϡ򮠠嬠󠴸ˮìӬӠ嬠àﮠϠ젱ɭ󠳠宠ɠà򠱲ɠϠɠɭɠ嬠à󩬠謠宠ᠢ򮍍纠栱ɠ󮠠뻢䬠àà䮍󮠠堵㮠ҍǮ͍Ǯ͍îӠӠ䠱à嬠򮍍۴ݠĠōŠ۵ݠԍ亍宍ᠮȠ嬠뢠򠱴󮠠ﬠ嬠嬠宠宠ݠݠᠮ̠Ƞ堮Ƞ̠쮍۳ݠŠō宠ݠɭԮ婮۲ݠĠō䬠堮̠Ƞﮍݠؠ٠󮍍ݠݠ卍ݠ덍䮠ݠڬ䠨à橠󺍍۱ݠԠŠ۲ݠĠō۳ݠŠŠ۴ݠĠō۵ݠԺ󺍍۱ݠԠūàé卍ᠮ̠Ƞà宠 󮍍危䬠Ԡɠ庠嬠嬠Ϡ砲󮍤嬠嬠Ϡ􍣱砲ϠíɠíɮϠ㮍䮍䬠Ԡ²ԭ庠㮍蠱ԠɩϠà묠젹젹Ϡà련źϠ󠣹䠹庠㮍䬠ʠϠàí멠íɠɩíɠ򠯯䠯㠨󠯯㫩ɠɬ򮍍䮠𮠠䮠󮍍ﬠ䬠䮠ɠԠ堯嬯㬠󮍍獍Р󮍍󮍍Ů嬠堯䠯㮠쮠ɬ宠򠴰󮍍썍쬠笠砢󮠠㍍栭󮠠堦䠺ɠ塍䠭󮍍堭宮ɠ塠㮠ɠӡɠ󮍍Ӡ宠Ӡ󮠠ﬠɮ󮠠卍砷򮍍򠭠󮍍렲۫嬠󮍍ӯӠɬ宠򮠠󡍍獍ŠӠ䬠箍렳󍳮堭ӯӠ笠堢客堳堵宍󮠨㮩ӯӬ䠢ӠӠ䠱à嬠N7:1450:17:6::"S";::"HAPE":8:"OR":6::"P";::"ATH?:";aX1490:A$"S"A$"P"600wbB$A$:WN7:1580l700vWN7:700A$"C"730810WN7:DOS680D$"PR#0"::::D$"CATALOG":690D$"PR#0"::::D$"CAT DISK ICON HANDLER ,MįX,Y,$402FN&WX4:WY158:WW10:WD6:1450017:6::"C";::"ATALOG,":6::"L";::"OAD,":6::"S";::"AVE, OR":6::"Q";::"UIT?:";:1490:A$"C"A$"L"A$"S"A$"Q"ČWN7:700DA$"L"640BNWL:IC25C,R:IC50C,T:IC75C,B:CC1:LR420bI05:J:29696I,J::232,0:233,116:1:0hy ICON DATA 30,52,175,18994,143,176,183176,206,176,183230,246,175,1890,0,0,0 SHAPE TABLE DATA 1,0,4,0,7,0"A"A$"M"A$"T"B1# TB1300I ^A$""Ĺ253,X:254,Y:IC100:370 hB4:255,1(A$"D")2(A$"A")3(A$"M")4(A$"T") r(255)įSOUND100,50,1:290 |(255)540,870,1010,1720   POKE DOT AND ICONS IN C01L,R,T,B:ICC,79,168:33,175,$40C1 410D X0:Y12:OXX:OYY:MįX,Y,$402FU  MAIN LOOP _ "A$"" ,MįMOUSEX,Y,B:XOXYOYįOX,OY,$402F:X,Y,$402F:OXX:OYY 6(16384)128340 @16368,0:A$((16384)):A$"Z"A$((A$)32) JA$"D"A$2,0u GEN:1:1:"LOAD PICTURE?:";:A$:A$"y"A$"Y"Ģ1:1:20);:1:"FILENAME:";F$:(F$)ĺD$"BLOAD"F$",A$2000" 1:1:38);:1:"The GraBasic PATH EDITOR: by John Romero" 6:0,10279,10 5,175,$4000:23:15:"ANIMATE MAKE":0,1682" IC28672:WN28928:PA16640G PC2:LD0:PA,0:PA1,0:PA2,234m :"DO YOU HAVE A MOUSE? (Y/N) "; A$:A$((A$)32(A$"Z")):A$"Y"A$"N"170 A$"N"AC1 ACįMOUSEFIND,M MįMOUSE0,279,12,191 230,32:62450::1630690" F(768)76(771)7690O P42739,94:42740,166:0:(21):::1002} Z(48896)76ĺ(4)"BRUNGRABASIC.48P":110 d(13)(4)"BRUNGRABASIC.48" n16896:D$(4):DOS(48896)76:DOSD$(13)(4) xD$"BLOADPE.SHAPES":D$"BLOADPE.SYSTEM *=======================;* GRABASIC PATH EDITORQ* BY JOHN ROMEROh(* (C) 1988 UpTime2*======================= 7S4((64447)255(64447)0)7((64447)3(64447)4):((64435)6(64448)0)ĺ(4)"PR#"S:(0) <(48896)7     ٠䮍Ӡ孭򠤹󮠠Ӡᠱ堳堭󮠠堸ˠӠ󮠠笠嬠󮠠箠㮩󡠠򠲱䮍ɠ宍쮠場ðɬ󡠠堮򠤱󠤱򠤱Ӯ󮠠;!1490:A$"Y"A$"N"17402A$"N"1790tPC2:WN7:0:I12167:0,I279,I::PA,0:PA1,0:PA2,234FX0:FY0:LX0:LY0:MįX,Y,$402F290WN7:MįX,Y,$402F290X64435)6(64448)0)ĺ(4)"PR#"S:(0) <(48896)7127YV256YV8LXLXXV:LYLYYV:LX,LY::LD1:620LLD1:WN7:620216,0:WN7:1450:12:2:"<<<< AN ERROR OCCURRED! >>>";:A$:WN7:1580 TRASH ICON HANDLER WX1:WY108:WW15:WD3:1450:MįX,Y,$402F12:3:"ERASE PATH?:"PTH,A$4100":216,0:1630CTD$"BLOAD"F$".SSH,A$7500":216,0:1690f^PC0:0:I12167:0,I279,I:h(PAPC)234PCPC2:1640rFX(PAPC2):FY(PAPC3):LXX━FY:FX,FY|3:I0PC22:XV(PAI):YV(PAI1):XV127XV256XVYV:" ";(8);I125:7(16384)1281500fA$((16384)128):A$"Z"A$((A$)32)v16368,0:" LOAD SHAPE OR PATH ,WX0:WY108:WW40:WD3:1450612:2:"FILENAME:";F$:(F$)1690@1700JB$"P"ĺD$"BLOAD"F$".PAPC,234:PAPC1,2343 OPEN A WINDOW gWN,WX:WN1,WXWW:WN2,WY:WN3,WYWD8:WN43:7WX,WY7WX7WW1,WY7WX7WW1,WYWD817WX,WYWD817WX,WY GET A KEYPRESS (HIRES) 16368,0"_";(8);I125MįMOUSE0,279,12,1912270+<PC0ımFPC0PC2:PA,0:PA1,0:PA2,234:0:1FX,FY:LXFX:LYFY:zP1LX,LYZPCPC2dXV(PAPC):XV128LXLXXV:1400nLXLX(256XV)xYV(PAPC1):YV128LYLYYV:1420LYLY(256YV)1271060A$(27)1320?XLXĹPAPC,256(XLX):1260RPAPC,(XLX)wYLYĹPAPC1,256(YLY):1280PAPC1,(YLY)1X,Y:LXX:LYY PCPC2:PAPC,234:PAPC1,234MįMOUSEX,Y,B:B413001060(WN7:1X,Y:X),OY:OXX:OYY:A$""$B11060,B4PC252Ģ23:2:32);:2:"MAXIMUM SIZE OF PATH!";:A$:2:32);:2:"ESC = EXIT, X = DELETE LAST MOVE";:1060PC2ĕ1X,Y:LXX:LYY:FXX:FYY:1290YLY22XLX221060 (YLY)127(XLX)16384)128):16368,0:A$"Z"A$((A$)32)J8A$"X"İ1340:A$"":1170]BA$(27)1320iLM1170VA$"J"XX2:X0X279`A$"L"XX2:X279X0jA$"I"YY2:Y12Y166tA$"K"YY2:Y166Y12~A$" "B11X,Y:1(OMįMOUSEX,Y,B:B41020lWX0:WY218:WW40:WD3:1450:23:2:"ESC = EXIT, X = DELETE LAST MOVE";X0:Y12:OXX:OYY:MX140:Y77:OXX:OYY1X,Y$MįMOUSEX,Y,B:XOXYOYĕ1(OX),OY:1X,Y:OXX:OYY,.(16384)127A$((įOX,OY,$402F:X,Y,$402F:OXX:OYY?B1(16384)155970H93016368,0:PTHCHECK0,XX,YY,A:XX,YY,$7500:MįX,Y,$402FWN7:BOX0,39,0,191:MįX,Y,$402F290 "make" ICON HANDLER A$"":MįX,Y,$402F:MOUSE0,279,12,1666įX,Y,$402F:MOUSE0,279,12,191?zMįMOUSEX,Y,B:B4890WX0:WY218:WW40:WD3:1450:23:2:"ESC OR MOUSE BUTTON TO EXIT";FX,FY,$7500:BOX0,39,12,166PTHSET0$4100,$7500,1FX,FY:16368,0PTH$MįMOUSEX,Y,B:XOXYOY4::D$"PR#0":DOSĺD$"BYE">>(768)76(771)76850kH768:"UpTime's Quit-to-Desktop routine"qR\ "animate" ICON HANDLER fLDWX0:WY218:WW40:WD3:1450:23:2:"NO .SSH SHAPE LOADED FOR ANIMATION!";:A$:WN7:290!pMY16N7:620*WX0:WY108:WW40:WD3:1450Q12:2:"FILENAME:";F$:(F$)800[810w PAPC2,FX:PAPC3,FYD$"BSAVE"F$".PTH,A$4100,L"PC4:216,0 WN7:620*216,0:WN7:1450:12:2:"<<<< AN ERROR OCCURRED! >>>";:A$:WN7:750":690[216,0:I140:"-";::"PRESS A KEY:";:A$::3100:16302,0:230,32:GEN:550nMįX,Y,$402Fw290 "save path" ROUTINE A$"S"820WN7:PC2WX0:WY108:WW40:WD3:1450:12:2:"YOU HAVEN'T MADE A PATH YET!";:A$:W栤䬠ﮠ嬠㡠𮠠󮠠宠נ堢宠󮠠宠塍㩠󮠠󮠠讍Ơ䮠򮠠묠ɬ󮍍笠ӠӠ򮍍`""U%U *||<|<|\\|%* U*** x{z@@?;5.?%U *<Dow%*UAAa`pp`AU~UyEUUUQQU1'{w|%U*//' *&~&*30 ***L D^>>^^>*** *Uuxx||>?UsssUUUU(((*         !!! ! 堤嬠䠤󮠠宍笠󮠠宍宠󠤳嬠䮠宠嬠ᠳ嬠򮠠ɮ򠤴̡ӮӮŠ򠷠\[[[*U@@UeUUeaUU70?_p8u%9<77<U*/ ()**)* #(?*&&/*aaaA**q?(/]'m`0??zyooy*!UG00x`!!! @@wUUw}}~}~k+**+/b~~bU * *|poGo** WUUUyr^^^sUyU&&???IIUU{K o {{KU*z|~_ogqpx *02*FgF*dfp dI**wv uwvv*U_CAU@AU2U$d {y~|UU}-m mmmU*z||~~*LL* K*+++*+***{Z[`> I|DLL~UUssssU*KA``ppxx| *(#(*&*IO ?**O@OOOs|drpGOaGO*U_CAaU76UUUUgdgNwwwp IUUPWTU*||~>??*  ** &(*** 9p``oo`O HK** JB*UWOo~>Ug`BU* xpx *"?*Y*331*/(**`OpH3s*UTQSSaU@A0@UDaUUU sU*ppxx||> * vf *|<|*sCsO7g?**|dHxgqyyy*UCUUUUyyIIqIIpyNHpy>>`>* *Uuxx||>U33UU((( W]wUU~N~~~>~~>NNN~~U*Kaappxx||*** * ( *++?*&/7< |777w{**@?? `0??8?0*UWUTAUFFU|U@3@a?a???^UUFff'gggloo}%U *a@\&gCS_Q%* U~jjj@%U`*"U%U!*||<||<|\\||%*!U* {{x@?;5.?%U!*<>^pwo%*UAAa`pp`UA}UL1UUQQ}7|w{%U*//' G~*  *c1b* LLL u_`>* Ussapyy9ULDOOsaooeooeoooUU}~x{}3003> U *Yxypgf*cyIOLz**???>?=??08<0?8380? * U|y|U99xy@D%U * + *Bffqs33?%* U`yy2r`oldllAaqAG1* U<`<|y|yUpp~||@UU?_|@L`|FU *9c?asss%*]A**??w$gggl|x* UrG~999UyxUU~|}??23#40<<|U *\|~@rvN*gA A/?**o;UT LN L ^r^* U~>~U //}}}_< UT U *gggC@|||*@}}ooo~p@Ap@**rp0p0p* UC<<UCCC{~~{?UU{{`{{_G_L@BNNH@FU *ggsfg*x`xa`x  ?**{?u$;?[\[*U@UU1EUPUUUeaUU47??oxpU5_7<7U*/()**()*'+*( '& ***Aaaa**aa//_[nsPp04:@oyo* Uo|p !!! cUU_u}}~}o+*)'~r~U * *?x__w** _TUUu}IIUU {C o{{U*|~_gsqxx **|22*fg***2ffpId**vwvv wv*U@_CAUUYyYU@00UUU| d${{{{{{|~yUU mmm@(m/mU*z||~~**LOL**J***(+*+(***[[[<, pxx| **#{ * '&***HKa**OOO@Ord|s`OGaOO*U@_CAaUUd7fU@00UUUBgdwvpILUUWPTU*||~>?*****&#***`99`oaqGOIO**JB*UPWO~>UUccUA9AUUU&&??G@HpO3s*USA`UUU?UqdUUUUU sU*pxx||>> **FF* ***3ss3g7O?**|gxHdyyyq*UCUUUUUTUUUx IiIay`gyx|LLUUssssU*Ka``pQwUU~~N~~~>~~NNN>~U*KAa`ppxx|** **'#'*(+***& !1 {77w7|**??@` 0?8??0*UWT`UU~V~UUUU@@3^^~_???aUUfff'ggg~@bU*pp|(**>**X*s3*** / (**     ! ! ! !|A$"":230\MOUSEX,Y,BB:X(X1.4):Y(Y2):XOXYOYĕ1X,Y:1XO,YO:XOX:YOYf1340{Y160Ĺ16301,0Y159Ĺ16302,0(16384)128A$((16384)128):16368,0:A$"Z"A$((A$)32)BB4470FTFT0:390MO70:340! "A$"H"HB1HB:1300= ,A$(13)RP1RP:1300X 6MFA$"S"İ1510:230 @A$"X"Ģ22:1:"DO YOU REALLY WANT TO ERASE THE SCREEN?";:B$:1:868:B$"y"B$"Y"đ:1X,Y JA$(27)ĕ1X,Y:160 TRPİ1450 ^1340hA$" "İ1450 [1] EDIT SHAPE  1X,Y+ :13007 MF390V A$:A$"Z"A$((A$)32) A$"A"A$(11)ĕ1XO,YO:YYSY:1370:340 A$"Z"A$(10)ĕ1XO,YO:YYSY:1370:340 A$(21)ĕ1XO,YO:XXSX:1370:340 A$(8)ĕ1XO,YO:XXSX:13 MENU :21:"OPTIONS:":"[1] EDIT SHAPE";:20:"[2] LOAD SHAPE":"[3] SAVE SHAPE";:20:"[4] LOAD PICTURE":"[ESC] QUIT: "; 16301,0 A$:((A$)(A$)4)(A$(27))180 FT1:A$(27)A$"5" A(A$)1:A$"":A500,860,1690,1670A$((A$)32(A$"Z")):A$"Y"A$"N"95> `:A$"N"AC1U dACįMOUSEFIND,MFp iMFįMOUSE0,390,0,382 nI05:J:STI,J::0:1:232,0:233,(ST256):1,0,4,0,7,0 x230,32:62450:3100:230,32 X0:Y0:OXX:OYY HB0:SX1:SY1 F(4)"-grabasic.48p"* O DEFINE VARS q PD$(4):UT(768)76(771)76:DOS(48896)76:DOSD$(13)(4) RD$"BLOADSG.SYSTEM" ULK2048:SP2816:ST2560:SS16384 ZSS:** GENERATE LOOKUP TABLES ^:"DO YOU HAVE A MOUSE? (Y/N) ";+ _A$: *========================* GRABASIC SHAPE GRABBERS* BY JOHN ROMEROj(* (C) 1988 UpTime2*======================= 8(48896)7660942739,94:42740,166:0:(21):::1002<(48896)76ĺ(13)(4)"BRUNGRABASIC.48":80!!!!!!!     Šﮠ堨褐謠ɠ㩠堦宍獍Ӡɠ砱宠箠쬠ff\__^%*!Uj@%U`* U*** x{z@@?;5.?%U *<Dow%*UAAa`pp`AU~UyEUUUQQU1'{w|%U*//' *&~&*30 ***L D^>>^^>*** *Uuxx||>?UsssUUUU(((*yU~|NOAssoeoUU_}|q}3201 OU *yyyggfB*IycaAL@**?0>80??0<18? * UyyUy99syA(*%U *( +( *ff@s33%*!UIypromlpLL mo`%U!*L|a* Ullyy|sUp~x~@UU????~~_{`L@|fU *y9ssa$*kIw????&gggH~x|* Usr989UyxUUw~~x~|333~4<<<U *~|^p^@*ggC|***Wn~wL L * Uasssyy* U ~>~U ?/7}}w <UUT"U *gg\`|x*`}{oo{``@@**r p0pp0p* U <