andrewb

HAPPY.BAS

Oct 18th, 2020
572
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. 0 REM BE HAPPY!!!
  2. 1 GR:HOME:ONERR GOTO 9
  3. 2 READ X,Y,Z,D,C
  4. 3 COLOR=C
  5. 4 FOR I = X TO Y
  6. 5 IF D=0 THEN PLOT I,Z
  7. 6 IF D=1 THEN PLOT Z,I
  8. 7 NEXT I
  9. 8 GOTO 2
  10. 9 END
  11. 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
RAW Paste Data