home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Set of Apple II Hard Drive Images
/
hard.hdv
/
HARD
/
SOURCE
/
TEST
/
TESTPDLREAD
(
.txt
)
< prev
next >
Encoding:
Amiga
Atari
Commodore
DOS
FM Towns/JPY
Macintosh
Macintosh JP
Macintosh to JP
NeXTSTEP
RISC OS/Acorn
Shift JIS
UTF-8
Wrap
Applesoft BASIC Source Code
|
2001-10-03
|
99 b
|
7 lines
|
[FC] Applesoft BASIC Program (0x0801)
5 CALL 8192 +4 *256
7 C = 0
10 FOR I = 8192 +2 *256 TO 8192 +3 *256 -1
20 IF PEEK(I) >127 THEN C = C +1
30 NEXT I
40 PRINT C
50 GOTO 5