Graphics Toolkit

Gallery

Source Code

  10 REM \2A\10\40\11\06\00\19\01\40\04\11\C0\77\ED\B0\3A\25\40\FE\F7\20\F9\21\C0\77\22\04\40\C9
  20 POKE 31737,0
  30 POKE 31736,24
  90 PRINT AT 4,0;
 100 PRINT "\ .\:'\':\. \':\:'\:. \ .\:'\:. \':\:'\:.\ '% \' \':\:'\ '\':\:'\' \.:\''\:.\ .\:'\':\. "
 110 PRINT "\ :\:   \ :\: %  \ :\: %  \ :\: %  %  \ :\:  \ :\:  %  \''\ :\: \ '\' "
 120 PRINT "\ :\:   \ :\: %  \ :\: %  \ :\: %  %  \ :\:  \ :\:  %   \ '\:.\.."
 130 PRINT "\ :\: \':\: \ :\:'\:. \ :\:'%  \ :\:'\'  % \''\':\:  \ :\:  %     \ :\: "
 140 PRINT "\ :\: \ :\: \ :\: %  \ :\: %  \ :\:   %  \ :\:  \ :\:  %  \..\ .\. \ :\: "
 150 PRINT "\ '\:.\.:\' \.:\: % \. \.:\: % \. \.:\:. \ .% \. \.:\:.\ .\.:\:.\. \':\..\:'\ '\:.\.:\' "
 160 PRINT 
 170 PRINT "   \:'% \':\ .\:'\':\. \.:\''\:.\ '% \'  \':\:'\ :\:'\ '\':\:'\' \:'% \':"
 180 PRINT "    %  \ :\: \ :\: %  %  %   \ :\: \.:\:  \ :\:   % "
 190 PRINT "    %  \ :\: \ :\: %  %  %   \ :\:.\:'  \ :\:   % "
 200 PRINT "    %  \ :\: \ :\: %  %  %   \ :\: %   \ :\:   % "
 210 PRINT "    %  \ :\: \ :\: %  %  %   \ :\: \':\:  \ :\:   % "
 220 PRINT "   \ .% \. \ '\:.\.:\' \':\..\:'\ .% \..\: \.:\: \ :\:.\ .\.:\:.\. \ .% \. "
 221 PRINT 
 222 PRINT 
 223 PRINT "  (C) PAUL HOLMES 1982"
 225 RAND USR 31152
 230 SAVE "GRTOO%L"
 240 RAND USR 16514
 250 IF PEEK 27394<>179 THEN NEW 
 260 STOP 

  10 REM SNAKE:\..>\.:>\':>\..>\: A%":
  20 REM CACTUS:\##>">\##V\##<"<\##<"<\##V\##>\##>\##>\##>\##V"<"<\##V\##V\##:
  30 PRINT AT 12,3;"THIS IS %G%R%A%P%H%I%C%S% %T%O%O%L%K%I%T"
  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 "DEM%O"
 990 RUN 
 999 STOP 
1000 FOR Z=1 TO 10
1010 NEXT Z
1020 RETURN