1000 REM KEY OFF 1001 DEFINT A-Z 1010 REM Trap error opening input file 1020 ON ERROR GOTO 1600 1030 REM CLS 1040 REM LOCATE 5,11 1050 PRINT STRING$(40," ") 1060 REM LOCATE 5,11 1070 INPUT "Enter name of input file: ", INFILE$ 1080 OPEN "I",#1,INFILE$ 1090 REM LOCATE 8,10 1100 PRINT STRING$(40," ") 1110 REM Trap error opening output file 1120 ON ERROR GOTO 1640 1130 REM LOCATE 8,10 1140 INPUT "Enter name of output file: ", OUTFILE$ 1150 OPEN "R",#2,OUTFILE$,1 1160 FIELD #2,1 AS N$ 1170 REM Trap error at end of file 1180 ON ERROR GOTO 1680 1190 REM Search for header line 1200 LINE INPUT #1,A$ 1210 IF LEFT$(A$,5) <>"begin" THEN 1200 1220 REM LOCATE 11,10 1230 PRINT "Header = ";A$ 1240 SP = ASC(" ") 1250 DIM BUF(100) 1260 RECNO# = 1 1270 REM Main loop 1280 LINE INPUT #1, A$ 1290 P = 0 1300 BYTES = ASC(LEFT$(A$,1)) - SP 1310 IF BYTES = 64 THEN BYTES = 0 1320 IF BYTES = 0 THEN 1560 1330 COUNT% = INT(BYTES/3+.9): COUNT%=COUNT%*4 1340 FOR I = 2 TO COUNT% STEP 4 1350 X1 = ASC(MID$(A$,I,I)) - SP 1360 IF X1 = 64 THEN X1 = 0 1370 X2 = ASC(MID$(A$,I+1,I+1)) - SP 1380 IF X2 = 64 THEN X2 = 0 1390 X3 = ASC(MID$(A$,I+2,I+2)) - SP 1400 IF X3 = 64 THEN X3 = 0 1410 X4 = ASC(MID$(A$,I+3,I+3)) - SP 1420 IF X4 = 64 THEN X4 = 0 1440 IF P