HAPPY.BAS

0 REM BE HAPPY!!!
1 GR:HOME:ONERR GOTO 9
2 READ X,Y,Z,D,C
3 COLOR=C
4 FOR I = X TO Y
5 IF D=0 THEN PLOT I,Z
6 IF D=1 THEN PLOT Z,I
7 NEXT I
8 GOTO 2
9 END
20 DATA 10,20,1,0,13,10,20,2,0,13,8,22,3,0,13,8,22,4,0,13,6,24,5,0,13,6,24,6,0,13,5,25,7,0,13,5,25,8,0,13,4,26,9,0,13,4,26,10,0,13,4,26,11,0,13,3,27,12,0,13,3,27,13,0,13,3,27,14,0,13,3,27,15,0,13,3,27,16,0,13,3,27,17,0,13,3,27,18,0,13,3,27,19,0,13,3,27,20,0,13,3,27,21,0,13,3,27,22,0,13,3,27,23,0,13,3,27,24,0,13,3,27,25,0,13,3,27,26,0,13,3,27,27,0,13,3,27,28,0,13,4,26,29,0,13,4,26,30,0,13,4,26,31,0,13,5,25,32,0,13,5,25,33,0,13,6,24,34,0,13,6,24,35,0,13,8,22,36,0,13,8,22,37,0,13,10,20,38,0,13,10,20,39,0,13,10,15,10,1,0,10,15,20,1,0,26,32,8,1,0,26,32,22,1,0,9,21,33,0,0