Fakename_Bill [he/him] to Main • 4 years agoI'm a bad leftist, I own an Apple productimagemessage-square26 fedilinkarrow-up183cross-posted to: art
arrow-up181imageI'm a bad leftist, I own an Apple productFakename_Bill [he/him] to Main • 4 years agomessage-square26 Commentsfedilinkcross-posted to: art
minus-squareFakename_Bill [he/him]hexagonhexbear6·edit-24 years agoHere spoiler 10 GR 20 COLOR=1 30 J=0 40 C=1 50 FOR Y=0 TO 39 60 IF C=9 THEN C=C+1 70 COLOR = C 80 FOR X=0 TO 39 90 PLOT X,Y 100 NEXT X 110 J=J+1 120 IF J=3 THEN C=C+1 130 IF J=3 THEN J=0 140 NEXT Y 150 COLOR = 9 160 FOR Y=0 TO 38 170 READ N 180 FOR J=1 TO N 190 READ X 200 PLOT X,Y 210 NEXT J 220 NEXT Y 230 HOME 240 PRINT "" 250 PRINT " COMMUNISM WILL WIN!" 260 GOTO 270 270 GOTO 260 1000 DATA 2,20,21 1010 DATA 2,21,22 1020 DATA 3,21,22,23 1030 DATA 4,22,23,24,25 1040 DATA 4,23,24,25,26 1050 DATA 6,14,15,24,25,26,27 1060 DATA 10,13,14,15,16,17 1070 DATA 18,25,26,27,28 1080 DATA 12,12,13,14,15,16 1090 DATA 17,18,25,26,27,28 1100 DATA 29 1110 DATA 11,11,12,13,14,15 1120 DATA 16,17,26,27,28,29 1130 DATA 11,10,11,12,13,14 1140 DATA 15,16,27,28,29,30 1150 DATA 11,9,10,11,12,13,14 1160 DATA 15,27,28,29,30 1170 DATA 11,8,9,10,11,12,13 1180 DATA 14,15,28,29,30 1190 DATA 14,7,8,9,10,11,12 1200 DATA 13,14,15,16,28,29,30 1210 DATA 31 1220 DATA 15,7,8,9,10,11,12 1230 DATA 13,14,15,16,17,28 1240 DATA 29,30,31 1250 DATA 14,8,9,10,11,12,13 1260 DATA 14,15,16,17,18,29 1270 DATA 30,31 1280 DATA 13,9,10,11,12,14,15 1290 DATA 16,17,18,29,30,31 1300 DATA 32 1310 DATA 11,10,11,15,16,17 1320 DATA 18,19,29,30,31,32 1330 DATA 9,16,17,18,19,20,29 1340 DATA 30,31,32 1350 DATA 9,17,18,19,20,21,30 1360 DATA 31,32,33 1370 DATA 9,18,19,20,21,22,30 1380 DATA 31,32,33 1390 DATA 8,19,20,21,22,30,31 1400 DATA 32,33 1410 DATA 9,19,20,21,22,23,30 1420 DATA 31,32,33 1430 DATA 9,20,21,22,23,24,30 1440 DATA 31,32,33 1450 DATA 9,21,22,23,24,25,30 1460 DATA 31,32,33 1470 DATA 9,22,23,24,25,26,29 1480 DATA 30,31,32 1490 DATA 9,22,23,24,25,26,29 1500 DATA 30,31,32 1510 DATA 9,23,24,25,26,27,29 1520 DATA 30,31,32 1530 DATA 11,13,14,24,25,26 1540 DATA 27,28,29,30,31,32 1550 DATA 11,12,13,14,15,25 1560 DATA 26,27,28,29,30,31 1570 DATA 12,11,12,13,14,15 1580 DATA 16,26,27,28,29,30 1590 DATA 31 1600 DATA 14,10,11,12,13,14 1610 DATA 15,16,17,25,26,27 1620 DATA 28,29,30 1630 DATA 17,9,10,11,12,14,15 1640 DATA 16,17,18,19,24,25 1650 DATA 26,27,28,29,30 1660 DATA 22,8,9,10,11,12,15 1670 DATA 16,17,18,19,20,21 1680 DATA 22,23,24,25,26,27 1690 DATA 28,29,30,31 1700 DATA 22,7,8,9,10,11,16 1710 DATA 17,18,19,20,21,22 1720 DATA 23,24,25,26,27,28 1730 DATA 29,30,31,32 1740 DATA 19,7,8,9,10,17,18 1750 DATA 19,20,21,22,23,24 1760 DATA 25,26,29,30,31,32 1770 DATA 33 1780 DATA 15,6,7,8,9,19,20,21 1790 DATA 22,23,24,30,31,32 1800 DATA 33,34 1810 DATA 11,6,7,8,9,21,22,30 1820 DATA 31,32,33,34 1830 DATA 6,6,7,8,31,32,33 1840 DATA 3,6,7,32 link
Who wants the BASIC source code?
Here
spoiler
10 GR
20 COLOR=1
30 J=0
40 C=1
50 FOR Y=0 TO 39
60 IF C=9 THEN C=C+1
70 COLOR = C
80 FOR X=0 TO 39
90 PLOT X,Y
100 NEXT X
110 J=J+1
120 IF J=3 THEN C=C+1
130 IF J=3 THEN J=0
140 NEXT Y
150 COLOR = 9
160 FOR Y=0 TO 38
170 READ N
180 FOR J=1 TO N
190 READ X
200 PLOT X,Y
210 NEXT J
220 NEXT Y
230 HOME
240 PRINT ""
250 PRINT " COMMUNISM WILL WIN!"
260 GOTO 270
270 GOTO 260
1000 DATA 2,20,21
1010 DATA 2,21,22
1020 DATA 3,21,22,23
1030 DATA 4,22,23,24,25
1040 DATA 4,23,24,25,26
1050 DATA 6,14,15,24,25,26,27
1060 DATA 10,13,14,15,16,17
1070 DATA 18,25,26,27,28
1080 DATA 12,12,13,14,15,16
1090 DATA 17,18,25,26,27,28
1100 DATA 29
1110 DATA 11,11,12,13,14,15
1120 DATA 16,17,26,27,28,29
1130 DATA 11,10,11,12,13,14
1140 DATA 15,16,27,28,29,30
1150 DATA 11,9,10,11,12,13,14
1160 DATA 15,27,28,29,30
1170 DATA 11,8,9,10,11,12,13
1180 DATA 14,15,28,29,30
1190 DATA 14,7,8,9,10,11,12
1200 DATA 13,14,15,16,28,29,30
1210 DATA 31
1220 DATA 15,7,8,9,10,11,12
1230 DATA 13,14,15,16,17,28
1240 DATA 29,30,31
1250 DATA 14,8,9,10,11,12,13
1260 DATA 14,15,16,17,18,29
1270 DATA 30,31
1280 DATA 13,9,10,11,12,14,15
1290 DATA 16,17,18,29,30,31
1300 DATA 32
1310 DATA 11,10,11,15,16,17
1320 DATA 18,19,29,30,31,32
1330 DATA 9,16,17,18,19,20,29
1340 DATA 30,31,32
1350 DATA 9,17,18,19,20,21,30
1360 DATA 31,32,33
1370 DATA 9,18,19,20,21,22,30
1380 DATA 31,32,33
1390 DATA 8,19,20,21,22,30,31
1400 DATA 32,33
1410 DATA 9,19,20,21,22,23,30
1420 DATA 31,32,33
1430 DATA 9,20,21,22,23,24,30
1440 DATA 31,32,33
1450 DATA 9,21,22,23,24,25,30
1460 DATA 31,32,33
1470 DATA 9,22,23,24,25,26,29
1480 DATA 30,31,32
1490 DATA 9,22,23,24,25,26,29
1500 DATA 30,31,32
1510 DATA 9,23,24,25,26,27,29
1520 DATA 30,31,32
1530 DATA 11,13,14,24,25,26
1540 DATA 27,28,29,30,31,32
1550 DATA 11,12,13,14,15,25
1560 DATA 26,27,28,29,30,31
1570 DATA 12,11,12,13,14,15
1580 DATA 16,26,27,28,29,30
1590 DATA 31
1600 DATA 14,10,11,12,13,14
1610 DATA 15,16,17,25,26,27
1620 DATA 28,29,30
1630 DATA 17,9,10,11,12,14,15
1640 DATA 16,17,18,19,24,25
1650 DATA 26,27,28,29,30
1660 DATA 22,8,9,10,11,12,15
1670 DATA 16,17,18,19,20,21
1680 DATA 22,23,24,25,26,27
1690 DATA 28,29,30,31
1700 DATA 22,7,8,9,10,11,16
1710 DATA 17,18,19,20,21,22
1720 DATA 23,24,25,26,27,28
1730 DATA 29,30,31,32
1740 DATA 19,7,8,9,10,17,18
1750 DATA 19,20,21,22,23,24
1760 DATA 25,26,29,30,31,32
1770 DATA 33
1780 DATA 15,6,7,8,9,19,20,21
1790 DATA 22,23,24,30,31,32
1800 DATA 33,34
1810 DATA 11,6,7,8,9,21,22,30
1820 DATA 31,32,33,34
1830 DATA 6,6,7,8,31,32,33
1840 DATA 3,6,7,32