@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@W!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr d M * @  $ % CC$$)%1 Udߥ$9%: !0 S$%} DD˙`  }J)Lr J  ((  p L ()   J}L= ( L 0q A    IB JC;? D W } LL  ` W )LA!  ߰")-݆ p" } $G@LL 08`Q")<2Q0 -G$Ș݆ UL# ; p8(()(0ʥ)NQ` }$GȘ݆LU )L ݆ L GȘ ݆LL )W>Z   HH)H }p h  hyhy D L> L JJ    ! LA*` BF }7'8  M HN H` 8 Z  \LdJJ!"! GFE@F (!L }EE !E^ ^ E E7EȩEdE/EȩE  D } .L }  ;F d  ;?F7F? ( .   Z D LL d } . D  L    p  E` , d)  D L) 0BM݊L݉} ML  N݆ L NLML [ TEqEHȱEqEh 0Gȹ G} HLL GɛL  LFREE SECTORS G) *Gȩ GȽG GȌ*jj >G} C8jJ3j2CD( C202C ԠBX` N 1? l LlD:RAMDISK}.COMLu L1 L ;LHL  T`  `1  ɐ     `TU  } L ? .  t`GBJ ~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI4 0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DEL`?<0LV`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J  (` 9 V⪍ ઍ  -'}LLu ÝDEHILV 9 .l 9 .l  `` s$B BH(}I|DE V BLV nB,DE JLV B V BLVDEIʩ BꭝLu } 3E:}DISK OPERATING SYSTEM II VERSION COPYRIGHT 1984 ATARI CORP.A. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDG*}E J. DUPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRES+}SF. LOCK FILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES P. FORMAT SINGLEL !N',}#"&))9(&*)/h)''-&؆莟R'S  vL/ˢ L }Insert DOS 2.0s, type Y Λx -}DEfHI 1莏#q! @ y0ɛ8A0,' ȅ 1 1ild! 1L!NO SUCH ITEMSELECT.} ITEM OR FOR MENU! 0 .z:*{}.|{ 1 0 0JB 18L%|DL/}%DIRECTORY--SEARCH SPEC,LIST FILE?[# 0 0 &|D3" 1L!NOT A DISK FILEN !B 1L!E# 1 !BD0}ED:}:1BJ|DE 1DEBHI 1 h0ߢ 0.1}  0?詛 1 y0YЛ 1 ;#L" ;#L! BL1TYPE "Y" TO DELETE...DELETE FILE SPEC2}COPY--FROM, TO?OPTION NOT ALLOWED697 FREE SECTORS COPYING---D8:COPY32.COMl# 0|D .L/%#3}##JB|DE 1BHID#E 1#0: B 1L!#͑### B 1#c$0SY4}S1}:## # # .#Ƚ# # 𩛙## 1,#PD#ELJ- <.BJD#E 5}1 1HH 0hh|DL%1}:̳# L% #D#EL% 1 0 . .0O% 1L!WILD CARDS NOT A6}LLOWED IN DESTINATION 0 <.|K}N 2 FORMAT. t* 5) 1L!`) 0NΞ 0 L1) 1 L!BAD LOAD FILELOAD FROM WHAT FILE?) 0 ?}0#B 1L!WHAT FILE TO LOCK?) 0 0$B 1L!WHAT FILE TO UNLOCK?DUP DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO US@}E PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV.FE! +L1   `*  70 2 2A} 0.* 1 y0 0)INSERT BOTH DISKS, TYPE RETURN^, 1 y038逍 N, 1L! ,B}C, t*  Lx+, 0 ^, 1 y0 , ,0,0 ,L+ ,I0 ,Vǭ0C}Ξ, 0 }, 1 y0C,ШC, 0K'!" H H 'h h Lx+!EF 5L1L!D,I,HhD}` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNINSERT DESTINATION DISK,TYPE RETURNE}`  `8 rL1`-* 1P* 1 y0Y`hhL!NAME OF FILE TO MOVE?- 0 0|DL% <.F},^ 1 70 0 .@L# .BJ 1  DEHIB V L1 ,} 1 70,L.  G}JB|,#P#DE 1 HI BDEHHII 1 B 1 ,^ 1 70,0La- B V,#PH},^ 1 70 0L#L!-* 1P* 1 y0Yj383}mm ݭI}}`8}``|* ? ɛ,`|:-)| / 1L!`DESTINATION CANT BE DOJ}S.SYS0 0H{ 24Δ 28/L!/) 2 Π 2 0 ξK}hAΞB,0 J 1 BDEHI,HÝDE 1HIHIDELSAVE-GIVE L}FILE,START,END(,INIT,RUN)O S0 1`BDEPHI V` S0H 1 L!M}0 0 1L~0`PLEASE TYPE 1 LETTER,0`hhL! 70 1L0L<1 ,;ɛ7,"ɛ:ݦ1ݥN}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{NAMEO} TOO LONG B VL!` L1I H1EΝDL1|mDiE` V0`8d/8 i:222 1 LP}!ERROR- 144ɛ+,' 20*.. өr2 1``2TOO MANY DIGITSINVALID HEXAQ}DECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8uR} ECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8uM) !"`3!3* 8 MIDCOBAKCOTITCODUPPEADKEFILESTARFLALINEWIDTER@@P@BB@a}P6-?:C:hL,,6-?:C:hL,,E 1BHI-C:,6-P:'A(@ A@ 36-@6-@Pb}'6-@B36-@##@@K:( AA2""(@ DRAPER PASCAL4""(c}@ 7]-@@5(@1) READ INTRO DOCS@(@](@ 2) RUN PASCALK<d})@6-&@H< )!@@uPA@QΠà͛RB +Ae}1A B% D:PASCAL.V21SΠŠŠTd;@,#6. D:PASCAL.V21.@K@f}@U+d6-?:AUv,l -@@6?P<2A@@ b2g}l A################################## TEXT DISPLAY TO SCREEN OR #### PRINTER by Les Ellingh}ham ################################=;@,%6.D:PASCAL21.DOC16-=6-&V@@i}6@@V@@K:0" A:) A6-%@)-@j}D)@N/!&@*"@2"( %'/ A0X(@>:,b*"AU' 6-%@* Ak}0l v"F:@,!@!" A`!@T A` Ap(ԠΠϠ)@l}(>:A%,$ F:A,A6AP:F:A,"A6#@.@:6-@a(0(%Em}ND OF MANUAL - PRESS TO RE-RUND(ANY KEY TO EXITVAdAUa@F:B2y,"@%5F:Adn},AU*AdAU5%D:MENU A *'(ERROR F:A, CHECK DISK*@*@$o}&-@@"(@&  6-$) +@@) A  '-@@'( DRAPp}ER PASCAL*'('( (S)creen or (P)rinter4)@>!!"@)"AApH!!"@)"AAq}`R A \26-@7/@@E:2$f""? :? "Width 1) 40 columns"p? " 2) 80 r}columns"z66GET #2,KEY:KEY=KEY-48:IF KEY<1 OR KEY>2 THEN 61026-@@/@@P:2$B A s}0(ˠҠĠԠBAdAU)@@ A / +@/6-F:t}A`,%AV$F:Aa,+%@@q+%@A@'AA'A $D:u}MENU,%AV$F:Aa,+%@@q+%@A@'AA'A $D:D:MENU,%AV$F:Aa,+%@@q+%@A@'AA'A $8<<  B JKIHiDiELV`L8 8 BLV`Lxx}8t8l Lu8hihiHHȱȱL8c !#3`Lu8JJJJ`H 8h`Hy}ȩh Q8L8 Z8L8 8L8 8L8 8L8S:@9E:E9H '9 H9I9 8 '9h)0ICz}9D9L8 L :::: :Lr:::IEL[::i:iIIL[:`:i::i|}::L:`L{:w:w: C`L:L: D8:MEM.SAV: 8| 9 '9`L:L: D:DUP.SYS:̩ 8}} x:ɀL: '9`88 |9Y:X: '9L); D8:DUP.SYS; 8::88 9 '98? :`;WL`; 9~}Ln; ` :Y;Y;L;L;)} Setting Up ATARI 130XE Ram Disk; 9L; ; -9  } L;D8:; :9 :Y;L BASIC languag}e OBJ > MACHINE language DOC > DOCumentation PIC|MIC|FNT|MVM > Graphics AMS|MUS|MBD > Music LST} > BASIC LISTing -Some MACHINE language programs can only be run by booting the disk MENU "without" BASIC! -For s}ome programs, XL/XE models may require a "TRANSLATOR" program to be booted first! [Also available from BELLCOM] -}Most programs are relatively self-explanatory; however, some have separate DOCumentation files available. Some BASIC} programs may contain instructions in their program listings. -To use this great MENU program on your own disks, }simply copy the file "AUTORUN.SYS" onto your disk. * MENU written by DAVID CASTELL * program on your own disks, ^=================================== Draper PASCAL Vers. 2.1===================================This disk contain }s:The programming Language"Draper PASCAL Version 2.1"This is a Double-Sided Disk withSide A containing all the required }files for Draper Pascal includingthe Compiler and Editor, as well asa couple of Sample files. Side Bcontains the complet }e Documentationfile that will print out to 39pages.You can Load the Main Program"PASCAL.V21" from the MENU or Loadit in } from DOS. You can also Copythe files to another Disk that hasDOS on it and Rename PASCAL.V21 toAUTORUN.SYS to create a A }utobootdisk.This DOC file won't go into anydetails about Draper Pascal exceptto mention that the program DOCssay that D }raper Pascal is aSHAREWARE program. If you likethis program, the author requests adonation.You can Read The Documentati }on onSide B either through the MENUprogram or you can use DOS Copyfunction to your Printer or theScreen. The Documentati }on is in80 Columns so it may not look verygood on a 40 column screen, butthe docs are Pre-Formatted to Copyto your Printe }r without any furthermodifications. Just have at least41 pages of paper in the printer!e-Formatted to Copyto your Printe [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帅幅 -"$}湥ŪūL %L j9 j9 ͤ L0eͤ 8廅ʠ AAƺL0L $} 94 a9L 95 a9L )ȑL 9 a9L : 9 BDEHI L9 a9L 8l 9 9 9 >L = N:8$}L 9 a9 9 a9 9 a9 9 a9L 1L L1 ABL ݅A ح) 9L$}2 9 9 >L pBJݝDAE L9 L ȱ N:%L A0 N:AL#3 N:L j9)8LP3i 8o3p3%L$} ~  :&B L9 < 9LȽML 9NȑL = N: :LML N%B L9 < N:L j9$}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ڥ$}ԅԥ m7 (`8`0?i (۩ ݢ8 `ڢ ڢ ݢ (ۢ `ڢl $} ڥ fƢ ݥ#8@ji@)j `@@ipc <`BJKDE$} L9 < :H B L9 `eeZŭ-Ŭ% ; ;L ű Ű $}`8Ʊ`L=Hh8HȱP`mm` )&H ; > $}: ; N:`BHI L9 <`BDEHI L9 ;I=L~ ; KEY > ;`H BHIh L9 <`ȑ` ; $} ;L ; h U> t=`8񰑰񰑰`&` `> t= t=`H) l>hJJJJ 0:i` &&ԆՠI0 i`$} p U> < HEX = U>ȱ U> < CHAR =ɛ  t=ȱɛ  t= t= +$};8席 ` #L>0)8? @.L? @L? @ 8逮0Τ$}iE @ 8-+ @8 i H }@h }@0iiΤ @- @`A̤L@ $} X@8JJJJ }@) }@ 0 @ @. @0 @ @. @` 0`8`$}A.L@.0Aĸ00̣` @ A` :,80' BĸAḄLAL@`$} BݝDBEHI L9 <` j9`BDEHI L9 <`88尥0`L:e$}e`ȱ N:`LA LA`|L9 <`88尥0`L:e$OoWo_p p pQERROR p ppQpQFILE p!ppQpQLINE p ppQp(}Q ?/"?! pEXPLNERR.PCD p5p/p1D!Dp o_/4Dp5p$p5p/:p5p/p1 0(}p ! pRSVDWRDS.TXT p5p/p1D!Dp0 s  `jp 3C P 0 oAPp p (}}pPpQpQDraper SoftwareppQpQPascal CompilerppQpQVersion 2(}.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 List(} Output Filespec ppQDefault is E: ppQp 1^P!^pp5`E:p51^(}!^ppQ0   ` 2h 0 oPAp5p20 Zp5p2  `H 2h 0 o&P0p5p20 9(}p5p2  ` 2h 0 o_P0 00  0 0000 pP p5p240oeo_p4(}Pp`C!3pp5` @Pp !3p1p513 0!p p9 p:p4P$0$4(}$ap5p2 $zp5p2 `  0 4$pP ` p5p24$0p`N 0pQ (} `00pP p pP `Np4P$0$pP$0p5p2 $9p5p2 ` (} _ '`_PPPPP$ p5p2`@ow "h` 0p51=  `!=p$p5p/p(}1= 0@ "h`0s0  0!=p #C  `, 0o8 0   #(}C p!=`!=p #C `{  0o 0o "h ` 00p51Q!Qp$p5p/p1Q )} 0p5p20@ "h ` $.p5p2` 0!Qp$p5p/p1Q@ "h ` $Ep5p2` !)}Qp$p5p/p1Q@$+p5p2$-p5p2` !Qp$p5p/p1Q@ "h` !Qp$p5p/p1Q)}@o !Qpu05o$:` @$=p5p2` 0@o :p5p20o<`\ @$=`:  0@oV )}>`P 0@oV 0Po>` @$=p5p2` 0@o 0o=` 0@o'` 00)}'0@ ' ` ` !@P $7 0@o 0@o/`$ 0@o(` @$)}*p5p2` 0@0$$p5p2`| @$I`A !3pp5 ` @P!p13 00@@)}p510$ p5p2 ` !p$p5p/p1@o :p5p!p?0 `" ! p!_pA1!p.P)}ASp5p/p1oy S`y @$+`e /?ov -`v /"?PP$*p5p2 ` @o| @$)p5p2` 0)} `| @ ` p70p80p !p@eo (p5p20o%`%p5p20@o$`@0) }00 "h$Ap5p2 $Fp5p2 `$Ap5p2 ` 0p5p20o Ap5p2 0 ) } 0@ 0o4 `$p5p20o$0@P `0 `0oOo_p70p8) }0p  !)p0   `i$pP 0oCPp  !)p p9 p:$pPo_) }$pPp`@o_P  `@P `x `4@ 0 ou   `K4) }@ 4@ 0 4@ou 0 4@ 0 4@o 0 4@ 4)}@ 0   ` 0 4@o 0  0 o_PPPp70p80 )}p9 p:p4P 4$pP 0 4$pP p9 p:ow_   ` @P@e)}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 / /)0}@P / /@P@oP@eo#(`!@e@)p5p2@wPo#`!@oP@e(p)1}5p2@wP@)p5p2@wPp3@Po#`e"@oP@e(p5p2@wP  `"@PP@I0 "A)2} @OPp "AB@P@e)p5p2@wPo#`"@oP@$pE@Po#`"@oP@e(p5p2@w)3}P0 @0 )p5p2@wPo#`#@oP@e(p5p2@wP0 @0 )p5p2@wPPo-  )4}`' `#@oP@e (p5p2 `_#@P@e@6p@P ,p5p2 `# @P@e@6p/@P )5},p5p2 `#p@P)p5p2@wPo'`y$@oP@e(p5p2@wP@6,p5p2 @wP@,p5p2 @wP)6}@wP  `B$@P)p5p2@wP@Pp$@Pp2@Po'`$@oP@$pG@Po')7}`$@oP@e(p5p2@wP0 @0 pD@P)p5p2@wPo'`%@e(p5p2@wP #)8}`B%@e  `7%@P 0o%`|%P@I0 "A  `m% @P "0o%@PP@e)p5p2@w)9}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)A}P@e(p5p2@wP0 @0 p+@P)p5p2@wPo+`*@oP@e(p5p2@wP@)p5p2@)B}wPp@Po+``*@oP@e(p5p2@wP@)p5p2@wP @Po+`*@oP@e(p5)C}p2@wP@6p@P,p5p2 @wP@P@6p?@P)p5p2@wPo+`+@oP@e(p5p2@wP)D}@)p5p2@wPp@Po+`h+@oP@e(p5p2@wP@pP@P)p5p2@wPo+`+)E}@Pp.@P@eo+`+@oP@$pF@Po+`+@oP@$pH@Po+`+@oP@$p)F}I@PPo- `,,@Pp.@P@eo-`v,@oP@e(p5p2@wP@)p5p2@wPp@)G}Po-`,@oP@e(p5p2@wP@)p5p2@wPp@Po-`,@oP@P@eo-`-)H}@e(p5p2@wP  `-%@PP@I0 "A "A `E-%@P "A @OPp@Pp )I}0@P@e)p5p2@wPo-@PP_P@% *p5p2     `)J}. 0 `.0 @e@% *`(. @Po.`C. @Po.`[.@Po.`s)K}.@Po.`.@Po.`.@PPo-_P +p5p2 -p5p2`/ 0@e@- )L}-p5p2`. @Po/@- +p5p2 -p5p2 `/ 0 `J/0 @e@- +`)M}q/ @Po/-`/ @Po/`/@PPo/_PP@.    `1 0@e )N}a/`0p@P `0P@I0 "Aa*0`10@6o0aC0`v0 "A @OP)O}@Pp5@P@eo0 @PPo0`0@6o0 @PP0o1`D1 a0a0a0)P}`0p5@Pp2@P0@.o>1a1`51p5@Pp@P@60o>1 @PPo1ag1)Q}ag1ag1`10 `1@6p2@Po1@.o1a1`10@.P  @P)R}on3o1_PPP   `2 @P `2P@I0 "Aa82`?2@6oy2 ``2 )S}"@P@eoy2 "A @OP@ePo 3`2  `2@6o2'@P@eo 3`2 )T}@P@eo 3-`3@e@wP @P@eo 3 @PP @P ,p5p2`l3p70p80`)U}@P@e@1   @P_PPPP@1:p5p2@wPp70p80`@P@i ;`4@e )V}`3   @P@eo4`Z4p70p80o@P   @P@e@i ;p5p2`94@e@w)W}P   @Po4p70p80o@P   @P@n3   @PPoB5`4   @)X}P@eoB5`95p70p80o@P   @P@e@i ;p5p2`5@e@wP   @PoB5)Y}@PPoJ5_ #`m5@e@/@oPo5`5P@I0 "A `5 "@P@eo5 `5@)Z}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)a}`>9@e0 @/ 0 oH9@PoT9 @PPp "AC@P )p5p2 `9@Po:`*:@e (p5)b}p2 `9@P@e@6p@P ,p5p2 `9 @P@e@6p/@P ,p5p2 `9p@P )p5p2 )c}`':@Po:`:@e(p5p2@wP@6,p5p2 @wP@/,p5p2 @wP@/ )p5p2 `:@Pp$@)d}Po: @PP0 @OP@eo;`~; "`:@ @OPo{;0 (p5p2 `;@P@e0 @/)e} 0 ,p5p2 `;  " `L;#@P)p5p2@wP@ @OPP @Po; @PPoO)f}`;pN@P@eoO`;pO@P@eoO`;@e@c6 ;p5p2 `;@wPoO`7<@e(p5p2@w)g}P@6)p5p2@wPp1@PoO`<@eP@I0 "A0@/  `s<@P  `<p )q}b%DOS SYSb*)DUP SYSbSAUTORUN SYSb TINTRO SYSb`TITLE SYSb_MENU b wRAMDISK COMHELP DOCb PASCAL21DOCbRPASCAL V21bCOMPILERPCDb-EDITOR PCDbEXPLNERRPCDbINIT PCDbINIT PASbSAMPLE1 PASbSAMPLE2 PASb!ERRORS TXTb)RSVDWRDSTXTb/RAMDISK1DATb0RAMDISK2DATb1RAMDISK3DATb6NOTITLE OBJb7SAMPLE1 PCDb:SAMPLE2 PCD@P@e@n3 a<`@e  `=@)r}PP@I0 "A0       `W= @P@e @wP 0 @/0  @OP )s}`=0o=`=0o=@PP@e@/ 0 @P  @OP `>  @Po)t}>  @Pp70 p80 `@P@wP@c6  @OP  @P0  @OPo @P )u} @P `>0o>0P @PoO`b?@e@/@wPp70 p80 `@P@c6 )v}`L?p70 p80 o@P @P@e@c6 @Po_? @PoO`? 0@e@c6)w} ;p5p2 `s?@wP@/` @PoO`@ 0@e@/p70 p80 `@P@wP@c6o @)x}P @PoO`@@e(p5p2@wP@PP@I0 0 "A @OPP@P@e,)y}p5p2 @wP@/,p5p2 @wP@/)p5p2@wPp@@P0 "A @OPoO`A@e(p5p2@wP@6)z}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 /"?ppQ 0 oYPpQ 0 p Compiler table entries usedpp(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( `--}ppQ `p`@p 3Pp(`p p p  ppQo7-} 0p  p lines now in memoryppQo_P@=p-}Pp 1bPpPp 1P!bp 0  0   `< #p170!-}bp!7p?0 !bp!7p? `00!7_  p@17!p!7_ pA17 !7p1 `/ -}@P!7ppQ@  0oyPoD_@= pPp 1bP 0   ` -}#p17!bp!7p? ` @P!7ppQ@ $` 0 0oPo_      A-} - Append fileppQ      D - Directory listppQ      L - Load-} fileppQ      S - Save fileppQp4P$Ap5p2$Dp5p2$Lp5p2$-}Sp5p2`$A`?  `80@ovD`O@ ovL`i00@ovS`v@P_TPPP-}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 ,}o_PPQPTTQ/41Dp5p$1p5p/:p5p/p120/0!2pERRORS.TXT p5p/p11}p !p   ` 0p 1Po!ppQp  ppQError detectedpp1}QpQEnter E to return to EditorppQ   or M to return to Main M1}enuppQp40P$0Ep5p2$0Mp5p2`$0E`!2pEDITOR.PCD p5p/p1!p o$M1}`$!2pINIT.PCDp5p/p1!p P0}oWo_pQpPt4bP_Q QQPPTTQ/4c5}Dp5p$cp5p/:p5p/p1dp?}pPp           DRAPER PASCALppQpQ 5}           VERSION 2.1ppQpQ        1 - Run ProgramppQpQ    5}    2 - Disk DirectoryppQpQ        3 - Compile ProgramppQpQ 5}       4 - Edit a ProgramppQpQ        5 - Exit to DOSppQpQ 5}       6 - List a fileppQpQ        7 - Trace onppQp      5}    Copyright 1989ppQ          by Norm DraperpPpt4bP$b05}p5p2 $b8p5p2 `Y$b1`  Enter name of program to be run!ppQpQ?5}! qB0a0` ` `, a ` `/? `0`oP        pP! ppQ     5}   ppPp 1P!qB0a0` ` ` ` a `/? `0`oP.p5p!p?0` `5} `\!p 0a!_ ` a `p@1pQSuffix not required, ignoredppQpQ:5}p5p!p?`!dp!_pA1!p.PCDp5p/p1 p;! pp(0`p ``5}ppQp; ``}pP! p o? 2`zp ?Filespec?  pPp 1P5}?!pp5`!dp*.*p5p/p1:p5p!p?`!dp!_pA1:p5p!p?!p `*.5}*p5p!_!p pA1!pp 1 P}pPp`D! ppQp 1 Pop @!dp5}INIT.PCDp5p/p1 ! p o? 3`p6Loading Compiler...ppQ?!dpCOMPI5}LER.PCD p5p/p1 ! p o? 4`]p6Loading Editor...ppQ!dpEDITOR.PCD p5p/5}p1 ! p o? 5`r?p*o? 6` Enter filename of file to be listed#pp5}Q?pQp 1 P?:p5p! p?` !dp! _pA1 p ! pp 1P}pPp5}`h !ppQp 1PoA p @!dpINIT.PCDp5p/p1 ! p o? 7`? ?Enter num5}ber of entries to maintain: %ppQp0`P `p"!dpINIT.PCDp5p/p1 ! p P5} of entries to maintain: %ppQp0`P `p"!dpINIT.PCDp5p/p1 ! p P4(* INITIAL MENU PROGRAM *)(* AS OF 09/08/89 *)(*$S+*)PROGRAM INIT;CONST CLEAR=125; CURSOR=752; ON=0; OFF=1; 9} RAMTOP=$6A; LASTFILE=$1D82; DEFAULT_DRV=$1D94;VAR BASENAME:STRING[11]; PGMNAME:STRING[30]; DATA:STR9}ING[128]; I,J:INTEGER; REPLY,DRIVENO:CHAR; DRIVE:STRING[3];PROCEDURE PRESSANY;BEGIN WRITELN; WRITE('9}'); READ(REPLY) END; BEGIN (*MAIN*) DRIVENO:=PEEK(DEFAULT_DRV); DRIVE:=CONCAT('D',DRIVE9}NO,':'); GRAPHICS(0); POKE(CURSOR,OFF); WRITE(CHR(CLEAR)); GOTOXY(2,0); WRITELN(' DRAPER PASCAL'); WRITELN; 9}WRITELN(' VERSION 2.1'); WRITELN; WRITELN(' 1 - Run Program'); WRITELN; WRITELN(' 2 - Disk Direc9}tory'); WRITELN; WRITELN(' 3 - Compile Program'); WRITELN; WRITELN(' 4 - Edit a Program'); WRITELN; WRITE9}LN(' 5 - Exit to DOS'); WRITELN; WRITELN(' 6 - List a file'); WRITELN; WRITELN(' 7 - Trace on'); GO:}TOXY(2,22); WRITELN(' Copyright 1989'); WRITE(' by Norm Draper'); GOTOXY(2,18); REPEAT READ(REPLY) UNT:}IL (REPLY>'0') AND (REPLY<'8'); CASE REPLY OF '1': BEGIN (* Run Program *) REPEAT WRITELN(' Enter name of progr:}am to be run'); WRITELN; POKE(CURSOR,ON); J:=ADDR(PGMNAME); FOR I:=0 TO 16 DO POKE(J+I,PEEK(L:}ASTFILE+I)); WRITE(' '); WRITELN(PGMNAME); WRITE(' ',CHR(28)); READLN(BASENAME); :}J:=ADDR(BASENAME); FOR I:=0 TO 16 DO POKE(LASTFILE+I,PEEK(J+I)); I:=POS('.',BASENAME); IF I<>0 THEN:} BEGIN J:=LENGTH(BASENAME); DELETE(BASENAME,I,J-I+1); WRITELN; WRITELN('Suffi:}x not required, ignored'); WRITELN END; IF POS(':',BASENAME)=0 THEN INSERT(DRIVE,BASENAME,1);:} 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 *) :}MAXGRAPH(0); WRITELN('Loading Compiler...'); POKE(CURSOR,ON); PGMNAME:=CONCAT(DRIVE,'COMPILER.PCD');:} XCTL(PGMNAME) END; '4': BEGIN (* Edit a Program *) MAXGRAPH(0); WRITELN('Loading Editor...'):}; PGMNAME:=CONCAT(DRIVE,'EDITOR.PCD'); XCTL(PGMNAME) END; '5': BEGIN (* Exit to DOS *) POKE(:}CURSOR,ON); DOS END; '6': BEGIN (* List a file *) WRITELN('Enter filename of file to be listed'); PO:}KE(CURSOR,ON); WRITELN; READLN(PGMNAME); POKE(CURSOR,OFF); IF POS(':',PGMNAME)=0 THEN INSERT(DRIVE,PGMN:}AME,1); CLOSE(#1); OPEN(#1,4,0,PGMNAME); READLN(#1,DATA); WRITE(CHR(CLEAR)); WHILE NOT EOF(#1) DO B:}EGIN WRITELN(DATA); READLN(#1,DATA) END; CLOSE(#1); PRESSANY; PGMNAME:=CONCAT(DRIVE,'INIT.PCD'); XCTL(P:}GMNAME) END; '7': BEGIN (* Trace on *) POKE(CURSOR,ON); WRITELN('Enter number of entries to maintain: '); READ(:}I); TRACEON(I); PGMNAME:=CONCAT(DRIVE,'INIT.PCD'); XCTL(PGMNAME) END ENDEND.entries to maintain: '); READ(8[PROGRAM KALEIDOSCOPE;VAR I,J,K,W,X:INTEGER;BEGIN MAXGRAPH(19); GRAPHICS(19); X:=0; REPEAT FOR W:=3 TO 50 DO BEGIN >} 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(I>}+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); >} PLOT(I+8,24-K); PLOT(32-K,I) END END END UNTIL X=99 (* UNENDING LOOP *)END. PLOT(32-I,K); <cPROGRAM ROMAN;(* ROMAN NUMERAL SAMPLE PROGRAM *)(* ADAPTED FROM PASCAL USER MANUAL AND REPORT BY JENSEN AND WIRTH B} *) VAR X,Y:INTEGER; BEGIN Y:=1; REPEAT X:=Y; WRITE (X,' '); WHILE X>=1000 DO BEGIN WRITE ('M'); X:=X-B}1000 END; IF X>=500 THEN BEGIN WRITE ('D'); X:=X-500 END; WHILE X>=100 DO BEGIN WRITEB} ('C'); X:=X-100 END; IF X>=50 THEN BEGIN WRITE ('L'); X:=X-50 END; WHILE X>=10 DO BEGIN B} WRITE ('X'); X:=X-10 END; IF X>=5 THEN BEGIN WRITE ('V'); X:=X-5 END; WHILE X>=1 DO BEGB }IN WRITE ('I'); X:=X-1 END; WRITELN; Y:=Y*2 UNTIL Y>5000 END.; X:=X-5 END; WHILE X>=1 DO BEG@PCompiler table overflow (max 200)Number expected'=' expectedIdentifier expectedConstant type identifier, number, or strinF"}g constant expected'BEGIN' expectedToo many nesting levels':' expected'.' expected';' expectedUndeclared identifierInvF#}alid type of identifier':=' expected'END' expected';', 'ELSE', or 'END' expected'THEN' expected'#' expected'DO' expecteF$}d'#' or FILE type identifier expected'[' expected']' expected')' expectedIllegal factor or identifier typeINCLUDE file F%}nesting too deep'OF' expectedMismatched data types'TO' or 'DOWNTO' expected'UNTIL' expectedRange error'(' expected','F&} expectedLiteral too long or missing end quote (')'END' but no RECORD startedIncorrect number of parametersINTEGER type iF'}dentifier expectedSTRING type identifier expectedREAL type identifier expectedCHAR type identifier expectedFILE type idenF(}tifier expectedHEX type identifier expectedSTRING constant expectedCHAR type identifier expectedFILE type idenDQABSADDRANDARCTANARRAYASCBEGINBLOADBOOLEANCALLCASECHARCHRCLOSECOLORCONCATCONSTCOPYCOSCVTREALDEGDELETEDIVJ*}DODOSDOWNTODRAWTODUMPSTKDVSTATELSEENDEOFEOLNEXITEXPEXP10FALSEFILEFORFUNCFUNCTIONGOTOXYGRAPHICSHIMEMIFIJ+}NSERTINTEGERIORESULTKEYPRESSLENGTHLNLOCATELOCKLOGLPENHLPENVMAXGRAPHMODNOTNOTEODDOFOPENOPTIONKEOPTIONSOROJ,}RDPADDLEPEEKPLOTPOINTPOKEPOSPROCPROCEDURPROGRAMPTRIGPURGERADREADREADLNREALRECORDREPEATRESETREWRITERNDSELJ-}ECTKESETCOLORSHLSHRSINSOUNDSQRSQRTSTARTKEYSTATUSSTICKSTRSTRIGSTRINGTHENTOTRACEOFFTRACEONTRUEUNLOCKUNTILVJ.}ALVARWAITWHILEWRITEWRITELNXCTLXIOSTARTKEYSTATUSSTICKSTRSTRIGSTRINGTHENTOTRACEOFFTRACEONTRUEUNLOCKUNTILVH)PZPWPDTXPEUYPHZPIB VVPHXIY B V`VP`[PkPONTRUEUNLOCKUNTILVLgD1:D8:INIT.PCDEDITOR.PCDCOMPILER.PCDEXPLNERR.PCDERRORS.TXTRSVDWRDS.TXTAUTORUN.SYS`[PkPONTRUEUNLOCKUNTILVPZo_TPPQQQQQD1:COPYLIST.TXTp5pp 1Pp 1 P! pCOMPILERV2}.PCD p5p/p1(p;!(pp(0p;p  `D1:COPYFILE.OBJp5p1/0 0 V3}/0Copying:ppQp 1Pp`!p!p/p1! p!p/p1(!p -> V4}p!(ppQp p !p!(p Op p p 1Po,p ! qB0 /?! pIV5}NIT.PCDp5p/p1(!(p NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNT}wPCDp5p/p1(!(p NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNXo_PPPPPp6p002  `90   `)0   `  0   ^8}  p  p  p  p  p  p  p  ^9}p  p 0oOP 0o=P 0o*P c`" p  p  \Ro_PP0 0 p pP  `YMpP 0o0  `DpP 0b;} d `CpP d0o 2 `LpP 20   `XpP  0o  `b<}VpP 0  `<IpP 0opQ 0  `P  0o  ``b