Advertisement
shdon

Drawing the Twitter logo in QBasic

Jun 27th, 2023
1,965
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
QBasic 0.42 KB | Source Code | 0 0
  1. DEFINT A-Z
  2. SCREEN 7
  3. DO
  4.   READ x, y, r
  5.   c = 9 - SGN(SGN(r) + 1) * 9
  6.   CIRCLE (x, y), ABS(r), 15, , , 1
  7.   PAINT STEP(0, 0), 14, 15
  8.   PAINT STEP(0, 0), c, 15
  9.   CIRCLE STEP(0, 0), ABS(r), c, , , 1
  10. LOOP UNTIL x = 185
  11. DATA 148, 83, -56, 120, 79, 51, 148, 103, -19, 136, 89, 20, 140, 90, -19
  12. DATA 131, 73, 19, 140, 74, -19, 166, 89, -19, 165, 33, 51, 197, 64, -17
  13. DATA 204, 55, 19, 193, 57, -19, 186, 18, 51, 185, 81, -19
  14.  
  15.  
Tags: qbasic
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement