1 CALL "INIT" 5 CALL "SCAL"(0,0,1000,1000) 10 CALL "APNT"(0,1000,0,-5) 11 FOR L=1 TO 3 12 IF L<>2 THEN 14 13 CALL "STAT"(-1) 14 FOR I=1 TO 4 15 FOR J=1 TO 24 16 CALL "TEXT"(CHR$(32+24*(I-1)+(J-1))," ") 18 NEXT J 20 CALL "TEXT"(2) 22 NEXT I 30 FOR K=0 TO 30 32 CALL "TEXT"(-1,CHR$(64+K)," ") 34 NEXT K 36 CALL "TEXT"(4) 40 CALL "STAT"(1) 50 NEXT L 100 END