LBSOS KRNLI/O ERRORFILE 'SOS.KERNEL' NOT FOUNDINVALID KERNEL FILExةw,@  4  J  ȱ⩤i8#) ) 8LeSOS NTRPRHeLZĠР쁭堠堠ՠP򠭠έ魭?*HELLO.TEXTctY,FLASHNAME.DATeG w -ARTWORKS.TEXTg&I-ARTWORKS.HELP#) -READ.ME.FIRST8Y-Y-3%!%SEG.T VQ3+(DEMO.PIC 33*SOS.DRIVER 4ZREAD.ME$Y-%SEG.G Z= 3HELLO a/ III.GRX.34u' *SOS.INTERP 4ke! *SOS.KERNEL ,V!a*MENU.MAKER 0 |Y/DISKNAME.DAT8 3+ )BGRAF.INV:(3$!L++SCR.PRT.INVOm#im#iЛ#Lȱ  6L憦  Lsmm l y` @8(Je稽 ʈŭ᭭򭭪𭭠򠭠頭퀠Šӳ頠𠠀𠠠堠젭ӠΠ  !"#$%&'()*+,-.$ 0~!L`!sm?iٰcL`S )!a{)Qi ڐ߽S) -ai) -aɢ ɣɍж$HS -ahʥ0SSȩ5%"/װ&hԐɈf0ɔĐ 8,f 8f L_ʅSS=ȄL`ȱi8eiidHddhd) _ ƢLh _L>h jhP _S @a-Qggeg5hih 6i6 "]S" ]$%SSSg a aL^ S S`La8 SiUjjS):,$f 0$ p fHhH_HcH uhch_hhhfhi0hhhB B A` ֥'( )&񦕤LNKM$Lb ě $m wl "m6X6+5 56ɀ56H $mhɀ(Z)& mL k~ wlL ͝dL Nsd# wl^_ ꂅ__hg^`8 悕`gHhHhH5?6@6@*5g5666gҦhhhhhhhhg:e:;e; ;m;`@c@c?be^@e@ _m__^ \Lx] i6g55``BY BSAMHH H] LPL(\)&P ěj9ȑ9ȑ99i=:i: >i>`Ɂ7XWWXjnXWi` ]?@@bgchch )^ ]b ]b^b^L\b8g+H__^8_ABB 9::)ѭ [ I[ aυ婶ZeLLL^$%Lae LGidFddddddd.ddddddddd ɕdˏd`Ls  Apple Business BASIC v1.23 - Copyright Apple Computer, 1980-83 CTERESOURCE UNAVAILABLDIRECTORY FULDUPLICATE VOLUM ERROR Please Press SPACE BAR IN PROGRAM INTERRUPTED%&'(%+.@C$DE FG!H"I'MN#PQRTW(X潭`: 808`:dd@՚H Z#IJJCSTRING TOO LONFORMULA TOO COMPLECAN'T CONTINUUNDEF'D FUNCTIOVARIABLSOS CALFILES BUSNOT SOI/FILE TOO LARGWRITE PROTECDISK SWITCHEBAD PATFILE NOT FOUNPATH NOT FOUNVOLUME NOT FOUNDUPLICATE FILDISK FULFILE LOCKEFILE NOT OPEDEVICE DISCONNECONV&CONV$CONV%LEFT$RIGHT$MID$INSTR>=<^/*-+NEXT WITHOUT FOSYNTARETURN WITHOUT GOSUOUT OF DATILLEGAL QUANTITOVERFLOOUT OF MEMORUNDEF'D STATEMENBAD SUBSCRIPRANGINVOKSTACK OVERFLOREDIM'D ARRADIVISION BY ZERILLEGAL DIRECTYPE MISMATNDEELSCONLISCLEAGENETABTSPCUSINTHEAMOSTEANOEXTENSIODIAFNOAAAAAAAAAAAAAASGNINTABSATYPRECAAAAAAAAAAPDLBUTTONSQRRNDLOGEXPCOSSINTANATNAAAAAAAAAAAASTR$HEX$CHR$LENVALASCTENAACONVOERRLIERKBEOTIMEDATEPREFIXEXFNEXFN%OUTREINDENAAAAAAAPOHOMA SUB$OFTRACNOTRACNORMAINVERSSCALERESUMALEGOTIRESTORSWAGOSURETURRESTOOALOASAVDELETRURENAMLOCUNLOCCREATEXECHAIAAACATALOAADATIMAGCADEAPRIssssssssss\3!z~IssssssssssssIG%ӓ,ssևwn7}|tttUUZ{fzxxˆU膅[L<^ENFONEXINPUOUTPUDIREAWRITOPECLOSATEXABYAAAAAWINDOINVOKPERFORAAFRHPOVP̠Ώ h:gpOn[n٧s]ds3issssssss0b>&dsjs|T}|s[ji!S)Lt`SSS`L` z :0.`9::hhgg.%g& $gegަhH逪hhʰ` ҥ [ aLT ҥIJJABB=>>;<<?@@T ě hhhHH  `89:: 悅 lc!)` +b` +b` sL :b#`L,H s h ऊL(,L8f` A KL jLdjOPPKLL h AKL` Ѽ   (`H shLs AL<^ȱQȱȅR dj sLHoUVV$ LhU Lp$ LL<^opL^```?EXTRA IGNORED?REENTER $0pL,`LgXW ׫ k*iXX 4X \\L<^Xii7 { n k$ |WlXVVE$ P% eT{||Hd ̐h p IkLo00$0 L>o "m nV dj$D$ P 膼Lo$0",i [ kLoHSHhp< {}$ p0H 07h ]k ,LmUVV `p F sLn 2 ukLoF вLm jȪЖ LL<^~p l nhhLgOPP` Add# 6d s S SS@Ln A " r ,; s lLn#f  ;П ⭩,SLn "mʆ,S _S% nLh "mL_T ST#L(, U VV ׫$ 0  QpU= d hkddhe##5ddˏdd?Ll ,?#$04dHHd = d hkddˡddhhd`LsL#&F  ; s b 0` L+l$ Nsd#Lzm566ȱ5Ll H# wl m#͉LchL$m QRKLLsh$0LU$^`=8WW>X> 悅XXXL:^ g`L<^ l Jj bx bp,_;Ll  ~q$0P oՅ5R66R l ~ L%l $m0 =k $m#`$L#i)8#Ll  s s( L7bʊ# L-l m hxd5d$0H h`L^bLb$%/%5$ &5 &5e$$5e%%$&%$e$% Lk ׫ sHH ~qLPkHHh$0'ph | ZlWȥmW`L$|hXWXL-hm lmmLkl VYZZ{|| w ᐥlmmYZZ LxWXX ox ExYW# kXX 4=^W^0A, 9:: Ga.ghh 悅` A` \\ɾ,L<^hhZkKhLhhhe9e:: mLg jei `Ls j:,"hhhhLgɜEɝDɞLb Hɾɺдmhɾ Qp aj pi `p j` jLi j,d wlOZL^L^-L(dPL<^OPMNKLhhLg` Ls ҥ?ieCiLa,  aFL s a iLg ]hhh5h689H: H:HLHKHH6H5HHH` ui` pi` Qp j pi `p i` j jK$L%8eȢЅ iLOPP$pX0S&ȱhȱKȱLe潥ɂ逅$L# $mKL x~ m khLgLsLc h5逢)&a TH THLgL6k8:9: STT`)ɀLK$Lb8gLOPPKLMNhhm Vf0 mLf) mWA 0 -a mL8fW;8<< 悕` 6kLU*i kXX 4XLy \\'_ch_chbi^g \ihh ] Qp aj ih `p b iq bqn %jjg56Ly { b bq | XHWHHHֺh$PLh wlȱȱ%$LWH mh x~  m#W", mȱ28eLeji`Lwl mȱ"Ɂɂ ȱ :, iTjj ȱiVjj8逪XW0 Vf0WHW$ 0X: h ,@dd )e dʙdH &eh(dL ddک,ddLd:e``eLeHELLO ue 5eLse6e:7ee8ee:e`EAd j @a(% -, bLs j {ghhL<^gHhHhH , - b j$% @ag5h6h6hhhhh8g5h6h 悅`6 "]La ud `L  d.CONSOLE[[ TdSdddddd0 ddddd`dd A 6 s e 9c()' 9cKHLI jLdj89弅:彬: 悅`H hɝɞɜ)`dd  6芅 e ()'` e'()HKIL 9cL>hL<^) i!Ls j @aLK$L% mXm tL qXXW zzEn{i x }H$ ]kh8 )KLe9e:: }Lgi , p s$8$0p`PL<^Յ H s r ɀ ȱX Hih0 & ?<I?iE W Lq s )?TUJ)TU  ' Lsi imLqLsh E0`H ty ))ELyq  8 $0!PizEn{dUeUi hLqLs `wLr !L2 {}$ 0`QɀX zLs.+"2ZuL.y +|z% T}uH }h{ ~|H !z az ~hJ inIn`L~8;)q4X>Vt~w/z*|cYX ~uƀ1rP aziP | |iɈ { T}i8Huiiu x BU 瀩{h z` |] az 뀩]Laz | i8fe.șR0șRmymlylkykjyj00ڊIi i/ȄȪ)Re.șRI)ЪR0.ȩ+f.8f-RER/8 i:RRRRRR`y`'d |Ģ { &{f o0`LB ` H$ge &{h 80 '~L}H |h |zEn{iLxf d$h0Ly ef q80fL}COt#t$JZ mLKjk8 | ~Lm ^|-$nșRnȩ0iL f~ azea~ } \~ } &{e B{e yx %}ei0nihoi8傐IL|`7 z!L|iD8$n yiLyn)FjjjLyiɠ %}nnI*imLyjklm` s e-o+ smo..IE)2s S -+fh r$h8fL}fg s$gPf8ef B{f65m5l5k5n j5i`d,]WXX566 |m5 ^|l5k5n %j5i5` |m l)m |m`znth` |ht`i  y my`i n*` |jkjI*mlinLyFn`nEz0ʢiH xv5ui`uei0,iiL0y{n`nI0hhL,yLy |i{ xi` |={{ {LZ{ zL{ |8ii zivjwk xlym* 蕁24(y&x&w&v0⨥ymyxlxwkwvjvL{@jjj)(L{L<^~jklmL y56y^Vy dv88; 54541r |LiHi z xz U{y xy рz xh '~z zLz z~ zm zl zk zj zL{LyJ eyexew~ev~f~ffffJ`5665y5x5w5zEn{z lkj |yjJkjlkmlmi in`emeymlexlkewkjevjLkyi&m&l&k&j8iIiii9fjfkflfmf`nIngjIjgIm lkj`L<^}i0vvvvvj`L656 wh H5Gh`lmm566 Lx5Hȱ5ȱ5 F665 w56h(` x("LH)&h`( '&'`lmm566LxĠLx znInEz{iLx y? zL||uu`8i$iznIii0ĨV y${Wiuu8Iem_B_B`)&N> ȱI8gJJ hhge ghh f feLH>H= x\L|F )XHABB8 __^hHI8e^ @1 @+?%GHHHIJJih BABGHh`$  ě u Дs IJJ^__Lveȱeȱe `LćHƽ Ƽh`$ lȱlLL{ɝɍLɎСL s HI s shmHmHlHHɦ# shmHmHlHH , hHLt  ,, shTTLui ui,L3$0 |Lu xijk6kxyy xxy6i L[ s r$PLsi,L3-hLs L*tɘcɭ_ TTLdd`jk8L|L3L3TL3,L3i LL r$PLLBLsș Ȅ ( qƚƚ` s s),;,=,#,(,,ѼLL<^L<^ llmm$P$oȘ戅 aziȅ xdo`Abi$nFn) i  j g g ^ ܇.Laz͠Lć ^ ׄ& ć ׄ ć ͠L- x |z K{ | T}{ x xnH yxn0 I B xh B Lр |  +|] {n LU{HLʁIڢIڢ-(h#5ᆥ](IڢʥnH BiHɁy U{y рhɁ xhLB` vy{| g|S}dpL}Qz}c0~~D:~L̑56gh6hegehh `iɥHHȱȱ6H6H5H s =к bqhhh Lshhhh` ~R/mZlmYZ PujHkki^^`H"h{||kjkȱ{ "ie{||  V{|56|6 w&5L<^i8e` ě u8A?pB@B@ )onL܇jkL| Nsdȩ8 NsdL2Lа,L<^ A s ׫ g iq s= sXHXHWHHHH ajL? b rLiq HHH s iqhhh5ȱ6ȱLI65 g5H6 2|Hgȑgʆ5a g5ȑgȥg <^^^__ɂ逅____<;إy6 hlhm^Ȋ^LL:^ȥ5^H^h ͎el5emȆ6п  ͎e^e__ iLZe *& eegggegȱgehh Ľ ,L<^  8` ^LQ ŠhhL6 $P 訽5 ͎56ۥ 8ee L:^?be^@ce@c __^_ \__^;<<6  $Phihi^Ȋ^6h656H |mHlHkHjHiHl5 8eeghh^__` HHH H bqh hhhn0iɐ1 }L yxL%}\i FHHHHH 6hhhHHlm ,҄ shh)>=>hgh<<;[a{p ;<<ccb? @c@ube.a{bb,\(eb cc`ebcA[8饰 a{8`8\e@@He? ]@@?hbbb0 ea ȑbc8L@ @@h5H ?5^6_6_hhXhXhWLk ? % ?Џ`5566` xe5566ɂ66` s p `  zLseff z.!'$ iߪ$ 0 H8eAi\h$ P8 (Lt$ 0}5}} ,kk} , kklm Lٓ[ 80@ 6 2`  dkH) ojhJJJJ ojL 0:i`L<^ jHHHHHH s jhLyqhhh6h6h555_ȱ5VHHHH %L/5H6H6Ht $mlmkljkij8ihn`L,$0DpA q enHi80 @Lyu \ % @u ćh `&m&l&k&j`2L0 և yxLT}$0pLI oբRLi `u LLi u Lui0 ܆ چ,,% п 擩lm0u 1eL5665`iɀ*iH i  @8 ei $ tutt tj ȡhn` t` 0RN0R 0R$n-RRR`i` p`5665i`$0BP?iH i hLbe55f5f6e}Lme6u5u }`6ʈ`v`jip` ? #  ue }~ %u $ چ 0 u}` L uu  ) }Li <i@L{i$i0 p $ 1`ui` LL Lbb `}i~ei^~0] e e^`}`566i5`_cf_cfi^eub` ?^qbep`L<^ ?8b^e` rp`I` ? ㄩp^|be #^b ebbu|beiee^^iL56^f" ऩ थ (! ( ऩ थ (" ( द!LGb8Lऩ@iu +-ELj) e | ^ .' "5 1 p) iIii i)Lm` ?i $0 ׄ $0 $0 ^`Hhth`^Qb ^^ 8` `H Jh(L悈`H逨h` Hh8 Hɀjhji` HihJi(`  ~q$L ɺ b$P i pi$ȱLdjɻƟ dj 柰ީ Lihh sLg  s ! b   s "!!!IjJkJk )lmm'&`UR{R||L̐: / cRRȹRRȥ Rл s `Lsh sh5lh6mh6mhxhyhy x x Qȱx7ȱx88 Ƃ 7e7888ł75 78ߠȘH yxy hL3 j kqHHHH s H , ,H s s ~qhh 1 lhhXhXhWWȱW7ȱW8 eLNLXZWX ` GGH HlHmHmH khmhmhlh hk8j7k8Lޒ e77880 WAP /// SIG MENU.MAKER PROGRAM (v. 6.2) =".D1"210: Coldstart (320: Warmstart &*X=11000: TEXT SLOW-DOWN LOOP ,X.1 CHANGE DISK SUBROUTINE23œ202:2200<RFa$=" YOU MAY SELECT YOUR DISK BY 1$u tAvʘtDթ q(~th`pvquts~y fp$pp8j/;XAx=|8ez{{ ghh "o `L x  wwghhoؠKkqvj L`$uZuukvN kGv@  pJ LUL-LG -$p0`pog $mkڥrok8o,koLdjAaCcoJ mko 5 $mkk mLw L L HG56H6LExh  (`|||}z,A[ :808Ш`,ޞ@`y Gy`LHq,;' L Pu  pLLwl`|H}HzH{HHH ɶ# xhH s  ~q s,; Ls  ~q$ hxrL iLpnH ~hɀ8(*iR.-:/ RRhhh{hzh}h| Pu p 0|8cJcm J_mm嚍J_AgBhBh \^A_B_B` ^"( zM jF566 x}z{6{LҜ #z{{"} GLsL<^ jHHH i dj ٥z{{ j}hhh ;в| |膆  RRRRH uhA?B@7B@87F8f7877878L:^7 8*JA5gB6B68 悅h圍h?H@H@HI?J@J@ "]h@h@h?gAhBhBJJ8 悅J圍J7ߚ8BܚLs`䚌B L:^`Ib^J sL͙ɚʚ `pAƚЙϚŚњ˚ ̚8 悅DDF͚ Κ8 DiFEC CD)ӚDmӚDԚCBКLěŚAݚ⚠IȌ 8 ꂍ  8 ꂅJJ` !7Ri88 pi UŦLUUU HHHHL 2hh LW iL 2hlhkhn jhimhHɗ8 Ls`LIŚ1CUDVDVU Lŧ 0 7U L`L:^֩ ŚEĚ L| Qp QeeRee8 1 V` 痠U` hh R LsL  z (L[ Rީ  @Y%(&:$LU s և ^|iHn %jHkHlHK s n ZlHmH5 s iH jHH楩e ) ,LsLR eՅ7V8U #   785U6VLΔU7e778ҥU^V_bcF_hcCgDhebbc \^__`U8傅UV` |UȱU` L<^ |UUƜ0ƛ ӗWqeWȱWqei W` |8UUWȥVUX`UeUUVUO / +'L U)łiV VL LI 8U 7ȱ7 UU ЯUVULU7V8 p L LZ U qUU qUH85h688V77U U 5qUWȥ6qUX7qWWȥ8qWW ٥IiV) V LVU?e8V je?e>e8U>e5V?e665e=e@eee8 hx57 xLCx8I77JJ8 88` H dhjL YYHH dYZZ oxhhe5566ɂ逅66 wZZY L YIL=m ) s  ʊHYImm shhhhYhZhZHHE` 3YZZ xLCxl5Ym6ZVOLUME NAME (/DISKNAME) OR DEVICE NAME (.Dx)"P12);::"80C";a$;:Zb$="CHANGING DISKS"$d=23:=0::"80C";b$;::12).n=12:=20:"MAKE A NEW MENU FOR DISK: ";N$xN$)<2110=N$ :210 I=1L(A$(I),A$))200B$/123456 MENU.MAKER TEXT MODULE890&*X=11000: TEXT SLOW-DOWN LOOP ,X.1,180,22:2,280,21:2,2380,23:z:A$="LISTING "+B$(I),16,B)$=01:=0::"80C";A$;::12)>=23:=0::"79C";"PRESS ANY KEY TO HA 1600 &:WW=1:0 :SEG=1;".D1/SEG.F" SEG=1".D1/SEG.G"diskname$=3802  CATCH PASCAL TEXT FILES 202 :F*=08:"78C";"SORRY BUT MENU.MAKER CAN'T READ PASCAL TEXT FILES."04=10:"7M$="NOVEMBER":1750M$="DECEMBER":1750826);"-";M$;" ";Ѡ,2));", ";"19";Р,2);" ";/П,2))=>13П,2))-12;џ,6);:1780$П,2))=0"12";џ,6);:ٟ;$П,2))=>12" PM-":" AM-" 1830WW=1530 =26:=211660,1670,1680,1690,1700,1710,1720,1730,1740^M$="JANUARY":1750hM$="FEBRUARY":1750rM$="MARCH":1750|M$="APRIL":1750M$="MAY":1750M$="JUNE":1750M$="JULY":1750M$="AUGUST":1750M$="SEPTEMBER":1750M$="OCTOBER":1750T 0")2070H540R\A$="RUNNING "+B$(I),16,B)f"79C";A$;:=0pB$(I),16,B) z::SEG=1".D1/SEG.T"t=+B$(I),16,B) yCT=CT+1~240:=24:=0:"@ ..... "DATE.TIME.LINE" ....JM=Ҡ,4,2))BTM1630,1640,1650,0=+IBOTM/2-.5):I=IBOTM:I/2=I/2)I=I-1 œ2120B=B$(I),16)," ")-1 B$(I),"BASIC 0")850B$(I),"TEXT 0")890 B$(I),"CAT 0")1140*B$(I),"FONT 0")18504B$(I),"FOTO 0")1930>B$(I),"PASTXB$(I);v:520: 500THPOS=4:I/2=I/2)I=I-1I=IBOTM THPOS=44:I/2<>I/2)I=I+1I2=-1:I=I-2:IBOTM<30THPOS=44I=IBOTM/2)*2:=+IBOTM/2)-1:CA)"PRINT.ALL": OA+P 3HA=(81+UCA)A=(81+LCA):::: OA+Q Quits 3IA=(83+LCA)A=(83+UCA)"PRINT.SHOW": OA+S 2JA=(68+LCA)A=(68+UCA)/Screen.Savers/HELLON=THPOS:B$(I);XA<8A>11540bA-7640,660,690,720l:=THPOS:ٺ1600 =Q:WW=0A=:A=21A=9&oldprefix$=40A=31410: Control C "aborts" program to Basic(:A=13770: Return Selects a file *DA=27:50: Escape to change disks/FA=324000: back out one directory level 3GA=(80+UCA)A=(80+L"BASIC 0":150A$="TEXT 0":150A$="CAT 0":150A$="FONT 0":150A$="FOTO 0":150A$(L),"BLOCKS")510*=27:=19:"FREE MEMORY AVAILABLE: ";=7:=20:"80C";A$(L);$:=5:THPOS=4:I=1:IBOTM=J-1:620Q=:=26:=21:sic; +Q Quits."r12);::"80C";a$;:+w#9,"DISKNAME.DAT":#9;DISKNAME$:#9|d$=DISKNAME$$=23:=0::"80C";d$;::12)201M=3:=14:"This /// SIG Disk is \^ 19";Р,2)", Washington Apple `, Ltd."=4:B$(1)="":B$(2)=""A$=16,B) THEN 240 #1, d$="":=10:"80C";d$ ž#1300I=0"I=I+1:#1;A$(I):290,#1 6L=I-1@j=1:same=0 J:SEG=0 Tœ2030^CT<1CT=1cCT>13000Zha$="{,|,~,}; selects; to new disk; J/2)=4:=+1:ۙ=44B$(J);:J=J+1I:1,180,22:2,280,21:2,2380,23:8A$(1000),B$(1000),C%(511),C$(20),name$(20):=10:=0UCA=128:LCA=UCA+32CT=15 IF PREFIX$= PREFIX$+MID$(B$(I),LT LISTING"::202 1020#2,B$(I),16,B)ž#242:::1160Z=1#2;A$:"78A";A$Z=Z+1:Z>1842:::Z=1980*:=23:=0::"79C";"CONTINUE...?":1C$:C$<>"Y"C$<>"y"C$<>"N"C$<>"n"1030C$="N"C$="n"11ARTWORKS ING BOOK -&#  P  `"hhhhhh  HH`420.,*)&#"! Rhhhhhh  B B HH`yyP`GB HH`)r` @A>~|zxvtslgbWTSRPMED=hhhh   HH`420.-&#  Phhhh   HH`420.h   HH`420.-&#  Phhhhhhhhhh  HH`DB@><:86421.+*)'jhhhhhhhh    X XLJFE>987410/-   `+(%" Bhhh h h h hh hhhhhh  HH`ZXVTRPNLJHFDB@<;85431hhh    `OLIHEDCB?<;8541.+*x  `"hhhhhhhh    HH`XVTRPN.GRAFIX jj# \\JHFD=;9210-,+*)!   v Q )``.`5`=`C`E` `BGRAF (C) APPLE 1980j @@@@ @``` kLK``9(89:9g:h:h L89:mm95:6:6hg gh h 99 O S   L `ee m`iɂ`0`hIhJh\h] wh]h^ w\\ ]] ]L ]L\A \A JHIH`i8\i]i\`\]`K`M %b&*L+ 16>:)    kL9;<=>?@ABCDEFGHIJKLMGA3/1.01/LINr GRAFIXMO nljhfdcbQNMLJFEDCBA<;6hhhhhh  HH`420.,*)&#"! Rhhhhhh    HH`DB@><:983.+('&$hhhhhhh  HH`420.,*)&#"! Rhhhhhh    HH`DB@><:983.+('&$h J)` `!0 WBUFLEN !UFLEN SOSWRITE$SWRITERWBUF BUF RETADDR ieB>INITCHK UITCHK MOVETO MOVETO  WBUFLEN _UFLEN SOSWRITEbSWRITERETADDR INITCHK ITCHK RANGECHKNGECHKWBUFLEN UFLEN SOSWRITESWRITERWBUF  INITCHK ITCHK FILLPORT FILLPORT RETADDR tpINITCHK ITCHK PENCOLOR PENCOLOR RANGECHKNGECHKWBUFLEN UFLEN SOSWRITESWRITERWBUF |x FILLCOLO FILLCOLO TRETADDR  SETCTAB SETCTAB  INITCHK ITCHK RANGECHKHKWBUFLEN UFLEN SOSWRITESWRITERWBUF  'SOSWRITESWRITERWBUF  RETADDR PLINITCHK sITCHK VIEWPORT VIEWPORTWBUFLEN }UFLEN SOSWRITESWRITERWBUF  xplhd`\XUFLEN SOSWRITESWRITERWBUF ~zvrRETADDR $ INITCHK ITCHK XFROPTIO XFROPTIORANGECHKNGECHKWBUFLEN UFLEN #ITCHK WBUFLEN DUFLEN SOSWRITEGSWRITERWBUF ?:72-(SYSFONT SYSFONT RETADDR njDRAWIMAG DRAWIMAGINITCHK ITCHK WBUFLEN RETADDR INITCHK ITCHK RANGECHKECHKWBUFLEN UFLEN SOSWRITESWRITERWBUF  NEWFONT NEWFONT INITCHK =+SOSWRITE@.!RWBUF  83& INITCHK uITCHK GRAFIXON GRAFIXONWBUFLEN UFLEN SOSWRITESWRITERWBUF zBUF GPGSREQDLGRAFIXMO GRAFIXMORBUFLEN 9RANGECHKwWBUFLEN ASOSWRITERWBUF \SOSREAD GBASADR TSOSSMARK$INITCHK ITCHK INITGRAF INITGRAFWBUFLEN RETADDR ISOSDSTATGSCB kSOSOPEN INITCHK READPARM5CREFNUM DWBUFADR ?BMOVCHK RBUFADR 7WRITEPAR=SREFNUM FRREFNUM 6WREFNUM >INITFLG KSOSCLOSEhhhhhh HHHH`&$<D^Z FpHx  )) y xHHHJJiH 詏 鮀 `}wqnkjba_\[ZYXWVURQ$hhhhhh HH H)HHH`20+*)Hhhhhhh HHHH`&$< 詏 )x `a^]NMJGF>=<10/.+* )) y xHHHJJiH 詏 鮀RWBUF ZRNJFCALCABS BRETADDR SOSDSTATSDSTATGSCB  MOVEREL MOVEREL INITCHK ITCHK WBUFLEN UFLEN SOSWRITESWRITERWBUF  RETADDR c _ < 8 INITCHK O ITCHK WBUFLEN Y UFLEN SOSWRITE\ SWRITERWBUF T L H D @ DOTAT DOTAT NPQRSTUGA3/1.01:7SY PSCREEN YLOC  SDSTATGSCB  INITCHK  ITCHK XLOC XLOC RETADDR     SOSDSTAT SDSTATGSCB   INITCHK  ITCHK YLOC  ASADR SOSSMARK SSMARKRETADDR  z v INITCHK  ITCHK XYCOLOR XYCOLOR RWBUF  F SOSREAD  SREAD RETADDR  SOSDSTATGPGSREQD GSREQDSOSCLOSE SCLOSEGRAFIXMO AFIXMOGLOAD GLOAD RBUFLEN  N RWBUF    SOSREAD  EAD GBASADR GBASADR ( ASADR SOSDSTAT~ SDSTATGSCB  INITCHK { ITCHK CREFNUM  EFNUM RBUFADR  ADR SREFNUM  EFNUM RREFNUM  M WBUFADR   ADR GSAVE GSAVE WREFNUM F  M GPGSREQD5 GSREQDSOSCLOSE> SCLOSEWBUFLEN 8  LEN SOSWRITE; SWRITERWBUF C F INITCHK  ITCHK BMOVCHK  OVCHK INITFLG  ITFLG RWBUF  F SOSDSTAT" SDSTATGSCB % CB INITCHK  ITCHK CREFNUM  EFNUM  T P SOSDSTATj SDSTATGSCB LINEREL LINEREL INITCHK g ITCHK WBUFLEN  UFLEN SOSWRITE SWRITERWBUF } d ` \ X RELEASE RELEASE  RETADDR % ! INITCHK  ITCHK LINETO LINETO WBUFLEN  UFLEN SOSWRITE SWRITERWBUF     CALCABS x q ABS RETADDR CALCABS  ABS RETADDR  SOSDSTAT SDSTATGSCB INITCHK  ITCHK DOTREL DOTREL WBUFLEN  UFLEN SOSWRITE SWRITERWBUF hhh hHHHHHL %&Ly)+/* "#~)L,P,P ,P `,0p@ A"# ,0LLLy60;:=23:=0::"79C";"PRESS ANY KEY TO HALT LISTING": $1020.202 8::Z=1B::=23:=0::"79C";"WOULD YOU LIKE A PRINTED COPY?":1C$:C$<>"Y"C$<>"y"C$<>"N"C$<>"n"1170*C$="N"C$="n"".D1/MENU.MAKER",2207WXPNAME PSCREEN PSCREEN PRNAME PRNAME PNAME  E  xwvumlkhgda^[XURQNIH80!}|hc_ hhh5h66 )5HH`@HLy,0׌ ` .PRINTER /0.,)&#!    ~{ywpWPOJB<3+*$  }y h,pei,PJ( "Ј L2 "#/*$hhh` "',PO""#',P)  ʱ)  ʈ Ly,0"#   K,i"i# " O.J ní ,PJ(L\L "  L04"# O 0JH*h0,pH  "#`J)mJJJj0i(m``,PJ ,P H e,P%hL,P H e,Ph,p1 ,0 p  p,0I)M``, d$="" A$="PRINTING "+B$(I),16,B)=01:=0::"80C";A$;:#3,B$(I),16,B)Z=1#3;b$:"78A";b$Z=Z+1:Z=18:1290 1260 #4,B$(I),16,B)#5,".PRINTER"+ž#4#5;12):::".D1/MENU.MAKER",220(204::"79A";""; 2D=1:F=1 <#4;a$ FD=D+1 P#5;a$ZD=60#5;12)dD=60D=1nF=F+1::d$;::Y=1100:Y x13402  CATCH PASCAL TEXT FILES 202 :F*=08:"78C";"SORRY BUT MENU.MAKER CAN'T READ PASCAL TEXT FILES."0=70:M$" "gN$="0"620 i800:#8lX=1600: vGLOAD.D$Z=1720bBD=1MOVETO(%0,%0):LINETO(%0,%191):LINETO(%559,%1 ":BD=0:600 :B$)=27"MENU.MAKER",220MX=16:"Color? (0=Black;1=Red;2=Blue;3=Violet;4=Yellow;5=Orange;6=Green) "YN$ZN$>"6"600[900]=16:'Y', 'N', or 'ESCAPE')"B$&B$="Y"B$="y"=14:=44:"YES ":BD=1:6000B$="N"B$="n"=14:=44:"NO ":N=1:530{B$="N"B$="n"=12:=44:"NO ":N=0:530 B$)=27"MENU.MAKER",2202=14:"Add a border? ( ":CNDS=CNDS+57:480bB$="N"B$="n"=10:=44:"NO ":CNDS=CNDS+17:4805=12:"Include the name? ('Y', 'N', or 'ESCAPE')"B$|B$="Y"B$="y"=12:=44:"YES ":430 B$)=27"MENU.MAKER",2205=10:"Rotate picture? ('Y', 'N', or 'ESCAPE')"B$ B$)=27"MENU.MAKER,220"bB$="Y"B$="y"=10:=44:"YES 8:=60:"LEFT ":430B$="C"B$="c"CNDS=0:=8:=60:"CENTERED Z=1:330/6A$="4"::RELEASE:".D1/MENU.MAKER",220@270J^=0:=0::"79C";D$;:*h=23:=0::"79C";"PRINT GRAPHICS": rœ200E|=8:"Picture at left margin or centered? ('C','L', or 'Escape')"B$ԐB$="L"B$="l"CNDS=128:=ESS '1' TO SEE THE GRAPHIC ONLY"7=10:=20:"PRESS '2' TO SEE AND PRINT THE GRAPHIC"@=12:=20:"PRESS '3' TO SEE AND PRINT THE GRAPHIC INVERSED"2=14:=20:"PRESS '4' TO RETURN TO MENU.MAKER"A$A$="1":80"A$="2"330,A$="3"Y[\]^_`.D$xXFROPTION(%6)MOVETO(%1,%190):#5D$8MOVETO(%1,%180):#5"ANY KEY QUITS TO GRAPHICS MENU" FILLPORT GRAFIXON C=C+1B$ :::=0:=0::"79C";D$;:/=23:=0::"79C";"MENU.MAKER GRAPHICS":1=8:=20:"PR1 MENU.MAKER GRAPHICS MODULE (COLOR SUPPORT) 2".D1/BGRAF.INV",".D1/SCR.PRT.INV":INITGRAFIX#5,".GRAFIX"(D$=B$(I),16,B)2name$=34)+D$+34)<BD=0:C=1:N=0:Z=0F200P INVERSE THE GRAPHICZC>1160d=10:=40:"" nGLOAD4=10:"78C";"ANY KEY RETURNS TO THE MENU."!>G$:::".D1/MENU.MAKER",32091):LINETO(%559,%0):LINETO(%0,%0):BD=0!N=1MOVETO(%1,%190):#5;D$ GRAFIXONPSCREEN(%CNDS)X=12000:X N$="0"800#8;12):#8 :40XFROPTION(%6) FILLPORT=12:=40:""4  CHANGE COLOR (Epson compatable Color Printers)4COLOR$=27)+"r"+N$>#8,".PRINTER"H#8;COLOR$\  COLORS M$="0"+N$M$="00"M$="Black"M$="01"M$="Red"M$="02"M$="Blue"M$="03"M$="Violet"M$="04"M$="Yellow"M$="05"M$="Orange"M$="06fhijklmnopqrstuvwxyz{|}~,width,height:integer; high: array[0..559] of integer; pix: packed array[0..191,0..559] of 0..1; oval:real; line,space,filnam:string[20]; modstr:string[5]; onechr:string[1]; resp,com,menu,cls,esc:char; program artist; uses pgraf,realmodes; var x,y,oldx,oldy,centx,centy,radx,rady,quad,hypo,leg1,leg2:integer; bg,temp,mode,buf,pen,edge,begx,begy,radius,l,h,low,w,q,z:integer; top,bottom,oldcolor,gridpen:integer; rowsize,xskip,yskipTHE WAP OFFICE LIBRARY HAS A NUMBER OF APPLE /// BOOKS AND MAGAZINES. rogram that we could. We hope you enjoy this disk and encourage your submission of programs to our PD library. ary. graphics program originally offered in the TAU (Third Apple Users) PD library. It's an interesting program that you may find fun. We've included some graphics files on this side as well and tried to include any additional info about the pbd WELCOME! WAP /// SIG Public Domain Library Disk Category/Number :Graphics/3GRX-34 Disk Format: Self-booting (Both Sides) Artworks is a Pascal-based /// /// /// /// /// /// /// /// /// /// /// /// /// /// /// /// SIG, Washington Apple Pi 12022 Parklawn Drive Rockville, MD. 20852 (301)-984-0300HER SUBROUTINEnSLOW=110xFLASH/2=FLASH/2):۴ =11:=07 FLASH$ SLOW FLASH:".d1/Menu.Maker"5 WAP /// SIG HELLO PROGRAM. UPDATED 4/12/89 DGO :#1,".D1/hello.text" ž#170 (#1;ERIN$ 2ERIN$<40F#1/P=23:=25:"PRESS ANY KEY TO CONTINUE.":G$U-Z#2,".D1/FLASHNAME.DAT":#2;FLASH$:#2%dFLASH=110: FLAS"M$="Green") MENU.MAKER GRAPHICS MODULE (v 6.0) prntr:text; gscreen:interactive; card:boolean; procedure quit; {this ends the program} begin resp:='0'; repeat writeln(cls); gotoxy(25,12); write(chr(18),'INSERT SYSTEM DISK AND REBOOT',CHR(17)); readge: (t/m/b): '); read(resp); if (resp<>'t') and (resp<>'T') then begin write(prntr,chr(27),chr(65)); for x:=1 to 22 do writeln(prntr); writeln(prntr,'.'); if (resp='b') or (resp='By') or (resp='Y') then begin card:=true; writeln('Position top of page at top of print head.'); write('Press any key to continue.'); read(resp); writeln; write('Select top, middle, or bottom of paprocedure cardprint; {prints 1/3 page card} begin repeat write('Do you want to print a 1/3 page card? (y/n): '); read(resp); writeln until (resp='y') or (resp='Y') or (resp='n') or (resp='N'); if (resp=' write(prntr,line,q:4); for x:=0 to edge do write(prntr,chr(high[x])); writeln(prntr); top:=top-8 end {while top>-1} end; {smallprint} {for z=0 to 7} if low=13 then low:=15 else if low=16 then low:=8 else if low=31 then low:=63; high[x]:=low end; {for x=0 to edge} begin w:=1; for l:=1 to z do w:=w*2; low:=low+w end {if z>0} end {if color=0} end; for z:=0 to 7 do begin y:=top-z; moveto(x,y); if xycolor=0 then begin if z=0 then low:=1 else re smallprint; {this prints small picture} begin writeln(cls,'Scanning quarter-page picture.'); top:=191; q:=edge+1; while top>-1 do begin for x:=0 to edge do begin low:=0; write(prntr,line,q:4); for x:=0 to 559 do write(prntr,chr(high[x])); writeln(prntr); top:=top-4 end {while top>-1} end; {bigprint} proceduh[x]:=low else begin high[x*2]:=low; high[x*2+1]:=low end {else if mode=1} end; {for x=0 to edge} nd {if color=0} end; {for z:=0 to 3} if low=13 then low:=15 else if low=16 then low:=8 else if low=31 then low:=63; if mode=2 then hig then begin if z=0 then low:=3 else if z=1 then low:=low+12 else if z=2 then low:=low+48 else if z=3 then low:=low+192 e1 else bottom:=30; q:=560; while top>bottom do begin for x:=0 to edge do begin low:=0; for z:=0 to 3 do begin y:=top-z; moveto(x,y); if xycolor=0(resp) until resp=esc end; {quit} procedure bigprint; {prints half a page} begin writeln(cls,'Scanning half-page picture.'); if card=false then top:=191 else top:=151; if card=false then bottom:=-') then begin for x:=1 to 22 do writeln(prntr); writeln(prntr,'.') end {if resp=b} end {if resp<>t} end {if resp=y} end; {cardprint} procedure printit; {controls printing} begin writeln(cls); write('Turn printer on and press any key: '); read(resp); writeln; rewrite(prntr,'.PRINTER'); c {movedot} procedure help; {prints help screen} begin TEXTON; writeln(cls); writeln(' Help Screen |'); writeln(' |'); wrlor(black) else pencolor(white); dotat(oldx,oldy); moveto(x,y); oldcolor:=xycolor; if oldcolor=0 then pencolor(white) else pencolor(black); dotat(x,y); if pen=0 then pencolor(black) else pencolor(white) end; cedure startline; {sets starting point of line} begin begx:=x; begy:=y end; {startline} procedure movedot; {moves cursor somewhere} begin if oldcolor=0 then penco {putdot} procedure endline; {draws line from begx,begy} begin if pen=0 then pencolor(black) else pencolor(white); dotat(begx,begy); lineto(x,y) end; {endline} pro; {prints a dot on screen} begin if pen=0 then pencolor(black) else pencolor(white); dotat(vert,hor); moveto(x,y); oldcolor:=xycolor; if oldcolor=0 then pencolor(white) else pencolor(black); dotat(x,y) end; end else pen:=temp; if pen=15 then pencolor(white) else pencolor(black); if bg=15 then fillcolor(white) else fillcolor(black) end; {invert} procedure putdot (vert,hor:integer) GSAVE(filnam); {IOCHECK+} w:=IORESULT end end; {saveit} procedure invert; {reverses colors} begin if pen<>bg then begin temp:=pen; pen:=bg t a blank formatted disk in Drive 2 and press any key '); write('to continue: '); read(resp); if pos(filnam,'.')=1 then begin delete(filnam,1,4); filnam:=concat('#5/',filnam) end; {IOCHECK-} filnam:=concat('#5:',filnam) end; writeln; writeln('Saving ',filnam); {IOCHECK-} GSAVE(filnam); {IOCHECK+} w:=IORESULT; while w<>0 do begin writeln(chr(07),'Unable to save ',filnam,' on this disk.'); write('Pu write('Save as ',filnam,'? (y/n): '); read(resp) until (resp='Y') or (resp='y') or (resp='N') or (resp='n'); if (resp='N') or (resp='n') then begin writeln; write('Enter new file name: '); readln(filnam); {if mode=1} write(prntr,chr(27),chr(111)); {turns end-of-page check on} close(prntr) end; {printit} procedure saveit; {saves picture to disk} begin writeln(cls); repeat else if (resp='l') or (resp='L') then bigprint else begin writeln; write(chr(07),'Sorry. Press any key to try again: '); read(resp) end end; nter Menu':46); writeln; writeln('Small picture (1/4 page)......S':56); writeln('Large picture (1/2 page)......L':56); writeln; write('Your choice: '); read(resp); if (resp='s') or (resp='S') then smallprint ardprint; write(prntr,chr(27),chr(62)); {left-to-right print} write(prntr,chr(27),chr(79)); {turns end-of-page check off} write(prntr,space); if mode=2 then bigprint else begin writeln(cls); writeln('Priiteln('R/r..........Set radius point of circle. |'); writeln('C/c..........Set center of circle. (Then arc nbr.) |'); writeln('1-5..........Set arc of circle. (5 is whole circle)|'); writeln('S/s..........Set start of line. |'); writeln('L/l..........Set end of line. |'); writeln('Arrows.......Move dot. |'); writeln('8,4,6,2......Move dot quickly. |'); writeln(chr(255),'Arrows......Print dot. procedure censet; {sets center of circle} begin centx:=x; centy:=y; putdot(x,y); getarc; if resp<>chr(27) then begin x:=centx; y:=centy; moveto(x,y) end {if resp<>chr(27)} enoldx:=centx-round(radius*oval); oldy:=centy; if (quad=3) or (quad=5) then arcthr; if quad>3 then arcfou end end {if resp<>chr(27)} end; {getarc} quad=5) then begin oldx:=centx+round(radius*oval); oldy:=centy; if (quad=1) or (quad=5) then arcone; if (quad=2) or (quad=5) then arctwo end; if quad>2 then begin quad:=ord(resp)-48; if radx>centx then leg1:=radx-centx else leg1:=centx-radx; if rady>centy then leg2:=rady-centy else leg2:=centy-rady; radius:=round(sqrt(leg1*leg1+leg2*leg2)); if (quad=1) or (quad=2) or (l<=0) then oval:=mode; GRAFIXON end; {if resp='0'} if (resp<'0') or (resp>'5') then writeln(chr(07)) until (resp>'0') and (resp<'6') and (resp<>chr(27)); {end of repeat} if resp<>chr(27) then begin stretch x-axis to get an oval.'); writeln('Current setting is x-axis = ',oval:3:2,' of y-axis.'); writeln('Default for circle is x-axis = ',mode,' of y-axis.'); writeln; write('Enter new value: '); readln(oval); if (ova+z; lineto(x,y) end end; {arcfou} procedure getarc; {reads arc of circle} begin repeat read(resp); if resp='0' then begin TEXTON; writeln(chr(28),'You may squash or{arcthr} procedure arcfou; {draws lower right quad} begin moveto(oldx,oldy); if pen=0 then pencolor(black) else pencolor(white); for z:=0 to radius do begin hypeset; x:=centx-hypo; y:=centy begin if pen=0 then pencolor(black) else pencolor(white); moveto(oldx,oldy); for z:=0 to radius do begin hypeset; x:=centx-hypo; y:=centy-z; lineto(x,y) end end; ldx,oldy); for z:=0 to radius do begin hypeset; x:=centx+hypo; y:=centy-z; lineto(x,y) end end; {arctwo} procedure arcthr; {draws lower left quad} x:=centx+hypo; y:=centy+z; lineto(x,y) end end; {arcone} procedure arctwo; {draws upper left quad} begin if pen=0 then pencolor(black) else pencolor(white); moveto(o {hypeset} procedure arcone; {draws upper right quad} begin if pen=0 then pencolor(black) else pencolor(white); moveto(oldx,oldy); for z:=0 to radius do begin hypeset; _____________|'); write('Press any key to return to picture: '); read(resp); GRAFIXON end; {help} procedure hypeset; {sets hypotenuse} begin hypo:=round(sqrt(radius*radius-z*z)*oval) end; |'); writeln('T/t..........Insert text. (ESC ends text.) |'); writeln('I/i..........Inverts dot/line/grid color to erase. |'); writeln('RETURN.......Main Menu. |'); writeln('______________________________________d; {censet} procedure radset; {sets radius of a circle} begin radx:=x; rady:=y end; {radset} procedure words; {puts text on screen} begin dotat(x,y); rewrite(gscreen,'GRAPHIC:'); repeat read(resp); write(gscreen,resp) until resp=chr(27); close(gscreen); moveto(x,y) end; {words} procedure flip; {flame; gridpen:=pen; grid; plotter end; {newname} procedure modeset; {sets grafix mode 1 or 2} begin writeln(cls); write('Current mode is '); if mode=1 then write('low resolution: 'e('Enter file name of picture: '); readln(filnam); if pos(filnam,'.')<>1 then filnam:=concat('#5:',filnam); if mode=1 then grafixmode(BW280,buf) else grafixmode(BW560,buf); initgrafix; fillport; if (menu='l') or (menu='L') then oldnlnam,' not found.'); write('Press any key to return to Main Menu: '); read(resp) end end; {oldname} procedure newname; {sets picture name} begin fillport; writeln(cls); writresp='Y'} end; {grid} procedure oldname; {gets picture from disk} begin {$IOCHECK-} GLOAD(filnam); {$IOCHECK+} if IORESULT<>0 then begin writeln(chr(07),fi begin begx:=oldx; begy:=y; x:=edge; moveto(x,y); lineto(begx,begy); y:=y+16 end {horizontal lines} end {if egx:=x; begy:=oldy; y:=191; moveto(x,y); lineto(begx,begy); x:=x+15*mode+1 end; {vertical lines} y:=15; while y<192 do ') and (menu<>'u') then begin write(cls,'Do you want a grid on the screen? (y/n): '); read(resp) end else resp:='y'; if (resp='Y') or (resp='y') then begin while x'U 'C','c':censet; 'S','s':startline; 'L','l':endline; '?','/':help; 'f','F':flip; 'm','M':ditto; 'T','t':words; 'I','i':invert end if y>191 then y:=0 else if y<0 then y:=191; if x>edge then x:=0 else if x<0 then x:=edge; if comchr(127) then putdot(oldx,oldy) else case com of 'R','r':radset; (11)) or (com=chr(139)) then y:=y+1 else if (com=chr(10)) or (com=chr(138)) then y:=y-1 else if com='8' then y:=y+10 else if com='2' then y:=y-10 else if com='6' then x:=x+10 else if com='4' then x:=x-10; centy:=0; radx:=0; rady:=0; begx:=0; begy:=0; repeat read(com); oldx:=x; oldy:=y; if (com=chr(08)) or (com=chr(136)) then x:=x-1 else if (com=chr(21)) or (com=chr(149)) then x:=x+1 else if (com=chr {gets plotting commands} begin writeln(cls); writeln('Type ? for help during plotting.':56); writeln; write('Press any key to begin: '); read(resp); GRAFIXON; com:=chr(32); x:=0; y:=0; oldcolor:=xycolor; centx:=0; ips image horizontally or vertically} begin writeln(chr(07)) end; {flip} procedure ditto; {moves image elsewhere in matrix} begin writeln(chr(07)) end; {ditto} procedure plotter; ) else write('high resolution: '); writeln(modstr); write('Enter new mode or hit RETURN (H/L): '); readln(resp); if (resp='L') or (resp='l') then begin mode:=1; edge:=279; modstr:='BW280'; viewport(0,279,0,191) end else if (resp='H') or (resp='h') then begin mode:=2; edge:=559; modstr:='BW560'; grafixmode(BW560,2); initgrafix; fillport; buf:=1; grafixmode(BW560,1o_}o("{ow_ <ut we don't know who the actual author is. MENUS AND COMMENTS: Artworks Main Menu M..........Set Mode N..........Draw New Picture L..........Load Old Picture R..........Returnto Picture P.........b at improving Artworks, we'd love to have a copy to update this disk! Also, we'd appreciate any tips you might have for getting the most out of this program. Artworks originated from TAU, the Third Apple Users Group in Wheaton (Chicago), Illinois, buse the program. Note that while you can use On Three's Trackball /// with this program, it will not work (as written) with a joystick. The arrow keys work just fine to get you around the graphics screen. If you are a Pascal wiz and care to take a sta ARTWORKS INFORMATION by David Ottalini WAP /// SIG Co-Chairman May 16, 1992 Artworks is a fun graphics program but one you'll have to work at a bit to use. Please read the information below carefully and print a copy so you can follow it as you 'U','u':grid; 'Q','q':quit end until (menu='Q') or (menu='q') end. {program} 'Q..........Quit ':54); writeln; write ('Enter your choice: ':46); read(menu); case menu of 'M','m':modeset; 'N','n':newname; 'L','l':newname; 'R','r':plotter; 'P','p':printit; 'S','s':saveit; Picture':54); writeln('L..........Load Old Picture':54); writeln('R..........Returnto Picture':54); writeln('P..........Print Picture ':54); writeln('S..........Save Picture ':54); writeln('U..........Ungrid ':54); writeln(te); centx:=-1; centy:=-1; oval:=1; line:=concat(onechr,'G'); card:=false; repeat writeln(cls); writeln('Artworks':44); writeln; writeln('Main Menu':45); writeln; writeln('M..........Set Mode ':54); writeln('N..........Draw New {modeset} {main body} begin esc:=chr(27); cls:=chr(28); onechr:='x'; onechr[1]:=esc; space:=concat(onechr,'n',onechr,'T16'); mode:=1; buf:=1; modstr:='BW280'; edge:=279; pen:=0; bg:=15; pencolor(black); fillcolor(whirite('Current pen color is '); if pen=15 then writeln('white on black.') else writeln('black on white.'); writeln; write('Change pen color? (y/n): '); read(resp); if (resp='y') or (resp='Y') then invert; initgrafix; fillport end;) end; oval:=mode; writeln; writeln('Current buffer is ',buf); write('Switch buffer? (y/n): '); read(resp); writeln; writeln; if (resp='Y') or (resp='y') then if buf=1 then buf:=2 else if buf=2 then buf:=1; w{wG?x|{?ww@'  }O|o}o}_K(X#?0}=57=}w??7}=7?0???~~~}_x?w{?TJo_~~A`_~OSOS DRVR?_gc?xw~{{k_?~O?8xp_{~{_Jwo{_{?ow_46789:;<oooo~}y|p?~poo?=}?7x=578~x?87x=0x?788?x}}}}?sx~w{#UJo?~xgyO~?~~|w~{{h`?}?|~`_{?~wJ`Xw_{oE{ow_x߭`_~~g`@|xO''oo?=}~?7w=777=??7w=7?777?{{{}ng`~{qw)UJVER FILEoxg~{wO(i}yyC`{?ww@( %~sspa~_}_~oKsw_soq"{ow_%`Ho?~?gpxGO %`oo~[~x:w=777;w??7w=7:77?www}~||}?~o`)UJ` Dofy~}oHȱ '`ooow~{~{|p oo_~~{@ 7 wo{_>{_wo>o?~`~_J\`,L\0!o~~_`x~?~?~Od\ ){?|po}w}?Keefg=80w88wx?p8x?07p=88?p}{~y|}_o`xUJ`)\`{ow}_{ddddwO?~C{_wo|`\`o~o_`\)ߍ\`o?}wX\S\o~xG`??J#\"\o}~o`|@gy}OLb\`w|c~po}?{}~CwyGcpx~o_gUJ{ow_OK}~?~{_wo|҅Ґhooo{~Wo\!oo_?~w` L^,?7w=w87wx?8w=7p?7??0p}~|xG@_~GJ\\go{~wpxygO\P"\o{a~w}{}?@ ( _`og?~ ~x?w?gQJ L\I{ow_{_wo\ooow~;w~~OPoo_~~{?~DL8H\?7{=27;;w??7{=7?7??????p/b@?@o}WJ6*og~y?`~?~O0_gx|Aw}{}?h>"6**__qCAp?w?y|_J >000oo}g?pÑo_}o`\,w key in the desired direction gives you a line. Remember that the /// has a type-ahead buffer and will likely keep drawing beyond the point you want if you are not careful! To ERASE : Move the cursor to the desired location and press "I". Use the Opeply hit return and it will load the graphic. You can then PRINT it from Graphics Manager or save it to disk as a standard Apple /// FOTOfile. Size also depends on the information on screen. The Demo.Pic file on this disk side is only 17 blocks. But Artwoenu.) Artworks will NOT save to the Artworks program disk by the way. Note also that pictures are saved as DATA files instead of FOTOfiles. On Three's Graphics Manager will load these DATA files after giving you a "Warning - not FOTOfile" message. Sime your creation to disk if you like by pressing "S" from the main menu. NOTE that Artworks will only save to .D2. Be sure to have a blank formatted disk ready when you want to save, otherwise you'll get an error message (and then be returned to the main mr /// graphics program (see below). The WAP /// SIG Menu.Maker program does not recognize DATA files and so it can't load pictures saved to disk by Artworks. ------------------------------------------------------------ S - SAVE PICTURE : You can savprint program takes a while. And note that once you start printing, there is no way to stop save rebooting. There appears to be no out of this. An easier way to print your picture is to save it to disk, then pull it into Graphics Manager or other picture correctly. Test to see what you get. If this does not work you will have to save your picture and load it into Graphics Manager or Draw On Three to print (and by saving, convert the picture into a FOTOfile.) Also be patient ... the particular n:) Do you want to print a 1/3 page card? (y/n): (Type Y if you want a small picture, N if you want a big one). Next Message (depending on what you specified: Scanning half-page picture. (Note: depending on your printer, this may or may not print you a FOTOfile again and you can look at and print it from Menu.Maker or PrintShow ///. ------------------------------------------------------------ P - PRINT PICTURE: Press to see the message: Turn printer on and press any key: (Next Questioanager can load these without problem (see below) but our Menu.Maker graphics module (a Basic program) can't handle them since it doesn't recognize DATA files.) Of course by loading the DATAfile into Graphics Manger and then saving it, the graphic becomesl; G$:::320H: Error Routine 202:U=11:"79C";"BAD PATH ERROR (NO DISK IN DISK DRIVE OR DESIRED FILE NOT FOUND.)"X=11000:X:::210Z a$="{,|,~,}; selects; back 1 leveis error message: FOTO file I/O error: IORESULT=7 Hit to continue.... The program will load any Apple /// 33 block FOTOfile as well as its own Datafiles. BUT if you save the graphic, it will be saved as an Artworks DATAfile. On Three's Graphics Mther an Apple /// FOTOfile or an Artworks DATA file must be on disk in .D2. At the prompt : Enter file name of picture: (filename) Type in the filename alone, since the program will only go looking to .D2. If you type in the wrong name, you'll get thn Apple and Arrow keys to trace over the mistake to erase it. You can also use this to draw inversed lines if you desire. Press "I" again to stop erasing. ------------------------------------------------------------ L - LOAD OLD PICTURE The picture (eirks will load regular 33 block FOTOfiles without problem, so long as it can load them from .D2 (the external disk drive). ------------------------------------------------------------ U - UNGRID Ungrids the Picture ------------------------------------------------------------ Quit: Pressing Q at the main menu will quit the program. You will see an "Insert System Disk and Press Return" message. Make sure the Artworks Program disk is in .D1. Press to return to the Pasca is. On Side One: Artworks.Help :Artworks information and user manual. Artworks.Text :ASCII version of Artworks Source Code. Demo.Pic :Demonstration graphic created with Artworks. On Side Two: Artworks Boot/Program disk. Pascal Text File versm but it will not work (as written) with a joystick. The arrow keys work just fine to get you around the graphics screen. Artworks originated from TAU, the Third Apple Users Group in Wheaton (Chicago), Illinois, but we don't know who the actual author WAP /// SIG PD LIBRARY PDS NAME: Artworks DISK ID#: 3GRX-34 BOOTABLE? Self Booting Artworks is a fun Pascal-based graphics program you may enjoy trying - but you'll have to work at it a bit to use. You can use On Three's Trackball /// with this progra is also on this side. elp :Artworks information and user manual. Artworks.Text :ASCII version of Artworks Source Code. Demo.Pic :Demonstration graphic created with Artworks. On Side Two: Artworks Boot/Program disk. Pascal Text File version of the programs Source Codea$,1)="/"5060:s=s-1 5030=a$240 MENU.MAKER 6.2 * Thanks to C.M.Davidson for his help! you like to take a look at it. Its on side one as an ASCII file with the slug "ARTWORKS.TEXT" and on side two in a Pascal TEXT file slugged "SYSTEM.WRK.TEXT." em Disk and Press Return." NOTE: Artworks works with On Three's Trackball but not with a joystick. It is slow (well - it is Pascal after all) but may give you some fun. The source code for this program is included on this disk should l command menu if you like at that point and then "Q" to quit. If you use Selector or Catalyst, or our /// SIG Disk 3UTL-38, you'll be returned to the appropriate menu on-screen. Otherwise you'll be back to "Insert Systion of the programs Source Code is also on this side. vvyLj L ʟ,-uukv kv@vvyL5Lj ʟA80멀uukeqqtt$uA)*t L; $uЫkЦuuj ysLq,kl$uhuuj XkkNuuj k 4%v. #  kddʪdd LLsLcdS L_H hRSO s ɋ 0 GeDe ˰GeEeHeFeIeLLsGeHeIeD=ee>e?eJeKeLje֩ u>e?eՍ "] a a$% iLg֢   sLj$%`8f  a e ; ` s ɩ` YLILcopL7 z0xH ׫$0_ ;h8fH`aai shH2 h zJJJJf Ik ɩ` ̬ t os YLA ևLLק jWXX` ׫$`pd8isŠt`dyoopd8ip`J uv`&&&8孪孪宐橈`! @ uA?B@B 悅@=g>h>h ]=i>j>k a=g8i>hj>h 悅ki=5j>6k6k;el)@7Me0u(> ƬƫHH ,hohp` ɩCe0R`ȹR`ee?e@e ue 5e T L=e;e`Lso`n}pm aa`dyo ɃɄ b`" lJJJJYe s ˰L8Ls LԫN l@u=ekPe tMe )llNesOet NeOetMeCOeNeȌ=e>e;ee :RRRiRȐȰRe9Re: J 2IHJh*=>> 95:6:6R L1 1Lԫ`L:^  aFL^R, ue 5eLڭR7>e?e5e5ehe?eLje LjeR=89R>:>:iR:RiRRiRL`8(RR(`EeFe  s bq Vml0L%#%"$w"$#%"`荚ٍ荺 荚`荺``` D ( )  * ) 4* * h* ))` L% q ȥ q Hi hi  i" i# #% $ȱ %ȱ &ȱ '`<!((g %(r(z(q( %y(i(0z %"#$ %&' $"#$%&'   `%$%ɠ%* " ~#C #p $ %*0"#)#)i $"% * %*  L! {" j% %ƌ(X#"$% "$ #%%& '   ` {" & ɠ% %)  !( (" %(r(z(q( %y(a(0: %   "$%&e$'e% R % <%e,ȥ,*,- y,,,-,,,ȱ,,- yL+,ȑ,` 2"p-,-L(Ġ %>,i-i8, ȱ,%,W,pp ڠ %p`l  " ) i SOS KRNLb.D1/SOS.INTERPŠ̠Š.D1/SOS.DRIVERР頞 0 ) (lH'&3&'&#e'#%e'%'&"$"$#%'#%h`$eh`L)i   HH `TH..TH..TH..THATS ALL, FOLKS!R`RT RT`#RT RRRRR`0R`RR 㵩:RRL㵆  ~ RR`BLOCKS FREE: BLOCKS USED: TOTAL BLOCKS: sj]"]\AjiGa@aI[5x<^sě xCxEx5eҥV{}g}gkj̐kIk~^hT}27uejewsHH st\hh H PASCODPASTXTTEXT PASDTABINARYFONT FOTO BASIC DATA WPTEXTSYSTEMRESERVRESERVCAT RPSDATRPSIDXAFDISCASMOD AFRPT SCNLIBk;eo $'>ed?eehi?e ueL5e qrL,op ɩ`et?ek;e`hZ L<^hZL<^L=ee>e ?e`opqrst !` T֩xxMH]@ Kۅ5H ɐE$ eİ Ȱ h`h`8`W h8`hR`hLҿ i x +ۅ5ۅ6 ǰ `E8<W`­ `0XLۅ5 ɩE` eĐL Ȑ 15WL QL5WW{5 ې'`,55 ې'` ݠ B1 ȩȑ Lɦ8`5  @ R㥶i ` İG8`FХ+jѲ84ƳJJ 2ΐ3泑ƳLTΩ潑ƽ`ƱƳ ΰ( {Π۵*+)e`8`)` J J + ΰ" 0 ΰ 🱼ѼL8`ǩ Ϡ` ϰ ƑȥǑ` Ѻе*`)ȥ+8ۍې  ,ѺLTΠ"LΠ5 խ ɐ /ݐE`C8`)@ ϰa)ۥ,8ېu+J,\ ȱLJΠ) ϰ'#,J(] { ΰ ƑȥǑ.8` { ΰ,JѲ ƳL΅ƱƳ ΰҥ,J0`#$"0#`!qȱi 5H5Ƶ ǽ jh5`L2̩ƍv̥Ǎw̩ÎL%ϠƄǥLj̩۬L~̠HHh` ̐`*ѺG0?M`)J"u-- M8`۬` # ː`  = O̰)= I`JJJJѶQi Lˢ  0 ̐ `"L˦ `H8`8$$"$= O̰=`$0`#$"0`$` H hQ)fʅ F jF jF jF &!  eװ*  ̰F湥 ƹ`Z8`@  ʰ泭ۑƳ ʐ` ʐ` ˰ ƹ Wː`ۘ . . .۪8*JۦȱѶ"` ɰ Ȑ`E`Ɔ X̐8`>>5Ѷ Qܩ<`>`\ʊJJJJ ۍ۩  ˰Fȱ X̰6 0 Lɠ 0ۑۑ8ȱ`H8` ɹ $  8JJJJ8 ` ۠ǽi `< Ȱ+<#5 ې'` ɐ /ݐE`W8`R` 5&i ` Ȱ 0i `<8> ȐT eİF cȰB)Hh5 ˭)*ȑƑȥǑ'(ȑ`L)ɭ)Ѷ*e`M) `ۅH)Ѱ%}ʈh Qܐ'``hi ` p6۽ʹZ5 HȐ/i i `гW8`0( ɐ Ȱ ʮ6E`5 խ ɐ ޢ ȰLȍ۱Ǎ X̰% & !J8` *LĢ `8 iۥƍۥǍ`ۅ %  6 )Ѱ Ѱ` 𝭧e ǐ bǰL*ۈ5ȱ۠ƍȱǍ X̐ H h1  /ݐE`ۈۅ ۅ 8ƭ X̐`LLŠǠ  ݭv̅w̅ ðzv̍ŭw̍ŭƭ ­ōō T̰]ŅƮņ X̠8iȱiiȱi ṰŅǭŅ XLōۭ۩ۅ ȱ8D`F`8eYƍťǍŠ)͠ Wٍۭۅ5ۅƭۅ X̰ ìۈۑ T̰ۅƭۅ X̰ۙ%ۍ" T`K8`)` İ ۱ۈ` ưW/ۈęۈЍ۩@` 8 MƐ  5 Q8`LŅ ۅ ۩ۍۅ Lɰ ʰۅۄÍÍۙ'Ù ۍ*ۨ  Ѝ۹ۙ8v- ðJ ¥ ð, ðLO ʰƥLT`'  mې浰``8 8 nʰ0 ̰+泱Ƴ m° x̰ ̐8` m° x̰8 ۢ8 ˰y ` ¥ nʰ泱Ƴ T̰#泪 Ѳ *Ƴ ` L:Ϡ`泑Ƴ` LaĥH8`JȘ I8`  S`ۈۥۥ۩Íۭۍۭۍ հL¢H8`Jj Ȅ ۍۆeۅiۅ Lɰ ʰWۅۄ ¦J>  *ǵ յý5Ņ4gȩυɩč5 iψ }.8` iϙLIѠ ˢ L΢ ΰ LϠ ˢ ΰ1` Đ@ АP8`B8`ۑJJJJ -ѥ N8`) ))УJ8` ۑȭۑǠۑۑȭۑ($S8`O8` "` / 򑺠+* ͐H h8` ΰi `()=`Insert volume: Τ in device: 蠠ɠ then press the ALPHA LOCK key twicex)_ @,P,R,T,V) )) `)8( ߠ',@ ߠ0  '葺 ݰL`5`i 祻(8`2ޝ51©ޅéąŅƍ >ϩ 1ޠ== f ɰ`ޭ`5=(5= i Х(`=H hDC5 L3ܵ ɐ /ݐ 8`5 ˥JJJJ8 H h ` ܠ825H h5 ɐ /ݐ 8`Hh ܥ5 `ɥܥܥܥܥ5`܅܅܅܅܅5`( ݰ)Ѻ ݰL ݰ泱Ƴ ʰȭۮ ʰͩΪΩۦ eװqȭqLJ  ˰Aۅƭۅ X̰2%&N  ʰƭ X̐`Ӏ堁ӠҠՈ՘̠ƠŠӠ̠ɤӮȪŅ͠Ϊ ܆5 HȰۈ)ۅƭۅ X̰ 3ڰLÍLT̥L㼠  ʰ` İK ХP8` LɐH80)N  հ)@LO ˰)0 ̐` M ­۠泭ۑƳѲƱƳ X̰ RڰäJۑĥ` İo!)N8`WپX0 ĥLä X0 ĥLà !"#$ Đ2@H AڰCŰrP` 3ڰ(` AڰѶ? İG8`Fە1 ռ İ ЩP߭)@N8`1@8` Aڰ񈱴 ˦,+* ʈJj =ؠ yiȩ`y4泱ƳHhz ʠiȱizLA`L;ؠ"  `1` Đ7@8V۩ Lɠ۪8ۊ۠X)JJJƄ X Ġȱ۠ ȍ۱۠ ۭ) ۍ ð*)#  O̰``)(`N8` ) xհۈ ̰آ*գ  Ͱ ݢգ LvL{ؠ;i ڥ(8` ְ( ȱ5 HȦ)`Lxץ: ש ְ⥺i ꥻ(8`Lx Lxש u )۠0)p խ.8`)@ ϰ) ϰۈۅƭۅǭۅ5 X̰ *ƭ۬͵̶L  ΐ` Wհ> H۪ȱHۑhƳh sϰq ` ʰiȱi `)5©éՅĩ5 }JJ+`.`8`ɂ )`@ ש ְO ֤FHۑۑh8`P) հ Wհҥ,J+j泭۪ƳۑȊ ) ~ fPL ͊.>.ʱ+,EP!.E.Lw+,,ӄ*- P*e (` հB հ5 Wհ0,J۪泭ۑƳ sϰ(` L Ͱ2 ~ P kҐ#L8 T 2ΠHHȑhhȑ`Ld )N8` xհ*eȱ+eȱ,i۠Ѻ۹ۑ񥤅- ť.Lcԥ.La Ͱ$)rJ Lɰ )# Ԑ) ͰU..++,,IJ/ ӥ-.?Цե,J+jѲ4Ƴǥ4聠 H hH kh8`8-ȥ.L 8*Ʊ )8 0*-`.G.ʱ*+,EP'.E.LұE0+,,ӄ*p-e  )LBѠٳ )8`i (` )N8`*eȱ+eȱ,i۠Ѻ*ȱ+L - ť.Lkҥ. ՅL ͐Ld ~ pа.J/)@߅4ڠ) w߭)Ů􅮈 ߠ'x)) J,QJ,SJ,U,P,W(`)(()  8)j`J j߅`0X ٠͠堘ӠȠŠ堠󠠩à٠΀ƉŠŠӠҠȠHHH *ح)0 D) HHHH,, ߘ)@ *)X  xI)}h)L, L ) SYSTEM FAILURE = $hh8`hhhxآY_Z@tPRVT,p S JJJJ ) ʍL@ i0i6`îӉ͠堧ǥӥ``HhHy)(h`H` 0L?i `h` `` `x)( 8 `jjJJԥ)եӬɂ )Ӆ҅`  `H0Xh`Π'à̠ȈL` 8`څ  Lk%  Lk8Lu텚8嚅 L L Ld V ``  h` ک V `ۅץ  VLFx) ( :` H ) L  .P'pб0 &L:L5'8+8`0Fܢ` ř,Ř 0 8f)J ӭƅХDžѥL1LUȑ  i ߩLL )  札)  ҩLL` **éL0;` H ) 4 )ߍ) hjjjjۥ0CF = -$(L !LLL&L L-LJ٥eƦ ,L  # ` (L.L…ҥÅ,] Xx,f (I0јIFjFjFji```x@gŽPy+wLwԠ͠ŠԹ.D1 .D2 .D3 .D`HJJJJh)y` (2%H H @`)h8`  HШБˆeЅАѤ  БĈ` H`)à`֩ нѽ>`]PU]]UPPX0 0 PPXPP  0h8蘠fȊf` ab 1abo)abaݰb L9c`` a N0Ioa0H ha`pLopna n`  3ɠ/8 L %iLɠ8逨J Hh $`b >_-%^%p_^^_ab"08^c_L8^c_L8^c_L8^c_ȑcc\] ab^_ ``aV R0M bba dda `Q8STRQ ST`c\ȱc]a  b 5DU e\^e]_ ^_ ^_LH8\^]_?Je\^e]_,78\^]_ ^ݰ_ ^_LH^_ $bL@A^_aoQ*@A RQL@A `T8`RLSJTKQHIQiHiIKNJ)M8逅OPOPHMIN'a MHNILHOIPaOHPI8JHFKIGFGaHMINNMʆSTL8HSITQQSTde0f`   cCȱcD C Ea  UV 1 ELUFVG FUUCVDեYCWZDXWXCUDV[ v`b0WXYZiUcȥVcWX eeYZ ggE` @SATRDžŠƠŚ̮ÎȠ Ӡ̠Ӡ` LL#L/LL'Lgab `abBcd cdBrcadbho:ab.cݰdDcݰd8abҊ v+abcabRcdTefVghXijSdfhj RR`^0U ` 0 ʠ0 8 `ůàՠԠàࠝӢӠ ȠDž̖͌͊頀ϐωŠŠӠҠȠγ`%!^0 ^)@`a R =` *^)ـooL]^)?i |TU QTU]qUoqTITsUsprRprqs]ToUXa` RL=Xa` R` *R`X`U T  *\AX[ @F\B9ɏ5\o*Ɂo)[[ @^`U V  *C?^0: ݳ ٢ ^)?i` *)@o `p^ XiH 1h `)X0 8~X 1`C X`)X0`C РǠ𠠐ŠŠӠҠȠƠŮƠҢâӠUAQY @?ZY 9ZYY^TU QZoȥɭ }`` ? }``  }`X0i 8~XX0H }h襯` ©Wéĭ }0W`F X0A */5BL. zF`LLz Lz`Y `Ơ堧 B k L( LO  %   }` ` ?!©UéĩU󥣍V }`` ?)) $p10LYeieLVȱ d0L`Hȱ hh` WɸSI I.ȩ8A 8ɸ4ɠ(H)h h8   `    i Ȣ d` $,)?P^ GL㢮 5L}P.)(Ơ L`ޠ LR  稱 I)0JJJJ騩  )* i LiHh`PQPQ>P Q,PQ"PɀQ@PAQ`8`nɀ<)nopoLpp` SOS DRVR"CUSTOM.3 )((8*,;((*,((+)((9/(p((>3  =9 :9 .(~|L|LNqooGoDDDcc0ccpc]]c"QM"|@@pAATT**|ʩd8,h)ec efeede`,5 H  h 4  `5!    4(P 4 4  `,g0L,10kH0 ԥ f0)ĭ9)9҅xh(ĥŐL i,1HȊ©L,52,9-P" a{) b) )ab)a a,h0& &+%a0 +hcefd(c,@cfabdf`cnx  (,4h`dd,9P"<:J H) +̰ H) +ʭcP h̰BTVSPLH   5"ʘ HH` (# (=  0`)aI88  >!SHOLES 1!1!2@23#3#4$4$5%5%6^67&7&8*8*9(9(0)0)-_-=+=+\|QWERTYUI OP[{]}`~`~ASDFGHJ K L ;:;:'"'"ZXCVBNM ,<,<.>.>/?/?d0hp00000>0# #0~$ <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>>>> ""*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>>xr GA7  3  5  >>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< 9 Ln90$0%,7 ҥ L$0T,8OK50P;ҥ,8 L%\   8҅¥Ӆé҅L,5,6  & @jIH,5 p  He҅Ґhe…å逅h,23Lhґȥӑ,10 h0  `,g0L  ҅ӥĥŰ+,0p 4 Ls  Ls i )"|tȌs|st HH` MjH,: <J h̰ <rh,oL`%CYgut/line/grid color to erase. | RETURN.......Main Menu. | ___________________________________________________| Press any key to return to picture: To DRAW a circle: Move the cursor (a dot) to desired location of radius point an | Arrows.......Move dot. | 8,4,6,2......Move dot quickly. | *Arrows......Print dot. | T/t..........Insert text. (ESC ends text.) | I/i..........Inverts do | R/r..........Set radius point of circle. | C/c..........Set center of circle. (Then arc nbr.) | 1-5..........Set arc of circle. (5 is whole circle)| S/s..........Set start of line. | L/l..........Set end of line. graphics screen. The cursor (a dot) is located at the lower left corner of the screen. To get help while in the graphics screen press Shift+? and you'll get: Help Screen | RN then:) Do you want a grid on the screen? (y/n): (Answer "Y" or "N" then hit RETURN for next menu selection: Type ? for help during plotting. Press any key to begin: Once you've pressed RETURN, you will be presented with theso include Apple /// users who have installed an interlace kit.) ------------------------------------------------------------------- N - DRAW NEW PICTURE When "N" is pressed: Enter file name of picture: (Type in name and press RETU than reconfirming your current settings. The graphic will be erased. Apple ///+ users must turn off their interlace switch if desiring to use buffer #2. It's OK to keep it on with Buffer #1. (Yes this alhe Pascal 1.1 command line if you so desire by pressing "O". You cannot load a picture and change modes without erasing the graphic. That includes simply ESCAPING back to the main menu, entering MODE and doing nothing morege pen color? (y/n): ("N" and RETURN keeps pen color as is. "Y" and RETURN changes pen color to white on black.) NOTES: Pascal system on this disk has been set (under Options) to set aside a 32K buffer for graphics. You can change this from tress RETURN to keep current setting, "H" and return for "High Resolution" - BW560) Current buffer is 1 Switch buffer? (y/n): ("N" and RETURN to continue using Buffer #1, "Y" and RETURN switches to buffer #2) Current pen color is black on white. Chan.Print Picture S..........Save Picture U..........Ungrid Q..........Quit Enter your choice: ------------------------------------------------- M - SET MODE Current mode is low resolution: BW280 Enter new mode or hit RETURN (H/L): (P <Le Le ,g0L HH`! ( 9EKQWbmz`(" ((è%È`2ȭ3`1`d`c`+È`&È` & IMk`4`5`6`7`8`9`<ȭ=` & @jI`:ȭpȭqéL ==L: ,lCL <=L: <,n)LL8 L8 u:L8 ;)ߍ;j`; ;j`uBL8 uCL8 u)u;) u;L8    x) `(,  LuL-upp<`uqq=L: vuL L L #1:CY` 9C<m><=m@=>@?AL8 >m<>@m=@<=L8 <m>?=m@AL8 C9L8 ; ;k`;);k`,@`<,m p<L<`<p<`,ms<L=q=L: ,lXd press "R". Move cursor to desired center and press "C". Now press 1,2,3,4 or 5 depending on amount of arc you want. You'll have to try this to see how it works. 5 gives you a complete circle. To START a line: Move the cursor to the desired starting location and press "S". Move the cursor to the desired ending position (straight or angle) and press "L". The line will automatically be drawn. To type TEXT: Move the cursor to the desired starting location. Press "T" and type. Be careful becausewww """"""""33333333DDDDDDDDUUUUUUUUffffffffwwwwwwww(C) 1980 Apple Computer (+@EIR[ty} NQ9Copyright (C) 1983 Apple Computer, Inc. Graphics Driver..GRAFIX b """"""""33333333DDDDDDDDUUUUUUUUffffffffwwwww     ! ( 0 7 I N S _  . G R Y f {    ! $ 4 9 F I P S V \ a h m p s x |     ' + < ? D G N U f k p x ?BEJMRUX]`h  2;AGMS[fot|              . 3 6 9 < ? B E H N S V \ _ b w  KORY\aelpu !$(+.147<?BFILORUX]`finsw| !%*/369<+;CNU\eh "*-036<BLORX_fj &+38;?DGLTot <?BGLQgjox',/25:BG̑ʈ0 Ցʭr̈A萠L: ֦ڱΑ0Б֤ h L  p,:0 JfiΥiώJe΅Хiю@ B $p̑бʑΈ0 Б̱ΑʈeمΐeمАA萿 :  `ʝ"`t  !#%')L: 8p,:Jf׮@$PA B $P@/A'ʤ˅΄ϥ̤ͅЄ B $̑бʑΈ0Ƞ h L: $)טɀIim>ٮ@8pذ `$0"8,:Jک@ׅפ؈۩MjL,:08*Ȅ B ,:J}΅н(I I $0;P̑бʑΈ,:JՐrx 0, )ߍ:) J)*PR,T,V( : `,k<,: JI`I`<,:J̰`=m@>,:J}ʅ̽(I I `<Mj,:0pJՐ̑ʈ`pJհ0`ՑʭrpȐ`=m@< B h A$g " x) (,`% (gL,}0, `gé ĩ `:) j:;jN;~j;O,:0'???>>8?>p<<AAA@@8A@q==C)CB)B C}0 x) `(`hh% ( ΍ ύ逅Ñ}`` " ( ĩ~Íĩϭ & &υΠÑΈ~ F ~ҰةeÅÐн},,P,`,g$ ( efh) `xÙ+(`xÙ&(`)4`)5`)6`)7`)8`)9`,i0!M:0p ȱq L `" (~)y ~JJ* I `x|x|,,}P-X~ F }~L } `,,i0L È`,g HH`LL! l      5  Hdcefh&+si  M0   h) `(" (  (È& 8  `)2ȱÍ3`)1`Ɂ" (cefd`Hc it is not easy to erase a letter once typed on the screen. Press ESCAPE to discontinue TEXT mode. To print a DOT: Move cursor to desired location and press "Open Apple" with any arrow key. A single press print a single dot. Continuing to press the arro/((((PPPP @``` @@@@`xp<@ @ :H9H` (# ( -l..PcJt`,t$ ( t`tL4`,t0L4 HH`! (`ɖ" (èÈ``,t0L4 HH`L  d!  `ɖ" ( dÈ  ``,t0L4 d0Cս30. , V  @„ȄL5p Q%Q̑`pPIE1pΦ#$01ʐ1`JJJJ)`%υߥ`1(ȦJJJ`&&*`JJ` **&*&ߥ`J` ***`` ` Jjjߊ` ߊ`JfJfFߪ߆` `JfJfJfF`ߩ`$011̰JJJ LP \LD$7߭$PH8 nߩ nh ߍϭ - k, ϥ- kϱϮEϑʩ`P z  HH` k(h`$0#$E$0p Q%Qʑ`pPIE1p$E$0(L%τ`ϩE҅0Ȅ(fL% ('Άѽн`8Hٰ hIiHمh8Iif٤Φݰ>Jj8ۅe݅eޅ $  m`!J8݅ eۅ$  m` , V $צ!ϤҐ мφi`Jf`<,&ʰ,i8i#Hiihifʦʆi) v`i,ʐi,iPIIʥ)ifʦʆ̐pLj/Fϐ&Ȅ`'@τ`Fϐ@ E҅F8ئȢΆѽϽ`/epɀjff&ݥeepɀjffݠ %)  %)`%  0.)      0  ` ` @ ``8٨JJJ ) u˘ vͽʅ̆`8Hi #i,$0F y բӅLx  mӥmԐL] h `  )`%)8`)    H   ʥ)Ģ    H Ģ L E% %) L 8`ۅ&ۥe륅eٍeڍ808٥8٥ 8مڅ H , V Εm٭mڭ))njnjnjfjfjfj+mӥmԐ8L( Ӣ й` m j`Hآ Hӭԭ h h`8٭028ٍڍ0Z$eٍeڍm٥m8٥08ٍڍ`8٥058ٍڍ0ԭ V 8fxL@ ] I)!) g 80 J8}L y L 0yʽz0 y L7  Lh `*f*&*)` ϭPh0 йPL)`)L` L``  `L` H , 8 V ТΕLϦI ] +)J* g I`LL) @L) L8``Lթ`~L8L)  =H 'HH N M))Mhh0 }LO}~~Șݻ~`}}~L< L }ީ~` ɠɀ)ӮԮmwӥmxԐ mi` HHGH`  &xix 0ޤՐڢ,P<0 )ߍL- J,P,QJ,R,SJ,T,U,W`,t0L40 ( dȅɥŐ ĐL `ʝ`))ժuvЭ H ʊJyjhz|ֆ׆ح)JfJf$PIJfש ʈ8 @ש wx LVخ ʊJJJ莟mwwJ) ܭL FܪJJJJ)`'+9;=?ACEGINR\aejns~  #&).369<ADGJMP^g $*-06=HLORWcfloruz/47=G\x{~'+.149?CGIKMOQSUWY[]_acegikmoqsuwy{}?e]|~|F|~xxyL n;?g8|?gq@s?x@??`9A{?9ypAvx`opcC``;~o0fx~{{@`x@xxG=|x?y|}~|m. p`??O~1gs3a{>?oC    ) . 6 = J P S X [    $ 3 : = F d  > B H M s `e|&+.QVYcjuy~':{%(-47=FMUX\_jmz  .169DWfy   % * > A H K Z v z }      % , 1 5 : = B K R Z _ b g n s x ~ O?3cs>x`|p<??~<`x@?d{`w04p`>0@~@|`p<x?`x @pp@`~@x~GGxGx`|xx~ppy8Ap?s``p@```?O8@`~p~?B~@ 0p`c~<@@`pp`?a~@@~`p`x~px@``@`p~``p>;`x|xx?[~~ ?gCc_{8~ppxxg?w{_mG?|y8n}p~C@x`|` p~|