@L|}6CD l0C)HCC WhL/h `CmCDiD`  R@P1  Y0@R !L` D  C D     )16CS S)  C)D1 p p 0 C9DI pCDL~CiCDiD`0^3E: ~0 0 2 0`` ӭJ 2 92Please remove the cartridge 92and re-boot the disk.M}Lw0`8|0` 2 92The current value of MEMLO which is J300 J300 92$XXXX, is too high for the }Draper 92Pascal Supervisor to be loaded. The J3_1`1| J3a1b1 92maximum value for MEMLO is $YYYY. 92The m}ost common cause of this problem 92is from DOS allocating too many 92buffers. Consult your DOS manual for 92in}formation on lowering the number 92of buffers. 92Press .L62UThN2hO2N2O2M2H` BHIDEh V }LE2O2HN2H`` B V` x2`BD0EJK VV 92}`wLI3 2 92D R A P E R 92P A S C A L } 922 . 1 92from  92Draper Software  92Copyright 1989  92By Norm Draper x2`H) V3hJJJJ 0:i` }0|ALC D1:INIT.PCDK:S: }j% AɛL`LL`pHmIm "; }+;ȑL0 p@ B L9BݝDAEJK L90L]LW ; <** Insert A t= < }diskette **** Press any key when ready **** or press ESC to exit ** ; 8LL!  U> t=p@ B L9TT [9 ;Ŭ ŭLS! < ś <<}>Repeat,<>Menu,<>Exit ;/ 8 8l  >L)! 6"L)!, W9 L,д W9 L2}ȥȥȥȌi iū Ū -"L6 `Ŭ ŭ A#B#hH `>D#E#h)p H `>G#H#h 0}@ `>J#K#8Hȱ `>9#:#h `>;#<#ȱ `>R#S#ȱ `>P#Q#ȱ `>X#Y#ȱ `>Z#[# L a9ƮƮL 殥L#Ʈ, $ȹ $HH`L=6$^${$$$$H%_%{%%%%%%%%%% &#&F&l& N:ȱ}iȱiL 9 A>L 9 D ` 9L 9 = N:qȥqL 9 fڠ L& 9 = N:8帑ȱ幑L 9 }`ڠ L& 9 = N:ȱ >< >L 9 ڠ L& 9? = 0< N: = 0< i< 0< >L 9 (} L& =$ =L =L = N: = i<ȭL ; =L =L ; ; ;߰ݐ ;ܰԐ ;͐˰ = N:}ȥL = N:1ȥ1L IL = N: =& >L = N: =Ff >L 9qqL 9} 9 fLh& 98ȱL 9 9 `ڠ L& 9 9L N: N: "; 9 9 9 9 9L  < D 9L })HhLC( '(h)%3FBD F 9ȱL ȥ }' 'L 9 9 9L J'L& _'L' A pA} AL =&ee` = =&ee&LQ'iHiH = N:8席! ; ;hhL~ , >ee` =ȑL )L7) '()e% 9 ()L }' (L N: J' 9 () N:L N: N: N: _"}' 9 ) N:L A A AL N: N: )L ͣ ̤ AL )` N:`#}ȱ N:` N: = 9 N: N:L )? _:ȥȥȥiȥi "; +; :L0 =)HHl$} N:L )&"o L*cL= )L 05 6 9) a98L)&%}ee` 9 a9L@* = 9 >, 9Jȑ 9L^*8ŸŹL = N: )8&}L ) N:Ÿ :L0 L Ʈ0TL* *ȹ*HH`L=+++,,,-(-+-`-l----. .2.Y.`.|..../ /&/O/'}b/u////0!0'000011"1-1P1V1e111112222363z33333T4Y4^4444e5555555666'626=6D6K6s6~66w 9L(}+ : 8L+ :HJJJJhHɛ h L+)hH 9hȑL AAAȌ N: @L r 9L , : 9 :+)}-+ȹ0;:7H&eeh)eeL+, >)$ ; *} ;- A>L AA = N: 9; @L : 9 : >ԑȑL AA `>AA `>AAL - `>AA N: @L+} 9 a9L L AA P>8庅廅Aĺ N: @L 9 a9L x 9L}- : : ,}9L j9 AA 9 E? @L :BݝDAEHI L9 L  = = N:iW&&eeee8帅幅 -"2}湥ŪūL %L j9 j9 ͤ L0eͤ 8廅ʠ AAƺL0L 3} 94 a9L 95 a9L )ȑL 9 a9L : 9 BDEHI L9 a9L 8l 9 9 9 >L = N:84}L 9 a9 9 a9 9 a9 9 a9L 1L L1 ABL ݅A ح) 9L5}2 9 9 >L pBJݝDAE L9 L ȱ N:%L A0 N:AL#3 N:L j9)8LP3i 8o3p3%L8} ~  :&B L9 < 9LȽML 9NȑL = N: :LML N%B L9 < N:L j99}L L L L  )L  ҩL L L L #Ld4$Ld4!Ld4p:}BJKݝDAE L9 }>< i< >L AU : t=L A : pA HAL A :  HA AL 8`$)ԩae7 (ې`)8@0+?}̪Յ)e)e ݦ `F ݢs7 `ڢ ڰC7 @ݢ F I`U9>`D'RFuCU@}?b9dYdg@W2@?tS)%@)@0)%ԅԢ ޢ ڰ9 @ݰ. ڰ" fڥA}ԅԥ m7 (`8`0?i (۩ ݢ8 `ڢ ڢ ݢ (ۢ `ڢl B} ڥ fƢ ݥ#8@ji@)j `@@ipc <`BJKDEC} L9 < :H B L9 `eeZŭ-Ŭ% ; ;L ű Ű F}`8Ʊ`L=Hh8HȱP`mm` )&H ; > G}: ; N:`BHI L9 <`BDEHI L9 ;I=L~ ; KEY > ;`H BHIh L9 <`ȑ` ; M} ;L ; h U> t=`8񰑰񰑰`&` `> t= t=`H) l>hJJJJ 0:i` &&ԆՠI0 i`O} p U> < HEX = U>ȱ U> < CHAR =ɛ  t=ȱɛ  t= t= +P};8席 ` #L>0)8? @.L? @L? @ 8逮0ΤQ}iE @ 8-+ @8 i H }@h }@0iiΤ @- @`A̤L@ R} X@8JJJJ }@) }@ 0 @ @. @0 @ @. @` 0`8`S}A.L@.0Aĸ00̣` @ A` :,80' BĸAḄLAL@`T} BݝDBEHI L9 <` j9`BDEHI L9 <`88尥0`L:eU}e`ȱ N:`LA LA`|OoWo_p p pQERROR p ppQpQFILE p!ppQpQLINE p ppQpW}Q ?/"?! pEXPLNERR.PCD p5p/p1D!Dp o_/4Dp5p$p5p/:p5p/p1 0X}p ! pRSVDWRDS.TXT p5p/p1D!Dp0 s  `jp 3C P 0 oAPp p Y}}pPpQpQDraper SoftwareppQpQPascal CompilerppQpQVersion 2Z}.1 ppQpQpQCopyright 1989ppQby Norm DraperppQpQpQpQp;Enter F[}ilename: ppQ!QqB00   `   /? 0 oP p!QpP p\}pPp 1DP!DqB00   `E   /? 0 oP.p5p!Dp?0  `!Dp]} 0 !D_   p@1DpQSuffix not required, ignoredppQpQ:p5p!Dp?0^} ` ! p!D_pA1D!Dp.PASp5p/p1p !pp(0 `tFile not fo_}undppQo  `***ERROR  p ppQ `p;!Dp.PCDp5p/p1)!)pp70`}p80/00    `"$pP 0 oPp  !)p p9 p:pQEnter Lista} Output Filespec ppQDefault is E: ppQp 1^P!^pp5`E:p51^b}!^ppQ0   ` 2h 0 oPAp5p20 Zp5p2  `H 2h 0 o&P0p5p20 9c}p5p2  ` 2h 0 o_P0 00  0 0000 pP p5p240oeo_p4d}Pp`C!3pp5` @Pp !3p1p513 0!p p9 p:p4P$0$4e}$ap5p2 $zp5p2 `  0 4$pP ` p5p24$0p`N 0pQ f} `00pP p pP `Np4P$0$pP$0p5p2 $9p5p2 ` g} _ '`_PPPPP$ p5p2`@ow "h` 0p51=  `!=p$p5p/ph}1= 0@ "h`0s0  0!=p #C  `, 0o8 0   #i}C p!=`!=p #C `{  0o 0o "h ` 00p51Q!Qp$p5p/p1Q j} 0p5p20@ "h ` $.p5p2` 0!Qp$p5p/p1Q@ "h ` $Ep5p2` !k}Qp$p5p/p1Q@$+p5p2$-p5p2` !Qp$p5p/p1Q@ "h` !Qp$p5p/p1Ql}@o !Qpu05o$:` @$=p5p2` 0@o :p5p20o<`\ @$=`:  0@oV m}>`P 0@oV 0Po>` @$=p5p2` 0@o 0o=` 0@o'` 00n}'0@ ' ` ` !@P $7 0@o 0@o/`$ 0@o(` @$o}*p5p2` 0@0$$p5p2`| @$I`A !3pp5 ` @P!p13 00@@p}p510$ p5p2 ` !p$p5p/p1@o :p5p!p?0 `" ! p!_pA1!p.Pq}ASp5p/p1oy S`y @$+`e /?ov -`v /"?PP$*p5p2 ` @o| @$)p5p2` 0r} `| @ ` p70p80p !p@eo (p5p20o%`%p5p20@o$`@0s}00 "h$Ap5p2 $Fp5p2 `$Ap5p2 ` 0p5p20o Ap5p2 0 t} 0@ 0o4 `$p5p20o$0@P `0 `0oOo_p70p8u}0p  !)p0   `i$pP 0oCPp  !)p p9 p:$pPo_v}$pPp`@o_P  `@P `x `4@ 0 ou   `K4w}@ 4@ 0 4@ou 0 4@ 0 4@o 0 4@ 4x}@ 0   ` 0 4@o 0  0 o_PPPp70p80 y}p9 p:p4P 4$pP 0 4$pP p9 p:ow_   ` @P@ez}o_ 0  `@P   ` 0 !=p1  2A 0  ` 2B {} 2oA`%uB0  / /2  / /2B  / |}/2oA`  2 2B  2 0oA` 2A  2oAa  `}}(  2  2oA `A  2PoI_P 0  #p!= ` 0oW ~} ` @P <o_  `@PP@I0 "A0 `   `$@Po}`)   `&%@Po`S   `P&@Po`}   `z'@Po }`   `(@PPo_PP  ` @P ;p5p2`@e  ` 0 2 2}o  2o* (p5p2 `)@P0@e 0 `T@Po]@P@e ,p5p2 `.  }  0  2 0  `  0  2 0oP  `  0 } 2)p5p2@wP;p5p2 @wPo/_P `vP@I0 "A `j "0os @Po}-`@e@wP 0oa`o`'0o@PP@eo_ ` @}Po`zP@I0 "A `$$@P  "@P  "0  `_"@P 4@ }0 o @PP@eo_P `@PoGaaa`G(p5p2@wP@ } `- @P@P,p5p2 @wP@@P )p5p2 `G@PPoO_  ` "A}aaa`@e "A "@Po`@PP  ` "B@P  }"@P  "0  `"@P 4@ 0 o6_ `0   `| }'@P 0oSP @Pp5@Po`P@I0 "A @OP "Aa`o }a` @Pp5@PPo @PP@eo$_@e(p5p2@wP  `O@PP@I0 }"Aas` "A @OPpD@Poa` "A @OPo @PP@e)p5p2}@wPo_ ` @Po``WP@I0 "A0   `C$@P  @OPo`}$@PP@eoc6oo_ ` 0 o a aaa aa `0 a} aaa aa aa`!o*@PPoaKaK`| }ajaj`mov@PPo` aaaaa`o@PPo}`~ alalalalalal al alal alalal }alal al`oox@PPo `   `@Poaa` a}aaaaa a `o@PPPo/o.o-o%_PP  ` # `3 P}@I0 "A@oP "A ` "@Po) ` "@P "B@P "@Po) }aaaaaaaa `+ "A @OPo)  a= ` P}@P "A `d 0 "`@ @OPo @e0 (p5p2 `@P@e@ 0 },p5p2 `  " `#@P )p5p2 `@P@ @OPP @Po) @PP@eo#`}X @oP @P@eo#` 0   ` '@P 0on P @P  }` p5@Pp2@P@oP@eo#`r!%uB0 / /@P / /}@P / /@P@oP@eo#(`!@e@)p5p2@wPo#`!@oP@e(p}5p2@wP@)p5p2@wPp3@Po#`e"@oP@e(p5p2@wP  `"@PP@I0 "A} @OPp "AB@P@e)p5p2@wPo#`"@oP@$pE@Po#`"@oP@e(p5p2@w}P0 @0 )p5p2@wPo#`#@oP@e(p5p2@wP0 @0 )p5p2@wPPo-  }`' `#@oP@e (p5p2 `_#@P@e@6p@P ,p5p2 `# @P@e@6p/@P },p5p2 `#p@P)p5p2@wPo'`y$@oP@e(p5p2@wP@6,p5p2 @wP@,p5p2 @wP}@wP  `B$@P)p5p2@wP@Pp$@Pp2@Po'`$@oP@$pG@Po'}`$@oP@e(p5p2@wP0 @0 pD@P)p5p2@wPo'`%@e(p5p2@wP #}`B%@e  `7%@P 0o%`|%P@I0 "A  `m% @P "0o%@PP@e)p5p2@w}P @Pp@Po'`&@e0 (p5p2`k&@e #`&@e  `&@P 0oS&`}J&P@I0 "A  `;& @P "0oS&@PP@e)p5p2@wP @Pp@Po'`&@}oP@$pL@Po'`&@oP@$pM@Po'`&@oP@P@eo'`'@oPp(@P}@ePo-  `e) `E'p@P@eo_)`'@oP@e(p5p2@wP  `~'%@PP@I0 }"A "A `'%@P "A @OP@e)p5p2@wPp @Po_)` (@oP@$pJ@P}o_)`l(@oP@e(p5p2@wP@,p5p2 @wP@)p5p2@wPp@Po_)`(@oP@$pK}@Po_)`(@oPp%@P@eo_)`(@oPp&@P@eo_)`(@e@%@Po_)`;)@e}(p5p2@wP@)p5p2@wPp'@Po_)`_)@Pp.@P@ePo-  `, `)@o}P@e(p5p2@wP0 @0 p+@P)p5p2@wPo+`*@oP@e(p5p2@wP@)p5p2@}wPp@Po+``*@oP@e(p5p2@wP@)p5p2@wP @Po+`*@oP@e(p5}p2@wP@6p@P,p5p2 @wP@P@6p?@P)p5p2@wPo+`+@oP@e(p5p2@wP}@)p5p2@wPp@Po+`h+@oP@e(p5p2@wP@pP@P)p5p2@wPo+`+}@Pp.@P@eo+`+@oP@$pF@Po+`+@oP@$pH@Po+`+@oP@$p}I@PPo- `,,@Pp.@P@eo-`v,@oP@e(p5p2@wP@)p5p2@wPp@}Po-`,@oP@e(p5p2@wP@)p5p2@wPp@Po-`,@oP@P@eo-`-}@e(p5p2@wP  `-%@PP@I0 "A "A `E-%@P "A @OPp@Pp }0@P@e)p5p2@wPo-@PP_P@% *p5p2     `}. 0 `.0 @e@% *`(. @Po.`C. @Po.`[.@Po.`s}.@Po.`.@Po.`.@PPo-_P +p5p2 -p5p2`/ 0@e@- }-p5p2`. @Po/@- +p5p2 -p5p2 `/ 0 `J/0 @e@- +`}q/ @Po/-`/ @Po/`/@PPo/_PP@.    `1 0@e }a/`0p@P `0P@I0 "Aa*0`10@6o0aC0`v0 "A @OP}@Pp5@P@eo0 @PPo0`0@6o0 @PP0o1`D1 a0a0a0}`0p5@Pp2@P0@.o>1a1`51p5@Pp@P@60o>1 @PPo1ag1}ag1ag1`10 `1@6p2@Po1@.o1a1`10@.P  @P}on3o1_PPP   `2 @P `2P@I0 "Aa82`?2@6oy2 ``2 }"@P@eoy2 "A @OP@ePo 3`2  `2@6o2'@P@eo 3`2 }@P@eo 3-`3@e@wP @P@eo 3 @PP @P ,p5p2`l3p70p80`}@P@e@1   @P_PPPP@1:p5p2@wPp70p80`@P@i ;`4@e }`3   @P@eo4`Z4p70p80o@P   @P@e@i ;p5p2`94@e@w}P   @Po4p70p80o@P   @P@n3   @PPoB5`4   @}P@eoB5`95p70p80o@P   @P@e@i ;p5p2`5@e@wP   @PoB5}@PPoJ5_ #`m5@e@/@oPo5`5P@I0 "A `5 "@P@eo5 `5@}Po5@Po5 `5@Po5@PPo5_PP@e(p5p2@wP@/0   `M6,p5p2} @wP@/ 0o 6P)p5p2@wP_PPPPPPPPPPPPP0 `;P@I0@e }"A0 0 a6a6 a6a6 `$7 @wP@/ @oP0 "A @OPo;a?7}a?7`7 0  "@P@e @wP@/ @oP0  @OPo;a7`:  "}@P `7@e @wP 0 `580   `8 '@P 0o7P @P}p5@Po:`8P@I0 "A "A `n8%@P "A @OPp@Po:`9@e(p}5p2@wP  `8@PP@I0 "A @OP@e "Aa9`9oT9a9`K9 :p5p2}`>9@e0 @/ 0 oH9@PoT9 @PPp "AC@P )p5p2 `9@Po:`*:@e (p5}p2 `9@P@e@6p@P ,p5p2 `9 @P@e@6p/@P ,p5p2 `9p@P )p5p2 }`':@Po:`:@e(p5p2@wP@6,p5p2 @wP@/,p5p2 @wP@/ )p5p2 `:@Pp$@}Po: @PP0 @OP@eo;`~; "`:@ @OPo{;0 (p5p2 `;@P@e0 @/} 0 ,p5p2 `;  " `L;#@P)p5p2@wP@ @OPP @Po; @PPoO}`;pN@P@eoO`;pO@P@eoO`;@e@c6 ;p5p2 `;@wPoO`7<@e(p5p2@w}P@6)p5p2@wPp1@PoO`<@eP@I0 "A0@/  `s<@P  `<p }@P@e@n3 a<`@e  `=@}PP@I0 "A0       `W= @P@e @wP 0 @/0  @OP }`=0o=`=0o=@PP@e@/ 0 @P  @OP `>  @Po}>  @Pp70 p80 `@P@wP@c6  @OP  @P0  @OPo @P } @P `>0o>0P @PoO`b?@e@/@wPp70 p80 `@P@c6 }`L?p70 p80 o@P @P@e@c6 @Po_? @PoO`? 0@e@c6} ;p5p2 `s?@wP@/` @PoO`@ 0@e@/p70 p80 `@P@wP@c6o @}P @PoO`@@e(p5p2@wP@PP@I0 0 "A @OPP@P@e,}p5p2 @wP@/,p5p2 @wP@/)p5p2@wPp@@P0 "A @OPoO`A@e(p5p2@wP@6}p@P,p5p2 @wP@PP@I0 "A @OPP@P@e,p5p2 @wP@/)p5p2@wP}pA@P0 "A @OPoO`A@e(p5p2@wP@6p<@P)p5p2@wPoO`B@e(p5p2}@wP@J5P,p5p2 @wP@PP@I0p7@P0 @OP@e,p5p2 @wP@PP@I0p8@}P0 @OP@e)p5p2@wPoO`MC@e(p5p2@wP@P@J5P,p5p2 @wP@wP }@P,p5p2 @wP@wP @P,p5p2 @wP@6)p5p2@wPp@PoO`C@e (}p5p2 `tC@P@e@wP @Pp;@P ,p5p2 `tC)p5p2@wPoO`D@e(p5p2@wP}@J5P,p5p2 @wP@PP@I0 @OPp9@P@e,p5p2 @wP@PP@I0 @OP}p:@P@e)p5p2@wPoO`D@e(p5p2@wP@6p>@P)p5p2@wPoO`E@e(p5p2}@wP@6p=@P)p5p2@wPoOaE`lG 0@e (p5p2`HG@e@J5P )p5p2 ` G@}P ,p5p2`qE@e %p5p2`E0@eoE00 @/ aEaE `E 0okFaE}aE`E 0okFaE`F0okFaF`"F0okF`4F0okF `bFP@I0 "B}@PS0okF @PP   `F :p5p2`F@e0 @/@oPoF@P  `F :p5p2`F@e}0 @/@oPoF@Pp @P ,p5p2 `PE `&GpQ@Po4GP@P)p5p2@wPoiG }`iG@PpQ@PoO`G@e (p5p2 `G@P@e@J5Pp @P ,p5p2 `G)p5p2}@wPoOaG`gJ0@e (p5p2 `H@P@e@J5P@P ,p5p2`3H@e  `FH@P}P@I0 "AakH`H "A`~H@e "A "@Pp "A@P0 "A @OPo-J}aH`%I "A`H@e "A "@Pp "A@P0 "A @OPo-Ja7I`I "A}`JI@e "A "@Pp "A @P0 "A @OPo-JaI`I "A`I@ep @P} "A "@P0 "A @OPo-J `$J "B@PpR@P0 @OPo-J @PP@e },p5p2 `HP@P)p5p2@wPoOayJ` K `J0oJ0@e(p5p2@wP@P}@J5P@Pp @P @P@P,p5p2 @wP@6)p5p2@wPp@PoO`K@e(p}5p2@wP@J5Pp)@P,p5p2 @wP@PP@I00 @OP@e)p5p2@wPoO`K@5P}@@PoO`K@5Pp@PoO`Kp*@P@eoO`L@5Pp@PoO`8Lp!@}P@eoO`Lp-@P@e(p5p2@wP0  `L@PP@I00 @OP@e,p5p2 @wP} 0ojLP@PP@I00 @OP@e)p5p2@wPoO`Mp@P@eoO`1M@5Pp}@PoO`RM@5Pp@PoO`sM@5Pp4@PoO`M@5Pp6@PoO`M@5}Pp@PoO`N@e(p5p2@wP@/,p5p2 @wP@/)p5p2@wP0@PoO`0N@5P}p@PoO`QN@5Pp@PoO`mNp#@P@eoO`N@e (p5p2`N@e@/)p5p2}@wPoN@Pp"@PoO`N@5Pp,@PoO`&O@e(p5p2@wP@6p @P)p5p2}@wPoO`O@e(p5p2@wP@,p5p2 @wP@J5P,p5p2 @wP@,p5p2 @wP@,p5p2 @}wP@6p@P)p5p2@wPP_PPPPPPPPPPPPPP00p70 p80o@P} `Q@e  `6P@P!=p1D@e@wP `gP 0oP`yP0oP-`P@e `}P 0 0oP`P0%5oP@PPoP@PP@/!Dp1= @P;p5p2 @wP } `6P `U@e0 000 0 `YQ@PobQ@P@e ,p5p2`~Q@eoQ0 `DQ}:p5p2@wP `!R@e[p5p2@wP@/ 0 ,p5p2`Q@e@/ 0 ]p5p2@wP } `R@P@wP a7R`IR00 @eowS`eR00 @eowS`R00 @eowS}`%S0P0@e [p5p2`S@e `RoS`RP@I0 "A  `R @P "0oS@P}P@e]p5p2@wP 0 owS`_S  `AS@P 0  00 @eowS`wS 00 @eP  } 0  `S `S0oS`S0oS`S0oS`S0oS @PP 0}   `'U  2A  2B  2  `\T 0 0    }0  `T  `T@P  2 0 oTaTaTaT`T  2  2}P  `U 0 0oTP;p5p2 @wP `U `YU"@P  "2B}0 @e;p5p2 @wP  `+Q  `1V `U0oU 0@e `U @PoU@P 0}@e @P  @OP 0;p5p2 @wPoU `W  @P 2P@P } `W 0   `W "B `W " "0 "A`VP "B@PoW` W} @PP "B@PoWaW`2WP "A@PoWaDW`gW @PP "A@PoW }`WP "A@PoW`W @PP "A@PP 0oVP@e@c6 ;p5p2 `W@wP }@PoW@P_PPPPPPPPPPPPPPPTTTPPPPPPPUWQQQQ }QQQRSRRRRRRsSQ@@e `X0 @eoX0 `Yp4P$ }pP$;p5p2`X p5p24@e@OP .p5p2 `)Y @P0 4$pP$pP$ }pPp p pQpQADDR   NAME ppQ---- -------- ppQ0   `xZ "A0}                 `kZ " `?Z00pP "p }pP #ppQ 0 oYPpQ 0 p Compiler table entries usedpp}Qp /"?o{o_}pP        DRAPER SOFTWAREppQ            EDITORppQpQ }      A - Add line(s) at endppQ      C - Change line(s)ppQ }      D - Delete line(s)ppQ      E - Edit line(s)ppQ      } F - Filer menuppQ      I - Insert before lineppQ      L - }List line(s)ppQ      M - MenuppQ      P - Print line(s)ppQ }      Q - QuitppQ      S - Scan line(s)ppQ      X - Exit }to CompilerppQo_ d `, pP   `E pP p:pPoa_ @ }PR ?p 17Pp(`p p p  ppQR ?U ?o_ }0  `8ppQ0o=_0  0  }  pPp 17P!7pp5 `!7pp00   `0    ` 0   }pPp 17P!7pp5 `!7pp00    `% 0    `: 0 o?_0@= 0   } ` @PR ? #ppQ0  #p (   `pP 0 oPp 3PR  }?U ? 0oXPo_ pP!7qB0 0   `t   } /? 0 oCP!7ppQ                   ppPp 1P!qB0 0 }   `    /? 0 oP:p5p!p?`;!2p!_pA1!p 0.p5p! }p?`.PASp5p!_ pA1o_ pPp0 P  `0 o_@0  !}p !pp(0   ` 0 oK0   `H #ppQp(0   `; 0  0oP "}p E:p5pp;  `p***Error  p p while saving to diskpp #}Q0o_ ` ppQEnter "I" to IGNO $}RE and continue ppQ   or "S" to SAVE   and continue ppQp4P$ %}Ip5p2$Sp5p2` $Sp5p2` @o _ ` 0 p` p`G p4P$ p5p2`B 0 oG &} 0 oL _@ @aP !7p1!7pp5`O 0 0o _@p p6pQLoading Com '}piler ...ppQp;!2pCOMPILER.PCD p5p/p1 ! p o _@=0    `v  (} 0   0   #p1 0o, P0   0o _Filespec?  )}pPp 17P!7pp5` !2p*.*p5p/p17:p5p!7p?` !2p!7_pA17.p5p!7p?`Z *}*.*p5p!7_!7p pA17!7pp 17P!7ppQp 17Pp`v p o _0@  +}@aP!7pp5 `: 0   ` 0   #p1 0o P@ !7p1 0  ,}@aPo o? _@= 0   ` @PR ? #ppQR ?U ?@ $` 0 -} 0oR Po _@=p;p P:p5pp( `uppQ .}ppQp;p.`Vp P:p5p 0   ` @P #p /}pQ 0oPp;p E:p5pp;o_Pp;@p !pp(0p( `- 0}ppQ `p`@p 3Pp(`p p p  ppQo7 1} 0p  p lines now in memoryppQo_P@=p 2}Pp 1bPpPp 1P!bp 0  0   `< #p170! 3}bp!7p?0 !bp!7p? `00!7_  p@17!p!7_ pA17 !7p1 `/  4}@P!7ppQ@  0oyPoD_@= pPp 1bP 0   ` 5}#p17!bp!7p? ` @P!7ppQ@ $` 0 0oPo_      A 6} - Append fileppQ      D - Directory listppQ      L - Load 7} fileppQ      S - Save fileppQp4P$Ap5p2$Dp5p2$Lp5p2$ 8}Sp5p2`$A`?  `80@ovD`O@ ovL`i00@ovS`v@P_TPPP 9}PPPPPPPQQQTQPQPQPSP/46Dp5p$6p5p/:p5p/p120p E:p5p@p :};R/0 0A,C,D,E,F,I,L,M,P,Q,S,X,?->pPp4P$ppQ$A`@ ;}L olC`@olD`@ olE`@?olF`@olI`@ olL`@? olMa?`@o <}lP`@ olQ`olS`-@DolX`=@ olpppQP$Qp5p2 =}`@p p;!2pINIT.PCDp5p/p1 ! p }Compiler table overflow (max 200)Number expected'=' expectedIdentifier expectedConstant type identifier, number, or strin ?}g constant expected'BEGIN' expectedToo many nesting levels':' expected'.' expected';' expectedUndeclared identifierInv @}alid type of identifier':=' expected'END' expected';', 'ELSE', or 'END' expected'THEN' expected'#' expected'DO' expecte A}d'#' or FILE type identifier expected'[' expected']' expected')' expectedIllegal factor or identifier typeINCLUDE file B}nesting too deep'OF' expectedMismatched data types'TO' or 'DOWNTO' expected'UNTIL' expectedRange error'(' expected',' C} expectedLiteral too long or missing end quote (')'END' but no RECORD startedIncorrect number of parametersINTEGER type i D}dentifier expectedSTRING type identifier expectedREAL type identifier expectedCHAR type identifier expectedFILE type iden E}tifier expectedHEX type identifier expectedSTRING constant expected Qo_PPQPTTQ/41Dp5p$1p5p/:p5p/p120/0!2pERRORS.TXT p5p/p1G}p !p   ` 0p 1Po!ppQp  ppQError detectedppH}QpQEnter E to return to EditorppQ   or M to return to Main MI}enuppQp40P$0Ep5p2$0Mp5p2`$0E`!2pEDITOR.PCD p5p/p1!p o$MJ}`$!2pINIT.PCDp5p/p1!p P}(* INITIAL MENU PROGRAM *)(* AS OF 09/08/89 *)(*$S+*)PROGRAM INIT;CONST CLEAR=125; CURSOR=752; ON=0; OFF=1; L} RAMTOP=$6A; LASTFILE=$1D82; DEFAULT_DRV=$1D94;VAR BASENAME:STRING[11]; PGMNAME:STRING[30]; DATA:STRM}ING[128]; I,J:INTEGER; REPLY,DRIVENO:CHAR; DRIVE:STRING[3];PROCEDURE PRESSANY;BEGIN WRITELN; WRITE('N}'); READ(REPLY) END; BEGIN (*MAIN*) DRIVENO:=PEEK(DEFAULT_DRV); DRIVE:=CONCAT('D',DRIVEO}NO,':'); GRAPHICS(0); POKE(CURSOR,OFF); WRITE(CHR(CLEAR)); GOTOXY(2,0); WRITELN(' DRAPER PASCAL'); WRITELN; P}WRITELN(' VERSION 2.1'); WRITELN; WRITELN(' 1 - Run Program'); WRITELN; WRITELN(' 2 - Disk DirecQ}tory'); WRITELN; WRITELN(' 3 - Compile Program'); WRITELN; WRITELN(' 4 - Edit a Program'); WRITELN; WRITER}LN(' 5 - Exit to DOS'); WRITELN; WRITELN(' 6 - List a file'); WRITELN; WRITELN(' 7 - Trace on'); GOS}TOXY(2,22); WRITELN(' Copyright 1989'); WRITE(' by Norm Draper'); GOTOXY(2,18); REPEAT READ(REPLY) UNTT}IL (REPLY>'0') AND (REPLY<'8'); CASE REPLY OF '1': BEGIN (* Run Program *) REPEAT WRITELN(' Enter name of progrU}am to be run'); WRITELN; POKE(CURSOR,ON); J:=ADDR(PGMNAME); FOR I:=0 TO 16 DO POKE(J+I,PEEK(LV}ASTFILE+I)); WRITE(' '); WRITELN(PGMNAME); WRITE(' ',CHR(28)); READLN(BASENAME); W}J:=ADDR(BASENAME); FOR I:=0 TO 16 DO POKE(LASTFILE+I,PEEK(J+I)); I:=POS('.',BASENAME); IF I<>0 THENX} BEGIN J:=LENGTH(BASENAME); DELETE(BASENAME,I,J-I+1); WRITELN; WRITELN('SuffiY}x not required, ignored'); WRITELN END; IF POS(':',BASENAME)=0 THEN INSERT(DRIVE,BASENAME,1);Z} PGMNAME:=CONCAT(BASENAME,'.PCD'); OPTIONS(0); OPEN(#4,4,0,PGMNAME); I:=IORESULT; CLOSE(#4);[} IF I=170 THEN WRITELN(''); OPTIONS(1) UNTIL I=0; WRITE(CHR(CLEAR)); XCTL(PG\}MNAME) END; '2': BEGIN (* Disk Directory *) CLOSE(#1); POKE(CURSOR,ON); WRITE('Filespec? '); READLN(DATA);]} POKE(CURSOR,OFF); IF DATA='' THEN DATA:=CONCAT(DRIVE,'*.*'); IF POS(':',DATA)=0 THEN INSERT(DRIVE,DAT^}A,1); IF POS(':',DATA)=LENGTH(DATA) THEN INSERT('*.*',DATA,LENGTH(DATA)+1); OPEN(#1,6,0,DATA); READLN(#1,PG_}MNAME); WRITE(CHR(CLEAR)); WHILE NOT EOF(#1) DO BEGIN WRITELN(PGMNAME); READLN(#1,PGMNAME) END; CLOSE`}(#1); PRESSANY; PGMNAME:=CONCAT(DRIVE,'INIT.PCD'); XCTL(PGMNAME) END; '3': BEGIN (* Compile Program *) a}MAXGRAPH(0); WRITELN('Loading Compiler...'); POKE(CURSOR,ON); PGMNAME:=CONCAT(DRIVE,'COMPILER.PCD');b} XCTL(PGMNAME) END; '4': BEGIN (* Edit a Program *) MAXGRAPH(0); WRITELN('Loading Editor...')c}; PGMNAME:=CONCAT(DRIVE,'EDITOR.PCD'); XCTL(PGMNAME) END; '5': BEGIN (* Exit to DOS *) POKE(d}CURSOR,ON); DOS END; '6': BEGIN (* List a file *) WRITELN('Enter filename of file to be listed'); POe}KE(CURSOR,ON); WRITELN; READLN(PGMNAME); POKE(CURSOR,OFF); IF POS(':',PGMNAME)=0 THEN INSERT(DRIVE,PGMNf}AME,1); CLOSE(#1); OPEN(#1,4,0,PGMNAME); READLN(#1,DATA); WRITE(CHR(CLEAR)); WHILE NOT EOF(#1) DO Bg}EGIN WRITELN(DATA); READLN(#1,DATA) END; CLOSE(#1); PRESSANY; PGMNAME:=CONCAT(DRIVE,'INIT.PCD'); XCTL(Pq}?BRAUTORUN SYSBVCOMPILERPCDB-EDITOR PCDB>ERRORS TXTBFEXPLNERRPCDBKINIT PASBsINIT PCDBNOTITLE OBJBRAMDISK1DATBRAMDISK2DATBRAMDISK3DATBRSVDWRDSTXTBSAMPLE1 PASBSAMPLE2 PASB'DOS SYSB*DUP SYSGMNAME) END; '7': BEGIN (* Trace on *) POKE(CURSOR,ON); WRITELN('Enter number of entries to maintain: '); READ(r}I); TRACEON(I); PGMNAME:=CONCAT(DRIVE,'INIT.PCD'); XCTL(PGMNAME) END ENDEND.[oWo_pQpPt4bP_Q QQPPTTQ/4ct}Dp5p$cp5p/:p5p/p1dp?}pPp           DRAPER PASCALppQpQ u}           VERSION 2.1ppQpQ        1 - Run ProgramppQpQ    v}    2 - Disk DirectoryppQpQ        3 - Compile ProgramppQpQ w}       4 - Edit a ProgramppQpQ        5 - Exit to DOSppQpQ x}       6 - List a fileppQpQ        7 - Trace onppQp      y}    Copyright 1989ppQ          by Norm DraperpPpt4bP$b0z}p5p2 $b8p5p2 `Y$b1`  Enter name of program to be run!ppQpQ?{}! qB0a0` ` `, a ` `/? `0`oP        pP! ppQ     |}   ppPp 1P!qB0a0` ` ` ` a `/? `0`oP.p5p!p?0` `}} `\!p 0a!_ ` a `p@1pQSuffix not required, ignoredppQpQ:~}p5p!p?`!dp!_pA1!p.PCDp5p/p1 p;! pp(0`p ``}ppQp; ``}pP! p o? 2`zp ?Filespec?  pPp 1P}?!pp5`!dp*.*p5p/p1:p5p!p?`!dp!_pA1:p5p!p?!p `*.}*p5p!_!p pA1!pp 1 P}pPp`D! ppQp 1 Pop @!dp}INIT.PCDp5p/p1 ! p o? 3`p6Loading Compiler...ppQ?!dpCOMPI}LER.PCD p5p/p1 ! p o? 4`]p6Loading Editor...ppQ!dpEDITOR.PCD p5p/}p1 ! p o? 5`r?p*o? 6` Enter filename of file to be listed#pp}Q?pQp 1 P?:p5p! p?` !dp! _pA1 p ! pp 1P}pPp}`h !ppQp 1PoA p @!dpINIT.PCDp5p/p1 ! p o? 7`? ?Enter num}ber of entries to maintain: %ppQp0`P `p"!dpINIT.PCDp5p/p1 ! p P}wPZPWPDTXPEUYPHZPIB VVPHXIY B V`VP`[PkP gD1:D8:INIT.PCDEDITOR.PCDCOMPILER.PCDEXPLNERR.PCDERRORS.TXTRSVDWRDS.TXTAUTORUN.SYS$Zo_TPPQQQQQD1:COPYLIST.TXTp5pp 1Pp 1 P! pCOMPILER)}.PCD p5p/p1(p;!(pp(0p;p  `D1:COPYFILE.OBJp5p1/0 0 )}/0Copying:ppQp 1Pp`!p!p/p1! p!p/p1(!p -> )}p!(ppQp p !p!(p Op p p 1Po,p ! qB0 /?! pI)}NIT.PCDp5p/p1(!(p NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN(}ABSADDRANDARCTANARRAYASCBEGINBLOADBOOLEANCALLCASECHARCHRCLOSECOLORCONCATCONSTCOPYCOSCVTREALDEGDELETEDIV-}DODOSDOWNTODRAWTODUMPSTKDVSTATELSEENDEOFEOLNEXITEXPEXP10FALSEFILEFORFUNCFUNCTIONGOTOXYGRAPHICSHIMEMIFI-}NSERTINTEGERIORESULTKEYPRESSLENGTHLNLOCATELOCKLOGLPENHLPENVMAXGRAPHMODNOTNOTEODDOFOPENOPTIONKEOPTIONSORO-}RDPADDLEPEEKPLOTPOINTPOKEPOSPROCPROCEDURPROGRAMPTRIGPURGERADREADREADLNREALRECORDREPEATRESETREWRITERNDSEL-}ECTKESETCOLORSHLSHRSINSOUNDSQRSQRTSTARTKEYSTATUSSTICKSTRSTRIGSTRINGTHENTOTRACEOFFTRACEONTRUEUNLOCKUNTILV-}ALVARWAITWHILEWRITEWRITELNXCTLXIO,)PROGRAM KALEIDOSCOPE;VAR I,J,K,W,X:INTEGER;BEGIN MAXGRAPH(19); GRAPHICS(19); X:=0; REPEAT FOR W:=3 TO 50 DO BEGIN 1} FOR I:=1 TO 10 DO BEGIN FOR J:=0 TO 10 DO BEGIN K:=I+J; COLOR(J*3/(I+3)+I*W/12); PLOT(I1}+8,K); PLOT(K+8,I); PLOT(32-I,24-K); PLOT(32-K,24-I); PLOT(K+8,24-I); PLOT(32-I,K); 1} PLOT(I+8,24-K); PLOT(32-K,I) END END END UNTIL X=99 (* UNENDING LOOP *)END.0cPROGRAM ROMAN;(* ROMAN NUMERAL SAMPLE PROGRAM *)(* ADAPTED FROM PASCAL USER MANUAL AND REPORT BY JENSEN AND WIRTH 5} *) VAR X,Y:INTEGER; BEGIN Y:=1; REPEAT X:=Y; WRITE (X,' '); WHILE X>=1000 DO BEGIN WRITE ('M'); X:=X-5}1000 END; IF X>=500 THEN BEGIN WRITE ('D'); X:=X-500 END; WHILE X>=100 DO BEGIN WRITE5} ('C'); X:=X-100 END; IF X>=50 THEN BEGIN WRITE ('L'); X:=X-50 END; WHILE X>=10 DO BEGIN 5} WRITE ('X'); X:=X-10 END; IF X>=5 THEN BEGIN WRITE ('V'); X:=X-5 END; WHILE X>=1 DO BEG5}IN WRITE ('I'); X:=X-1 END; WRITELN; Y:=Y*2 UNTIL Y>5000 END.4P D  C D     )16CS S)  C)D1 p p 9}0 C9DI pCDL~CiCDiD` DD˙` d J)L !9}D L(( LL()  L| L( S LH 0p n  9} CY?  q  L L  ` )9} `A! d߰")-݆ "  $G@LLL&0") $G%9}H0 3S8`G ȱG ȱG   Gȭ Gȭ GG}GHiH8(()) G$H% `(09})8` d)L ݆ & LGȘ ݆LL d  ! LL d)N>Q  HH)9}  hyhyB q L> Lm JJ  Ln*` dB%'9}8  H H` 1 { LL   !L     Hh SY?  q  1L9}  !? S   q 1 L   Ll  Lg E`L   !L)  q 1L9}) `L0AM݊L݉ ML  N݆LLLNLMLHG!@9}1F GȱGLLEEȩÑEȑEEȑE Ed E7EȩE  q9} L !,0,0SGɛ L 1 !L EHEh W G gLLSROTCES EERF 9} G) *Gȩ GȽG GȌd q q G`  8   0G  `D9}CEDC0X:Ȣ Y ȱC* ? 0.. , 0%n ?A[ 0 : L`L  `, 0`Y9}`piH n0)բY? 08`0 9}  0$L GGȽG L `8L`L9}8`  05G)݁,G)ȱGȱGHh0})Hh` B! 8`8iiiLE`9}E8FEh( l0`ɃLL L8^~jj8jHi hEEEiEȱEiE` dTE9} H8EEȱEEȩEh J E8   . m  i`LI!)E1FR9}1LJ舩9GIH`LJJ`HGHh l`9} S gL   8 rii `дCDCG W  9}C  Lq` X٨`DOS SYS IIIIIIIIIIIIIIIC`0 ߩ0}}``9} HE |||DDOS DOSDOS SYS }9}8}9}BRAMDISK1DATBRAMDISK2DATBRAMDISK3DATBRSVDWRDSTXTBSAMPLE1 PASBSAMPLE2 PASCDOS SYS9} 0`BDELV !B 9}`LVUQ   ]   TU J ]L!T  #      TU 9} L ? .  t`GBJ V~DEHI B V0dV9}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh9}DEL8HI   0 HI,0 0  9 .G VLO9},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI9} V0 0`B;DELV䌚 !B y`@ʆ v s? F0Ξ05: [ BDEHI9} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO 9}STILL RUN DOS B;DE J V (` 9 V⪍ ઍ  -9}LLu DEHILV 9 .l 9 .l  `` s$B VBH9}I|DE V BLV nB,DE J V* \*` B V BLVDEHI BLVL9}1u H232435; 1 ;  hh@2 e1i1LHҍ 00) 08 109hh@ Ҡ2e9}1i1232435ޥ<<88} 3E:}DISK OPERATING SYSTEM II VERSION 2.0SCOPYRIGHT 1980 ATARIA. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDGE J. D=}UPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRESSF. LOCK F=}ILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES9!&x#!7&p))'&X*./)L''-؆莟=}R'S  vW DEHHI 1A#! @ ~0ɛ8A0.) ȅ 1 1i=}il ! 1L NO SUCH ITEMSELECT ITEM OR FOR MENU! 0 .{z:*{}.|~ 1 0 0=}JB 18L^%|DLl%DIRECTORY--SEARCH SPEC,LIST FILE? # 0 0 n&|D! 1L NOT A DISK FILE=}N !B 1L " 1 !BDED:}:1BJ|DE 1DEBH=}I 1 h0ߢ 0.  0?詛 1 ~0YЛ 1 "L<" "L =} BL1TYPE "Y" TO DELETE...DELETE FILE SPECCOPY--FROM, TO?OPTION NOT ALLOWED076 FREE SECTORS COPYING---D2:HELP=}ER.BAS# 0|D .L$A#B#C#JB|DE 1BHIDD#E 1D#0: B=} 1L B#C#C#B# B 1N#$0SYS1}:e#D# d# D# .d#ȽD# d# 𩛙d#X# 1,A#=}PdD#ELO- A.BJdD#E 1 1HH 0hh|DL^%1}:e# Lt% e#dD#EL%=} 1 0 . .0% 1L WILD CARDS NOT ALLOWED IN DESTINATION 0 A.|K@C