home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / ST_USER / 1990 / USERMY90.MSA / LISTINGS_PROG3.BAS (.txt) < prev    next >
Atari STOS Basic  |  1990-03-02  |  3KB  |  53 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 3
  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 VARNAME
  38. 22190 VARNAME
  39. 22200 IF
  40. 22210 IF
  41. 22220 IF
  42. 22230 IF
  43. 22240 IF
  44. 22250 WEND
  45. 22260 FOR
  46. 22270 NEXT
  47. 22280 IF
  48. 22290 CLW
  49. 22300 MID$
  50. 22310 LOCATE
  51. 22320 WHILE
  52. 22330 RETURN
  53.