ZX81 filename : [GRAPHICS-TOOLKIT-DEMO-19XX---GRAPHICS-TOOLKIT-DEMO-19XX--]
File type : Cassette
Video frame buffer at : 490D (Video buffer expanded)
BASIC variables begin at : 4C26
End of save area : 4C27
Video mode : PAL 50Hz
Next BASIC line : 490D (doesn't seem to autostart)

BASIC listing
------------------------------------------------
10 REM SNAKE:?>?>?>?>?A":
20 REM CACTUS:?>">?V?<"<?<"<?V?>?>?>?>?V"<"<?V?V?:
30 PRINT AT 12,3;"THIS IS GRAPHICS TOOLKIT"
40 POKE 31742,151
50 POKE 30989,22
60 RAND USR 31017
70 FOR I=1 TO 200
80 NEXT I
90 POKE 31743,0
95 POKE 31737,0
100 POKE 31736,24
110 FOR I=1 TO 10
115 GOSUB 1000
120 RAND USR 31152
130 NEXT I
140 FOR I=1 TO 100
150 NEXT I
160 PRINT AT 8,3;"I CAN BE USED IN A PROGRAM"
170 PRINT AT 10,3;"TO SCROLL IN ALL DIRECTIONS"
180 FOR I=1 TO 100
190 NEXT I
200 FOR I=1 TO 32
210 RAND USR 30696
220 NEXT I
230 FOR I=1 TO 32
240 RAND USR 30699
250 NEXT I
260 FOR I=1 TO 24
270 RAND USR 31666
280 NEXT I
290 FOR I=1 TO 24
300 RAND USR 30656
310 NEXT I
320 FOR I=1 TO 200
330 NEXT I
340 PRINT AT 10,3;"TO SET A BACKGROUND "
350 FOR I=1 TO 100
360 NEXT I
370 RAND USR 30962
380 POKE 31361,23
390 POKE 31740,0
400 FOR I=1 TO 37
410 POKE 31741,I
420 RAND USR 31351
430 NEXT I
440 POKE 31741,27
450 RAND USR 31351
460 FOR I=1 TO 100
470 NEXT I
480 PRINT AT 10,3;"TO TURN SCREEN ON OR OFF "
490 FOR I=1 TO 200
500 NEXT I
510 FOR I=1 TO 10
520 RAND USR 30705
530 GOSUB 1000
540 RAND USR 30702
550 GOSUB 1000
560 NEXT I
570 FOR I=1 TO 100
580 NEXT I
590 PRINT AT 10,3;"TO MOVE SHAPES BEHIND OTHERS"
600 FOR I=1 TO 200
610 NEXT I
620 PRINT AT 14,20;
630 POKE 31738,20
640 RAND USR 30946
645 POKE 31738,10
650 FOR I=1 TO 26
660 PRINT AT 18,I;
670 RAND USR 30946
680 GOSUB 1000
690 RAND USR 30954
700 NEXT I
710 FOR I=1 TO 100
720 NEXT I
730 PRINT AT 10,3;"TO SEARCH AND REPLACE CHARS."
740 FOR I=1 TO 200
750 NEXT I
755 FOR I=0 TO 63
760 POKE 31730,I
770 POKE 31731,RND*63
780 RAND USR 31398
785 NEXT I
790 FOR I=1 TO 100
800 NEXT I
810 CLS
820 PRINT AT 12,2;"TO DRAW RECTANGLES OR SQUARES"
830 FOR I=1 TO 100
840 NEXT I
850 FOR I=1 TO 10
860 LET A=RND*31
870 LET B=RND*21+22
880 LET X=RND*31+32
890 LET Y=RND*21
900 PLOT A,B
910 POKE 31733,X
920 POKE 31732,Y
925 RAND USR 31329
930 NEXT I
940 FOR I=1 TO 200
950 NEXT I
960 CLS
970 RUN
980 SAVE "GRDEMO"
990 RUN
999 STOP
1000 FOR Z=1 TO 10
1010 NEXT Z
1020 RETURN
------------------------------------------------