[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