Życie Wieczne

Piotr-246 · Gość

Przykładowy program, pokazujący jak w jednej tablicy przechować kilka rysunków.
Trzeba znać początek kolejnych rysunków, przy czym każdy rysunek zawiera nagłówek formatujący.

SCREEN 13
DIM a(0 TO 51) AS LONG
LINE (0, 0)-(9, 9), 1, BF
LINE (10, 0)-(19, 9), 2, BF
LINE (0, 0)-(9, 9), 15
LINE (10, 0)-(19, 9), 15

GET (0, 0)-(9, 9), a(0)
GET (10, 0)-(19, 9), a(26)
PUT (20, 20), a(0)
PUT (30, 30), a(26)