Reads the headers of programs on tape.
Appears on
One of a series of library tapes. Programs on these tapes were renamed to a number series. This tape contained programs 20001 to 20050. These tapes were compiled by Tony Willing.
Source Code
9969 REM "header" for reading tape headers 9970 CLEAR 63999: FOR a=64000 TO 64052: READ b: POKE a,b: NEXT a 9971 CLEAR 63999: FOR a=64000 TO 64052: READ b: POKE a,b: NEXT a 9975 CLS : PRINT ''''" Load a tape and press PLAY"'''' 9980 DATA 55,62,0,221,33,60,250,17,17,0,205,14,250,201,33,252,0,205,34,250,58,33,250,211,244,219,255 9981 DATA 203,191,211,255,251,201,0,243,245,219,255,203,255,211,255,219,244,50,33,250,62,1,211,244,241,233 9982 RANDOMIZE USR 64000 9983 LET a=64060: LET b=PEEK a: LET s=b 9984 IF b=0 THEN PRINT "Program: ";: LPRINT "program: "; 9985 IF b=1 THEN PRINT "Numeric Array: ";: LPRINT "Numeric Array: "; 9986 IF b=2 THEN PRINT "Character Array: ";: LPRINT "Character Array: "; 9987 IF b=3 THEN PRINT "Bytes: ";: LPRINT "Bytes: "; 9988 FOR a=64061 TO 64070: LET b=PEEK a: PRINT CHR$ b;: LPRINT CHR$ b;: NEXT a: PRINT : LPRINT 9989 LET b=PEEK a+256*PEEK (a+1): PRINT "Data Length: ";b: LPRINT "Data Length: ";b 9990 LET a=a+2: LET b=PEEK a+256*PEEK (a+1): IF s=3 THEN PRINT "Start Address: ";b: LPRINT "Start Address: ";b 9991 IF s<>0 THEN GO TO 9995 9992 IF b<1 OR b>9999 THEN GO TO 9994 9993 PRINT "Auto Start at: ";b: LPRINT "Auto Start at: ";b 9994 LET a=a+2: LET b=PEEK a+256*PEEK (a+1): PRINT "Prog/Vars Length: ";b: LPRINT "Prog/Vars Length: ";b 9995 PRINT ''''"For another tape, touch any key" 9996 PAUSE 0: GO TO 9975