LnSOS BOOT 1.1 SOS.KERNEL SOS KRNLI/O ERRORFILE 'SOS.KERNEL' NOT FOUND%INVALID KERNEL FILE: xةw,@  ȱlmi8#)!)0 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 )U"!U %SEG.T jE-Ÿ/ )PRINT.ALL E-DISKNAME.DAT/SCRBSCREEN.CODE8 H Ψ9,SKETCH.CMMDSM% S )SKETCHPAD BH M /SKETCHPAD.ASCII &M S$ -READ.ME.FIRST\E+-SKETCH.MANUAL H O;)IMII.CODE H  .JETSCREEN.CODE0H m*MENU.MAKER  |E,(NEW.LOGO!@H Q%)PLOT.CODE[$FH n+SCR.PRT.INV4 !III.GRX.01CS.01u' )BGRAF.INV(H L+-COMPRESS.CODE H )DISK.INFOs L!!U.DMPSCREEN.CODE' H P&.DPCSCREEN.CODE H l'/EPSNSCREEN.CODEQ >dLԡm#i㰼m#iЕOLԡȱfg hi !dLԡ憦  Ljmkm l y`2 Lԡ8(Je稽)ʈ@LVOLUME 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$ 8C";"ANY KEY RETURNS TO THE MENU.">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 leve 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),l; ~|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>:)    kL !"#$%GA3/1.01/LINr GRAFIXMO  graphics (Fotofiles) -: on the screen from whatever disk volume you designate. -: RANDSHOW ///: This is a rather strange program that randomly compresses -: Fotofiles and displays them on the screen from whatever -: 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 &()*+,-.GA3/1.0UT8u) SCREEN 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  h hh hh hȠ f ˸  w|  m˲ wݙ x ̰ L hh566  5)` LhhhthuHH`uHtH` ) I J ),| SCREEN NAMEIT SCREEN SCREEN NAMEIT  MEIT PTRNAME PTRNAME   ~|uuuuuuuutphdRI931/////// LM `  HH`` f=` f=)JJJJ } q m g e _ ] Z V S J 9 3 . & $ # " !     {xwurqnc_^[ROIHFDB>=<;:965210-*)'%#! .PRINTER~ nT16  .CONSOLE   ֪ݪwݪw]ժ]UU*UU*U"UU"UDD)DD)DDDDDDDDDD@@Copyright 1984 by Richard WilliamsG` fJ=` @ f 2H1H`>EX`r|)`) & & &`J)`ȱ) & &`ȱJJ)`ȱ) &`ȱJJJ)` fL fJ  ȅy)(I=`mֻm)yJJ)./ }^m m `((((PPPP w x. *󪭟 *` w͙ x .y͛ z  M `  HH`` f=` f=)JJJJ w x {   ` η ζ ؠ`iiؘ  ` HwHxH|Hv  n} v|ޑ 꽍 wx׭} ^h|hxhwh `| ***{)=8`yp  )LJ) ) M ] ? @ `00 @```@@@@   {ޑ , wx wxwwݙ x  Ͷ W) 0JJJJ 0 s s |ޑ wx `GA3/1.0TT/123456< SCREEN NAMEIT SCREEN SCREEN NAMEIT eMEIT PTRNAME PTRNAME  PPPP _~`.~*~*` _y`z.a{b|  eMj`g }H|H``HHQQ =` =)JJJJ` J=` @  HH` %/=)`)ofVPNLLLLLLL`L=S`ed e***c)=8`a)aJJ)g}mkml`((((}{zyxwvrqpQEA;931.*' ~}zyxwtqponmgec^]\[YXWVUTSPOLJIH><;4/+)$  .CONSOLE     Copyright 1984 by Rich WilliamsP.PRINTERT & & &`J)`ȱ) & &`ȱJJ)`ȱ) &`ȱJJJ)` L] J  ȅa)(I=`@@DDDDDDDDDDDD)DD)U"UU"UUU*UU*UUUU]ժ]ժݪwݪwmֻmֻPPPP _~`.~*~*` _y`z.a{b|  eMj`g }H|H``HHQQ =` =)JJJJ` J=` @  HH` %/=)`)__y`zLidq_`mq^8>8>8>T w`hu_v`mqc^`==S`ed e***c)=8`a)aJJ)g}mkml`((((Jj),p g)L1J)g) gsklg eyfz,fP轓`00 @```@@@@HX T 8  > >- >T^^}:hcqжmq _` _` hfhhohhmh~ mq_d ˬL ˣˑ˗˝i_y`z̏L hh566 5)` Lhhh\h]HH`]H\H`f)hIiGA3/1.0TT79:;<=>?@40/  L( ' `' ( ' ؠ`iiؘ' ( `  HHHH  n   ׭ hhhh `4 1 . + * ) ( ' & # " !        }|{tokid`ZUTOLH   E .PRINTER/ cK1nT17 : F .CONSOLET _ a _ \ Y N K J I H G E D C B @ ? < ; 8 4 / . * ) $ # " !     e d c ` Z Y X R O N M J G F E @ ? > = < 9 8 `@@DDDDDDDDDDDD)DD)U"UU"UUU*UU*UUUU]ժ]ժݪwݪwmֻmֻ   Copyright 1984 by Richard WilliamsKG7T =M` =M)JJJJ` J=M` @  gHfH`sz)`) & & &`J)`ȱ) & &`ȱJJ)`ȱ) &`ȱJJJ)` L J  ȅ)(I=M81 𪽏 ***)=M8`)JJ)cd }m m `((((PPPP  . * *` 3  .  3 M `  HH`` ) 0JJJJ 0 `     ( ' `' ( ' ؠ`iiؘ' ( `  HHHH  n   ׭ hhhh `  )LJ) ) L \ > ? `00 @```@@@@1 ( ' # 4<     `    ,      '  ( x h hh hh h e " $ * = B E P V )   O T U _  l   ! L hh566  5)`  LhhhhHH`HH` ) I J ),p81 𪽏 ***)=M8`)JJ)cd }m m `((((PPPP  . * *` 3  .  3 M `  HH`` NAMEIT SCREEN SCREEN NAMEIT % MEIT PTRNAME PTRNAME  ber you want? ";870 Change prefix""What is the new prefix? ";a$-(a$,1)=".")(a$,1)="/")p$=a$:620p$=p$+"/"+a$620  Catalog #3,p$ ž#31140f=0 #3,p$"Catalog of ";p$::$#3;a$:a$)<4u screen"*"9) Quit"'4::"Which would you like? ";:860>(a%<1)(a%>9)620 Hœ19602Ra%1390,1940,930,980,1200,1340,1480,1480,1410\ get a digitf31);:"";a$pa%=a$,1))-48z(a%>=0)(a%<=9) =-1%"What is the numcture and the menu"=10"1) Go to the sketchpad""2) Help""3) Change prefix""4) Catalog FOTO files""5) Load a picture""6) Save a picture"" ptr$="none""7)":"8)":810"7) Print current picture" "8) Print the mena=7:1480: Printerb620l disk boxv txt$:"Printer = ";ptr$"Current prefix =";p$#f$<>"""Current file = ";f$-:"Reminder: Press pen off of the right"-" edge of the screen when switching"," between the pi>18000bufflag=1:buffer%(8192) Go to the sketchpadgrafixmode(%3,%2) grafixon!bufflag=0a=sketch(%0,%m%)*&bufflag=1a=sketch(@buffer%(0),%m%) 0:txt$;:grafixmode(%3,%1)Da=241940: HelpNa=25620: DiskXa=26et""2) Joystick""3) Mouse" :"Which one? ";:860:m%=a%(m%<1)(m%>3)360 m%=m%-1m%=0#1,".TABLET"m%=2#1,".MOUSE"p$=:pname$=".PRINTER""initgrafix:grafixmode(%3,%2)error$(13)i=113:error$(i):i&r$="Paper Tiger":ptrext=1?6a%=8a$="imii.code":ptr$="Apple IMW II with color ribbon"(@a$<>"""plot.code","bgraf.inv",a$$Ja$="""plot.code","bgraf.inv"T get drawing device ^m%=dev%:420hr"Drawing device:":|"1) Graphics Tablcolor ribbon"3a%=3a$="jetscreen.code":ptr$="Canon Ink Jet"<a%=4a$="jetscreen.code":ptr$="Canon Ink Jet":ptrext=12a%=5a$="epsnscreen.code":ptr$="Epson or HP"1"a%=6a$="dpcscreen.code":ptr$="Paper Tiger":,a%=7a$="dpcscreen.code":pt"8) Imagewriter II with color ribbon":"Which one? ";:860(a%<0)(a%>8)90'ptrext=0: Bit 6 of printer commanda%=0a$="":ptr$="none"/a%=1a$="dmpscreen.code":ptr$="Apple DMP"Ea%=2a$="scrbscreen.code":ptr$="Apple Scribe with ACDEFGHIJKLMNO) Apple Scribe with color ribbon","3) Canon A1210 Color Ink Jet printer","4) Canon PJ1080 Color Ink Jet printer"*"5) Epson MX-80, MX-100, HP Thinkjet"+"6) Paper Tiger 8050 with 8 1/2 paper"-"7) Paper Tiger 8050 with 14 1/2 paper"* dev%=-1: drawing deviceptr%=-1: printer =".D1")(txt$=16)+0)+28): 40 col + home 22620<#2,".grafix"F get printer typePa%=ptr%:210Zd"Printer type:":n"0) none"*x"1) Apple DMP, Imagewriter or Scribe"("21060..a$,2,6)="BLOCKS":a$=a$,2,35):1110 8A$,3,4)="FOTO"f=1:1100BA$,3,3)<>"CAT"1060 La$=a$,3,4)+" "+a$,16,15)Va$;2`=24"Press return for more files";a$:1040 j1060t#3~f=0"No FOTO files"=24""Press return to continue";a$620 load a picturea$="load? " 1250a$<>""gload.f$620 f$<>"""Type '=' for ";f$"Type to cancel""File to ";a$; "";a$ (a$="=")a$=f$a$=""1330 f$=a$1(< Title screen F :txt$;.P "***************************************"Z 2790;""d 2790;""n 2790;"Sketchpad ///"x 2790;"" 2790;"by" 2790;"" 2790;"Richard Williams" 2790;"" 2790;"Copyright 1984" 2790inger paint"$ "MIR Draw mirror reflections" "HELP Print this screen" "DISK Go to the disk menu"# "PTR Go to the printer menu"  "^Pv Change the pen size"! "^Tv Change the type size"$( :"press return to continue";a$2 620commands": "The other commands:"  "CLR Clears the screen"% "BAK Set the background color"! "BOR Set the border color"0 "PRO Protects border color from filling";! "UNDO Undo the last change"- "SMR Smears drawing like fject from the screen".V "CUTA Cut all of an area from the screen"+` "PUT Put a cut picture on the screen"&j "AIR Spray paint like air brush"!t "ERAS Erase from the screen"$~ :"press return to continue";a$ other commands :"Summary of en""| Vertical pen" "\ Draw lines" "[] Draw boxes" "O Draw ovals"*$ "BRU Use current pattern as a brush"%. "FILL Fill an area with a color"+8 "TYPE Type on the screen. Use Tab key"B " when done")L "CUT Cut an obscope in""OUT Zoom microscope out"$:"press return to continue";a$ drawing commands:"Summary of commands":"The drawing modes:""+ Draws like a pencil""/ Angled pen""\ Angled pen""- Horizontal p>"The microscope commands:"H)R"PAT/MIC Switch between microscope\" & pattern menu" f"<- Move microscope left"!p"-> Move microscope right"z"/\ Move microscope up" "\/ Move microscope down""IN Zoom microIC ERROR #"; 2000F NOT SOS,I/O,FILE TOO LARGE,WRITE PROTECT,BAD PATH,FILE NOT FOUND> PATH NOT FOUND,VOLUME NOT FOUND,DUPLICATE FILE,DISK FULL0  FILE LOCKED,FILE NOT OPEN,DEVICE NOT FOUND help screens *"Summary of commands"4Change driver name'v"What is the new driver name? ";a$(a$<>""pname$=a$:ptrname(@pname$) 1500 help screen 2070 ON ERROR (<24)(>37)2020ERROR$(-23);" ERROR"""PRESS RETURN TO CONTINUE";A$620"BASthe picture (y or n)? ";a$&(a$="Y")(a$="y")o%=o%+1:1840(a$<>"N")(a$<>"n")1800$&ptrext<>0o%=o%+64: set bit 60 do the print:grafixmode(%3,%p%) DgrafixonNscreen(%xs%,%ys%,%o%)X:p%=2grafixmode(%3,%1)b620l =4xs%=5:ys%=4:1750a%<>51500'"What is the width? ";:860:xs%=a%("What is the height? ";:860:ys%=a% 1750'"Rotate the picture (y or n)? ";a$&(a$="Y")(a$="y")o%=o%+2:1790(a$<>"N")(a$<>"n")1760'"Invert 't print"6"1) Change driver name"@"2) Small (1 x 1)"J"3) Medium (3 x 2)"T"4) Large (5 x 4)"^"5) Other size"h:"Which size? ";:860ro%=0|a%=0620a%=11900a%=2xs%=1:ys%=1:1750a%=3xs%=3:ys%=2:1750a%:"MENU.MAKER"620 Print the picturep%=a%-6: page txt$:ptr$="none"620 "40C";"Print a Picture":"Printer driver = ";pname$*"Press return while printing to stop"""Select picture size":,"0) Don(f$,1)<>".")(f$,1)<>"/")f$=p$+"/"+f$2< save a pictureFa$="save? " P1250Za$<>""gsave.f$d620n return to sketchpadx530  quit&"Do you really want to quit? ";a$'(a$,1)="y")(a$,1)="Y")1450620;"" 2790;"". "***************************************"( =22:"Press return to continue ";a$  "*",37C,"*" ******************************"(=22:"Press return to continue ";a$( "*",37C,"*" ( "*",37C,"*"  SCREEN w]ժ]UU*UU*U"UU"UDD)DD)DDDDDDDDDD@@Copyright 1984 by Richard Williams=` @ ^ *H)H`6=PXjt)`) & & &`J)`ȱ) & &`ȱJJ)`ȱ) &`ȱJJJ)` ^L ^J  ȅq)(I=`mֻm֪ݪwJ)&' }Vm m `((((PPPP o p. * *` o p .q r  M `  HH`` ^=` ^=)JJJJ` ^J op ` o p sxy `x8xyy``xy` HoHpHtHn } .u nt op׭u khthphoh `t ***s)=8`q)qJ ),p  )L'J) ) p  b c )@  iKw`00 @```@@@@  ~ s , op opoo p  x y d s sxi yi  t h hh hh h t     ( .    ot' , - 7   o p ԩ    L hh566  5)` LhhhlhmHH`mHlH` ) I JPRSTUVWXYGA3/1.0TTy` .PRINTERv A  .CONSOLE, 7 9 7 4 1 & # " !              z r p o n m l i h g f e ` _ Y ) ( ' & % " !            @b~sk'C(p<(A5ɀ1s'+ WI8io'8'I8i'8' ~`s'ʆIo8(%(%` zL  l! `'u' *' o    l!Lu'H'u'o h'u'p `'I'Lu''i@'***)'L()*'I'I L@HH hh LɀNzp|,k'0 B o L Wr'JI8mp'蘮r'JI8mq'' Lɠ.&"` +'+'  l!L u( HH` )2ssss;'8''' ~( L [!'H'H'''' h'h' r!׭' ȱȱȱ `'  ` 󩏍'''@`iɂ )`  ~   r! ('' 'Ɍ O( Y() L /'L @`b) a'Ȅ''' '/'JHHH hhh8''a̺'` f!('(' ~ l! f!''ݻ''ݾ'''ݾ'''8''' R ~ l!  r! X r! ~'  ~ l!â?+' ~ [! r! C''#''#' r!ۢ'8'Iiν#8'Iim'' '#0ũ ~ [!'譺'  l! ~ r!''}o ' m'֍'H' ~h X'&'L'm'' m''&'''}o'''J5}''}'' ' '(''(''Lm''m''#'8#''8#'  '''''m''m''m''m''   'L/'޶''޸'` ~ [!('('' ~ l! f!'ͻ'' hhhhhx'hh'h '' @,t'Lt' {  HHL'''t'0% (!(+(B(E(P(((((`@3('2(4(.(*(` {' ~ HH`Lx. [! r! ('('L [!4 r!Z\]^_`abcdefghijklmnopqrstuvwxyz{|}GA3/1.0UT8u) A SKETCH NAMEIT SCREEN SCREEN NAMEIT  MEIT PTRNAME PTRNAME   } { y l h f a ] W R Q L I E    1 - ,    L. L X z'  L''''Lt''Lt z ~L'' ''') ݛ iݙ'  '' r!''''L Н zk'Ik' X, ,k'' +u'( Lk'Ltr'l' l'Lk'Ltr'l'}!!l'Lk'Ltr'm' m'Lk'Ltr'm'}''m'Lk'Ltr' r's'Lk'Ltr' r'ʎr's'   L  z {u'L8hhh'h'HH`'H'H`)JJ)  }= '#RRr#Q"Qq;*;"" ` :***;ڪʊڪĊETmTTEHEH"6*""k'`r'm'''8}n'q'l'!!8} E 8I8ep' x%|A>ݾ@8(83=3<3;393736313.3333222222222222222222222222x2t2j2e2d2c2b2K2H2;2:292827202.2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2)2&2!222 2211111111111111111111111111111111111111111111111~1}1|1{1z1y1x1w1v1s1p1m1l1k1j1d1\1W1V1S1R1Q1P1M1J1C1B1?1615121/1*1&1#1 111111111 1 111~[A3/1.2]OUT< SCREEN SKETCH SKETCH  AtlgSO;82/*#"  {yxwvutqnkjg_\[XWTQPONMC@?=<;:764310.slkfedba_^YXSLIHECB@?:94-*'&vv tlgSO;82/*#"  {yxwvutqn $ $ $$$$$#############################}#|#y#d#b#`#^#]#T#K#I#A#0#(#&####""""""""""""""  ~ | { y v u t k b ^ ] \ Y W U T S E E E E E E E B = 9 4 3 2 - ( $         %%%%%%%z%v%b%_%Y%V%E%B%>%;%1%*%)%(%'%&%%%$%#%"%!% %%%%%%%%%%% % %%%$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$}$|${$z$y$x$o$n$l$k$j$i$h$f$e$d$c$^$\$Y$U$I$H$G$F$A$?$<$8$,$)$&$#$ $$$$$$$))))x)w)n)g)d)])Z)V)U)Q)N)M)K)C)@);):)7)4)1)0)/)-),)+)')&)%))((((((((((((((((((((((((((z(y(r(l(g(b(a([(Y(Q(P(M(F(D(A(;(6($(#("((((((( ( ((((''''''''''''&&&&&&&& & & & &&&&&%%%%%%%%%%G+D+A+<+8+5+1+/+-+)+%+"+++++++++++ + ++++*********************~*}*w*v*u*t*s*l*g*d*a*^*]*Z*Y*X*O*N*9*8*5*2*/*.*+*(*%*$*!******** * * ******))))))))))))))))))))))))))))))))))))a-L-K-7-6-+-*-)-(--- - -----,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,},x,r,q,p,i,h,g,_,Y,X,W,P,O,N,J,E,A,3,.,+,!,,,,,,,,+++++++++++++++++++++++++++++++++}+u+o+n+m+k+h+_+\+Y+V+U+R+O+N+M+J+111100000000000000000000000000000000000000000000000000~0y0w0v0%00///////////////u/m/f/^/V/N/=/7/2//// ///........-..-------------r-q-p-o-n-m-l-k-j-i-h-g-f-e-c-b- h hh hh h e " $ * = B E P V )   O T U _  l   ! L hh566  5)`  LhhhhHH`HH` ) I J ),pNAMEIT SCREEN SCREEN NAMEIT % MEIT PTRNAME PTRNAME  81 𪽏 ***)=M8`)JJ)cd }m m `((((PPPP  . * *` 3  .  3 M `  HH`` 40/  L( ' `' ( ' ؠ`iiؘ' ( `  HHHH  n   ׭ hhhh `4 1 . + * ) ( ' & # " !        }|{tokid`ZUTOLH   E .PRINTER/ cK1nT16 : F .CONSOLET _ a _ \ Y N K J I H G E D C B @ ? < ; 8 4 / . * ) $ # " !     e d c ` Z Y X R O N M J G F E @ ? > = < 9 8 `@@DDDDDDDDDDDD)DD)U"UU"UUU*UU*UUUU]ժ]ժݪwݪwmֻmֻ   Copyright 1984 by Richard WilliamsKG7T =M` =M)JJJJ` J=M` @  gHfH`sz)`) & & &`J)`ȱ) & &`ȱJJ)`ȱ) &`ȱJJJ)` L J  ȅ)(I=M81 𪽏 ***)=M8`)JJ)cd }m m `((((PPPP  . * *` 3  .  3 M `  HH`` ) 0JJJJ 0 `     ( ' `' ( ' ؠ`iiؘ' ( `  HHHH  n   ׭ hhhh `  )LJ) ) L \ > ? `00 @```@@@@1 ( ' # 4<     `    ,      '  ( xv DUMMY  Some Notes on SketchPad /// By David Ottalini WAP /// SIG Co-Chairman SketchPad /// is really a neat little graphics program for the Apple /// written by Rich Williams of Apple. It is, essentially, a little sister to On Three's Draw On Three and MAIN DUMMY DUMMY MAIN _IN COMPRESS COMPRESS @.d1here it is slide slide+)&#   idbOM542.......  BA10+* EZL@.d1here it is slide slide+)&#   idbOM542.......  BA10+*  uv֭wvut`MMJv ^`miL=8Lhmi`8L  (08@HPX`hpx 0@P`p @` @`@@@@)v*F****)w)xȱ**)yJJ)z(*){JJJ)|i(v  w(""(##P P!!P""P## JJJ8J  8J `#*18?FMT[bipw~ mHlH`y)`))^`)`)ȱ)N`ȱ)`ȱ).)>`ȱ)`   $(,048< hhhhhhhhhhhhhhhh8HhL-ɌTM i@i n ) LwLhhhhHH`HH`)JJ)}i ` !!""##( (!!GA3/1.01:7SYwill let you do many, but not all the things Draw On (by Dr. Mel Astrahan) can do. For one thing, SketchPad /// was written in Business Basic and uses invokables written by Mr. Williams specifically for this program. Draw On is an assembly language progra@ SCREEN @@DDDDDDDDDDDD)DD)U"UU"UUU*UU*UUUU]ժ]ժݪwݪwmֻmֻ  Copyright 1984 by Richard WilliamsQ$ =E` =E)JJJJ` J=E` @  _H^H`kr)`) & & &`J)`ȱ) & &`ȱJJ)`ȱ) &`ȱJJJ)` L J  ȅ)(I=E` 𪽇 ***)=E8`)JJ)[\}mm`((((PPPP .**` +. + M` HH``/L u   `  .-`-.-` -.`HHHH  n׭J |hhhh`81  )LJ)) aq ST,P`00 @```@@@@T1  )5<` $ ,   hhhhhhe(*0=BEPV/ OT U_  'L hh566 5)` LhhhhHH`HH`)IJ),pGA3/1.0TThhh hHHHHHL %&Ly)+/* "#~)L,P,P ,P `,0p@ A"# ,0LLLyGA3/1.01:7SY PSCREEN NAMEIT SCREEN SCREEN NAMEIT )MEIT PTRNAME PTRNAME  @ < ; !  $L\}mm`((((PPPP .**` +. + M` HH``/L321.-)&#    { w u p l f a ` [ X T         .PRINTER5x0$ :F.CONSOLET_a_\YNKJIHGEDCB@?<;84/.*)$#"! VUTSONMGDCB?<;:54 MENU.MAKER TEXT MODULESEG=0"MENU.MAKER"890&*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::"a$,1)="/"5060:s=s-1 5030=a$240 MENU.MAKER 6.2 * Thanks to C.M.Davidson for his help! to disk and -: then pull them into Graphics Manager, Draw On Three or -: similar program and then print. -: similar program and then print. -: disk volume you designate. -: -: On Side Two: -: SKETCHPAD ///: A great graphics drawing program in Basic. -: It will use any input device. The number of printers are a -: bit limited, but you can save your creationsPNAME 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``,79C";"PRESS ANY KEY TO HALT 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"10p$ 900A$="PRINTING"+F$(I):$=01:=0::"80C";A$;::12)F=23:=0::"79C";"PRESS ANY KEY TO HALT PRINTING"::2,280,21 2000*:=23:=0::"79C";"CONTINUE...?":1C$:C$<>"Y"C$<>"y"C$<>"N"C$<>"n"#1,D$::"Processing directory ";34);D$;34);", please wait."; ž#1880*#1;A$:A$)<48104A$,3,4)<>"TEXT"810>X=X+1:".";HE=15:F$=A$,16,15)RF$,E,1)=" "E=E-1:850\F$(X)=D$+"/"+F$,E)f810p:  Pausež#1740#1;A$:A$)<4710A$,3,4)="TEXT"X=X+1710 :X>YN=P::7);"There are no text files in the ";34);D$;34);" directory." ::I=P::7);"Unable to locate and open ";34);D$;34);" directory." ::IT$=N$,E,1):T$=" "T$=","610XE=E+1:E>N$)610:590bD$=N$,S,E-S)l:v:E>S+1600:D$="": œ770P=3:"Looking for ";34);D$;34);" directory." #1,D$=P3:"Reading from ";34);D$;34);" directory." I>X200300S=1:D=1:B=1570D$=""500 Y=X:S=ED$(D)=D$:640 X=Y440D=D+1:S=E:440D=D-1:X=0F$(X):X=0 J=1D D$=D$(J)790&J0 :œ6303DE=S+1:N$,S,1)=" "N$,S,1)=","S=S+1:580%Nž#2390 ^1000c: h#2;a$ma$rY=1150:Y0wB=B+1: Count the number of lines printed xB=15B=30355yB=60#3;12)zB=60B=1 {#3;a$|360B<=20#3;13)::410#3;12):Z=11000:ZI I=3d: PRINTER V. 1.0 ::=2::"PRINT.ALL v. 1.0":3=4:"Directory Name(s) or return to quit: ";n$N$)=0::"MENU.MAKER"430 X>0260I=11000:I:200: ,I=1X 14000 6#2,F$(I)@#3,".PRINTER" JEAD PASCAL TEXT FILES."04=10:"78C";"ANY KEY RETURNS TO THE MENU."!>G$:::".D1/MENU.MAKER",320R",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 R".D1/MENU.MAKER",220 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.MAKE30C$="N"C$="n"1160;:=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"2010C$="N"C$="n"200;:=23:=0::"79C";"PRESS ANY KEY TO HALT LISTING": 20002,280,21 DF$(I)=D$+"/DISKNAME.DAT"F$(I)=D$+"/FLASHNAME.DAT"410:ۺ310 PRINTER v 1.0 }~TU}~T ****=|pU}TU L[D>}6~xTU].*T)****6~[?oU}T BD**;nH!@Df]wf!L3o=U> .>xN?&f&`L>|ssg}vTo{UU}~TUSUWYUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU}UT~/UU=O>ETO@O|c~U|~*L`|||LLL|AdLs||*\NU*~x*|*xYwMw]UU=v6^3n;n"ff8]w*|>~a*yqg*|~**|** **\NU*UUUUU{0*|************************************"|~G**|~*OUUUU};mwj;n;{__*|*xD**UUH!""f**\w%L3o=*FIPU****************************************|~*Uxwx|**J_>**8y~8`||q* I R U X|~*~s*|y*UUUU~~(*/*|x*|o^** r  ?<sF?p`p|`xAg?|px*|*`*|?>*** Y ] c j****************************************|*}[****|?~**OO|G|* T@L@yyDAL|LpLs|@U].*TQ GU}TxyO]w**[o6^s]]w"f8nC!n;U}~oTACCcU}~T*/*j**+*z*j****+*>U}TyO]w**[o6^s]]w"f8nC!n;U }~TUT*****?`xU}TUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU}6~cTU}~T/****Z}9n;o}{{U}Tx"HD**;nDDfw]l;&R ~UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU}~T??AUEO@U}~TOOOO9~@||qU2}>T?8<8xpU}g>vT****{U_UqU}TU |s~?g|sg?}TT~U=^UTU>Sm}T}WUUUgU}~TOO|G|UDTHCT|~*LLLss|OL|L`LsxL*\NU*g{`?*|*xq]Gw]UUgzmc;n;"ft]'@]w*|~`***U_UUUUWUuUUUUUUWUU}*|*q]Gw]UUgzmc;n;"ft]'@]w*>> |~**|~*UUUUU@*|************************************>LQ`|6~q***QUUUy~o;nm>own>*|*xD** "fd&R ~*****************************************|~***r**|~*OHO*s?~*|y~H*TUUU| **?* *|**> M p|Ng@>|sc*!*\.***>$Pm,P|*{m***y*|~*@|x*>>}_TL`agg|a`ALL`s@aU=*T~?]_U}TxU> N}>wTgU}~T***** * ****** *?~U}TyO]w**~yzmSww]"fd&@n;U> NOHTU~}T*`UUeOUUUUUUUomputer }>T3~ppU}^~T****x~~USUU}~TU}~TU].*T"***~OOU}TUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUT}>TUT ***z~?n;~o}v?U}Tx BD**n;H!@Dfw]fA!v[UI`OUT Zoom microscope out" 2210 PRINT:INPUT"press return to continue";a$ 2220 REM drawing commands 2230 HOME:PRINT"Summary of commands":PRINT 2240 PRINT"The drawing modes:" 2250 PRINT 2260 PRINT"+ Draws like a pencil" 2270 PRINT"/ 2140 PRINT" & pattern menu" 2150 PRINT"<- Move microscope left" 2160 PRINT"-> Move microscope right" 2170 PRINT"/\ Move microscope up" 2180 PRINT"\/ Move microscope down" 2190 PRINT"IN Zoom microscope in" 2200 PRINT"ISK FULL 2060 DATA FILE LOCKED,FILE NOT OPEN,DEVICE NOT FOUND 2070 REM help screens 2080 HOME 2090 PRINT"Summary of commands" 2100 PRINT 2110 PRINT"The microscope commands:" 2120 PRINT 2130 PRINT"PAT/MIC Switch between microscope OR" 2000 INPUT"PRESS RETURN TO CONTINUE";A$ 2010 GOTO 620 2020 PRINT"BASIC ERROR #"; ERR 2030 GOTO 2000 2040 DATA NOT SOS,I/O,FILE TOO LARGE,WRITE PROTECT,BAD PATH,FILE NOT FOUND 2050 DATA PATH NOT FOUND,VOLUME NOT FOUND,DUPLICATE FILE,D new driver name? ";a$ 1920 IF a$<>"" THEN pname$=a$:PERFORM ptrname(@pname$) 1930 GOTO 1500 1940 REM help screen 1950 GOTO 2070 1960 REM ON ERROR 1970 OFF ERR 1980 IF( ERR<24) OR( ERR>37) THEN 2020 1990 PRINT ERROR$( ERR-23);" ERR}|>|TU}>TUU****zU}TxyO]w**[o6^s]]w"f8n8n;U(`)}|~oTCCAyCUgNSTUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU`x}F~~TU].*T*****\f>w{>\?U}T"HD**n;DDf]wl;8ygU`LUL}_N?TsA|`|@U}~T****2j_~?_mxU}Tx"HD**n;DDf]wl;8ygU" ( a}~TU}~T'**~UedSTqUUUUUUU`! (}>8T83880pU}~T"*** {@U`U}TUM#UsN~?&f~|L<g}v}TwwUUxU}~TUT,&U)UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU}@T_UTeS?U]O^ETOO~O|qU`|~~*|a*<^U*_U*|*xq]Gw]UUgzmc;n;"ft]]w*\` T|s~a*yg*s@*|**a҅ӥ|?**|~*TUUUYu]w];];n[n{wG*|*xD** "fd8yg* TJ|~**|~>*OUU}p(*rI |*******||>*3rs*|*UUUUe*(**|~**  asN?&f`|L~|psg|p*o{***|~**UU****************************************|*** J@*\sr*?OO|c~*T}>TL|AAALAOL`s|AU].*T+~U}TxyO]w**~yzmSww]"fdn;U U, U}O~iTCygU}>TU}TUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU  Angled pen" 2280 PRINT"\ Angled pen" 2290 PRINT"- Horizontal pen" 2300 PRINT"| Vertical pen" 2310 PRINT"\ Draw lines" 2320 PRINT"[] Draw boxes" 2330 PRINT"O Draw ovals" 2340 PRINT"BRU Use current pattern as a brush" 2350 PRINT"FILL Fill an area with a color" 2360 PRINT"TYPE Type on the screen. Use Tab key" 2370 PRINT" when done" 2380 PRINT"CUT Cut an object from the screen" 2390 PRINT"CUTA Cut all of an area from the screen" 2400 PRINT"PUT Put j|`x+U*U*U*U~@j>0p+Uj@kV~~AH  $AH  D? $0}>LQ`j?x7 x+U*U*U*U~@*U*U*U*U*U*U*U*U*U*U*U*U*U*U~@|@u~k`ax0`9+U*U*U*Uj?|`pp$BxknV~p@Ж`~k+U*U*U*U@j@t@@|'"k`DV~|?>yg|sO?~y'}tSO~s}tSO?`> M ~j|>xk>(U*V~`|p>$Pm,P~k+U*U*U*Uj~x?@kV~p?>RU@m`>>uxpa7?@ ~ W*U*U*U*|?`c|xG?xa~apl> Nuppg?`?pmxW*U*U*U*@}op> NOHu@xW*U*U*U*@?upOW8U*U@w|.}~ _|rO?:i%}tSO>ziG?zi'Xz L[D>u~o~ xW*U*U*U*@?U*U*U*U*U*U*U*U*U*U*U*U*U*U*}xa|pC>xa|`xa|@k> .>~u~?p`@sW*U*U*U*uxx`pm~xw.x`>I~uW*U*U*U*@?u~@+:@@` w`D.}|?|pC>xa|pC>xaq>xaG? |?u@p<0xw>X]+7*.`|pஶ>)~U~?U*U*U*U*u||@w.p?>R[`| jxpao~?@0x+U*U*U*U~`~xVjxp?`pm1x+U*U*U*U~@`p j x+U*U*U*U~@j`w{\*U*`kDV~~ |sO?~ygtSO>zigzi'8 >)jx?x_}`L|+U*U*U*U~@*j~W~GH  $AH H |@u?`>H ~k+U*U*U*Uj|G`pxkV~x [>y>z>~k~>)pjppp?<`xk|`TV~`}oGh GL~+U*U*U*U*U*U*U*U*U*U*U*U*U*Ujx@_@ @@kW~p?|\sd6`) a cut picture on the screen" 2410 PRINT"AIR Spray paint like air brush" 2420 PRINT"ERAS Erase from the screen" 2430 PRINT:INPUT"press return to continue";a$ 2440 REM other commands 2450 HOME:PRINT"Summary of commands":PRINT 2460 PRINT"Thjxpa[p`Fy+U*U*U*U~`sK/>}o_tSO>~QO~q|*Ujpp` `x+U*U*U*U~@}op>> ~u>xw~(]jW .`}o>Sm~uxW*U*U*U*u|@w.p?~Tsda6`8DTHCTj@?xp `z+U*U*U*U~@jxkW~O|sO?~yg|SO>zQO?tSO>~`u?a҅ӥjpap?{@@ ~+U*U*U*U~@@#D  $AH  $$~ AxV TJ~k8`1 cLLaNs+U*U*U*U@j`?W*w`@0@0k|V~x`kRZ*U" *RRX +U*U*U*U@jWU*@kDV~~`,W*  a~+U*U*U*U*U*U*U*U*U*U*U*U*U*Ujpg@kW~p @}oUU~k@+U*U*U*Uj|o@k|V~x Tu|a?{p`sC|W*U*U*U*`a||OOxa|cp` U, Uu@?xpxLCxw.`}o@ u~?xp @yW*U*U*U*@?u@`w.}xa|pC>xa|`G?xa~`zTu`?xpv`LazW*U*U*U*@@cE/>yg]tRO>zi''~i}xkI`~up@cC cgW*U*U*U*@?u`<.U `` @xw.}p omputer urBmMf nww0W*U*U*U*@?u|_+*U:@8"wD.}||pC>xa|pC>xaa>xaG?T+U~u@x>xw.p}oSUWY~u@W*U*U*U*uxW@@w|.x@`j|avp`s |+U*U*U*U~|?`H }/PH |Hqpj`?xxLxkW~`}o` jxp1+U*U*U*U~@j `@k5V~@?~0}"j@?xpm Cy+U*U*U*U~@@gE?~yg|sO?zi''h}|wFIPU~k`Gx30f 8N+U*U*U*U@j`8|zp` @xk.V~@p I R U XkWp>`6+U*U*U*U@j @T*=@Hz"k@?DV~| $AH  $AHbAH?lUj r  ~j|>xk<V~`}o Y ] c j~k`+U*U*U*Ujxo?@@kV~p?<@`` u|amp`s3xW*U*U*U*`qK/>}/WtSO>|SO~q8U*u`?`xW+`}o` u@0xW*U*U*U*@?u`@@w7.}~~>xa|pC>xa|pC?|pC~pzu@?xp[ xW*U*U*U*@U*U*U*U*U*U*U*U*U*U*U*U*U*U*@G|pC>xa|pCCp>|k~u@0`lpW*U*U*U*?u@xxp`i@xw*.}2~u W*U*U*U*@?u@+jO@4"w`D.}|>ye|SK.zi'}tSO~c}tSO?x jxp|ps@A{+U*U*U*U~@p|@~x\` Tj?xpp|1xk V~`}o@#U`T)~U*U*U*U*U*U*U*U*U*U*U*U*U*U*u~}@*U*U*U*U*UJw/p?l`T,&U)~uW*U*U*U*u~?~`pxw|.x`҂҂ҢRRR7=FM҆Ң K Z v zҒҢҢҢ]_ac҂ҢҢԕܭ!,NԒԔԔ #&ԂҢ`pPԂҢ**҂ҢRRRRN+L҂Ң :ϱ"ԒҢҢЩτ`"""ҒҢJ҂ҢҢ u+ԒҢԔifʦԂҢff&ݥԂҢI+҂bRRRRХ,҂Ң%)8`"""ԒҢҢ,eٍ,ҐҢ,)҂ҢҢ8`HT+ԒҢeٍ,,uxp~ppaA`xW*U*U*U*@p(`)u|?xpp|@ xw .`}o|`xup?xp?;?0|W*U*U*U*@?Uu/}G|rK?~i%}tSO>zQtSO>~`z?`LULuppa_}?@ |W*U*U*U*@@C|pC>xa|pCC~q>xn" ( a~upFB1fg`g9W*U*U*U*@?u@+U`@@A0wD.}x`! (uRNfU6 nrV?xW*U*U*U*@?u@.U*U`wD.}~~>xa|pC>xa|pc|pCX~M#UԂҢ   ԂҢQVYcҀҢҢ5ou have Ԓ4Ў Move microscope right /\ Move microscope up \/ Move microscope down RETURN 2790 IMAGE "*",37C,"*" ht 1984" 2740 PRINT USING 2790;"" 2750 PRINT USING 2790;"" 2760 PRINT"***************************************" 2770 VPOS=22:INPUT"Press return to continue ";a$ 2780 RETURN 2790 IMAGE "*",37C,"*" . . . . . . . . . . .ontinue ";a$ 27800 PRINT USING 2790;"" 2670 PRINT USING 2790;"Sketchpad ///" 2680 PRINT USING 2790;"" 2690 PRINT USING 2790;"by" 2700 PRINT USING 2790;"" 2710 PRINT USING 2790;"Richard Williams" 2720 PRINT USING 2790;"" 2730 PRINT USING 2790;"Copyrig pen size" 2590 PRINT"^Tv Change the type size" 2600 PRINT:INPUT"press return to continue";a$ 2610 GOTO 620 2620 REM Title screen 2630 TEXT:PRINT txt$; 2640 PRINT"***************************************" 2650 PRINT USING 2790;"" 266e" 2530 PRINT"SMR Smears drawing like finger paint" 2540 PRINT"MIR Draw mirror reflections" 2550 PRINT"HELP Print this screen" 2560 PRINT"DISK Go to the disk menu" 2570 PRINT"PTR Go to the printer menu" 2580 PRINT"^Pv Change thee other commands:" 2470 PRINT 2480 PRINT"CLR Clears the screen" 2490 PRINT"BAK Set the background color" 2500 PRINT"BOR Set the border color" 2510 PRINT"PRO Protects border color from filling"; 2520 PRINT"UNDO Undo the last changԂҢ҂ҢҢ,P,҂ҢxÝAԂҢȢֱԒҢҢL IF OKAY, N)o TO CHANGE:";:OK$:"NO",OK$)"TIMESET"(#1,".RS232"%2A$=:="":"/APPLCOM/ACCESS3.INV"'<:=30::"WELCOME TO ACCESS ///":4F=3:=22:WASHINGTON APPLE PI PD DISK e our library offerings. And if you have anything to offer, we are always open to PD donations! . . . . . . . . . we are always open to PD donations! . . . . . . . . . enu PTR Go to the printer menu ^Pv Change the pen size ^Tv Change the type size . . . . . . . . . . .2K system : Slideshow3 program allows you to show your pictures This program is unprotected and may be copied. It has been placed into the public domain by Mr. Williams for the use and enjoyment of the Apple /// community. GETTING STARTED HARDWARE Sketchpad comes ready to use an Apple // mouse in slot 2, an Apple graphics tablet in slot 3 (Apple no longer makes a graphics tablet), or an Apple /// joystick in port B. If you wish to change the slots of the mouse or the tablet, use the Sugh you poured a can of paint into it. If there is a gap in the border of the area, the color will leak through and fill other parts of the original picture. If this happens, choose UNDO on a 256k/512K system to get the original picture back, then fix thed to draw straight lines. The |_| draws hollow boxes and the O draws ovals. BRU uses the current pattern as a brush. FILL will fill an outlined area with the current color. This is called a flood fill because it floods an area with color as thog mode, press the pen in the box and mode you want. The selected box will turn black. "+" draws a thin line like a pencil. "/,\,-,|" draw like angled, horizontal and vertical pens. The width of these pens can be changed with the P box. The "-\__" is us magnifying glass. IN is used to zoom in and make the picture in the microscope bigger. OUT will zoom out and make it smaller. THE DRAWING MODES These are the different drawing instruments that you have to create your picture. To pick a drawine picture. The boxes on the right side of the microscope are used to control it. PAT is used to turn off the microscope and display additional patterns (See Patterns). The arrows are used to move the microscope left, right, up and down just like moving alect a color, press the pen on the color you want. The selected color will be outlined in white. THE MICROSCOPE The microscope is used for making detailed changes to your picture. Pressing the pen in the microscope will draw a dot in thff of the right edge of the screen. The easiest way to learn how to use the sketchpad is to experiment with the program while you read this menu. THE COLOR MENU The color menu is used to select one of the 136 different color combinations. To sele drawing a picture. The menu is used for selecting colors, drawing modes, patterns and for detailed editing of your picture. Selected command boxes will appear as black in the menu. To get to and from this menu from the drawing screen, press the pen ong. TO GET TO THE DRAWING SCREEN, MOVE THE CURSOR (+) OFF OF THE RIGHT EDGE OF THE SCREEN AND PRESS THE BUTTON. Do the same to get back to the Sketchpad menu. THE SKETCHPAD MENU The sketchpad menu contains all of the commands normally used whiwill see the Disk Menu. Type "1" for "Go to the sketchpad." This will take you to the Sketchpad Menu. The flashing + is called the cursor and points where you are point to draw. You can move the cursor by moving the mouse or whatever device you are usi drawing device is installed. Then, use the cursor keys to highlight "Sketchpad" and press return. It will run automatically. If the program stops at this point, be sure the proper drawing device is installed and in the proper slot. Next, you des the Slideshow3 and Randshow programs, along with the menu.maker program. To run Sketchpad, simply run the program "Run.Other.Side", and turn the PD disk over. It will give you another menu that includes this manual and Sketchpad. Be sure your proper If your printer is not supported, you may still be able to print it using On Three's Graphics Manager program. Check with On Three to see if the program will print graphics to your printer. STARTING THE PROGRAM Side one of this disk incluystem Configuration Program (SCP) in your System Utilities disk. The Apple /// Standard Drivers manual explains how to do this. Sketchpad supports many different printers. There is a parallel and serial printer driver in the SOS.Driver file for you. e gaps and refill the area. TYPE is used to type text on the screen. To type text, select the TYPE box, and return to the drawing screen. The cursor will be a box showing the letter size. Press the pen where you want to print and start typing. When you are done, press a non-printing key like TAB or ESC. The type size can be changed with the T box. CUT is used to cut an object out of your drawing and copy it somewhere else. To select the object on the drawing screen, press the pen outsiChange prefix 4) Catalog 5) Load a picture 6) Save a picture 7) Print current picture 8) Print the menu screen 9) Quit Which would you like? THE PRINTER MENU This is the menu used when you print your picture. There are three picture sizes. IfApple DMP (or other printer) Current prefix = /PRO Current file = /Pro/Dragon (the name of your picture) Reminder: Press pen off of the right edge of the screen when switching between the picture and the menu. 1) Go to the sketchpad 2) Help 3) t to be changed in the pattern grid on the right. THE DISK MENU This is the menu used when giving commands to SOS. It is used to load and save your pictures and to quit from the sketchpad program. Here is what the menu looks like: Printer = ! To choose a pattern, point to it with the pen and press the button. The pattern will appear in the pattern grid on the right. Other patterns to choose from can be seen by pressing the PAT box. The pattern can be modified by pressing the pen on the do The dot will only appear when you draw if the corresponding dot is on in the pattern. The solid while pattern (all dots on) will let you draw any dot just like there was no stencil at all. The solid gray pattern (all dots off) won't let you draw at alle the up and down arrows to make the pen larger and smaller. The size is shown as a bar to the right. T is used to change the letter size for the TYPE command. PATTERNS patterns act like stencils when you are drawing. the next combination. HELP prints out a summary of the commands. DISK is used to load and save pictures and to exit the sketchpad. PTR (PRINTER) is used to print a picture. P is used to change the size of the four pens. Us three types of mirrors. MIRX gives a left-right reflection. MIRY gives a top-bottom reflection. MIRXY gives both. Each time you press the pen in the box, it changes to after all, you can undo the undo. UNDO is only available on a 256K or larger system. SMR (SMEAR) this adds a finger painting-like effect to your drawing. MIR (MIRROR) will draw the reflection of whatever you draw. There are over. This is normally set to black to protect the outlines of areas. UNDO undoes the last change made to the drawing. Use this when you make a mistake. If you change your mind and want the change ound color. BAK (BACKGROUND) sets the background color to the current pen color. BOR (BORDER) sets the border color to the current pen color. PRO (PROTECT) protects the border color from being accidently filled y paint. ERAS is an eraser. Use it to erase mistakes. THE OTHER DRAWING COMMANDS These are not drawing instruments like the previous section but are various commands to the sketchpad. CLR (CLEAR) clears the screen to the backgrmallobjects that are about one fifth of the screen or less. CUTA (Cut All) is like CUT except that the entire area within the frame is copied. PUT copes whatever was cut to the screen. AIR is an air brush and acts like a can of sprade of the object and then drag the cutting frame around the object. If the object is by itself, only the object will be copied. After the object is cut out, the program will go to PUT to let you copy the object elsewhere on the screen., CUT works with s you are printing a large picture, you can rotate the picture sideways so more of it will fit on the page. You can also invert the picture (switch black and white). This is sometimes useful with black and white printers. The printer menu looks like this: Print a picture Printer driver = .PRINTER Press return while printing to stop Select picture size: 0) Don't print 1) Change driver name 2) Small (1x1) 3) Medium (3x2) 4) Large (5x4) 5) Other size Which size? Rotate the picture (y or n)? Invert the Also On This Disk: We have included four Apple /// Foto Files to use with Sketchpad /// and with Slideshow3 and Randshow. On Side One you'll find: WOODBLOCK JEDI and on Side Two you'll find: POWER.PIVOT NEW.LOGO We also plan to offeut if you have an Apple /// joystick, it will work just fine, although not with the complete control a mouse would give you. If you want to use a mouse, you will need to get the Apple //e mouse and interface card. It will work fine with this program. one time but no more. You may, however, still be able to pick up one on the used market. The gentleman who donated this program to the WAP, Eden Ricor of the Baud Appleing Computer Club in West Germany says the mouse is best for using the program. Blisting of the program, as Sketchpad.Ascii. Sketchpad /// allows you to use either a graphics tablet, joystick or mouse and includes a mouse driver and Apple graphics tablet driver as part of your SOS.Driver file. Apple did make a graphics tablet at m and is faster and more powerful. The instructions for SketchPad /// are on a seperate file, Sketchpad.Manual. To help you further, we have pulled out those help files and placed them into a separate file, Sketch.Cmmds. You'll also find a complete   Run Side Two Program#"TURN THIS DISK OVER, PLEASE."6"I WILL WAIT A FEW MOMENTS FOR YOU TO DO THAT..."(X=150002X<F!P"OK RUNNING SIDE ONE NOW..."ZX=11000dXn".D1/MENU.MAKER"xlity of the pictures when compressed is considerably reduced. But the program is interesting and we've included it in the hope a /// SIG member might want to work with the program to improve it. . . . . . . . . . . . . re directories and will look for all of the pictures in that directory and display them. Randshow, also on side one, is similar to Slideshow3, but it compresses the pictures as it shows them. The program is not completely satisfying, as the qua Don't catch your tie in the printer. SHOWING YOUR PICTURES Once you have made some pictures, you will want to show them. The program on side one, Slideshow3 has been included on this disk to help you do that. Slideshow3 asks you for one or moof the picture on the page. 3) To save ribbon, don't print large pictures until you are finished with the drawing. 4) Some pictures will look better and use less ribbon if you use a white background instead of a blue sky or other colored background. 5) picture (y or n)? Helpful hints for printing 1) Try printing the sketchpad menu to see how the colors look on your printer (if it can print color!). This will help you pick the colors that draw your picture. 2) Try rotating large pictures to fit more r a PD disk with nothing but foto files. Printing Sketchpad /// gives you a number of printer choices. However, if you do not have a printer listed, you can still save the FOTO file and then print the picture if you have On Three's Graphics Manager program (it has a wider range of printers but check for compatibility before ordering). Draw On Three could also be used to print a foto file if it is compatible with your printer. Slideshow3 and Randshow Slideshow3 will allow you to have a slides192) 510 REM Go to the sketchpad 520 PERFORM grafixmode(%3,%2) 530 PERFORM grafixon 540 IF bufflag=0 THEN a= EXFN%.sketch(%0,%m%) 550 IF bufflag=1 THEN a= EXFN%.sketch(@buffer%(0),%m%) 560 TEXT:PRINT txt$; 570 PERFORM grafixmode(%3,%1) OPEN#1,".TABLET" 450 IF m%=2 THEN OPEN#1,".MOUSE" 460 p$= PREFIX$:pname$=".PRINTER" 470 PERFORM initgrafix:PERFORM grafixmode(%3,%2) 480 DIM error$(13) 490 FOR i=1 TO 13:READ error$(i):NEXT i 500 IF FRE>18000 THEN bufflag=1:DIM buffer%(8GOTO 420 360 HOME 370 PRINT"Drawing device:":PRINT 380 PRINT"1) Graphics Tablet" 390 PRINT"2) Joystick" 400 PRINT"3) Mouse" 410 PRINT:PRINT"Which one? ";:GOSUB 860:m%=a% 420 IF(m%<1) OR(m%>3) THEN 360 430 m%=m%-1 440 IF m%=0 THENe":ptr$="Paper Tiger":ptrext=1 310 IF a%=8 THEN a$="imii.code":ptr$="Apple IMW II with color ribbon" 320 IF a$<>"" THEN INVOKE"plot.code","bgraf.inv",a$ 330 IF a$="" THEN INVOKE"plot.code","bgraf.inv" 340 REM get drawing device 350 m%=dev%:en.code":ptr$="Canon Ink Jet" 270 IF a%=4 THEN a$="jetscreen.code":ptr$="Canon Ink Jet":ptrext=1 280 IF a%=5 THEN a$="epsnscreen.code":ptr$="Epson or HP" 290 IF a%=6 THEN a$="dpcscreen.code":ptr$="Paper Tiger" 300 IF a%=7 THEN a$="dpcscreen.codEN 90 220 ptrext=0:REM Bit 6 of printer command 230 IF a%=0 THEN a$="":ptr$="none" 240 IF a%=1 THEN a$="dmpscreen.code":ptr$="Apple DMP" 250 IF a%=2 THEN a$="scrbscreen.code":ptr$="Apple Scribe with color ribbon" 260 IF a%=3 THEN a$="jetscreson MX-80, MX-100, HP Thinkjet" 170 PRINT"6) Paper Tiger 8050 with 8 1/2 paper" 180 PRINT"7) Paper Tiger 8050 with 14 1/2 paper" 190 PRINT"8) Imagewriter II with color ribbon" 200 PRINT:PRINT"Which one? ";:GOSUB 860 210 IF(a%<0) OR(a%>8) TH  type:":PRINT 110 PRINT"0) none" 120 PRINT"1) Apple DMP, Imagewriter or Scribe" 130 PRINT"2) Apple Scribe with color ribbon" 140 PRINT"3) Canon A1210 Color Ink Jet printer" 150 PRINT"4) Canon PJ1080 Color Ink Jet printer" 160 PRINT"5) Ep 10 dev%=-1:REM drawing device 20 ptr%=-1:REM printer 30 PREFIX$=".D1" 40 txt$=CHR$(16)+CHR$(0)+CHR$(28):REM 40 col + home 50 GOSUB 2620 60 OPEN#2,".grafix" 70 REM get printer type 80 a%=ptr%:GOTO 210 90 HOME 100 PRINT"Printerthe images are reproduced better on the screen (there is a "compress.code" Pascal module used which might need some work). In any case, have fun and enjoy this disk. As always, your /// SIG welcomes any comments or suggestions you might have to improv with nothing but foto files on it. Randshow will display the foto files both randomly and in a compressed mode you will probably find unsatisfying. It's included here simply because its an interesting program and perhaps you can improve it so that how of foto files on your screen, one right after the other. It is very easy to use and you can run it from your Menu.Maker menu on Side One of this disk. It allows you to chose the pathname for the fotofiles, so if you want, you can make a separate disk 580 IF a=24 THEN 1940:REM Help 590 IF a=25 THEN 620:REM Disk 600 IF a=26 THEN a=7:GOTO 1480:REM Printer 610 GOTO 620 620 REM disk box 630 OFF ERR 640 PRINT txt$:HOME 650 PRINT"Printer = ";ptr$ 660 PRINT"Current prefix =";p$ 670 IF f$<>"" THEN PRINT"Current file = ";f$ 680 PRINT:PRINT"Reminder: Press pen off of the right" 690 PRINT" edge of the screen when switching" 700 PRINT" between the picture and the menu" 710 VPOS=10 720 PRINT"1) Go to the sketchpa%+2:GOTO 1790 1780 IF(a$<>"N") AND(a$<>"n") THEN 1760 1790 PRINT 1800 INPUT"Invert the picture (y or n)? ";a$ 1810 IF(a$="Y") OR(a$="y") THEN o%=o%+1:GOTO 1840 1820 IF(a$<>"N") AND(a$<>"n") THEN 1800 1830 IF ptrext<>0 THEN o%=o%+64:REM se50 1710 IF a%<>5 THEN 1500 1720 PRINT"What is the width? ";:GOSUB 860:xs%=a% 1730 PRINT"What is the height? ";:GOSUB 860:ys%=a% 1740 GOTO 1750 1750 PRINT 1760 INPUT"Rotate the picture (y or n)? ";a$ 1770 IF(a$="Y") OR(a$="y") THEN o%=oPRINT"5) Other size" 1640 PRINT:PRINT"Which size? ";:GOSUB 860 1650 o%=0 1660 IF a%=0 THEN 620 1670 IF a%=1 THEN 1900 1680 IF a%=2 THEN xs%=1:ys%=1:GOTO 1750 1690 IF a%=3 THEN xs%=3:ys%=2:GOTO 1750 1700 IF a%=4 THEN xs%=5:ys%=4:GOTO 17rn while printing to stop" 1560 PRINT 1570 PRINT"Select picture size":PRINT 1580 PRINT"0) Don't print" 1590 PRINT"1) Change driver name" 1600 PRINT"2) Small (1 x 1)" 1610 PRINT"3) Medium (3 x 2)" 1620 PRINT"4) Large (5 x 4)" 1630 1470 GOTO 620 1480 REM Print the picture 1490 p%=a%-6:REM page 1500 PRINT txt$:HOME 1510 IF ptr$="none" THEN 620 1520 PRINT USING"40C";"Print a Picture":PRINT 1530 PRINT"Printer driver = ";pname$ 1540 PRINT 1550 PRINT"Press retu gsave.f$ 1380 GOTO 620 1390 REM return to sketchpad 1400 GOTO 530 1410 REM quit 1420 INPUT"Do you really want to quit? ";a$ 1430 IF(LEFT$(a$,1)="y") OR(LEFT$(a$,1)="Y") THEN 1450 1440 GOTO 620 1450 TEXT:HOME 1460 RUN"MENU.MAKER"";a$ 1290 IF(a$="=") THEN a$=f$ 1300 IF a$="" THEN 1330 1310 f$=a$ 1320 IF(LEFT$(f$,1)<>".") AND(LEFT$(f$,1)<>"/") THEN f$=p$+"/"+f$ 1330 RETURN 1340 REM save a picture 1350 a$="save? " 1360 GOSUB 1250 1370 IF a$<>"" THEN PERFORM 620 1200 REM load a picture 1210 a$="load? " 1220 GOSUB 1250 1230 IF a$<>"" THEN PERFORM gload.f$ 1240 GOTO 620 1250 IF f$<>"" THEN PRINT"Type '=' for ";f$ 1260 PRINT"Type to cancel" 1270 PRINT"File to ";a$; 1280 INPUT"6,15) 1110 PRINT a$; 1120 IF VPOS=24 THEN INPUT"Press return for more files";a$:GOTO 1040 1130 GOTO 1060 1140 CLOSE#3 1150 PRINT 1160 IF f=0 THEN PRINT"No FOTO files" 1170 VPOS=24 1180 INPUT"Press return to continue";a$ 1190 GOTOp$:PRINT:PRINT 1060 INPUT#3;a$:IF LEN(a$)<4 THEN 1060 1070 IF MID$(a$,2,6)="BLOCKS" THEN PRINT:a$=MID$(a$,2,35):GOTO 1110 1080 IF MID$(A$,3,4)="FOTO" THEN f=1:GOTO 1100 1090 IF MID$(A$,3,3)<>"CAT" THEN 1060 1100 a$=MID$(a$,3,4)+" "+MID$(a$,150 IF(LEFT$(a$,1)=".") OR(LEFT$(a$,1)="/") THEN p$=a$:GOTO 620 960 p$=p$+"/"+a$ 970 GOTO 620 980 REM Catalog 990 HOME 1000 OPEN#3,p$ 1010 ON EOF#3 GOTO 1140 1020 f=0 1030 OPEN#3 AS INPUT,p$ 1040 HOME 1050 PRINT"Catalog of ";t 870 PRINT CHR$(31);:INPUT"";a$ 880 a%=ASC(LEFT$(a$,1))-48 890 IF(a%>=0) AND(a%<=9) THEN RETURN 900 VPOS= VPOS-1 910 PRINT"What is the number you want? "; 920 GOTO 870 930 REM Change prefix 940 INPUT"What is the new prefix? ";a$ 9 PRINT"8) Print the menu screen" 810 PRINT"9) Quit" 820 PRINT:PRINT:PRINT"Which would you like? ";:GOSUB 860 830 IF(a%<1) OR(a%>9) THEN 620 840 ON ERR GOTO 1960 850 ON a% GOTO 1390,1940,930,980,1200,1340,1480,1480,1410 860 REM get a digid" 730 PRINT"2) Help" 740 PRINT"3) Change prefix" 750 PRINT"4) Catalog FOTO files" 760 PRINT"5) Load a picture" 770 PRINT"6) Save a picture" 780 IF ptr$="none" THEN PRINT"7)":PRINT"8)":GOTO 810 790 PRINT"7) Print current picture" 800 t bit 6 1840 REM do the print 1850 PERFORM grafixmode(%3,%p%) 1860 PERFORM grafixon 1870 PERFORM screen(%xs%,%ys%,%o%) 1880 TEXT:IF p%=2 THEN PERFORM grafixmode(%3,%1) 1890 GOTO 620 1900 REM Change driver name 1910 INPUT"What is the