0001 ! Lists BASIC programs' leading remark(s) if any
0002 ! Requires PEEKUTIL and BASICLEX
0003 ! by Joseph K. Horn [13] 1/1/87
0010 INPUT "Filename? ";F$
0020 A=HTD(ADDR$(F$))+49 @ E=PEEK(A-17,5)-17+A
0021 ! A = BASIC code start; E = BASIC code end.
0030 IF RPEEK$(A-33,4)#"E214" THEN END 
0031 ! Quit if file isn't BASIC.
0040 IF A>=E THEN END 
0041 ! Loop start.  Quit if end of file is reached.
0050 IF RPEEK$(A+6,2)#"FC" AND RPEEK$(A+6,2)#"E6" THEN A=A+2 @ GOTO 70 ! OR .. THEN END 
0051 ! Quit if the line isn't a REM or !.
0060 PRINT LIST$(VAL(RPEEK$(A,4)),F$) @ A=A+2
0061 ! Print just the remark, not the line number.
0070 A=A+PEEK(A+2,2)+2 @ IF PEEK(A)=4 THEN 70 ELSE A=A+2 @ GOTO 40
0071 ! Move pointer to next line and loop back to line 40.