@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@P!( 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 ALLOWED736 FREE SECTORS COPYING---D1:DIRECK.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- 138ɛ+,' 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 D8u0^3E: ~0 0 2 0`` ӭJ 2 92Please remove the cartridge 92and re-boot the disk.MT}Lw0`8|0` 2 92The current value of MEMLO which is J300 J300 92$XXXX, is too high for the U}Draper 92Pascal Supervisor to be loaded. The J3_1`1| J3a1b1 92maximum value for MEMLO is $YYYY. 92The mV}ost common cause of this problem 92is from DOS allocating too many 92buffers. Consult your DOS manual for 92inW}formation on lowering the number 92of buffers. 92Press .L62UThN2hO2N2O2M2H` BHIDEh VX}LE2O2HN2H`` B V` x2`BD0EJK VV 92}`wLI3 2 92D R A P E R 92P A S C A LY} 922 . 1 92from  92Draper Software  92Copyright 1989  92By Norm Draper x2`H) V3hJJJJ 0:i`Z}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! < ś <<b}>Repeat,<>Menu,<>Exit ;/ 8 8l  >L)! 6"L)!, W9 L,д W9 L2c}ȥȥȥȌi iū Ū -"L6 `Ŭ ŭ A#B#hH `>D#E#h)p H `>G#H#h 0e}@ `>J#K#8Hȱ `>9#:#h `>;#<#ȱ `>R#S#ȱ `>P#Q#ȱ `>X#Y#ȱ `>Z#[# L a9ƮƮL 殥L#Ʈ, $ȹ $HH`L=6$^${$$$$H%_%{%%%%%%%%%% &#&F&l& N:ȱh}iȱiL 9 A>L 9 D ` 9L 9 = N:qȥqL 9 fڠ L& 9 = N:8帑ȱ幑L 9 i}`ڠ L& 9 = N:ȱ >< >L 9 ڠ L& 9? = 0< N: = 0< i< 0< >L 9 (j} L& =$ =L =L = N: = i<ȭL ; =L =L ; ; ;߰ݐ ;ܰԐ ;͐˰ = N:k}ȥL = N:1ȥ1L IL = N: =& >L = N: =Ff >L 9qqL 9l} 9 fLh& 98ȱL 9 9 `ڠ L& 9 9L N: N: "; 9 9 9 9 9L  < D 9L m})HhLC( '(h)%3FBD F 9ȱL ȥ }' 'L 9 9 9L J'L& _'L' A pAn} AL =&ee` = =&ee&LQ'iHiH = N:8席! ; ;hhL~ , >ee` =ȑL )L7) '()e% 9 ()L }' (L N: J' 9 () N:L N: N: N: _q}' 9 ) N:L A A AL N: N: )L ͣ ̤ AL )` N:`r}ȱ N:` N: = 9 N: N:L )? _:ȥȥȥiȥi "; +; :L0 =)HHls} N:L )&"o L*cL= )L 05 6 9) a98L)&t}ee` 9 a9L@* = 9 >, 9Jȑ 9L^*8ŸŹL = N: )8u}L ) N:Ÿ :L0 L Ʈ0TL* *ȹ*HH`L=+++,,,-(-+-`-l----. .2.Y.`.|..../ /&/O/v}b/u////0!0'000011"1-1P1V1e111112222363z33333T4Y4^4444e5555555666'626=6D6K6s6~66w 9Lw}+ : 8L+ :HJJJJhHɛ h L+)hH 9hȑL AAAȌ N: @L r 9L , : 9 :+x}-+ȹ0;:7H&eeh)eeL+, >)$ ; y} ;- A>L AA = N: 9; @L : 9 : >ԑȑL AA `>AA `>AAL - `>AA N: @Lz} 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:eOoWo_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 / / }@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 0}@J5P,p5p2 @wP@PP@I0 @OPp9@P@e,p5p2 @wP@PP@I0 @OP 1}p:@P@e)p5p2@wPoO`D@e(p5p2@wP@6p>@P)p5p2@wPoO`E@e(p5p2 2}@wP@6p=@P)p5p2@wPoOaE`lG 0@e (p5p2`HG@e@J5P )p5p2 ` G@ 3}P ,p5p2`qE@e %p5p2`E0@eoE00 @/ aEaE `E 0okFaE 4}aE`E 0okFaE`F0okFaF`"F0okF`4F0okF `bFP@I0 "B 5}@PS0okF @PP   `F :p5p2`F@e0 @/@oPoF@P  `F :p5p2`F@e 6}0 @/@oPoF@Pp @P ,p5p2 `PE `&GpQ@Po4GP@P)p5p2@wPoiG  7}`iG@PpQ@PoO`G@e (p5p2 `G@P@e@J5Pp @P ,p5p2 `G)p5p2 8}@wPoOaG`gJ0@e (p5p2 `H@P@e@J5P@P ,p5p2`3H@e  `FH@P 9}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!@ A}P@eoO`Lp-@P@e(p5p2@wP0  `L@PP@I00 @OP@e,p5p2 @wP B} 0ojLP@PP@I00 @OP@e)p5p2@wPoO`Mp@P@eoO`1M@5Pp C}@PoO`RM@5Pp@PoO`sM@5Pp4@PoO`M@5Pp6@PoO`M@5 D}Pp@PoO`N@e(p5p2@wP@/,p5p2 @wP@/)p5p2@wP0@PoO`0N@5P E}p@PoO`QN@5Pp@PoO`mNp#@P@eoO`N@e (p5p2`N@e@/)p5p2 F}@wPoN@Pp"@PoO`N@5Pp,@PoO`&O@e(p5p2@wP@6p @P)p5p2 G}@wPoO`O@e(p5p2@wP@,p5p2 @wP@J5P,p5p2 @wP@,p5p2 @wP@,p5p2 @ H}wP@6p@P)p5p2@wPP_PPPPPPPPPPPPPP00p70 p80o@P I} `Q@e  `6P@P!=p1D@e@wP `gP 0oP`yP0oP-`P@e ` J}P 0 0oP`P0%5oP@PPoP@PP@/!Dp1= @P;p5p2 @wP K} `6P `U@e0 000 0 `YQ@PobQ@P@e ,p5p2`~Q@eoQ0 `DQ L}:p5p2@wP `!R@e[p5p2@wP@/ 0 ,p5p2`Q@e@/ 0 ]p5p2@wP  M} `R@P@wP a7R`IR00 @eowS`eR00 @eowS`R00 @eowS N}`%S0P0@e [p5p2`S@e `RoS`RP@I0 "A  `R @P "0oS@P O}P@e]p5p2@wP 0 owS`_S  `AS@P 0  00 @eowS`wS 00 @eP  P} 0  `S `S0oS`S0oS`S0oS`S0oS @PP 0 Q}   `'U  2A  2B  2  `\T 0 0     R}0  `T  `T@P  2 0 oTaTaTaT`T  2  2 S}P  `U 0 0oTP;p5p2 @wP `U `YU"@P  "2B T}0 @e;p5p2 @wP  `+Q  `1V `U0oU 0@e `U @PoU@P 0 U}@e @P  @OP 0;p5p2 @wPoU `W  @P 2P@P  V} `W 0   `W "B `W " "0 "A`VP "B@PoW` W W} @PP "B@PoWaW`2WP "A@PoWaDW`gW @PP "A@PoW X}`WP "A@PoW`W @PP "A@PP 0oVP@e@c6 ;p5p2 `W@wP Y}@PoW@P_PPPPPPPPPPPPPPPTTTPPPPPPPUWQQQQ Z}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            EDITORppQpQa}      A - Add line(s) at endppQ      C - Change line(s)ppQb}      D - Delete line(s)ppQ      E - Edit line(s)ppQ     c} F - Filer menuppQ      I - Insert before lineppQ      L - d}List line(s)ppQ      M - MenuppQ      P - Print line(s)ppQe}      Q - QuitppQ      S - Scan line(s)ppQ      X - Exit f}to CompilerppQo_ d `, pP   `E pP p:pPoa_ @g}PR ?p 17Pp(`p p p  ppQR ?U ?o_ q}B%DOS SYSB*)DUP SYSBRSAUTORUN SYSBCOMPILERPCDB-`EDITOR PCDBERRORS TXTBEXPLNERRPCDBINIT PASBINIT PCDBNOTITLE OBJB PASCAL TXTBRAMDISK1DATBRAMDISK2DATBRAMDISK3DATBRSVDWRDSTXTBSAMPLE1 PASBSAMPLE2 PAS0  `8ppQ0o=_0  0 r}  pPp 17P!7pp5 `!7pp00   `0    ` 0   s}pPp 17P!7pp5 `!7pp00    `% 0    `: 0 o?_0@= 0  t} ` @PR ? #ppQ0  #p (   `pP 0 oPp 3PR u}?U ? 0oXPo_ pP!7qB0 0   `t  v} /? 0 oCP!7ppQ                   ppPp 1P!qB0 0w}   `    /? 0 oP:p5p!p?`;!2p!_pA1!p 0.p5p!x}p?`.PASp5p!_ pA1o_ pPp0 P  `0 o_@0 y}p !pp(0   ` 0 oK0   `H #ppQp(0   `; 0  0oPz}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 }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}d'#' or FILE type identifier expected'[' expected']' expected')' expectedIllegal factor or identifier typeINCLUDE file }nesting too deep'OF' expectedMismatched data types'TO' or 'DOWNTO' expected'UNTIL' expectedRange error'(' expected','} expectedLiteral too long or missing end quote (')'END' but no RECORD startedIncorrect number of parametersINTEGER type i}dentifier expectedSTRING type identifier expectedREAL type identifier expectedCHAR type identifier expectedFILE type iden}tifier expectedHEX type identifier expectedSTRING constant expectedCHAR type identifier expectedFILE type idenQo_PPQPTTQ/41Dp5p$1p5p/:p5p/p120/0!2pERRORS.TXT p5p/p1}p !p   ` 0p 1Po!ppQp  ppQError detectedpp}QpQEnter E to return to EditorppQ   or M to return to Main M}enuppQp40P$0Ep5p2$0Mp5p2`$0E`!2pEDITOR.PCD p5p/p1!p o$M}`$!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; } RAMTOP=$6A; LASTFILE=$1D82; DEFAULT_DRV=$1D94;VAR BASENAME:STRING[11]; PGMNAME:STRING[30]; DATA:STR}ING[128]; I,J:INTEGER; REPLY,DRIVENO:CHAR; DRIVE:STRING[3];PROCEDURE PRESSANY;BEGIN WRITELN; WRITE('}'); READ(REPLY) END; BEGIN (*MAIN*) DRIVENO:=PEEK(DEFAULT_DRV); DRIVE:=CONCAT('D',DRIVE}NO,':'); GRAPHICS(0); POKE(CURSOR,OFF); WRITE(CHR(CLEAR)); GOTOXY(2,0); WRITELN(' DRAPER PASCAL'); WRITELN; }WRITELN(' VERSION 2.1'); WRITELN; WRITELN(' 1 - Run Program'); WRITELN; WRITELN(' 2 - Disk Direc}tory'); WRITELN; WRITELN(' 3 - Compile Program'); WRITELN; WRITELN(' 4 - Edit a Program'); WRITELN; WRITE}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([oWo_pQpPt4bP_Q QQPPTTQ/4c!}Dp5p$cp5p/:p5p/p1dp?}pPp           DRAPER PASCALppQpQ !}           VERSION 2.1ppQpQ        1 - Run ProgramppQpQ    !}    2 - Disk DirectoryppQpQ        3 - Compile ProgramppQpQ !}       4 - Edit a ProgramppQpQ        5 - Exit to DOSppQpQ !}       6 - List a fileppQpQ        7 - Trace onppQp      !}    Copyright 1989ppQ          by Norm DraperpPpt4bP$b0!}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!} of entries to maintain: %ppQp0`P `p"!dpINIT.PCDp5p/p1 ! p P wof entries to maintain: %ppQp0`P `p"!dpINIT.PCDp5p/p1 ! p P$Return-path: Received: from TERMINATOR.CC.UMICH.EDU by STONY-BROOK.SCRC.Symbolics.COM via INTERNET w)}ith SMTP id 804592; 5 Jun 90 17:45:18 EDT Received: from iris.ucdavis.edu by terminator.cc.umich.edu (5.61/1123-1.0) id AA13)}863; Tue, 5 Jun 90 17:44:48 -0400 Received: by iris.ucdavis.edu (5.57/UCD.EECS.2.0) id AA15779; Tue, 5 Jun 90 14:42:51 PDT D)}ate: Tue, 5 Jun 90 14:42:51 PDT From: hulse@iris.ucdavis.edu (C. Andy Hulse) Message-Id: <9006052142.AA15779@iris.ucdavis.edu)}> To: jrd@terminator.cc.umich.edu Subject: pascal.uue This is a Uuencoded arc file of Draper Pascal. Draper Pascal is a sh)}areware Pascal compiler that incorporates a subset of Pascal (I don't think it has pointers), and extra commands for graphic)}s and DOS calls. I haven't played with it much yet, but it appears to only compile to p-code; that is, it checks syntax, and)} compiles the program to 'tokens', much as BASIC does. The documentation for Draper Pascal is a companion archive, pasdoc.ar)}c. Enjoy! --Andy Hulse hulse@iris.ucdavis.edu BTW, Many thanks to siders@cis.ohio-state.edu for sending this to me. oc.ar(xPZPWPDTXPEUYPHZPIB VVPHXIY B V`VP`[PkPding this to me. oc.ar,gD1:D8:INIT.PCDEDITOR.PCDCOMPILER.PCDEXPLNERR.PCDERRORS.TXTRSVDWRDS.TXTAUTORUN.SYS`[PkPding this to me. oc.ar0Zo_TPPQQQQQD1:COPYLIST.TXTp5pp 1Pp 1 P! pCOMPILER5}.PCD p5p/p1(p;!(pp(0p;p  `D1:COPYFILE.OBJp5p1/0 0 5}/0Copying:ppQp 1Pp`!p!p/p1! p!p/p1(!p -> 5}p!(ppQp p !p!(p Op p p 1Po,p ! qB0 /?! pI5}NIT.PCDp5p/p1(!(p NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN4}ABSADDRANDARCTANARRAYASCBEGINBLOADBOOLEANCALLCASECHARCHRCLOSECOLORCONCATCONSTCOPYCOSCVTREALDEGDELETEDIV9}DODOSDOWNTODRAWTODUMPSTKDVSTATELSEENDEOFEOLNEXITEXPEXP10FALSEFILEFORFUNCFUNCTIONGOTOXYGRAPHICSHIMEMIFI9}NSERTINTEGERIORESULTKEYPRESSLENGTHLNLOCATELOCKLOGLPENHLPENVMAXGRAPHMODNOTNOTEODDOFOPENOPTIONKEOPTIONSORO9}RDPADDLEPEEKPLOTPOINTPOKEPOSPROCPROCEDURPROGRAMPTRIGPURGERADREADREADLNREALRECORDREPEATRESETREWRITERNDSEL9}ECTKESETCOLORSHLSHRSINSOUNDSQRSQRTSTARTKEYSTATUSSTICKSTRSTRIGSTRINGTHENTOTRACEOFFTRACEONTRUEUNLOCKUNTILV9}ALVARWAITWHILEWRITEWRITELNXCTLXIOSTARTKEYSTATUSSTICKSTRSTRIGSTRINGTHENTOTRACEOFFTRACEONTRUEUNLOCKUNTILV8)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 A} *) VAR X,Y:INTEGER; BEGIN Y:=1; REPEAT X:=Y; WRITE (X,' '); WHILE X>=1000 DO BEGIN WRITE ('M'); X:=X-A}1000 END; IF X>=500 THEN BEGIN WRITE ('D'); X:=X-500 END; WHILE X>=100 DO BEGIN WRITEA} ('C'); X:=X-100 END; IF X>=50 THEN BEGIN WRITE ('L'); X:=X-50 END; WHILE X>=10 DO BEGIN A} WRITE ('X'); X:=X-10 END; IF X>=5 THEN BEGIN WRITE ('V'); X:=X-5 END; WHILE X>=1 DO BEGA}IN WRITE ('I'); X:=X-1 END; WRITELN; Y:=Y*2 UNTIL Y>5000 END.; X:=X-5 END; WHILE X>=1 DO BEG@P