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