A header-reader program that is a must for anyone who wants to transfer multi-load programs to another tape or disc format.
Content
Image Gallery
Source Code
9970 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: ";
9985 IF b=1 THEN PRINT "numeric array: ";
9986 IF b=2 THEN PRINT "character array: ";
9987 IF b=3 THEN PRINT "bytes: ";
9988 FOR a=64061 TO 64070: LET b=PEEK a: PRINT CHR$ b;: NEXT a: PRINT
9989 LET b=PEEK a+256*PEEK (a+1): PRINT "data length: ";b
9990 LET a=a+2: LET b=PEEK a+256*PEEK (a+1): IF s=3 THEN PRINT "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
9994 LET a=a+2: LET b=PEEK a+256*PEEK (a+1): PRINT "prog/vars length: ";b
9995 PRINT ''''"for another tape, touch any key"
9996 PAUSE 0: GO TO 9975