LnSOS BOOT 1.1 SOS.KERNEL SOS KRNLI/O ERRORFILE 'SOS.KERNEL' NOT FOUND%INVALID KERNEL FILE: xةw,@  ȱlmi8#)!)0 WAP /// SIG MENU.MAKER PROGRAM (v. 6.2) =".D1"210: Coldstart (320: Warmstart &*X=11000: TEXT SLOW-DOWN LOOP ,X.1 CHANGE DISK SUBROUTINE23œ202:2200<RFa$=" YOU MAY SELECT YOUR DISK BY ,WAP.STANDARDX7X#%SEG.T j+Ÿ/ +SCR.PRT.INV-!%SEG.G v -W# DAVIDSONWWDISKNAME.DATZ& Z& ,DOWNLOAD.INVX6+*MENU.MAKER  }+>+REQUEST.INV X6+SUTHARDWWIII.MISC.02053Bu' +ALLDUMP.INV- W!0ALTMAN(h.h.)BGRAF.INV(W!L+BOQUETX4X4$BYTE X6+,COPYFILE.INV >dLԡm#i㰼m#iЕOLԡȱfg hi !dLԡ憦  Ljmkm l y`2 Lԡ8(Je稽)ʈ@LVOLUME NAME (/DISKNAME) OR DEVICE NAME (.Dx)"P12);::"80C";a$;:Zb$="CHANGING DISKS"$d=23:=0::"80C";b$;::12).n=12:=20:"MAKE A NEW MENU FOR DISK: ";N$xN$)<2110=N$ :210 I=1L(A$(I),A$))200B$ 78C";"ANY KEY RETURNS TO THE MENU.">G$:::320H: Error Routine 202:U=11:"79C";"BAD PATH ERROR (NO DISK IN DISK DRIVE OR DESIRED FILE NOT FOUND.)"X=11000:X:::210Z a$="{,|,~,}; selects; back 1 lev 1600 &:WW=1:0 :SEG=1;".D1/S EG.F" SEG=1".D1/SEG.G"diskname$=3802  CATCH PASCAL TEXT FILES 202 :F*=08:"78C";"SORRY BUT MENU.MAKER CAN'T READ PASCAL TEXT FILES."04=10:"M$="NOVEMBER":1750M$="DECEMBER":1750826);"-";M$;" ";Ѡ,2));", ";"19";Р,2);" ";/П,2))=>13П,2))-12;џ,6);:1780$П,2))=0"12";џ,6);:ٟ;$П,2))=>12" PM-":" AM-" 1830WW=1530 =26:=211660,1670,1680,1690,1700,1710,1720,1730,1740^M$="JANUARY":1750hM$="FEBRUARY":1750rM$="MARCH":1750|M$="APRIL":1750M$="MAY":1750M$="JUNE":1750M$="JULY":1750M$="AUGUST":1750M$="SEPTEMBER":1750M$="OCTOBER":1750T 0")2070H540R\A$="RUNNING "+B$(I),16,B)f"79C";A$;:=0pB$(I),16,B) z::SEG=1".D1/SEG.T"t=+B$(I),16,B) yCT=CT+1~240:=24:=0:"@ ..... "DATE.TIME.LINE" ....JM=Ҡ,4,2))BTM1630,1640,1650,0=+IBOTM/2-.5):I=IBOTM:I/2=I/2)I=I-1 œ2120B=B$(I),16)," ")-1 B$(I),"BASIC 0")850B$(I),"TEXT 0")890 B$(I),"CAT 0")1140*B$(I),"FONT 0")18504B$(I),"FOTO 0")1930>B$(I),"PASTXB$(I);v:520: 500THPOS=4:I/2=I/2)I=I-1I=IBOTM THPOS=44:I/2<>I/2)I=I+1I2=-1:I=I-2:IBOTM<30THPOS=44I=IBOTM/2)*2:=+IBOTM/2)-1:CA)"PRINT.ALL": OA+P 3HA=(81+UCA)A=(81+LCA):::: OA+Q Quits 3IA=(83+LCA)A=(83+UCA)"PRINT.SHOW": OA+S 2JA=(68+LCA)A=(68+UCA)/Screen.Savers/HELLON=THPOS:B$(I);XA<8A>11540bA-7640,660,690,720l:=THPOS:ٺ1600 =Q:WW=0A=:A=21A=9&oldprefix$=40A=31410: Control C "aborts" program to Basic(:A=13770: Return Selects a file *DA=27:50: Escape to change disks/FA=324000: back out one directory level 3GA=(80+UCA)A=(80+L"BASIC 0":150A$="TEXT 0":150A$="CAT 0":150A$="FONT 0":150A$="FOTO 0":150A$(L),"BLOCKS")510*=27:=19:"FREE MEMORY AVAILABLE: ";=7:=20:"80C";A$(L);$:=5:THPOS=4:I=1:IBOTM=J-1:620Q=:=26:=21:sic; +Q Quits."r12);::"80C";a$;:+w#9,"DISKNAME.DAT":#9;DISKNAME$:#9|d$=DISKNAME$$=23:=0::"80C";d$;::12)201M=3:=14:"This /// SIG Disk is \^ 19";Р,2)", Washington Apple `, Ltd."=4:B$(1)="":B$(2)=""A$=16,B) THEN 240 #1, d$="":=10:"80C";d$ ž#1300I=0"I=I+1:#1;A$(I):290,#1 6L=I-1@j=1:same=0 J:SEG=0 Tœ2030^CT<1CT=1cCT>13000Zha$="{,|,~,}; selects; to new disk; J/2)=4:=+1:ۙ=44B$(J);:J=J+1I:1,180,22:2,280,21:2,2380,23:8A$(1000),B$(1000),C%(511),C$(20),name$(20):=10:=0UCA=128:LCA=UCA+32CT=15 IF PREFIX$= PREFIX$+MID$(B$(I),el; :)    kL !"#$%&'GA3/1.01/LINr GRAFIXMO WXBGRAF.INV(WLWDAVIDSONvW' ',ALLDUMP.TEXT\=xW!0%HENON7!@W!r.%PAINT 4@W!! ALLDUMP.INV- WWDEVICE.IO.INV)WWREADBLK XWAP CONTRIBUTORS DISK #1 LJFE>987410/-   `+(%" Bhhh h h h hh hhhhhh  HH`ZXVTRPNLJHFDB@<;85431hhhh   HH`420.-&#  Phhhhhhhhhh  HH`DB@><:86421.+*)'jhhhhhhhh    X XSOSWRITESWRITERWBUF  RETADDR PLINITCHK sITCHK VIEWPORT VIEWPORTWBUFLEN }UFLEN SOSWRITESWRITERWBUF  xplhd`\XUFLEN SOSWRITESWRITERWBUF ~zvrRETADDR $ INITCHK ITCHK XFROPTIO XFROPTIORANGECHKNGECHKWBUFLEN UFLEN #ITCHK WBUFLEN DUFLEN SOSWRITEGSWRITERWBUF ?:72-(SYSFONT SYSFONT RETADDR njDRAWIMAG DRAWIMAGINITCHK ITCHK WBUFLEN RETADDR INITCHK ITCHK RANGECHKECHKWBUFLEN UFLEN SOSWRITESWRITERWBUF  NEWFONT NEWFONT INITCHK =+SOSWRITE@.!RWBUF  83& INITCHK uITCHK GRAFIXON GRAFIXONWBUFLEN UFLEN SOSWRITESWRITERWBUF zBUF GPGSREQDLGRAFIXMO GRAFIXMORBUFLEN 9RANGECHKwWBUFLEN ASOSWRITERWBUF \SOSREAD GBASADR TSOSSMARK$INITCHK ITCHK INITGRAF INITGRAFWBUFLEN RETADDR ISOSDSTATGSCB kSOSOPEN INITCHK READPARM5CREFNUM DWBUFADR ?BMOVCHK RBUFADR 7WRITEPAR=SREFNUM FRREFNUM 6WREFNUM >INITFLG KSOSCLOSEhhhhhh HHHH`&$<D^Z FpHx  )) y xHHHJJiH 詏 鮀 `}wqnkjba_\[ZYXWVURQ$hhhhhh HH H)HHH`20+*)Hhhhhhh HHHH`&$< 詏 )x `a^]NMJGF>=<10/.+* )) y xHHHJJiH 詏 鮀hhhh  HH`420.,*)&#"! Rhhhhhh    HH`DB@><:983.+('&$h J)` `!0 nljhfdcbQNMLJFEDCBA<;6hhhhhh  HH`420.,*)&#"! Rhhhhhh    HH`DB@><:983.+('&$hhh-&#  P  `"hhhhhh  HH`420.,*)&#"! Rhhhhhh  B B HH`yyP`GB HH`)r` @A>~|zxvtslgbWTSRPMED=hhhh   HH`420.-&#  Phhhh   HH`420.TRETADDR  SETCTAB SETCTAB  INITCHK ITCHK RANGECHKHKWBUFLEN UFLEN SOSWRITESWRITERWBUF  'RETADDR tpINITCHK ITCHK PENCOLOR PENCOLOR RANGECHKNGECHKWBUFLEN UFLEN SOSWRITESWRITERWBUF |x FILLCOLO FILLCOLO YLOC  SDSTATGSCB  INITCHK  ITCHK XLOC XLOC RETADDR     SOSDSTAT SDSTATGSCB   INITCHK  ITCHK YLOC  ASADR SOSSMARK SSMARKRETADDR  z v INITCHK  ITCHK XYCOLOR XYCOLOR RWBUF  F SOSREAD  SREAD RETADDR  SOSDSTATGPGSREQD GSREQDSOSCLOSE SCLOSEGRAFIXMO AFIXMOGLOAD GLOAD RBUFLEN  N RWBUF    SOSREAD  EAD GBASADR GBASADR ( ASADR SOSDSTAT~ SDSTATGSCB  INITCHK { ITCHK CREFNUM  EFNUM RBUFADR  ADR SREFNUM  EFNUM RREFNUM  M WBUFADR   ADR GSAVE GSAVE WREFNUM F  M GPGSREQD5 GSREQDSOSCLOSE> SCLOSEWBUFLEN 8  LEN SOSWRITE; SWRITERWBUF C F INITCHK  ITCHK BMOVCHK  OVCHK INITFLG  ITFLG RWBUF  F SOSDSTAT" SDSTATGSCB % CB INITCHK  ITCHK CREFNUM  EFNUM  T P SOSDSTATj SDSTATGSCB LINEREL LINEREL INITCHK g ITCHK WBUFLEN  UFLEN SOSWRITE SWRITERWBUF } d ` \ X RELEASE RELEASE  RETADDR % ! INITCHK  ITCHK LINETO LINETO WBUFLEN  UFLEN SOSWRITE SWRITERWBUF     CALCABS x q ABS RETADDR CALCABS  ABS RETADDR  SOSDSTAT SDSTATGSCB INITCHK  ITCHK DOTREL DOTREL WBUFLEN  UFLEN SOSWRITE SWRITERWBUF SWRITERWBUF  RETADDR c _ < 8 INITCHK O ITCHK WBUFLEN Y UFLEN SOSWRITE\ SWRITERWBUF T L H D @ DOTAT DOTAT RWBUF ZRNJFCALCABS BRETADDR SOSDSTATSDSTATGSCB  MOVEREL MOVEREL INITCHK ITCHK WBUFLEN UFLEN SOSWRITEWBUFLEN !UFLEN SOSWRITE$SWRITERWBUF BUF RETADDR ieB>INITCHK UITCHK MOVETO MOVETO  WBUFLEN _UFLEN SOSWRITEbSWRITERETADDR INITCHK ITCHK RANGECHKNGECHKWBUFLEN UFLEN SOSWRITESWRITERWBUF  INITCHK ITCHK FILLPORT FILLPORT ALTMANvh.' '/MANDELBROT.GRAF * h/n (FOTO.GRAPHll(XaW`'`aObυcwde`@pDqHrLsPtTuXv\w``PpQQ`HPLFh`pqrstuvw``abcde e`  搥 e`  搥 e`  搥 `= 搥 e`  搥 `=.printerLU ]AfK`mlkihgfd[ZXUTSRQPOMyjc]V& - L e` O' L M`69GPN - L e` O' L M`69GPNXaW`'`aObυcwde` p$q(r,s0t4u8v?@ABCDEFGHIJKLMNOPQRSTUV@@@`m''  0JT%JJ(X# ("A@( <MAKER"2:".D1/MENU.MAKER"bigdump2:35 =5:=202 "Please enter file to be displayed: ";A$ a$="":".D1/MENU.MAKER"#1,".GRAFIX""bgraf.inv","alldump.inv"INITGRAFIX #FILLPORT 2GLOAD.A$ dGRAFIXONnb$xb$="P"b$="p"1000$b$=13)::".D1/MENU.::=".D1" =5:=5J"This program displays and (optionally) prints a 560X192 dot graphic"" from a FOTOfile."@=5:=10:"Hit to exit now or when graphic displayed."?=5:=12:"Hit 'P' or 'p' to print graphic when displayed."WEEDUMP2 WEEDUMP2WEEDUMP4 WEEDUMP4BIGDUMP2 BIGDUMP2TEXTDUMP TEXTDUMP ufa[OJA dL ȭL 搥 `.printer AK`  ljhd1)" <hkx{˥ˬˏ)  ˈPˬȢ̴`o.printer.console.console L 搥 `L ȭL 搥 `.printer AK`  ljhd1)" \@H 0  P@ners: @&[1X(8";XL,XH@HH@HHGHH@A@HJ@( @(>```@T0 >x@0`` N)@ 7 ARH k @[@Z,-` P `SOS DRVR 8 c`@@GG@HHG@NC@@@G @` `@@@ fhijklmn`8 (@@a0@ c A"0@ TU*P+ -E`i  :``(<``X@@H@@@0*@/ Xx߭|H@''p<-$`DgPp@p@ p``@VER FILE.U&*KL<+*d* 4@t@@F.INV ````@8 @@pD))I @00,%96)@G@@ a%L,MOV$`P;" by ";A pZ#1,"4P@=P)M `j h@8>"6**  >000@ArhE|  6*--v 0@8F`0ners: `0R";XL,XHB`40`(`@@P 01272C; @ `B(,;|!t0000@k`()N4I HdVQ@h c/L@OGK@OO@ 0 Ah̰ (0@@@@T(`@P5C@`@@@@jIH@00PĥŰ+*J$Sm*`BD8x@7  H(J (,Ph - )/@AP @N)@@H@LE@H@@@@(P )P@@@ *$D(-<0dAmp<  ʘ)-%e[  "@ @k5p(nc.; U*Ue,ˆ̭ @# ,@8 PIhL&@OH@HH@O@@@HI0tT@@@@h`(pOPPD `A`ADL8H\ B @@*+@Z#1," ` RU)2H=P)M@@0L t%H,MOV*U)FddD f@;" by ";OH@A@@HBHAAG@@X@a8  00 (>  8fp|8 x` B@ @@9 <` `C@@A1Z 28 (Vj@/$p 8)  U` `Az<<::@N@@H@@@H@h@@@@@ ` :`80xP c @`B@@@ 0 H` +e+ @*j @TP  !N S _ @@@@@`@`@(@1  (@ `CCAD + (0eمΐ2UYeUML]&0 @!A@!A!<iL77,(G Б@@`\ YH@@ @@H('}~ p0<@))I@ P@@6)L`LU& >88 @,8LwTPr@a 8L`5@XJ@ 9 IS MAX): ":XMAX$"SET YMAX (191 IS MAX): ":YMAX :1080'::"MANDELBROT GRAPH PROGRAM"::;""THIS COULD TAKE A LONG TIME (AS LONG AS 2 1/2 HOURS)";,"SO TAKE IT EASY FOR A WHILE. YOU'LL SPEED THINGS UP"96"A BIT BY HITTING A|< R @@ ` `MΕ8&;U1!AWAڍWv @ @@rYAڍYA0@2& B0 J@,0 Tbx"&*)`@GF@ @$vN` HB@ p%**K* II4?x:@@@@Cթ~@$,@))kR%jL@H@@)@6~Px$wFJFWF8F`% P0@@U) X@@ B L %`@`nT HHH@HH@BH IH@@`` @Aֆ׆0@PA@T  =C 2Ri@64) Bp"e0PP ^ $@%A`%A`(L)*Ut!b  Dt 01980 AppHH@@@GHB@HAH@@ ``puter, IU`UUUUUUUf|@(@$ h@  B@!`@!`Y\adND "5" ON THE KEYPAD TO=@"TURN THE SCREEN OFF. HIT IT AGAIN TO TURN IT BACK ON."J"HERE WE GO......"TX=12500:X2^ XMAX,AND YMAX ABOVE ARE RESOLUTION OF SCREEN/h NOW COMPUTE THE SAMPLE SIZE DELTAX,DELTAYrDELTAX=(XHI-XLO)/XMAX|DELTAY=(YHI-YLO)/YMAXDELTAX,DELTAYI SET MAX TO BE THE MAXIMUM NUMBER OF COLORS YOU CAN DRAW AT EACH DOT MAX%=15 hits%=0E NOW CALL ALL THE FUNCTIONS TO INITIALIZE GRAPHICS, CLEAR SCREEN& THE ONES BELOW ARE FOR APPLE ///INITGRAFIXG PERFORM weedump2000 for the $2000 page ; PERFORM weedump4000 for the $4000 page ;or PERFORM bigdump2 for the combined pages. ; ;In the last case, the proportions of the screen are maintained on the ;paper by printing each byte Some of the code (details ;below) is specific to the above printer, but if it is replaced appropriately ;the module should work with other printers, particularly if they are Epson ;or IBM compatible. ; ;To use the module from BASIC, INVOKE it, then ; ;  ;Module ALLDUMP.CODE or ALLDUMP.INV ; ;This module is used to print the contents of the $2000 or $4000 graphics ;pages, or their combination (for a 560x192 graphics screen) when used with ;a Panasonic KX-P1091i printer and a UPIC card. []^_`abcdefghijklmnopqrstuvwxyz{|}~1 2 3 4 v#O^S6  FOR A NUMBER TO BE SQUARED AND REACH A LIMIT (4)X=I%*DELTAX+XLO Y=J%*DELTAY+YLO *FIRSTX=X 4FIRSTY=Y<> N IS A COUNTER FOR HOW MANY TIMES WE HAVE CALC'ED MOD2HN=0 RN=N+1\N>MAX%9907f IF MOD2 > 4 THEN WE ARE DONE, SO LEAVE SUBAPPLE ///)2 DOTAT ACTUALLY DRAWS A DOTAT XINT,YINT = I,JPENCOLOR(%A%)DOTAT(%XINT%,%YINT%)HITS%=HITS%+1A HITS JUST KEEPS TRACK OF HOW MANY NON-ZERO DOTS--EXPENDABLEC THIS SUBROUTINE ACTUALLY CALCULATES ANS, OR HOW LONG IT TAKET AT? POINT I,J OF COLOR ANS. MAKE SURE ARGUMENTS TO FUNCTIONS4 ARE RIGHT DATA TYPE (STRING, INT, REAL ETC...) XINT%=I% YINT%=J%+ MAKESURE WE HAVE AN INTEGER FOR COLOR A%=ANS)C PENCOLOR SETS THE COLOR OF THE DOT TO BE DRAWN (ON COLOR ANS OR NOT.I%=1XMAX)"I = ",I%&J%=1YMAX)0790=: IF ANS NOT EQUAL TO 0, THEN DRAW A DOT AT THE POINT I,JDANS<>0660 NANS=0XJ%bI%lX=11000:X:1060=41040 oldx=x oldy=y x=oldx*oldx-oldy*oldy+firstxy=2*oldx*oldy+firstyE LOOP BACK UP AND TRY CALCING MOD2 AGAIN TO SEE IF REACHED LIMITBER* " RETURN TO WAP.STANDARD4 ADDED BY DAVE OTTALINI FOR WAP DISK 1053 ONLY.< DELETE LINES 2000-2070 AND CHANGE LINE 700 IF DESIRED.C%(511),C$(20),name$(20)".D1/download.inv"C$=".D1/WAP.STANDARD"array$="C%"name$="C$"V*` 31,28,31,30,31,30,31,31,30,31,30,31Ij " ** JANUARY ** "," ** FEBRUARY ** "," ** MARCH ** "," ** APRIL **"Bt " ** MAY ** "," ** JUNE ** "," ** JULY ** "," ** AUGUST ** "M~ " ** SEPTEMBER ** "," ** OCTOBER ** "," ** NOVEMBER ** "," *DECEM populationpd&=jd*ppd):ph&=pph*hh)pm&=ppm*mm):ps&=pps*ss)dhm&=pm&+ph&+pd&"&py&=ppy*(yr-86.0))+5.0E+9)0ppp&=dhm&+py&5=30: PRINT ppp&+ps& Dmoveto(%100,%170)I#1"13&";ppp&+ps&N>20=4X120:::2000(i):i jd=jd+dd#, pop per year day hour min sec6ppy=1000000000/14@ppd=ppy/365Jpph=ppd/24Tppm=pph/60^pps=ppm/60 time of dayhh$=Tttt$,2) hh=hh$)mm$=Tttt$,4,2) mm=mm$)ss$=Tttt$,2) ss=ss$) current$)mm$=Ҡ,4,2) mm=mm$)dd$=Ѡ,2) dd=dd$)d2$=dd$+r$(mm)+"19"+yr$=2 tttt$= PRINT d2$," ",Tttt$ moveto(%90,%140) #1;d2$moveto(%120,%120) #1;tttt$ DATE of the year - JULIANjd=0i=1mm:jd=jd+a:loadfont(@array$)<:FA(12),R$(12)K#1,".grafix"L"bgraf.inv" NfillportPk=0:=1:=28Tmoveto(%90,%188)U#1;"WORLD POPULATION" VgrafixonZI=112:A(I):IdI=112:R$(I):I i700 n=4:=1xyr$=Р,2) yr=yr5 Author Bouquet retains all other rights 5/22/887 Author wishes to than WAP for programming ideas!! :=".D1""download.inv"2a%(511),a$(20),name$(20)7a$="byte":array$="A%"8name$=34)+a$+34)9getfont(@name$,@array$)- world population program by TIM BOUQUET- based on facts from the Washington Post3 A) World population reached 5 billion in 19863 B) World population will be 6 billion by 20009 AUTHOR grants copy permission to Washinton Apple PiW 'EZ.LOAD W, +EZ.LOAD.DOC Wf EZ.UNLOAD W)FILE.COPY W* +GET.WEEKDAY W:(NEW.TRAVEL %W!ES WE CALCED MOD2 *AND*: THE COLOR WE ARE GOING TO USE TO PLOT ON THE SCREEN. ANS=N$B$="N"B$="n"::1120.GSAVE.A$:::1120J8:"IF YOU WOULD LIKE TO SAVE THIS GRAPH, TYPE 'Y'; IF NO, 'N'";B$:B$BB$="N"B$="n"8LB$="Y"use the same file name ("+A$+")?" Jans$Tans$="Y"ans$="y"370!Yans$="N"ans$="n"350:320%^"Enter new file name: ";B$:400 rB$=A$ --------- copy files "--- copying "+A$+" as "+B$infile$=pfx1$+"/"+A$outfile$=pfx2$+"/"+B$d"copyfile.inv" ::"File Copy Program"::1"Enter Prefix of File to be copied: ";pfx1$ pfx1$&"Name of File to be copied: ";A$2,"Enter Prefix of Where to copy file: ";pfx2$ 1pfx2$6pfx1$=pfx2$3506@"Do you wish to  ".ram/SEG.MN"".ram/SEG.ER"".ram/SEG.00"(".ram/SEG.PR"12"Three EZ Pieces has been removed from .RAM" <".ram"FPAUSES=11000:Pfile(@infile$,@outfile$,@ecode%) ^ ecode%=327outfile$:34202a ecode%<>0"Error COPYING the file ";infile$z  :"File copy complete!" ".ram"tPAUSE=11000:ecode%<>0"Error COPYING the file ";infile$  A$="SEG.PR" "copyfile.inv"& pfx1$=".profile/three.ep"0 pfx2$=".ram"H --------- copy filesR infile$=pfx1$+"/"+A$W outfile$=pfx2$+"/"+A$+Y "--- copying "+infile$+" to "+outfile$)\ copy"copyfile.inv">pfx1$=".profile/three.ep"Hpfx2$=".ram"` --------- copy filesj infile$=pfx1$+"/"+A$o outfile$=pfx2$+"/"+A$+q "--- copying "+infile$+" to "+outfile$)t copyfile(@infile$,@outfile$,@ecode%) v ecode%=327outfile$:14202y ------ copy filesinfile$=pfx1$+"/"+A$outfile$=pfx2$+"/"+A$+"--- copying "+infile$+" to "+outfile$)copyfile(@infile$,@outfile$,@ecode%) ecode%=327outfile$:14202ecode%<>0"Error COPYING the file ";infile$A$="SEG.00"4"--- copying "+infile$+" to "+outfile$)copyfile(@infile$,@outfile$,@ecode%)ecode%=327outfile$:4202ecode%<>0"Error COPYING the file ";infile$A$="SEG.ER"L"copyfile.inv"Vpfx1$=".profile/three.ep"`pfx2$=".ram"x ---3 Program for Loading Three EZ Pieces into .ramd"copyfile.inv"npfx1$=".profile/three.ep"xpfx2$=".ram"+::"Moving Three EZ Pieces Into .RAM"A$="SEG.MN" --------- copy filesinfile$=pfx1$+"/"+A$outfile$=pfx2$+"/"+A$+B$="y""WHERE WOULD YOU LIKE TO SAVE IT?" VA$:@`"PRESS 'A' TO RERUN PROGRAM. PRESS 'B' TO RUN MENU.MAKER."*j"ANY OTHER KEY RETURNS YOU TO BASIC."tB~"REMEMBER YOU CAN USE MENU.MAKER TO LOOK AT YOUR SAVED GRAPH";"OR THE ALLDUMP.INV P)copyfile(@infile$,@outfile$,@ecode%)ecode%=327outfile$:4208ecode%<>0"Error COPYING the file ";infile$;:990  pfx2$:"File copy complete!"le name to scroll through:";a$na$=""490 x#1,a$maxlength=0-"How many units to fast scroll by? ";zip ž#1170Ei=0500:#1;a$(i):a$(i))>maxlengthmaxlength=a$(i)):::lastrecord=isync$=22)mleftscroll$(0)=sync$+23+a$(500),rightscroll$(1),leftscroll$(1):"Present Prefix: "+/("Do you wish to change the Prefix? ";Ans$<2Ans$="N"Ans$="n"Ans$="No"Ans$="no"Ans$="NO"80$<:"Enter Prefix Desired: ";Pfx$F90 PPfx$=Z=Pfx$:Pfx$&d"FiEs" THEN Answer$="Y" 10050 IF Ans$="yeS" OR Ans$="YEs" THEN Answer$="Y" 10060 IF Ans$="NO" OR Ans$="no" THEN Answer$="N" 10070 IF Ans$="nO" OR Ans$="No" THEN Answer$="N" 10080 IF Ans$="N" OR Ans$="n" THEN Answer$="N" 10090 RETURN 10000 REM YES/NO ANSWER POSSIBILITIES 10010 IF Ans$="YES" OR Ans$="Yes" THEN Answer$="Y":ELSE Answer$="U" 10020 IF Ans$="yes" OR Ans$="YeS" THEN Answer$="Y" 10030 IF Ans$="Y" OR Ans$="y" THEN Answer$="Y" 10040 IF Ans$="yES" OR Ans$="y 0 OUTREC=255:TEXT:HOME:INPUT"Pathname for captured file: ";a$:CREATE a$,TEXT:OPEN#1 AS OUTPUT,a$:OUTPUT#1:LIST 1-:PRINT:CLOSE:OUTREC=80:END Es"Answer$="Y"&Ans$="NO"Ans$="no"Answer$="N"&Ans$="nO"Ans$="No"Answer$="N"$Ans$="N"Ans$="n"Answer$="N"Answer$="U": "+ Pfx$' 23. YES/NO ANSWER POSSIBILITIES4Ans$="YES"Ans$="Yes"Answer$="Y"Answer$="U"(Ans$="yes"Ans$="YeS"Answer$="Y"$Ans$="Y"Ans$="y"Answer$="Y"(Ans$="yES"Ans$="yEs"Answer$="Y"(Ans$="yeS"Ans$="Y PREFIX SET PROGRAM By Jim Suthard("Present Prefix: "+/2"Do you wish to change the Prefix? ";Ans$<160'FAnswer$="U":"Enter Y or N":40PAnswer$="N"150Z"d"Enter Prefix Desired: ";Pfx$ n=Pfx$x"New Prefix)+256-zip)+26)+80-zip)+0)+2)+26)+zip-1)+24)+3)+21)+"5"+12)aleftscroll$(1)=sync$+23)+255)+26)+79)+0)+2)+26)+0)+23)+3)+21)+"5"+12)erightscroll$(0)=sync$+23)+zip)+26)+0)+0)+2)+26)+zip-1)+23& --- Initialize --- 0months$(12),length(12)5:month=112:length(month),months$(month):monthD 31,JanuaryN 29,FebruaryX 31,Marchb 30,April l 31,May v 30,June  31,July 31,August 30,September 31,October< "Which Directory do you want sent to a text file? ";N$I"Pathname for Catalog Text File: ";a$:a$,:#1,a$:#1:N$:#1:35=82q$:180 "Error # ";:"Errlin - ";=" "FIL$=FIL$,FIL$)-1):130Q$=pnam$+"/"+fil$cnf$="N"170X"Confirm delete for : ";q$;" y/n ";:any$:any$:(any$="Y")(any$="y")170:100 œ240Q$"....";Q$;" deleted"90 pnam$".D1/MENU.MAKER"=be deleted?" 2Ans$4Ans$="n"2305Ans$="n"230`<:"Do you want Confirmation before each delete ? ";yn$:"NOnoNo",yn$)cnf$="N":cnf$="Y"FP#1,pnam$ Zž#1220 d#1;F$nF$,12,3))=090xFIL$=F$,16,15)/FIL$,1) WIPER28);" This program will mass delete all files on a specified subdirectory"::"You may select a Confirm Delete option which will allow you to bypass a ":"particlular file.":#"Pathname for wiping : ";pnam$'(pnam$::"Should this i>24scrolldown$;a$(vi-25),hi,80);:vi=vi-1cursor=27:490hi>zipt=zip:b$=bnk$ 360:(hi+79+zip<=maxlengtht=zip:b$=bnk$ 370::26);0);23);=blank24$:t=1'Tmove+1430,360,370,390,410,450,470 ^:310vhhi>tindex=vi-25:hiindex=hi-t:j=124:b$,t*j-t+1,t)=a$(index+j),hiindex,t)::hi=hi+t:leftscroll$((t=1));b$;r|7vi80a$(i),1,80);::a$(i):hi=1:vi=24:'blank24$=" " "bnk$=""",i=1zip:bnk$=bnk$+blank24$:6a$:cursor=a$)[@move=(cursor=8)+2*(cursor=21)+3*(cursor=10)+4*(cursor=11)+5*(cursor=136)+6*(cursor=149)Jb$)+3)+21)+"5"+12)_rightscroll$(1)=sync$+23)+1)+26)+0)+0)+2)+26)+0)+23)+3)+21)+"5"+12)?scrollup$=16)+3)+26)+0)+23)+10)+21)+"5"+sync$,scrolldown$=16)+3)+12)+11)+sync$:21);"5";6i=023: 30,November 31,December!I=17:wkday(I),wkday$(I): 1,Sunday 2,Monday 3,Tuesday 4,Wednesday 5,Thursday 6,Friday 7,Saturday black=0:magenta=1lavender=3 ltblue=7 !white=15"maxwindo$=1)#cl the current date and time. --- -now$=+" "+: Get the time and date NOW./hour=now$,2)): Get the numerical hour.&ampm$="a.m."'0hour>11hour=hour-12:ampm$="p.m.":hour=0hour=126Dline$="The time is "+hour)+now$,3,6)+" "+ampm$N=2:=5("The Apple III Plus Clock/Calandar"maxwindo$;:=23:=1fieldcolors$;blackfore$;8 Clear the "space to set clock" prompt from screen.2,639,22boxcolors$;:1 --- This is the timing loop, which ---2 --- displayse)JcursorON$=5)TcursorOff$=6)^CRLF$=13)+10) htim1$=!r --- Main program loop. --- "| --- Set up the screen. --- clr40mode$;maxwindo$;3fieldcolors$;:: clear screen to lavender. boxcolors$;2,239,4:  30,November 31,Decemberblack=0:magenta=1lavender=3 ltblue=7 white=15maxwindo$=1)"clr40mode$=16)+1)/,fieldcolors$=20)+ltblue)+19)+white)6blackfore$=19)+black).@boxcolors$=20)+magenta)+19)+whit --- Initialize --- months$(12),length(12)5month=112:length(month),months$(month):month( 31,January2 29,February< 31,MarchF 30,April P 31,May Z 30,June d 31,Julyn 31,Augustx 30,September 31,October,1)="0"line$=line$+now$,17,1):1200line$=line$+now$,16,2)#line$=line$+", 19"+now$,10,2)"37c";line$ 1070:::".D1/MENU.MAKER"l hour.Vampm$="a.m."'`hour>11hour=hour-12:ampm$="p.m."jhour=0hour=126tline$="The time is "+hour)+now$,3,6)+" "+ampm$~=6:"37c";line$:/month=now$,13,2)):month$=months$(month)#line$="The date is "+month$+" "5now$,16space to set clock" prompt from screen.2,639,22$boxcolors$;:1. --- This is the timing loop, which ---28 --- displays the current date and time. --- -Bnow$=+" "+: Get the time and date NOW./Lhour=now$,2)): Get the numerica up the screen. --- clr40mode$;maxwindo$;3fieldcolors$;:: clear screen to lavender. boxcolors$;2,239,4: =2:=5("The Apple III Plus Clock/Calandar"maxwindo$;:=23:=1fieldcolors$;blackfore$;8 Clear the "r40mode$=16)+1)/$fieldcolors$=20)+ltblue)+19)+white)%blackfore$=19)+black).&boxcolors$=20)+magenta)+19)+white)'cursorON$=5)(cursorOff$=6))CRLF$=13)+10) *tim1$=! --- Main program loop. --- " --- Set=6:"37c";line$:/Xmonth=now$,13,2)):month$=months$(month)#bline$="The date is "+month$+" "4lnow$,16,1)="0"line$=line$+now$,17,1):640vline$=line$+now$,16,2)#line$=line$+", 19"+now$,10,2)"37c";line$760#line$="The day of the week is ""37c";line$:line$=Weekday$"37c";line$:510:::".D1/MENU.MAKER"$ Find Weekday from Date Formula '  Get components of DATE$ and TIME$*#4y1%=Ҡ,1,1)):y2%=Ҡ,ear%  k%=day%$ m%=month%-2. m%<=0m%=m%+12:d%=d%-1=V d3%=(26*m%-2)/10)+k%+d%+d%/4)+c%/4)-2*c%)7+1)` d3%<0d3%=0j Weekday%=d3%# Weekday%=0Weekday$="Unknown"" Weekday%=1Weekday$="Sunday"" Weekday%=2Weekday$="Monday"month%=m1%*10+m2%day%=d1%*10+d2%#h1%=ҟ,1,1)):h2%=ҟ,2,1))%mi1%=ҟ,4,1)):mi2%=ҟ,5,1))2 Zeller's Congruence to calculate day of week Inputs: year%,month%,day%" Output: d3% = 1-7 (1=Sunday)  c%=19  d%=y="/PROFILE/BASIC/PGMS"$ Find Weekday from Date Formula\'f Get components of DATE$ and TIME$p#zy1%=Ҡ,1,1)):y2%=Ҡ,2,1))#m1%=Ҡ,4,1)):m2%=Ҡ,5,1))#d1%=Ҡ,7,1)):d2%=Ҡ,8,1))year%=y1%*10+y2%16)+1)#PRE W&SCROLL W+TRAVEL.PLAN S$W:+%WIPER 5WXYES.NOW&COPYFILE.INVWWWeekday$="Saturday"`67016eekday%=0Weekday$="Unknown""Weekday%=1Weekday$="Sunday""$Weekday%=2Weekday$="Monday"#.Weekday%=3Weekday$="Tuesday"%8Weekday%=4Weekday$="Wednesday"$BWeekday%=5Weekday$="Thursday""LWeekday%=6Weekday$="Friday"$VWeekday%=7f week Inputs: year%,month%,day%" Output: d3% = 1-7 (1=Sunday) c%=19 d%=year% k%=day%m%=month%-2m%<=0m%=m%+12:d%=d%-1=d3%=(26*m%-2)/10)+k%+d%+d%/4)+c%/4)-2*c%)7+1)d3%<0d3%=0Weekday%=d3%#W2,1))#>m1%=Ҡ,4,1)):m2%=Ҡ,5,1))#Hd1%=Ҡ,7,1)):d2%=Ҡ,8,1))Ryear%=y1%*10+y2%\month%=m1%*10+m2%fday%=d1%*10+d2%#ph1%=ҟ,1,1)):h2%=ҟ,2,1))%zmi1%=ҟ,4,1)):mi2%=ҟ,5,1))2 Zeller's Congruence to calculate day o# Weekday%=3Weekday$="Tuesday"% Weekday%=4Weekday$="Wednesday"$ Weekday%=5Weekday$="Thursday"" Weekday%=6Weekday$="Friday"$ Weekday%=7Weekday$="Saturday" Weekday$21d THIS IS A TRAVEL ITINERARY PLANNING PROGRAM'n Fieldcolors=field$;Boxcolors=box$ xblack=0 magenta=1lavender=3 ltblue=7 white=15maxwindo$=1)clr40mode$=16)+1))field$=20)+ltblue)+19)+white)blackfore$=19)+P$PZline$=I7A$+TRANSP$d=6:"37c";line$:nline$=I7B$x"37c";line$: TDEP$line$=I8A$+TRANSP$+I8B$=6:"37c";line$:line$=I8C$"37c";line$: SAMEDAY$X$=SAMEDAY$X$="Y"X$="y"1610X$="N"X$"37c";Turn$: line$=I3$"37c";line$: IDNUM$ line$=I4$=6:"37c";line$: ORI$=6 line$=I5$ "37c";line$: DEST$line$=I6A$+TRANSP$(=6:"37c";line$:2line$=I6B$<"37c";line$: FDDE"37c";line$: RET$ Entering Information line$=I1$=6:"37c";line$: WHO$$.line$=I2A1$8=3:"37c";line$:Bline$=I2A2$L"37c";line$: V3990`jline$=I12$t=6:"37c";line$: ~CARR$=4struct4$="Enter 'N' for 'No'.Instruct5$="Okay?" OPENING INSTRUCTIONS)line$=Instruct1$:=3:"37c";line$:%line$=Instruct2$:"37c";line$:%line$=Instruct3$:"37c";line$:%line$=Instruct4$:"37c";line$:%line$=Instruct5$:Sam the Travel Agent"HU6D$="Signing off"#RU7A$="Do you wish to return to"\U7B$="Regular Text Size"$fU8$="Type return to Exit ProgrampInstruct1$="Instructions:"*zInstruct2$="When Answering Questions,"$Instruct3$="Enter 'Y' for 'Yes';#Inpany is the Carrier?"U4A$="Do You Want to Save"" U4B$="This Itinerary on Disk?"#U4C$="What is the file's name?"+ U5$="Do you want to plan another trip?"&*U6A$="If that's ALL for THIS TIME"%4U6B$="I'll say 'SO LONG FOR NOW'"'>U6C$="This is tended Destination?"#U1$="Is all the above correct?"%U2$="Do you want a printed copy?"&U3$="Is this the end of the trip?"'I11A$="What type of transportation"(I11B$="Will be involved in the next"I11C$="Part of the Trip?"'I12$="What Coms the "lI8B$=" Scheduled "+vI8C$="To Arrive on the Day it Departs?"I9A$="On What Date is the "I9B$="Scheduled to Arrive "'I9C$="At the Intended Destination?" I10A$="At what Time is the "I10B$="Scheduled to Arrive"(I10C$="At the In(Turn$="Press RETURN if NO ID Number"(&I4$="Where does the trip Originate?",0I5$="Where is the Intended Destination?":I6A$="On what Date is the " DI6B$="Scheduled to Depart?"NI7A$="What Time is the "XI7B$="Scheduled to Depart?"bI8A$="I2$="Will be Used?"I2B1$="1. Airplane"I2B2$="2. Train"I2B3$="3. Bus"I2B4$="4. Boat"I2B5$="5. Automobile"I2B6$="6. Other"#I2C1$="Please Enter the Number"!I2C2$="of the Correct Answer",I3$="What is the Identification Number?"2,239,4: @=2:=5JG$="TRAVEL PLANS"T" "+G$^maxwindo$;:=23:=1hfield$;blackfore$;r WORKSPACE|2,639,22 box$;: PHRASE DEFINITIONSI1$="Who is Travelling?"'I2A1$="What kind of Transportation"I2Ablack)(box$=20)+magenta)+19)+white)cursorON$=5)cursorOff$=6)CRLF$=13)+10) --- Main program loop. ---  --- Set up the screen. ---clr40mode$;maxwindo$;*"field$;:: clear screen to lavender. ,box$;6="n"1520 1420line$=I9A$+TRANSP$=6:"37c";line$:line$=I9B$"37c";line$:"line$=I9C$,"37c";line$: 6DARR$ @1620JDARR$=DDEP$T^line$=I10A$+TRANSP$h=6:"37c";line$:rline$=I10B$|"37c";line$:line$=I10C$"37c";line$: TARR$A$="TRAVELER: "+WHO$#B$=TRANSP$+" "+CARR$+" "+IDNUM$C$="ORIGINATES AT "+ORI$D$="ON "+DDEP$+" AT "+TDEP$E$="ARRIVES AT "+DEST$F$="ON "+DARR$+" "G$="AT "+TARR$+"." Display of Ic";line$:* line$=FixInstruct2$4 "37c";line$:> line$=Fix7$!H "37c";line$+Colon$+DDEP$:-R ANSWER$:ANSWER$="N"ANSWER$="n"3860\ line$=FixInstruct1$f :=6:"37c";line$:p line$=FixInstruct2$z "37c";line$: line$=Fix8$!ANSWER$="N"ANSWER$="n"3820 line$=FixInstruct1$ :=6:"37c";line$: line$=FixInstruct2$ "37c";line$: line$=Fix6$! "37c";line$+Colon$+DEST$:- ANSWER$:ANSWER$="N"ANSWER$="n"3840 line$=FixInstruct1$ :=6:"37c";line$:l line$=Fix4$"v "37c";line$+Colon$+IDNUM$:- ANSWER$:ANSWER$="N"ANSWER$="n"3770 line$=FixInstruct1$ :=6:"37c";line$: line$=FixInstruct2$ "37c";line$: line$=Fix5$ "37c";line$+Colon$+ORI$:- ANSWER$:ixInstruct1$ :=6:"37c";line$: line$=FixInstruct2$ "37c";line$:& line$=Fix3$!0 "37c";line$+Colon$+CARR$:-: ANSWER$:ANSWER$="N"ANSWER$="n"3750D line$=FixInstruct1$N :=6:"37c";line$:X line$=FixInstruct2$b "37Colon$+WHO$:- ANSWER$:ANSWER$="N"ANSWER$="n"3650 line$=FixInstruct1$ :=6:"37c";line$: line$=FixInstruct2$ "37c";line$: line$=Fix2$# "37c";line$+Colon$+TRANSP$:- ANSWER$:ANSWER$="N"ANSWER$="n"3670 line$=F$="Departure Time"@ Fix9$="Arrival Date"J Fix10$="Arrival Time"'T FinalFix1$="Enter the Correct Data"^ FinalFix2$="For "h r line$=FixInstruct1$| =6:"37c";line$: line$=FixInstruct2$ "37c";line$: line$=Fix1$ "37c";line$+$="Answer Yes or No" Colon$=": "! Fix1$="The Person Travelling"" Fix2$="Type of Transportation"  Fix3$="Carrier Company Name"! Fix4$="Identification Number" Fix5$="City of Origin"" Fix6$="Destination City", Fix7$="Departure Date"6 Fix8n line$=U7B$x "37c";line$: line$=U8$ "37c";line$: TYPECHANGE$ X$=TYPECHANGE$ X$="Y"X$="y": X$="N"X$="n" # Fix Wrong Information Routine6 FixInstruct1$="Is the Following Category Correct?"$ FixInstruct2 BYE BYE ROUTINE line$=U6A$ =3 "37c";line$: line$=U6B$ "37c";line$: line$=U6C$ "37c";line$:( line$=U6D$2 "37c";line$:-< " Press RETURN to EXIT Program";SAM$F P =3Z line$=U7A$d "37c";line$: 8 line$=U5$B L =6:"37c";line$:V NEXTFILE$` X$=NEXTFILE$j X$="N"X$="n"2440t X$="Y"X$="y"1010 ~ ۺ2340 2520 Disk Data Recorder Routine #2,"Travel.Data":#2 A$:B$:C$:D$:E$:F$+G$  #2 $=6:"37c";line$:TRIPCONT$X$=TRIPCONT$X$="N"X$="n"2280X$="Y"X$="y"2350 2190line$=I11A$=3:"37c";line$: line$=I11B$ "37c";line$: line$=I11C$ $ 1100%. Ask If Should Open Another File"37c";D$: "37c";E$:*"37c";F$+G$:&4line$="Data Entered: "++" at "+>"37c";line$:H#1R\=3:"37c";U4A$:f"37c";U4B$: pDisk$ zX$=Disk$X$="Y"X$="y"2460 Ask if Trip Continues line$=U3X$="n"2760 1770 Printer Routine line$=U2$=6:"37c";line$:GO.PRINT$X$=GO.PRINT$X$="N"X$="n"2130X$="Y"X$="y"2020 1940#1,".printer"#1"37c";A$:"37c";B$: "37c";C$:nformation=3:"37c";A$:"37c";B$:"37c";C$:"37c";D$:&"37c";E$:0"37c";F$+G$:": Check To Verify Correct Data Dline$=U1$N"37c";line$: XCORRECT$bX$=CORRECT$lX$="Y"X$="y"1930vX$="N" "37c";line$+Colon$+TDEP$:- ANSWER$:ANSWER$="N"ANSWER$="n"3880 line$=FixInstruct1$ :=6:"37c";line$: line$=FixInstruct2$ "37c";line$: line$=Fix9$! "37c";line$+Colon$+DARR$:- ANSWER$:ANSWER$="N"ANSWER$="n"3900 line$=FixInstruct1$ :=6:"37c";line$: line$=FixInstruct2$"37c";line$:line$=Fix10$!"37c";line$+Colon$+TARR$:-$ANSWER$:ANSWER$="N"ANSWER$="n"3920 .1700$8 Change Previously Entered Data B3950&L"Person30C$="N"C$="n"1160;:=23:=0::"79C";"PRESS ANY KEY TO HALT LISTING": $1020.202 8::Z=1B::=23:=0::"79C";"WOULD YOU LIKE A PRINTED COPY?":1C$:C$<>"Y"C$<>"y"C$<>"N"C$<>"n"1170*C$="N"C$="n"79C";"PRESS ANY KEY TO HALT LISTING"::202 1020#2,B$(I),16,B)ž#242:::1160Z=1#2;A$:"78A";A$Z=Z+1:Z>1842:::Z=1980*:=23:=0::"79C";"CONTINUE...?":1C$:C$<>"Y"C$<>"y"C$<>"N"C$<>"n"10 MENU.MAKER TEXT MODULESEG=0"MENU.MAKER"890&*X=11000: TEXT SLOW-DOWN LOOP ,X.1,180,22:2,280,21:2,2380,23:z:A$="LISTING "+B$(I),16,B)$=01:=0::"80C";A$;::12)>=23:=0::" CLEAN.TR.DATA=".D1/SUTHARD" "TRAVEL.DATA""TRAVEL.DATA",C=I2A1$=3:"37c";line$:line$=I2A2$"37c";line$: 3990TRANSTYPE%=34130:ۺ4140"TRANSP$="Bus":,TRANSTYPE%=44150:ۺ41606TRANSP$="Boat":@TRANSTYPE%=54170:ۺ4180JTRANSP$="Automobile":TTRANSTYPE%=64190:ۺ42102^:=6:"Type of Transportation Used: ";TRANSP$hr|line$ine$:#line$=I2B4$+" "+I2B5$+" "+I2B6$"37c";line$:line$=I2C1$"37c";line$:TRANSTYPE%$ Translate Carrier Type to NameTRANSTYPE%=14090:ۺ4100TRANSP$="Airplane":TRANSTYPE%=24110:ۺ4120TRANSP$="Train": <3950%F"Date of Arrival: ";DARR$:3940 P3950%Z"Time of Arrival: ";TARR$:3940 d1700 n:=6,x=5:"37c";FinalFix1$+" "+FinalFix2$: ::' Input Type Transportation Routine#line$=I2B1$+" "+I2B2$+" "+I2B3$"37c";l"37c";line$: ::*"Identication Number: ";IDNUM$:3940 3950#"City of Origin: ";ORI$:3940 3950& "Destination City: ";DEST$:3940 3950'"Date of Departure: ";DDEP$:3940 (3950'2"Time of Departure: ";TDEP$:3940 Travelling: ";WHO$:3940-V Sub Routine Send on Type Transportation`jline$=I2A1$t=3:"37c";line$:~line$=I2A2$"37c";line$: 3990 3940 3950-"Name of Carrier Company: ";CARR$:3940 3950line$="("+Turn$+")"".D1/MENU.MAKER",220 d$="" A$="PRINTING "+B$(I),16,B)=01:=0::"80C";A$;:#3,B$(I),16,B)Z=1#3;b$:"78A";b$Z=Z+1:Z=18:1290 1260 #4,B$(I),16,B)#5,".PRINTER"+ž#4#5;12):::".D1/MENU.MAKER",220(204::"79A";""; 2D=1:F=1 <#4;a$ FD=D+1 P#5;a$ZD=60#5;12)dD=60D=1nF=F+1::d$;::Y=1100:Y x13402  CATCH PASCAL TEXT FILES 202 :F*=08:"78C";"SORRY BUT MENU.MAKER CAN'T R` .PRINTER /0.,)&#!    ~{ywpWPOJB<3+*$  }y h,pei,PJ( "Ј L2 "#/*$hhh` "',PO""#',P)  ʱ)  ʈ Ly,0"#   K,i"i# " O.J ní ,PJ(L\L "  L04"# O 0JH*h0,pH  "#`J)mJJJj0i(m``,PJ ,P H e,P%hL,P H e,Ph,p1 ,0 p  p,0I)M``,hhh hHHHHHL %&Ly)+/* "#~)L,P,P ,P `,0p@ A"# ,0LLLyGA3/1.01:7SY PSCREEN EAD PASCAL TEXT FILES."04=10:"78C";"ANY KEY RETURNS TO THE MENU."!>G$:::".D1/MENU.MAKER",320xwvumlkhgda^[XURQNIH80!}|hc_ hhh5h66 )5HH`@HLy,0׌ PNAME PSCREEN PSCREEN PRNAME PRNAME PNAME  E  Green) "YN$ZN$>"6"600[900]=16:=70:M$" "gN$="0"620 i800:#8lX=1600: vGLOAD.D$Z=1720bBD=16000B$="N"B$="n"=14:=44:"NO ":600 :B$)=27"MENU.MAKER",220MX=16:"Color? (0=Black;1=Red;2=Blue;3=Violet;4=Yellow;5=Orange;6=.MAKER",2202=14:"Add a border? ('Y', 'N', or 'ESCAPE')"B$&B$="Y"B$="y"=14:=44:"YES ":BD=1:B$="y"=12:=44:"YES ":N=1:530{B$="N"B$="n"=12:=44:"NO ":N=0:530 B$)=27"MENUB$="y"=10:=44:"YES ":CNDS=CNDS+57:480bB$="N"B$="n"=10:=44:"NO ":CNDS=CNDS+17:4805=12:"Include the name? ('Y', 'N', or 'ESCAPE')"B$|B$="Y""CENTERED ":430 B$)=27"MENU.MAKER",2205=10:"Rotate picture? ('Y', 'N', or 'ESCAPE')"B$ B$)=27"MENU.MAKER,220"bB$="Y"B$ԐB$="L"B$="l"CNDS=128:=8:=60:"LEFT ":430B$="C"B$="c"CNDS=0:=8:=60:":80"A$="2"330,A$="3"Z=1:330/6A$="4"::RELEASE:".D1/MENU.MAKER",220@270J^=0:=0::"79C";D$;:*h=23:=0::"79C";"PRINT GRAPHICS": rœ200E|=8:"Picture at left margin or centered? ('C','L', or 'Escape')"ENU.MAKER GRAPHICS":1=8:=20:"PRESS '1' TO SEE THE GRAPHIC ONLY"7=10:=20:"PRESS '2' TO SEE AND PRINT THE GRAPHIC"@=12:=20:"PRESS '3' TO SEE AND PRINT THE GRAPHIC INVERSED"2=14:=20:"PRESS '4' TO RETURN TO MENU.MAKER"A$A$="1CC>0160d=10:=40:"" nGLOAD.D$xXFROPTION(%6)MOVETO(%1,%190):#5D$8MOVETO(%1,%180):#5"ANY KEY QUITS TO GRAPHICS MENU" FILLPORT GRAFIXON C=C+1B$ :::=0:=0::"79C";D$;:/=23:=0::"79C";"M1 MENU.MAKER GRAPHICS MODULE (COLOR SUPPORT) SEG=0"MENU.MAKER"2".D1/BGRAF.INV",".D1/SCR.PRT.INV":INITGRAFIX#5,".GRAFIX"#CC=0(D$=B$(I),16,B)2name$=34)+D$+34)<C=1:N=0:Z=0:BD=0F200P INVERSE THE GRAPHICZC>1MOVETO(%0,%0):LINETO(%0,%191):LINETO(%559,%191):LINETO(%559,%0):LINETO(%0,%0):BD=0!N=1MOVETO(%1,%190):#5;D$ GRAFIXONPSCREEN(%CNDS)X=12000:X N$="0"800#8;12):#8:CC=CC+1:40XFROPTION(%6) FILLPORT=12:=40:""4  CHANGE COLOR (Epson compatable Color Printers)4COLOR$=27)+"r"+N$>#8,".PRINTER"H#8;COLOR$\  COLORS M$="0"+N$M$="00"M$="Black"M$="01"M$="Red"M$="02"M$="Blue"M$="03"M$="Violet" up your interpreter switcher for Three.EZ Pieces (.Ram Version) the interpreter should be set to "three.ep/EZ.interp" and the initial prefix to ".ram" Display Name: /// EZ Pieces .RAM Interpreter Prefix: .PROFILE/THREE.EP/EZ.INTERP er Prefix: .PROFILE/THREE.EP/EZ.INTERP Extra Drivers: Character Set Path: Screen: N Keyboard Path: Initial Prefix: .PROFILE/THREE.EP Max Files Allow Open: 0 Program Path: In settinguld look something like this and should remain there unless you are running out of room on your menu for those times when you don't want to clear .ram to run your program. It should look like this: Display Name: /// EZ Pieces Interpretogram which sets up the main menu for interpreter switching. If you have Selector /// or another switching program, the information you will need is most likely the interpreter prefix and the program path). The set up for your regular Three EZ Pieces shoILE.INV Codefile 8 *HELLO Basicprog 5 DOC Asciifile 4 UNLOAD Directory 1 *HELLO Basicprog 1 If you have CATALYST, now go to your Catalyst Edit program (the pr to be sos.interp) SEG.MN Unknown 256 SEG.ER Codefile 1 SEG.00 ProDos=FF 9 SEG.PR ProDos=FF 6 LOADER Directory 1 COPYFile Type Blocks THREE.EP Directory 1 EZ.INTERP ProDos=FF 24 (This file was SOS.Interp on your original--Change the name for easy identification-- since its not a boot disk, it does not havenderson's Public Domain Invokable Modual, "copyfile.inv." Then create a subdirectory on that level name "unload." Under that subdirectory, copy "ez.unload" and change its name to hello. Your file directory should look like this: /PROFILE Fdirectory address in the program needs to be changed from "/profile/three.ep" to whatever your hard disk is named. Create a subdirectory under "/three.ep" named "/loader" and when you copy "ez.load" to that directory, rename it "hello." Then copy Daryl A program to be selected at "boot up" time, and both programs can be selected from the main selector menu. All of your Three EZ.Pieces needs to be copied onto Profile hard disk under Subdirectory title: "Three.ep" If you have another hard disk, the file Instructions for the Business BASIC Programs: "EZ Loader" and "EZ Unload" These programs will Auto Load the Three EZ Pieces Program (Appleworks for the Apple ///) into ///+//e .Ram and then clear the .ram disk as needed. CATALYST permits the autoloadM$="04"M$="Yellow"M$="05"M$="Orange"M$="06"M$="Green") MENU.MAKER GRAPHICS MODULE (v 6.0) Extra Drivers: Character Set Path: Screen: N Keyboard Path: Initial Prefix: .RAM Max Files Allow Open: 0 Program Path: For the EZ.Load, the interpreter should be set to the BASIC interpreter (normally CATALYST BASIC under CATALYST, or if you may install your SOS.Interp from your latest BASIC update disk as BASIC.INTERP under a subdirectory called BASIC as I have) and the initial prefix should be "Three.ep/loader." DisplayhhL5|{Ll1`|{Ll7X`|{Ll7~  y`|{Ll  z`|{Llȳ`L{|xyz`荀566 5̀`566 5``Xhqhrhshthuhv     7w 7 F | ^   [w7 F " h|숭{ hrHqH`hhLMLGA3/1.06REMO COPYFILE to return to the MAIN MENU. following menu or manual directions. In Catalyst, you press [ESCAPE] and then press 5 from the menu to update the "interps" file. After that, you can choose "no" on the next prompt that requires your original catalyst disk to be in .D1 and then hit "7" a Drivers: Character Set Path: Screen: N Keyboard Path: Initial Prefix: .PROFILE/THREE.EP/LOADER/UNLOAD Max Files Allow Open: 0 Program Path: Update your CATALYST (or other switcher program) by Program Path: The Unload program should be set up the same way except that the initial prefix should be set to "Three.ep/loader/unload." Display Name: Unload 3 EZ RAM Interpreter Prefix: BASIC/BASIC.INTERP Extr Name: Load 3 EZ into RAM Interpreter Prefix: BASIC/BASIC.INTERP Extra Drivers: Character Set Path: Screen: N Keyboard Path: Initial Prefix: .PROFILE/THREE.EP/LOADER Max Files Allow Open: 0   LhhHHHH l5m6m6  ЙW5X6X6 ` 5`MD32KA;6hWhXhhhQlhRm e Nb YMH YhLSꈭTXHWH`g##6 >?Bi{Ci|) |=! "LL{@?>8(O\ F9 >{i 5|i6) 6|8 L5{ hhhh0 hWhXXL `L5 GA3/1.01:7SY CONTROL BOQUETvX4' ')WORLD.POP GX;X8CONVERT X X9COPYFILE COPYFILE {xwvutsrqpmlkji_\[ZWVTQOLKJGFCBA><98621/+{Llȳ``|{Ll|{Llʿ``,yZ Ty,zZ Tz`|{LlY`gf`,x x` x`~}|{xwvutsrqponmjfcb`[NDCBA@>=7ca` hhh5h66HH :5HHH) @  hhh g5ȱg6ȱg@ ɀL g eegghI8e556l6m `  hUhVh8 ㅊ eh֭VHUHk`HFB>;:9853/&" NL64Ch5h6h3lh4m 0/L6H5H`g8640'%76,V^dKA;6hWhXhhhQlhRm e Nb YMH YhLSꈭTXHWH`gGA3/1.01:7SY GETFONT  > >">>""">>> >""">>">><>""> >>""""  IIII>"""">""">>"">>""> >">> >><$$$$<"""AIII"""""> >>>  00`00**?!%%;??!###?!##??!#?!!###????!9##?!!?!### 001! ##??IIIKKK')))++3?!!!##??!!??!!)+/?!!?##??00?? !!!###?!!##"AAIIKK! !!!!!? ?? @< <6c~ 66$""""">> >G%tRq  .     > >>@ ? ??? >>>>~B@x????????FILWRITE FILWRITEGETRFNM RTRFNM ERROR ^ROR DOARRAY OARRAY  ERROR ?BUFPNT NT DEVINFO DEVINFO MOVESTR FILREAD FILREAD BUF :4 GETRFNM BUFPNT OJNT ERROR ROR DOARRAY e=TPARMSERROR uROR BUFPNT BMOVESTR REQNUM UUM BLDSTRN DSTRN BUF pia RETURN RETADR  GETPARMSFREQNUM BUF "CONTROL CONTROL RETURN RETADR GETPARMS TPARMSERROR ROR STATUS STATUS BLDSTRN ,BUF |F GETPARMSca` hhh5h66HH :5HHH) @  hhh g5ȱg6ȱg@ ɀL g eegghI8e556l6m `  hUhVh8 ㅊ eh֭VHUHk`HFBhzh{ Qghhh5h66 HHH566 qyhhhpx{HzH`~DDDDDDDD"""DDDDDDDDD3L3L3L3DUUY{ *VM3L""""""D2L3L3L3LDD".+bfEL3L""""""DTS IN Y DDDDDD""""""""DDDDDDL3L3LCUUUUvpg3L3"""""HD"3L3L3L3 DDUUe @yUD3L#"""""DTAX,DELTROGRAM ON THIS SIDE TO PRINT IT." KEY$'KEY$="A"KEY$="a"RELEASE:,1007KEY$="B"KEY$="b"RELEASE:::".D1/MENU.MAKER"~$ <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>>>88  >!"*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>>xrr|>00000>0# #0>>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >> " )((8*,;((*,((+)((9/(p((>3  =9 :9 .(~|L|LNqooGoDDDcc0ccpc]]c"QM"|@@pAATT**|GA7  3  5  GETFONT GETFONT DOARRAY2QLOADFONT LOADFONTDOARRAY2ARRAY2 Y5ȱg6ȱg@ ɀLDg eegghI8e556l6m`  lmL}\ZYc&h:h; (+65;H:H`,.CONSOLEg<:/.-+*(% CX`hhh5h66HH :~5~HHH|})   |}) @  hhh gDDDD"""""""""""HDDDD LDDUe!oPk* DL3 """""D"3L3L3L3LDD YE4L#""""""DDOU CAN DDDD"""""""""""""HDDD0DUf],niDL3L"""""DD!""L3L3L3L3L3L3 """""""DD BELOW A