home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / STOSSER / STOSSE28.MSA / GIVEAWAY.028_DEANO_DEANO.ZIP / TEXTOP.BAS (.txt) < prev    next >
Atari STOS Basic  |  1989-07-29  |  3KB  |  41 lines
  1. 10 KEY
  2. 100 WAIT VBL
  3. 101 WAIT VBL
  4. 110 SET ZONE
  5. 120 BAR
  6. 130 VARNAME
  7. 140 IF
  8. 145 IF
  9. 146 IF
  10. 150 VARNAME
  11. 152 IF
  12. 155 IF
  13. 160 IF
  14. 170 IF
  15. 180 GOTO
  16. 20 VARNAME
  17. 30 REM SET UP SCREEN
  18. 40 INK
  19. 42 INK
  20. 45 VARNAME
  21. 50 BAR
  22. 500 REM 
  23. 510 FOR
  24. 520 REM 
  25. 530 VARNAME
  26. 540 LOGIC
  27. 545 LOGIC
  28. 550 REPEAT
  29. 560 VARNAME
  30. 570 IF
  31. 580 EXTENSION (Index #16) (Token 0x84)
  32. 590 SCREEN SWAP
  33. 60 LOCATE
  34. 600 LOGIC
  35. 610 REM THIS BIT DOES THE ZOOM
  36. 620 IF
  37. 630 INC
  38. 650 ZOOM
  39. 660 RETURN
  40. 70 INK
  41.