gistfile1.txt

10 MODE 1
20 F=OPENIN("IMAGE1")
30 X=0:Y=0
40 VDU 19,1,7:VDU 19,1,7
50 VDU 19,2,6:VDU 19,2,6
60 VDU 19,3,4:VDU 19,3,4
100 FOR L=0 TO 499
110  INPUT#F,CHUNK$
120  PROC_DRAWPOINT(1):PROC_DRAWPOINT(2):PROC_DRAWPOINT(3):PROC_DRAWPOINT(4):PROC_DRAWPOINT(5)
130  PROC_DRAWPOINT(6):PROC_DRAWPOINT(7):PROC_DRAWPOINT(8):PROC_DRAWPOINT(9):PROC_DRAWPOINT(10)
140  PROC_DRAWPOINT(11):PROC_DRAWPOINT(12):PROC_DRAWPOINT(13):PROC_DRAWPOINT(14):PROC_DRAWPOINT(15)
150  PROC_DRAWPOINT(16):PROC_DRAWPOINT(17):PROC_DRAWPOINT(18):PROC_DRAWPOINT(19):PROC_DRAWPOINT(20)
160  PROC_DRAWPOINT(21):PROC_DRAWPOINT(22):PROC_DRAWPOINT(23):PROC_DRAWPOINT(24):PROC_DRAWPOINT(25)
170  PROC_DRAWPOINT(26):PROC_DRAWPOINT(27):PROC_DRAWPOINT(28):PROC_DRAWPOINT(29):PROC_DRAWPOINT(30)
180  PROC_DRAWPOINT(31):PROC_DRAWPOINT(32):PROC_DRAWPOINT(33):PROC_DRAWPOINT(34):PROC_DRAWPOINT(35)
190  PROC_DRAWPOINT(36):PROC_DRAWPOINT(37):PROC_DRAWPOINT(38):PROC_DRAWPOINT(39):PROC_DRAWPOINT(40)
200  PROC_DRAWPOINT(41):PROC_DRAWPOINT(42):PROC_DRAWPOINT(43):PROC_DRAWPOINT(44):PROC_DRAWPOINT(45)
210  PROC_DRAWPOINT(46):PROC_DRAWPOINT(47):PROC_DRAWPOINT(48):PROC_DRAWPOINT(49):PROC_DRAWPOINT(50)
220  PROC_DRAWPOINT(51):PROC_DRAWPOINT(52):PROC_DRAWPOINT(53):PROC_DRAWPOINT(54):PROC_DRAWPOINT(55)
230  PROC_DRAWPOINT(56):PROC_DRAWPOINT(57):PROC_DRAWPOINT(58):PROC_DRAWPOINT(59):PROC_DRAWPOINT(60)
240  PROC_DRAWPOINT(61):PROC_DRAWPOINT(62):PROC_DRAWPOINT(63):PROC_DRAWPOINT(64):PROC_DRAWPOINT(65)
250  PROC_DRAWPOINT(66):PROC_DRAWPOINT(67):PROC_DRAWPOINT(68):PROC_DRAWPOINT(69):PROC_DRAWPOINT(70)
260  PROC_DRAWPOINT(71):PROC_DRAWPOINT(72):PROC_DRAWPOINT(73):PROC_DRAWPOINT(74):PROC_DRAWPOINT(75)
270  PROC_DRAWPOINT(76):PROC_DRAWPOINT(77):PROC_DRAWPOINT(78):PROC_DRAWPOINT(79):PROC_DRAWPOINT(80)
280  PROC_DRAWPOINT(81):PROC_DRAWPOINT(82):PROC_DRAWPOINT(83):PROC_DRAWPOINT(84):PROC_DRAWPOINT(85)
290  PROC_DRAWPOINT(86):PROC_DRAWPOINT(87):PROC_DRAWPOINT(88):PROC_DRAWPOINT(89):PROC_DRAWPOINT(90)
300  PROC_DRAWPOINT(91):PROC_DRAWPOINT(92):PROC_DRAWPOINT(93):PROC_DRAWPOINT(94):PROC_DRAWPOINT(95)
310  PROC_DRAWPOINT(96):PROC_DRAWPOINT(97):PROC_DRAWPOINT(98):PROC_DRAWPOINT(99):PROC_DRAWPOINT(100)
320  PROC_DRAWPOINT(101):PROC_DRAWPOINT(102):PROC_DRAWPOINT(103):PROC_DRAWPOINT(104):PROC_DRAWPOINT(105)
330  PROC_DRAWPOINT(106):PROC_DRAWPOINT(107):PROC_DRAWPOINT(108):PROC_DRAWPOINT(109):PROC_DRAWPOINT(110)
340  PROC_DRAWPOINT(111):PROC_DRAWPOINT(112):PROC_DRAWPOINT(113):PROC_DRAWPOINT(114):PROC_DRAWPOINT(115)
350  PROC_DRAWPOINT(116):PROC_DRAWPOINT(117):PROC_DRAWPOINT(118):PROC_DRAWPOINT(119):PROC_DRAWPOINT(120)
360  PROC_DRAWPOINT(121):PROC_DRAWPOINT(122):PROC_DRAWPOINT(123):PROC_DRAWPOINT(124):PROC_DRAWPOINT(125)
370  PROC_DRAWPOINT(126):PROC_DRAWPOINT(127):PROC_DRAWPOINT(128):PROC_DRAWPOINT(129):PROC_DRAWPOINT(130)
380  PROC_DRAWPOINT(131):PROC_DRAWPOINT(132):PROC_DRAWPOINT(133):PROC_DRAWPOINT(134):PROC_DRAWPOINT(135)
390  PROC_DRAWPOINT(136):PROC_DRAWPOINT(137):PROC_DRAWPOINT(138):PROC_DRAWPOINT(139):PROC_DRAWPOINT(140)
400  PROC_DRAWPOINT(141):PROC_DRAWPOINT(142):PROC_DRAWPOINT(143):PROC_DRAWPOINT(144):PROC_DRAWPOINT(145)
410  PROC_DRAWPOINT(146):PROC_DRAWPOINT(147):PROC_DRAWPOINT(148):PROC_DRAWPOINT(149):PROC_DRAWPOINT(150)
420  PROC_DRAWPOINT(151):PROC_DRAWPOINT(152):PROC_DRAWPOINT(153):PROC_DRAWPOINT(154):PROC_DRAWPOINT(155)
430  PROC_DRAWPOINT(156):PROC_DRAWPOINT(157):PROC_DRAWPOINT(158):PROC_DRAWPOINT(159):PROC_DRAWPOINT(160)
900 NEXT
910 CLOSE#F
999 END
1000 DEF PROC_DRAWPOINT(P%)
1010  C$=MID$(CHUNK$,P%,1)
1020  IF C$="0" GCOL 0,0
1030  IF C$="1" GCOL 0,1
1040  IF C$="2" GCOL 0,2
1050  IF C$="3" GCOL 0,3
1060  MOVE X,1012-Y:DRAW X,1012-Y
1070  PROC_NEXT
1080 ENDPROC
2000 DEF PROC_NEXT
2010  X=X+4
2020  IF X>1279 THEN Y=Y+4
2030  IF X>1279 THEN X=0
2040 ENDPROC