1000 CLR:POKE53265,27:POKE53280,6:POKE53281,3:POKE54296,0
1010 GOSUB4000:INPUT"";N$
1020 FORI=1TOLEN(N$)+2:POKE4099+I,ASC(MID$(N$+"",I)):NEXT:POKE4146,LEN(N$)+2
1030 FORI=1TOLEN(N$)+2:POKE4661+I,ASC(MID$(N$+"",I)):NEXT:POKE4632,LEN(N$)+2
1040 :
1050 A$="":GOSUB4000
1060 A$="":GOSUB5000
1070 A$="":GOSUB5000
1080 A$="":GOSUB5000
1090 POKE198,0:WAIT198,1:GETA$:IFA$<>CHR$(13)THEN1090
1100 :
1110 :
1120 A$="":GOSUB4000
1130 B=5120:M$="":OPEN15,8,15:FORI=0TO2:A=256*I
1140 FORJ=0TO255:PRINT#15,M$CHR$(J)CHR$(I+4)CHR$(1)CHR$(PEEK(B+A+J)):NEXT
1150 NEXT:PRINT#15,""CHR$(3)CHR$(4)
1160 A$="":GOSUB4000
1170 :
1180 :
1190 CLOSE15:OPEN15,8,15,"":GOSUB3000
1200 A$="":GOSUB4000
1210 :
1220 OPEN2,8,2,"":GOSUB3000
1230 PRINT#15,"":GOSUB3000
1240 :
1250 FORI=0TO255:PRINT#2,CHR$(PEEK(I+4096));:NEXT:GOSUB3000
1260 CLOSE2:GOSUB3000
1270 :
1280 T=37:S=12:FORI=1TO5:GOSUB2000:NEXT
1290 S=11:GOSUB2000
1300 :
1310 A$="":GOSUB4000
1320 OPEN2,8,2,"":GOSUB3000
1330 PRINT#15,"":GOSUB3000
1340 PRINT#15,""
1350 PRINT#2,"";
1360 PRINT#15,""
1370 PRINT#2,"";
1380 PRINT#15,"":GOSUB3000
1390 CLOSE2:GOSUB3000:PRINT#15,""
1400 :
1410 A$="":GOSUB4000
1420 OPEN2,8,2,"":GOSUB3000
1430 FORI=0TO73:PRINT#2,CHR$(PEEK(I+4608));:NEXT:GOSUB3000
1440 CLOSE2:PRINT#15,"":GOSUB3000
1450 :
1460 :
1470 PRINT"":GOTO3020
1480 :
1490 :
1500 :
2000 PRINT""
2010 PRINT#15,""CHR$(6)CHR$(0)CHR$(2)CHR$(T)CHR$(S)
2020 PRINT#15,""CHR$(0)CHR$(0)CHR$(1)CHR$(144)
2030 :
2040 PRINT#15,""CHR$(0)CHR$(0):GET#15,A$:A=ASC(A$+CHR$(0)):IFAAND128THEN2040
2050 IFA<2THENRETURN
2060 PRINT"":GOTO3020
2070 :
2080 :
3000 INPUT#15,E,E$,T,S:IFE<2THENRETURN
3010 PRINT""E;E$T;S
3020 CLOSE15:END
3030 :
3040 :
4000 B$=A$:PRINT"":A$="":GOSUB5000
4010 A$="":GOSUB5000
4020 A$="":GOSUB5000
4030 PRINT""
4040 PRINT""
4050 A$=B$
4060 :
4070 :
5000 PRINT:PRINTTAB((39−LEN(A$))/2+.6)A$:RETURN
5010 :
5020 :
6000 REM (C) 10-31-1985 BY COSMOS
6010 REM ALL RIGHTS RESERVED
READY.
