[Simh] rsts - basic plus qustion...
Ron Hudson
ron.hudson at sbcglobal.net
Mon Oct 25 13:13:47 EDT 2004
10000 EXTEND
10030 RESTORE
&
\ FOR I = 1 TO 5
&
\ FOR J = 1 TO 6
&
\ READ D$
&
\ PRINT D$
&
\ NEXT J
&
\ NEXT I
30000 DATA "+-1-+","+-2-+","+-3-+","+-4-+","+-5-+","+-6-+"
&
\ DATA "| |","|O |","|O |","|O O|","|O O|","|O O|"
&
\ DATA "| O |","| |","| O |","| |","| O |","|O O|"
&
\ DATA "| |","| O|","| O|","|O O|","|O O|","|O O|"
&
\ DATA "+---+","+---+","+---+","+---+","+---+","+---+"
Only reads the top 5 data lines then quits with a
run
MYAHT 09:11 AM 25-Oct-84
+-1-+
+-2-+
+-3-+
+-4-+
+-5-+
%Data format error at line 10030
Ready
why not read +-6-+ ?
ron
More information about the Simh
mailing list