1 'FUTIL copr. (c) 1985 Acroatix Inc.
2 CLEAR256:GOSUB20:CLS:IFMAXRAM=HIMEMTHEN5
3 PRINT"(L)oad or (S)ave? ";:A=INPUT$(1):PRINTA:IFA=CHR$(13)ORA="Q"ORA="q"THEN19ELSEIFA="S"ORA="s"THEN10ELSEIFA<>"L"ANDA<>"l"THENBEEP:GOTO3
4 IFMAXRAM>HIMEMTHENPRINTMAXRAM-HIMEM;"bytes already reserved.":PRINT"Continue";:GOSUB16:IFNOTKTHEN3
5 F="":INPUT"File to Load (ENTER=quit)";F:IFF=""THEN19
6 GOSUB26:IFJTHENBEEP:GOTO5ELSEX=U+PEEK(T+2)+N*PEEK(T+3)-1:GOSUB29:CLEAR256,X:GOSUB25:GOSUB17
7 IFFRE(0)<HIMEM-U+200THEN9ELSEGOSUB29:CLEARN,U:GOSUB25:LOADMF:GOSUB25:GOSUB27:KILLF+".CO":IFB="Y"ANDJ=0THENPRINT:PRINT"Execute";:GOSUB16:IFKTHENCALLR
8 GOTO19
9 GOSUB29:CLEARN,HIMEM-N:GOSUB25:V=VARPTR(BB):GOSUB24:CALLX,0,T:GOTO7
10 INPUT"File to Save";F:GOSUB27:IFJTHENPRINT"No ";F;" in DATA":GOTO18ELSEIFHIMEM<>PTHENPRINT"HIMEM mismatch":GOTO18ELSEGOSUB17:KEY4,"run 13"+CHR$(13):X=P:IFFRE(0)>Q-P+20THENKEY4,"run 12"+CHR$(13):X=Q
11 GOSUB29:PRINT"Press F4 to Continue":SAVEMF,P,X,R
12 CLEAR256,MAXRAM:GOTO2
13 GOSUB25
14 I=Q-HIMEM:IFI=0THEN12ELSEIFI>255THENI=255
15 V=VARPTR(AA):GOSUB24:CALLX,IAND255,T:GOSUB29:CLEARN,HIMEM+I:GOSUB25:GOTO14
16 PRINT"? ";:A=INPUT$(1):K=((ASC(A)OR32)=121):PRINTA:RETURN
17 IFFRE(0)>500THENRETURNELSEPRINT"Need at least";550-FRE(0);"more bytes":PRINT"free."
18 PRINT"Press any key":A=INPUT$(1)
19 KEY4,"Run"+CHR$(13):MENU
20 DEFSTRA-G:DEFINTI-N:N=256
21 A="##^#":D="V###"+CHR$(25)+"¯G":E="*°û	"+CHR$(34)+"°û":AA="åõõ"+A+D+"ñOÍmkØÅë*ôõ#ÍÛkÁ¯G"+CHR$(5)+"y/<O"+E+"ñá##†wÐ#4É"
22 BB=A+"5"+D+"ëÕ*ôõ#Íi4H"+CHR$(4)+"áÅÍŸkÁ"+E+"É":CC="ëÍ©Z#^#Vë"+CHR$(34)+"ˆöÀ!ÿÿ"+CHR$(34)+"ˆöÉ"
23 Z=64704:RETURN
24 X=PEEK(V+1)+N*PEEK(V+2):RETURN
25 PRINT".";:GOSUB20:Q=PEEK(Z-2)+256*PEEK(Z-1):FORI=1TOPEEK(Z):F=F+CHR$(PEEK(Z+I)):NEXT
26 J=0:C=F+".CO"+CHR$(0):V=VARPTR(C):GOSUB24:Y=X:V=VARPTR(CC):GOSUB24:CALLX,0,Y:T=PEEK(63112)+N*PEEK(63113):IFT=65535THENJ=1:RETURNELSEU=PEEK(T)+N*PEEK(T+1):RETURN
27 RESTORE
28 J=0:READC:IFC="EOF."THENJ=1:RETURNELSEREADP,Q,R,B:IFC=FTHENRETURNELSE28
29 POKEZ-2,Q-N*INT(Q/N):POKEZ-1,INT(Q/N):POKEZ,LEN(F):FORJ=1TOLEN(F):POKEZ+J,ASC(MID$(F,J,1)):NEXT:RETURN
990 '
999 ' fmt: name, TOP,   END,   EXE, Y/N
1000 DATA TMPC, 53143, 62735, 53179, Y
10000 '
10010 'the following must be last line:
10020 DATA "EOF."
                                               