`L i=L\Ʃx ? N'i  ͭЅ?0ȱ Ѕ?iȱi lԠԠ͠ԠϠŠͮŠ SYSTEM.APPLE   L$J---š,ERROR: SLOT OVERFLOW-ڂ -r.ȡ쥆d d á.d á ǀǀd åd Ä DŽDŽȡ*BpCONFIGME x{SLIDESHOW.CODEg{ GRAPHICS.TEXTvg GRAPHICS.CODEvg PSEUDO.CODEvg蠆PSEUDO.CODEvgSATURN  SYSTEM.ATTACHvgbATTACH.DRIVERSg4 ATTACH.DATAvg PARAM.DATA=vg4$ FASTCOPY.CODEvg$,FILEMARKER.CODE,2FILEMOVER.CODEg2r SLIDES.DATAvgrxSLIDESHOW.TEXTg&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xH&x'8*7Ixix&&  ') + &п x) ++`FG8`0($ p,&") (jJJ>L+ "?I>  N `  ` x V Nx .x- z `V0^*^*>` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&Іd á ǀǃ؂d á7ȡ,d á ǀNj؂ "W(Ɓ-צ*ATTACH.DRIVERS))R dP..ȡ ۛ0XFADDRESS SPACE OVERFLOW6۪P..10ڂ.0Ä..08TP/ *PARAM.DATA"ábƁ-צ*ATTACH.DRIVERSP bץ/[ -     צ" ATTACH.DRIVERS AND EXITצ <4> EXITצOPTION: Z TYPE TO CONTINUE bb lETH ROE' COPYRIGHT 1982, SATURN SYSTEMS INCצ <1> LOOK AT CONFIGURATIONצ <2> CHANGE CONFIGURATION <3> PUT CONFIGURATION IN MODIFY PARAMETERS <3> EXITצOPTION:     APPLE PASCAL PSEUDO DISK COPYRIGHT 1982, KENNFY DIRECTORY BLOCK COUNT <2> EXITOPTION: .NEW DIRECTORY BLOCK COUNT?  5  צ <1> MODIFY SLOT CONTENTSצ <2>צ<3> 32K RAMCARD <6> EMPTYצ WHAT KIND? ed hd Wd Fd 5d $d خ  m^O@1"r  צ# <1> MODI ?  d d ٮ   WHICH SLOT?  #<1> LANGUAGE CARD <4> 64K RAMCARDצ$<2> 16K RAMCARD <5> 128K RAMCARD[RESERVED FOR PASCALצPRESS TO CONTINUEצ% DO YOU WANT TO USE THE ENTIRE CARD?  )ȡd ȡٮ ڂDO YOU WISH TO USE BANK ////ȡ"/d //4ȡd ٮ  ád ٮ  š0BANK 1 RESERVED FOR PASCALخ (----------------------------------------'Y=USED N=NOT USED P=RESERVED FOR PASCALצ(---------------------------------------- /*PARAM.DATA[1]//צ(---------------------------------------- צ(----------------------------------------צ#SLOT BANK SLOT BANK% 12345678 12345678ȡ 64 ٢ b128 ٢ JLANG ٢ 2  &t^H  צ DIR BLKS:  8  ! APPLE PASCAL PSEUDO DISKצNO` h ب  ȡS0P3Y'N 9/% [ n   d 32 ٢ 16 ٢ z/ë////ȡ/d / /  ȡ4d ȡۢ<% @YYáYES - .-.Ǎǹ-ȡN  /bZ p  2~`^( -     hhHH`8hhhhhhh h hhȱLC8 ȥ  e ȱ e 8iiHHHH`Jt,40<v^b(-(A needed driver is not in ATTACH.DRIVERSYrc |צ00EE B00EA Gצ00E8 /07L^ȡ  ɡ؞&s&&4Y  Yf8hhhhhhhhGU /@8Y[<>PJLFHJL579;=?ACEGIKMOQSةY  Y eٓYyؤ ١-(A needed driver is not in ATTACH.DRIVERS ȡإYˡצreading driver,!6 d <ȡةYعQ+~ ( .v4nB  00EE BB00E2 B!00EA Gצ00E8 /0 Y ˡY ˡ  4 Yš.,A  IN HEX CHAR--..rZ ڨ铡 VS!4 ٪P,,T تP,,T بġ!4 6SS012345678 9 A B C DEF<Jۨڨš+áġR٪P-././ġh-,,.,04,~TTACH.DATAȡ Y ATTACH.DATA"ˡ(צ#ATTACH.DATA needed by SYSTEM.ATTACHATTACH.DRIVERS"ˡ+&ATTACH.DRIVERS needed by SYSTEM.ATTACHYˡ1צ,Reading segment dictionary of ATTACH.DRIVERتPצERROR =>RETURN to exit SYSTEM.ATTACH:R`Y Yآ آ V6000תSצ6000Nآ V4000תSצ6000+V2000תآ Sצ4000 S6000תצNo records in APRINTU PSUBDR =RREAD RINIT REMIU RELOCATE REMOU RWRITE RSTAT 4SYSTU UD128U  UD129U UD130U UD131U UD132U UD133U Ɓ\ƂƁ\ 6U UD137U UD138U UD139U UD140U UD141U UD142U UD143U UDJVM1 /UDRWI :UNDEFU WRITEBIO  PSTAT .G$PASCALSYSYSATCH  - .-.Ǎǹ-ȡN  Yrc |צ00EE B00EA Gצ00E8 /07L^ȡ  ɡ؞&s&&4Y  Yj8>x8^< | DISK تPR &(----------------------------------------צ( SATURN SYSTEMS = FAST-LOAD UTILITY ( * * * * * * * צ( (c) CUSTOM DATA SYSTEMS, MADISON, WI (-----------------B5COPYRIGHT (C) 1982 BY JOHN P. DUBOIS, MADISON, WI. zFASTCOPY CONFIGME CONFIGME CONFIGME DISK DISK DISK   !"#$%&()*+,-.012345689:;<=>@ABDDEFHIJKLMNPQRUUUVXYZ[\]^`abffffhijklmnpqrwwwwxyz{|}~ccccccccKFA<;tcVD ymgA=*  Ѕ  ЙԈșeOHHHH@HHHHHH ,Э@йAѹBҹCӈ嬬LPSEUDOJhhh h        L   < L3 ǝLJJJ  )JJJJJJJJJJJ eJJJJ)y)?` HH`ȹLL$LeMhhLLLCLCLhhhh h h h h hh8 *L <L   < L ƝL < GApple 1.1-----------------------   š N$ V)ɡƁ- & *DUMMY.DATA" á\ צPLACE BOOT DISK IN DRIVE #4 צPRESS ANY KEY TO EXIT PROGRAM P ء  ENTER SOURCE DRIVE NUMBER > < 2á1á/ צ1  á - (# 19 POINTER UP צRIGHT ARROW MOVES POINTER DOWN צ QUITS FROM PROGRAM(----------------------------------------צ( MARKS FILES FOR FILE-MOVER UTILITY (----------------------------------------צ!PRESS TO SEE MENU SC( * * * * * * * צ( (c) CUSTOM DATA SYSTEMS, MADISON, WI (----------------------------------------צINSTRUCTIONS FOR USE:צ--------------------  צ TOGGLES FILE STATUS צLEFT ARROW MOVES FILES MARKED FROM SOURCE:  צBE SURE BOOT VOLUME IS ON-LINE zZ8 צPRESS ANY KEY TO EXIT PROGRAM)H8K  &(----------------------------------------צ( SATURN SYSTEMS PSEUDO-DISK LOADER šɡצ *DUMMY.DATA" Íá F &ع צSOURCE VOLUME IS OFF-LINE צPSEUDO IS NOT INSTALLED צSOURCE DIRECTORY IS EMPTY^ צNO    š N$ VتPRܪPצ (Y/N) @@//y/YÍT f %B5COPYRIGHT (C) 1982 JOHN P. DUBOIS, MADISON, WI. 8 FILEMARK MRRš R š!.6 V8 š؂ؕȡ!6 P MQQȡM MQQQQɡ<MQQȡ0MRRRńRצMQQQؚQ[ "" @"2NT ONTINUE..... RRáH!SOURCE VOLUME IS EMPTY...PRESS ANY KEY TO CONTINUEMRRš R š!.6 V8 š؂ؕȡ!6 P MQQȡM MQQQQɡ<MQQȡ0MRRRńRצ!MRR"ˡt!צ) ERROR IN READING SOURCE VOLUME צ) PRESS ANY KEY TO CONTINUE..... RRáH!SOURCE VOLUME IS EMPTY...PRESS ANY KEY TO CONTINUEM MRR"ˡ^!צERROR IN READING TARGET VOLUMEPRESS ANY KEY TO CONTINUE.....RR SSצOVERWRITE CONTENTS OF SS? (Y/N) %S@@@@ D)OWNLOAD PSEUDO-DISK Q)UIT ( ) CHOICE ""    צPLACE TRANSFER DISK ON-LINE צPRESS ANY KEY TO BEGIN COPY MRRȡ   צENTER TARGET DRIVE NUMBER > < 2á1á/ צ1  á - (# 19       U)PLOAD PSEUDO-DISKREENr (צ(----------------------------------------(( SOURCE # FILES BLKS TARGET BLKS-AVAIL(צ(------- ------- ---- ------- ----------(   >>  צ <<(צ(----------------------------------------((----------------------------------------(צ(INDICATOR AT FILE # 1 --- MARKED? NO ((----------------------------------------+צPRESS FOR INSTRUCTIONS ȡ7VE. PRESS ANY KEY TO CONTINUE )A á$  Ɓ62Ɓ^0 ZZȡ쥁>L [[ *á2\\צPSEUDO:\[\" á[[   \\\:TO EXIT PROGRAM*)A  @ צ READING DATA.ȡ(؂ .>L צ :DUMMY.DATA" áz  צINSERT צ IN ANY DRIPLACE BOOT DISK IN DRIVE #4 צPRESS ANY KEY TO EXIT PROGRAM)A צ *STARTUP.CODE"á*STARTUP<צFILEMARKER.DATA"ˡj LIST OF FILES NOT FOUND ON DISK *PRESS ANY KEY -----------------------צPSEUDO:DUMMY.DATA" áp צ*** PSEUDO NOT INSTALLED *** צPRESS ANY KEY TO EXIT PROGRAM)A á & *DUMMY.DATA" á` צتPR &(----------------------------------------צ( SATURN SYSTEMS - FILEMOVER UTILITY ( * * * * * * * צ( (c) CUSTOM DATA SYSTEMS, MADISON, WI (-----------------B5COPYRIGHT (C) 1982 JOHN P. DUBOIS, MADISON, WI. NFILEMOVE  *2L8   2 J &<! 0H)H4á  \S MTTȡM MTT"ˡ  TT á   ȡMTTšpTɡ!TUUTUצ UFL TFL TTTTFL -MT T"PSEUDOTÞ"ÄTT TTT   S!cVjץ<   D צENTER SOURCE DRIVE [4..5] > <! 0H)H4á  \S MTTȡM MTT"ˡ  TT á   ȡMTTšpTEATE FILE) á :FILEMARKER.DATA"ˡ I צWRITING.ȡ2 .FL As ,צPSEUDO:DUMMY.DATA" ˡ   áL -á Kצ NO KצYESá     ȡ( CREATE DATA FILE?*  ⓡ $IT: r&:FILEMARKER.DATA" á INSERT PROGRAM DISK IN ANY DRIVE צPRESS TO CR  7    צ->ۗڗٗؗá. ˄ ݕ á.צ Ȅ ݂ ; áá Fȡ@ 7ڂFL ݣ ݣ In |  FL *áBFL -7ق-FL J QFL ġ@FL *7ق*FL J\[\"2\\PSEUDO:\[\"Ä "á2"ˍd  ERROR IN COPYING FILE ******* PRESS ANY KEY TO EXIT PROGRAM  ---> PSEUDO:[ 2@ á/---> NOT FOUND ON SOURCE DISK2 2!e?4MYYȡ M  MY YMYYȡ MZZצSYSTEM.ZÄ @@ @@~ ~@@ Plott"OW@O@@ A$@Dst effic@@|@ @ @ צ    !@  @@@Non-para!@ @x @ 1) Cros!!@@D"@@@onצ\>8:@@@BD(, (bb!11EXX(EEa field@@$ tics @ @@@ @@@``@ng@P@HND@@  A$@D T0@A@ @ @cords@ @a@>@@@צ---| @! @Batch fl$@@($@@@s  ?@@@@B ((0BB !!!FPP0atafile @@@ ~ @ @@ @<@7@@POQD@@  A@--------@A@@ @@@@@z @!@>  @@($@@@@ZצPASCALáZצEDITORáZצFILERáZLINKERáZCOMPILERáZASSMBLERáZSTARTUPáZ١ MY Y!&Yj %4  ,~6<r"( 2 2!e?4MYYȡ M  MY YMYYȡ MZZצSYSTEM.ZÄZצPASCALáZצEDITORáZצFILERáZLINKERáZCOMPILERáZASSMBLERáZSTARTUPáZ١ MY Y!&Yj bDF@@ B4&+ $ZZpSU--DVV `45ts - Mul@@ @?.!>sis @T @@  @nu!*#!#!#!!!"# !@@D"@T@@:-6?5@@@GN@T@  A!@e regresA#@@ Bata/resi@@@ @@| ( $' ) @H )) @@ @@ @@@@mparativ!@T@(@|@@@rsions*.. .@DB@T@ @portions~\808@T Dx`OG <<`ccx}yx! P@ @!@"1. @@@@T  @@@ N) DaA-@@ B @APE> ? -@@ @ @ @Statu (@g(H `Oa/@HA! @@? @ @@ 0@ records!@T@(@@  @ records*$1." @DB@T@@totalbHD@T@ D ( BB!!!DPP SCAPE> ?@@@?"!1 4h@@@T  @@@tQBEA 1`@@ A @"3$3@@ @@@ @D ndh( `(!( @H@agH@D @@ @rd 0)No @T (@x@  @?*#?!?1?"?@D"@T@@t R)edoBD@T@ B @ah~FF44!##DQQ   accept @@@"1!er field@@8 @ @@@NS vA!!@@@ A?|(צ!WAR @ @@@ @ accept  G#'G@'GGcGG g `Gc'(@D @@@@T@DLoading @ !@.. histogra?@8@(@@@@@idual fi@|DB@8@ @ "$@@!$$"! @ 8 ! ? # P!@@<@("!!!!!!#!!"PD` "P#@ ! " Ԫժժժժժժժժժժժժժժժժ!! P> (@!B ?>>???!>"@PD@#"P@-. ""(!@@8@D @~@"@@@\HQD@@ @  A @צ 10>!~@@|@@Bx@GG <<@cc xxxצ R)e@<?@@ @@:MENU @'@+ h@'@G FG G@F & @ @@ @@n openin @N>>0 @ 8"!!!%!! !( % @(  !!e regres#!@@ ata/resi!1#!""@>@|!( !!mparativ!P rsions!"""P portions `O<~8! P@!!@"!!!!!!((? N) Da- ` APE> ? -!.>> `! PStatu    records!@ records1"""?@@ total8 @PBDSCAPE> ? @" !  !1! 4h@   1(@"3$3!@P!@(( ()""?"!#` p(P@P? B ( "9!)!`E. ! Ԫժժժժժժժժժժժժժժժժ@(@T  @LoadingP! P?!?!?!?histogra>>@idual fi!"".( T@x`@* pT xP |~xT @(@ q(@ `   @doP|(@pT*U*UL@", (bb 11 ( ( (BBB$F$DBBBBD$B (U`U* >|x`0  `<@*@psqqP asGP*pqqq`c( ((00 #(  |*U*`#(0BB !!@  @gogG@s<<<|BD<8<~<>~8~>$<x pP pU*@*@x hP @*T0a q@ `@ 8ժժժժժժժժժժժժժժՂ (H$HP @ #(| PP"@@ 1צ 10!!P(@G8<|}צ R)e ?1?""  ?P:MENU! @!n openin~*U 4"+ $ZZ--xij|  (BBJBDBBD~@ `'cG @$(acaPP@<@  x0p?T pe regres U*ata/resix@ @xijT0PT |@8agP*> Umparativ  `Gdo   rsions |(@portionsժժժժժժժժժժժժժժՂ`C@OG <<>pqq! P`sw|P ( $BBBBBBBBB"D$B `@U*pp|` N) Da p*0APE> ? -P@P @ pStatuP@ p@P* records2( (((4@@#((@ records 0@ atotal0"( BB!!! SCAPE> ?ժժժժժժժժժժժժժժՂ( "B@BbB@@BD~@ 4h*`U*(x U`P"3$3` *|@*xx@*(`Aij (H$@SxT #( x@0(@PP4bh~FF!##z@gcgacB<~R~8<<B>D$8x@8`T*p (p~pժժժժժժժժժժժժժժa@`qq@ `csT8ag 0U8P ժժժժժժժժժժժժժժa$Loadingx@ @g/(<<<BBB~<8<$<histograpysq  B$(ac(@idual fi(P@   U*P  U* U*)Ԫժժժժժժժժժժժժժժժժ~@FKHK+@ @@ U*@Ш@(@" BH@ @~!!ԪժժժժժժժժժժժժժժժժRJ U*@~!U*-@m* U*BH"Db"b UPLH D@ U* H `@ ~ U*ժ%?Ԫժժժժժժժժժժժժժժժժ08p8 yxpp`| )D(,$ @@ U*@ @h/BBHH@@@?Ԫժժժժժժժժժժժժժժժժ [ZժP~-ժI`o U*@ U* |1Ԫժժժժժժժժժժժժժժժժ`VJ U*@~ |0 !U*%@%* U* U*e regresժ>>\:\ Uj@ata/resi@@P@U*|@ @~mparativ!U* U*zrsionsH@ !@| @ `GcGK#G @ U*@)Հportionsժ(pp@! P4% U* H U* U* N) Da U*B@@ U*@APE> ? -` @@ժՀStatu@@~ records#ԪժժժժժժժժժժժժժժժժPU* U*z records9t08|xx!p|xB @( U*%@5+total U*~ @ SCAPE> ? E U* | 4h  U* U*x<@@ U* P"3$3!!@@@( @~-ժժժժժժժժժժժժժժժժժ@Tj U*@~!<@@ U*%@5Հ U*$@`4=|%ժ< <Hx U* U* U* Ԫժժժժժժժժժժժժժժժժ@P @ժՀ`GG Gh@ @~ U*::8:| Loading%4} U*p|}}Hxhistogra4U* U*zidual fiHx x| x0@D( d( @ U*@! END.  CONTROLS TIME OF DISPLAY *) (END; $UNTIL KEYPRESS; $ $TEXTMODE; $PAGE(OUTPUT); WRITE(CHR(7)); UNITCLEAR(2); $WRITELN('PRESS TO END THE SHOW...'); $WRITELN; $WRITELN('ANY OTHER KEY TO CONTINUE SHOW'); $READ(CH); " "UNTIL CH = CHR(27); " "WRITELN('PRESS A KEY TO START THE SHOW'); "GOTOXY(41,0); "READ(CH); "UNITCLEAR(2); " "REPEAT $ $GRAFMODE; $REPEAT &J := 6; &FOR IO := 1 TO 4 DO (BEGIN *UNITREAD(10,HIRES.PTRPART^,8192,J); *J := J+16; *FOR I := 1 TO 2500 DO; (* DELAY LOOP -"INITTURTLE; "RESET(F,'#5:SLIDES.DATA'); "J := 6; "HIRES.INTPART := HIRESP1; "REPEAT $IO := BLOCKREAD(F,HIRES.PTRPART^,16); $UNITWRITE(10,HIRES.PTRPART^,8192,J); " J := J+IO "UNTIL EOF(F); "CLOSE(F); " "TEXTMODE; "PAGE(OUTPUT); (* MAIN PROGRAM *)  "PAGE(OUTPUT); "WRITELN('SLIDE DATA WILL OVERWRITE PSEUDO...'); "WRITELN; "WRITELN('PRESS ANY KEY TO LOAD SLIDES'); "WRITELN('PRESS TO EXIT PROGRAM '); "GOTOXY(41,0); "READ(CH); "IF CH = CHR(27) THEN EXIT(PROGRAM); " (* A NEAT WAY TO POINT AT THE *) 0TRUE: (INTPART: INTEGER); (* STARTING MEMORY ADDRESS OF *) 0FALSE: (PTRPART: ^INTEGER); (* THE GRAPHICS SCREEN IN USE *) .END; (******************************) & &F : FILE; +  BEGIN (*$S+*)  PROGRAM SLIDESHOW;   USES TURTLEGRAPHICS,APPLESTUFF;   CONST HIRESP1 = 8192; (* STARTING ADDRESS OF HIRES PAGE 1 *) &  VAR IO,I,J: INTEGER; &CH : CHAR; M(******************************) $ HIRES : RECORD CASE BOOLEAN OF O^垃 U*FFDF  m2 U*"@ U* U*צ 10 U*`< Db FbJ@@`@צ R)e@H'CcgG @@@U*:MENU@(~n openinSLIDESHO "CLOSE(F,LOCK); (* FINISH UP AND CLOSE INPUT FILE *) "  END; (* LOADGRAF *)   (*************************************)  (* THIS PROCEDURE SAVES THE CONTENTS *)  (* OF A GRAPHICS PAGE TO DISK *)  (******************** *)  "HIRES.INTPART := HIRESP1; (* POINTS AT STARTING PLACE TO LOAD GRAPH *) "RESET(F,FILENAME); (* OPENS FILE THAT CONTAINS GRAPH WE WANT *) "IO:=BLOCKREAD(F,HIRES.PTRPART^,16); (* READ GRAPH FROM DISK *) *************************)  (* THIS PROCEDURE LOADS THE CONTENTS *)  (* OF A GRAPHICS PAGE FROM DISK *)  (*************************************)  PROCEDURE LOADGRAF (FILENAME : STRING);   VAR IO : INTEGER; $F : FILE; $  BEGIN (* LOADGRAFOF (* A NEAT WAY TO POINT AT THE *) 0TRUE: (INTPART: INTEGER); (* STARTING MEMORY ADDRESS OF *) 0FALSE: (PTRPART: ^INTEGER); (* THE GRAPHICS SCREEN IN USE *) .END; (******************************) +  (************ (*$S+*)  PROGRAM GRAPHICS;   USES TURTLEGRAPHICS,APPLESTUFF;   CONST HIRESP1 = 8192; (* STARTING ADDRESS OF HIRES PAGE 1 *) &  VAR DELAY, &P0,P1 : INTEGER;  &CH : CHAR; M(******************************) $ HIRES : RECORD CASE BOOLEAN O^垃 삫  PRESS A KEY TO START THE SHOW)& 00ȡ+  11ȡ &צPRESS TO END THE SHOW...צANY OTHER KEY TO CONTINUE SHOWá r^0צPRESS TO EXIT PROGRAM )áצ#5:SLIDES.DATA  삫  PRESS A KEY TO START THE SHOW)& 00ȡ+  11ȡ &צPRESS TO END THE SHOW...4 #SLIDE DATA WILL OVERWRITE PSEUDO...צPRESS ANY KEY TO LOAD SLIDESצPRESS TO EXIT PROGRAM )áצ#5:SLIDES.DATA Bp*****************) PROCEDURE SAVEGRAF (FILENAME : STRING);   VAR IO : INTEGER; $F : FILE; $  BEGIN (* SAVEGRAF *)  "HIRES.INTPART := HIRESP1; "REWRITE(F,FILENAME); (* OPEN NEW FILE TO STORE GRAPH *) "IO:=BLOCKWRITE(F,HIRES.PTRPART^,16); (* WRITE GRAPH TO DISK *) "CLOSE(F,LOCK); "  END; (* SAVEGRAF *)   (*************************************)  (* THIS PROCEDURE ALLOWS YOU TO *)  (* DRAW FREESTYLE ON THE HIRES *)  (* SCREEN AS LONG AS YOU HOLD---š,ERROR: SLOT OVERFLOW-ڂ -r.ȡ쥆d d á.d á ǀǀd åd Ä DŽDŽȡ*BpCONFIGME wB.oצPSEUDO:MYGRAF.DATA  'PRESS ANY KEY TO LOAD AND DISPLAY GRAPHצ%WHEN FINISHED - PRESS ANY KEY TO EXIT) צPSEUDO:MYGRAF.DATA  ! , JتP,ƁX ,,+,, Jȡ-ȡwB.oצPSEUDO:MYGRAF.DATA  'PRESS ANY KEY TO LOAD AND DISPLAY GRAPHצ%WHEN FINISHED - PRESS ANY KEY TO EXIT) צPSEUDO:MYGRAF.DATAتP,ƁX ,,+,, JتP,ƁX ,,+,, Jȡ-ȡBp:GRAPHICS PH'); "WRITELN; "WRITELN('WHEN FINISHED - PRESS ANY KEY TO EXIT'); "GOTOXY(41,0); "READ(CH); "GRAFMODE; "LOADGRAF('PSEUDO:MYGRAF.DATA'); "READ(CH) "  END.    ADDLE(1); (PENCOLOR(WHITE); (MOVETO(P0,P1) &END & "UNTIL BUTTON(0) "  END;    BEGIN (* MAIN PROGRAM *)  "DRAW; "SAVEGRAF('PSEUDO:MYGRAF.DATA'); "TEXTMODE; FILLSCREEN(BLACK); "PAGE(OUTPUT); "WRITELN('PRESS ANY KEY TO LOAD AND DISPLAY GRA"INITTURTLE; " "REPEAT $ $P0 := PADDLE(0); $FOR DELAY := 0 TO 3 DO; $P1 := PADDLE(1); $PENCOLOR(NONE); $MOVETO(P0,P1); $PENCOLOR(REVERSE); $MOVE(0); MOVE(0); $ $WHILE BUTTON(1) DO &BEGIN (P0 := PADDLE(0); (FOR DELAY := 0 TO 3 DO; (P1 := P *)  (* THE BUTTON ON PADDLE 1 IN *)  (* *)  (* TO END THE DRAWING SESSION HIT *)  (* THE BUTTON ON PADDLE 0 *)  (*************************************)  PROCEDURE DRAW;   BEGIN  d á ǀǃ؂d á7ȡ,d á ǀNj؂ "W(Ɓ-צ*ATTACH.DRIVERS))R dP..ȡ ۛ0XFADDRESS SPACE OVERFLOW6۪P..10ڂ.0Ä..08TP/ *PARAM.DATA"ábƁ-צ*ATTACH.DRIVERSP bץ/[ -     צ" ATTACH.DRIVERS AND EXITצ <4> EXITצOPTION: Z TYPE TO CONTINUE bb lETH ROE' COPYRIGHT 1982, SATURN SYSTEMS INCצ <1> LOOK AT CONFIGURATIONצ <2> CHANGE CONFIGURATION <3> PUT CONFIGURATION IN MODIFY PARAMETERS <3> EXITצOPTION:     APPLE PASCAL PSEUDO DISK COPYRIGHT 1982, KENNFY DIRECTORY BLOCK COUNT <2> EXITOPTION: .NEW DIRECTORY BLOCK COUNT?  5  צ <1> MODIFY SLOT CONTENTSצ <2>צ<3> 32K RAMCARD <6> EMPTYצ WHAT KIND? ed hd Wd Fd 5d $d خ  m^O@1"r  צ# <1> MODI ?  d d ٮ   WHICH SLOT?  #<1> LANGUAGE CARD <4> 64K RAMCARDצ$<2> 16K RAMCARD <5> 128K RAMCARD[RESERVED FOR PASCALצPRESS TO CONTINUEצ% DO YOU WANT TO USE THE ENTIRE CARD?  )ȡd ȡٮ ڂDO YOU WISH TO USE BANK ////ȡ"/d //4ȡd ٮ  ád ٮ  š0BANK 1 RESERVED FOR PASCALخ (----------------------------------------'Y=USED N=NOT USED P=RESERVED FOR PASCALצ(---------------------------------------- /*PARAM.DATA[1]//צ(---------------------------------------- צ(----------------------------------------צ#SLOT BANK SLOT BANK% 12345678 12345678ȡ 64 ٢ b128 ٢ JLANG ٢ 2  &t^H  צ DIR BLKS:  8  ! APPLE PASCAL PSEUDO DISKצNO` h ب  ȡS0P3Y'N 9/% [ n   d 32 ٢ 16 ٢ z/ë////ȡ/d / /  ȡ4d ȡۢ<% @YYáYES - .-.Ǎǹ-ȡN  /bZ p  2~`^( -      - .-.Ǎǹ-ȡN