[Simh] rsts - basic plus qustion...

[Kevin Handy]

Ron Hudson wrote:

>
> 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 "+---+","+---+","+---+","+---+","+---+","+---+"
>
>
Data statements are not "normal". They don't continue
like you would like them to. The 6th item becomes
'"+-6-+" DATA "|   |"'. Change the data line to

30000   DATA "+-1-+","+-2-+","+-3-+","+-4-+","+-5-+","+-6-+",            &
       "|   |","|O  |","|O  |","|O O|","|O O|","|O O|",            &
       "| O |","|   |","| O |","|   |","| O |","|O O|",            &
       "|   |","|  O|","|  O|","|O O|","|O O|","|O O|",            &
       "+---+","+---+","+---+","+---+","+---+","+---+"

> 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
>
> _______________________________________________
> Simh mailing list
> Simh at trailing-edge.com
> http://mailman.trailing-edge.com/mailman/listinfo/simh
>