4 POKE55,0:POKE56,90:CLR
5 DV=PEEK(186):IFDV<8THENDV=8
6 DEFFNL(X)=X-FNH(X)*256
7 DEFFNH(X)=INT(X/256)
8 DEFFNI(X)=PEEK(X)+256*PEEK(X+1)
10 PRINT"[147]":POKE53281,0:POKE53280,0:GOSUB60000
100 PRINT"[144]L[207]"CHR$(34)"TEMP"CHR$(34)","DV
101 PRINT"RUN":POKE198,2:POKE631,13:POKE632,13
200 READA$,A:IFA=0THEN300
201 SYS57812A$,DV,0:POKE780,0:POKE781,FNL(A):POKE782,FNH(A):SYS65493:GOTO200
210 DATA"TOOLBOX117 C001",49152
211 DATA"DTEXT.STRINGER",4096
212 DATA"TEMP.TBS",57344
213 DATA"TEMP.FONT",61440
299 DATA"",0
300 SYS4096,"P.TEMP.QUE",DV,124*256
310 SYS4096,"P.TEMP.RES",DV,143*256
320 POKEPEEK(FNI(174)),0
400 Q=32:POKE44,Q:POKEQ*256,0:END
10000 D=PEEK(186):N$="B.TEMPERAMENT":OPEN15,D,15,"S0:"+N$:CLOSE15:SAVEN$,D:END
59999 END
60000 PRINT"[147]":Z$=" [152]                                      ":POKE214,10:PRINT
60010 PRINT" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]":FORI=0TO10:PRINTZ$:NEXT
60020 PRINT" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
60030 Z$(0)="[212] [197] [205] [208] [197] [210] [193] [205] [197] [206] [212]":Z$(1)="BY [210]EV. [196]AVE [205]OORMAN
60040 Z$(3)[178]"(LEN) 1996 BY MID$ & ASC (null)UBLISHING, RIGHT$NC."
60050 Z$(5)[178]"(null)HIS PROGRAM IS NOT SHAREWARE
60070 Z$(6)="OR IN THE PUBLIC DOMAIN."
60080 Z$(8)="1-800-594-3370 OR 1-318-221-8718
60090 [151]214,12:[153]
60100 [129]I[178]0[164]8:[153][163]20[171]([195](Z$(I))[173]2))""Z$(I):[130]:[142]