KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK hh  6HHHH6HHHHhhhhhhhh ȟɟ23456789:;<=>?Ɵǟ@AȟɟBC6HHK ? ]   & 89  ? ]  :; & 89  ? ] @A & ? ]   & 89  ? ]  89L( & 89  ? ] >?   ? S  89LJ`Kz{ |}<=~ R~<=z{|}89~ R~89>? & 89  ? ]  45( & <=  ? + 89  ? KKKKKjHH6HHDHHhhhhhhhh  ŅHHhh HH@hh  L `6!2h HHhh ȟɟaTf bcde  Ɵǟȟɟ6HHHH6HHHHhhhhhhKaPf b cde  aPf b!cde  HHhh HHhh ȟɟaTf bcde  Ɵǟȟɟ6HHHH6HHHHhhhhhhK ]  2345 HH23 HHhhhh L 45<=45 L45 23>?23 L}23 & 67  K:;~ R~:;z{BC|}67~ R~6767HHhhB U 67z{ |}>?~ R~>?K L aPf b cde  aPf b!cde   HHhh HHhh PHHHHXHHhhhhhh  PHHHHhhh  `L  `8`` %-' %& % % % %` ` ݽLz{ yL IL̼ ? L+/0ȑ/e/0e02 /1 ~` L~ ` L1~ ` LR~  ` Ln~ ` L~ ∈حLU I` -8..`& ~` L~ ` L1~ ` LR~  ` Ln~ ` L~ ∈حLU I` -8..`&  `L  `8`` %-' %& % % % %` ` ݽLz{ yL IL̼ ? L+/0ȑ/e/0e02 /1 LL@HHHHhhhh BHHHHhhhh CHHHHhhhh DHHHH hh MHH HHhhhh NHH HHhhhh RHH HHhhhh THH HHhhhh V HHhhhh dHHHHhhhh gHHHHhhhh jHHHHhhhh oHHHHhh h 5 ŅHHhh   LHHJHHhhhh  HH}HH TESTFILE,S,Rhhhh   PHHHHhhhh Z O    xHHHHhhhh yHHHHhhhh `LU~HHhh  |} & ? + z{ & ? ]  ~`Lz{|} h 5 HH HHhhhh HH>HH0:TESTFILE,S,Whhhh   PHHHHhhhh 5    O HHHHRROR=hhhh 5 L5`x 1X`#$X` HEHFH hFhEh L1 ` , ee` - )FjFjFjee8*` O1` O I%``0L jHH6HHDHHhhhhhhhh  ŅHHhh HH@hh  L `6!2h HHhh ȟɟaTf bcde  Ɵǟȟɟ6HHHH6HHHHhhhhhh `"eZe[eXeYḶ0 `  ` ݽ. E2ȱE&L L  L `` `"eZe[eXeYḶ0 `  ` ݽ. E2ȱE&L L  L `` L5`x 1X`#$X` HEHFH hFhEh L1 ` , ee` - )FjFjFjee8*` O1` O I%``0L  hhhh EHHHHhhhh FHHHHhhhh GHHHHhhhh HHHHHhh HH HHhhhh YHHHHhhhh [HHHHhhhh ]HHHHhhhh cHHʍ O HHHHRROR=hhhh 5  S  HHTHHATA READ IN FROM DISK.hhhh 5 PHHHHhhhh 5 `hhh 5 HHHH RESS 7hhh hh tHHHHhhhh uHHHHhhhh vHHHHhhhh wHHHHhhhh   S  HHHHATA WRITTEN TO DISK.hhhh 5 PHHHHHHhhhhhh  HHHH MPTY ARRAYhhhh 5PHHHHhhhh 5 HHHH RESS 7hhh hh  6HHHH6HHHHhhhhhhhh ȟɟ23456789:;<=>?Ɵǟ@AȟɟBC6HH )**********************************Q******* PASCAL PROGRAMING ********y******* ENVIROMENT V2.0/080785 *********** BY TODD WALKE ****************************************************** INCLUDES: ************** ******* Y ********- ****** COMPUTE PUBLICATIONS *****T *********************************{ ********* FROM: ***************** ********** COMPUTE'S GAZETTE **** ********** APRIL 1985 *********** ********** P. 114 *************** ****4 "TURBODISK",8,1+ 12)" ETA - 64 "? (767)234170L 767,234a "ETA",8,1 " OUR PROGRAMING ENVIROMENT IS NOW COMPLETE." 49152 3686485 *********** ********** P. 114 *************** **** HH HHhhhh YHHHHhhhh [HHHHhhhh ]HHHHhhhh cHH hh tHHHHhhhh uHHHHhhhh vHHHHhhhh wHHHHhhhh :;~ R~:;z{BC|}67~ R~6767HHhhB U 67z{ |}>?~ R~>? ܥ8ΰե8Υ88е8Ю80С8nEfoa`L5Le  L80LE``%%`II```laL aL+n %jjiL[`` 0 0 0  ]  2323 HHhh45 HHhh L 45<=45 L45 23>?23 L}23 & 67  eeLԻ ݽ ` !  #"L Lj `x??@X` L5x??@@0 L ;ЩЭ !)e aPf b cde  aPf b!cde  HHhh HHhh ȟɟaTf bcde  Ɵǟȟɟ6HHHH6HHHHhhhhhh ***************************A **********************************i ********** METABASIC ************* ********************************** ******* BY KEVIN MYKYTYN ******** ********************************* ****** COPYRIGHT 1985 B *****************************> *********************************c d53280,11:53281,0:""(8)(14) n"  ELCOME TO ASCAL-64. " x" OADING UTILITY PROGRAMS NOW..." {""12)" URBODISK " |(787)234130 }787,23 ʽX`xhihn jhkhlhmʽX`?@L80 8 pp`)   LY:L-@ɠ.8,.`sLjL` HHhhhh dHHHHhhhh gHHHHhhhh jHHHHhhhh oHHHHhh ``x8?逅?@@?X`x8?逅?@@?X`x??i?@i@X` - &ee` gL gL L~`8` L~`8` ` L~~` ` xHHHHhhhh yHHHHhhhh `LU~HHhh  |} & ? + z{ & ? ]  ~`Lz{|} 0 ed` ed`L  L 80LE` - ee` - &eeȱ` - &&eeeeL - ee` - &eeȥ` - &&ee z{ |}<=~ R~<=z{|}89~ R~89>? & 89  ? ]  45( & <=  ? + 89  ? `ЩLD `LHȰ@)&&)e&)e)eei )8j` $ ` $ I!` L5x蚥eHdHcHf %bHaHpʚX`xhahf bhchdhe ? ]   & 89  ? ]  :; & 89  ? ] @A & ? ]   & 89  ? ]  89L( & 89  ? ] >?   ? S  89LJ` LNUMBER1; ; ;) PROCEDURE UPDATESCREEN;3 BEGIN^ ; WRITE (" ",CURRENTNUMBER:10:1); ; WRITE (" ",TALNUMBER:10:1); ; ; PROCEDURE DRAWGRAPH; VAR I:EGER; BEGIN ; SCALE: 1;*; BI X1COUNTER; ; ; ; ;, ; ELSE; ; BEGINS ; : DX(DY);q ; COUNTER: DY(DX); ; WHILE Y1Y2 DO ; BEGIN ; PLOT X1,Y1; ; X1: X1; ; Y1: Y1COUNTER; ; ; L5`x 1X`#$X` HEHFH hFhEh L1 ` , ee` - )FjFjFjee8*` O1` O I%``0L  (AB)(I)LB((AB)BI);@ ; YL: (AB)(I)LB((AB)BI); &; I0 DRAW (XFX160,YFY100,XLFX160,YLFY100); 0; I: IST; :; ; D; I: I0.5; N; ; XREPEAT UNTIL (197)64; b.R; ; |; ;  " 500"";;" WELCOME TO THE"N"  ߒ  "b("  ߒ  "v2"  ߒ  "<"  ߒ "F"   ATIONAL"d"  "n"  "x"  ""  " "  hhhhhhh L`˟ L  L8aPf bcde    L  ~` L~ ` L1~ ` LR~  ` Ln~ ` L~ ∈حLU I` -8..`&  `L  `8`` %-' %& % % % %` ` ݽLz{ yL IL̼ ? L+/0ȑ/e/0e02 /1 CURRENTNUMBER: 0;$$; WRITE (CHR(14),CHR(8),"");A); 53280,11; 53281,0;u.; WRITELN (" URRENT # OTAL NUMBER");8; WRITELN (" ");B; WRITELN (" IT 7 TO STOP NUMBER GENERATION AND BEGIN GRA   3690:@d"END OF PROGR.";P:255,P256:45,P(255)256wx46,(255)::P(45)256(46)1:"PROGRAMNAME";A$1,8,8,"P/"A$",S":2,8,15:2,A,A$:AA$:1,A:IAP:#1,A$:I,(A$(0)):ST1: 1,F:1,W:F1,W256:F,W256 GGESTNUMBER: 1;4; I: 0 319 DOcH; NUMBERARRAY[I]BIGGESTNUMBER BIGGESTNUMBER: NUMBERARRAY[I];f; BIGGESTNUMBER198 p; SCALE: 199BIGGESTNUMBER;z; 53280,15; 53281,15;; GRAPHIC 1;; SCREENCLEAR;; I: 0 ; ; !; ; &; 0; :;: DPROCEDURE ROMNUMBER;D NBEGINh X; CURRENTNUMBER: TC((1)320)o b;u l; vPROCEDURE UPDATEREGISTERS; BEGIN ; NUMBERARRAY[CURRENTNUMBER]: NUMBERARRAY[CURRENTNUMBER]1; ; TALNUMBER: TA LL@HHHHhhhh BHHHHhhhh CHHHHhhhh DHHHH hhhh EHHHHhhhh FHHHHhhhh GHHHHhhhh HHHHHhh ; ; ; ; BEGINE A: 6; B: 1; ST: 5; FX: 12; FY: 12;U ST: PIST;q GRAPHIC 1; SCREENCLEAR;} L: 3; WHILE L3 DO ; BEGIN ; I: 0; ; WHILE I2PI DO ; BEGIN ; X: XL; Y: YL; ; XL: hh MHH HHhhhh NHH HHhhhh RHH HHhhhh THH HHhhhh V aCf bPcde  LL@aPf bcde  HH hh Laf bfcfdfe  mm < H  EFmm AEHFHHHh `"eZe[eXeYḶ0 `  ` ݽ. E2ȱE&L L  L `` PHING.")L; REPEATV; ROMNUMBER;/`; UPDATEREGISTERS;Dj; UPDATESCREEN;Zt; UNTIL (197)3;k~; DRAWGRAPH;x; REPEAT; CHAR;; UNTIL CHARCHR(0);. PROGRAM )BEGIN; X: 319;; TALNUMBER: 0;; (F1):150ee`8`ABFf AeABeB&AB` 8 8 *&&8&&` W 0` W j 8`p `p`80880  319 DO; NUMBERARRAY[I]0 %; BEGINT; HIGHPO: 200(NUMBERARRAY[I]SCALE);u; DRAW (I,199,I,HIGHPO);; ;; 53281,12;;;( THE MAIN PROGRAM )BEGIN; X: 319;; TALNUMBER: 0;; 4 PROCEDURE BCDCVERT (S$:ARRAY[1..2] OF CHAR;);GVAR T,U:EGER;QBEGINa( S$[1]"0"o2; T:0;<; ELSE T: (S$[1]);FU: (S$[2]);PK: 16TU;Z;d;  PROCEDURE SETTIME;"BEGIN-REPEATZ(; WRITE ("NTER CURRENT TIME [HHMMSS]");n2; LN (TIME$);<; GTH (TIME$)6 WRITE ("NVALID TIME FORMAT");FUNTIL GTH (TIME$)6;PA:0;Z (TIME$[1..2])12 A128; dBCDCVERT (T   3690:@d"END OF PROGR.";P:255,P256:45,P(255)256wx46,(255)::P(45)256(46)1:"PROGRAMNAME";A$1,8,8,"P/"A$",S":2,8,15:2,A,A$:AA$:1,A:IAP:#1,A$:I,(A$(0)):ST1: 1,F:1,W:F1,W256:F,W256 ܥ8ΰե8Υ88е8Ю80С8nEfoa`L5Le  L80LE``%%`II```laL aL+n %jjiL[`` 0 0 0 eeLԻ ݽ ` !  #"L Lj `x??@X` L5x??@@0 L ;ЩЭ !)e ʽX`xhihn jhkhlhmʽX`?@L80 8 pp`)   LY:L-@ɠ.8,.`sLjL` ~` L~ ` L1~ ` LR~  ` Ln~ ` L~ ∈حLU I` -8..`&  `L  `8`` %-' %& % % % %` ` ݽLz{ yL IL̼ ? L+/0ȑ/e/0e02 /1 L ,-,- L,- ,-HH EFhh. >EHFHHHhhhh Z O L *+*+ LA*+  h. >EHFHHH HH.HHhhhhhhhh  & ,-  ? ] EF  . >EHFHHH,-HH EFhh. >EHFHHHhhhhhhhh  HH.HH & h 5 Lk`*>EHFHHH HH.HHhhhhhhhh  & ,-  ? ] EF  . >EHFHHH,-HH EFhh. >EHFHHHhhhhhhhh  HH.HH & IME$[1..2]); n56331,AK;7 xBCDCVERT (TIME$[3..4]);E 56330,K;b BCDCVERT (TIME$[5..6]);p 56329,K;~ 56328,0; ; ;NCS.DISPADRIVERNCS.CLEARADRIVERNCS.MATCHDRIVER (F1):150ee`8`ABFf AeABeB&AB` 8 8 *&&8&&` W 0` W j 8`p `p`80880  0 ed` ed`L  L 80LE` - ee` - &eeȱ` - &&eeeeL - ee` - &eeȥ` - &&ee `ЩLD `LHȰ@)&&)e&)e)eei )8j` $ ` $ I!` L5x蚥eHdHcHf %bHaHpʚX`xhahf bhchdhe ``x8?逅?@@?X`x8?逅?@@?X`x??i?@i@X` - &ee` gL gL L~`8` L~`8` ` L~~` ` `"eZe[eXeYḶ0 `  ` ݽ. E2ȱE&L L  L `` L5`x 1X`#$X` HEHFH hFhEh L1 ` , ee` - )FjFjFjee8*` O1` O I%``0L  ,-,- L>,-,-HH EFhh. >EHFHHH & ,-  ? ] EF  . >EHFHHHhhhhhhhh gL;,-HH EFh ,-  ? ] EF  . >EHFHHHhhhhhhhh LL  ,-,- L,- ,-HH EFhh. >EHFHHHhhhNRR);( TWRITELN ("ATA READ IN FROM DISK.");= ^WRITELN (ARRAY);D h.Y);\ (DISK);p LN (ERR,ERR$); WRITELN ("RROR=",ERR,ERR$); (ERR); WRITELN ("ATA WRITTEN TO DISK."); FILLCHAR (ARRAY,CHR(0)); WRITELN ("MPTY ARRA   3690:@d"END OF PROGR.";P:255,P256:45,P(255)256wx46,(255)::P(45)256(46)1:"PROGRAMNAME";A$1,8,8,"P/"A$",S":2,8,15:2,A,A$:AA$:1,A:IAP:#1,A$:I,(A$(0)):ST1: 1,F:1,W:F1,W256:F,W256 ܥ8ΰե8Υ88е8Ю80С8nEfoa`L5Le  L80LE``%%`II```laL aL+n %jjiL[`` 0 0 0 eeLԻ ݽ ` !  #"L Lj `x??@X` L5x??@@0 L ;ЩЭ !)e ʽX`xhihn jhkhlhmʽX`?@L80 8 pp`)   LY:L-@ɠ.8,.`sLjL`  `L  `8`` %-' %& % % % %` ` ݽLz{ yL IL̼ ? L+/0ȑ/e/0e02 /1 L aPf b cde  aPf b!cde  HHhh HHhh  HHHHEXThhhh 5 (HH  L~  L  L8aPf bcde    L  & ( "HE ATIONAL OURIER YSTEMSK" ISPATCH SSISTANCE ROGRAMs" (-) (" VERSION 2.0 *)dPROGRAM NCSDAP;nVARx; CHAR:CHAR;; I,J,K:EGER;; DISK,8,2:FILE;; DATE$: ; CTRL:EGER;5 ; CURRENTDRIVER$:ARRAY[1..3] OF CHAR;G "; TEMP:EGER;[ ,; FLAG:BOOLEAN;a 6;g @;m J;s T; ^; DRIV:ARRAY[1..64,1..47] OF CHAR; h; BSYDRIV:ARRAY[1..64,1..47] OF CHAR; ; ; PROCEDURE INITIALIZE; BEGIN N   (" ROCEDURE AWILL CHANGE BDER WHILE INGf FROM DISK. DECLARE VAR 'B' AND('C' SET THEM 0 BEE CALLING2THE PROCEDURE )<;dPROCEDURE BDERCHANGE;nBEGINxEGER;C: C1; C120 ; BEGIN (F1):150ee`8`ABFf AeABeB&AB` 8 8 *&&8&&` W 0` W j 8`p `p`80880  0 ed` ed`L  L 80LE` - ee` - &eeȱ` - &&eeeeL - ee` - &eeȥ` - &&ee `ЩLD `LHȰ@)&&)e&)e)eei )8j` $ ` $ I!` L5x蚥eHdHcHf %bHaHpʚX`xhahf bhchdhe ``x8?逅?@@?X`x8?逅?@@?X`x??i?@i@X` - &ee` gL gL L~`8` L~`8` ` L~~` ` L5`x 1X`#$X` HEHFH hFhEh L1 ` , ee` - )FjFjFjee8*` O1` O I%``0L  HHhhhh Z O   LF L (HHHHhhhh 5  LiXn jklm  ? ] Y OF ; 133: CLEARADRIVER; ;= ; 134: DISPATCHADRIVER; ;] œ; 135: ADDRESSSEARCH; ;} ̜; 136: INDERCLEAR; END; ֜; 95: EDITFILES; ; ; ; ; ; UNTIL ((653)7) (KEY136); . INITIALIZE; BEGIN N  ; TIME:EGER;* ; CURRENTDRIVER:EGER;G ; CURRENTINDER:INTEGER;_ ; DRIVPOER:EGER;y ; BSYDRIVPOER:EGER; ; TNEXTPOINTER:INTEGER; ; ; DAY:ARRAY[1..6] OF CHAR; ; TPOINTER:INTEGER; ; I$,J$,K$:ARRAY[1.. ] OF CHAR;  W; ?;" @( THE MAIN PROGRAM )< J 53280,11; 53281,0Z TWRITE (""CHR(14)CHR(8));j YINITIALIZE; ^DISPLAYCLEARDRIVERS; hREPEAT r; (CHAR); |; KEY: D(CHAR); ; CTRL: (653)4; ; CTRL4 ; BEGIN ; CASE KE># PROCEDURE DEST(ARRAY,INDEX);-BEGIN:; REPEATlASCALROGRAMS 112Aj ; 12256,B; ; C: 0;- ; B: B1;D ; B16 B: 0;M ; ;W REAL;^ ;d ;CHNGE.PROC  PRIME.PASTESTP/TESTT.PAS ~` L~ ` L1~ ` LR~  ` Ln~ ` L~ ∈حLU I` -8..`&  d(14)(8)De" CREATOR FOR 'DRAW3D.PAS'":""\nFI(2000):CR$(13)}x" NTER NUMBER OF FACES";FC" NTER DATA FOR EACH FACE (X,Y,Z COOR.)"" ISTAKES BE CORRECTED EXCEPT BY RE-DOING THE ENTIRE FILE."'  ʽX`xhihn jhkhlhmʽX`?@L80 8 pp`)   LY:L-@ɠ.8,.`sLjL`EN,ER$,ET,ES:EN0280> " ISK ERROR !!!":EN;ER$,ET;ES:15:R 15:" ONE.":l ,2,8,2,",S,R"z 62,FC:FC @2,X,Y,Z:X,Y,Z JA$:A$""330 T320" ISTAKES BE CORRECTED EXCEPT BY RE-DOING THE ENTIRE FILE."' eeLԻ ݽ ` !  #"L Lj `x??@X` L5x??@@0 L ;ЩЭ !)e΅HHhh  X YZ & ?   ]^_` & c ? LCc  HHh  hh T h ? ]h Ի]^ & c ? ]c ԻL!C``CT & ? T Ի[\HHhh  X  HHhhhh L.Ac  HHh  hh LC[\HHhh  X YZHHhh  X  ? LB[\HHhh  X YZ & ? T Ի[\HHhh  X  6 1 0 0 1 1 0 1 1 1 1 0 1 1 0 0 -999 0 0 1 1 0 0 1 0 0 1 1 1 1 1 1 1 0 -999 0 0 0 1 0 0 0 0 0 0 1 0 1 1 0 1 0 -999 0 0 0 0 L5`x 1X`#$X` HEHFH hFhEh L1 ` , ee` - )FjFjFjee8*` O1` O I%``0L (2( "HIS PROGRAM GRAPHS THE RANDOML<FUNCTI AINED IN THE PROCEDUREdFCALLED "". )jP;pZ;dPROGRAM ROM;n;x;VAR; NUMBERARRAY:ARRAY[0..319] OF EGER;; X,TALNUMBER:EGER;; CHAR:CHAR; ; CURRENTNUMBE`"eZe[eXeYḶ0 `  ` ݽ. E2ȱE&L L  L `` " HEN DONE WITH A FACE, ENTER -999,0,0"/ I1R 15,8,15:2,8,2,",S,W"` 2,FC;CR$p IFC1260 "ACE #";I:" X, Y, Z" X,Y,Z X999Y0Z0 II1:2,X;CR$;Y;CR$;Z;CR$:210 2,X;CR$;Y;CR$;Z;CR$ 220 2:15,``x8?逅?@@?X`x8?逅?@@?X`x??i?@i@X` - &ee` gL gL L~`8` L~`8` ` L~~` ` 1X2) (Y1Y2) PLOT X1,Y1;$ ,; ELSE1 6; BEGINI @; (DX)(DY) X J; BEGINp T; : DY(DX); ^; COUNTER: DX(DX); h; WHILE X1X2 DO r; BEGIN |; PLOT X1,Y1; ; Y1: Y1; ; X1: `ЩLD `LHȰ@)&&)e&)e)eei )8j` $ ` $ I!` L5x蚥eHdHcHf %bHaHpʚX`xhahf bhchdhe>GIC  UNBLINK,TURBODISK" MAZE GENERATOR, END0K J13 LPX1190j J13 BB40:LPLP1:310 J14 LP1190 J14 BB40:LPLP1:310 FR 0320 "KE$(32)D$(LP)"MENU":320 ,190 6O0:845:180:@""; [\ & ?   ]^ab & h ? LBc  HHh  hh T c ? ]c Ի]^ & h ? ]h ԻL BLCYZHHhh  X [\ & ? T Ի[\0 1 0 0 1 0 1 0 0 1 0 0 0 -999 0 0 1 0 1 1 1 1 0 1 1 0 0 1 1 0 1 -999 0 0 1 1 0 1 0 0 0 0 0 0 1 0 1 1 0 -999 0 0 .1LL@  `L @h   h Իc   c Իh ab & ? S  [\c _` & ? S  YZab & h ? HH_` & c ?  R:EGER; ; SCALE:REAL;3 ; BIGGESTNUMBER:EGER;H ; HIGHPO:EGER;N ;T ; PROCEDURE DRAW (X1,Y1:REAL; X2,Y2:EGER); VAR COUNTER,DX,DY:EGER; :REAL; BEGIN ; X1: TC(X1); Y1: TC(Y1); ; DX: X2X1; DY: Y2Y1; "; (X `L  `8`` %-' %& % % % %` ` ݽLz{ yL IL̼ ? L+/0ȑ/e/0e02 /1  {  _`  ȱ Hȱȱ 2ȱ  @#ѼL5ȘeiL 3 L1 3Ȅ q Lɦ L6  <'L6ei ``x8?逅?@@?X`x8?逅?@@?X`x??i?@i@X` - &ee` gL gL L~`8` L~`8` ` L~~` `  PROGRAM FIRST;,CST PI3.14159265;UVAR X,Y,FX,FY,A,B,L,I,XL,YL,ST:REAL;[Z;dPROCEDURE DRAW (X1,Y1:REAL; X2,Y2:EGER);nVAR COUNTER,DX,DY:EGER; :REAL;xBEGIN; X1: TC(X1); Y1: TC(Y1);; DX: X2X1; DY: Y2Y1; ; INE);3 P; I: 1 25 DO WRITELN; WRITELN (LINE);X Z; I: 0 999 DO I55296,5;p d; I: 1 1000 DO} n; BEGIN x; J: 7 DOWN 0 DO ; BEGIN ; 53270,J; ; X: 1 30 DO ; BEGIN ; 50000, X1: X1COUNTER; ; ;& ; ;2 "; ELSE@ ,; BEGINW 6; : DX(DY);t @; COUNTER: DY(DX); J; WHILE Y1Y2 DO T; BEGIN ^; PLOT X1,Y1; h; X1: X1; r; Y1: Y1COUNTER; ; |; ; eeLԻ ݽ ` !  #"L Lj `x??@X` L5x??@@0 L ;ЩЭ !)eʽX`xhihn jhkhlhmʽX`?@L80 8 pp`)   LY:L-@ɠ.8,.`sLjL` `"eZe[eXeYḶ0 `  ` ݽ. E2ȱE&L L  L ``  L枩٘`8 L A [iL ٩` `  P ed  L7ԥ-`IST_ 368700000CAT_0000 000000 00000145145 1LOAD'194194 1940007676 7600003SAVE'864 368640003686436864 38T  3690:@d"END OF PROGR.";P:255,P256:45,P(255)256wx46,(255)::P(45)256(46)1:"PROGRAMNAME";A$1,8,8,"P/"A$",S":2,8,15:2,A,A$:AA$:1,A:IAP:#1,A$:I,(A$(0)):ST1: 1,F:1,W:F1,W256:F,W256m e Li` )@L6ȹ8@ȹ+" @ ȹ")@Ȅz` lxHHH Lr !Э Эl  W-ƍ sL  ~` L~ ` L1~ ` LR~  ` Ln~ ` L~ ∈حLU I` -8..`&  (X1X2) (Y1Y2) PLOT X1,Y1;+ ; ELSE8 ; BEGINP ; (DX)(DY) _ ; BEGINw ; : DY(DX); ; COUNTER: DX(DX); ; WHILE X1X2 DO ; BEGIN ; PLOT X1,Y1; ; Y1: Y1; ; 0; ; ; ; ;: ; REPEAT UNTIL (53266)10;c ; SCREEN[1..0]: SCREEN[2.1000];m ; ;t .z ;GIN7; 53280,11; 53281,0;8; WRITELN ("",CHR(14),CHR(8));<; SCREEN: 1024; F; WRITELN ("EXT"); LN (Lܥ8ΰե8Υ88е8Ю80С8nEfoa`L5Le  L80LE``%%`II```laL aL+n %jjiL[`` 0 0 0 0 ed` ed`L  L 80LE` - ee` - &eeȱ` - &&eeeeL - ee` - &eeȥ` - &&ee 0 ed` ed`L  L 80LE` - ee` - &eeȱ` - &&eeeeL - ee` - &eeȥ` - &&ee`ЩLD `LHȰ@)&&)e&)e)eei )8j` $ ` $ I!` L5x蚥eHdHcHf %bHaHpʚX`xhahf bhchdhe$ T<`L7Q0 LI I ! ^ \Ƣl΅υ   Ş \Bx67XH h  )x67XH h Lj  L7۰8LA `i(F1):150ee`8`ABFf AeABeB&AB` 8 8 *&&8&&` W 0` W j 8`p `p`80880L7 L7  !ېL7Q0 LI I ! ^ \Ƣl΅υ   Ş \Bx67XH h  )x67XH h Lj  L7۰8LA `id8 VAR TEST:PACKED ARRAY[0..1920,0..3200] OF BOOLEAN;BBEGINZFILLCHAR (TEST,68);`( : DY(DX); ^; COUNTER: DX(DX); h; WHILE X1X2 DO r; BEGIN |; PLOT X1,Y1; ; Y1: Y1; ; X1:  ȱHȱ"ȱ#h $Lb= ` ݽHh ` "# !"8 "#!#"#x]XL7m cm!b8 I ݽw wL xA !XLAÍ L7:'9 :[ 9: ɽ i L>L !mi`8咍 `B `ecbefe褴 TVcf` ॴ8`8咅哅`ȱ   3690:@d"END OF PROGR.";P:255,P256:45,P(255)256wx46,(255)::P(45)256(46)1:"PROGRAMNAME";A$1,8,8,"P/"A$",S":2,8,15:2,A,A$:AA$:1,A:IAP:#1,A$:I,(A$(0)):ST1: 1,F:1,W:F1,W256:F,W256ܥ8ΰե8Υ88е8Ю80С8nEfoa`L5Le  L80LE``%%`II```laL aL+n %jjiL[`` 0 0 0)**********************************Q**********************************y******** DISK MENU ********************************************************* WRITTEN BY ********************** BY TODD WALKE *********** ******* ! ͽ ͽ !% 0&1 L7& JeiL80 `S0: X.Lt: ii8/0L18.) ȱ8.)  ȘeHih Lb% ȱHȱh Lb$ **********- *********************************T *********************************{ ********************************* ********************************* ********************************* ********************************* **** PROGRAM TEST;VAR.DISK,8,2:FILE;N(ARRAY:ARRAY[1..80] OF CHAR;_2I,ERR:EGER;s<CHAR,ERR$:CHAR;yF;P;Z;dBEGINi 53280,11; 53281,0;jWRITELN ("",CHR(8),CHR(14));nFILLCHAR (ARRAY,CHR(88));xWRITELN (ARRAY)1:201,96,240,8,233,128,145,251,200,76,79,3,96,256_ " THE PROFESSOR'S MENU ";u A$:A$"END"180 " ";A$;(160):D$(X)A$:XX1:160 A102680B:330:828 J(56321)15 (197)7((653)1)0J13:220 ( Y",ARRAY); WRITELN ("RESS 7");+ REPEAT= ; I: (197);L UNTIL I3;R ;w RESET (ERR); RESET (DISK,"TESTFILE,S,R"); "LN (DISK,ARRAY); , (DISK); 6LN (ERR,ERR$); @WRITELN ("RROR=",ERR,ERR$); J (E] L䧩 L7     ȱ :ȱJ, QɉIɍEɧȱ :0ϩ ȩde 3 ƚ L1ȘeiL,ȱ :0L= ezi{ Iz{ 3 ƚ TeKȱ8e ȱd  ͽ`$Hȥhmm L *********************************g d53281,0:53280,11:646,5:(14)(8) nD$(25):X1:LP1:I828 xFK:FK256150 I,FK:II1:120* 160,0,177,251,201,96,240,8,105,128,145,251,200,76,62,3,96,160,0,177,25:"LOAD"(34)D$(LP)(34)",8,1":"RUN":198,2:631,13:632,13:iJX%A256:LSBA(X%256):251,LSB:252,X%:yT FIRST.PAS^ QUILT.PASh SORT.PAS END80B:330:828 J(56321)15 (197)7((653)1)0J13:220 (197)7((653)1)1J14! FR(56321)164 (197)1FR0K J13 LPX1190j J13 BB40:LPLP1:310 J14 LP1190 J14 BB40:LPLP1:310 FR 0320 "KE$(32)D$(LP)"MENU":320 ,190 6O0:845:180:@""; ; RESET (ERR);4 RESET (DISK,"0:TESTFILE,S,W");N WRITELN (DISK,ARRAY);\ (DISK);p LN (ERR,ERR$); WRITELN ("RROR=",ERR,ERR$); (ERR); WRITELN ("ATA WRITTEN TO DISK."); FILLCHAR (ARRAY,CHR(0)); WRITELN ("MPTY ARRA L‘ ) B Z Z,$ E()V` l  l , PH  7  $  < i$-L B    3690:@d"END OF PROGR.";P:255,P256:45,P(255)256wx46,(255)::P(45)256(46)1:"PROGRAMNAME";A$1,8,8,"P/"A$",S":2,8,15:2,A,A$:AA$:1,A:IAP:#1,A$:I,(A$(0)):ST1: 1,F:1,W:F1,W256:F,W256 ܥ8ΰե8Υ88е8Ю80С8nEfoa`L5Le  L80LE``%%`II```laL aL+n %jjiL[`` 0 0 0 eeLԻ ݽ ` !  #"L Lj `x??@X` L5x??@@0 L ;ЩЭ !)e (142) "";;" WELCOME TO THE"N"  ߒ  "b("  ߒ  "v2"  ߒ  "<"  ߒ "F"   ATIONAL"d"  "n"  "x"  ""  " "  ʽX`xhihn jhkhlhmʽX`?@L80 8 pp`)   LY:L-@ɠ.8,.`sLjL`_ȥ`!LL1L˓ ` Lt <8 L7  iӠ ҕ: LM:  L. ! ͽ> ` ݽȹ1:~` L~ ` L1~ ` LR~  ` Ln~ ` L~ ∈حLU I` -8..`& ESTARjTERMINA@TRACŮTROFUNNEכVCHANGż@Г=zL("$J;78 ia_ 'Iԩ" w ކL1 0/+ iai  "L7 l ꓍ Lߓlx_ `L  `8`` %-' %& % % % %` ` ݽLz{ yL IL̼ ? L+/0ȑ/e/0e02 /1()L7 ! ͽ_`IVL LɦH?h`H?hL- !  H h  8`ȹ` y' s"8L de` "#8`xA >X8ɐ8 \L7 (F1):150ee`8`ABFf AeABeB&AB` 8 8 *&&8&&` W 0` W j 8`p `p`80880 0 ed` ed`L  L 80LE` - ee` - &eeȱ` - &&eeeeL - ee` - &eeȥ` - &&ee`ЩLD `LHȰ@)&&)e&)e)eei )8j` $ ` $ I!` L5x蚥eHdHcHf %bHaHpʚX`xhahf bhchdhe L@E  `8`` %-' %& % % % %` ` ݽLz{ yL IL̼ ? L+/0ȑ/e/0e02 /1``x8?逅?@@?X`x8?逅?@@?X`x??i?@i@X` - &ee` gL gL L~`8` L~`8` ` L~~` `  OURIER"# "  "8 "  "R "  "l "  " "  YSTEMS" " " " ISPATCH SSISTANCE ROGRAM" "  `"eZe[eXeYḶ0 `  ` ݽ. E2ȱE&L L  L `` X (23001L7LL XL7I&'`HHH hhhL,  LZ P ͽL L5`x 1X`#$X` HEHFH hFhEh L1 ` , ee` - )FjFjFjee8*` O1` O I%``0L OQȹQ0-QLzAȹQLȹQML'L|AUTBSAV'CA/CHANGԛDEFAULDELETŶDLIS(DUMWER8FINțHELIN‘KEٕLLISԐMEMOR9MERG%MONITONUMBEҦQUIREAgRENURESAVSCRATCSENSPEA qEİ< l`ASCALROGRAMS 1P12A PASCAL ENVIROMNTLOADER LINKERETAàMENUFIRST.SRCFIRST.PASMULTICOLOR.PROCKKMULTIPLOT.PROC NCS.SRCDRAW3D.SRCDRAW.PROC DRAW3D.PASDRAW3D.BASDATAFILE RANDOM.SRC KK TESTFILERANDOM.PASTITLE SCREEN BORDERCHNGE.PROCSAILBOAT.SRCNCS.DISPADRIVERNCS.CLEARADRIVERNCS.MATCHDRIVERKK NCS.ADDJOB NCS.NEWJOB NCS.GETDESTNCS.CLRDRIVER NCS.SETTIME NCS.BCDCONVERT NCS.INITIALIZE SORT.SRCKKDISKTEST.SRC SORT.PAS DISKTEST.PASSCROLL.PASSCROLL.SRCARRAYTEST.SRCQUILT.SRCQUILT.PASKKMENUP/ATKK 2076 PASCAL 64 LA L f v ;$2 U sfHHO &-3G jjjjbbW ++ UU%%%UUF{{{~{{{{{{{x{{'d jS+{, %<Lcn %jji [8* X v/ijkn lmm0m*jmkilm <UVnEfoalUޥ<  L L  00 0 F< l%ddm%e lddmee`i0k80LHjJfknIlkIm pLۼbcd0f0d`dElfd r del llmm()bcdejk()F(f)eemedeldcekcbejbm&l&k&jѥdIdeIeed`9:z{=>Lhhz{9:$P 8 D Ahh h;9 e99:9<0G UVlUh0hn 9i: L 7L ()99:a9:9b:c ʴaL L. LLH,L{Lʆde ` 99:j99: &j8e/ije0jike/_ȱie0`kJ_F_E_ ie_Xqre`Yh0hnhihjhkhh mHlHhl_ h_UhiVhphfhahbhchdhelU Ҩj$p a0080 IFb0f Mb(jfc(dce`0 $f0 0d0L0 edBLH7abcfdf r dee0e*becadep` bL( <i կL 0Ffd r LLK [  q.8 8 Ii qF<H h8  ; תȃ IN SUBROUTINE?>ɆL,P,R`HGHGÆ$a ű$B33<>a? BS:CaOϏ2 2  64EXTERNAL6Ϗ2 2" 2  6+53"3 ;  /4GONAHFZBAZNLZEENEFZEREQ1Q2W $d r -qbdeF"#8ȥe#ed"dee#ede"db b 0qqqe 0L r L L 0 dIdeIeL oqdLX u zQP ۶P#P"P po ۶LʴĤe op lm8aaff lb`lnlIlmImml`ldme ʥlEd0` ` 9P:Q Ly L P9Q:L -.`_0/ȑ_e_7834 hhHH;AB`ed ۶bcaLöa`JE8meldL meeleddep`bcff r hihjhkhlhm & L hohp L L $L )$B r9:L )@ֆz{Cz{ y п Eк s$ 08 B y, b=>9:L zCI`P PROGRAMNAMELINK PROGRAM AGAIN !>EXTERNAL IN SUBROUTINE:<>OHG32ăHG32 ĄʃHG32ŃHG32 ŃHGʁ_3ąƅLINE-NUMBER OUT OF RANGE>OB33 ! 3 !3LINK PROGRAM AGAIN !>EXTERNAL IN SUBROUTINE:<>OHG32ăHG32 ĄʃHG32ŃHG32 ŃHGʁ_3ąƅLINE-NUMBER OUT OF RANGE>OB33 ! 3 !3; LN (DISK,NUMFACES);H; I: 1 NUMFACES DOR; BEGIN*\; WHERE[I]: AVAIL;9f; REPEATrp; LN (DISK, XPT[AVAIL], YPT[AVAIL], ZPT[AVAIL]);z; AVAIL: AVAIL1; UNTIL XPT[AVAIL1] 999;; ;;;PROCEDURE EYESCREEN (X,Y,Z:REAL; VAR S UNTER,C3; Z; REAL; d;LOADER LINKERAUTO LINE NUMBERDOS5.1FIRST.SRCFIRST.PASMULTICOLOR.SRCX,SY:REAL);( TRANSM A PO FROM X,Y,Z;EYE CODINATES X,Y SCREENMCODINATES.)WBEGINv; SX: 0.83150(XZ)150;; SY: 100(YZ)100;;;PROCEDURE TRANSM (VAR X,Y,Z:REAL);( TRANSM A PO O EYECODINAT**** 4021 35TH AVE S.W. ***A *********** SEATTLE, WA **********i ****************** 98126-XXXX **** *********** 206-932-5218 ********* ********************************* ********************************* ****************************************************> *********************************g d53281,0:53280,11:646,5:(14)(8) nD$(25):X1:LP1:I828 xFK:FK256150 I,FK:II1:120* 160,0,177,251,201,96,240,8,105,128,145,251,200,76,62,3,96,160,0,177,25ES BY MULTIPLYING A&$PO (X,Y,Z,1) BY THE 4X4 VIEWING9.TRANSMATI.)C8BEGINTB; TEMP1: X;eL; TEMP2: Y;vV; TEMP3: Z;`; X: MAT[1,1]TEMP1MAT[2,1]TEMP2MAT[3,1]TEMP3MAT[4,1];j; Y: MAT[1,2]TEMP1MAT[2,2]TEMP2MAT[3,2]TEM265 VAR- ; WHERE:ARRAY[1..100] OF EGER;V ; XPT,YPT,ZPT:ARRAY[1..500] OF REAL; ; MAT,T1,T2:ARRAY[1..4,1..4] OF REAL; ; X1,Y1:REAL; ; NUMFACES,PT,AVAIL:EGER; ; EYEX,EYEY,EYEZ:REAL; ; FX,FY,FZ:REAL; ; D1,D2:REAL; ; HAR hTHE SCREEN) rBEGIN? |; WRITE (""); (PLOT IN LT GREY )P ; GRAPHIC 1;c ; SCREENCLEAR;j ;p ; PROCEDURE DRAW (X1,Y1:REAL; X2,Y2:ERGER); VAR COUNTER,DX,DY:EGER; :REAL; BEGIN ; X1: TC(X1); Y1: TC(Y1); ; D Y1: Y1;" N; X1: X1COUNTER;0 X; ;< b; ;I v; ELSEX ; BEGINp ; : DX(DY); ; COUNTER: DY(DX); ; WHILE Y1Y2 DO ; BEGIN ; PLOT X1,Y1; ; X1: X1;;  THEVERTICES NEED BE TRANSMED ) BEGIN%; PT: WHERE[FACE];8; START: PT;f; TRANSM (XPT[PT], YPT[PT], ZPT[PT]);y ; PT: PT1;; TRANSM (XPT[PT], YPT[PT], ZPT[PT]); ; PT: PT1;*; TRANSM (XPT[PT], YPT[ PT: PT1;; ;;PROCEDURE DRAWPIC;4( DRAW THE THREEESIAL PERYSPECTIVE VIEW OF THE OBJECT ( NOkCLIPPING). )|VAR I:EGER;BEGIN; I: 1 NUMFACES DO ; BEGIN ; XM3PTS (I); ; XPRODUC ITI. ) ; MAT[4,1]: 1EYEX; ; MAT[4,2]: 1EYEY;( ; MAT[4,3]: 1EYEZ;; ; INITMAT(TI);b ( ROTATE ABOUT XAXIS BY 90 DEG)u ; T1[2,2]: 0; ; T1[2,2]: 0; ; T1[3,2]: 1; ; T1[2,3]: 1; ; MULTMAT (T2,MAT,T1); ; ; T1[3,3]: 1(FYD1);! ; T1[1,3]: FXD1;"! ; T1[3,1]: 1(FXD1);?! ; MULTMAT (T2,MAT,T1);Q! ; MAT: T2;[! ; ;o! ; INITMAT (T1);! ( ROTATE ABOUT XAXIS BY AN ANGLE! DEPANT FOCUS PO. )! ; D2: T(FXFXFYFYIS ROTATE"^ HIZ. )#h ; HIZROT: HIZROTPI180;#r ; T1[1,1]: (HIZROT);;#| ; T1[2,2]: (HIZROT);W# ; T1[1,2]: (HIZROT);r# ; MULTMAT (T2,MAT,T1);# ; MAT: T2;# ; INITMAT (T1);# ( INVERT THE ZAXIS. )# ; T1[3,3]: 1;P3MAT[4,2];9t; Z: MAT[1,3]TEMP1MAT[2,3]TEMP2MAT[3,3]TEMP3MAT[4,3];@~;G; PROCEDURE MULTMAT (VAR M3:ARRAY[1..4,1..4] OF REAL; M1,M2:ARRAY[1..4,1..4] OF REAL);( MULTIPLY MATRICES M1XM2  RESULT IN M3. )VAR I,J:2; I: 1 4 DO<; J : 1 4 DO"F; IJ9P; M1[I,J]: 0TZ; ELSE M1[I,J]: 1;[d;an;zxPROCEDURE XPRODUCT;( THIS PROCEDURE IS USED COMPUTE A VECR THAT IS ANOUTWARDFACING NMAL THE FACEUNDE1]ZPT[START];; W1: XPT[START2]XPT[START];;; W2: YPT[START2]YPT[START];_; W3: ZPT[START2]ZPT[START];w; N1: V2W3V3W2;"; N2: V3W1V1W3;,; N3: V1W2V2W1;6;@;JPROCEDURE DOTPRODUCT (VAR DOT:REAL);OTTED. )BEGIN ; TEMP1: XPT[START];'; TEMP2: YPT[START];A; TEMP3: ZPT[START];j; DOT: N1TEMP1N2TEMP2N3TEMP3;q;w;PROCEDURE DRAWFACE (FACENO:EGER);( DRAW A FACE OF THE OBJECT THATHAS BEEN FOUND BE V;l; DRAW (XTEMP, YTEMP, X1,Y1)v; XTEMP: X1;(; YTEMP: Y1;9; I: I1;C; ;J;P;tPROCEDURE XM3PTS (FACE:EGER);( TRANSM FIRST THREE POS OFA FACE SO WE CAN A DOT PRODUCT DETERMINE THE REST OFPT], ZPT[PT]);4; PT: PT1;>;H;RPROCEDURE XMREST;D\( THE FACE IS VISIBLE, TRANShfM THE REST OF THE VERTICES. )rpBEGINz; WHILE XPT[PT] 999 DO; BEGIN; TRANSM (XPT[PT], YPT[PT], ZPT[PT]);; T;$ ; DOTPRODUCT (DOT);. ; DOT 0 8 ; BEGIN(B ; XMREST;>L ; DRAWPIC(I);JV ; ;T` ; ;[j ;at ;y~ PROCEDURE VIEWMAT; VAR I,J:EGER; BEGIN ; INITMAT (MAT); ( TRANSLATE THE IGIN EYE  MAT: T2;( ; INITMAT (TI); 2 ( ROTATE ABOUT YAXIS BY AN ANGLE1 < DEPANT FOCUS PO. )E F ; FX: EYEXFX;Y P ; FY: EYEYFY;m Z ; FZ: EYEZFZ; d ; D1: T(FXFXFYFY); n ; (D1) 0.0001 x ; BEGIN ; T1[1,1]: 1(FYD1);FZFZ);! ; (D2) 0.00001 ! ; BEGIN" ; T1[2,2]: D1D2;-" ; T1[3,3]: D1D2;F" ; T1[2,3]: FZD2;d"" ; T1[3,2]: 1(FZD2);", ; MULTMAT (T2,MAT,T1);"6 ; MAT: T2;"@ ; ;"J ; INITMAT (T1);"T ( ROTATE ABOUT ZAX# ( SCALE ACCDING DS RATIO)# ; T1[1,1]: DS$ ; T1[2,2]: DS,$ ; MULTMAT (T2,MAT,T1);<$ ; MAT: T2;C$ ;I$ ;j$ BEGIN ( THE MAIN PROGRAM )$ ; 53280,11; 53281,0$ ; WRITE (CHR(14) CHR(8) "");$& ; WRITELN ("NE MOMENTEGER;BEGIN; I: 1 4 DO%; J: 1 4 DOH; M3[I,J]: M1[I,1]M2[I,J]; M1[I,2]M2[2,J]M1[I,2]M2[3,J]M1[I,4]M2[4,J];;; ( INITIALZE A 4X4 MARTIX THEIDENTITY MARTIX. )VAR I,J:EGER;(BEGINR CSIDERATI. THE FIRST"THREE VERTICES OF THE FACE AREFUSED GIVE US TWO VECRS WHICHdARE CROSSED GIVE US THE}NMAL N1 N2 N3. )BEGIN; V1: XPT[START1]XPT[START];; V2: YPT[START1]YPT[START];; V3: ZPT[STARTT( THIS PROCEDURE WILL COMPUTE THE)^DOT PRODUCT OF THE NMAL VECRKh A FACE THE VECR FROM THEkrEYE ITI THE BASE OF THE|NMAL. THIS UE TURNS OUT BE LESS THAN ZERO, THE FACE UNDERCSIDERATI IS HIDDEN NEED BE PL ISIBLE )VAR I:EGER;BEGIN; I: WHERE[FACENO];M&; EYESCREEN (XPT[I], YPT[I], ZPT[I], X1,Y1);_0; XTEMP: X1;p:; YTEMP: Y1D; I: I1;N; WHILE XPT[I] 999 DOX; BEGINb; EYESCREEN (XPT[I], YPT[I], ZPT[I], X1,Y1) /dPROCEDURE DRAW (X1,Y1:REAL; X2,Y2:EGER);TnVAR COUNTER,DX,DY:EGER; :REAL;^xBEGIN; X1: TC(X1); Y1: TC(Y1);; DX: X2X1; DY: Y2Y1;; (X1X2) (Y1Y2) PLOT X1,Y1;; ELSE; BEGIN; (DX)(DY)  ;    3748:@d"END OF PROGR.";P:255,P256:45,P(255)256wx46,(255)::P(45)256(46)1:"PROGRAMNAME";A$1,8,8,"P/"A$",S":2,8,15:2,A,A$:AA$:1,A:IAP:#1,A$:I,(A$(0)):ST1: 1,F:1,W:F1,W256:F,W256 ܥ8ΰե8Υ88е8Ю80С8nEfoa`L5Le  L80LE``%%`II```laL aL+n %jjiL[`` 0 0 0 eeLԻ ݽ ` !  #"L Lj `x??@X` L5x??@@0 L ;ЩЭ !)e WHILE READ IN THE DATA...");$0 ; ;$: ; WRITELN; %D ; 198,0;<%N ; WRITELN ("NTER X,Y,Z POSITION OF EYE");Z%X ; LN (EYEX, EYEY, EYEZ);i%b ; WRITELN;x%l ; 198,0;%v ; WRITELN ("NTER FOCUS POINT (X,Y,Z)");% ; LN (FX, FY, FZ);% ;  PROCEDURE CLEARADRIVER;)START1:NLN ("RIVER #"); CURRENTDRIVER$q( CURRENTDRIVER$[1]"_" EXIT;2MATCHDRIVER (CURRENTDRIVER$,BSYDRIV);< FLAGTRUEF; DRIVER;P; ELSEZ; BEGIN d; WRITELN ("RIVER NOT DISPATCHED"A PROCEDURE MATCHDRIVER(TAR$:ARRAY[1..3] OF CHAR; TARARRAY:iTARGERARRAY[1..64,1..47] OF CHAR;);sBEGIN~(I: 0;2FLAG: FALSE;<REPEATF; I: I1;P; TAR$TARARRAY[I,1..3]Z; d; BEGINn; CURRENTDRIVER: I;  PROCEDURE ADDJOB;!BEGINF; WRITELN ("RIVER NOT CLEAR.");g(; WRITELN ("DD JOB (Y/N)");u2; CHAR;<; CHAR"N" EXITFLAG: TRUE;F; ELSEP; BEGINZ; STRINGP@OER: GTH(BSYDRIV[CURRENTDRIVER]); d; DEST(BSYDRI ʽX`xhihn jhkhlhmʽX`?@L80 8 pp`)   LY:L-@ɠ.8,.`sLjL```x8?逅?@@?X`x8?逅?@@?X`x??i?@i@X` - &ee` gL gL L~`8` L~`8` ` L~~` ` PROCEDURE JOB;BEGINR; BSYDRIV[BSYDRIVPOER,1..3]: CURRENTDRIVER$;|(; BSYDRIV[BSYDRIVPOER,4..7]: TIME;2; DEST(BSYDRIV,BSYDRIVPOER);<; COMPACTARRAY(DRIV,CURRENTDRIVER,DRIVPOER);F; DRIVPOER: DRIVPOER1; P; BSY(F1):150ee`8`ABFf AeABeB&AB` 8 8 *&&8&&` W 0` W j 8`p `p`80880 0 ed` ed`L  L 80LE` - ee` - &eeȱ` - &&eeeeL - ee` - &eeȥ` - &&ee`ЩLD `LHȰ@)&&)e&)e)eei )8j` $ ` $ I!` L5x蚥eHdHcHf %bHaHpʚX`xhahf bhchdheWRITELN;% ; 198,0; & ; WRITELN ("NTER HORIZON ROTATION ANGLE"); & ; LN (HIZROT);/& ; WRITELN;>& ; 198,0;f& ; WRITELN ("NTER SCALING FACTOR");v& ; LN (DS);& ; VIEWMAT;& ; INITSCREEN;& ; DRAWPIC;& .TELN ("NE MOMENT"); n START1; x; ;.RANDOM.PASTITLE SCREEN BORDERCHNGE.PROC SAILBOAT.SRCNCS.DISPADRIVERNCS.CLEARADRIVERT.PAS\x; FLAG: TRUE; ; ;I UNTIL (I(CURRENTDRIVER1)) (FLAGTRUE);P ;V ; BORDERCHNGE.PROC SAILBOAT.SRCNCS.DISPADRIVERNCS.CLEARADRIVERNCS.MATCHDRIVER-V, CURRENTDRIVER); n; ;! x;' ;,DRIVPOER: BSYDRIVPOER1; Z;& d;ASTITLE SCREEN BORDERCHNGE.PROC SAILBOAT.SRCNCS.DISPADRIVERNCS.CLEARADRIVERNCS.MATCHDRIVER ~` L~ ` L1~ ` LR~  ` Ln~ ` L~ ∈حLU I` -8..`&   `L  `8`` %-' %& % % % %` ` ݽLz{ yL IL̼ ? L+/0ȑ/e/0e02 /1 L8HL@k   k Իf   f Իk de & ? S  ^_f bc & ? S  \]de & k ? HHbc & f ? HHhhhh    `ade & k ? LzBf  HHk  hh W f ? ]f Ի`a & k ? ]k ԻLALC\]HHhh  X ^_ & ? W Ի^_HHhh  X zHHhh@ U HH & hh  ? ]  HHyzHHhh@hh  & |}  ? ]  |}`LD HHHDH hhhh 5yz    HHLFUVHHhh@ U rsLjEƅrs LdFrs  Dž & ? t ԻaPf b cde  aPf b!cde   UV?deDž  f ԻUV  k Ի @LF aPf b!cde  `?~|}yz HHhh HHhh  aPf b cde N GRAPHINGhhhh 5 C C DŅHHhh HHhh  LI .E 8{HHhhHh{  L7J`yJUHhh HHhh  aPf b cde  PROCEDURE DRIVER;"BEGINQ; DRIV[DRIVPOER,1..3]: CURRENTDRIVER$;w(; DRIV[DRIVPOER,4..7]: TIME;2; DEST(DRIV,DRIVPOER);<; COMPACTARRAY(BSYDRIV,CURRENTDRIVER,BSYDRIVPOER);F; DRIVPOER: DRIVPOER1; P; BSYDRIVPp PROCEDURE INITIALIZE;%BEGIN?53280,11; 53281,0;[(WRITE (CHR(14),CHR(8));l2TITLESCREEN;ASCALROGRAMS 1P12A`"eZe[eXeYḶ0 `  ` ݽ. E2ȱE&L L  L `` L5`x 1X`#$X` HEHFH hFhEh L1 ` , ee` - )FjFjFjee8*` O1` O I%``0L LAf  HHk  hh LC^_HHhh  X \]HHhh  X  ? L}B^_HHhh  X \] & ? W Ի^_HHhh  X ^_ & ? \] & ?   `abc & f ? LCf  HHk  hh W k ? ]k Ի`a & f ? ]f ԻLC`LCHHhh  @ & ? +  yz`LCyHDH hhhh 5|}   `L1E  t Իrs UV?UV LFUVUVHHhh@ U HHrshh UV L HUVUVHHhh@ U HHhh  L HUVHHhh@ U HHt hh  ? + ȅ & ? S  pqpqbcUV aPf b!cde  !HHHIH! URRENT # OTAL NUMBERhhhh 5 HH]HIH hhhh 5 ;HHHIH; IT 7 TO STOP NUMBER GENERATION AND BEGI PROGRAM QUILT;;"VARH(CHARACTERS:ARRAY[1..27] OF EGER;\2NUMCHARS:EGER;n<OFFSET:EGER;FWIDTH:EGER;PHEIGHT:EGER;ZCOL:EGER;dSTART:EGER;nCHAR:EGER;xZ,X:EGER;; PROCEDURE INITARRAY (VAR C:ARRAY['OER: BSYDRIVPOER1; Z;! d;DOM.PASTITLE SCREEN BORDERCHNGE.PROC SAILBOAT.SRCNCS.DISPADRIVERNCS.CLEARADRIVERNCS.MATCHDRIVER; @; COUNTER: DY(DX);3 J; WHILE Y1Y2 DOC T; BEGINZ ^; PLOT X1,Y1;p h; X1: X1; r; Y1: Y1COUNTER; ; |; ; ; ; ; ;PLOT X1,Y1;; ELSE; BEGIN; (DX)(DY)  ;    3748:@d"END OF PROGR.";P:255,P256:45,P(255)256wx46,(255)::P(45)256(46)1:"PROGRAMNAME";A$1,8,8,"P/"A$",S":2,8,15:2,A,A$:AA$:1,A:IAP:#1,A$:I,(A$(0)):ST1: 1,F:1,W:F1,W256:F,W256 ܥ8ΰե8Υ88е8Ю80С8nEfoa`L5Le  L80LE``%%`II```laL aL+n %jjiL[`` 0 0 0 eeLԻ ݽ ` !  #"L Lj `x??@X` L5x??@@0 L ;ЩЭ !)eʽX`xhihn jhkhlhmʽX`?@L80 8 pp`)   LY:L-@ɠ.8,.`sLjL`~` L~ ` L1~ ` LR~  ` Ln~ ` L~ ∈حLU I` -8..`&  `L  `8`` %-' %& % % % %` ` ݽLz{ yL IL̼ ? L+/0ȑ/e/0e02 /1LCL@Ġ   Ġ Ի   ԻĠ & ? S  & ? S  & Ġ ? HH & ? HHhhhh    & Ġ ? LzB  HHĠ  hh ? ] Ի & Ġ ? ]Ġ ԻLALCHHhh  X & ?  ԻHHhh  X   젟 Իɠ iIn jkڅlm ? ɠ Ի   ݠ Ի & ݠ ? LG  ؠ ԻiIn jkڅlm  ? + ؠ ? LeGӠ ԻΠ Ի⠟ 砟 ? ]  BEGIN ; : DY(DX);; ; COUNTER: DX(DX);U ; WHILE X1X2 DOf ; BEGIN~ ; PLOT X1,Y1; ; Y1: Y1; ; X1: X1COUNTER; ; ; ; ; "; ELSE ,; BEGIN 6; : DX(DY)(F1):150ee`8`ABFf AeABeB&AB` 8 8 *&&8&&` W 0` W j 8`p `p`80880 0 ed` ed`L  L 80LE` - ee` - &eeȱ` - &&eeeeL - ee` - &eeȥ` - &&ee`ЩLD `LHȰ@)&&)e&)e)eei )8j` $ ` $ I!` L5x蚥eHdHcHf %bHaHpʚX`xhahf bhchdhe``x8?逅?@@?X`x8?逅?@@?X`x??i?@i@X` - &ee` gL gL L~`8` L~`8` ` L~~` ``"eZe[eXeYḶ0 `  ` ݽ. E2ȱE&L L  L `` L5`x 1X`#$X` HEHFH hFhEh L1 ` , ee` - )FjFjFjee8*` O1` O I%``0L LA  HHĠ  hh LCHHhh  X HHhh  X  ? L}BHHhh  X & ?  ԻHHhh  X & ?  & ?   & ? LC  HHĠ  hh Ġ ? ]Ġ Ի & ? ] ԻLC`  砟 Ի  ⠟ Ի  ɠ Ի  Ի  ؠ d  ? + ⠟ ݠ ? + ⠟ 砟 ? ] ⠟  ?  ؠ ? + d  ? +  ? SӠ Ի⠟ 砟 ? ] ؠ k  ? + ⠟ ݠ ? + ⠟ 砟 ? ] 젟 Π ? + d & ? ]   Ի Ġ Ի @ɠ ؠ ? ]ؠ ԻLbDin jklmؠ ? ]ؠ ԻL-DŅHHhh HH@hh  LG`G  86; ,C[14]: 89; 6C[15]: 91;/ @C[16]: 93;? JC[17]: 99;P TC[18]: 100;a ^C[19]: 103;r hC[20]: 106; rC[21]: 111; |C[22]: 116; C[23]: 117; C[24]: 118; C[25]: 119; C[26]: 120; C[27]: 121; ; ;/  0; REPEAT :; NUMBER (COL,15,1);@ D; NUMBER (CHAR,NUMCHARS,1);` N; CHAR: CHARACTERS[CHAR];} X; NUMBER (WIDTH,12,1); b; NUMBER (HEIGHT,10,1); l; NUMBER (START,1000,1024); v; Z: STARTWIDTH; ; X: START(HEIGHT40); ; ;; ; BEGIN1; 53280,0; 53281,0;V ; WRITELN ("",CHR(142),CHR(8));k*; NUMCHARS: 27;4; OFFSET: 54272;>; INITARRAY (CHARACTERS,NUMCHARS);H; REPEATR; DRAWPANEL (CHARACTERS,NUMCHARS,OFFSET,0,0,0,0,0,0,0);  3690:@d"END OF PROGR.";P:255,P256:45,P(255)256wx46,(255)::P(45)256(46)1:"PROGRAMNAME";A$1,8,8,"P/"A$",S":2,8,15:2,A,A$:AA$:1,A:IAP:#1,A$:I,(A$(0)):ST1: 1,F:1,W:F1,W256:F,W256ܥ8ΰե8Υ88е8Ю80С8nEfoa`L5Le  L80LE``%%`II```laL aL+n %jjiL[`` 0 0 0eeLԻ ݽ ` !  #"L Lj `x??@X` L5x??@@0 L ;ЩЭ !)e1..27] OF EGER; VAR TAL:EGER);) BEGIN8 TAL: 27;G C[1]: 64;V C[2]: 66;e C[3]: 67;t C[4]: 68; C[5]: 69; C[6]: 70; C[7]: 71; C[8]: 72; C[9]: 77; C[10]: 78; C[11]: 82; C[12]: 84; "C[13]:  ʽX`xhihn jhkhlhmʽX`?@L80 8 pp`)   LY:L-@ɠ.8,.`sLjL` ? ] ⠟  ?  ؠ ? + k  ? +  ? SΠ Ի & ؠ ? LGG ? + & ? ] 젟 ? + d & ? ] Ӡ ? + & ``x8?逅?@@?X`x8?逅?@@?X`x??i?@i@X` - &ee` gL gL L~`8` L~`8` ` L~~` `PROCEDURE NUMBER (VAR NUM:EGER; TIMES,PLUS:EGER);5 ;? BEGIN_ ; NUM: (NUM)TIMESPLUS;f ;l ; PROCEDURE DRAWPANEL (CHARACTERS:ARRAY[1..27] OF EGER; NUMCHARS,OFFSET,WIDTH,HEIGHT,COL,START,CHAR,Z,X:EGER); ; &BEGIN  ; UNTIL (Z2024) (X2024);1 ; Z: 1 HEIGHT DO> ; BEGINY ; X: 1 WIDTH DOh ; BEGIN ; START1,CHAR128; ; START1OFFSET,COL; ; START: START1; ; ; ; START: START40WIDTH;# \; UNTIL (197)64;f.1 ; Z: 1 HEIGHT DO> ; BEGINY ; X: 1 WIDTH DOh ; BEGIN ; START1,CHAR128; ; START1OFFSET,COL; ; START: START1; ; ; ; START: START40WIDTH;(F1):150ee`8`ABFf AeABeB&AB` 8 8 *&&8&&` W 0` W j 8`p `p`80880 0 ed` ed`L  L 80LE` - ee` - &eeȱ` - &&eeeeL - ee` - &eeȥ` - &&ee `ЩLD `LHȰ@)&&)e&)e)eei )8j` $ ` $ I!` L5x蚥eHdHcHf %bHaHpʚX`xhahf bhchdhe ]  2345 HH23 HHhhhh L 45<=45 L45 23>?23 L}23 & 67   aPf b cde  aPf b!cde  HHhh HHhh ȟɟaTf bcde  Ɵǟȟɟ6HHHH6HHHHhhhhhh ~` L~ ` L1~ ` LR~  ` Ln~ ` L~ ∈حLU I` -8..`&   `L  `8`` %-' %& % % % %` ` ݽLz{ yL IL̼ ? L+/0ȑ/e/0e02 /1LL@HHHHhhhh BHHHHhhhh CHHHHhhhh DHHHHhh MHH HHhhhh NHH HHhhhh RHH HHhhhh THH HHhhhh VHHhhhh dHHHHhhhh gHHHHhhhh jHHHHhhhh oHHHHhhxHHHHhhhh yHHHHhhhh `LU~HHhh  |} & ? + z{ & ? ]  ~`Lz{|}z{ |}<=~ R~<=z{|}89~ R~89>? & 89  ? ]  45( & <=  ? + 89  ? jHH6HHDHHhhhhhhhh  ŅHHhh HH@hh  L `6!2h HHhh ȟɟaTf bcde  Ɵǟȟɟ6HHHH6HHHHhhhhhh ? ]   & 89  ? ]  :; & 89  ? ] @A & ? ]   & 89  ? ]  89L( & 89  ? ] >?   ? S  89LJ` hh  6HHHH6HHHHhhhhhhhh ȟɟ23456789:;<=>?Ɵǟ@AȟɟBC6HH`"eZe[eXeYḶ0 `  ` ݽ. E2ȱE&L L  L `` L5`x 1X`#$X` HEHFH hFhEh L1 ` , ee` - )FjFjFjee8*` O1` O I%``0L hhhh EHHHHhhhh FHHHHhhhh GHHHHhhhh HHHHHhhHH HHhhhh YHHHHhhhh [HHHHhhhh ]HHHHhhhh cHHhh tHHHHhhhh uHHHHhhhh vHHHHhhhh wHHHHhhhh :;~ R~:;z{BC|}67~ R~6767HHhhB U 67z{ |}>?~ R~>?KKKKK1:201,96,240,8,233,128,145,251,200,76,79,3,96,256_ " THE PROFESSOR'S MENU ";u A$:A$"END"180 " ";A$;(160):D$(X)A$:XX1:160 A102680B:330:828 J(56321)15 (197)7((653)1)0J13:220 (:"LOAD"(34)D$(LP)(34)",8,1":"RUN":198,2:631,13:632,13:iJX%A256:LSBA(X%256):251,LSB:252,X%:yT FIRST.PAS^ QUILT.PAS END160 A102680B:330:828 J(56321)15 (197)7((653)1)0J13:220 (KKKKKKKK197)7((653)1)1J14! FR(56321)164 (197)1FR0K J13 LPX1190j J13 BB40:LPLP1:310 J14 LP1190 J14 BB40:LPLP1:310 FR 0320 "KE$(32)D$(LP)"MENU":320 ,190 6O0:845:180:@"";KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK