Anonymous user
Fixed length records: Difference between revisions
m
→Forth Blocks
m (→Forth Blocks) |
m (→Forth Blocks) |
||
Line 690:
For i=1 to Block`Number-1
Call DisplayBlock(Blocks`File$, i)
Print "Press any key"
Push key$ : Drop
Next i
Event Doit Drop Disp()
| |||