Set of Apple II Hard Drive Images/hard.hdv/HARD/SPEECH/GRABSYSX.BAS

Applesoft BASIC Source Code | 1997-12-17 | 87 b | 8 lines | [FC] Applesoft BASIC Program (0x0801)

5  CALL 4096
10 X = 8192
20 C =  PEEK(X)
30  IF C = 0  THEN 100
40  PRINT  CHR$( PEEK(X));
50 X = X +1
60  GOTO 20
100  GOTO 5