`L i=L\Ʃx ? N'i  ͭЅ?0ȱ Ѕ?iȱi lԠԠ͠ԠϠŠͮŠ SYSTEM.APPLE   L$J $6??? 9 ' 12#'7'  -?-   >> @'''/7>? 9889?=<??'''?''''98>990880>>>> 889BBBBBBN 8>4 v$PASCALSYUSERPROGDEBUGGERPRINTERRINITIALIGETCMD FILEPROC ` SYSTEM.APPLEvg LOGO.FONTr=vgB LOGO.LINEr=vg<⨄SYSTEM.STARTUPg䨎MAIN.LIBRARYvgtWSANK BOOTgr=vg̦  ALTER.CHARSETvg 2 SYSTEM.PASCALvgi23SYSTEM.MISCINFOf3XSYSTEM.LIBRARYgtXZSYSTEM.CHARSETgZ[INKPENr=vgx[] HUGE.INKPENvg]`MEDIUMr=vg &꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xH&x'8*7Ixix&&  ') + &п x) ++`FG8`0($ p,&") (jJJ>L+ "?I>  N `  ` x V Nx .x- z `V0^*^*>` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`& 666??? 9 ' 12#'7'  -?-   >> @'''/7>? 9889?=<??'''?''''98>990880>>>>889>7+#99?99?'''''''''''>>>'7''''?''':88888''''''?+++++?'''''''''''''`>''''''''''1<#>'''''' '''?55555''''''>'''? 8?<<@ 888888תPńȄ ,ń.áš蕿@šQȡ2 š:X f Ą ɡ 쾿  .Tá " * ȡ*ńȄ4šáR há1á4   Q lMȡš ȡ뾿  + d>š oɡa   áá0Oš *š  4TzY 000á'4á 0z00 rT\  ɡ'áצ-32768 ^ 逫-ġ>o00ń0ˡ +á! "ˡ  +Uz    00áQP 0á0 é000+-Í-ë0 á1 š5    šš$ !邚邫镫ë퓡h  ! "ˡ ɡ!  ! "ˡf á3 á,  )á á ávˡ á cń# Ȅ ꚹ6áÄ7  .*š  šš!ꂚꂫꕫëS  ! "ˡ! "ˡ ë  qT8T "ˡU  Íáɡ 럚肚X  šš  ġƁ\Ƃ6&06ˡ6áց\8 ˡ :9 "&8(2ȡ2'*2 ?2 1TU-bi ( 6!0 צ Press RESETBBBBBBN 8>4 v$PASCALSYUSERPROGDEBUGGERPRINTERRINITIALIGETCMD FILEPROC  6999'''''999>88>'>.8>99''':88888'''''+++?''''''''''8>999>.1 #.>'''' ''?555''''8>999??8<  <88&낫š ꓡ5š땫Ě@6"á1ꓡ삫Ú š K6"á61 ɚ V @VBBChCfDEE>FFFhGGXHHH"JbJJ"KKKK@LLNOOTQ<< xH$V ,  9   &*$á09ō>##$ á> á>>á>צ to continue) <! ȡ   צ0H" ġ  *@#3$$&ˡ 3 36%ꢫ11á4\1šV42233z 3042221é42é1Ä2*á444ń55P.TEXTׯ]צ.CODEJ.BACKׯ7צ.INFO$.GRAFׯצ.FOTO3 ȡ 23aĩ3zȄ 23aA22š*á ?צ:22ȡá;2á!2ȡ5252š[ץ22š2222ȡ2š5252á4w4]ץĄ쓡"á  :"ë á 쓡ת$ (   d˯7 H Pצצ22ȡ523 ,ȫ$* "ë넡, ~ *Í2~ š˄ `1 b~ éÍ~  , %ɡšɡš  PꟚšw#ńE z 0 ń Ȅ! ~Í`~W ˡ! !~q|3?Bp  v\EL "$&(*,.02468:<>@BDFHJLNPRBx-~}cy*צ LEXTOKEN IS: 023fj <4  šˡ 퓄 Ä퓡w š   ɍL  "ˡ.ˡ   d쓡  5?š?ˡ?ء "ˡ6ߕނ߂ɡ F b6ب"́$ʁ$ ʁ$ ʁ$ ʁ$ʁ$!"ʁ$ʁ$ʁ$ʁ$FZ7OQ QQQRš.[öOʁݢʁݢʁʁݢʁݢʁݢʁݢ  ʁ تٞ&"á ~٤  :SYSTEM.ASSMBLERת :SYSTEM.COMPILERת :SYSTEM.EDITORת :SYSTEM.FILERתʀ=ʀ* ʀ́ʁܢGʁܢHʁܢIʁܢ%O tƀ&́ʁܢʁʁܢʁܢ%́ݲ ʁݢʁݢʁݢʁݢʁݢ ʁݢʁݢ ʁݢ ʁݢ ʁݣ  ʁݢʁܢ́ʁݢ٢ š٢ ٢٢ 4$  ؗ(/  ؗ(tDoo odoo'z*SYSTEM.MISCINFOתPƀƀerror: (צUnimplemented instruction(צFloating point error(uString overflowת(]Programmed HALTת(EProgrammed break-pointת(&nS5  oYC: *( vol not foundת(file not foundת(צ dup dir entry(צfile already open(צ file not open(צbad input format(disk write protectedת(bצillegal block #(Jצillegal buffer address(+$fO7  y^Hצ IO צSystem IO error(צ unknown cause( parity (CRC)ת(צillegal unit #(illegal IO requestת(צdata-com timeout(vol went off-lineת(file lost in dirת(צ bad file name(צno room on vol( vol not foundצUnknown run-time error(צValue range error(צNo proc in seg-table(Exit from uncalled procת(Stack overflowת(צInteger overflow(Divide by zeroת(צNIL pointer reference(צProgram interrupted by user( "ˡ$צ Can't find ::9 ƀצ:9 ƀ:SYSTEM.SWAPDISK&:(7,*SYSTEM.WRK.CODE[*]ת{צTo what codefile? ( צE,á2צ$̶8FNo debugger in systemתP8F6:::&:(xáצAssembleצCompile what text? ( ׯ,á(+(צ.TEXT888Ä8 "ˡ$צ Can't find ::9 ƀצ:9 ƀ:SYSTEM.SWAPDISK&:(7,*SYSTEM.WRK.CODE[*]ת{צTo what codefile? ( צE,á2צ$̶8FNo user programתP8F0:::::&:(xáצAssembleצCompile what text? ( ׯ,á(+(צ.TEXT888Ä8E$ á"ˡ"& E ##&EáN R3b9Q[Ä-D8铡6!~? *~?=FצPut in :P?FP'Ǡȡ*EEתE&VX X9   /13579;=?E&* צ:SYSTEM.LINKERƁ&̨<́b ́cʁcȡ~ؤ́dʁdתʁd0ʁdʁd؞&"á*ʁd ضá0?ʁdצ*SYSTEM.STARTUP(߫7́%́eʁ%ʁeȡlضʁ%ʁbQ́fƁfʁdƁfƁ&ʁ% Ɓf(ߡʁ% ʁbʁ%́bʁ%́%Y;??ٟá'C צCONSOLESYSTERMצGRAPHICPRINTERצREMINREMOUTz>77:: what text? ( ׯ&,á (+(צ.TEXT888Ä8 "ˡ$צ Can't find ::9 ƀצ:9 ƀ:SYSTEM.SWAPDISK&Ʋڤ  R   88( áצ Assemblingצ Compiling...á999':::::&:(áצAssembleצCompilec(s) not available 1 \ @ ڤ  áڤ !~ e ת*U  !! !:!!ڤ  ڤ  áܡ #צMust L(ink firstƁ1ƀ:צ.Conflict between intrinsic and user segment(s)ƀצ*SYSTEM.LIBRARY ,צ Can't load required intrinsic(s)Nƀ/צ#Required intrinsi"ˡCۡ>"áIllegal file nameצNo file ́3́4ʁ4́5ʁ5ˡ  not codeʁ41ʁ5"ˡ Bad block #01Ɓ1aݡ9צ Linking...ݢ`ڤá Zxȡ2ݤˡ"ޢ`ݤۼ: TڪƁ Ɓ "á9̂.ʁ ʁ"ˡ  Ɓ Ɓ Vj ުPڶڳ@@YyÍ, 4ۢڤ ɡ$ڪP-19:!1ׯ)Illegal filenamenTޢ ȡSڤ ˡ@۳-ܢ0ۤ צCurrent date is C -C-C 99ȡצ"(C) Apple Computer Inc. 1979, 1980צ(C) U.C. Regents 1979%System re-initialized 6:rNP  צP%[VTUWX%Y7888% š tWelcome ?, to Apple II Pascal 1.1Based on UCSD Pascal II.1צCurrent date is C -C-C 99ȡצ"(C) Apple Computer Inc. 1979, 1980צ(C) U.C. Regents 1979%System re-initialized???תY6!  ת&צP%[VTUWX%Y7888% š tWelcome ?, to Apple II Pascal 1.1Based on UCSD Pascal II.18 6øYצ???JanתצFebMarתצAprMayתצJunJulתצAug Sepת צOct Novת צDec ???תצ?????? *SYSTEM.WRK.TEXTײ& צ*SYSTEM.WRK.CODE ,  7 :9CONSOLE:ת(:9YצSYSTERM:(8:99988:9  6 ۪1٦׷)צ: ܢܢH d    Y0&תת.ת:(7,*SYSTEM.WRK.CODE[*]תצTo what codefile? ( צO,á<צ$88š8(8X+,,"ˡ  Can't open ,   áث 7`  7 š+ š%SYSTEM.WRK.CODE׷sצSYSTEM.WRK.CODEFš5.CODEׯ.ת   ١  n ١ á9 ٓ/! !!١ˡá ~ݤݚ ˄ܟń ١á  ޤ wš  iá Ä,ޤ  ɡ"áޤ PġMáš7 ܂ۻݪ d #(   !š Í 7ÄU ǐɄ:6ń~66! šá٢.ٕ۶š ڸ۸۶ š۸ ڸ:   ȡQ  ȡ   ȡ? ȡ  ġ  á ڢڢڢڣ ڣ ١ڢ ڣ ڣ١ ڢڣڣ ڣ áڣڣš ڢڣڣ hڢ ڢ١ڢ!ڣڣ ڢ!ڣڣ ڢÄڣ &ڢ ڣ ڢ! ڢ!ڣڣ ڢڢ ڣڢÄڢ  쓡 Xצ Linking...  ˡ&צ Restarting...צ U not allowedxRpUT-Há6OKTU7AX0NNP3 "jC(,. C fpP @$ j4 6L $.1]P')%?áSF=Command: U(ser restart, I(nitialize, H(alt, S(wap, M(ake execתP')%W 6!W,z3쓡 Xצ Linking...  ˡ&צ Restarting...צ U not allowedxRpUT-Há6OKTU 6   ˡFצJCommand: E(dit, R(un, F(ile, C(omp, L(ink, X(ecute, A(ssem, D(ebug,? [1.1]P')%?áSF=Command: U(ser restart, I(nitialize, H(alt, S(wap, M(ake execתP')%W 6!W,z3SȡU/U[,-Z N:98:9á.Y(Y*SYSTEM.ATTACH   áá'*SYSTEM.STARTUP % áá :(šR.%+(]ˡ([8]+(\"á%[צ Terminator=[צ , change it?)צNew terminator:[UO צ: ) Running...ء ء   Swapping is VonoffצToggle swapping? VVzNew exec name+00.0.0ȡ#+.//a/zȄ +./ ..+EXEC/ׯjUTVP+\"á(TS.OQ[QQP+  Hm% á.צNested exec commands illegal"צError opening execd Z6PO6 "ء PKצExecuteצ what fileצ? Pš) ! 767䚹 :V@28˄ޢߢšáޢ ޣ ߢ  dޣޢޣޣߢ  dÍÍޢˡ ݓۤ ۤ Äݓۤ  dÄÍ"ߢ ˄"ɡۤ  dáߢ  dá ߢ C#ޣC˄ ߢ C ߢ ۤ ߢޣ ޣߢ ޣޢ ޢۤ ޢ áޢá ~תޢޢޢ024<& צ IZE < FBLKSIZE THEN ,BEGIN N := FBLKSIZE DIV FRECSIZE; .WHILE RECNUM-N >= 0 DO 0BEGIN RECNUM := RECNUM-N; 2BYTE := BYTE+N*FRECSIZE; 2WHILE BYTE > FBLKSIZE DO 4BEGIN BLOCK := BLOCK+1; 6BYTE := BYTE-FBLKSIZE 4END 0END ,END; *WHILE RECNUM > 0 DO ,LOCK,N: INTEGER; "BEGIN SYSCOM^.IORSLT := INOERROR; $IF F.FISOPEN THEN &WITH F,FHEADER DO (BEGIN BLOCK := 0; BYTE := FBLKSIZE; *IF (RECNUM < 0) OR NOT FSOFTBUF OR 2((DFKIND = TEXTFILE) AND (FRECSIZE = 1)) THEN ,GOTO 1; (*NO SEEK ALLOWED*) *IF FRECS ' "PROCEDURE FSEEK(VAR F: FIB; RECNUM: INTEGER); PROCEDURE FREADREAL(VAR F: FIB; VAR X: REAL); "PROCEDURE FWRITEREAL(VAR F: FIB; X: REAL; W, D: INTEGER);   IMPLEMENTATION $ "PROCEDURE FSEEK(*VAR F: FIB; RECNUM: INTEGER*); $LABEL 1; $VAR BYTE,Bext? ( ׯ,á(+( "ˡ$ Can't find ::9 ƀ:ײ9 ƀ:צSYSTEM.SWAPDISK&:(7,צ*SYSTEM.WRK.CODE[*]To what codتPš++0تPRš&+R+P&P0&Ršز&RPز&PR,VV"6h ssembleצCompile what text? ( ׯ,á(+( "ˡ$ Can't find ::9 ƀ:ײ9 ƀ:צSYSTEM.SWAPDISK&:(7,צ*SYSTEM.WRK.CODE[*]To what cod "PROCEDURE SETCHAIN(TYTLE:STRING); "PROCEDURE SETCVAL(VAL:STRING); "PROCEDURE GETCVAL(VAR VAL:STRING); "PROCEDURE SWAPON; "PROCEDURE SWAPOFF; "  IMPLEMENTATION E :::&:(xáצAssembleצCompile what tB GBGBBBBB  !CHAINSTUPASCALIOSHORTGRASHORTGRAAPPLESTUWS1STUFFWS1STUFFWSMACC WSCHAR WSCHAR  .ת&תת(%Ɓ.񄓡9&   P ? ءצ*SYSTEM.WRK.TEXTצ*SYSTEM.WRK.CODEצ*SYSTEM.LST.TEXš š۾.ˡצ([šܕ!!(š۾:ˡ١.TEXTת .CODEת!!ȡ(ܾܾ š!!Ȅ!!P!x!P %',@@JBGD> Z`<@X áޢá ~תޢޢޢ024<& צ š š۾.ˡצ([šܕ!!(š۾:ˡ١.TEXTת .CODEת!!ȡ(ܾܾ š!!ȄBEGIN RECNUM := RECNUM-1; .BYTE := BYTE+FRECSIZE; .WHILE BYTE > FBLKSIZE DO ' "PROCEDURE FSEEK(VAR F: FIB; RECNUM: INTEGER); PROCEDURE FREADREAL(VAR F: FIB; VAR X: REAL); "PROCEDURE FWRITEREAL(VAR F: FIB; X: REAL; W, D: INTEGER); ݢݣޢÄɡ3ڕġ$ڕšš"šޣ Ąޣ ݣ ˡRݣ &ݢ ݢݢ!ݣ "ˡݣ ˄ݢ!ۂ I L`#JI`'  I` I0ݩ(0/,",i8i#Hiihifi`i,i,3iPII4ifH8H hIiH h hL8Iif E J j 8TEM.CHARSETx @4` - G`` 8`*UH)JJh & & f)4#i JL` T$Q%P)QتP+,+,ȡ+ ++V 0  آآآǿآآǿآآ@ ٚ SYSTEM.CHARSETáSYSl    ڪP."ˡ[̄$ʄ$N.ʄ$M ń.ʄ$M  ʄ$̄$.ʄ$M .ʄ$M Y@'    4 ǯ?Ǭ?ǰ?Ǯ?ǩ? áǫ?Ǭ?0 ٢ؚ ڢؚڢٚ ۚܢښܢٚܢؚɡšܢɡܢǿšܢǿɡܢɡܢ E ENCOLOR(PENMODE: SCREENCOLOR); $PROCEDURE TEXTMODE; $PROCEDURE GRAFMODE; $PROCEDURE FILLSCREEN(FILLCOLOR: SCREENCOLOR); $PROCEDURE VIEWPORT(LEFT,RIGHT,BOTTOM,TOP: INTEGER); $FUNCTION TURTLEX: INTEGER; $FUNCTION TURTLEY: INTEGER; $FUNCTION SCREENBIT(X,Y: INTEGER): BOOLEAN; $PROCEDURE DRAWBLOCK(VAR SOURCE; ROWSIZE,XSKIP,YSKIP,WIDTH,HEIGHT, 8XSCREEN,YSCREEN,MODE: INTEGER); $PROCEDURE WCHAR(CH: CHAR); $PROCEDURE WSTRING(S: STRING); $PROCEDURE CHARTYPE(MODE: INTEGER); $ "IMPLEMENTATION DURE PENCOLOR(PENMODE: SCREENCOLOR); $PROCEDURE TEXTMODE; $PROCEDURE GRAFMODE; $PROCEDURE FILLSCREEN(FILLCOLOR: SCREENCOLOR); $PROCEDURE VIEWPORT(LEFT,RIGHT,BOTTOM,TOP: INTEGER); $FUNCTION TURTLEX: INTEGER; $FUNCTION TURTLEY: INTEGER; $FUNCTION S $TYPE $ SCREENCOLOR=(none,white,black,reverse,radar, 3black1,green,violet,white1,black2,orange,blue,white2); & &FONT=PACKED ARRAY[0..127,0..7] OF 0..255; $ $VAR 'FONTPTR:^FONT; $ $PROCEDURE INITTURTLE; $PROCEDURE MOVETO(X,Y: INTEGER); $PROCE$ $ ݞ$' ݑ$ $݂ō $݂ġ ݂$ $ $ȡ%  0 ފ$čV   .ˡ:  Eɡ  -ݑ š 0 0 ߿`ġ(   ݂. ݕ ؂݂3  ݕ 0 . ݑ0 ݕ݂ ؂ ɡ  |, R -   $ $ ݞ$' ݑ$ $݂ō $݂ġ ݂$ $ $ȡ%  0 ފ$čV   .ˡ:  E.áBڲzؼ0ݞ$ڲzjeEÍɍEáޢ >ۓɡ ؼ݀$ ؼݞ$ۡܡ ؼ$ Dɍ -   "ˡ\ݣ ݣ šݢ ݣ ݢݣݣ ݣ ݣݣńݢݣݢݢݢˡݢݢ ۚݢܚ  / |á +-Í-ڲzؼ 0  e e  `(J 8 e  ` Z Z< $ %$PQ $  ߩ $ Li`t^cY}zeNEDh0h1hhhhh.h/h,h-h*h+h(h)(ȱ(*ȱ*,ȱ,.ȱ. HH1H0H(ȹ(*ȹ*,ȹ,.ȹ.`   ""##  )`%)8`)     "USES SHORTGRAPHICS, APPLESTUFF; " "CONST $FIRSTLESSON = 1; $LASTLESSON = 10; $MAXLEN = 31; $MAXLIN = 80;   { ASCII Code Constants } $ $BELL = 7; $NAK = 21; $ESC = 27; $CR = 13; $LF $hhhhhh9.:.;.<0(0(099JH;HHH`Z310/$ T?@AB ?UB`2<(^`L+L10`LELK뭕 JF8ȹe8ИL`Lø{{ttmnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# !hhhhhhh)hpdHHHH`4hhhhhhhi)hH`HHH`0hhhJhh)*XhHH`"hhhhhhH! \L HHH`<hhhhhhHHLM0ON: INTEGER); $ "IMPLEMENTATION E .CODESKSWAPDISKҎԎ,nr r nrnʤr LIT^n6 6 \^^\n6 r DLITURAS P $ $FUNCTION PADDLE(SELECT: INTEGER): INTEGER; $FUNCTION BUTTON(SELECT: INTEGER): BOOLEAN; $PROCEDURE TTLOUT(SELECT: INTEGER; DATA: BOOLEAN); $FUNCTION KEYPRESS: BOOLEAN; $FUNCTION RANDOM: INTEGER; $PROCEDURE RANDOMIZE; $PROCEDURE NOTE(PITCH,DURATIT p |  TURTLE.CODEODE PITURTLE.TEXT{d PITURTLE.CODEmd PRESHORT.CODEFɢ STURTLE.CODEm SHORT.TEXTXT{ɢjfjfj+*fjfjfj8 8) )` (J(F ((Lee Lw  )L6I1L6)QL6        xhXOF=2 6 j > @6  # " `' & 8 ! 0"ee8 !  e e8"#0 88$ % 0"ee8$ %  e e8&'0 8e*e+)*)f [B  ""##8&$iT8&UU ! U"# UT`+%$Y)!p JhhhhhhhhhhH8 )%HHH`5>hhh)hh h h h hhhhhhhhhhhhHH J "  ` ` `SN-(' . hhhhhhHH `  [HH8H8 hhhL.+ rhh heheheheHHLh< L)ˢ   â LE % %  )  `8`&e epɀj f f&e e pɀjff %) % )`% L=`0(%$ $ @' &    0&!"   # = 14; $BS = 8; % "TYPE %  (*------------------- STUDENT RECORD STRUCTURE ------------------*) % $NAMESTRING = string[10]; {THE STUDENTS NAME} $LESSONRANGE = FIRSTLESSON..LASTLESSON; {NUMBER OF LESSONS} $LESSONSTATUS= (STUDY, OKAY,PERFECT,REVIEW, MASTERY);{FOR EACH STUDENT} $CONTROL = (NEWSTU,PR,TT,PT,RE); {USED TO DETERMINE MENU} $LESSARRAY = PACKED ARRAY[LESSONRANGE] OF LESSONSTATUS; {ERROR FLAGS} $ $STUREC = packed record   "USES SHORTGRAPHICS; ' "TYPE - $CharSet = Packed Array[0..127,0..7] of 0..255; $CharPtr = ^CharSet; + "VAR -  { Note that the standard will be used as the System.Charset } - $AlterSet : CharPtr; { Holds Alternate charsetỲ̀ʀʀȡÀM̀ʀʀȡM̀ʀ̀ʀ̀Y  YY  Y Yá0ʀá ̀ʀ̀ʀ:ˡ ʀ̀MYá,ʀ̀ʀ:ˡ ʀ̀ʀá̀Z PZZˡ0PY á Nt+-' F_    @ɡ @  !*0RT:ˡ2̀ƀPƀצ QƀPʀʀ̀ ̀̀ʀʀȡ  ʀ̀ Ỳ̀ʀʀȡÀM̀ʀʀȡM̀ʀ̀ʀ̀Y  YY  Y Yá0ʀá ̀ʀ̀ʀ:ˡ ʀ̀MYá,ʀ̀ʀ:ˡ ʀ̀ʀá̀Z̀ƀצ ƁƁƀצ: ƀPZZ̀ƀPƀZǠƀPئתPʀ̀ʀ:ˡ2̀ƀPƀצ QƀPʀʀ̀ ̀̀ʀʀȡ  ʀ̀ W .=W b0ݪPܪP̀ʀ:ˡ ʀ̀ʀ̀Z PZZʀZ̀ƀZPƀ QƀPʀ̀ʀš̀ʀʀáZZ:ZP0ׯ ̀0̀ƀצ:ƀ0Qƀצ:Rƀ   *2ء  ˶  ö 4 Prȡ ڂە.۪PڪPW4:.š.צ:..=SK_IN(VOL , ID : STRING) : BOOLEAN; PROCEDURE CHOICE(CURRENT , ANSWERS : STRING ; X , Y , LEN : INTEGER ; 3VAR CHOSEN : STRING);   IMPLEMENTATION E UREC; {HOLDS MOST CURRENT STUDENT}  BUFFER : BUFPTR; { This one is only 2.5K buffer } " "PROCEDURE FLUSHREAD(VAR CH : CHAR); "PROCEDURE READSPACE(FLUSH : BOOLEAN); "PROCEDURE PAUSE(SECONDS : INTEGER); "FUNCTION RAND(LOW , HIGH : INTEGER) : INTEGER; "FUNCTION IS_DI$PICS = PACKED ARRAY[1..30,1..30] OF BOOLEAN; $INPUTSET = SET OF CHAR; {THIS IS USED FOR USE WITH THE ACCEPT PROCEDURE} $ "VAR " $CURRENTREC : STUREC; {HOLDS MOST CURRENT STUDENT} = ^BUFTYPE; $BUFTYPE = PACKED RECORD 4CASE BOOLEAN OF 6TRUE : (TUT : TUTYPE); 6FALSE : (EDT : EDTYPE); 3END; { 2.5K buffer } $ $HUGETYPE = PACKED ARRAY[1..60,1..60] OF BOOLEAN; $MEDTYPE = PACKED ARRAY[1..16,1..16] OF BOOLEAN; ENT : packed array[TABLERANGE] of STUREC; 3END;   (*--------------------- FOR USE TO POINT INTO BUFFERS ----------------*) $ $TUTYPE = PACKED ARRAY[1..2560] OF CHAR; $EDTYPE = PACKED ARRAY[1..MAXLIN] OF STRING[MAXLEN]; $ $BUFPTR 5NAME : NAMESTRING; 5TOPIC : STRING[3]; 5STUSTATUS : CONTROL; 5LESSON : LESSARRAY;{KEEPS TRACK OF EACH QERROR} 3END; 5 $TABLERANGE = 0..40; {NUMBER OF STUDENTS} $TABLETYPE = packed record 4COUNT : TABLERANGE; 4STUD--)vPINTEGER vREAL $|CHAR 6BOOLEAN BSTRING ,TEXT INTERACTLINPUT xOUTPUT fbKEYBOARDFALSE } $ --)vPINTEGER vREAL $|CHAR 6BOOLEAN BSTRING ,TEXT INTERACTLINPUT xOUTPUT fbKEYBOARDFALSE `TRUE vxNIL MAXINT Xv     N0b0۪PڪP0Nˡ^צ&Ä צ^˦&Ä ^צ&˄צ^˦&˄á $8Vz&Pצ^ RJ Y&ײPצ& צ&áYP ~R*Sצ&SP&ײPN0*Y0ˡz++ +0Q+צ R+P+Y+ +YY+  #%x YP 2 Y^ײ ˡئ  á. 6 ȡCڳ PJZZ 0  ;0 40 -AS&! + "$2T0YPPPPQPPá  áPPPPPPP ˡP & צ áצ ˡ  צ ˡצ á*RvV ~צ ɶOń OO      R תPO á%? ?Ná? ?&? ? ȡ)ڡ  ڡ  dP x š  OO     ء z$LIBT1XT WSMACC.CODEz6 ʪz|z6 5b6 *,,#5:WSMACC.CODEWAPDISK #5:WSMACC.TEXT#5:WSMACC.CODEDE[*]BOOT1:SYSTEM.SWAPDISK #USES SHORTGRAPHICS, APPLESTUFF, WS1STUFF; # # #PROCEDURE ACCEPT(VAR STRNG : STRING; MODE,MAXLENGTH : INTEGER; 4INSET:INPUTSET); #FUNCTION MATCH (EDIT,OPTION : CHAR; RESPONSE, ANSWER : STRING):BOOLEAN; # #  IMPLEMENTATION E 6 r   V( READLN WRITE nWRITELN EOF EOLN JPRED RSUCC ORD  SQR  ABS ~ NE٤ ٪P././ȡ... V6ء:ǿǻǻǺǿ`٪P  ǿR, E READ |READLN WRITE nWRITELN EOF EOLN JPRED RSUCC ORD  SQR  ABS ~ NE"Procedure OurWCHAR(X , Y : Integer ; CH : Char ; Mode : Integer); "Procedure OurWString(X , Y : Integer ; Line : String ; Mode : Integer); "Procedure Learn_Cntrl(ST : String ; X : Integer); "Procedure Gr_Page(Full : Boolean);   IMPLEMENTATION READ |READLN WRITE nWRITELN EOF EOLN JPRED RSUCC ORD  SQR  ABS ~ NEPצ^ RJ Y&ײPצ& צ&áYP ~R*Sצ&SP&ײPN0*88  8x8>"*6">""> $88>>>> > >>        00      F 00  F f 6 6                                  烃 ;0 p                         ?v|x?sv|8xxq89qsw= ?;88x0`o<<>x>pxp??ywpcy?sv|烃 3s{g5  x< 0;0 p?sv|?<8p81? 880pV2b<  0`?sv|@>|???<x0~``P@0@ ``@>|???<x0~``P@0@ ``p<0```pP^o8 <"< """<<<"""< <>"$ <""""""  "" "***6""""""""" <""<: <$,2""""""6**"""" <""">>8  80,<:*""">""""""""""""">>><"2<""">"""" "  ">"""**6"""2*&""""""""",*"""" """ ">""""""""""""6**"""""""""> >>> >00000>">>( <02&,*  **>> "&*2" > ""  >>" >""8 >"""" <"">> "HH(x rh(`~Ȍ``hhh )hJ¥jJJhhihhhJi֍hhha [U8ſƅh)x h H('eƍ8ƅи ĘHH`ߠ ߮ ))))?)`vߗ߸)))@#AND 'ARRAY ,BEGIN CASE CONST DIV 'DO DOWNTO END ELSE EXTERNAL5FOR FILE .FORWARD "FUNCTION GOTO IF IMPLEMEN4IN )INe ~a{8 ~ȱa {8 LT0:A[_ ҕ~L+݈qȱi~8A ݅ȹ݅ȱ~Ɔ4i Lȱ|ȱ}|ȩȥ}ȩLݠȑȑ~uHtH`,BMcބޥHH8(iPH ۠'(hH'O'OhhmhLۭJL80%`M8$LLLhhhhhhhhץHH` ܩȑآL ܥ8ؘ ܩ؈ȩؠ#hthuhhhheȱÈ jh`@ fנ f׭0`L` CLL۠LۥHH j ڥhhLۦ vې` ۤOȄ`H$)A[hIH80(hI`i(L8(hI`LۥJ) )i i`¥ĥ`` - 9HL r 9 MȽ`H 9٠L rH $h`   -y6=CLjO808 0PLڥ8 0 ۥ``) ` )? Lvۢ 8` GڅFڅl```LۥH ۠' `H 9٠ hlQ`) թ` 9 Ȣ`JJJJ ϱ` r,p 0*P$ ۤ b ۢ`H - 9٠L r׊H 9h ɢ`) 2 r׭0` r׹)` ( `) ' r׹J)?L I@L3؊  L3؎,QLxת,c*A[ Lע0H)@hILө Ъhhh(`N`hhhhhhHH)> ` Yܠ0* )` r׮ ؎`(54#ƊgƈЪ 6`י ֙QRTW = Э*0 LqŐ`8Hh`HHH*0<]U)j7 [ )L3~ l )jjAUIL3ة0 $ڐ> L׈ ϐ8 (ֹH 7֥ +ֹP 7 7)*Ȫ`FG8`0($ p,&"VU>)Q>jj``P@J I*I `\xDŽ XׅІ X?;78H<8H  8`Ί aՍxՍՍՍե>?Ռ8T8ՌWuՌvՠ ýI꽌ɪ꽌ɭ蠪ϮәVE]ӾV]H)]ӾV]ԙ)]ӾT]ԙ)]ӦΨ 8$hU>`ȅSϭ߅83Iߐi ө ө ө ӽ`Hh`Q꽌ɪɖν*Ͻ%ϙEΈ 꽌ɪ`8` Hh݌`  $(,048<@DHLPTX\`dhlptx|Հ؈䤨谴LјJ 8彐.mĿ"Š>?( X֮ˍL հ˩($8` Ґh Hǹxhx N`8Ύ߽0|ϩHhHh ӈ ө ө ӘVYԦΝYԮߝꪽԦ ө  Ͱ()I يJJJ(jǩF؅G(  7ֈ k( F G  Xj0 Ю $Ӱ8 xH ߩ`Ǚx kh kL~ѩ@(LYLWҭH͍h (ͥpi)ͥˤ˹TERFAC3LABEL MOD 'NOT &OF OR (PROCEDURPROGRAM !PACKED +REPEAT RECORD -SET *SEGMENT !SEPARATE6THEN TO TYPE UNIT 2UNTIL USES 1VAR WHILE WITH  h0 L LllL=LC/ L ߰8L ߦt~ hI=+ L ߤt~I= ~ LȄHHL;hh tuLhhVtWu\z]{XiXYt8xtut8xtu8tHL;ҩHHHHLр? ABzDF@GPtI$KL nN(kPQChSU焵V!cX_Z[^]k _#ǭ`xXb'dxehSgiQYjoNln9?oIqr|otEv7w߄y @{Η|½~v! ) `) e`޽hhL;ҭ߽H޽4IiIi&lhyhxhwhv 좀 WvHwHxHyHLM 좀 WLM8uhhLѪ0 vwx`Fvfwfxx wvLttvIvwIiwv`t ) mvHwHL;ҩt ) mvHwHL;hh' HHHLi򅁩Fvfwfxe~e}e|ffffإ L z z`t )z )u{ HHHHLM 뢀 WLMҢt )u HHHHLMҥtzu{v|w}x~y 뢀 WLMҺ^LMҺtv&t&v ILMhhhhꢀ WLMҢt )z )uz WLMҥ{tItt WLMҥtEzz ꢀ WLM rI 9ꢀ WLMҢt )z )uLѥ{ HHHHLMҥtEz{8u i  iLх 8y~x}w|v |}~8&&&&Fvfwfxfy z颀 WLMҥtEzu8u{8euPhh|f}f~f` yexe~we}ve| z z` 8y~x}w|v ` z`u{"$v|w}x~ yz8`u{u{v|v|w}w}x~x~t`t )z )uz WLMҥ{t WLMҥtEzt ꢀ WLM rꅀ 9L;8\潪]L!\Z][JHjHL;hhhhh*68jh*vlhhjH*vjHHHlffff恩ŁhhL`0&&&&0ƁƁhhL`&悥F8`u8{I{FvfwfxfyyyFwv xvиtȱutХLSҠ UL;ҥXiXYLhthuhvhwtvȑtvL;ҥhe^hie_ije^jke_k_ik ʱhjL{^LhjL;h^h_ hhhhhhhhL;hjhkhejjhekkhhhihehhheiiXЀ_ʱhjkiL^Lhjhe||he}}hhhhh^eh_e^Ii^Ii_|ň.LM祊'|}0 |}L<|8|}L<|8優}HHL;hxhhhTL֥T8tUut8tXȥutYxT VLSҥRSLȱvȱwvLѥv8vwv8v` ^\_]`hh L;hh L;ҠX rLq ?L;hxhyhthuhvhw07ȱxv0vȱv,vwLR vȱvvwLRHHLHHLHHvtȥwtL;hhh^h_hhhhL;hjhkhejjhekk_ ʑjkL^LjL;hhh|h}\] z8Ƒ |5|8|}8\|ȥ]|8|ƍ8 ƍLoPQ |l|8|}8||ȥ}||8|}| iiL奌 㥎 㥊 㭭хх 㥐8ƑzLo` 8et|8|}Ƅ`t et HHH> o>HBtCu\8t\]u]\Z][ 8\Z][Lѥ]H\HuHtHAH@H > ޽Р SYSTEM.PASCAL Insert boot disk with SYSTEM.PASCAL on it, then press RESET#usthL'hح/0 !"opqr)VV#$6| p?`}S???`q}q|||ER, INC.צ#Published by EDUWARE SERVICES, INC.[צAn MSA Company C `jxƁ-  #4:Logo.Font آ 3\H)ǔ ǿ&ǧ" ȡ! ǧǞ ȡ! ;ǝצTHE SCIENCE OF LEARNINGǝ =!ǚ ǿ Copyright[ iצ1984 MICROTEACHƁ- #4:Logo.Line 4Ɓ0بƁ0ʁ0ʁ1Ɓ4ʁ2ʁ3OhxƁ-  #4:Logo.Font آ 3\H)ǔ ǿSTARTXTPROSTARTUP.CODE6 ʪz|z6 5bU6 *,,#5:PROSTARTUP.CODEISK ̅(צ #5:PROSTARTUP.TEXT- %̅,ړצLis#5:PROSTARTUP.CODE]BOOT1:SYSTEM.SWAPDISK.צWSBOOTٓj * צWRITING SKILLS DISK*צMUST BE IN DRIVE1* *ǿcDצ #4:MEDIUM(צ#4:HUGE.INKPENȡDDD١4 GBB B^ tSTARTUP ERROR EDUWARE DRAWHELL uP vP wP xP~ ~mx lw lw kw kv jv vv rr ZZ VV RR M L L L L L L M o| o| o| o| o| o| M L L L L L L L L L L L L L M || xx VV RR pP~ qP~ rP~ sP tP L L M || xx VV RR M L L L L L L M o| o| o| o| o| o| M L L L L L L L L L L L L L L L L L L M zz N''K((IO))HL**JJ)+II)-HH*0GG,FF/HHIIJJHLIOKӕNЖԔ֓ԒՐ֍,/))**++*0)-HHHHIIHJJM L L L L L L L L L L L#]01|<??????#{q|????1<1'#2? 8>@$538>?????????< A]>0?????????A{?????A&ǧ" ȡ! ǧǞ ȡ! ;ǝצTHE SCIENCE OF LEARNINGǝ =!ǚ ǿ Copyright[ iצ1984 MICROTEACHǿ(<<n  (ǎd ȡ! d ȡ! (^  آ 3\H)ǔ ǿ "PROCEDURE SETCHAIN(TYTLE:STRING); "PROCEDURE SETCVAL(VAL:STRING); "PROCEDURE GETCVAL(VAR VAL:STRING); "PROCEDURE SWAPON; "PROCEDURE SWAPOFF; "  IMPLEMENTATION E :::&:(xáצAssembleצCompile what tB GBGBBBBB  !CHAINSTUPASCALIOSHORTGRASHORTGRAAPPLESTUWS1STUFFWS1STUFFWSMACC WSCHAR WSCHAR  ~}|{zyxvtrpi/-+F r : T. E. DOUGHER * !* Requirements : TURTLEGRAPHICS, MEDIUM CHARSET * !* HHHH `` : Lɦɼ佌ɕ ɕ ɕ`iILeL`Liil?```PP@@ HHHH огH HHHHHHHHH IمL  R  RHHHH`LlHh & & &H HHHHH<lUhVhWhh  * *jjWHVH`XVhhhhhhhhhhhLH HHHHH צWSLESSON4צ 4퓡צTHIS IS NOT A LESSON DISK1GצPUT LESSON DISK IN DRIVE 1*3צPRESS [SPACEBAR] TO CONTINUE ˡ  áWSLESSONMAIND(MICROTEACHER, INC.MצEDU-WARE SERVICES, INC.$ צis strictly forbidden. jDp(TצWSSYSTEM  Íá01 esigned byMxצMARVIN ROSEN, EdD.Mh BENNIE LOWERYMXM. DAVID MERRILL, PHD.$HצALL RIGHTS RESERVED 1984$> Any reproduction of this program$4צdiskette without the expressed$*written permission ofM Ɓ-<ǿǺǺ #4:INKPEN ǖ   ,ǡצMICROTEACHER, INC. *ǟǨǟǨǫ*ǫ*ǟǶǪ Version 1.0ǶǠ Date 4/30/848Ljצ D&ǧ" ȡ! ǧǞ ȡ! ;ǝצTHE SCIENCE OF LEARNINGǝ =!ǚ ǿ Copyright[ iצ1984 MICROTEACHext? ( ׯ,á(+( "ˡ$ Can't find ::9 ƀ:ײ9 ƀ:צSYSTEM.SWAPDISK&:(7,צ*SYSTEM.WRK.CODE[*]To what codتPš++0تPRš&+R+P&P0&Ršز&RPز&PR,VV"6h ssembleצCompile what tCREENBIT(X,Y: INTEGER): BOOLEAN; $PROCEDURE DRAWBLOCK(VAR SOURCE; ROWSIZE,XSKIP,YSKIP,WIDTH,HEIGHT, 8XSCREEN,YSCREEN,MODE: INTEGER); $PROCEDURE WCHAR(CH: CHAR); $PROCEDURE WSTRING(S: STRING); $PROCEDURE CHARTYPE(MODE: INTEGER); $ "IMPLEMENTATION DURE PENCOLOR(PENMODE: SCREENCOLOR); $PROCEDURE TEXTMODE; $PROCEDURE GRAFMODE; $PROCEDURE FILLSCREEN(FILLCOLOR: SCREENCOLOR); $PROCEDURE VIEWPORT(LEFT,RIGHT,BOTTOM,TOP: INTEGER); $FUNCTION TURTLEX: INTEGER; $FUNCTION TURTLEY: INTEGER; $FUNCTION S $TYPE $ SCREENCOLOR=(none,white,black,reverse,radar, 3black1,green,violet,white1,black2,orange,blue,white2); & &FONT=PACKED ARRAY[0..127,0..7] OF 0..255; $ $VAR 'FONTPTR:^FONT; $ $PROCEDURE INITTURTLE; $PROCEDURE MOVETO(X,Y: INTEGER); $PROCE$ $ ݞ$' ݑ$ $݂ō $݂ġ ݂$ $ $ȡ%  0 ފ$čV   .ˡ:  Eɡ  -ݑ š 0 0 ߿`ġ(   ݂. ݕ ؂݂3  ݕ 0 . ݑ0 ݕ݂ ؂ ɡ  |, R -   $ $ ݞ$' ݑ$ $݂ō $݂ġ ݂$ $ $ȡ%  0 ފ$čV   .ˡ:  E.áBڲzؼ0ݞ$ڲzjeEÍɍEáޢ >ۓɡ ؼ݀$ ؼݞ$ۡܡ ؼ$ Dɍ -   "ˡ\ݣ ݣ šݢ ݣ ݢݣݣ ݣ ݣݣńݢݣݢݢݢˡݢݢ ۚݢܚ  / |á +-Í-ڲzؼ 0ݢݣޢÄɡ3ڕġ$ڕšš"šޣ Ąޣ ݣ ˡRݣ &ݢ ݢݢ!ݣ "ˡݣ ˄ݢ!ۂBEGIN RECNUM := RECNUM-1; .BYTE := BYTE+FRECSIZE; .WHILE BYTE > FBLKSIZE DO ' "PROCEDURE FSEEK(VAR F: FIB; RECNUM: INTEGER); PROCEDURE FREADREAL(VAR F: FIB; VAR X: REAL); "PROCEDURE FWRITEREAL(VAR F: FIB; X: REAL; W, D: INTEGER); IZE < FBLKSIZE THEN ,BEGIN N := FBLKSIZE DIV FRECSIZE; .WHILE RECNUM-N >= 0 DO 0BEGIN RECNUM := RECNUM-N; 2BYTE := BYTE+N*FRECSIZE; 2WHILE BYTE > FBLKSIZE DO 4BEGIN BLOCK := BLOCK+1; 6BYTE := BYTE-FBLKSIZE 4END 0END ,END; *WHILE RECNUM > 0 DO ,LOCK,N: INTEGER; "BEGIN SYSCOM^.IORSLT := INOERROR; $IF F.FISOPEN THEN &WITH F,FHEADER DO (BEGIN BLOCK := 0; BYTE := FBLKSIZE; *IF (RECNUM < 0) OR NOT FSOFTBUF OR 2((DFKIND = TEXTFILE) AND (FRECSIZE = 1)) THEN ,GOTO 1; (*NO SEEK ALLOWED*) *IF FRECS ' "PROCEDURE FSEEK(VAR F: FIB; RECNUM: INTEGER); PROCEDURE FREADREAL(VAR F: FIB; VAR X: REAL); "PROCEDURE FWRITEREAL(VAR F: FIB; X: REAL; W, D: INTEGER);   IMPLEMENTATION $ "PROCEDURE FSEEK(*VAR F: FIB; RECNUM: INTEGER*); $LABEL 1; $VAR BYTE,Bext? ( ׯ,á(+( "ˡ$ Can't find ::9 ƀ:ײ9 ƀ:צSYSTEM.SWAPDISK&:(7,צ*SYSTEM.WRK.CODE[*]To what cod E ENCOLOR(PENMODE: SCREENCOLOR); $PROCEDURE TEXTMODE; $PROCEDURE GRAFMODE; $PROCEDURE FILLSCREEN(FILLCOLOR: SCREENCOLOR); $PROCEDURE VIEWPORT(LEFT,RIGHT,BOTTOM,TOP: INTEGER); $FUNCTION TURTLEX: INTEGER; $FUNCTION TURTLEY: INTEGER; $FUNCTION Sǯ?Ǭ?ǰ?Ǯ?ǩ? áǫ?Ǭ?0 ٢ؚ ڢؚڢٚ ۚܢښܢٚܢؚɡšܢɡܢǿšܢǿɡܢɡܢ $ $FUNCTION PADDLE(SELECT: INTEGER): INTEGER; $FUNCTION BUTTON(SELECT: INTEGER): BOOLEAN; $PROCEDURE TTLOUT(SELECT: INTEGER; DATA: BOOLEAN); $FUNCTION KEYPRESS: BOOLEAN; $FUNCTION RANDOM: INTEGER; $PROCEDURE RANDOMIZE; $PROCEDURE NOTE(PITCH,DURATIT p |  TURTLE.CODEODE PITURTLE.TEXT{d PITURTLE.CODEmd PRESHORT.CODEFɢ STURTLE.CODEm SHORT.TEXTXT{ɢjfjfj+*fjfjfj8 8) )` (J(F ((Lee Lw  )L6I1L6)QL6        xhXOF=2 6 j > @6  # " `' & 8 ! 0"ee8 !  e e8"#0 88$ % 0"ee8$ %  e e8&'0 8e*e+)*)f [B  ""##8&$iT8&UU ! U"# UT`+%$Y)!p JhhhhhhhhhhH8 )%HHH`5>hhh)hh h h h hhhhhhhhhhhhHH J "  ` ` `SN-(' . hhhhhhHH `  [HH8H8 hhhL.+ rhh heheheheHHLh< L)ˢ   â LE % %  )  `8`&e epɀj f f&e e pɀjff %) % )`% L=`0(%$ $ @' &    0&!"   #eNEDh0h1hhhhh.h/h,h-h*h+h(h)(ȱ(*ȱ*,ȱ,.ȱ. HH1H0H(ȹ(*ȹ*,ȹ,.ȹ.`   ""##  )`%)8`)     e e  `(J 8 e  ` Z Z< $ %$PQ $  ߩ $ Li`t^cY}z I L`#JI`'  I` I0ݩ(0/,",i8i#Hiihifi`i,i,3iPII4ifH8H hIiH h hL8Iif E J j 8TEM.CHARSETx @4` - G`` 8`*UH)JJh & & f)4#i JL` T$Q%P)QتP+,+,ȡ+ ++V 0  آآآǿآآǿآآ@ ٚ SYSTEM.CHARSETáSYSl    ڪP."ˡ[̄$ʄ$N.ʄ$M ń.ʄ$M  ʄ$̄$.ʄ$M .ʄ$M Y@'    4 ON: INTEGER); $ "IMPLEMENTATION E .CODESKSWAPDISKҎԎ,nr r nrnʤr LIT^n6 6 \^^\n6 r DLITURAS Phhhhhhh)hpdHHHH`4hhhhhhhi)hH`HHH`0hhhJhh)*XhHH`"hhhhhhH! \L HHH`<hhhhhhHHLM0   *2ء  ˶  ö 4 Prȡ ڂە.۪PڪPW4:.š.צ:..=SK_IN(VOL , ID : STRING) : BOOLEAN; PROCEDURE CHOICE(CURRENT , ANSWERS : STRING ; X , Y , LEN : INTEGER ; 3VAR CHOSEN : STRING);   IMPLEMENTATION E UREC; {HOLDS MOST CURRENT STUDENT}  BUFFER : BUFPTR; { This one is only 2.5K buffer } " "PROCEDURE FLUSHREAD(VAR CH : CHAR); "PROCEDURE READSPACE(FLUSH : BOOLEAN); "PROCEDURE PAUSE(SECONDS : INTEGER); "FUNCTION RAND(LOW , HIGH : INTEGER) : INTEGER; "FUNCTION IS_DI$PICS = PACKED ARRAY[1..30,1..30] OF BOOLEAN; $INPUTSET = SET OF CHAR; {THIS IS USED FOR USE WITH THE ACCEPT PROCEDURE} $ "VAR " $CURRENTREC : STUREC; {HOLDS MOST CURRENT STUDENT} = ^BUFTYPE; $BUFTYPE = PACKED RECORD 4CASE BOOLEAN OF 6TRUE : (TUT : TUTYPE); 6FALSE : (EDT : EDTYPE); 3END; { 2.5K buffer } $ $HUGETYPE = PACKED ARRAY[1..60,1..60] OF BOOLEAN; $MEDTYPE = PACKED ARRAY[1..16,1..16] OF BOOLEAN; ENT : packed array[TABLERANGE] of STUREC; 3END;   (*--------------------- FOR USE TO POINT INTO BUFFERS ----------------*) $ $TUTYPE = PACKED ARRAY[1..2560] OF CHAR; $EDTYPE = PACKED ARRAY[1..MAXLIN] OF STRING[MAXLEN]; $ $BUFPTR 5NAME : NAMESTRING; 5TOPIC : STRING[3]; 5STUSTATUS : CONTROL; 5LESSON : LESSARRAY;{KEEPS TRACK OF EACH QERROR} 3END; 5 $TABLERANGE = 0..40; {NUMBER OF STUDENTS} $TABLETYPE = packed record 4COUNT : TABLERANGE; 4STUD--)vPINTEGER vREAL $|CHAR 6BOOLEAN BSTRING ,TEXT INTERACTLINPUT xOUTPUT fbKEYBOARDFALSE KAY,PERFECT,REVIEW, MASTERY);{FOR EACH STUDENT} $CONTROL = (NEWSTU,PR,TT,PT,RE); {USED TO DETERMINE MENU} $LESSARRAY = PACKED ARRAY[LESSONRANGE] OF LESSONSTATUS; {ERROR FLAGS} $ $STUREC = packed record  = 14; $BS = 8; % "TYPE %  (*------------------- STUDENT RECORD STRUCTURE ------------------*) % $NAMESTRING = string[10]; {THE STUDENTS NAME} $LESSONRANGE = FIRSTLESSON..LASTLESSON; {NUMBER OF LESSONS} $LESSONSTATUS= (STUDY, O  "USES SHORTGRAPHICS, APPLESTUFF; " "CONST $FIRSTLESSON = 1; $LASTLESSON = 10; $MAXLEN = 31; $MAXLIN = 80;   { ASCII Code Constants } $ $BELL = 7; $NAK = 21; $ESC = 27; $CR = 13; $LF $hhhhhh9.:.;.<0(0(099JH;HHH`Z310/$ T?@AB ?UB`2<(^`L+L10`LELK뭕 JF8ȹe8ИL`Lø{{ttmnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# !W .=W b0ݪPܪP̀ʀ:ˡ ʀ̀ʀ̀Z PZZʀZ̀ƀZPƀ QƀPʀ̀ʀš̀ʀʀáZZ:ZP0ׯ ̀0̀ƀצ:ƀ0Qƀצ:Rƀ̀Z̀ƀצ ƁƁƀצ: ƀPZZ̀ƀPƀZǠƀPئתPʀ̀ʀ:ˡ2̀ƀPƀצ QƀPʀʀ̀ ̀̀ʀʀȡ  ʀ̀  ȡ)ڡ  ڡ  dP x š  OO     ء z$LIBT1XT WSMACC.CODEz6 ʪz|z6 5b6 *,,#5:WSMACC.CODEWAPDISK #5:WSMACC.TEXT#5:WSMACC.CODEDE[*]BOOT1:SYSTEM.SWAPDISK #USES SHORTGRAPHICS, APPLESTUFF, WS1STUFF; # # #PROCEDURE ACCEPT(VAR STRNG : STRING; MODE,MAXLENGTH : INTEGER; 4INSET:INPUTSET); #FUNCTION MATCH (EDIT,OPTION : CHAR; RESPONSE, ANSWER : STRING):BOOLEAN; # #  IMPLEMENTATION E 6 r   V( READLN WRITE nWRITELN EOF EOLN JPRED RSUCC ORD  SQR  ABS ~ NE٤ ٪P././ȡ... V6ء:ǿǻǻǺǿ`٪P  ǿR, E READ |READLN WRITE nWRITELN EOF EOLN JPRED RSUCC ORD  SQR  ABS ~ NE"Procedure OurWCHAR(X , Y : Integer ; CH : Char ; Mode : Integer); "Procedure OurWString(X , Y : Integer ; Line : String ; Mode : Integer); "Procedure Learn_Cntrl(ST : String ; X : Integer); "Procedure Gr_Page(Full : Boolean);   IMPLEMENTATION READ |READLN WRITE nWRITELN EOF EOLN JPRED RSUCC ORD  SQR  ABS ~ NEKEYBOARDFALSE `TRUE vxNIL MAXINT Xv      } $ --)vPINTEGER vREAL $|CHAR 6BOOLEAN BSTRING ,TEXT INTERACTLINPUT xOUTPUT fb  "USES SHORTGRAPHICS; ' "TYPE - $CharSet = Packed Array[0..127,0..7] of 0..255; $CharPtr = ^CharSet; + "VAR -  { Note that the standard will be used as the System.Charset } - $AlterSet : CharPtr; { Holds Alternate charsetỲ̀ʀʀȡÀM̀ʀʀȡM̀ʀ̀ʀ̀Y  YY  Y Yá0ʀá ̀ʀ̀ʀ:ˡ ʀ̀MYá,ʀ̀ʀ:ˡ ʀ̀ʀá̀Z PZZˡ0PY á Nt+-' F_    @ɡ @  !*0RT:ˡ2̀ƀPƀצ QƀPʀʀ̀ ̀̀ʀʀȡ  ʀ̀ Ỳ̀ʀʀȡÀM̀ʀʀȡM̀ʀ̀ʀ̀Y  YY  Y Yá0ʀá ̀ʀ̀ʀ:ˡ ʀ̀MYá,ʀ̀ʀ:ˡ ʀ̀ʀá ɶOń OO      R תPO á%? ?Ná? ?&? ?PPPPQPPá  áPPPPPPP ˡP & צ áצ ˡ  צ ˡצ á*RvV ~צPצ^ RJ Y&ײPצ& צ&áYP ~R*Sצ&SP&ײPN0*N0b0۪PڪP0Nˡ^צ&Ä צ^˦&Ä ^צ&˄צ^˦&˄á $8Vz&Pצ^ RJ Y&ײPצ& צ&áYP ~R*Sצ&SP&ײPN0*Y0ˡz++ +0Q+צ R+P+Y+ +YY+  #%x YP 2 Y^ײ ˡئ  á. 6 ȡCڳ PJZZ 0  ;0 40 -AS&! + "$2T0Yp<0```pP^o8 <"< """<<<"""< <>"$ <""""""  "" "***6""""""""" <""<: <$,2""""""6**"""" <""">>8  80,<:*""">""""""""""""">>><"2<""">"""" "  ">"""**6"""2*&""""""""",*"""" """ ">""""""""""""6**"""""""""> >>> >00000>">>( <02&,*  **>> "&*2" > ""  >>" >""8 >"""" <"">> "88  8x8>"*6">""> $88>>>> > >>P@0@ `` ө ө ө ӽ`Hh`Q꽌ɪɖν*Ͻ%ϙEΈ 꽌ɪ`8` Hh݌`  $(,048<@DHLPTX\`dhlptx|Հ؈䤨谴LјJ 8彐.mĿ"Š>?( X֮ˍL հ˩($8` Ґh Hǹxhx N`8Ύ߽0|ϩHhHh ӈ ө ө ӘVYԦΝYԮߝꪽԦ ө  Ͱ()I يJJJ(jǩF؅G(  7ֈ k( F G  Xj0 Ю $Ӱ8 xH ߩ`Ǚx kh kL~ѩ@(LYLWҭH͍h (ͥpi)ͥˤ˹HH(x rh(`~Ȍ``hhh )hJ¥jJJhhihhhJi֍hhha [U8ſƅh)x h H('eƍ8ƅи ĘHH`ߠ ߮         00      F 00  F f 6 6                                  烃 ;0 p                         ?v|x?sv|8xxq89qsw= ?;88x0`o<<>x>pxp??ywpcy?sv|烃 3s{g5  x< 0;0 p?sv|?<8p81? 880pV2b<  0`?sv|@>|???<x0~``P@0@ ``@>|???<x0~``8`Ί aՍxՍՍՍե>?Ռ8T8ՌWuՌvՠ ýI꽌ɪ꽌ɭ蠪ϮәVE]ӾV]H)]ӾV]ԙ)]ӾT]ԙ)]ӦΨ 8$hU>`ȅSϭ߅83Iߐiϐ8 (ֹH 7֥ +ֹP 7 7)*Ȫ`FG8`0($ p,&"VU>)Q>jj``P@J I*I `\xDŽ XׅІ X?;78H<8H  et|8|}Ƅ`t et HHH> o>HBtCu\8t\]u]\Z][ 8\Z][Lѥ]H\HuHtHAH@H >  ` Yܠ0* )` r׮ ؎`(54#ƊgƈЪ 6`י ֙QRTW = Э*0 LqŐ`8Hh`HHH*0<]U)j7 [ )L3~ l )jjAUIL3ة0 $ڐ> L׈ \] z8Ƒ |5|8|}8\|ȥ]|8|ƍ8 ƍLoPQ |l|8|}8||ȥ}||8|}| iiL奌 㥎 㥊 㭭хх 㥐8ƑzLo` 8` ^\_]`hh L;hh L;ҠX rLq ?L;hxhyhthuhvhw07ȱxv0vȱv,vwLR vȱvvwLRHHLHHLHHvtȥwtL;hhh^h_hhhhL;hjhkhejjhekk_ ʑjkL^LjL;hhh|h}8Ɓzȱ{HHHH`HHHH{HzH  < @tu`wvtȩttituveztȱve{tȱvtȱvttituvivwз\R]S[ \l]m]|\ l\m]x RPR </\z FLLIEHJh**F`F$Lө ޽޾ HHHH`HHHHHH  < Ni iSHHHH "1#"! ! ""ˬ##ЕHHl>޽Р SYSTEM.PASCAL Insert boot disk with SYSTEM.PASCAL on it, then press RESET#usthL'hح/0 !"opqr)VV#$6| @$538>?????????< A]>0?????????A{?????AS |8~0>p?`}S???`q}q|||0LސLh)thh)htLީ lhvhwhthuEw0uwtv/1'u0+!hthuhthuHHLMhHHLMҩ%lHHLMhhh |~hve| z~~8|eztl8冨Lߤ 0 8`hh ߦt~LL'   UF_f^L#ޠ UhvhwhthuXY^LOޱtvtuvw_LްLL~hvhwv~`ޅvaޅwhthutbޅtcޅutvv ȱtvtv %l HHL;ҩHHL;ҢhtExx0tEtttx u|f}jtz) wzf{jv8vtw݅x݅yyHxHxyyHxHxu9݅xy9݅yyHxHxyt yHxHHviHLMҩHHLMҩHHL?? lXLLdeeƄL;ҥ8傅ń 8冪8冪ƂL;hh&eȹ|ȹ}f)1|)uf}|jjj)?tłetu9 fHHLMҦfHHLM @hhHHHHhzh{h|h}}Lݥ{)L8z|~{}Lݥ|)h |he|Ȅ~ Ȅtl ڦ|8|e| h9 0 ~ʚLM ڦ|| hI9~ʚLM |0| h~ʚLM҅ztzx{yxtezʥ|x}y~xF|}H|HLMҠX hh&ńL;0HxH{HzHezHHL.h|h}hzh{hxhyx~ȱx|80~~ iff~z ~=݅~=H~HLMhthuh|h}hzh{z ݅v%tt݅w%uu|80tuutvwwvi t&uv&whxhyx~ȱxvI%~t~wI%u~xȥxLMhhYLShhhihjhkXi&jhȑjL;ҠhhjL@ٱhjL;LѺtutLLMҠ Uhe^xhe_yxHxHL;Ҡ Uhe^he_HHL;hh Uѥ_ ^&L٥^_ ץhexheHxHL;ҠXXz{hh &hexhef"f fefd8de8&&`ffefd&&`hhhh ץIiIiHHLMhhhh ץHHLMhthuhvhwxyEw0wy)xv!y0uEy0yutxyLMLXYXXYYHXHLXYYHXHXXYeXXLMhthuhh8tuHHLMҩedff dedeeefefdff`hh0 hhL}hh"IiIiIiIi ץHHLMҺHHLBנdeLѥIiIi报IiIiƊ8冥凰 ` e L L M || xx VV RR M L L L L L L M o| o| o| o| o| o| M L L L L L L L L L L L L L L L L L L M zz vv rr ZZ VV RR M L L L L L L M o| o| o| o| o| o| M L L L L L L L L L L L L L M || xx VV RR pP~ qP~ rP~ sP tP MICROTEACHER, INC.MצEDU-WARE SERVICES, INC.$ צis strictly forbidden. jDp(TצWSSYSTEM  Íá01 esigned byMxצMARVIN ROSEN, EdD.Mh BENNIE LOWERYMXM. DAVID MERRILL, PHD.$HצALL RIGHTS RESERVED 1984$> Any reproduction of this program$4צdiskette without the expressed$*written permission ofM Ɓ-<ǿǺǺ #4:INKPEN ǖ   ,ǡצMICROTEACHER, INC. *ǟǨǟǨǫ*ǫ*ǟǶǪ Version 1.0ǶǠ Date 4/30/848Ljצ D&ǧ" ȡ! ǧǞ ȡ! ;ǝצTHE SCIENCE OF LEARNINGǝ =!ǚ ǿ Copyright[ iצ1984 MICROTEACHǿ(<<n  (ǎd ȡ! d ȡ! (^  آ 3\H)ǔ ǿ&ǧ" ȡ! ǧǞ ȡ! ;ǝצTHE SCIENCE OF LEARNINGǝ =!ǚ ǿ Copyright[ iצ1984 MICROTEACHER, INC.צ#Published by EDUWARE SERVICES, INC.[צAn MSA Company C `jxƁ-  #4:Logo.Font آ 3\H)ǔ ǿ&ǧ" ȡ! ǧǞ ȡ! ;ǝצTHE SCIENCE OF LEARNINGǝ =!ǚ ǿ Copyright[ iצ1984 MICROTEACHƁ- #4:Logo.Line 4Ɓ0بƁ0ʁ0ʁ1Ɓ4ʁ2ʁ3OhxƁ-  #4:Logo.Font آ 3\H)ǔ ǿSTARTXTPROSTARTUP.CODE6 ʪz|z6 5bU6 *,,#5:PROSTARTUP.CODEISK ̅(צ #5:PROSTARTUP.TEXT- %̅,ړצLis#5:PROSTARTUP.CODE]BOOT1:SYSTEM.SWAPDISK.צWSBOOTٓj * צWRITING SKILLS DISK*צMUST BE IN DRIVE1* *ǿcDצ #4:MEDIUM(צ#4:HUGE.INKPENȡDDD١4 GBB B^ tSTARTUP ERROR EDUWARE DRAWHELL uP vP wP xP~ ~mx lw lw kw kv jv צWSLESSON4צ 4퓡צTHIS IS NOT A LESSON DISK1GצPUT LESSON DISK IN DRIVE 1*3צPRESS [SPACEBAR] TO CONTINUE ˡ  áWSLESSONMAIND(<lUhVhWhh  * *jjWHVH`XVhhhhhhhhhhhLH HHHHHIZE < FBLKSIZE THEN ,BEGIN N := FBLKSIZE DIV FRECSIZE; .WHILE RECNUM-N >= 0 DO 0BEGIN RECNUM := RECNUM-N; 2BYTE := BYTE+N*FRECSIZE; 2WHILE BYTE > FBLKSIZE DO 4BEGIN BLOCK := BLOCK+1; 6BYTE := BYTE-FBLKSIZE 4END 0END ,END; *WHILE RECNUM > 0 DO ,LOCK,N: INTEGER; "BEGIN SYSCOM^.IORSLT := INOERROR; $IF F.FISOPEN THEN &WITH F,FHEADER DO (BEGIN BLOCK := 0; BYTE := FBLKSIZE; *IF (RECNUM < 0) OR NOT FSOFTBUF OR 2((DFKIND = TEXTFILE) AND (FRECSIZE = 1)) THEN ,GOTO 1; (*NO SEEK ALLOWED*) *IF FRECS ' "PROCEDURE FSEEK(VAR F: FIB; RECNUM: INTEGER); PROCEDURE FREADREAL(VAR F: FIB; VAR X: REAL); "PROCEDURE FWRITEREAL(VAR F: FIB; X: REAL; W, D: INTEGER);   IMPLEMENTATION $ "PROCEDURE FSEEK(*VAR F: FIB; RECNUM: INTEGER*); $LABEL 1; $VAR BYTE,Bext? ( ׯ,á(+( "ˡ$ Can't find ::9 ƀ:ײ9 ƀ:צSYSTEM.SWAPDISK&:(7,צ*SYSTEM.WRK.CODE[*]To what codتPš++0تPRš&+R+P&P0&Ršز&RPز&PR,VV"6h ssembleצCompile what text? ( ׯ,á(+( "ˡ$ Can't find ::9 ƀ:ײ9 ƀ:צSYSTEM.SWAPDISK&:(7,צ*SYSTEM.WRK.CODE[*]To what cod "PROCEDURE SETCHAIN(TYTLE:STRING); "PROCEDURE SETCVAL(VAL:STRING); "PROCEDURE GETCVAL(VAR VAL:STRING); "PROCEDURE SWAPON; "PROCEDURE SWAPOFF; "  IMPLEMENTATION E :::&:(xáצAssembleצCompile what tB GBGBBBBB  !CHAINSTUPASCALIOSHORTGRASHORTGRAAPPLESTUWS1STUFFWS1STUFFWSMACC WSCHAR WSCHAR  ~}|{zyxvtrpi/-+F r : T. E. DOUGHER * !* Requirements : TURTLEGRAPHICS, MEDIUM CHARSET * !* HHHH `` : Lɦɼ佌ɕ ɕ ɕ`iILeL`Liil?```PP@@ HHHH огH HHHHHHHHH IمL  R  RHHHH`LlHh & & &H HHHHHBEGIN RECNUM := RECNUM-1; .BYTE := BYTE+FRECSIZE; .WHILE BYTE > FBLKSIZE DO ' "PROCEDURE FSEEK(VAR F: FIB; RECNUM: INTEGER); PROCEDURE FREADREAL(VAR F: FIB; VAR X: REAL); "PROCEDURE FWRITEREAL(VAR F: FIB; X: REAL; W, D: INTEGER); ݢݣޢÄɡ3ڕġ$ڕšš"šޣ Ąޣ ݣ ˡRݣ &ݢ ݢݢ!ݣ "ˡݣ ˄ݢ!ۂ I L`#JI`'  I` I0ݩ(0/,",i8i#Hiihifi`i,i,3iPII4ifH8H hIiH h hL8Iif E J j 8TEM.CHARSETx @4` - G`` 8`*UH)JJh & & f)4#i JL` T$Q%P)QتP+,+,ȡ+ ++V 0  آآآǿآآǿآآ@ ٚ SYSTEM.CHARSETáSYSl    ڪP."ˡ[̄$ʄ$N.ʄ$M ń.ʄ$M  ʄ$̄$.ʄ$M .ʄ$M Y@'    4 ǯ?Ǭ?ǰ?Ǯ?ǩ? áǫ?Ǭ?0 ٢ؚ ڢؚڢٚ ۚܢښܢٚܢؚɡšܢɡܢǿšܢǿɡܢɡܢ E ENCOLOR(PENMODE: SCREENCOLOR); $PROCEDURE TEXTMODE; $PROCEDURE GRAFMODE; $PROCEDURE FILLSCREEN(FILLCOLOR: SCREENCOLOR); $PROCEDURE VIEWPORT(LEFT,RIGHT,BOTTOM,TOP: INTEGER); $FUNCTION TURTLEX: INTEGER; $FUNCTION TURTLEY: INTEGER; $FUNCTION SCREENBIT(X,Y: INTEGER): BOOLEAN; $PROCEDURE DRAWBLOCK(VAR SOURCE; ROWSIZE,XSKIP,YSKIP,WIDTH,HEIGHT, 8XSCREEN,YSCREEN,MODE: INTEGER); $PROCEDURE WCHAR(CH: CHAR); $PROCEDURE WSTRING(S: STRING); $PROCEDURE CHARTYPE(MODE: INTEGER); $ "IMPLEMENTATION DURE PENCOLOR(PENMODE: SCREENCOLOR); $PROCEDURE TEXTMODE; $PROCEDURE GRAFMODE; $PROCEDURE FILLSCREEN(FILLCOLOR: SCREENCOLOR); $PROCEDURE VIEWPORT(LEFT,RIGHT,BOTTOM,TOP: INTEGER); $FUNCTION TURTLEX: INTEGER; $FUNCTION TURTLEY: INTEGER; $FUNCTION S $TYPE $ SCREENCOLOR=(none,white,black,reverse,radar, 3black1,green,violet,white1,black2,orange,blue,white2); & &FONT=PACKED ARRAY[0..127,0..7] OF 0..255; $ $VAR 'FONTPTR:^FONT; $ $PROCEDURE INITTURTLE; $PROCEDURE MOVETO(X,Y: INTEGER); $PROCE$ $ ݞ$' ݑ$ $݂ō $݂ġ ݂$ $ $ȡ%  0 ފ$čV   .ˡ:  Eɡ  -ݑ š 0 0 ߿`ġ(   ݂. ݕ ؂݂3  ݕ 0 . ݑ0 ݕ݂ ؂ ɡ  |, R -   $ $ ݞ$' ݑ$ $݂ō $݂ġ ݂$ $ $ȡ%  0 ފ$čV   .ˡ:  E.áBڲzؼ0ݞ$ڲzjeEÍɍEáޢ >ۓɡ ؼ݀$ ؼݞ$ۡܡ ؼ$ Dɍ -   "ˡ\ݣ ݣ šݢ ݣ ݢݣݣ ݣ ݣݣńݢݣݢݢݢˡݢݢ ۚݢܚ  / |á +-Í-ڲzؼ 0  e e  `(J 8 e  ` Z Z< $ %$PQ $  ߩ $ Li`t^cY}zeNEDh0h1hhhhh.h/h,h-h*h+h(h)(ȱ(*ȱ*,ȱ,.ȱ. HH1H0H(ȹ(*ȹ*,ȹ,.ȹ.`   ""##  )`%)8`)     "USES SHORTGRAPHICS, APPLESTUFF; " "CONST $FIRSTLESSON = 1; $LASTLESSON = 10; $MAXLEN = 31; $MAXLIN = 80;   { ASCII Code Constants } $ $BELL = 7; $NAK = 21; $ESC = 27; $CR = 13; $LF $hhhhhh9.:.;.<0(0(099JH;HHH`Z310/$ T?@AB ?UB`2<(^`L+L10`LELK뭕 JF8ȹe8ИL`Lø{{ttmnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# !hhhhhhh)hpdHHHH`4hhhhhhhi)hH`HHH`0hhhJhh)*XhHH`"hhhhhhH! \L HHH`<hhhhhhHHLM0ON: INTEGER); $ "IMPLEMENTATION E .CODESKSWAPDISKҎԎ,nr r nrnʤr LIT^n6 6 \^^\n6 r DLITURAS P $ $FUNCTION PADDLE(SELECT: INTEGER): INTEGER; $FUNCTION BUTTON(SELECT: INTEGER): BOOLEAN; $PROCEDURE TTLOUT(SELECT: INTEGER; DATA: BOOLEAN); $FUNCTION KEYPRESS: BOOLEAN; $FUNCTION RANDOM: INTEGER; $PROCEDURE RANDOMIZE; $PROCEDURE NOTE(PITCH,DURATIT p |  TURTLE.CODEODE PITURTLE.TEXT{d PITURTLE.CODEmd PRESHORT.CODEFɢ STURTLE.CODEm SHORT.TEXTXT{ɢjfjfj+*fjfjfj8 8) )` (J(F ((Lee Lw  )L6I1L6)QL6        xhXOF=2 6 j > @6  # " `' & 8 ! 0"ee8 !  e e8"#0 88$ % 0"ee8$ %  e e8&'0 8e*e+)*)f [B  ""##8&$iT8&UU ! U"# UT`+%$Y)!p JhhhhhhhhhhH8 )%HHH`5>hhh)hh h h h hhhhhhhhhhhhHH J "  ` ` `SN-(' . hhhhhhHH `  [HH8H8 hhhL.+ rhh heheheheHHLh< L)ˢ   â LE % %  )  `8`&e epɀj f f&e e pɀjff %) % )`% L=`0(%$ $ @' &    0&!"   # = 14; $BS = 8; % "TYPE %  (*------------------- STUDENT RECORD STRUCTURE ------------------*) % $NAMESTRING = string[10]; {THE STUDENTS NAME} $LESSONRANGE = FIRSTLESSON..LASTLESSON; {NUMBER OF LESSONS} $LESSONSTATUS= (STUDY, OKAY,PERFECT,REVIEW, MASTERY);{FOR EACH STUDENT} $CONTROL = (NEWSTU,PR,TT,PT,RE); {USED TO DETERMINE MENU} $LESSARRAY = PACKED ARRAY[LESSONRANGE] OF LESSONSTATUS; {ERROR FLAGS} $ $STUREC = packed record   "USES SHORTGRAPHICS; ' "TYPE - $CharSet = Packed Array[0..127,0..7] of 0..255; $CharPtr = ^CharSet; + "VAR -  { Note that the standard will be used as the System.Charset } - $AlterSet : CharPtr; { Holds Alternate charsetỲ̀ʀʀȡÀM̀ʀʀȡM̀ʀ̀ʀ̀Y  YY  Y Yá0ʀá ̀ʀ̀ʀ:ˡ ʀ̀MYá,ʀ̀ʀ:ˡ ʀ̀ʀá̀Z PZZˡ0PY á Nt+-' F_    @ɡ @  !*0RT:ˡ2̀ƀPƀצ QƀPʀʀ̀ ̀̀ʀʀȡ  ʀ̀ Ỳ̀ʀʀȡÀM̀ʀʀȡM̀ʀ̀ʀ̀Y  YY  Y Yá0ʀá ̀ʀ̀ʀ:ˡ ʀ̀MYá,ʀ̀ʀ:ˡ ʀ̀ʀá̀Z̀ƀצ ƁƁƀצ: ƀPZZ̀ƀPƀZǠƀPئתPʀ̀ʀ:ˡ2̀ƀPƀצ QƀPʀʀ̀ ̀̀ʀʀȡ  ʀ̀ W .=W b0ݪPܪP̀ʀ:ˡ ʀ̀ʀ̀Z PZZʀZ̀ƀZPƀ QƀPʀ̀ʀš̀ʀʀáZZ:ZP0ׯ ̀0̀ƀצ:ƀ0Qƀצ:Rƀ   *2ء  ˶  ö 4 Prȡ ڂە.۪PڪPW4:.š.צ:..=SK_IN(VOL , ID : STRING) : BOOLEAN; PROCEDURE CHOICE(CURRENT , ANSWERS : STRING ; X , Y , LEN : INTEGER ; 3VAR CHOSEN : STRING);   IMPLEMENTATION E UREC; {HOLDS MOST CURRENT STUDENT}  BUFFER : BUFPTR; { This one is only 2.5K buffer } " "PROCEDURE FLUSHREAD(VAR CH : CHAR); "PROCEDURE READSPACE(FLUSH : BOOLEAN); "PROCEDURE PAUSE(SECONDS : INTEGER); "FUNCTION RAND(LOW , HIGH : INTEGER) : INTEGER; "FUNCTION IS_DI$PICS = PACKED ARRAY[1..30,1..30] OF BOOLEAN; $INPUTSET = SET OF CHAR; {THIS IS USED FOR USE WITH THE ACCEPT PROCEDURE} $ "VAR " $CURRENTREC : STUREC; {HOLDS MOST CURRENT STUDENT} = ^BUFTYPE; $BUFTYPE = PACKED RECORD 4CASE BOOLEAN OF 6TRUE : (TUT : TUTYPE); 6FALSE : (EDT : EDTYPE); 3END; { 2.5K buffer } $ $HUGETYPE = PACKED ARRAY[1..60,1..60] OF BOOLEAN; $MEDTYPE = PACKED ARRAY[1..16,1..16] OF BOOLEAN; ENT : packed array[TABLERANGE] of STUREC; 3END;   (*--------------------- FOR USE TO POINT INTO BUFFERS ----------------*) $ $TUTYPE = PACKED ARRAY[1..2560] OF CHAR; $EDTYPE = PACKED ARRAY[1..MAXLIN] OF STRING[MAXLEN]; $ $BUFPTR 5NAME : NAMESTRING; 5TOPIC : STRING[3]; 5STUSTATUS : CONTROL; 5LESSON : LESSARRAY;{KEEPS TRACK OF EACH QERROR} 3END; 5 $TABLERANGE = 0..40; {NUMBER OF STUDENTS} $TABLETYPE = packed record 4COUNT : TABLERANGE; 4STUD--)vPINTEGER vREAL $|CHAR 6BOOLEAN BSTRING ,TEXT INTERACTLINPUT xOUTPUT fbKEYBOARDFALSE } $ --)vPINTEGER vREAL $|CHAR 6BOOLEAN BSTRING ,TEXT INTERACTLINPUT xOUTPUT fbKEYBOARDFALSE `TRUE vxNIL MAXINT Xv     N0b0۪PڪP0Nˡ^צ&Ä צ^˦&Ä ^צ&˄צ^˦&˄á $8Vz&Pצ^ RJ Y&ײPצ& צ&áYP ~R*Sצ&SP&ײPN0*Y0ˡz++ +0Q+צ R+P+Y+ +YY+  #%x YP 2 Y^ײ ˡئ  á. 6 ȡCڳ PJZZ 0  ;0 40 -AS&! + "$2T0YPPPPQPPá  áPPPPPPP ˡP & צ áצ ˡ  צ ˡצ á*RvV ~צ ɶOń OO      R תPO á%? ?Ná? ?&? ? ȡ)ڡ  ڡ  dP x š  OO     ء z$LIBT1XT WSMACC.CODEz6 ʪz|z6 5b6 *,,#5:WSMACC.CODEWAPDISK #5:WSMACC.TEXT#5:WSMACC.CODEDE[*]BOOT1:SYSTEM.SWAPDISK #USES SHORTGRAPHICS, APPLESTUFF, WS1STUFF; # # #PROCEDURE ACCEPT(VAR STRNG : STRING; MODE,MAXLENGTH : INTEGER; 4INSET:INPUTSET); #FUNCTION MATCH (EDIT,OPTION : CHAR; RESPONSE, ANSWER : STRING):BOOLEAN; # #  IMPLEMENTATION E 6 r   V( READLN WRITE nWRITELN EOF EOLN JPRED RSUCC ORD  SQR  ABS ~ NE٤ ٪P././ȡ... V6ء:ǿǻǻǺǿ`٪P  ǿR, E READ |READLN WRITE nWRITELN EOF EOLN JPRED RSUCC ORD  SQR  ABS ~ NE"Procedure OurWCHAR(X , Y : Integer ; CH : Char ; Mode : Integer); "Procedure OurWString(X , Y : Integer ; Line : String ; Mode : Integer); "Procedure Learn_Cntrl(ST : String ; X : Integer); "Procedure Gr_Page(Full : Boolean);   IMPLEMENTATION READ |READLN WRITE nWRITELN EOF EOLN JPRED RSUCC ORD  SQR  ABS ~ NEPצ^ RJ Y&ײPצ& צ&áYP ~R*Sצ&SP&ײPN0*