home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / MUCH / MSG01.MSA / SOURCE_PSG6.BAS (.txt) < prev    next >
Atari STOS Basic  |  1993-06-25  |  7KB  |  34 lines
  1. 1 GOSUB
  2. 100 REM READ PSG 6
  3. 101 UNKNOWN OP: 0x3A
  4. 102 VARNAME
  5. 103 FOR
  6. 104 NEXT
  7. 105 IF
  8. 106 IF
  9. 107 IF
  10. 110 COLOUR
  11. 111 COLOUR
  12. 112 COLOUR
  13. 119 RETURN
  14. 2 DIM
  15. 3 RESTORE
  16. 4 DATA
  17. 45 DREG
  18. 46 GOSUB
  19. 47 REM ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  20. 48 REM           MAIN LOOP
  21. 49 REM ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  22. 5 DATA
  23. 50 PEN
  24. 50000 MODE
  25. 50009 RETURN
  26. 51 PEN
  27. 53 VARNAME
  28. 59 REM LOOP
  29. 6 DATA
  30. 60 GOSUB
  31. 90 VARNAME
  32. 98 IF
  33. 99 GOTO
  34.