BASICButch

Untitled

Apr 22nd, 2020
1,118
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. 'Date: 8/18/2018
  2. 'Use: Create decorative lined paper using the attached printer.
  3.  
  4. Width% = 80
  5. Length% = 30
  6. Nearbottom = 0
  7. Floor: 'come back for the footer
  8.  
  9. LPRINT "O"; 'left corner
  10. FOR Roof = 2 TO Width% - 1
  11.     LPRINT "="; 'middle
  12. NEXT
  13. LPRINT "O" 'right corner
  14. IF Nearbottom = 1 THEN END 'if the footer was just completed
  15.  
  16.  
  17. FOR Walls = 1 TO Length% - 2
  18.     LPRINT "|";
  19.     FOR Lines = 2 TO Width% - 1
  20.         LPRINT "_";
  21.     NEXT
  22.     LPRINT "|"
  23. NEXT
  24. Roof = 2
  25. Nearbottom = 1
  26. GOTO Floor
RAW Paste Data