home *** CD-ROM | disk | FTP | other *** search
/ TCE Demo 2 / TCE_DEMO_CD2.iso / demo_cd_.2 / mags / stosser / stoser12.arj / stoser12.msa / AD_BOOK / BOOK.BAS (.txt)
Atari STOS Basic  |  1987-04-22  |  3KB  |  38 lines
  1. 10 KEY
  2. 100 LOCATE
  3. 110 LOCATE
  4. 120 LOCATE
  5. 125 REM --OPEN THIRD WINDOW FOR PROGRAM INFO
  6. 130 WINDOPEN
  7. 140 CENTRE
  8. 145 REM --LEAVE WINDOW AND GOTO SCREEN
  9. 15 REM --SET UP ARRAYS FOR FILE INFO
  10. 150 QWINDOW
  11. 155 REM --PRINT FIELD NAMES
  12. 160 LOCATE
  13. 170 LOCATE
  14. 180 LOCATE
  15. 190 LOCATE
  16. 20 DIM
  17. 200 LOCATE
  18. 210 LOCATE
  19. 220 LOCATE
  20. 225 LOCATE
  21. 230 REM --WAIT FOR AN INPUT
  22. 240 VARNAME
  23. 25 REM --SET UP VARIBLES
  24. 250 REM --CHECK WHICH KEY HAS BEEN PRESS
  25. 260 IF
  26. 270 IF
  27. 30 VARNAME
  28. 35 REM --OPEN FIRST WINDOW AND ENTER TITLE"
  29. 40 WINDOPEN
  30. 5 REM ---ADDRESS BOOK
  31. 50 CDOWN
  32. 55 REM --OPEN SECOND WINDOW AND ENTER OPTIONS"
  33. 60 WINDOPEN
  34. 6306 VARNAME
  35. 70 LOCATE
  36. 80 LOCATE
  37. 90 LOCATE
  38.