LnSOS BOOT 1.1
SOS.KERNEL SOS KRNLI/O ERROR FILE 'SOS.KERNEL' NOT FOUND% INVALID KERNEL FILE: xةw,@ ȱlmi8# )! ) r
GRAFIXMO j \8 Ÿ/
+SCRIPTCOMPB
G ! +SCRIPTSIMPB
u
G ! ,SCRNPRNT.INV ' G ! F -READ.ME.FIRST d \3 R/ *MENU.MAKER
| R. %SEG.G v
\8 %SEG.T
I ! ܤ +ITALICCOMPB
U
G ! +ITALICTRIPB
b $ G ! ORG U* ! U* *ROMANCOMPB
6 G ! 8 *ROMANSIMPB
/ G ! 3 *ROMANTRIPB
B $ G ! CHARTMAKER3 u '
)BGRAF.INV ( G !L+ *CHARTMAKER % F G ! I +CONVERT.INV G ! DESCRIPTION G ! F DISKNAME.DAT =% ! =& )INOUT.INV ! >dLԡm#i 㰼m#i ЕOLԡȱfg hi
!dLԡ 憦
Ljm km l y`2 Lԡ8(Je稽)ʈ@L G A3/1.01/LIN
` } w q n k j b a _ \ [ Z Y X W V U R Q $ h h hhhh HH H )H H H` 2 0 + * ) H h h hhhh H H H H` & $ < 詏 )x ` a ^ ] N M J G F > = < 1 0 / . + * ) ) y x H H H JJiH 詏
鮀 h h h h H H` 4 2 0 . , * ) & # " ! R h h h h h h H H` D B @ > < : 9 8 3 . + ( ' & $ h J)` ` ! 0 n l j h f d c b Q N M L J F E D C B A < ; 6 h h h h h h H H` 4 2 0 . , * ) & # " ! R h h h h h h H H` D B @ > < : 9 8 3 . + ( ' & $ h h h - & # P ` " h h h h h h H H` 4 2 0 . , * ) & # " ! R h h h h h h B B H H` y y P ` G B H H` ) r ` @ A > ~ | z x v t s l g b W T S R P M E D = h h h h H H` 4 2 0 . - & # P h h h h H H` 4 2 0 . h H H` 4 2 0 . - & # P h h h h h h h h h h H H` D B @ > < : 8 6 4 2 1 . + * ) ' j h h h h h h h h X X L J F E > 9 8 7 4 1 0 / - ` + ( % " B h h h h
h
h h h h h h h h h H H` Z X V T R P N L J H F D B @ < ; 8 5 4 3 1 h h h ` O L I H E D C B ? < ; 8 5 4 1 . + * x ` " h h h h h h h h H H` X V T R P N .GRAFIX j j # \ \ JHFD=;9210-,+*)!
v Q )` ` . ` 5` =` C` E` `BGRAF (C) APPLE 1980j @@@@ @``` kL K``9 (89:9g:h:h L89:m m 95:6:6h g
g h h 99 O S L ` e e m`iɂ` 0` hIhJh\h] w h]h^ w \\
]] ]L ]L\A \A JHIH`i8\i]i\` \ ]`K`M %b&* L+ 16>:) kL h h hhhh H H H H` & $ < D ^Z Fp Hx ) ) y x H H H JJiH 詏
鮀 RETADDR I SOSDSTAT GSCB k SOSOPEN INITCHK READPARM 5 CREFNUM D WBUFADR ? BMOVCHK RBUFADR 7 WRITEPAR = SREFNUM F RREFNUM 6 WREFNUM > INITFLG K SOSCLOSE RETADDR %
!
INITCHK
ITCHK LINETO LINETO WBUFLEN
UFLEN SOSWRITE
SWRITE RWBUF
CALCABS x
q
ABS RETADDR CALCABS ABS RETADDR SOSDSTAT SDSTAT GSCB INITCHK ITCHK DOTREL DOTREL WBUFLEN UFLEN SOSWRITE SWRITE RWBUF SWRITE RWBUF RETADDR c _ < 8 INITCHK O ITCHK WBUFLEN Y UFLEN SOSWRITE \ SWRITE RWBUF T L H D @ DOTAT DOTAT RWBUF ZRNJF CALCABS B RETADDR SOSDSTAT SDSTAT GSCB MOVEREL MOVEREL INITCHK ITCHK WBUFLEN UFLEN SOSWRITE WBUFLEN !UFLEN SOSWRITE $SWRITE RWBUF BUF RETADDR ieB> INITCHK UITCHK MOVETO
MOVETO
WBUFLEN _UFLEN SOSWRITE bSWRITE RETADDR INITCHK ITCHK RANGECHK NGECHK WBUFLEN UFLEN SOSWRITE SWRITE RWBUF INITCHK ITCHK FILLPORT FILLPORT RETADDR tp INITCHK ITCHK PENCOLOR
PENCOLOR
RANGECHK NGECHK WBUFLEN UFLEN SOSWRITE SWRITE RWBUF |x FILLCOLO FILLCOLO T RETADDR SETCTAB SETCTAB INITCHK ITCHK RANGECHK HK WBUFLEN UFLEN SOSWRITE SWRITE RWBUF ' SOSWRITE SWRITE RWBUF RETADDR PL INITCHK sITCHK VIEWPORT VIEWPORT WBUFLEN }UFLEN SOSWRITE SWRITE RWBUF xplhd`\XUFLEN SOSWRITE SWRITE RWBUF ~zvr RETADDR $ INITCHK ITCHK XFROPTIO XFROPTIO RANGECHK NGECHK WBUFLEN UFLEN #ITCHK WBUFLEN DUFLEN SOSWRITE GSWRITE RWBUF ?:72-( SYSFONT SYSFONT RETADDR nj DRAWIMAG DRAWIMAG INITCHK ITCHK WBUFLEN RETADDR INITCHK ITCHK RANGECHK ECHK WBUFLEN UFLEN SOSWRITE SWRITE RWBUF
NEWFONT NEWFONT INITCHK =+ SOSWRITE @.! RWBUF 83& INITCHK uITCHK GRAFIXON GRAFIXON WBUFLEN UFLEN SOSWRITE SWRITE RWBUF zBUF GPGSREQD L GRAFIXMO GRAFIXMO RBUFLEN 9 RANGECHK w WBUFLEN A SOSWRITE RWBUF \ SOSREAD GBASADR T SOSSMARK $ INITCHK ITCHK INITGRAF INITGRAF WBUFLEN
T
P
SOSDSTAT j
SDSTAT GSCB LINEREL LINEREL INITCHK g
ITCHK WBUFLEN
UFLEN SOSWRITE
SWRITE RWBUF }
d
`
\
X
RELEASE RELEASE INITCHK
ITCHK BMOVCHK
OVCHK INITFLG
ITFLG RWBUF
F SOSDSTAT " SDSTAT GSCB % CB INITCHK
ITCHK CREFNUM EFNUM CONVERT CONVERT h hhhhhhhH H566
5 5ȑ5ɀ 8ȱɀ 8ȘJ L. ` n A3/1.1 v CONVERT YLOC SDSTAT GSCB INITCHK ITCHK XLOC XLOC RETADDR
SOSDSTAT
SDSTAT GSCB
INITCHK
ITCHK YLOC ASADR SOSSMARK SSMARK RETADDR z v INITCHK ITCHK XYCOLOR XYCOLOR RWBUF F SOSREAD SREAD RETADDR SOSDSTAT GPGSREQD GSREQD SOSCLOSE SCLOSE GRAFIXMO AFIXMO GLOAD GLOAD RBUFLEN N RWBUF
SOSREAD EAD GBASADR GBASADR ( ASADR SOSDSTAT ~ SDSTAT GSCB INITCHK { ITCHK CREFNUM EFNUM RBUFADR ADR SREFNUM EFNUM RREFNUM M WBUFADR ADR GSAVE GSAVE WREFNUM F
M GPGSREQD 5 GSREQD SOSCLOSE > SCLOSE WBUFLEN 8 LEN SOSWRITE ; SWRITE RWBUF C
F ~ INROUT2 &()*+,- G A3/1.0UT8u) PSCREEN INROUT2 INROUT2 zwvutsrqpomjihgebL(!
~|ytsrh[O1.,)'$
l v E zwvutsrqpomjihgebL(!
! WXX" L7 zL7 NL7` E .CONSOLE \ f r y E LL\LL L[L{LLLL sL7L Z쨭r͕L ΓL ͕ZL ͕𮍕L L ̕ΓΕL 숩 쭑{) |ɂ||h hhhhhhhhZhh_hhh^hH H >L7AOQWakt{ L7 L7566
5 66566
5 L Z.̕m^g PL7 VL7 `L7 jL7r
L "#$% A3/1.1 d hhhhHH$L $$!@ @$
` $L-F$ $ $P ,0 H,0Mj $ʱv*$PI $
$.01234 ! ! ! ! ! !! ! " !#
!6$ !% !F&" !' !(
! ! RomanSimp !
! ! ! ! ! ! ! ! ! !
! ! !
! ! ! ! ! ! ! ! ! ! ! ! ! ! PSCREEN PSCREEN PRINTERI PRINTERI $ $PI $0
$ ݤ,0L̼L$0
@E$PLͽLL&0M,0M 9 H p) &&& ),@$0`
,L>`$
,N , ,B ̟` l .PARALLEL `P @ ((((PPPP ,T ,$
1 ,4 ,8
1 ,6 ,$
,q ,L9` LY , ,G ,0 ,$* $3 ,8 ,4 ,L 7 ,6 ,8 ,L $J $DFͼ"ͼ$2 ,8 ,0 ,L 4 ,9 ,0 ,L 4 ,7 ,6 ,L Fͼ"ͼ$5 ,6 ,0 ,L 4 ,&(&*&(&*&,0I$PI
$0
ͽL,$0 @EpL,L{0L{L&
`)
m)8jjjj)e
jjjjjj) i'i'i'e e`f enA o fL> ȀD$0ʕv*$PI $0
$ ݤ,0L̼L$0
@E$PLͽLL&0M,0M 9 H p) &&& ),@$0
?@ ! ! ! ! ! ! ! !" !# 䀀
䀀 !T$) !w ! x !"" RomanComp !
" ! ! ! ! ! ! ! ! ! !
! ! !
! ! ! ! ! ! ! ! ! ! ! ! ! ! !$p 뀀 !$q 뀀 !r !$s !t !u
! v!w ! x !y !z !{ !| !} !~ ! !h
뀀
!i !j !k 뀀
!l !&m
!n
!$o !$p 뀀 !$q 뀀 !r !$s !t !u
! v!w ! x !f
!.g !h
뀀
!i !j !k 뀀
!l !&m
!n
!$o Y !Z 뀀 ![ !\ !] !^ !_ !` !$a !$b 뀀 ! c !$d 뀀 !$e ! P
뀀 !2Q !"R 뀀 !*S ! T 뀀 !U
! V 뀀!W 뀀뀀뀀! X 뀀 ! !.G !H 뀀 뀀 !I !J
!K 뀀 ! L 뀀 !M 뀀 뀀뀀 !N 뀀 뀀 !,O !< ! = !> !*? !@ !A 뀀뀀
!0B 뀀 !&C ! D 뀀 !E 뀀
!F 뀀
!06 ! 7 뀀 !<8 !09 !: ! ; !*
! +
!, !- ! . !/ !P0' !1
뀀 쀀 !w ! x !Z2, !^3. !4 퀀 뀀 !N5& !Xm+ !8n !Ho# !Hp# 뀀 뀀 !$i !2j !6k 뀀 뀀
!l 뀀 뀀 뀀
뀀 뀀 !>e !,f
!xg; !8h 뀀 뀀 뀀 뀀 !8c !Hd# 뀀 뀀 !*X
뀀
뀀 뀀 !(Y ! Z 뀀뀀 ![ !\ !] !^ !_ !` !Na&
!Bb ! T 뀀 뀀 !.U ! V 뀀뀀 !0W 뀀뀀뀀뀀 !*X
뀀
뀀 뀀 !Q?
!ZR, 뀀 뀀
!DS! !:P 뀀 뀀 !6H 뀀 뀀 뀀 뀀 !I 뀀 뀀 !(J
!6K 뀀 뀀
! L
뀀 뀀 !!@? !p@7
!~8> !`9/ !: ! ;
!`6/ !>7 !w ! x !Bq 뀀 뀀 !.r !@s
! t !8u ! v !0w !*x !,y ! z !P;' !< ! = !> !h?3 !@ !HA#
쀀
!@:
! !V7* !8N
!9D
!6D
! !3K
!84 뀀 !n56 !81 퀀 뀀
!|2=
! ! + !0, !- ! .
!/ !d01 !'
!6(
!6) !N*&
! !p$7
!% !&I ACDEFGHIJKLMNOPQRS ! ! ! ! ! !D!! !,"
!# !0~
! !#! RomanTrip !
# ! ! ! ! ! ! ! ! ! !
! ! !
! ! ! ! ! ! ! ! ! ! ! ! ! ! !P{' !| !P}' !0~
! 뀀
!BM 뀀 퀀 뀀
! !JC$
!|D= 뀀 퀀 뀀
!ER 뀀 퀀 뀀 !Pf' !gX !hd3 퀀 뀀 !Re( ![ !\ !] !^ !_ !` !la5
!^b. 쀀
!Dc! !`Y/ !RZ( 뀀
뀀
뀀 ![ !\ !] !^ !_ !` !DV! 뀀 쀀
!nW6 뀀 뀀 !lX5 뀀 뀀 뀀퀀 뀀 퀀 뀀 !ZU,
!RO 뀀 퀀 뀀
!XS+
!rT8
뀀 쀀 !lO5
!vP: 뀀 퀀 뀀
!QL
뀀뀀 뀀 퀀 뀀 !NN& 쀀 뀀 쀀 !KD 뀀 퀀 뀀
!hL3 뀀 퀀 뀀 !~M> 쀀!NI& 뀀 퀀 뀀 !ZJ, !xG;
!HP 뀀 퀀 뀀
뀀 퀀 뀀
!FE 뀀 퀀 뀀 !h@ 뀀 퀀 뀀
!Vi*
] !^ !_ !` !Rj( !zk< 뀀 퀀 뀀
!>l 뀀 퀀 뀀 !Z2, !^3. !4 퀀 뀀 !N5& !*
! +
!, !- ! . !/ !P0' !1
뀀 쀀 ] !^ !_ !` !@% 뀀 !b&0 ! ' !(( !() TVWXYZ[\]^_` ! ! ! ! ! ! ! !" !# 䀀
䀀 !T$) ] !^ !_ !` !""
ItalicComp !
" ! ! ! ! ! ! ! ! ! !
! ! !
! ! ! ! ! ! ! ! ! ! ! ! ! !!{ !| !} !~ !
!>v !Zw,
] !^ !_ !` !`x/
!Py' !Rz(
!>v !Zw,
] !^ !_ !` !Vr*
!Vs*
!,t !Vu* !nq6 쀀 뀀 ] !^ !_ !` !n@
!\o-
!xp; 뀀 퀀 뀀 !mb
] !^ !_ !`
!`6/ !>7 ] !^ !_ !` !~8> !`9/ !: ! ;
!Ju$
!4v !Rw( !Tx) !4r !8s !$t !Jn$ !@o !Tp) !Bq 뀀뀀 !Dk! 뀀뀀
!$l !hm3 !Vg* !>h 뀀뀀 !4i !@j
!4e !Ff"
!\ !] !^ !_ !` !Na&
!Hb# !2c
!Td) 퀀 뀀 !0W 뀀퀀 뀀
뀀퀀 뀀 !*X 뀀뀀뀀 !(Y
! Z 뀀뀀 ![ !\ !] !TR) 뀀뀀
!FS" ! T
뀀뀀 !2U ! V 뀀 !6P 뀀뀀 !zQ< !*J !6K 뀀뀀 ! L
뀀뀀 !!@? !p@7
!Ry( !>z
!P{' !| !P}' !0~
! ! = !> !v?: !@ !LA%
쀀
!BM 뀀뀀 !@: !L;% !< !% !8g !z9< !3? ! 4 뀀 !% !b50
!z6<
!N7& !3? ! 4 뀀 !% ! .
!/ !t09 !(1 뀀!h23 !N*&
! + !,, !- !% !&G !'
!@( !@) acdefghijklmnopqrs ! ! ! ! ! !D!!
!,"
!# !h$3
!% !$!
ItalicTrip !
$ ! ! ! ! ! ! ! ! ! !
! ! !
! ! ! ! ! ! ! ! ! ! ! ! ! ! !Ry( !>z
뀀
!RC( !% !~D> 뀀뀀뀀 !EO 뀀뀀뀀
!Zf, !rg8
!Rh( 뀀 뀀
!td9 !Be ![ !\ !] !^ !_ !` !% !da1
!hb3 !Dc! !fY2
!FZ" 뀀뀀뀀 ![ !\ !] !^ !_ !` !% !FV"
쀀
!rW8
!lX5 뀀뀀뀀퀀 뀀뀀 !`U/ !% !RM 뀀뀀뀀 !XS+
!lT5
뀀
!% !pO7 !xP; 뀀뀀뀀
!QM 퀀
뀀뀀뀀
!VN* 쀀뀀
!% !KG 뀀뀀뀀
!bL0 뀀뀀뀀 !MC 쀀 !NI& 뀀뀀뀀 !^J. !% !G@ !HP 뀀뀀뀀뀀뀀뀀 !FE 뀀뀀뀀
!%
!Fi"
!Zj,
![ !\ !] !^ !_ !` !% !bk0 뀀 뀀 !4l !zm<
!< ! = !> !*? !@ !(A !RB(
!0C !FD"
! !06 ! 7!뀀 !<8 ! !09 !: ! ; !)
% !*
! +
!,
!- ! .!/%!$0 ! !
1 ! 2 ! 3! !4
! !$5! tvwxyz{|} ! ! ! ! ! !!! ! "! !# %
!6$% !% !F&" !'! !(
% !% !!"
ScriptSimp !
!
! ! ! ! ! ! ! ! ! !
! ! !
! ! ! ! ! ! ! ! ! ! ! ! ! !
!by0
![ !\ !] !^ !_ !` !% !Nz&
!{ !| !} !~ !
!`w/
!fx2
!by0
![ !\ !] !^ !_ !` !% !Tu)
!:v
!`w/
!fx2
!^s.
!.t
![ !\ !] !^ !_ !` !% !pA !rq8뀀뀀 뀀 !P
!@Q
!LR%
!:L !ZM, !@N !n&6 ! '!!((% !() % !*
!
! +
!, !RW(
!hX3 !TY)
!NU& !HV# !R@
!HS# !LT%
!VQ*
!bM0! !LN% ! !DO! ! !jP4
!PL' !nH6 !BI
!DJ!! !vK: !\F-
!jG4 !RC( !VD*
!bE0 뀀 !BE
!\9- !:
! ;
!< ! = !> !D?! !@ !LA%! !<7 ! !~8> ! !d31
!4 쀀뀀 !N5& !
!\6- !- ! .!/%!T0) ! ! 1 뀀!T2)
!XZ+
![ !\ !] !^ !_ !` !Ba
!.b !,c !Bd
!.e !6f
!Lg%
::"Apple Business BASIC -- Type 'RUN CHARTMAKER' to Restart":"or, 'GOTO 320' to Restart with Last Chart.": =PV:=PH: Character input routine b$="" phh=ph:i=1:a$="":630 *=phh+i-1:5);:a$:6);:chra=a$) chra=8i>CA=UCA+32:APPLE$=127) T1130 ^ /h various subroutines to do window clearing r |2,279,13:430: 2,1579,15:430:pv=15: *2,1779,23:430:M$=BOT$:pv=23:860: 2,1779,23:430: 2,PV79,PV:430: :1,180,24: ster$(10),dent(10),size(10),FONTNAME$(10),color(10),slant$(10),bold$(10) $"FONTS$(6,127),dx%(255),dy%(255) ,FONTINFO$(6):FONTSTUFF$(6) E62760:4490:"BGRAF.INV","INOUT.INV","CONVERT.INV","SCRNPRNT.INV" #@plr$=".plotter":ptr$=".printer" $JUCA=128:L":bold$="Y" ) labelsz=(length*scalex*.66667)/ms$) $ (numb>2)#1;"SL20":#1;"SL0" 9 #1;"LS";savescalex;",";labelsz:#1;"MA";xp;",";yp+20 #1;"PL";ms$+3) 9 bold$="Y"#1;"MA";xp+4;",";yp+24:#1;"PL";ms$+3)
440 Xtxt$(10),cen="N"#1;"MA";xp;",";yp:move=0:130:ۻmove=0screen$="N"#1;"DA";xp;",";yp J dl=FONTS$(numb,0),char,1))*scalex:xp=startx+dl:startx=xp:yp=starty ( Subroutine to do the QUICKPLOTTING 3 (numb=0numb=3numb=5)bold$="N ve=1 $Z convert(@info$,@dx%(0),@dy%(0)) ad q=1count:(dx%(q)=-128dy%(q)=-128)move=1:130:xp=xp+dx%(q)*scalex:yp=yp+dy%(q)*scaley cn move=1screen$="Y"moveto(%xp,%yp):move=0:130:ۻmove=0screen$="Y"lineto(%xp,%yp):130 bx move=1screen$F
270 I Subroutine to pull and plot the various dx/dy components of letters ( 2 quick$="Y"dum=0:dum=numb < j=1ms$) nF char=ms$,j,1)):startx=xp:starty=yp:info$=FONTS$(dum,char):count=info$,2,1)):count=0char=32:140
P mo !@y !Lz% !{ !| !} !~ ! !(t
!6u !.v !Hw# !Tx) p 倀
倀 !Fq"
!0r !,s !"l !Zm, !@n !:o !< !k 뀀뀀 1i=i-1:520 " chra=21i<=b$)i=i+1:520 T&chra=127chra=136chra=92i>1b$=b$,1,i-2)+b$,i):630:i=i-1:520:ۺ520 J0(chra=201chra=233)b$)<=slb$=b$,1,i-1)+" "+b$,i):630:520 :chra=13 Dchra=27 #Nchra<32chra>1277);:520 ,Xb$=b$,1,i-1)+a$+b$,i+1):i47cmd<58x9=2:x8=cmd)):cmd=69:1880:1190 Z7);:1230 d n Save a file routine x -390:m$="Savx9=0:x8=0:1880:1190: Enter a Line 5 CMD=68screen$="N":3070:1190: Draw the Chart '
cmd=672890:1190: Clear Line *cmd=853730:1190: Utility routine ' cmd=723630:1190: Help display &(cmd=773960:1190: Move a line 622480 Z=0:Z$="":390:a= pv=24:ph=70:: `M$="COMMANDS: New Enter Move Clear Utility Save Load Draw Preview Help "+apple$+"-Quit":890
440 1020 OA%=1CMD=16440 OA%=11370 +CMD=782820:1190: Start New Chart 3CMD=691020 `cmd>48cmd<58 j::: t380:390:400 4~:M$="Chart Maker /// - Version 2.0":pv=1:860: B:M$="Press ESCAPE to 'Back Out' of Any Function":pv=14:860: Q:m$="Public Domain Software - Courtesy of Apple Computer, Inc.":pv=24:860: Main command input routine OA%=0:CMD=0 a$:cmd=a$) "CMD>96CMD<123CMD=CMD-32: CMD>64CMD<91 $CMD=27 .CMD=32 8cmd=13 Bcmd>47cmd<58 6LCMD=(81+UCA)CMD=(81+LCA)OA%=1:CMD=16:: Quit V7);:LD: PH=HOLD:PV=16:460:"?";: @PV=15:PH=40-(M$)/2)):460:M$;::: print centered line PV=15:PH=2:460:" ";: PV=15:PH=3:850: 7);: 67);:Z1$)<>0Z$<>""Z$="":SL=SL+1:PHH=PHH-1 #PH=PHH:460:i%=1sl+1:" ";: LX9=1: >X8";: 8\PH=40-(M$)/2)):460:M$;:: print centered line f460:M$;: >pPH=40-(M$)/2)):460:M$;:: print centered line high +zPV=15:PH=3:850:PH=5:460:M$;:: cmd HOLD=PH:PH=2:850:PH=HO""df>=lldf<=ulB$=df):B$; N$=Z$+B$:H=1N$) N$)=0X9=1: "N$,H,1))=46H9=H9+1:800 N$,H,1))=45H8=H:780 N$,H,1))<48X9=1: N$,H,1))>57X9=1: 800 H8=1800
X9=1: *X8=N$) 4X8>Unt Spaces :":pv=20:ph=5:870 vm$="Text : ":pv=22:ph=5:870 pv=18:ph=18:sl=2:ll=1:ul=10 x8=0x9=2x8=10 x8<>0460:x8;:1980 700:a$=27)2450 x91970,1980 950:x8=0:1920 n=x8 ?pv=18:ph=39:sl=1:ll=1:ul=4:df=size(n):700:a$=27)2450 x92010,2020 950:1990 size=x8 :ph=58:sl=1:ll=1:ul=4:df=color(n):700:a$=27)2450 x92050,2060 950:2030 color=x8 *pv=20:ph=18:sl=1:500:a$=27)2450 H a$=13)b$)=0center$(n)=""center$="N":m$=cD b$="N"b$="n"border$="N":3160 N 3120 BX 400:pv=20:m$="Do you wish to QUICKPLOT the chart? (Y/N)":880 +b pv=20:ph=61:sl=1:500:a$=27)400: %l b$="y"b$="Y"quick$="Y":3210 %v b$="n"b$="N"quick$="N":3210 3170 400 4120:"'":pv=15:390:880: ` pv=19:m$="Name of Chart":880:pv=21:m$="Do You Want a Border on the Chart ? (Y or N) :":880 + pv=19:ph=50:sl=8:500:a$=27)400:
& chart$=b$ +0 pv=21:ph=64:sl=1:500:a$=27)400: &: b$="Y"b$="y"border$="Y":3160 &=783020 7);:2960 K txt$(i)="":center$(i)="":dent(i)=0:size(i)=0:FONTNAME$(i)="":color(i)=0 5,i+379,i+3:430:2500
400:
400: " Subroutine to draw the chart 3080:3090 D m$="Draw The Chart on Device Named '"+plr$+ne":920 0T m$="Line to Clear (1-10) : ":pv=18:ph=5:880 5^ pv=18:ph=50:sl=2:ll=1:ul=10:700:a$=27)3020 h x92930,2940 r 950:2910 | i=x8 : pv=23:420:m$="Are You Sure, (Y or N)":pv=20:ph=5:880 1020:cmd=273020 cmd=893000 cmdhart
@ 390:M$="Clear out the 'Old Chart' and Start a New One":920 : pv=23:420:m$="Are You Sure, (Y or N)":pv=20:ph=5:880 1020:cmd=273030 " cmd=892760:2480:3030 , cmd=783030 6 7);:2840
@ 400: #J 390:M$="Clear Out A Li="Color":870
ph=58:m$="Center":870
ph=70:m$="Indent":870
ph=47:m$="Size":870
ph=65:m$="Font":870
i=110 K
txt$(i)="":center$(i)="":dent(i)=0:size(i)=0:fontname$(i)="":color(i)=0
:
+
Subroutine to clear out current ch=54:870
m$=center$(i):ph=60:2630 ((
dent(i)>0m$=dent(i)):ph=72:870 2
m$=FONTNAME$(i):ph=66:870 <
F
m$="Y"m$="*":870 P
Z
pv=2:ph=3:m$="Line":870 d
n
Initialization routine x
$
ph=20:M$="Text to be Drawn":870
ph=52:m$
PV=I+3 PH=3:460:I; @ PH=9:m$="..................................":870:M$=TXT$(I) $ center$(i)="Y"ph=27-(m$)/2) dent(i)>0ph=ph+dent(i) 870 (
size(i)>0m$=size(i)):ph=49:870
txt$(i)="" *
color(i)>0m$=color(i)):p=b$ B txt$(n)=txt$ L color(n)=color V size(n)=size ` dent(n)=dent j center$(n)=center$ t FONTNAME$(n)=FONTNAME$ ~ 5,N+379,N+3:430
i=n:2500 7 This line intentionally left for subroutine calls 400 380:2650 i=110:2500::ex=80:scaley=90:SL=26:2330 . SIZE=3scalex=100:scaley=150:SL=21:2330 . SIZE=4scalex=120:scaley=180:SL=17:2330 SL=SL-DENT Y$ t$=27):pv=21:ph=11:b$=txt$(n):inrout2(%ph,%pv,%sl,@b$,@t$,%back%):back%=272450 . b$)>slb$=b$,sl) 8 txt$"b$="Sc"b$="sC"b$="SC"FONTNAME$="SC":2240 2130 center$="Y"dent=0:2290 @pv=20:ph=77:sl=2:ll=0:ul=15:df=dent(n):700:a$=27)2450 x92270,2280 950:2240 dent=x8 ,SIZE=1scalex=60:scaley=90:SL=34:2330 ,SIZE=2scal0 =b$="rt"b$="Rt"b$="rT"b$="RT"FONTNAME$="RT":2240 =b$="ic"b$="Ic"b$="iC"b$="IC"FONTNAME$="IC":2240 =b$="it"b$="It"b$="iT"b$="IT"FONTNAME$="IT":2240 =b$="ss"b$="Ss"b$="sS"b$="SS"FONTNAME$="SS":2240 =b$="sc$(n)=""FONTNAME$="RS":m$=FONTNAME$:870:2240 Xfa$=13)b$)=0FONTNAME$(n)<>""FONTNAME$=FONTNAME$(n):m$=FONTNAME$:870:2240 =pb$="rs"b$="Rs"b$="rS"b$="RS"FONTNAME$="RS":2240 =zb$="rc"b$="Rc"b$="rC"b$="RC"FONTNAME$="RC":224enter$:870:2130 P*a$=13)b$)=0center$(n)<>""center$=center$(n):m$=center$:870:2130 &4b$="Y"b$="y"center$="Y":2130 &>b$="N"b$="n"center$="N":2130 H2070 *Rpv=20:ph=56:sl=2:500:a$=27)2450 O\a$=13)b$)=0FONTNAMEcmd=27400: 3520 6 pv=20:m$="Press ESCAPE to Terminate Plotting":880 S border$="Y"xp=0:yp=0:4380:yp=1759:4390:xp=2394:4390:yp=0:4390:xp=0:4390 i=110 txt$(i))=03410 ) size(i)=1scalex=60:scaley=90:3320 * size(i)=2scalex=80:scaley=120:3320 + size(i)=3scalex=100:scaley=150:3320 % size(i)=4scalex=120:scaley=180 pn=color(i):4370
savescalex=scalex
4660
4610 O
scalex=scalex/(width$,32,1))):scaley=scaley/(fontinfo$(numb),4,1))) >*
center$(m$="If you have configured a device driver for the Plotter, specify":pv=20:870 Xm$="its Device Name with the 'C' option when you select the Draw command":pv=21:870 -m$="to use it as the Plotter.":pv=22:870 /m$="(Press Any Key to Continue)":pv=23:4370 &|410:pv=20:m$="Plotting":860:400
450
ٜ,: 7);:410:390 Hm$="Chart Maker tried to Open '"+plr$+"' as the Plotter.":pv=17:860 ]m$="That Device IS NOT configured into SOS.DRIVER on the 'Boot' Diskette":pv=19:ph=5:870 S' on Keyboard When Ready to Start Plotting":860 [@pv=21:m$="(Press ESCAPE to Not Plot, or 'C' to Change Plotter Driver Device Name)":860 J1020:cmd=27400: Tcmd=674420:4120 ^a$<>13)4170 h4260 )r#1,plr$:hpgl$="SP0":4350:PN=1:i+3:430:2500: Mtxt$(i)="":center$(i)="":dent(i)=0:size(i)=0:FONTNAME$(i)="":color(i)=0:
7); 1"PV=17:PH=2:460:M$="Prepare the Plotter":860 H,m$="(Insert Paper, turn it on, and press 'LOCAL' button)":pv=18:860 P6PV=19:460:M$="Press 'RETURN50 950:4020 n3=x8 .n2=n34090: Exit if lines are the same Txt$(n3)=Txt$(n2):center$(n3)=center$(n2):dent(n3)=dent(n2):size(n3)=size(n2):FONTNAME$(n3)=FONTNAME$(n2):color(n3)=color(n2):i=n3:4100 i=n2:4110:4100
400: 5,i+379,outine n x390:m$="Move a Line":920 ?pv=20:ph=5:m$="Move from line # : Move to line :":880 .ph=39:sl=2:ll=1:ul=10:700:a$=27)4090 x94000,4010 950:3980 n2=x8 .ph=59:sl=2:ll=1:ul=10:700:a$=27)4090 x94040,40slant$(i)="N"bold$(i)="N"FONTNAME$(i)="RS" ( 22490:400: S<400:pv=20:m$="An error occurred while loading/converting chart "+oldname$:880 0Fpv=22:m$="Press any key to continue...":880 !P1020:400:2760:2490:400: Z d Move line r:#3;color(i):#3;slant$(i) i=110 &txt$(i)=""FONTNAME$(i)="":3880 9 slant$(i)="Y"bold$(i)="Y"FONTNAME$(i)="IT":3880 9
slant$(i)="Y"bold$(i)="N"FONTNAME$(i)="IC":3880 9slant$(i)="N"bold$(i)="Y"FONTNAME$(i)="RC":3880 3 ":880 [b$="":t$=27):pv=19:ph=29:sl=38:inrout2(%ph,%pv,%sl,@b$,@t$,@back%):back%=27400: oldname$=b$ 3900 #3,oldname$ i=110 ^#3;txt$(i):#3;center$(i):#3;dent(i):#3;size(i):#3;bold$(i)ity - Convert Chartmaker file "+apple$+"-Q - Open-Apple-Q quits ":880 4jpv=23:m$="Press any key to continue":880:7); t1020 ~400 E390:m$="Utility to convert/load old style chartmaker files":920 Ppv=20:m$="Name of Old Chart : $="Enter - Enter/Edit a line of text Save - Save a chart ":880 SLpv=19:m$="Move - Move line to another line Load - Load a chart ":880 SVpv=20:m$="Clear - Clear a text line Help - Display this list ":880 \`pv=21:m$="Util
3520
3580 C
:::::::::::::::::::::::::::::::
exit=1 3420 Help routine $ .390:m$="Help":920 S8pv=17:m$="New - Clears the current display Draw/Preview - Plots chart":880 SBpv=18:m0:xp=2050:yp=10:4380:ms$=chart$:4400 p
si=30:4410 "z
hpgl$="CH;RS":4350:pn=1:4370
:400
exit=1exit=0:1190
:
Subroutine to determine indent for non-centered line +
spaces=width$,32,1))*scalex*dent(i)
=273560 i)<>"Y"xp=100:yp=1659-(i*155.9):yp=yp+si1:3390 L4
center$(i)="Y"xp=1197-(length/2)*scalex:yp=1659-(i*155.9):4380:3400 >
3490:xp=xp+spaces:4380 &H
ms$=txt$(i):quick$="N"50:۾200 R
\
pn=1:4370 Tf
chart$)>0si=40:4410:HPGL$="SL0":435860 a$ 400:4120 #1;HPGL$+3): #1;HPGL$: ,HPGL$="PS"+PN)+";":4360:: Get pen 2 HPGL$="MA"+XP)+","+YP):4360:: Move X-Y 3&HPGL$="DA"+XP)+","+YP):4360:: draw to xy 0HPGL$="PL"+MS$:4350: :HPGL$="LS"+SI):4350: 4Dpv=23:ph=20:m$="Enter New 'Device Name' : ":870 %Nph=46:sl=15:500:a$=27)4480 Xb$)=07);:4430 bb$,1)<>"."b$="."+b$ lplr$=b$ v3080
410: Initialize the fontnames FONTSTUFF$(0)="ROMANSIMPB" FONTSTUFF$(1)="RO;"Saving Done...ESC for Menu, ";apple$;"/P to Print, ";apple$;"/S to Save"; 6 v@::410:pv=20:m$="An error has occurred in saving the 'FOTO' file":880:pv=22:m$="Press RETURN to continue":880 Ja$:410 T5440 ^5410 410 w' Program)"; ;pv=19:ph=15:460:"Enter Name to Save Previewed Chart"; sl=20:ph=50:pv=19:500:400 a$=27)5410 b$)=05410 $b$,1)="."b$=b$+".pic":5390 b$=b$+".pic"
grafixon
gsave.b$
"grafixon b,moveto(%85,%8):#4 "; -:390:m$="Save a 'FOTO' File":pv=15:880 5440 410 Tpv=21:ph=12:460:"(File to be Saved as a 'FOTO' File with a Suffix of '.PIC')"; Bpv=22:ph=25:460:"(May Be Used With a 'Slide Sho;">";:#9: Zpscreen(%type):#9,ptr$ dk4%=1ln%:#9: n#9;27);pitch$;:#9 dxmoveto(%85,%8):#4;"Printing Done...ESC for Menu, ";apple$;"/P to Print, ";apple$;"/S to Save"; ( OA/S or OA/s to save graph picture Rmoveto(%85,%8):#4;" igh res screen on OA/P (large) or OA/p (small) R2moveto(%85,%8):#4;" "; "<a$)=240type=147:type=187 F#9,ptr$ \Pln%=8:pitch$=78):tab$="("+"015.":#9;27);pitch$;:#9;27);tab$;:#9;27)t, ";apple$;"/S to Save";7); a$ 0a$)=(83+UCA)a$)=(83+LCA)5260:5060 &a$)=208a$)=2405160:5060 #a$)<>277);:5060:ۺ5130 =275130
5150 :::::::::::: #4::1190 ?( Print the h180.15-(i*17):moveto(%xp,%yp):5020 '3490:xp=xp+spaces:moveto(%xp,%yp) ms$=txt$(i):50 Rmoveto(%85,%8):#4;" "; imoveto(%85,%8):#4;"Plotting Done...ESC for Menu, ";apple$;"/P to Princaley*150:4970 3`size(i)=4scalex=scalex*120:scaley=scaley*180 j4660:4610 Otscalex=scalex/(width$,32,1))):scaley=scaley/(fontinfo$(numb),4,1))) /~center$(i)<>"Y"xp=20:yp=181-(i*17):5010 Ucenter$(i)="Y"xp=280-(length/2)*scalex:yp= ESCAPE to return to Main menu"; $i=110 #.scalex=559/2394:scaley=191/1759 8txt$(i))=05030 7Bsize(i)=1scalex=scalex*60:scaley=scaley*90:4970 8Lsize(i)=2scalex=scalex*80:scaley=scaley*120:4970 9Vsize(i)=3scalex=scalex*100:scaley=s$="N":4840 4800 400 5100 #4,".grafix" Hgrafixmode(%2,%1):fillcolor(%0):fillport:pencolor(%15):grafixon Vmoveto(%0,%0):lineto(%0,%191):lineto(%559,%191):lineto(%559,%0):lineto(%0,%0) Jmoveto(%120,%8):#4;"Plotting...PressSubroutine to Preview a chart on the screen $390:m$="Preview the chart":920 B400:pv=20:m$="Do you wish to QUICKPLOT the chart? (Y/N)":880 +pv=20:ph=61:sl=1:500:a$=27)400: %b$="y"b$="Y"quick$="Y":4840 %b$="n"b$="N"quickONTNAME$(i)="RS"numb=0:4740 $HFONTNAME$(i)="RC"numb=1:4740 $RFONTNAME$(i)="RT"numb=2:4740 $\FONTNAME$(i)="IC"numb=3:4740 $fFONTNAME$(i)="IT"numb=4:4740 $pFONTNAME$(i)="SS"numb=5:4740 zFONTNAME$(i)="SC"numb=6 1 Subroutine to determine actual length of string J length=0:width$=FONTS$(numb,0):w=1txt$(i)):char=txt$(i),w,1)) #width$,char,1))=0char=63 % length=length+width$,char,1)) *: .4 Set up the correct font for the plotting $>FMANCOMPB" FONTSTUFF$(2)="ROMANTRIPB" FONTSTUFF$(3)="ITALICCOMPB" FONTSTUFF$(4)="ITALICTRIPB" FONTSTUFF$(5)="SCRIPTSIMPB" FONTSTUFF$(6)="SCRIPTCOMPB" i=06 F#1,FONTSTUFF$(i):#1;FONTINFO$(i):j=0127:#1;FONTS$(i,j)::#1 5 Chart Maker ///
Y
0
4
RT
2
for the
Y
0
2
RC
1
Apple Color Plotter
Y
0
3
IT
3
0
0
0
Features:
N
0
3
RC
4
4 Letter Sizes/4 Colors
N
3
2
RC
2
7 Proportional Fonts
N
3
2
RC
2
Screen Preview
N
3
2
RC
2
Up to 10 Text Lines
N
3
2
RC
2
Quick/Full Plotting
N
3
2 VOLUME NAME (/DISKNAME) OR DEVICE NAME (.Dx)" P 12);::"80C";a$;: Z b$="CHANGING DISKS" $d =23:=0::"80C";b$;::12) .n =12:=20:"MAKE A NEW MENU FOR DISK: ";N$ x N$)<2110 =N$
:210 I=1L (A$(I),A$))200 B$ 0
WAP /// SIG MENU.MAKER PROGRAM (v. 6.2) =".D1" 210: Coldstart ( 320: Warmstart &* X=11000: TEXT SLOW-DOWN LOOP , X . 1 CHANGE DISK SUBROUTINE 2 3 202:2200 < RF a$=" YOU MAY SELECT YOUR DISK BY reen Preview
Up to 10 Text Lines
Quick/Full Plotting
SIDE ONE: Boot
SIDE TWO: Program
l Plotting
SIDE ONE: Boot
SIDE TWO: Program
hem as you would any other graphics file. Press Open
Apple and "?" for help on the various commands: there is no actual
manual. This program is excellent for larger "plotted" fonts.
Features:
4 Letter Sizes/4 Colors
7 Proportional Fonts
Sc e Apple Color Plotter to make graphs with
the Apple ///. Since most of us don't have plotters, you may wonder
at its usefullness. But Wait! You can save the "Charts" you make,
and then with Draw On, Graphics Manager or Sketchpad load
and print t
WAP /// SIG PD LIBRARY
PDS NAME: Chartmaker ///
DISK ID#: 3GRX 11
BOOTABLE? Bootable
Chartmaker /// is a PD program from Apple Computer. It was
designed to allow users of th CHARTMAKER ///
E PI PD DISK
APG DOCUMENTATION
Y
0
2
SS
1
N
0
1
RS
1
Vince Waller (Docmtn Supv)
Y
0
2
IT
1
0
0
0
Donna Padilla Bob Meyers Rod Simin
N
0
1
RS
1
Printer Prod
N
1
1
RS
1
N
0
1
RS
1
0
0
0
0
0
0
0
0
0
RC
2
(J)=A$(I),1,31) ! J/2<>J/2)=4:=+1:ۙ=44 B$(J);:J=J+1 I: 1,180,22: 2,280,21: 2,2380,23: 8 A$(1000),B$(1000),C%(511),C$(20),name$(20):=10:=0 UCA=128:LCA=UCA+32 CT=1 5 IF PREFIX$= PREFIX$+MID$(B$(I), 1
MENU.MAKER GRAPHICS MODULE (COLOR SUPPORT) SEG=0"MENU.MAKER" 2 ".D1/BGRAF.INV",".D1/SCR.PRT.INV":INITGRAFIX #5,".GRAFIX" # CC=0 ( D$=B$(I),16,B) 2 name$=34)+D$+34) < C=1:N=0:Z=0:BD=0 F 200 P INVERSE THE GRAPHIC Z C>1l; G$:::320 H: Error Routine
202: U=11:"79C";"BAD PATH ERROR (NO DISK IN DISK DRIVE OR DESIRED FILE NOT FOUND.)" X=11000:X :::210 Z a$="{,|,~,}; selects; back 1 leve 1600
&:WW=1: 0 :SEG=1 ;".D1/SEG.F" SEG=1 ".D1/SEG.G" diskname$= 380 2 CATCH PASCAL TEXT FILES 202 : F*=08:"78C";"SORRY BUT MENU.MAKER CAN'T READ PASCAL TEXT FILES." 04=10:"7M$="NOVEMBER":1750 M$="DECEMBER":1750 826);"-";M$;" ";Ѡ,2));", ";"19";Р,2);" "; /П,2))=>13П,2))-12;џ,6);:1780 $П,2))=0"12";џ,6);:ٟ; $П,2))=>12" PM-":" AM-" 1830 WW=1530
=26:=21 1660,1670,1680,1690,1700,1710,1720,1730,1740 ^M$="JANUARY":1750 hM$="FEBRUARY":1750 rM$="MARCH":1750 |M$="APRIL":1750 M$="MAY":1750 M$="JUNE":1750 M$="JULY":1750 M$="AUGUST":1750 M$="SEPTEMBER":1750 M$="OCTOBER":1750 T 0")2070 H540 R \A$="RUNNING "+B$(I),16,B) f"79C";A$;:=0 pB$(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 2120 B=B$(I),16)," ")-1 B$(I),"BASIC 0")850 B$(I),"TEXT 0")890 B$(I),"CAT 0")1140 *B$(I),"FONT 0")1850 4B$(I),"FOTO 0")1930 >B$(I),"PASTXB$(I); v:520: 500 THPOS=4:I/2=I/2)I=I-1 I=IBOTM THPOS=44:I/2<>I/2)I=I+1 I2=-1:I=I-2: IBOTM<3 0THPOS=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/HELLO N=THPOS:B$(I); XA<8A>11540 bA-7640,660,690,720 l:=THPOS:ٺ1600 =Q:WW=0 A=: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":150 A$="TEXT 0":150 A$="CAT 0":150 A$="FONT 0":150 A$="FOTO 0":150 A$(L),"BLOCKS")510 *=27:=19:"FREE MEMORY AVAILABLE: "; =7:=20:"80C";A$(L); $:=5:THPOS=4:I=1:IBOTM=J-1:620 Q=:=26:=21:sic; +Q Quits." r12);::"80C";a$;: +w#9,"DISKNAME.DAT":#9;DISKNAME$:#9 |d$=DISKNAME$ $=23:=0::"80C";d$;::12) 201 M=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$ #1300 I=0 "I=I+1:#1;A$(I):290 ,#1 6L=I-1 @j=1:same=0 J:SEG=0 T2030 ^CT<1CT=1 cCT>13000 Zha$="{,|,~,}; selects; to new disk; 0160 d =10:=40:""
n GLOAD.D$ x XFROPTION(%6) MOVETO(%1,%190):#5D$ 8 MOVETO(%1,%180):#5"ANY KEY QUITS TO GRAPHICS MENU"
FILLPORT
GRAFIXON C=C+1 B$
::: =0:=0::"79C";D$;: / =23:=0::"79C";"M
MENU.MAKER TEXT MODULE SEG=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::"M$="04"M$="Yellow" M$="05"M$="Orange" M$="06"M$="Green" ) MENU.MAKER GRAPHICS MODULE (v 6.0) =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" MOVETO(%0,%0):LINETO(%0,%191):LINETO(%559,%191):LINETO(%559,%0):LINETO(%0,%0):BD=0 !N=1MOVETO(%1,%190):#5;D$
GRAFIXON PSCREEN(%CNDS) X=12000:X
N$="0" 800 #8;12):#8 :CC=CC+1:40 XFROPTION(%6)
FILLPORT Green) " YN$ ZN$>"6"600 [900 ]=16:=70:M$" " gN$="0"620 i800:#8 lX=1600:
vGLOAD.D$ Z=1720 bBD=1600 0B$="N"B$="n"=14:=44:"NO ":600 :B$)=27"MENU.MAKER",220 MX=16:"Color? (0=Black;1=Red;2=Blue;3=Violet;4=Yellow;5=Orange;6=.MAKER",220 2=14:"Add a border? ('Y', 'N', or 'ESCAPE')" B$ &B$="Y"B$="y"=14:=44:"YES ":BD=1:B$="y"=12:=44:"YES ":N=1:530 {B$="N"B$="n"=12:=44:"NO ":N=0:530 B$)=27"MENUB$="y"=10:=44:"YES ":CNDS=CNDS+57:480 bB$="N"B$="n"=10:=44:"NO ":CNDS=CNDS+17:480 5=12:"Include the name? ('Y', 'N', or 'ESCAPE')" B$ |B$="Y""CENTERED ":430 B$)=27"MENU.MAKER",220 5=10:"Rotate picture? ('Y', 'N', or 'ESCAPE')" B$ B$)=27"MENU.MAKER,220" bB$="Y"B$ ԐB$="L"B$="l"CNDS=128:=8:=60:"LEFT ":430 B$="C"B$="c"CNDS=0:=8:=60:":80 "A$="2"330 ,A$="3"Z=1:330 /6A$="4"::RELEASE:".D1/MENU.MAKER",220 @270 J ^=0:=0::"79C";D$;: *h=23:=0::"79C";"PRINT GRAPHICS":
r200 E|=8:"Picture at left margin or centered? ('C','L', or 'Escape')" ENU.MAKER GRAPHICS": 1 =8:=20:"PRESS '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 79C";"PRESS ANY KEY TO HALT LISTING"::202 1020 #2,B$(I),16,B) #242:::1160 Z=1 #2;A$:"78A";A$ Z=Z+1:Z>1842:::Z=1 980 *:=23:=0::"79C";"CONTINUE...?": 1C$:C$<>"Y"C$<>"y"C$<>"N"C$<>"n"10
$)036=BEJQX]`ejorw
"'.147:=@CWZadkn (` K O } #9<CHKjoz $*-DINS^bkmoqy !$'*-036<?FKUn|stqs[ L,j ,X Ll )`Z 5L,l Lp,V P V e LE,W W V f LEZ Z Lpn l,Y 0g,d P\ ,] 0X] e LE\ p q n p
a Lm
b Lm c Z ) ` ) `x,X 0R p) a$,1)="/"5060:s=s-1 5030 =a$ 240 MENU.MAKER 6.2 * Thanks to C.M.Davidson for his help! EAD PASCAL TEXT FILES." 04=10:"78C";"ANY KEY RETURNS TO THE MENU." !>G$:::".D1/MENU.MAKER",320 R",220 (204::"79A";""; 2D=1:F=1
<#4;a$ FD=D+1
P#5;a$ ZD=60#5;12) dD=60D=1 nF=F+1::d$;::Y=1100:Y x1340 2 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.MAKE30 C$="N"C$="n"1160 ;:=23:=0::"79C";"PRESS ANY KEY TO HALT LISTING": $1020 .202 8::Z=1 B : :=23:=0::"79C";"WOULD YOU LIKE A PRINTED COPY?": 1C$:C$<>"Y"C$<>"y"C$<>"N"C$<>"n"1170 *C$="N"C$="n"