home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / ST_USER / 1990 / USERMY90.MSA / LISTINGS_PROG3B.BAS (.txt) < prev    next >
Atari STOS Basic  |  1990-03-02  |  7KB  |  52 lines
  1. 21000 REM hiscore2
  2. 21010 MODE
  3. 21020 WINDOPEN
  4. 21030 CURS
  5. 21040 DIM
  6. 21050 FOR
  7. 21055 VARNAME
  8. 21060 LOCATE
  9. 21070 FOR
  10. 21080 PRINT
  11. 21090 NEXT
  12. 21100 GOTO
  13. 21200 IF
  14. 21210 GOSUB
  15. 21220 VARNAME
  16. 21230 FOR
  17. 21240 IF
  18. 21250 NEXT
  19. 22000 REM Hiscore 3b
  20. 22010 REM ==========
  21. 22020 RESERVE
  22. 22030 SCREEN COPY
  23. 22040 VARNAME
  24. 22050 FOR
  25. 22060 SET ZONE
  26. 22070 BOX
  27. 22080 INC
  28. 22090 BOX
  29. 22100 SET ZONE
  30. 22110 BOX
  31. 22120 SET ZONE
  32. 22130 BOX
  33. 22140 SET ZONE
  34. 22150 SHOW
  35. 22160 VARNAME
  36. 22170 VARNAME
  37. 22180 IF
  38. 22190 IF
  39. 22200 IF
  40. 22210 WEND
  41. 22220 FOR
  42. 22230 NEXT
  43. 22240 IF
  44. 22250 RETURN
  45. 22260 IF
  46. 22270 WHILE
  47. 22280 IF
  48. 22290 VARNAME
  49. 22300 IF
  50. 22310 VARNAME
  51. 22320 GOTO
  52.