!766#6#61A!QRB G0)WRBORB_RBW ,UB~ RBW!BB,~ !76{ 8_6 !7BS76B67QB~BN‡BN‡BN F(N ~(~6 { ~B6 !B~(#3BF ~>= ERRORNO SYS!766#6#61A!QRB G0)WRBORB_RBW ,UB~ RBW!BB,~ !76{ 8_6 !7BS76B67QB~BN‡BN‡BN F(N ~(~6 { ~B6 !B~(#3BF ~>= ERRORNO SYSPP PP PP PP H(PP P@#HP$A#($AP(@ wASCII d1+J!2$Di!d2 DiҭT„OG (0 xŸóW _xɢ> ó{ > ßzր( G> {ßi2i~# ʗ~# ʗ > ~# ʗT—~# ʗO U~# —2~# ʗ ʗ~# ʗqb Y DCFile already exists!'Not text file!£-@Syntax error!p£(D2(D-@~#3٤dX˃ ;sSJ![sH!rPI!X.XP.r Xr3:3.&+&-&/t8t3Gs t.rtr״f!r;t/#6#62#6V#6p#6#6 !n6}!Wn6#6#6n! D -09!R~# 4!T>H>H}H|Ht-@ D(D-@!> 3~#-@3File already exists[|}R the system.u  u  udi   Z KiBM  u  u Type "Q" to stop.u  uQ*3Hd (COMPILE IF NECESSARY) !""6+"6̓p TEXT TO EDITOR "+#~0p#~=+> 9?? This is a test of:_!##w:<2(!x ~#Hx ~#H~#H*">2:( G!:G_!w:G<(2Gɯ2G9D:G( 9D(D-@:%I( !"I@-@!"D-@1T! "o* @"$]"j"n"B|:%I(!k6[!I@"V!mD"4e! y6"#6#6CûV>^2k!D"V!60"4e!)" y"!y:mD(!>>"o!Po"!D>2 D,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,T uSI!9&K2!..&U33S!].H!SH![&x%u%u#%r&x;r;r+؁s&x&j،+S[ t=v%[T ە!''2'+t/T; PROGRAMAUTHOR;LABEL1;TYPESTRING=ARRAY[1..22]OFCHAR;VARC:CHAR;I,J:INTEGER;A:STRING;PROCEDUREREADS(VARA:STRING);VARI,J:INTEGER;C:CHAR;BEGINI:=1;REPEATREAD(C);A[I]:=C;I:=I+1UNTIL(I=23)OREOLN;IFI<23THENFORJ:=ITO22DOA[J]:=''END;FUNCTIONYESNO:CHAR;VARD:CHAR;BEGINREPEATD:=INKEYUNTIL(D='Y')OR(D='y')OR(D='N')OR(D='n');YESNO:=DEND;BEGINcls;write('ThisprogramconvertsPascal-80p-codefilesto');writeln('commandfiles');write('whichcanberunfromDOSwithoutusingthe');writeln('Pascal-80system.');writeln('Thefilescreatedbythisprogramdonotcontain');writeln('thePascal-80editororcompiler.');writeln;write('Thisprogramusesamachinecodefilecalled');writeln('AUTHCODE/CMD.');write('Ifyouhavenotalreadyloadedthisfile,dosonow.');writeln('Returnto');writeln('DOS,typeAUTHCODE,andpress.');writeln('DoyouneedtoloadAUTHCODE(Y/N)?');c:=yesno;if(c='y')or(c='Y')thengoto1;writeln;write('Theprogramtobeconvertedtoacommandfile');writeln('mustalready');write('havebeencompiledtoap-codefile.Ifyourfile');writeln('mustbe');writeln('compiled,returntoPascal-80anddoso.');writeln('Hasyourprogrambeencompiled(Y/N)?');c:=yesno;if(c='n')or(c='N')thengoto1;cls;write('Enterbelowthenameofthecommandfileyouwishto');writeln('create.');write('Theprogramwillnotworkifthediskalready');writeln('containsa');writeln('filewiththenameyouprovide.');writeln('Thenameyouprovideshouldendin/CMD');writeln('soitcanberundirectlyfromDOS.');writeln;write('INPUTNAME:');reads(a);I:=-4094;J:=1;WHILE(J<23)AND(A[J]<>'')DOBEGINPOKE(I,ORD(A[J]));I:=I+1;J:=J+1END;POKE(I,13);WRITE(CHR(15));CLS;write('WARNING!ThenextstepwillmodifyPascal-80.This');writeln('isyour');write('lastchancetoaborttheprocedure.Ifyougobeyond');writeln('this');write('pointandmakeamistake,youmayhavetorebootto');writeln('regain');write('controlofthecomputer.Doyouwanttocontinue');writeln('(Y/N)?');c:=yesno;if(c='n')or(c='N')thengoto1;cls;write('STOP!Donotpushanykeyuntilyouunderstandthe');writeln('information');write('onthisscreen.Inamoment,youwillbeaskedto');writeln('pushthe');write('key.Whenyoudoso,theusualPascal-80');writeln('menuwill');write('appear.Respondtothismenuasifyouweregoing');writeln('toexecute');write('thefileyouareconverting.Forinstance,if');writeln('youare');write('convertingCHESS/PCtype"X"andrespondtothe');writeln('prompt');writeln;writeln('ENTERFILESPEC-TOABORT');writeln;write('bytypingCHESS/PC.Thecomputerwillthen');writeln('load');write('yourfile,butinsteadofrunningitthecomputer');writeln('willcreate');writeln('acommandfile.');write('Therewillbenomoreprompts.Fromnowon,');writeln('youare');write('onyourown.Whenyouarecertainyouknowwhat');writeln('willhappen');writeln('next,press.');repeatuntilord(inkey)=13;POKE(28678,195);POKE(28679,232);POKE(28680,110);POKE(28393,125);POKE(28571,0);POKE(28572,243);POKE(28247,24);POKE(28248,22);1:;end.;1:;end.  AZ5Z9Z,Z5 Z9Z5Z5*<Z5*3!@w@abcdefghijklmnopqrstuvwxyzf0123456789:;,-./ [  @ABCDEFGHIJKLMNOPQRSTUVWXYZ!"#$%&'()*+<=>?  .CMD^^^^^JD y!sD0D"!@6'@!'!A6:#p#6,#"@-!RA6#s#r#6###!Bte('Therewillbenomoreprompts.Fromnowon,');writeln('youare');write('onyourown.Whenyouarecertainyouknowwhat');writeln('willhappen');writeln('next,press.');repeatuntilord(inkey)=13;POKE(28678,195);POKE(28679,232);POKE(28680,110);POKE(28393,125);POKE(28571,0);POKE(28572,243);POKE(28247,24);POKE(28248,22);1:;end.3);1:;end.);1:;end.;end.9??Z *E*<*E*E*<*<Z KiWn*0HZ51 Z,rite('STOP!Donotpushanykeyuntilyouunderstandthe');writeln('information');write('onthisscreen.Inamoment,youwillbeaskedto');writeln('pushthe');write('key.Whenyoudoso,theusualPascal-80');writeln('menuwill');wYstewart D y!sD0D"!@6'@!'!A6:#p#6,#"@-!RA6#s#r#6###!Bp1A͏!"@"@M*!gD0@BAD PARAMETER CMDi<1theni:=1end;end;until(letter=newline)or(letter=space);zahlant:=k;ifi=2thenzahlant:=ord(zahlst(.1.))-48;ifi=3thenzahlant:=(ord(zahlst(.1.))-48)*10+(ord(zahlst(.2.))-48);end;until(zahlant>=min)and(zahlant<=max);end;(*procedure*)proceduretastatur;beginrepeatletter:=inkeyuntil(letter=space)or(letter=newline);end;procedureinterrupt;beginletter:=inkey;ifletter=spacethenant:=j;end;proceduretexteingabe;label2;typecode=setof1..156;vari,k,asc,laengew,zeilenlaenge:integer;wort:array(.1..80.)ofchar;zeile:array(.1..80.)ofchar;ascode,ascode1:code;procedureaddwort;(*addiertwortzuzeile*)begink:=1;fori:=zeilenlaengetozeilenlaenge+laengew-2dobeginzeile(.i.):=wort(.k.);k:=k+1;end;(*for*)zeilenlaenge:=zeilenlaenge+laengew;end;(*addwort*)begin(*texteingabe*)ascode:=(.8,9,10,13.);ascode1:=(.31..156.);zeilenlaenge:=1;laengew:=1;zeile(.laengew.):=wort(.1.);(*asc5..oderspace*)write(cursor);whilezeilenlaenge=sollaengethenbeginfori:=1tolaengewdowrite(backstep);goto2;end;(*if*)end;(*else*)end(*else*)end;(*case*)end;(*while*)2:write(backstep);(*cursorweg*)end;(*procedure*)begin(*main*)newline:=chr(13);backstep:=chr(8);cursor:=chr(95);space:=chr(32);trenn:=chr(45);sollaenge:=65;erase(.1.):=chr(27);erase(.2.):=chr(29);erase(.3.):=chr(31);1:cls;writeln;writeln(tabst,'TEXTVERARBEITUNGSFUNKTIONEN');writeln(tabst,'---------------------------');writeln(tabst,'(1)TEXTERSTELLEN');writeln(tabst,'(2)TEXTANZEIGEN');writeln(tabst,'(3)TEXTKORRIGIEREN');writeln(tabst,'(8)TEXTSPEICHERN');writeln(tabst,'(9)TEXTLADEN');writeln;writeln(tabst,'(10)ABBRUCH');writeln;writeln(tabst,meldung1);ausgabe:='NUMMERW[HLENUND(NEWLINE)DRUCKEN';zahlantw(ausgabe,36,1,10,0);casezahlantof1:begincls;writeln(chr(28));art:=j;texteingabe;end;2:goto1;3:goto1;4:goto1;5:goto1;6:goto1;7:goto1;8:goto1;9:goto1;10:goto1end;(*case*)end.9Z?(Pdk:=1tolaengew-1dowort(.k.):='';laengew:=1;end(*if*)elsebeginwort(.laengew.):=letter;laengew:=laengew+1;if(laengew+zeilenlaenge-1)>=sollaengethenbeginfori:=1tolaengewdowrite(backstep);goto2;end;(*if*)end;(*else*)end(*else*)end;(*case*)end;(*while*)2:write(backstep);(*cursorweg*)end;(*procedure*)begin(*main*)newline:=chr(13);backstep:=chr(8);cursor:=chr(95);space:=chr(32);trenn:=chr(45);sollaenge:=65;erase(.1.):=chr(27);erase(.2.):=chr(29);erase(.3.):=chr(31);1:cls;writeln;writeln(tabst,'TEXTVERARBEITUNGSFUNKTIONEN');writeln(tabst,'---------------------------');writeln(tabst,'(1)TEXTERSTELLEN');writeln(tabst,'(2)TEXTANZEIGEN');writeln(tabst,'(3)TEXTTUZ/Mprogrambasistext(input,output);label1;constzeichenbreite=64;tab=12;tabst='';zeilenzahl=11;(*bildschirm*)meldung1='ZURFORTSETZUNG(NEWLINE)DRUCKEN';meldung2='ABBRUCHMIT(LEETASTE)';meldung3='NUMMERW[HLENUND(NEWLINE)DRUCKEN';typestring=array(.1..40.)ofchar;string1=array(.1..2.)ofchar;string2=array(.1..80.)ofchar;seite=array(.1..100.)ofstring2;options=(j,n);ziffer=setof'0'..'9';varnewline,cursor,backstep,space,trenn:char;clearsc,zahlst:string1;zeile,wort:string2;tex:seite;textname:string;erase:array(.1..3.)ofchar;letter:char;zeilenlaenge,erstez,textende,basislaenge,nr:integer;sollaenge,min,max,laenge,i,k,zahlant,letztez:integer;art,ant,autom:options;laenget:array(.1..100.)ofinteger;ausgabe:string;procedureantwort(ausgabe:string;autom:options);beginwrite(tabst,ausgabe,cursor);repeatletter:=inkeyuntil(ord(letter)=13)or(letter='j')or(letter='J')or(letter='N')or(letter='n');ifletter=chr(13)thenant:=autom;caseletterof'J':ant:=j;'N':ant:=n;'j':ant:=j;'n':ant:=nend;end;procedurezahlantw(ausgabe:string;laenge,min,max,k:integer);beginzahlant:=0;write(tabst);fori:=1tolaengedowrite(ausgabe(.i.));write(cursor);ifausgabe(.laenge-1.)='<'thenwrite(backstep,k,'>?',cursor);repeatbegini:=1;repeatbeginrepeatletter:=inkeyuntil(ord(letter)>0);if(letterin(.'0'..'9'.))and(i<3)thenbeginwrite(backstep,letter,cursor);zahlst(.i.):=letter;i:=i+1;end;ifletter=backstepthenbeginwrite(backstep,backstep,cursor);i:=i-1;ifi<1theni:=1end;end;until(letter=newline)or(letter=space);zahlant:=k;ifi=2thenzahlant:=ord(zahlst(.1.))-48;ifi=3thenzahlant:=(ord(zahlst(.1.))-48)*10+(ord(zahlst(.2.))-48);end;until(zahlant>=min)and(zahlant<=max);end;(*procedure*)proceduretastatur;beginrepeatletter:=inkeyuntil(letter=space)or(letter=newline);end;procedureinterrupt;beginletter:=inkey;ifletter=spacethenant:=j;end;proceduretexteingabe;label2,3,4;typecode=setof1..156;vari,k,asc,laengew:integer;ascode,ascode1:code;procedureaddwort;(*addiertwortzuzeile*)beginiflaengew>1thenbegink:=1;fori:=zeilenlaengetozeilenlaenge+laengew-2dobeginzeile(.i.):=wort(.k.);k:=k+1;end;(*for*)zeilenlaenge:=zeilenlaenge+laengew-1;end;(*if*)end;(*addwort*)proceduredisplaynext;beginifart=nthengoto3;write(nr,'');end;procedurevorzeile;beginifart=nthengoto3;if(art=j)and(nr=1)thengoto3elsebeginnr:=nr-1;zeile:=tex(.nr.);zeilenlaenge:=laenget(.nr.)+1;fori:=1toround((zeilenlaenge+5)/zeichenbreite)+1dowrite(erase);displaynext;end;end;(*vorzeile*)begin(*texteingabe*)ascode:=(.8,9,10,13.);ascode1:=(.31..156.);zeilenlaenge:=1;iflaengew=0thenlaengew:=2;fork:=1tolaengew-1dobeginzeile(.k.):=wort(.k.);write(zeile(.k.));end;zeilenlaenge:=laengew;laengew:=1;write(cursor);4:whilezeilenlaenge0)thenbeginwrite(backstep,backstep,cursor);zeile(.zeilenlaenge.):='';goto4;endelsewrite(backstep);vorzeile;fork:=1tozeilenlaenge-1dowrite(zeile(.k.));write(cursor);goto4;end;(*tab*)9:goto2;(*spezial*)10:goto2;(*newline*)13:beginaddwort;wort(.1.):=chr(5);laengew:=2;goto2;endelsebeginwrite(backstep,letter,cursor);if(asc=32)or(asc=45)thenbeginaddwort;zeile(.zeilenlaenge.):=letter;zeilenlaenge:=zeilenlaenge+1;fork:=1tolaengew-1dowort(.k.):='';laengew:=1;end(*if*)elsebeginwort(.laengew.):=letter;laengew:=laengew+1;if(laengew+zeilenlaenge-1)>=sollaengethenbeginfori:=1tolaengewdowrite(backstep);goto2;end;(*if*)end;(*else*)end(*else*)end;(*case*)end;(*while*)2:writeln(backstep);(*cursorweg*)3:end;(*texteingabe*)begin(*main*)newline:=chr(13);backstep:=chr(8);cursor:=chr(95);space:=chr(32);trenn:=chr(45);sollaenge:=65;basislaenge:=65;erase(.1.):=chr(27);erase(.2.):=chr(29);erase(.3.):=chr(31);1:cls;writeln;writeln(tabst,'TEXTVERARBEITUNGSFUNKTIONEN');writeln(tabst,'---------------------------');writeln(tabst,'(1)TEXTERSTELLEN');writeln(tabst,'(2)TEXTANZEIGEN');writeln(tabst,'(3)TEXTKORRIGIEREN');writeln(tabst,'(8)TEXTSPEICHERN');writeln(tabst,'(9)TEXTLADEN');writeln;writeln(tabst,'(10)ABBRUCH');writeln;writeln(tabst,meldung1);ausgabe:='NUMMERW[HLENUND(NEWLINE)DRUCKEN';zahlantw(ausgabe,36,1,10,0);casezahlantof1:begincls;art:=j;textende:=100;erstez:=1;textname:='';write(chr(28),tabst);writeln('FERTIGZURTEXTERFASSUNG');sollaenge:=basislaenge;wort(.1.):=chr(5);fornr:=ersteztotextendedobeginwrite(nr,'');texteingabe;tex(.nr.):=zeile;laenget(.nr.):=zeilenlaenge-1;if(zeilenlaenge<5)or(zeilenlaenge>6)thenelseif(zeile(.2.)='E')or(zeile(.2.)='e')and(zeile(.3.)='N')or(zeile(.3.)='n')and(zeile(.4.)='D')or(zeile(.4.)='d')and(zeile(.5.)='E')or(zeile(.5.)='e')thenbeginletztez:=nr-1;goto1;end;end;end;2:goto1;3:goto1;4:goto1;5:goto1;6:goto1;7:goto1;8:goto1;9:goto1;10:goto1end;(*case*)end.9Z? (Pd    ((c!#%')+-/13579:;dd<----------------------');writeln(tabst,'(1)TEXTERSTELLEN');writeln(tabst,'(2)TEXTANZEIGEN');writeln(tabst,'(3)TEXTKORRIGIEREN');writeln(tabst,'(8)TEXTSPEICHERN');writeln(tabst,'(9)TEXTLADEN');writeln;writeln(tabst,'(10)ABBRUCH');writeln;writeln(tabst,meldung1);ausgabe:='NUMMERW[HLENUND(NEWLINE)DRUCKEN';zahlantw(ausgabe,36,1,10,0);casezahlantof1:begincls;art:=j;textende:=100;erstez:=1;textname:='';write(chr(28),tabst);writeln('FERTTPROGRAM;VARI,J,K,M,R,B:INTEGER;A:ARRAY[0..10]OFINTEGER;PROCEDUREDISPLAY(I,J:INTEGER);VARK,L,T:INTEGER;BEGINIF(JDIVM)<40THENPSET(I,47-(JDIVM))ELSEBEGINCLS;FORK:=0TO47DOPSET(0,K);FORK:=0TO127DOPSET(K,47);M:=2*M;FORK:=0TO10DOBEGINL:=A[K]DIVM;FORT:=0TOLDOPSET(10*(K+1),47-T)END;ENDEND;BEGINCLS;M:=1;B:=0;RANDOM;FORI:=0TO10DOA[I]:=0;FORI:=0TO47DOPSET(0,I);FORI:=0TO127DOPSET(I,47);REPEATJ:=0;GOTOXY(50,B);WRITE('');FORK:=1TO10DOBEGINR:=RND(2);IFR=1THENJ:=J+1;GOTOXY(50+K,B);IFR=1THENWRITE('H')ELSEWRITE('T')END;B:=B+1;IFB=4THENB:=0;A[J]:=A[J]+1;DISPLAY(10*(J+1),A[J])UNTILINKEY='Q'END.9??UTILS Y&CONFIG OLDaZ&INTRAY u''ACONFIG MINq|BRUCH');writeln;writeln(tabst,meldung1);ausgabe:='NUMMERW[HLENUND(NEWLINE)DRUCKEN';zahlantw(ausgabe,36,1,10,0);casezahlantof1:begincls;art:=j;textende:=100;erstez:=1;textname:='';write(chr(28),tabst);writeln('FERTTPROGRAM(DATA:'LIST/DAT',INDEXF:'INDEX/DAT');CONSTNUMBER=50(*Numberofpossiblerecords*);TYPESTRING=ARRAY[1..20]OFCHAR;STRING1=ARRAY[1..63]OFCHAR;PERSON=RECORDNAME:RECORDLAST:STRING;FIRST:STRINGEND;ADDRESS:RECORDSTREET:STRING;CITY:STRING;STATE:STRING;ZIP:REALEND;PHONE:STRING;MESSAGE:STRING1END;INDEX1=RECORDFREE:SETOF1..NUMBER;NAMES:ARRAY[1..NUMBER]OFSTRING;LINK:ARRAY[0..NUMBER]OFRECORDONE:INTEGER;TWO:INTEGEREND;START:INTEGEREND;VARA:PERSON;I,J:INTEGER;DATA:FILEOFPERSON;INDEXF:FILEOFINDEX1;INDEX:INDEX1;FUNCTIONQUESTION:CHAR;VARC:CHAR;BEGINREPEATC:=INKEYUNTIL(C='Y')OR(C='N');QUESTION:=CEND;BEGINCLS;WRITELN('WARNING!Thisprogramwilldestroytheoldmailing');WRITELN('list.Doyouwishtocontinue(Y/N)?');WRITELN;WRITELN;IFQUESTION='Y'THENBEGINA.NAME.LAST:='NONAME';A.NAME.FIRST:='BILL';A.ADDRESS.STREET:='ANYSTREET';A.ADDRESS.CITY:='CENTRAL';A.ADDRESS.STATE:='KANSAS';A.ADDRESS.ZIP:=50000;A.ADDRESS.PHONE:='(503)686-8466';A.MESSAGE:='Thisisadummyrecord.';REWRITE(DATA);FORI:=1TONUMBERDOWRITE(DATA,A);INDEX.FREE:=[];FORI:=1TONUMBERDOINDEX.NAMES[I]:='';FORI:=0TONUMBERDOBEGININDEX.LINK[I].ONE:=0;INDEX.LINK[I].TWO:=0END;INDEX.START:=0;REWRITE(INDEXF);WRITE(INDEXF,INDEX)ENDEND.9LIST1/DAT:0& @  INDEX1/DAT:0( G> {ßi2i~# ʗ~# ʗ > ~# ʗT—~# ʗO U~# —2~# ʗ ʗINTEGEREND;START:INTEGEREND;VARA:PERSON;I,J:INTEGER;DATA:FILEOFPERSON;INDEXF:FILEOFINDEX1;INDEX:INDEX1;FUNCTIONQUESTION:CHAR;VARC:CHAR;BEGINREPEATC:=INKEYUNTIL(C='Y')OR(C='N');QUESTION:=CEND;BEGINCLS;WRITELN('WARNING!Thisprogramwilldestroytheoldmailing');WRITELN('list.Doyouwishtocontinue(Y/N)?');WRITELN;WRITELN;IFQUESTION='Y'THENBEGINA.NAME.LAST:='NONAME';A.NAME.FIRST:='BILL';A.ADDRESS.STREET:='ANYSTREET';A.ADDRESS.CITY:='CENTRAL';A.ADDRESS.STATE:='KANSAS';A.ADDRESS.ZIP:=50000;A.ADDRESS.PHONE:='(503)686-8466';A.MESSAGE:='Thisisadummyrecord.';REWRITE(DATA);FORI:=1TONUMBERDOWRITE(DATA,A);INDEX.FREE:=[];FORI:=1TONUMBERDOINDEX.NAMTPROCEDUREGOTOXY(I,J:INTEGER);VARK:INTEGER;BEGINIF(I<0)OR(I>63)OR(J<0)OR(J>15)THENELSEBEGINK:=15360+I+64*J;POKE(16416,KMOD256);POKE(16417,KDIV256)ENDEND;.UNTILORD(INKEY)<>0END.;WRITE('HA')END;REPEATUNTILORDRESS:RECORDSTREET:STRING;CITY:STRING;STATE:STRING;ZIP:REALEND;PHONE:STRING;MESSAGE:STRING1END;INDEX1=RECORDFREE:SETOF1..NUMBER;NAMES:ARRAY[1..NUMBER]OFSTRING;LINK:ARRAY[0..NUMBER]OFRECORDONE:INTEGER;TWO:INTEGEREND;START:INTEGEREND;VARA:PERSON;I,J:INTEGER;DATA:FILEOFPERSON;INDEXF:FILEOFINDEX1;INDEX:INDEX1;FUNCTIONQUESTION:CHAR;VARC:CHAR;BEGINREPEATC:=INKEYUNTIL(C='Y')OR(C='N');QUESTION:=CEND;BEGINCLS;WRITELN('WARNING!Thisprogramwilldestroytheoldmailing');WRITELN('list.Doyouwishtocontinue(Y/N)?');WRITELN;WRITELN;IFQUESTION='Y'THENBEGINA.NAME.LAST:='NONAME';A.NAME.FIRST:='BILL';A.ADDRESS.STREET:='ANYSTREET';A.ADDRESS.CITY:='CENTRAL';A.ADDRESS.STATE:='KANSAS';A.ADDRESS.ZIP:=50000;A.ADDRESS.PHONE:='(503)686-8466';A.MESSAGE:='Thisisadummyrecord.';REWRITE(DATA);FORI:=1TONUMBERDOWRITE(DATA,A);INDEX.FREE:=[];FORI:=1TONUMBERDOINDEX.NAMT7PROCEDUREPSET(I,J:INTEGER);BEGINPOKE(-250,I);POKE(-249,J);I:=CALL(-247,0)END;PROCEDUREPRESET(I,J:INTEGER);BEGINPOKE(-250,I);POKE(-249,J);I:=CALL(-247,1)END;FUNCTIONPOINT(I,J:INTEGER):BOOLEAN;BEGINPOKE(-250,I);POKE(-249,J);I:=CALL(-247,2);IFI=1THENPOINT:=TRUEELSEPOINT:=FALSEEND;FALSEEND;2);IFI=1THENPOINT:=TRUEELSEPOINT:=FALSEEND;47,2);IFI=1THENPOINT:=TRUEELSEPOINT:=FALSEEND;ND;ND;ND;UEELSEPOINT:=FALSEEND;D;PEATUNTILINKEY='INTEGEREND;START:INTEGEREND;VARA:PERSON;I,J:INTEGER;DATA:FILEOFPERSON;INDEXF:FILEOFINDEX1;INDEX:INDEX1;FUNCTIONQUESTION:CHAR;VARC:CHAR;BEGINREPEATC:=INKEYUNTIL(C='Y')OR(C='N');QUESTION:=CEND;BEGINCLS;WRITELN('WARNING!Thisprogramwilldestroytheoldmailing');WRITELN('list.Doyouwishtocontinue(Y/N)?');WRITELN;WRITELN;IFQUESTION='Y'THENBEGINA.NAME.LAST:='NONAME';A.NAME.FIRST:='BILL';A.ADDRESS.STREET:='ANYSTREET';A.ADDRESS.CITY:='CENTRAL';A.ADDRESS.STATE:='KANSAS';A.ADDRESS.ZIP:=50000;A.ADDRESS.PHONE:='(503)686-8466';A.MESSAGE:='Thisisadummyrecord.';REWRITE(DATA);FORI:=1TONUMBERDOWRITE(DATA,A);INDEX.FREE:=[];FORI:=1TONUMBERDOINDEX.NAMOH9??2H  /SPZ Ki HELLO, DIETMARuB2B2S-247,2);IFI=1THENPOINT:=TRUEELSEPOINT:=FALSEEND;FALSEEND;2);IFI=1THENPOINT:=TRUEELSEPOINT:=FALSEEND;47,2);IFI=1THENPOINT:=TRUEELSEPOINT:=FALSEEND;ND;ND;ND;UEELSEPOINT:=FALSEEND;D;PEATUNTILINKEY='INTEGEREND;START:INTEGEREND;VARA:PERSON;I,J:INTEGER;DATA:FILEOFPERSON;INDEXF:FILEOFINDEX1;INDEX:INDEX1;FUNCTIONQUESTION:CHAR;VARC:CHAR;BEGINREPEATC:=INKEYUNTIL(C='Y')OR(C='N');QUESTION:=CEND;BEGINCLS;WRITELN('WARNING!Thisprogramwilldestroytheoldmailing');WRITELN('list.Doyouwishtocontinue(Y/N)?');WRITELN;WRITELN;IFQUESTION='Y'THENBEGINA.NAME.LAST:='NONAME';A.NAME.FIRST:='BILL';A.ADDRESS.STREET:='ANYSTREET';A.ADDRESS.CITY:='CENTRAL';A.ADDRESS.STATE:='KANSAS';A.ADDRESS.ZIP:=50000;A.ADDRESS.PHONE:='(503)686-8466';A.MESSAGE:='Thisisadummyrecord.';REWRITE(DATA);FORI:=1TONUMBERDOWRITE(DATA,A);INDEX.FREE:=[];FORI:=1TONUMBERDOINDEX.NAMTtprogramprint(output);varcount:integer;Beginforcount:=1to50dowrite(count,'HELLO,DIETMAR')end.9??2H  /srZ Ki HELLO, DIETMARuB2B2-247,2);IFI=1THENPOINT:=TRUEELSEPOINT:=FALSEEND;FALSEEND;2);IFI=1THENPOINT:=TRUEELSEPOINT:=FALSEEND;47,2);IFI=1THENPOINT:=TRUEELSEPOINT:=FALSEEND;ND;ND;ND;UEELSEPOINT:=FALSEEND;D;PEATUNTILINKEY='INTEGEREND;START:INTEGEREND;VARA:PERSON;I,J:INTEGER;DATA:FILEOFPERSON;INDEXF:FILEOFINDEX1;INDEX:INDEX1;FUNCTIONQUESTION:CHAR;VARC:CHAR;BEGINREPEATC:=INKEYUNTIL(C='Y')OR(C='N');QUESTION:=CEND;BEGINCLS;WRITELN('WARNING!Thisprogramwilldestroytheoldmailing');WRITELN('list.Doyouwishtocontinue(Y/N)?');WRITELN;WRITELN;IFQUESTION='Y'THENBEGINA.NAME.LAST:='NONAME';A.NAME.FIRST:='BILL';A.ADDRESS.STREET:='ANYSTREET';A.ADDRESS.CITY:='CENTRAL';A.ADDRESS.STATE:='KANSAS';A.ADDRESS.ZIP:=50000;A.ADDRESS.PHONE:='(503)686-8466';A.MESSAGE:='Thisisadummyrecord.';REWRITE(DATA);FORI:=1TONUMBERDOWRITE(DATA,A);INDEX.FREE:=[];FORI:=1TONUMBERDOINDEX.NAM INIT 2:08 2@!y(G<:?O :((:?x0'G:( (x>|wx/G|~>:%I( !"I@-@!"D-@>![/0"#0 ˼"NfW2>w>!"&@"A-@w(:8w y  stewart terrry ss ss ss B"333 gg NONAME BILL ANYSTREET CENTRAL KANSAS EPND;PROCEDUREREAThis is a dummy record. NONAME BILL ANYSTREET CENTRAL KANSAS EPND;PROCEDUREREAThis is a dummy record. NONAME BILL ANYSTREET CENTRAL KANSAS EPND;PROCEDUREREAThis is a dummy record. NONAME BILL ANYSTREET CENTRAL KANSAS EPND;PROCEDUREREAThis is a dummy record. NONAME BILL ANYSTREET CENTRAL KANSAS EPND;PROCEDUREREAThis is a dummy record. NONAME BILL ANYSTREET CENTRAL KANSAS EPND;PROCEDUREREAThis is a dummy record. NONAME BILL ANYSTREET CENTRAL KANSAS EPND;PROCEDUREREAThis is a dummy record. NONAME BILL ANYSTREET CENTRAL KANSAS EPND;PROCEDUREREAThis is a dummy record. NONAME BILL ANYSTREET CENTRAL KANSAS EPND;PROCEDUREREAThis is a dummy record. NONAME BILL ANYSTREET CENTRAL KANSAS EPND;PROCEDUREREAThis is a dummy record. NONAME BILL ANYSTREET CENTRAL KANSAS EPND;PROCEDUREREAThis is a dummy record. NONAME BILL ANYSTREET CENTRAL KANSAS EPND;PROCEDUREREAThis is a dummy record. NONAME BILL ANYSTREET CENTRAL KANSAS EPND;PROCEDUREREAThis is a dummy record. NONAME BILL ANYSTREET CENTRAL KANSAS EPND;PROCEDUREREAThis is a dummy record. NONAME BILL ANYSTREET CENTRAL KANSAS EPND;PROCEDUREREAThis is a dummy record. NONAME BILL ANYSTREET CENTRAL KANSAS EPND;PROCEDUREREAThis is a dummy record. NONAME BILL ANYSTREET CENTRAL KANSAS EPND;PROCEDUREREAThis is a dummy record. NONAME BILL ANYSTREET CENTRAL KANSAS EPND;PROCEDUREREAThis is a dummy record. NONAME BILL ANYSTREET CENTRAL KANSAS EPND;PROCEDUREREAThis is a dummy record. NONAME BILL ANYSTREET CENTRAL KANSAS EPND;PROCEDUREREAThis is a dummy record. NONAME BILL ANYSTREET CENTRAL KANSAS EPND;PROCEDUREREAThis is a dummy record. NONAME BILL ANYSTREET CENTRAL KANSAS EPND;PROCEDUREREAThis is a dummy record. NONAME BILL ANYSTREET CENTRAL KANSAS EPND;PROCEDUREREAThis is a dummy record. NONAME BILL ANYSTREET CENTRAL KANSAS EPND;PROCEDUREREAThis is a dummy record. NONAME BILL ANYSTREET CENTRAL KANSAS EPND;PROCEDUREREAThis is a dummy record. NONAME BILL ANYSTREET CENTRAL KANSAS EPND;PROCEDUREREAThis is a dummy record. NONAME BILL ANYSTREET CENTRAL KANSAS EPND;PROCEDUREREAThis is a dummy record. NONAME BILL ANYSTREET CENTRAL KANSAS EPND;PROCEDUREREAThis is a dummy record. NONAME BILL ANYSTREET CENTRAL KANSAS EPND;PROCEDUREREAThis is a dummy record. NONAME BILL ANYSTREET CENTRAL KANSAS EPND;PROCEDUREREAThis is a dummy record. NONAME BILL ANYSTREET CENTRAL KANSAS EPND;PROCEDUREREAThis is a dummy record. NONAME BILL ANYSTREET CENTRAL KANSAS EPND;PROCEDUREREAThis is a dummy record. NONAME BILL ANYSTREET CENTRAL KANSAS EPND;PROCEDUREREAThis is a dummy record. NONAME BILL ANYSTREET CENTRAL KANSAS EPND;PROCEDUREREAThis is a dummy record. NONAME BILL ANYSTREET CENTRAL KANSAS EPND;PROCEDUREREAThis is a dummy record. NONAME BILL ANYSTREET CENTRAL KANSAS EPND;PROCEDUREREAThis is a dummy record. NONAME BILL ANYSTREET CENTRAL KANSAS EPND;PROCEDUREREAThis is a dummy record. NONAME BILL ANYSTREET CENTRAL KANSAS EPND;PROCEDUREREAThis is a dummy record. NONAME BILL ANYSTREET CENTRAL KANSAS EPND;PROCEDUREREAThis is a dummy record. NONAME BILL ANYSTREET CENTRAL KANSAS EPND;PROCEDUREREAThis is a dummy record. NONAME BILL ANYSTREET CENTRAL KANSAS EPND;PROCEDUREREAThis is a dummy record. NONAME BILL ANYSTREET CENTRAL KANSAS EPND;PROCEDUREREAThis is a dummy record. NONAME BILL ANYSTREET CENTRAL KANSAS EPND;PROCEDUREREAThis is a dummy record. NONAME BILL ANYSTREET CENTRAL KANSAS EPND;PROCEDUREREAThis is a dummy record. NONAME BILL ANYSTREET CENTRAL KANSAS EPND;PROCEDUREREAThis is a dummy record. NONAME BILL ANYSTREET CENTRAL KANSAS EPND;PROCEDUREREAThis is a dummy record. NONAME BILL ANYSTREET CENTRAL KANSAS EPND;PROCEDUREREAThis is a dummy record. NONAME BILL ANYSTREET CENTRAL KANSAS EPND;PROCEDUREREAThis is a dummy record. NONAME BILL ANYSTREET CENTRAL KANSAS EPND;PROCEDUREREAThis is a dummy record. EAThis is a dummy record. NONAME BILL ANYSTREET CENTRAL KANSAS EPND;A(B(C(D(F(H(I(J(K(L(N(O(P(Q(R(S(T(U(V(W(X(Y(Z([(\(](^(_(`(a(b(c(d(e(f(g(h(i(j(k(l(m(n(o(p(q(r(s(t(u(v(w(y(z({(|(~(((This is a dummy record. NONAME BILL ANYSTREET CENTRAL KANSAS EPThis is a dummy record. TPROGRAM(DATA:'LIST/DAT',INDEXF:'INDEX/DAT');CONSTNUMBER=50;{Numberofpossiblerecords}TYPESTRING=ARRAY[1..20]OFCHAR;STRING1=ARRAY[1..63]OFCHAR;PERSON=RECORDNAME:RECORDLAST:STRING;FIRST:STRINGEND;ADDRESS:RECORDSTREET:STRING;CITY:STRING;STATE:STRING;ZIP:REALEND;PHONE:STRING;MESSAGE:STRING1END;INDEX1=RECORDFREE:SETOF1..NUMBER;NAMES:ARRAY[1..NUMBER]OFSTRING;LINK:ARRAY[0..NUMBER]OFRECORDONE:INTEGER;TWO:INTEGEREND;START:INTEGEREND;VARA:PERSON;CURRENT:0..NUMBER;C:CHAR;I,I1,J,K:INTEGER;DATA:FILEOFPERSON;INDEXF:FILEOFINDEX1;INDEX:INDEX1;PROCEDUREGOTOXY(I,J:INTEGER);VARK:INTEGER;BEGINIF(I<0)OR(I>63)OR(J<0)OR(J>15)THENELSEBEGINK:=15360+I+64*J;POKE(16416,KMOD256);POKE(16417,KDIV256)ENDEND;PROCEDUREDISPLAY1(N:INTEGER);VARS:REAL;L:BOOLEAN;BEGINJ:=1;L:=TRUE;REPEATWRITE(A.NAME.FIRST[J]);IFA.NAME.FIRST[J]=''THENBEGINL:=FALSE;FORI1:=JTO20DOIFA.NAME.FIRST[I1]<>''THENL:=TRUEEND;J:=J+1UNTIL(J>20)OR(L=FALSE);IFJ>20THENWRITE('');WRITELN(A.NAME.LAST);WRITELN(A.ADDRESS.STREET);WRITELN(A.ADDRESS.CITY);J:=1;L:=TRUE;REPEATWRITE(A.ADDRESS.STABPASCAL 00/00/00 +k $p^BOOT SYS` ASCII CMDBB  AUTHCODECMDBB AUTHOR SRCBB"BASIS SRCBB#BASISTEXSRCBB$ COINTOSSSRCBB CREATE SRCBB!]DIR SYS GOTOXY SRCBB GRAPHIC SRCBB HELLO PASBB HELLO SPCBB INDEX DATBB )  INIT CMDBB  LIST DATBB' ' MAILIST SRCBB MAILLIST BBPASCAL80CMDBBR0PRIME SRCBBRANDOM SRCBB SORT SRCBB TEXT CMDBB  PASCAL CMDBB]  CTRLKEY CMDBB HANOI CMDBB7*  HANOI SRCBB0# CTRLMOD1CMDBB2  INDEX DATBB  RUN CMDBB MAILIST SRCBB$ TPASCAL L2 BB*3 AUTHCODECMDBB HANOI PASBB/!TE[J]);IFA.ADDRESS.STATE[J]=''THENBEGINL:=FALSE;FORK:=JTO20DOIFA.ADDRESS.STATE[K]<>''THENL:=TRUEEND;J:=J+1;UNTIL(J>20)OR(L=FALSE);WRITE('');S:=A.ADDRESS.ZIP;IFS<10THENBEGINWRITE('0000');WRITELN(S:1)ENDELSEIFS<100THENBEGINWRITE('000');WRITELN(S:2)ENDELSEIFS<1000THENBEGINWRITE('00');WRITELN(S:3)ENDELSEIFS<10000THENBEGINWRITE('0');WRITELN(S:4)ENDELSEWRITELN(S);IFN=0THENWRITELN(A.PHONE);IFN=0THENWRITELN(A.MESSAGE);END;PROCEDUREDISPLAY;BEGINIFCURRENT=0THENELSEBEGINRESET(DATA);SEEK(CURRENT-1,DATA);READ(DATA,A);CLOSE(DATA);GOTOXY(0,3);DISPLAY1(0)ENDEND;PROCEDURETOP;BEGINCURRENT:=INDEX.START;DISPLAYEND;PROCEDUREPLUS;VARI:INTEGER;BEGINI:=INDEX.LINK[CURRENT].TWO;IFI<>0THENBEGINCURRENT:=I;DISPLAYEND;END;PROCEDUREMINUS;VARI:INTEGER;BEGINI:=INDEX.LINK[CURRENT].ONE;IFI<>0THENBEGINCURRENT:=I;DISPLAYEND;END;PROCEDURELASTONE;VARI,J:INTEGER;BEGINI:=INDEX.LINK[CURRENT].TWO;WHILEI<>0DOBEGINCURRENT:=I;I:=INDEX.LINK[CURRENT].TWOEND;DISPLAYEND;PROCEDUREREADS(VARS:STRING);BEGINI:=1;REPEATREAD(S[I]);I:=I+1UNTIL(I>20)OREOLN;READLN;IFI<21THENFORJ:=ITO20DOS[J]:=''END;PROCEDUREREADS1(VARS:STRING1);BEGINI:=1;REPEATREAD(S[I]);I:=I+1UNTIL(I>63)OREOLN;READLN;IFI<63THENFORJ:=ITO63DOS[J]:=''END;PROCEDUREFIND;VARTEMP:STRING;BEGINCLS;GOTOXY(0,3);WRITELN('Inputlastname:');READS(TEMP);J:=INDEX.START;IFJ=0THENELSEWHILE(INDEX.NAMES[J]0)DOJ:=INDEX.LINK[J].TWO;IFJ<>0THENBEGINCURRENT:=J;DISPLAYENDEND;FUNCTIONQUESTION:CHAR;VARC:CHAR;BEGINREPEATC:=INKEYUNTIL(C='Y')OR(C='N');QUESTION:=C;END;PROCEDURENEW;VARK:INTEGER;BEGINCLS;GOTOXY(0,0);WRITELN('INPUTLASTNAME');READS(A.NAME.LAST);WRITELN('INPUTFIRSTNAME');READS(A.NAME.FIRST);WRITELN('INPUTSTREETADDRESS');READS(A.ADDRESS.STREET);WRITELN('INPUTCITY');READS(A.ADDRESS.CITY);WRITELN('INPUTSTATE');READS(A.ADDRESS.STATE);WRITELN('INPUTZIP');READLN(A.ADDRESS.ZIP);WRITELN('INPUTPHONENUMBER');READS(A.PHONE);WRITELN('INPUTMESSAGE');READS1(A.MESSAGE);I:=0;REPEATI:=I+1UNTIL(NOT(IININDEX.FREE))OR(I>NUMBER);IFI>NUMBERTHENWRITELN('NOROOM')ELSEBEGINSEEK(I-1,DATA);WRITE(DATA,A);CLOSE(DATA);INDEX.FREE:=INDEX.FREE+[I];INDEX.NAMES[I]:=A.NAME.LAST;J:=INDEX.START;IFJ=0THENBEGININDEX.START:=I;CURRENT:=I;INDEX.LINK[I].ONE:=0;INDEX.LINK[I].TWO:=0ENDELSEBEGINWHILE(A.NAME.LAST>INDEX.NAMES[J])AND(INDEX.LINK[J].TWO<>0)DOJ:=INDEX.LINK[J].TWO;IFA.NAME.LAST>INDEX.NAMES[J]THENBEGININDEX.LINK[J].TWO:=I;INDEX.LINK[I].ONE:=J;INDEX.LINK[I].TWO:=0ENDELSEBEGININDEX.LINK[I].ONE:=INDEX.LINK[J].ONE;INDEX.LINK[I].TWO:=J;INDEX.LINK[J].ONE:=I;J:=INDEX.LINK[I].ONE;INDEX.LINK[J].TWO:=I;IFINDEX.LINK[I].ONE=0THENINDEX.START:=IEND;END;REWRITE(INDEXF);WRITE(INDEXF,INDEX);CLOSE(INDEXF);END;CLS;GOTOXY(0,3);CURRENT:=I;DISPLAY1(0);END;PROCEDUREHARDCOPY;VARI1,I2,I3,I4:INTEGER;BEGINI1:=PEEK(16422);I2:=PEEK(16423);I3:=PEEK(16414);I4:=PEEK(16415);POKE(16414,I1);POKE(16415,I2);IFCURRENT<>0THENDISPLAY1(1);POKE(16414,I3);POKE(16415,I4)END;PROCEDUREDELETE;BEGINIFCURRENT=0THENELSEBEGINGOTOXY(0,10);WRITE('Delete(Y/N)?');IFQUESTION='Y'THENBEGININDEX.FREE:=INDEX.FREE-[CURRENT];I:=INDEX.LINK[CURRENT].ONE;J:=INDEX.LINK[CURRENT].TWO;IFI<>0THENINDEX.LINK[I].TWO:=J;IFJ<>0THENINDEX.LINK[J].ONE:=I;IFI=0THENINDEX.START:=J;IFI=0THENCURRENT:=JELSECURRENT:=I;REWRITE(INDEXF);WRITE(INDEXF,INDEX);CLOSE(INDEXF)END;CLS;DISPLAYENDEND;PROCEDUREALL;BEGINI:=INDEX.START;IFI<>0THENREPEATCLOSE(DATA);SEEK(I-1,DATA);READ(DATA,A);HARDCOPY;WRITELN(LP);I:=INDEX.LINK[I].TWOUNTILI=0;CLOSE(DATA)END;BEGINCLS;RESET(INDEXF);READ(INDEXF,INDEX);CURRENT:=INDEX.START;CLOSE(INDEXF);DISPLAY;REPEATGOTOXY(0,15);WRITE('>>Top+-LastFindNewDelete');WRITE('HardcopyPrintQuit<<');REPEATC:=INKEYUNTILORD(C)<>0;CASECOF'D','d':DELETE;'H','h':HARDCOPY;'T','t':TOP;'L','l':LASTONE;';','+':PLUS;'-','=':MINUS;'P','p':ALL;'N','n':NEW;'F','f':FINDEND;UNTIL(C='Q')OR(C='q')END.... INDEX1/DAT:0@ UTILS Y&CONFIG OLDaZ&INTRAY u''ACONFIG MINq|REE-[CURRENT];I:=INDEX.LINK[CURRENT].ONE;J:=INDEX.LINK[CURRENT].TWO;IFI<>0THENINDEX.LINK[I].TWO:=J;IFJ<>0THENINDEX.LINK[J].ONE:=I;IFI=0THENINDEX.START:=J;IFI=0THENCURRENT:=JELSECURRENT:=I;REWRITE(INDEXF);WRITE(INDEXF,O9LIST/DAT:0&& INDEX/DAT:0 ??m?22`_ ZQ*0Z?*6EZQ*0EZ*6EHB)ZZC'QQ? INPUT LAST NAMEu  uZ?a INPUT FIRST NAMEu  uZ?a INPUT STREET ADDRESSu  uZ(?a INPUT CITYu  uZ(?a INPUT STATEu  uZ((?a INPUT ZIPu  uZ(< INPUT PHONE NUMBERu  uZl?a INPUT MESSAGEu  uZɀ?ZQZZ*<ZZWZ2*6EHZ2*6H NO ROOMu  uB` Z*?Z<ZZZ{ZZZZZɼZQ*3H ZɼZZZ2ZZQZZQBT ZZZZZQ**TH( ZZZB ZZZH ZZZZZZZZQBT ZZZZZZZZZZZZZZZZZZQ*3HT ZɼZZ<`'Q?ZZ2Q?* Z &@ұZ '@ұZ @ұZ @ұ@Z @Z ZQ**H ?*@Z @Z  ZQ*3H B Q ? Delete (Y/N)?u x=Y*3H ZZZ{ZZZZZZZQ**H ZZZZQ**H ZZZZQ*3H ZɼZZQ*3H ZZ2B ZZ2Z<'? * ZZɼZQ**H Z*?<Z<?  ]uZZZZQ*3HB `'o<Z<ZZɼ2? Q? &>>Top + - Last Find New Delete u& Hardcopy Print Quit<? $!T!tBK?N$!L!lBX?$!;!+Be?n$!-!=Br?$!P!pB? $!N!nB?z$!F!fB?q$cZQ*3Zq*3EH MUENCHRATH HERBERT OSTENDORFSTR. 6 DUESSELDORF-1 U[\4W]9W\\\2F^.|2p2!W*Dp"]#27V](% 2Vp2rp*Fp#"^7]Z w#| !"gpn#&UyY! ^!AZ#^#V^7] ~~X ~#fo2W '> 7]_~OA(=p>2W +V+^y^  s s#rXͮ^~˿2W!APW^V*WDp#^#VW^#~ݦW"XZnf!N(r+sF("!N nf ?\^ V 8 #ͩX( f(?Z W#v^ >&{Wv^ v^8(v^8(v^?v^? "X!@As#r#!AA~ +6@"X!As#r#!A~ +6@|( !XZ[ϷR}{W}}}~XT]}xp$WE ̓pFALSE ̓pTRUE X͆pկ2I[E[E[Ͷ[|[V[n#f#͇Y7] yY}]KDp =(#yYU[^^8t^7]O !q"Dp>2Z>2@7]2ZZ"Z!R"Z!t^Y"Y*W\"Z"W\yY"Z*^^"RNFCR##R̈́YyYt^"^!9%p^~([= #~<_= #~#N#FG#u#t#=( #N#F*Dp ##!Rs#r#}t^"Zq#p#>!(=!.sZ!!*I\*Z-V-^ sI\!*Rs#rZZC(yY[DZp:@8W( O ["C[!U["Ys#r"I\*W\^#V#S^^R##̈́Y"W\[|>2I[l`[:I[>2[2I[| E[E[z( 8=))0 !"-\Z~#o&9"\"[ *-\1[-[\yYͶ[t^!+V+^"\==zƀWN#F#B~#foB8#Ͷ[t^"-\#"m\yY^8Z ~# {I\[!}"x\~Xs^*^%Y~]+$% }ݾ8#7]8 yY?\yY8Ͷp{pͳp͹pͼpͿpSWpSWZ\yY7W7]yYB ]!^" @!3"yp>2~p]A^!WK" @F*p]A^$p~#!gp!hps!;"yp>2F^:gp=G> xp7]2~p!p"ypd]d]͏pd]Ͷ[}L͒pd]͉pd]͌p[!9A "]1c!("Dp>(2Z:@(yY yYz( ͐iw#yYz(~#]ͧiy^yY"+^"!^!9[+^p^E8X"(^!;'^AyY"+^"!^"(^ ^͘p> ;7]_!@=ͰpI^~@2A!A~ A+o!A5~ _!@A!!A~G<(˿x(w#yg#A!AA((~ ~+(~ H`?+( ~ <7X`?~(7?~G#!R͉`!A9_!GA9_!A~@8(8<=# >8w6@A>E|(l`>w#!p``#``#`o;_+F+`NB<0= ov`!A~@(80O#o?2a8 (8|( l`ɷ!p F#fh= !A@AA!@A2a~˿2a˿2a2aUa_4_>ta:AA !@AA!A" b!AAbb#* b#" b2a:A !A A+o!a4>__!aAwA o+~'wÉ_oG!g#x(>G+'0'͓bUIa~a?_!@A͉b:A(!A͉b._:A@o&P"@A?_`#~+~w:AA >Ata:aD2a!A" c!AA"bbb*b#"b* c#" còa!AAA8, #b y! O+'0'!yo*bg#n#&'c Cd&d5dEcdEcIdcccucd~c:A͠c<>=2d _>G( !A>0o>=(#"Xe>2fe0!w#6"we͈e>.:A@We+65+~.(- 61+6- 61R"f2fe!A"Xe:gpef<4fggvéeWe͑e*we+6E:A@>+0D>-ve &f&fveÒf0xte:hpf:A:hp( JeсO:gp8 (g=gveJe(083We!A5Je :hp( ̈́eWe= ͋e!~#xp͈e͈e:hp(̈́e͈e!hp5(!A4Je(8:hp(ff xp!fA~ +>(< 2hpG:AOx@0!A~˾>+>-> ve!@A6@#60(\h({i0`g{i8E(\h e0 h{i07h- +hxDG+ +h:@Alh#2@A:AA i>@2@AbE {i8-(+(W_hy(A!@A~@(80O#og?Dh8 (8|(70<ɯo@ h#hx+:@A2@Aɯ@(o#x6#zitixGtilhxɷ!p F#fh8= .{i>.8ɿ:~p w:~p2pͨh:~p<( EeREDOnhop!ri" @2p:~p<(pghg"h+͖hnh~ "hi(h:p!Ri(!@A:pwA<~G#~:0?Sͳa [Oxwj@j~,jkk͈j͸j@jw, HkNjjk>2pj-(+i( ( (p8 !Sw#j(j!j(60123456789.E+-;jȯ͸jNHk(D:~po&@.:~p/g-jn͸jF;j6D-j6j;j@!͈j,Dj> !>$2j;j>c6j D-j66  D-j!WK" @*Dp~2bk:p2=j#3j:~p(=j ͋jFj@j~kjk@j~,jkkNj%k͈jj(j͸j@jw,Hk6jk;j͸jV˖( ! N#F xo9Dͪj6jE-jpj !~p6j(46j(460> >?2Eo:Wp!-p( !3"yp!p̓p COMPLETE >2Vp>?2kEo: @?Bo:HpG(> Do>^DoBoFkBopx!Pl(!Pl̓pEXPECTED !?m˸~ ̓pSYSTEM ERRORp#~# :@8W(:8 :8BAD OPTIONBAD SYNTAXUNDECLAREDDUPLICATEBAD RANGEBAD TYPEOUT OF MEMREAL OVERFLOWMISMATCHUNRESOLVED GOTOBREAKINT. OVERFlLOW DIV. BY 0DISK ERRORILLEGAL JUMPFILE NOT FOUNDDISK FULL BEYOND EOFSTRUCTURE TOO BIGOP. UNDEFINED.CONSTANT:END (OR ; ?):=)(IDENTIFIER;=LABELSCALAR..BEGINDOUNTILTHENTOOFPARAM./INDEXVARIABLE(..)'PROGRAM̀p̓pEXECUTIOmNͻk-pBok̓p AT :Dp/O:Ep/G o-p tk-p"n$D ̓pNOT FOUND D̓p DISK ERRORS(D!'z" @> xp!3"yp:rp(:Vp°{̓pPRESS + wnL+!"!TS6D"n!TS6Dn:TO(̓pBAD FORMAT3n!n"nun*T"FpSDp͆nS(Dp!po!WK" @rp2Vpsn͋jogo-jwBDêj"A!A:Hp2Hp2o+2o> 5oo 80> ?xp >> M"eo!]o*eo>(D$D͸jLjE!o@~3#!"@!x"@!%" @ 2 D!"!D-@ HILL NC ALL *p"ED u}Mgf\lsqiWo}yPvoq~VIkoguioBiikj=j^'Zdc6g]ZZec/`R_P\_MK&%$#"x9nûV DoÐ=;èømom~nré28îCo(D rdfDd v6NoO  vM|>3ãh0eEeeÅjfjjokvkpk d'ͮp*6ndnhÚhhBiZiDr4p6D!t(`(_ó`ÓbUc#"6vÕfijjjg{i}??  #+7ZQ- H\ZZZ9BeZQZ-HZK@QZZ@1 ay3!9]Z6WHZZWZ/Z99ZKZ+Zq9Z/3ZZ/ZA1A`bP0!3Z+3Zv0!3Z9 93 H$Z#ZBZ'ZZ3!Z#spf'uZ'3!7xDc#3Z'3!%p4q3Z'3!;'UsB3Z'3!i2#3Z'3!>3333'Y3Z'3!ffffff3Z'3!Z#ZZZr#3!3ZHZZ#9BZZ#ZZ9Apyc&yI3x 4ZQ- HTZZ9x9B*Z-H{ZZ0$Z$BZ$QZ@&yI$13HZA2V-Z3! @P3 @P3Z3sA2VZ33$Z$Z$*<Z9 :3 HZ(ZBZ,ZZ3!Z(Z,yC)T4Z,3!BtDSg3Z,3!Bt2g &$33!Z,A6H53Z,3!B Qq7ed"3Z,3!B)33$Z(ZZZ(3!3Z$*6HZ(Z(9Z$Q*3HZtZ(B*Z$*3HZ@R5wU0Z(3B*Z$*3HZApyc&yIZ(3B*ZAGuQfZ(3EZ0Q-H^Z0K@QZ=Z09lZ0Z09cZ0@1b'v`3HZ0Z0 B3!Z=Z=*?Z9Z0 @P3 @P3uZ0 A33$Z5Z99Z,A#XP@Z=Z9@8PZ5qC32&Z53!AbP6Qy3Z53!h#p$3Z53!As#3Z5!x5V3Z53!BGRV8s3Z53!dft C3Z53!B)AWP##33$3!33!03! (*,ZvQ- HZZ9x0$BZ C3HZK@QZ9 23 HZKBZZ9ZKZZZ3ZZ@8P3!9]ZZZ AQ0!3Z3Z=)%FIp"0!3ZZ9Z?3(sdeAZ3!Bub3Z3!CPDd3Zw3!Z @PZZC b3Z3!Dy3Z33$3 A 3!Z6WH#ZZA1b'v`3!ZZ*KZ*6H_ZZ*?ZZ Q3!Z*6HZZ*?ZZ I3!Z*6HZZ*?ZZ E3!xZ AWPZZ -!BZZ2Wp2rp2Vp 2 D!Po"!Dù2~|26y29z:8=Ľ!@'z>3!?y" @ͮ|1|b}|* @!?" @̓p>QUIT TOP NEXT PREV OPEN DEL CANC LINE ERA FORM BLOCK WRITE<" @4y(*Q'zT !"2}2Vp!<y" @&yL q~͙~6#6ͮ|&y :}/2}ɣyEyq~~N [0~#= "yP (++~= #|&y!3"yp!M|"pp2rp1ͣ!<" @ 0@}Ez#Û| C ̓pP A S C A L - 8 0 E - EDITOR Q - QUIT (TO DOS) K - KILL (CLEAR EDITOR) C - COMzPILE͉̓p R - RUN͉̓͠pS - SAVE͉̓p L - LOAD̓pA - APPEND̓p W - WRITE OBJECT CODE TO DISK̓͠pX - EXECUTE PROGRAM FROM DISK !'z" @ͷ!'z" @EʧC n2Vp2Wp pQnK !̓p ERASE TEXT? (Y/N)ͷYx'zS |n~W 2rp:Vp^{2{rp|n\L !S{| nͽ9A *+nX |ͽ nçnRL{n2Wp:Vp>2Vp pp3̓p ENTER FILESPEC - TO ABORT M|S!WK" @!T>3>?3* @"|wn * @[|(> (2|: @?>0>X > 83!?S[ @(~Oz> 3[|!<||!?×|@t£~=<0w#րt£~6 #= + 3O}h !" }!+" }} > tb}F}h(* @t~(:X}w2}!" }I}x`* @~_ >P2X}>_w[ @O_ :X}yí{?_y:}0{2}y ~* @}oR~# }?( ~# (x}xEz? >Mq~~͙~!R>O " @* @?* @" @*[Ү|~#= [Ү|"î|[ * @@<>[0*++~= # >!?6 #|@3}Á * @#}" @}?2}* @@R8*x[~#= *`8̓pEDIT~OR FULL 9nR "6++x[~#= *Rx(S*"$R"T>T2TTS9D"n$%(0 T3nS6Dn:TT·n*Tڣ~"͆n*Fp"$[DpR"T*Dp>O  }?>̓p PROGRAM IN EDITOR̓p (COMPILE IF NECESSARY) !""6+"6̓p TEXT TO EDITOR "+#~0p#~=+> p~րG> péÎ0 ;(* ~) ͦͦ0;(~p0ͅ+͌!@A> >S@A ' I!@A~#' N(x!@A# 0ͥրO (> ͥw#x0!Hp4G~8> O!x#y͠z8ɇo&>#~Āy !f!oy8o&ހ&ހ&ހ!$~(JÍ (#͂81~~8+͌}" .# .)8^#V>~# ~͂0͠> +p~A?'*-0<=<>>=:=..(..)(**). IN OR DIV MOD AND NOT ARRAY BEGIN CASE CONST DO DOWNTO ELSE END FILE FOR FUNCTION GOTO IF LABEL NIL OF WITH PROCEDURE PROGRAM RECORD REPEAT SET THEN TO TYPE UNTIL VAR WHILE PROC FUNC .()[:,;$<=><+-<*/~# zpKB:Hp=2Hp!Hp~"!Hp8ցw4#": @?(> p2Hp pɯo 80p"K2VpBOOLEAN>!9%R"Ao*Jpw+"Jp6!4ɯ>2g"*Lp+Sb5  +fo4 g!$% *.+"Jpx*~#^R+"+~+(*í+S"Rp~+ !S<2A*Dp"Fpw!A:lsڃ*8 !lp!4#ɷ?+o[Fp*JpR*D%.&"0|g"̓p STARTING 1!! "@!p"@!k" @*#"Dp"Fp2Hp*!w( +[Fp8υ*>?2Eo222~>92׷(J ~H !;"yp> xpN 2EoZ 2~C 2M(V(2><22~p}0(>͸ ( r (~p8þ[0#=(~( (M( >:~p< 2~p*Jpυ ͺ% ͺ(0Oͼ (((>͸>͸p͸ (!R[RҠk^#V#N#F#+N+Fy<  q#pH 3͸~# ( > +"Lp[s+r+"Jp6̀p̓pCOMPILATIONBOOLEAN INTEGER CHAR REAL6 REAL TRUE FALSE MAXINT MININTPIA1AY&SXCLS' WRITELN WRITEABSCHRODDORDPREDROUNDSQRSQRTFPEXTRUNCSUCCPOKEMEMEOLNCALLPEEKREADREADLNTEXTEOFINKEYRESETCLOSESEEK INPUT OUTPUTLP REWRITESINdCOSd ARCTANdEXPdLNd+ >?!p###!>!p)!"##"Q!R"Rƒ2!p}& "(,>( ƒ +`")>!(r < >2Bډ)>V @ ,8ډ$%( 2B<2! 222B!p!"*`p!>.p >@͜*Jp͉>s+rKS+q+pKS+q+pzg(>rO82 !wq$% - 2> "3ډ!!>"#r#s"!!> 1~F ,#~O &>!p!s+r[Jp+s+rSJp08ͻ5͏"Lp׷€}É> ͜9͉Ո(*Dps#r"`p!"bp2p(}p"3ʀ>!׷ }* t"BOs͂rÂ!T""2" >2(͎î[RpS[#~ >2" ɷn} l>!p*6 ͂҉2Y!p(><2YƉ:Y=(*OS*~#!p((*҉*Dp :Yw͹6 &͹Ɖ"!6͂҉w͂^2O*V!"V>2B*6͂[Jps͂r͂͂͂"q*׷(/8ã$%( >2!(Է¦͢͏"Lp"[Vs#r"V!"~O6͹ßtî ً2(#~IWSR(W!]T*R "R*T "T]!R :Q_<ʇ2Q2)>:Q=ϯ><2ʇ(l&:=o "TCR?p!?p~#~ɤ [0:8A0` Eͩz((°}(°z}(#~+z~wz~/w#~/w+z (9ҲGW0 WG(˸z( +~ zG2= #^#VF#!}|= } 9׷} 7>(5O#~)>V)>(> *VVͫͧ"V>#Vͫ:!p#}!p|( :(>©:ͧ"*>2ͺ>~(.ʡ#N#F##*Dp ~#N#F#~#foBͨ= ###~g(xx+og<ˇ <+~=2!ͧ= *}!p|!p"`p0!!p2 #~#^#V#*~ ( (r~###~ր,"*Jp"و*Jp";"j2?p *Rp~€ +^+VS`p+^+Vz q+~2 +^+V*Dpʹ+^+V++++"Lp*Jp62 q!X"" 4;p<#~#<(*Rp+s+rQ *bp\*`p\!A Y(} >(( (}1B -pT!3!>Q\4 (}!>DpQ$ 3pT!83!_}{(;Q!;" 3"(;pQ*Dp*Rs#r, [Rps#r#"R!¾BM'\˂\S\S!Ap }:( !(!#p#͖!\!\[J> !pz!p!\!\+#MÌRpQ !BB}!*Dѷ jMMQ!;5p#zQ ^#8V[ !DQ!Q (T;(( T(}H #~!pQ “Q>'Q>!p> !p͝>!pa@ ْ uQHH>!!"22H ?#~< #42'5Q/"<(2Q~!p#4(:'>62Õ>&Q/: H(@R:Y(a:Y  ʼQ/Q >.d>+ dL >% & >B*Dp#F(QB!p<3Ru#~#~<'>pQ\QI!phaQaQ(a˂z8> 8>>!p++\*RpaQ[a aaSSaa2Y! "ē!ܓ">ʪoo*ԗ"ח !ܓ"Cē*lp*jpz ˂X22ɖ" Q<}!p{!p) Q>\[0 g(.;;;>@2ɖ)>;%@ =dC(>;d{!pˇ_ ܓ>!( Q;!p*Dp+++6( #~<(<(==!p! "J! 2v=22 q pz 8T%0P"( # >2!'{2 (2v>42 !*Rp+~+e2>4ͭ[:Y(8_9_z8͝ր(!p)瘷(  Q> ('>$ ( >#ͭ 2 qpLpz'$!p(DQKDp s#r# 8p~d#}!p|!pG!p}2Y2Y~͐͡N+FCjp+N+FClp2>>!ɯ"ԗ2~> > 22"( ٝ͐!~++#foKDp ~p"˄G#=( xx(Q3\͝\á*LpSLpH RQC*Rp͐[̀"Lp*H#\~#^#V#͐#z*Rpaa##>a|RzU22>2Y+"ח͙͝z'8>( !p>!p!p!p2ז2Җ>( Q?>!p>(La|0 'ӗ8'z( d'z |( Qz'8>d8>d{= >d*bp++"bp*bp##+eؖpz xd>z!D*RpQ͐[+^+V+}!DT~+!T>p"vpE(> 2#}2@8<}2!~( (++F## '+zր2Zl͗S} k\; zր2Z2 qkSz: ( (>$ԛ͕ Θx} znV.Ϙ͕\} ~Θ~LΘ\zy &:͗\9\{26"3}'(* zԛy,- ~~L!z ,ԛԛ! گ(A5p85Lzy: qx >}!pƀ2x̛8 ( G> !pvͰ"Ap8p d ( ʚ͇LG ;>DL & ʚz!( y{!pf>!p >Ef L5 >"@dp(- '#^{#<(< #~< ($ ~<"(p2z"|z8րo&Lt=ͩ>!y0 *vp˂zb L2>7f:lp???<(!p͗ {L Ϝ yŸ !QQͩL) ͇ yF ͇!ͩœ ϜL*͏5b5ǘ52L,( (z 1~f#W >$8<G!pr> 9  z0 O|yͤ#~!p}!p|0 #6+~#+> >f~#!pznWn$}!p>ԛ( f92% LF >0͇ ͇>QL!p= ͇>T= ͇>W= ͫ>(>r!p= p>(>Bz Lz(yL8(fz >59**3؜:*32""3>! zy2{2*Rp9z Lz(yL'+^+VͩL-ɺyL+}!pzր!p:fz\z yHOno"ח͝z ٝzѺ'ӗ*vp:Y~( >0ƀW̓>>( ( Q!p>>]!pd>+ͭQ'͝0ƀWH'>>d2ɂ+s+r8)*`p#! 6>2F׷ }@ >2F0|g!(l*Jp"++l *Jp"[LpS+++s"Lp+r+"Jp66[Jp+s+rSJp###N#F !ͧx +~#0q#p!uUPpx[( ]y>>` >][( @3} 0գ8(e!9#(#(>@×y   * @}?>={?_ (j7?R 6 * @}?? 6 #~+w#:L(7?Rڟͦ:L 6À"J*H:6(+ڟ>26!:M6D7?R*7?R"6(4  7?R8>26"H*J*J2L!k6^!D"" "V!60"4e! y6h#6#6!>>"o!>"x* @M"$]"j"n:%I(.!k6[!I@"" "V!mD"4e! y6"#6#6C! "o"xР:mD(>2Z}2|>2S}>_2T}2_}2i}> 2U}2j}p"B|>2}!@@SÏq~2S+"S##~#@( &y~ #"S7?fR"S*S*S~ #~(c+~# ~(x(2SDO CS*S+ *S+KSSSKS![S*S$"S*S$"S:S(*S+6"&y+++6"&yd~$(ÿͦ~$(ïͦ!76!M"8ͦ0*(:7=(U27*8w#"8ͦ)*8> w!M$DM6D:6D"J!"H>2L26̓pSYNTAX ERROR Wn̓pFILE DOES NOT EXIST Wn!:L'z2L!"*Jb'z:8:} ( 8 > >Z~F~|? }86 #ìy(ˆ}u}*D%| y*"̓pIyԤ@SրG~> ;2 ^+VK4+"e~+fo~(F(B+~G#~+~G++G+( %~G#~O*e++x y *e: <2 ++++P`: ".a=2 +P[0A?{a? ͗/'ͤG~ͤx{a_͗ʝÚwnͤͤA0UͤIq~~# > @ ~>@0;2 ^+VK4+"e~+fo~(F(B+~G#~+~G++G+( %~G#~O*e++x y *e: <2 ++++P`: ".a=2 +P[0A?{a? ͗/'ͤG~ͤx{a_͗ʝÚwnͤ>2Z}2|>2S}>_2T}2_}2i}> 2U}2j}p"B|>2}!@@SÏq~2S+"S##~#@( &y~ #"S7?fR"S*S*S~ #~(c+~# ~(x(2SDO CS*S+ *S+KSSSKS![S*S$"S*S$"S:S(*S+6"&y+++6"&yd~$(ÿͦ~$(ïͦ!76!M"8ͦ0*(:7=(U27*8w#"8ͦ)*8> w!M$DM6D:6D"J!"H>2L26̓pSYNTAX ERROR Wn̓pFILE DOES NOT EXIST Wn!:L'z2L!"*Jb'z:8:} ( 8 > >Z~F~|? }86 #ìy(ˆ}u}*D%| T4$ZPROGRAM;VARSIEVE:ARRAY(.1..10000.)OFBOOLEAN;PRIME,I,J,K:INTEGER;BEGINI:=1;WHILEI<10000DOBEGINIFSIEVE(.I.)=FALSETHENBEGINPRIME:=2*I+1;WRITELN(PRIME);IFI<100THENBEGINJ:=PRIME*I+I;WHILEJ<10000DOBEGINSIEVE(.J.):=TRUE;J:=J+PRIME;END;END;END;I:=I+1;END;END.9Z?*,.0'+ZZ'*0HZZ Q*3HZ#Z*E*<Z#Ki  uZd*0HZZ#Z*EZ*<Z'*0HZZ ZZZ>2Z}2|>2S}>_2T}2_}2i}> 2U}2j}p"B|>2}!@@SÏq~2S+"S##~#@( &y~ #"S7?fR"S*S*S~ #~(c+~# ~(x(2SDO CS*S+ *S+KSSSKS![S*S$"S*S$"S:S(*S+6"&y+++6"&yd~$(ÿͦ~$(ïͦ!76!M"8ͦ0*(:7=(U27*8w#"8ͦ)*8> w!M$DM6D:6D"J!"H>2L26̓pSYNTAX ERROR Wn̓pFILE DOES NOT EXIST Wn!:L'z2L!"*Jb'z:8:} ( 8 > >Z~F~|? }86 #ìy(ˆ}u}*D%| TPROCEDURERANDOM;VARI:INTEGER;BEGINI:=CALL(-62,0)END;FUNCTIONRNDR:REAL;VARTEMP,J:INTEGER;BEGINJ:=CALL(-100,0);TEMP:=PEEK(-64)+256*PEEK(-63);RNDR:=TEMP/32769END;FUNCTIONRND(N:INTEGER):INTEGER;BEGINIFN<1THENRND:=1ELSERND:=TRUNC(N*RNDR)+1END;.END.-A[J])END;END.*J,47-A[J])END;END.J,47-A[J])END;END.T(10*J,47-A[J])END;END.10*J,47-A[J])END;END.*J,47-A[J])END;END.ND.END.]:=A[J]+1;PSET(10*J,47-A>2Z}2|>2S}>_2T}2_}2i}> 2U}2j}p"B|>2}!@@SÏq~2S+"S##~#@( &y~ #"S7?fR"S*S*S~ #~(c+~# ~(x(2SDO CS*S+ *S+KSSSKS![S*S$"S*S$"S:S(*S+6"&y+++6"&yd~$(ÿͦ~$(ïͦ!76!M"8ͦ0*(:7=(U27*8w#"8ͦ)*8> w!M$DM6D:6D"J!"H>2L26̓pSYNTAX ERROR Wn̓pFILE DOES NOT EXIST Wn!:L'z2L!"*Jb'z:8:} ( 8 > >Z~F~|? }86 #ìy(ˆ}u}*D%| TPROCEDURERIPPLESORT(VARA:MATRIX;VARZ:INTEGER);(*IMHAUPTPROGRAMMMATRIXALSTYPEDEFINIERENMATRIX=ARRAY(.0..N.)OFREALNISTBELIEBIG*)VARI:INTEGER;K:REAL;C:BOOLEAN;BEGINC:=TRUE;WHILECDOBEGINC:=FALSE;FORI:=0TOZ-2DOBEGINIFA(.I.)>A(.I+1.)THENBEGINK:=A(.I.);A(.I.):=A(.I+1.);A(.I+1.):=K;C:=TRUE;END;(*IF*)END;(*FOR*)END;(*WHILE*)END;(*RIPPLESORT*)ESORT*).I.));END.0TOANZ-1DOWRITELN(WERT(.>2Z}2|>2S}>_2T}2_}2i}> 2U}2j}p"B|>2}!@@SÏq~2S+"S##~#@( &y~ #"S7?fR"S*S*S~ #~(c+~# ~(x(2SDO CS*S+ *S+KSSSKS![S*S$"S*S$"S:S(*S+6"&y+++6"&yd~$(ÿͦ~$(ïͦ!76!M"8ͦ0*(:7=(U27*8w#"8ͦ)*8> w!M$DM6D:6D"J!"H>2L26̓pSYNTAX ERROR Wn̓pFILE DOES NOT EXIST Wn!:L'z2L!"*Jb'z:8:} ( 8 > >Z~F~|? }86 #ìy(ˆ}u}*D%| TEXT1 d1ʹϤ!2$D !d2 D Q>T͢>͢>͢!":d :e( 2e:f͋ʢ> ϢȣϢ > :H_<2H!w ( :H>(:H=2H2O͋2f( >2d>  (>2e:H_G!~ (+>Xx2H>>2(G!I~#u͵:2Hb( G!Iw#ɯ2!:HG(~# (:<2 y:<20>< !:͢>͢2BD >T͢*}͢|͢W*#"| K4+"e~+fo~(F(B+~G#~+~G++G+( %~G#~O*e++xy *e: <2 ++++P`: ".a=2 +P[0A?{(( 2 ~# ;~# ; > ~# ;T;~# ;O U~# ;2~# ; ;~# ;  DCFile already exists!-'Not text file!Df-@Syntax error!f(D^2(D-@~#3:CgNAME BILL ANYSTREET CENTRAL KANSAS EPND;PROCEDUREREATh*8> w!M$DM6D:6D"J!"H>2L26̓pSYNTAX ERROR Wn̓pFILE DOES NOT EXIST Wn!:L'z2L!"*Jb'z:8:} ( 8 > >Z~F~|? }86 #ìy(ˆ}u}*D%| R s }?o&<{@(=" @(>8 JS}o8 _2S />͙R>2a2b2*b2b2b2b=(>2d]uy( &JS:S(>o& S*S!!v!E2qz>͙R]RV D&R*oSVR!U$D&R)S0((((($ (&R7]|RS{0"S!<8 8 88>@_2S:S?_:S((:S?0#:S(:S8{/_ͺSw~>ͺSwͺS2S>![S/0"#0 ˼"S_2SSR x( BD9D&R?DVR6D((&R:^R2~R*bR"RvR(D&RvR9D&RVRDR*R$D&R,D&Rɯ2T2RVRDR*RTvDRVR!U$D&RVR   ( 88>.ͦR͖R > ͦR&RP RPRINT RCTL TVRDR*R0D&RT~[\4W]9W\\\2F^.|2p2!W*Dp"]V#27](% \z2rp*Fp#"^7]Z w#| !"gpn#&UyY! ^!AZ#^#V^7] ~~X ~#fo2W '> 7]_~OA(=p>2W +V+^y^  s s#rXͮ^~˿2W!APWW^V*Dp#^#VW^#~ݦW"XZnf!N(r+sF("!N nf ?\^ V 8 #ͩX( f(?Z W#v^ >&{Wv^ v^8(v^8(v^?v^? "X!@As#r#!AA~ +6@"X!As#r#!A~ +6@X|( !Z[ϷR}{W}}}~XT]}xp$WE ̓pFALSE ̓pTRUE X͆pկ2I[E[E[Ͷ[|[V[n#f#͇Y7] yY}]KDp =(#yYU[^^8+{7]O !q"Dp>2Z>2@7]2ZZ"Z!RY"Z!t^"Y*W\"Z"W\yY"Z*^^"RNFCR##R̈́YyYt^"^!9%p^~([= #~<_= #~#N#FG#u#t#=( #N#F*Dp ##!Rs#r#}t^"Zq#p#>!(=!.sZ!!*I\*Z-V-^ sI\!*Rs#rZZC(ZyY[Dp:@8W( O ["C[!U["Ys#r"I\*W\^#V#S^^R##̈́Y"W\[|>2I[l`[:I[>2[2I[| E[E[z( 8=))0 !"-\Z~#o&9"\"[ *-\[1[-\yYͶ[t^!+V+^"\==zƀWN#F#B~#foB8#Ͷ[t^"-\#"m\yY^8Z ~# {I\[!}"x\~X@S^*^%Y~]+$% }ݾ8#7]8 yY?\yY8Ͷp{pͳp͹pͼpͿpSWpSW\ZyY7W7]yYB ]!^" @!3"yp>2~pͶRA^!WK" @F*p]A^$p~#!gp!hps!;"yp>2F^:gp=G> xp7]2~p!p"ypd]d]͏pd]͉:͒pd]͉pd]͌p[!9A "]1c!("Dp>(2Z:@(yY yYz( ͐iw#yY]z(~#ͧiy^yY"+^"!^!9[+^p^E8X"(^!;'^AyY"+^"!^"(^ ^͘p> ;7]_!@=ͰpI^~@2A!A~ A+o!_A5~ !@A!!A~G<(˿x(w#yg#A!AA((~ ~+(~ H`?+( ~ <7X`?~(7?~G#!R͉`!A9_!GA9_!A~@8(8<=# >8w6@A>E|(l`>w#!p``#``#`o;_`+F+NB<0= ov`!A~@(80O#o?2a8 (8|( l`ɷ!p F#fh= !A@AA!@A2a~˿2a˿2a2aUa_4_>ta:AA !@AA!A" b!AAbb#* b#" b2a:A !A A+o!a4>_a_!AwA o+~'wÉ_oG!g#x(>G+'0'͓bUIa~a?_!@A͉b:A(!A͉b._:A@o&P"@A?_`#~+~w:AA >Ata:aD2a!A" c!AA"bbb*b#"b* c#" còa!AAAb8, # y! O+'0'!yo*bg#n#&'c Cd&d5dEcdEcIdcccucd~c:A͠c<>=2d _>G( <d!'eLa~a!A/wUIa___͓b_?_._!@P"@A~axdUUc@D'@"6@1b'v`!:e60Ee 00:12:58 ͕f:A@(>!A>0o>=(#"Xe>2fe0!w#6"we͈e>.:A@We+65+~.(- 61+6- 61R"f2fe!A"eXe:gpf<4fggvéeWe͑e*we+6E:A@>+0D>-ve &f&fveÒf0xte:hpf:A:hp( JeсO:gp8 (g=gveJe(083We!A5Je :hp( ̈́eWe= ͋e!~#xp͈e͈e:hp(̈́e͈e!hp5(!A4Je(8:hp(fff xp!A~ +>(< 2hpG:AOx@0!A~˾>+>-> ve!@A6@#60(\h({i0`g{i8E(\h e0 h{i07h- +hxDG+ +h:@Alh#2@A:AA i>@2@AbE {i8-(+(W_hy(A!@A~@(80gO#o?Dh8 (8|(70<ɯo@ h#hx+:@A2@Aɯ@(o#x6#zitixGtilhxɷ!p F#fh8= .{i>.8ɿ:~p w:~p2pͨh:~p<( EeRedonhop!ri" @2p:~p<(pghg"h+͖hnh~ "hi(h:p!Ri(!@A:pwA<~G#~:0?Sͳa [Oxwj@j~,jkk͈j͸j@jw, HkNjjk>2pji-(+( ( (p8 !Sw#j!j j60123456789.E+-;jȯ͸jNHk(D:~po&@.:~p/g-jn͸jF;j6D-j6j;j@!͈j,Dj> !>$2j;j>c6j D-j66  D-j!WK" @*Dp~2bk:pj2=j#3:~p(=j ͋jFj@j~kjk@j~,jkkNj%k͈jj(j͸j@jw,Hk6jk;j͸jV˖( ! N#F xo9Dͪj6jE-jpj !~p6j(46j(460> >?2Eo:Wp!-p( !3"yp!p̓p Complete >2kVp>?2Eo: @?Bo:HpG(> Do>^DoBoFkBopx!Pl(!Pl̓pExpected !?m˸~ ̓pSystem Errorp#~# :@8W(:8 :8Bad OptionBad SyntaxUndeclaredDuplicateBad RangeBad TypeOut of MemReal OverflowMismatchUnresolved GotoBreakInt.l Overflow Div. by 0Disk ErrorIllegal JumpFile not FoundDisk Full Beyond EOFStructure Too BigOp. Undefined.Constant:End (OR ; ?):=)(Identifier;=LabelScalar..BeginDoUntilThenToOfParam./IndexVariable(..)'Program̀p̓pExmecutionͻk-pBok̓p at :Dp/O:Ep/G o-p tk-p"n$D ̓pNot Found D̓p Disk ErrorS(D!'z" @> xp!3"yp:rp(:Vp̓pPress + wnL+!"{!TS6D"n!TS6Dn:TO(̓pBad Formatn3n!n"un*T"FpSDp͆nS(Dp!po!WK" @rp2Vpsn͋jogo-jwBDêj"A!A:Hp2Hp2o+2o> 5oo 80> ?xp >> M"eo!]o*eo>(D$D͸jLj999!o@~3#!"@!x"@!%" @ 2 D!"!D-@ HILL NC ALL *p"ED u}Mgfo\lsqiW}yPvoq~VIkoguioBiikj=j^'Zdc6g]ZZec/`R_P\_MK&%$#"x9nûV(DoÐ=;èømom~nré28îCo(D rdfDd v6NoO  vM|>3ãh0eEeeÅjfjjokvkpk d'ͮp*6ndnhÚhhBiZipDr46D!t(`(_ó`ÓbUc#"6vÕfijjjg{i}??  #+7ZQ- H\ZZZ9BeZQZ-HZK@QZZ@1 ay3!9]Z6WHZZWZ/Z99ZKZ+qZ9Z/3ZZ/ZA1A`bP0!3Z+3Zv0!3Z9 93 H$Z#ZBZ'ZZ3!Z#spf'uZ'3!7xDc#3Z'3!%p4q3Z'3!;'UsB3Z'3!i2#3Z'3!>3333'Y3Z'3!ffffff3Z'3!Z#ZrZZ#3!3ZHZZ#9BZZ#ZZ9Apyc&yI3x 4ZQ- HTZZ9x9B*Z-H{ZZ0$Z$BZ$QZ@&yI$13HZA2V-Z3! @P3 @P3Zs3A2VZ33$Z$Z$*<Z9 :3 HZ(ZBZ,ZZ3!Z(Z,yC)T4Z,3!BtDSg3Z,3!Bt2g &$33!Z,A6H53Z,3!B Qq7ed"3Z,3!B)33$Z(ZZZ(3!3Z$*6HZ(Z(9Z$Q*t3HZZ(B*Z$*3HZ@R5wU0Z(3B*Z$*3HZApyc&yIZ(3B*ZAGuQfZ(3EZ0Q-H^Z0K@QZ=Z09lZ0Z09cZ0@1b'v`3HZ0Z0 B3!Z=Z=*?Z9Z0 @P3u @P3Z0 A33$Z5Z99Z,A#XP@Z=Z9@8PZ5qC32&Z53!AbP6Qy3Z53!h#p$3Z53!As#3Z5!x5V3Z53!BGRV8s3Z53!dft C3Z53!B)AWP##33$3!33!03! (*,vZQ- HZZ9x0$BZ C3HZK@QZ9 23 HZKBZZ9ZKZZZ3ZZ@8P3!9]ZZZ AQ0!3Z3Z=)%FIp"0!3ZZ9Z?3(sdeAZ3!Bub3Z3!CPDdw3Z3!Z @PZZC b3Z3!Dy3Z33$3 A 3!Z6WH#ZZA1b'v`3!ZZ*KZ*6H_ZZ*?ZZ Q3!Z*6HZZ*?ZZ I3!Z*6HZZ*?ZZ Ex3!Z AWPZZ -!BZZ2Wp2rp2Vp 2 D!Po"!Dù2~|26y29z:8=Ľ!@'z>3!?y" @ͮ|1|h}![6!`["jyͶ[S*S7?R0*S`[#uy![6: ( ~(ÍSä(.*{Q"T !"{2}y2Vp!<" @&yL q~͙~6#6ͮ|&y :}/2}ɣyEyq~~N [y0~#= "{yP (++~= #|&y!3"yp!M|"pp2rp1ͣ!<" @ 0@}Ez#Û| C ç2Vp"kz"mz"oz W By () ([ (*mz͍z[oz8 *kz8͍z"mz.z7?r*oz[mz7?*mz.[ozR9*mz."oz*mzyY7?R#+"mz.*oz7?R| !97?R[X07?*ozr!9"oz^[mzt^ÇY3W|>3!'z" @ͷ!'z" @EʧC n2Vp2Wp pQnK !̓p Erase Text? (Y/N)ͷYx'zS |n~W 2rp:Vp{^{2rp|n\L !S{| nͽ9A *y+nX |ͽ nçnRL{n2Wp:Vp>2Vp pp3̓p Enter Filespec - to Abort M|S!WK" @!T>3>?;{* @"|wn * @[|(> (2|: @?>0>X > 83!?S[ @(~Oz> |3[{!<||!?×|@t£~=<0w#րt£~6 #= + 3I}h !" }!+" }} >th}@}h(* @ta}2}!" }C}x`>* @2J}~ > 2W}>_w:J}Oa}y* @í{?_y:}0{2}y* @}oR~# }?( ~#} (xxEz? >Mq~×͙~!R>O " @* @?* @" @*{[yҮ|~#= [yҮ|"{î|[ @<>[0*{++~= # >!?6 #|@3}Á * @#}" @}?2}* @@R8*{x[y~#= *y`8̓p~Editor Full 9nR "y6++x[y~#= *yRx(Sy*y"$R"T>T2TTS9D"n$%(0 T3nS6Dn:TT·n*Tڣ~"y͆n*Fp"$[DpR"T*Dp>O  }?>!w#w#w>z(* "0!4(/=(.)*)":!"y"{6+"}6ɏ20 :G:O"{+#~0p#~=+> p~րG> péÎ0 ;(2~) ͦͦ0;(~p0ͅ+͌!@A> >S@A ' I!@A~#' N(x!@A# 0ͥրO (> ͥw#x0!Hp4G~8> O!x#y͠z8ɇo&>#~Āy !f!oy8o&ހ&ހ&ހ!$~(JÍ (#͂81~~8+͌}" .# .)8^#V>~# ~͂0͠> +p~A?'*-0<=<>>=:=..(..)(**). IN OR DIV MOD AND NOT ARRAY BEGIN CASE CONST DO DOWNTO ELSE END FILE FOR FUNCTION GOTO IF LABEL  OF PACKED PROCEDURE PROGRAM RECORD REPEAT SET THEN TO TYPE UNTIL VAR WHILE PROC FUNC .()^:,;$<=><+-<*/~# zpKB:Hp=2Hp!Hp~"!Hp8ցw4#": @?ʸBo2Hp pɯo 80p"K2VpBOOLEAN>!9%R"Ao*Jpw+"Jp6!4ɯ>2g"*Lp+Sb5  +fo4 g!$% *.+"Jpx*~#^R+"+~+(*í+}y"Rp~+ !S<2A*Dp"Fpw!A:lsڃ*8 !lp!4#ɷ?+o[Fp*JpR*D%.&"0|g"̓p Starting 1!! "@!p"@!k" @*y#"Dp"Fp2Hp*!w( +[Fp8Ä*}>?2Eo222~>92׷(J !;"yp> xpN 2EoZ 2~C 2M(V(2><22~p}0(>͸ ( r (~p8þ[0#=(~( (M( >:~p< 2~p*Jpυ ͺ% ͺ(0Oͼ (((>͸>͸p͸ (!R[RҠk^#V#N#F#+N+Fy<  q#pH 3͸~# ( > +"Lp[s+r+"Jp6̀p̓pCompileONBOOLEAN INTEGER CHAR REAL6 REAL TRUE FALSE MAXINT MININTPIA1AY&SXCLS' WRITELN WRITEABSCHRODDORDPREDROUNDSQRSQRTFPEXTRUNCSUCCPOKEMEMEOLNCALLPEEKREADREADLNTEXTEOFINKEYRESETCLOSESEEK INPUT OUTPUTLP REWRITESINdCOSd ARCTANdEXPdLNd+ >?!p###!>!p)!"##"Q!R"Rƒ2!p}& "(,>( ƒ +`")>!(r < >2Bډ)>V @ ,8ډ$%( 2B<2! 222B!p!"*`p!>.p >@͜*Jp͉>s+rKS+q+pKS+q+pzg(>rO82 !wq$% - 2> Uډ!!>"#r#s"!!> 1Ǟ ,#Ξ &>!p!s+r[Jp+s+rSJp08ͻ5͏"Lp׷€}É> ͜9͉Ո(*Dps#r"`p!"bp2p(}p"3ʀ>!׷ }* t"BOs͂rÂ!T""2"ͩ>2(͎î[RpS[#~ >2" ÿn} l>!p*6 ͂҉2Y!p(><2YƉ:Y=(*OS*~#!p((*҉*Dp :Yw͹6 &͹Ɖ"!6͂҉w͂^2O*V!"V>2B*6͂[Jps͂r͂͂͂"q*׷(/8ã$%( >2!(Է¦͢͏"Lp"[Vs#r"V!"~O6͹ßtî ً2(#~IWSR(W!]T*R "R*T "T]!R :Q_<ʇ2Q2)>:Q=ϯ><2ʇ(l&:=o "TCR?!?p~#~ɤ :8A0` Eͩz((°}(°z}(#~+z~wz~/w#~/w+z (9ҲGW0 WG(˸z( +~ zG2= #^#VF#!}|= } 9׷} 7>(5O#~)>V)>(> *VVͫͧ"V>#Vͫ:!p#}!p|( :(>©:ͧ"*>2ͺ>~(.ʡ#N#F##*Dp ~#N#F#~#foBͨ= ###~g(xx+og<ˇ <+~=2!ͧ= *}!p|!p"`p0!!p2 #~#^#V#*> ( (r~###~ր,"*Jp"و*Jp";"j2?p *Rp~€ +^+VS`p+^+Vz q+~2 +^+V*Dpʹ+^+V++++"Lp*Jp62 q!X"" 4;p<#~#<(*Rp+s+rQ *bp\*`p\!A Y(} >(( (}1B -pT!3!>Q\4 (}!>DpQ$ 3pT!83!_}{(;Q!;" 3"(;pQ*Dp*Rs#r, [Rps#r#"R!¾BM'\˂\S\S!Ap }:( !(!#p#͖!\!\[J> !pz!p!\!\+#MÌRpQ !BB}!*Dѷ jMMQ!;5p#zQ ^#8V[ !DQ!Q (T;(( T(}H #~!pQ “Q>'Q>!p> !p͝>!pa@ ْJ uQHxH>!!"22H ?#~< #42'5Q/"<(2Q~!p#4(:'>62Õ>&Q/: H(@R:Y(a:Y  ʼQ/Q >.d>+ dL~ >% & >B*Dp#F(QB!p<3Ru#~#~<'>pQ\QI!phaQaQ(a˂z8> 8>>!p++\*RpaQ[a aaSSaa2Y! "ē!ܓ">ʪoo*ԗ"ח !ܓ"Cē*lp*|jpz ˂X22ɖ" Q<}!p{!p) Q>\[0 g(.;;;>@2ɖ)>;%@ =dC(>;d{!pˇ_ ܓ>!( Q;!p*Dp+++6( #~<(<(==!p! "J! 2v=22 q pz 8T%0P"( # >2z!'{2 (2v>42 !*Rp+~+e2>4ͭ[:Y(8_9_z8͝ր(!p)瘷(  Q> ('>$ ( >#ͭ 2 qpLpz'$!p(DQKDp s#r# 8p~d#}!p|!pG!p}2Yx2Ý͐͡N+FCjp+N+FClp2>>!ɯ"ԗ2> > 22"( ٝ͐!~++#foKDp ~p"˄G#=( xx(Q3\͝\á*LpSLpH"Lp RQC*Rp͐[̀*H#\~#^#V#͐#z*Rpaa##v>aRzU22>2Y+"ח͙͝z'8>( !p>!p!p!p2ז2Җ>( Q?>!p>(La|0 'ӗ8'z( d'z |( Qz'8>d8>d{= >d*bp++"bp*bp##+eؖpz xdt>!DwQ͐[+^+V+}!DT~+!T>p"vpE(> 2#}2@8<}2!~( (++F## '+zր2Zl͗S} k\; zր2Z2 qkSz: ( (>$ԛ͕ rΘ} znV.Ϙ͕\} ~Θ~LΘ\zy &:͗\9\{26"3}'(* zԛy,- ~~L!z ,ԛԛ! گ(A5p85Lzy: qx >}!pƀ2x̛8 ( Gp> !pͰ"Ap8p Ҏd ( ʚ͇LG ;>DL & ʚz!( y{!pf>!p >Ef L5 >"@dp(- '#^{#<(< #~< ($ ~<"(p2z"|z8րno&L=ͩ>!y0 *vp˂zb L2>7f:lp???<(!p͗ {L Ϝ yŸ !QQͩL) ͇ yF ͇!ͩœ ϜL*͏5b5ǘ52L,( (z 1~f#W >$8<Gl!p> 9  z0 O|yͤ#~!p}!p|0 #6+~#+> >f~#!pznWn$}!p>ԛ( f92% LF >0͇ ͇>QL!p= ͇>T= ͇>W= ͫ>(>r!pj= ͫ>(>Bz Lz(yL8(fz >59**3؜:*32""3>! zy2{2*Rp9z Lz(yL'+^+VͩL-ɺyL+}!pzր!p:fz\z yhHOo"ח͝z ٝzѺ'ӗ*vp:Y~( >0ƀW̓>>( ( Q!p>>]!pd>+ͭQ'͝0ƀWH'>>d2ɂ+s+r8)*`p#! 6>2F׷ }@ >2F0M|g!(l*Jp"++f *Jp"[LpS+++s"Lp+r+"Jp66[Jp+s+rSJp###N#F !ͧx +~#0q#p~ͤH~ͤF~ͤO%( ]y>>` >][( @3} 08(e!9#(#(>!@×y   * @}?>={?_ (d7?R 6 * @}?? 6 #~+w#:L(7?Rڟͦ:L 4À"J*H:6(+ڟ>26!:M6D7?R*7?R"4(4  7?R8>26"H*J*J2LG!k6^!D"" "V!60"b4e! y6#6#6!>>"o!>"x* @"$]"j"n:%I(.!k6[!I@"" "V!mD"4e! y6"#6#6C! "o"xР:mD(>2K}>2L}>*2M}> 2N}>@2O}>2g}pj}p"B|>2}!0K}!5l!g}6 l* @Ïq~2R+"R##~#@( &y~ `#"R7?R"R*R*R~ #~(c+~# ~(x(2RDO CR*R+ *R+KRSRKR![R*R$"R*R$"R:R(*R+6"&y+++6"&y:%I(!I@!D#~=2222%22>%2 M^~$(ÿͦ~$(ïͦ!76!M"8ͦ0=:7=(U27*8w#"8ͦ)*8> w!M$DM6D:6D"J!"H>.26̓pSyntax Error Wn̓pFile Does not Exist Wn!:L'z2L!"\{*J'z:8:} ( 8 > >Z~F~|? }86 #ìy(ˆ}u}*D%| y*"̓pIyԤMրG~> ;2 ^+VK4+"e~+fo~(F(B+~G#~+~G++G+( %~G#~O*e++x y *e: <2 Z++++P: ".a=2 +P[0A?{_? ͗/'ͤG~ͤx{a_͗ʝÚwnͤͤA0UͤIq~~# > @ ~>@0;!zգ͌}* @$~ ~͌}}(͌}* @}o?~# ͌}q~2 +" X##~#@( &y~ #"7?R"**~ #~(c+~# ~(x(2 DO C*+ *+KSK![ * $" *$": (*+6"y&y+++6"y&yO >{ >} >^x{(é>}***ʽ}Ţæ >2{æV >2{ >2{\>2{>!p!w(+[FpυvGOTOXYPSETPRESETMARK RELEASENEW NILDPSPRANDOMRNDRNDRPOINT >__B[M[*y++~'zw"y6 },(6} (2((T6(Z >2m>!p>!p >2m>2m ">ͬ>ͬ>0ͬ>$ͬ!p(1(( ʚ͇>ͬ>ͬ ʚ>ͬ> ͬ|* @!?" @̓p>Quit Top Next Prev Open Del Canc Line Era Form Block Write<R" @4y. ̓p Program in Editor̓p (Compile if Necessary) ̓p Text to Editor ̓pP A S C A L - 8 0 E - Editor Q - Quit (to Dos) K - Kill (Clear Editor) C - Compile^̓p R - Run^u̓pS - Save^̓p L - Load͒̓pA - Append͒̓p PW - Write Object Code to Disku̓pX - Execute Program from Disk F{R ( #~}:yp;΂т@> -*6#6#6#6͂ !<6! 62! 6!<6(0 #+[+6#p#w#͂~0A8ɯ<~ #~ #~ N#~( ~\r>####~Gr*Rp̈́Ъ(~@(^(#>!p>!p>!p> !p+++~( + +F+5 *Rp+"Rp~ +~ +~ +~(}~"ԗë@@(F()³f>ͬ> ͬ*d}ͬ|ͬ>ͬ>ͬ0f>ͬ>ͬ>ͬ> ͬfL>ͬ> ͬ>ͬ>ͬè (2 p*ԗЪ( +++~ +F+5 %*Rp+T~+!Tͺ"d ʚ#~ #~ #~( #~<<<<2!S"!T"\/J˼"3">2!U"( +++~ +F+5This is a dummy record. NONAME BILL ANYSTREET CENTR2S:S?_:S((:S?0#:S(:S8{/_ͺSw~>ͺSwͺS2S>![S/0"#0 ˼"SRU s }?o&<{@(=" @(>8 JS}o8 _2S />͙R>2a2b2*b2b2b2b=(>2d]uy( &JS:S(>o& S*S!!v!E2qz>͙R]RHANOI/PAS:00)S0((((($ (&R7]|RS{0"S!<8 8 88>@_2S:S?_:S((:S?0#:S(:S8{/_ͺSw~>ͺSwͺS2S>![S/0"#0 ˼"S_2SSRWe can only afford nine gold disks (Reaganomics).u1  u?;?? ? m3 SRB]'QHK+1;Add1T! "o* @"$]"j"n"B|:%I(!k6[!I@"V!mD"4e! y6"#6#6CûV>^2k!D"V!60"4e!" y"!y:mD(!>>"o!Po"!D>2 DTNIF[\4W]9W\\\2F^.|2p2!W*Dp"]V#27](% \z2rp*Fp#"^7]Z w#| !"gpn#&UyY! ^!AZ#^#V^7] ~~X ~#fo2W '> 7]_~OA(=p>2W +V+^y^  s s#rXͮ^~˿2W!APWW^V*Dp#^#VW^#~ݦW"XZnf!VN(r+sF("!N nf ?\^ V 8 #ͩX( f(?Z W#v^ >&{Wv^ v^8(v^8(v^?v^? "X!@As#r#!AA~ +6@"X!As#r#!A~ +6@X|( !Z[ϷR}{W}}}~XT]}xp$WE ̓pFALSE ̓pTRUE X͆pկ2I[E[E[Ͷ[|[V[n#f#͇Y7] yY}]KDp =(#yYU[^^8+{7]O !q"Dp>2Z>2@7]2ZZ"Z!RY"Z!t^"Y*W\"Z"W\yY"Z*^^"RNFCR##R̈́YyYt^"^!9%p^~([= #~<_= #~#N#FG#u#t#=( #N#F*Dp ##!Rs#r#}t^"Zq#p#>!(=!?sZ!¹!*I\*Z-V-^ sI\!*Rs#rZZC(ZyY[Dp:@8W( O ["C[!U["Ys#r"I\*W\^#V#S^^R##̈́Y"W\[|>2I[l`[:I[>2[2I[| E[E[z( 8=))0 !"-\Z~#o&9"\"[ *-\[1[-\yYͶ[t^!+V+^"\==zƀWN#F#B~#foB8# Ͷ[t^"-\#"m\yY^8Z ~# {I\[!5}"x\~X@S^*^%Y~]+$% }ݾ8#7]8 yY?\yY8Ͷp{pͳp͹pͼpͿpSWpSW\ZyY7W7]yYB ]!^" @!3"yp>2~pͶRA^!K" @F*p]A^$p~#!gp!hps!;"yp>2F^:gp=G> xp7]2~p!p"ypd]d]͏pd]͉:͒pd]͉pd]͌p[!9A "]1c!"Dp>(2Z:@(yY yYz( ͐iw#yY]z(~#ͧiy^yY"+^"!^!9[+^p^:8X"(^!'^AyY"+^"!^"(^ ^͘p> ;7]_!@=ͰpI^~@2A!A~ A+o!_A5~ !@A!!A~G<(˿x(w#yg#A!AA((~ ~+(~ H`?+( ~ <7X`?~(7?~G#!R͉`!A9_!GA9_!A~@8(8<=# >8w6@A>E|(l`>w#!p``#``#`o;_`+F+NB<0= ov`!A~@(80O#o?2a8 (8|( l`ɷ!p F#fh= !A@AA!@A2a~˿2a˿2a2aUa_4_>ta:AA !@AA!A" b!AAbb#* b#" b2a:A !A A+o!a4>_a_!AwA o+~'wÉ_oG!g#x(>G+'0'͓bUIa~a?_!@A͉b:A(!A͉b._:A@o&P"@A?_`#~+~w:AA >Ata:aD2a!A" c!AA"bbb*b#"b* c#" còa!AAAb8, # y! O+'0'!yo*bg#n#&'c Cd&d5dEcdEcIdcccucd~c:A͠c<>=2d _>G( <d!'eLa~a!A/wUIa___͓b_?_._!@P"@A~axdUUc@D'@"6@1b'v`!:emDEe 00:31:57 ͕f:A@(>!A>0o>=(#"Xe>2fe0!w#6"we͈e>.:A@We+65+~.(- 61+6- 61R"f2fe!A"eXe:gpf<4fggvéeWe͑e*we+6E:A@>+0D>-ve &f&fveÒf0xte:hpf:A:hp( JeсO:gp8 (g=gveJe(083We!A5Je :hp( ̈́eWe= ͋e!~#xp͈e͈e:hp(̈́e͈e!hp5(!A4Je(8:hp(fff xp!A~ +>(< 2hpG:AOx@0!A~˾>+>-> ve!@A6@#60(\h({i0`g{i8E(\h e0 h{i07h- +hxDG+ +h:@Alh#2@A:AA i>@2@AbE {i8-(+(W_hy(A!@A~@(80gO#o?Dh8 (8|(70<ɯo@ h#hx+:@A2@Aɯ@(o#x6#zitixGtilhxɷ!p F#fh8= .{i>.8ɿ:~p w:~p2pͨh:~p<( EeRedonhop!ri" @2p:~p<(pghg"h+͖hnh~ "hi(h:p!Ri(!@A:pwA<~G#~:0?Sͳa [Oxwj@j~,jkk͈j͸j@jw, HkNjjk>2pji-(+( ( (p8 !Sw#j!j j60123456789.E+-;jȯ͸jNHk(D:~po&@.:~p/g-jn͸jF;j6D-j6j;j@!͈j,Dj> !>$2j;j>c6j D-j66  D-j!K" @*Dp~2bk:pj2=j#3:~p(=j ͋jFj@j~kjk@j~,jkkNj%k͈jj(j͸j@jw,Hk6jk;j͸jV˖( ! N#F xo9Dͪj6jE-jpj !~p6j(46j(460> >?2Eo:Wp!-p( !3"yp!p̓p Complete >2kVp>?2Eo: @?Bo:HpG(> Do>[DoBoFkBopx!Pl(!Pl̓pExpected !?m˸~ ̓pSystem Errorp#~# :@8W(:8 :8Bad OptionBad SyntaxUndeclaredDuplicateBad RangeBad TypeOut of MemReal OverflowMismatchUnresolved GotoBreakInt.l Overflow Div. by 0Disk ErrorIllegal JumpFile not FoundDisk Full Beyond EOFStructure Too BigOp. Undefined.Constant:End (OR ; ?):=)(Identifier;=LabelScalar..BeginDoUntilThenToOfParam./IndexVariable(..)'Program>2Vp xmecutionͻk-pBok̓p at :Dp/O:Ep/G o-p tk-p"n$D ̓pNot Found D̓p Disk ErrorS(D!'z" @> xp!3"yp:rp(:VpnPress + wnn+!"{!TS6D"n!TS6Dn:TO(̓pBad Formatn3n!n"un*T"FpSDp͆nS(Dp!}o!K" @rp2Vpsn͋jogo-jwBDêj"A!A:Hp2Hp2o+2o> 5oo 80> ?xp >> M"eo!]o*eo>(D$D͸jLj999!o@~3#!"@!x"@!%" @ 2 D!"!D-@ HILL NC ALL *p"ED u}Mgfo\lsqiW}yPvoq~VIkoguioBiikj=j^'Zdc6g]ZZec/`R_P\_MK&%$#"x9nûV(DoÐ=;èømom~nré28îor r,DR v6NoOvM|>3ãh0eEeeÅjfjjokvkpk d'ͮp*6ndnhÚhhBiZipDr46D!t(`(_ó`ÓbUc#"6vÕfijjjg{i}??  #+7ZQ- H\ZZZ9BeZQZ-HZK@QZZ@1 ay3!9]Z6WHZZWZ/Z99ZKZ+qZ9Z/3ZZ/ZA1A`bP0!3Z+3Zv0!3Z9 93 H$Z#ZBZ'ZZ3!Z#spf'uZ'3!7xDc#3Z'3!%p4q3Z'3!;'UsB3Z'3!i2#3Z'3!>3333'Y3Z'3!ffffff3Z'3!Z#ZrZZ#3!3ZHZZ#9BZZ#ZZ9Apyc&yI3x 4ZQ- HTZZ9x9B*Z-H{ZZ0$Z$BZ$QZ@&yI$13HZA2V-Z3! @P3 @P3Zs3A2VZ33$Z$Z$*<Z9 :3 HZ(ZBZ,ZZ3!Z(Z,yC)T4Z,3!BtDSg3Z,3!Bt2g &$33!Z,A6H53Z,3!B Qq7ed"3Z,3!B)33$Z(ZZZ(3!3Z$*6HZ(Z(9Z$Q*t3HZZ(B*Z$*3HZ@R5wU0Z(3B*Z$*3HZApyc&yIZ(3B*ZAGuQfZ(3EZ0Q-H^Z0K@QZ=Z09lZ0Z09cZ0@1b'v`3HZ0Z0 B3!Z=Z=*?Z9Z0 @P3u @P3Z0 A33$Z5Z99Z,A#XP@Z=Z9@8PZ5qC32&Z53!AbP6Qy3Z53!h#p$3Z53!As#3Z5!x5V3Z53!BGRV8s3Z53!dft C3Z53!B)AWP##33$3!33!03! (*,vZQ- HZZ9x0$BZ C3HZK@QZ9 23 HZKBZZ9ZKZZZ3ZZ@8P3!9]ZZZ AQ0!3Z3Z=)%FIp"0!3ZZ9Z?3(sdeAZ3!Bub3Z3!CPDdw3Z3!Z @PZZC b3Z3!Dy3Z33$3 A 3!Z6WH#ZZA1b'v`3!ZZ*KZ*6H_ZZ*?ZZ Q3!Z*6HZZ*?ZZ I3!Z*6HZZ*?ZZ Ex3!Z AWPZZ -!BZZ2Wp2rp2Vp 2 D!Po"!Dù2~|26y29z:8=Ľ!@"C'z>3!?y" @ͮ|1|h}![6!`["jyͶ[S*S7?R0*S`[#uy![6: ( ~(ÍSä(.*{Q"T !"{2}y2Vp!<" @&yL q~͙~6#6ͮ|&y :}/2}ɣyEyq~~N [y0~#= "{yP (++~= #|&y!3"yp!M|"pp2rp1ͣ!<" @ 0@}Ez#Û| C ç2Vp"kz"mz"oz W By () ([ (*mz͍z[oz8 *kz8͍z"mz.z7?r*oz[mz7?*mz.[ozR9*mz."oz*mzyY7?R#+"mz.*oz7?R| !97?R[X07?*ozr!9"oz^[mzt^ÇY3W|>3!'z" @ͷ!'z" @EʧC n2Vp2Wp pQnK !̓p Erase Text? (Y/N)ͷYx'zS |n~W 2rp:Vp{^{2rp|n\L !S{| nͽ9A *y+nX |ͽ nçnRL{n2Wp:Vp>2Vp pp3̓p Enter Filespec - to Abort M|S!K" @!T>3>?;{* @"|wn * @[|(> (2|: @?>0>s > 83!?S[ @(~Oz> |3[{!<||!?×|@t£~=<0w#րt£~6 #= + 3I}h !" }!+" }} >th}@}h(* @ta}2}!" }C}x`>* @2J}~ > 2W}>_w:J}Oa}y* @í{?_y:}0{2}y* @}oR~# }?( ~#} (xxEz? >Mq~×͙~!R>O " @* @?* @" @*{[yҮ|~#= [yҮ|"{î|[ @<>[0*{++~= # >!?6 #|@3}Á * @#}" @}?2}* @@R8*{x[y~#= *y`8̓p~Editor Full 9nR "y6++x[y~#= *yRx(Sy*y"$R"T>T2TTS9D"n$%(0 T3nS6Dn:TT·n*Tڣ~"y͆n*Fp"$[DpR"T*Dp>O  }?>!w#w#w>z(* "0!4(/=(.)*)":!"y"{6+"}6ɏ20 :G:O"{+#~0p#~=+> 9?? FHJLI ~A SRZZAZA*E*<BP *<A SRZZAB ZJ=ZZ*<ZZZZZ@*<ZZ*6HZZ*<Zv=*6HZZZ**HZZ'Z!Q ZZZZZ*< ZZ*<BhZZ*<B8  ZZ BZ Z  z ZZY ZZ B7ZZ*<ZZ*<BZ   ZZ ZZ*<BZZ@=>  ' Z'Z!ZZZ*<ZZ@*<BZ@=Z*E*<B  mZMQZQQZUZH *E *?*?ZYZD *EZZU**HZeZ'ZU!Q] ZeZZ]*< ZeZe*<BZZY*3HZeZ'ZY!Q] ZeZZZUZ]*< ZeZe*<BAZQBZYZY*?ZQHZZYZZUZZUZMBZUZU*<ZMHZ*3H9ZZ ??BZ*?ZZZ ?ZZ ??Z*?ZZ Z?' TOWEߘRS OF HANOIu  u ,Welcome, all monks, to the temple of Budda. u, In this templeu  u 1We can only afford nine gold disks (Reaganomics).u1  u?;?? ? m3 SRB]'QHK+TZ?' TOWEߘRS OF HANOIu  u ,Welcome, all monks, to the temple of Budda. u, In this templeu  u 1We can only afford nine gold disks (ReaganomicsNIF(JDIVM)<40THENPSET(I,47-(JDIVM))ELSEBEGINCLS;FORK:=0TO47DOPSET(0,K);FORK:=0TO127DOPSET(K,47Or9?? FHJLI ~A SRZZAZA*E*<BP *<A SRZZAB ZJ=ZZ*<ZZZZZ@*<ZZ*6HZZ*<Zv=*6HZZZ**HZZ'Z!Q ZZZZZ*< ZZ*<BhZZ*<B8  ZZ BZ Z  z ZZY ZZ B7ZZ*<ZZ*<BZ   ZZ ZZ*<BZZ@=>  ' Z'Z!ZZZ*<ZZ@*<BZ@=Z*E*<B  mZMQZQQZUZH *E *?*?ZYZD *EZZU**HZeZ'ZU!Q] ZeZZ]*< ZeZe*<BZZY*3HZeZ'ZY!Q] ZeZZZUZ]*< ZeZe*<BAZQBZYZY*?ZQHZZYZZUZZUZMBZUZU*<ZMHZ*3H9ZZ ??BZ*?ZZZ ?ZZ ??Z*?ZZ Z?' TOWERS OF HANOIu  u ,Welcome, all monks, to the temple of Budda. u, In this templeu  u 1We can only afford nine gold disks (Reaganomics).u1  u?;?? ? m3 SRB]'QHK+1;Address:=Address+64;end;Address:=15680+(22*I);endend;procedureGraphicMoves(FromPeg,ToPeg:integer);varLoop1:booKZaEPQNu!WKےz%bbqSP\LLDEG QFtBxc$y &]CX& :TYC aڒI$ 7@â\=&eŒ &0ÊTu{TowersOfHanoi-withgraphicsfortheTRS80GARYEVANS09/23/82ThisprogramperformsthetowersofHanoipuzzleusinggraphicpicturesontheCRTscreen.ItiswrittenfortheTRS80ModelIandIIIcomputers.Itwillplayone(1)toten(10)disks,ifmodifiedtodoso.Thereasonitislimitedtotendisksisthatthescreenpixelsizedoesn'tallowforanymorediskstobedisplayed.ThisprogreamdemonstratestherecursivepowerofPascal.}programTowersOfHanoi(input,output);constDisk0=1;NDisks=9;typePosInt=1..MAXINT;MaxDisk=1..10;varDisks:array[1..231]ofinteger;DiskArray:array[1..30]ofinteger;DiskAddr:array[1..30]ofinteger;I:integer;J:integer;Number:integer;procedureInitDiskLocationArray;varI:integer;begin{InitializeDiskLocationArray}forI:=1toNDisksdoDiskArray[I]:=21*I+1;forI:=NDisks+1to30doDiskArray[I]:=Disk0;end;procedureDrawPegs;constPosition1=15690;Position3=15734;Spacing=22;LineLength=64;PegLength=640;PegCharacter=191;varI:integer;J:integer;Start:integer;Finish:integer;Address:integer;beginStart:=Position1;repeatFinish:=Start+PegLength;I:=Start;repeatPoke(I,PegCharacter);I:=I+LineLength;untilI>Finish;Start:=Start+Spacing;untilStart>Position3;{DrawInitialDisksonPeg1}I:=1;while(DiskArray[I]<>Disk0)dobeginAddress:=DiskAddr[I];forJ:=0to20dobeginPoke(Address,Disks[DiskArray[I]+J]);Address:=Address+1;end;I:=I+1;endend;procedureInitDiskGraphicsArrays;varI:integer;J:integer;K:integer;L:integer;Address:integer;begin{INITIALIZEDISKGRAPHICSSTORAGEARRAYWITHDISKPATTERNUSEDTOGENERATEDISKS}forI:=1to231doDisks[I]:=128;J:=11;L:=11;forI:=1to11dobeginforK:=JtoLdoDisks[K]:=140;J:=J+20;L:=L+22;end;J:=11;forI:=1to11dobeginDisks[J]:=191;J:=J+21;end;{INITIALIZEDISKGRAPHICSADDRESSARRAYNOTE-THISISTHEKEYTOLIFE!THEGRAPHICSADDRESSARRAYIS1-1WITHTHEDISKARRAYUSEDTOREMEMBERWHATTYPEOFDISKISATANYGIVENLOCATION.}K:=1;Address:=15680;forI:=1to3dobeginforJ:=1toNDisksdobeginDiskAddr[K]:=Address;K:=K+1;Address:=Address+64;end;Address:=15680+(22*I);endend;procedureGraphicMoves(FromPeg,ToPeg:integer);varLoop1:boolean;Loop2:boolean;I:integer;J:integer;K:integer;L:integer;Address:integer;beginLoop1:=False;Loop2:=False;I:=FromPeg*NDisks-(NDisks-1);J:=ToPeg*NDisks;repeatifDiskArray[I]<>Disk0thenbeginAddress:=DiskAddr[I];forK:=0to20dobeginpoke(Address,Disks[Disk0+K]);Address:=Address+1;end;repeatifDiskArray[J]=Disk0thenbeginAddress:=DiskAddr[J];forK:=0to20dobeginpoke(Address,Disks[DiskArray[I]+K]);Address:=Address+1;end;Loop2:=TrueendelseJ:=J-1;untilLoop2;DiskArray[J]:=DiskArray[I];DiskArray[I]:=Disk0;Loop1:=True;endelseI:=I+1;untilLoop1;end;procedureTowers(N:PosInt;FromPeg,ToPeg,AuxPeg:integer);begin{IFONLY1DISKTHENMAKEMOVE&RETURN}ifN=1thenGraphicMoves(FromPeg,ToPeg)elsebegin{MOVEREMAININGDISKSFROMATOC}Towers(N-1,FromPeg,AuxPeg,ToPeg);GraphicMoves(FromPeg,ToPeg);Towers(N-1,AuxPeg,ToPeg,FromPeg)endend;beginRepeatCLS;GotoXY(20,1);writeln('TOWERSOFHANOI');write('Welcome,allmonks,tothetempleofBudda.');writeln('Inthistemple');writeln('Wecanonlyaffordninegolddisks(Reaganomics).');InitDiskLocationArray;InitDiskGraphicsArrays;DrawPegs;Towers(NDisks,1,3,2);Fornumber:=1to3000do(*nothing*);cls;untilfalseend.nd.alseend.falseend.9??33=y{}Ll9m9n9o9p9q9r9s9t9u9v9w9x9y9z9{9|9}9~999!"I@!"@!@6-@!"@:8J:@8H` z4nfښ~(wy Ҧ}` C8!6@ _s ,_zW{8F(!@F(z0(@W !Z~ >!@w@abcdefghijklmnopqrstuvwxyzf0123456789:;,-./ [  @ABCDEFGHIJKLMNOPQRSTUVWXYZ!"#$%&'()*+<=>?  M:=1;B:=0;RANDOM;FORI:=0TO10DOA[I]:=0;FORI:=0TO47DOPSET(0,I);FORI:=0TO127DOPSET(I,47);REPEATJ:=0;GO@!@X@` :GFORMAT ERRORTINY PASCAL V-1.0COMPILEREDITORSOURCEP-CODE NOT IN MEMORY .AMA@..gBBBBBBBBBCCqB ͣAͣAͣA> >@?{CP2gFgojC (+(- 2gFjC08 0_W)DM))  C!C :gF^DÛD!C̈́D INPUT ERROR SIZE ERROR WDկ=D>-{C^D E>0| {C$D*eF#V#^"eF#V#^ |B BN+F+^+V^+V+ɯogր OGր:A!B̈́D~#{C j@Dx OtDr#s BMDÑDMDxրŽDyÒD믖wO+w#)0MDx!DyDÛDMDEÛD!D̈́D!T] DIVIDE CHECK x(⯀jD^D!># 0 33= 6E= ^Dzȯ_WMDEÛD>MDB ɯYEMD|( dE}8x @nEnEnEMD|}MD|}//MDEEG)ÛDMD(EDG<ÛDbk+4bk+5bk+FF"FO"FjC08 8!C̈́DbkEF#oNFo 80{C~# B{CͦAbkN++xw+6bk~++NyͳFO@86Gx8wͳF>(<WD0E{F0O0xo&))G8HG>( NbkN+F+xjDq+pWD!KzDyDs+rWDMDB0`iPY +1@!@EH1@!@EHOHC(>E(pLGWHR•H[Az!@?H͝H(C•H2A2A*A"A*A@A[Az!@9H:A6H͝H*A#(S( P•H!2A*A"A͏H[Az!@(d2A*AA͂HP(S•HͼH"ASACGͼH"ASACG͂HP(S•HKAx([AKAx !@[A7ICG!@EH!@EHFG~ͣA#~ !@͠AͣA  (4+ ( w# y 0%> G6 #6 !@*@~# ("@@H >?ͣACG͂H / ͂H- ͂H (O͏Hy!@EH2A2A2@͖5U E#5 <#,5x(>< +5G:@ "@<2@|O5w#O5(>C2>Ud#~d#>xd (@* SAMPLE TINY PASCAL PROGRAM BY H. YUEN *) VAR X0,Y0,X,Y,K,F:INTEGER; BEGIN X0:=13000; Y0:=18000; F:=11; REPEAT X:=X0; Y:=Y0; WRITE(15,28,31); FOR K:=1 TO 1000 DO BEGIN X:=X+Y DIV 4; Y:=Y-X DIV 5; PLOT(X SHR 8,Y SHR 8,1) END; X0:=X0+X0 DIV F@; Y0:=Y0+Y0 DIV F; F:=F+F DIV 6 UNTIL F>70; WRITE(28,31,'THE SHOW IS OVER') END.  2 \ \.  fILLEGAL .fFILE HAS ! `f LINES   4T`f BYTES ( df- df) f PTR AT LINE  ` .        .!  @*    4    .B0  \Z *>@" >\\V T *" DD  f LINE TOO LONG...RETYPE  > >b .  H$ *>'   VXD" @04 *B FJ D 62 T ,  F .'>{  2V *! F!  XDK *\ T   >'T ,  *    4  .fENTER TEXT  ? , @ 2   ! T ! @*  VXD 2T" $T , >z 2  *$ .4 *B. ! XD*2  T ,Z! XHY2  V 7,! 2 ! . 2  2 4Tv 24  . @4T  @ e#,,       VXD 22" $T ,. 2 *H{ ! D"  BX ,TX HT  V 4   V  4, ,VX D   2   T  `,!,.? , @ X@D  2 DJfMEMORY FULL   ! >  T  * T",,  2    #,? ,. 2 *! FE'>'{  V !   *$! @ .  VXDr 2 T S, ",,e#,, V  *>{ .  @   4  .A" A"  ! A >df T * >T *4 *F $!T !* >T >J *${FffINVALID FILE  !d#!>fEMPTY FILE... d!@q#>,# @ >yXP>,uXU>,uXN>,uXX>< VVXD 2 T"\T ,0T, @u,uXI>JuXD>\,uXQ>lXS>r#u, FXR>,*c@XP>,XU>0,XN>,XD>,,,Q>iA&.AND ARRAY BEGIN CASE CONST DIV DO DOWNTOELSE END FOR FUNC IF INTEGEMOD NOT OF OR PROC READ REPEATSHL SHR THEN @TO UNTIL VAR WHILE WRITE CALL(MEM  MEMW"INKEhINP jOUTPlPLOTnPOINpABS rSQR tMOVEv gA"V  A"  *  A"VVV  A @  A" 4     2  @ T  *6"h  6TTT"@h  2   ! 2 K! 2 !2 E.@T @* @*\@ B @.AB04 .A4 2 .@ @P2%@!@"@P2%@.  >3# /"* BZ  T  /">@ @XD  T q,  2R *6 2  T * 2 @DJ 2 BV T FDJD 2  .  . /">d    6 204   /"@A. X:>@ =>  :  X<> X=>  X>>    ,X>> =>    X=>  X'>P     '@D  (  T  $(  X(> *>  @*@|l )> l !(  X%>     /"> AD FHLJ P* ,2  T >%    ,.\f2I$,.I$,.@2  A4 *FD,@TT @$@T$@TTPLRJ$@TTT @.@N4$>>L6I$,.@$@T&@TTT @.@T @*6 *%@h@T&@@h@@@X>@@A X>@ A@ A T   X>@@@ TA X>X>@ A@@@4A X> @ TA,.%@h@&@h@@6TT VV *h@%@>Th@&@>L.R >fhD,.@@@{D, A.>O%,@;> A>@VKA@A.@KA.@(@ D,  AT @>O%,D, A@,@@4>4KA0 XDJ@2TAT *,>d@40VA)g&,,@;g&,,.@@ @X+> AX->  A,@X>*& *@>A @2D,X>2D,,@0 @ A.@T@4&.X>F *  X>M,,B X>cd,,B X>sX>@ *I,>V K>d,,B  (@ , T ,@K@~,)g,,d,,0,,B X>; ( g,,) g,,d,,B :,, X>V X>e ,,  X(>  @)g,, X>  (NI, :,,.*>>J>J>J>J>JV   X*> 6I,R X> 8I,R X> LI,R X>1 <I,R X>C PI,R X>R RI,, .+>->J  @  -> 0Id,  +>->J>J    X+> 2Id, X-> 4Id, X> JId,, .W `D`HL# `  aW 4>2ID,.{gXId,e,,>Id,,>n  e,, $+TTTh,,.@$ :gF,,` E,,.L`X;> ` E,,`H,, ao+`H,,, X> ` E,,`H,, a.L gF,,`H,,, X>% `H,, a, d,,. @X>F *&  A@X>\ X>x 3g&,, @d$,,B X> ( g&,, ) g&,,3g&,, d$,,B X>; KA> d$,,B  @(@ D, A T @,@ KA@ ~D,)g&,,d$,,0%,,B ;D,,5X>l  A.,@;@N g&,,5X@>  A 4g&,,@ %,,.,@> @ %,,@(,, A.,@(,,5@(,,5X>  A @@ D, Ao ,I$,5X>Z@@4  A @ %,,6g&,,.,%,,@(,,5X>@@4  A@.,@;@l5g&,, %,,5X> A@@D,*& *@@D, A3g&,, d$,,@X>T X>V 7D,, A @@4 XI$,d$,,T>LDI$,SHI$,@ %,,6g&,,.,@d$,,I$, d$,,%,,@(,,,I$,5X>] A@(@ D, A@> fI$, @VXD(@I$,T ,I$, AE @X#>(`I$, ADX%>=dI$, AD\I$,,@,@)g&,,5X>5 A@(@@y D, A@@D,*&  A@X> X> ( g&,, ) g&,,D,,@X#>^I$, AX%> bI$, AZI$,,d$,,@,@y)g&,,,.   ,, > ! @m$, !@g,,{O,;g,, @m > !   >O,$, ! ,> ! :g,, >v !( g,,{) g,,g,, 42 T  XDu  K!! 2T T @=,g,,;g,, @ > >J >   ! >O,$,  !,T71,,  ;g,, >_ ,,  4!,, !.  ;@<g,,.I,.$,. @XD/T t,A ZXD/T ,0 9XD/T ,  7,,.@,$A&+4T`f CODES. df-d.NX!@@X'@Xg,,.I,.$,. @XD/T t,A ZXD/T ,0 9XD/RS! ʝS ʍSw# Sw:{=2zͥSÀS:nʷS Я2n͒ھS!V > 2ړ> ړ7| ,S!"2r=2*" :*S>