home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 1: Collection A / 17Bit_Collection_A.iso / files / 989.dms / 989.adf / Education / EduDoc (.txt) < prev    next >
AmigaBASIC Source Code  |  1990-04-30  |  822b  |  54 lines
  1. ' Education
  2. CLS:CLEAR,25000
  3. SCREEN 4,316,200,4,1
  4. WINDOW 2,"",,2,4
  5. PALETTE 0,0,0,0
  6. PALETTE 1,0,0,0
  7. PALETTE 15,1,1,1
  8. COLOR 15,0
  9. ON BREAK GOSUB ender2
  10. BREAK ON
  11. OPEN "J:educationtex" FOR INPUT AS 1
  12. getit:
  13. LINE INPUT #1,a$
  14. q=INSTR(a$,"]")
  15. IF q=5 THEN GOSUB set: GOTO chisel:
  16. a$=a$+STRING$(40-LEN(a$),32)
  17. chisel:
  18. PRINT a$
  19. l=l+1
  20. IF l=22 THEN GOSUB pause
  21. IF EOF(1) THEN ender:
  22. GOTO getit
  23. pause:
  24. LOCATE 23,1
  25. COLOR 9,0
  26. PRINT "LEFT MOUSE = Continue   CTRL-C = End";
  27. COLOR a,b
  28. WHILE MOUSE(0)<1
  29. WEND
  30. CLS
  31. l=0
  32. RETURN
  33.  
  34. set:
  35. a=VAL(LEFT$(a$,2))
  36. b=VAL(MID$(a$,3,2))
  37. COLOR a,b
  38. a$=MID$(a$,6)
  39. a$=a$+STRING$(40-LEN(a$),32)
  40. RETURN
  41.  
  42. ender:
  43. LOCATE 23,1
  44. COLOR 2,9
  45. PRINT "        Click left mouse to end.       ";
  46. WHILE MOUSE(0)<1
  47. WEND
  48. ender2:
  49. WINDOW CLOSE 2
  50. SCREEN CLOSE 4
  51. SYSTEM
  52. END
  53.  
  54.