home *** CD-ROM | disk | FTP | other *** search
/ FreeWare Collection 2 / FreeSoftwareCollection2pd199x-jp.img / fbasic / sprplay / sprdoc.bas next >
BASIC Source File  |  1990-06-14  |  844b  |  26 lines

  1. 10 '*******************************************************************
  2. 20 '** BASIC起動状態で、テキストファイルを見るプログラムです。 **
  3. 30 '** 20行づつ読み込んで表示します。次を見る時は、マウスの左ボタ **
  4. 40 '** ンを押して下さい。                      **
  5. 50 '*******************************************************************
  6. 60 CLS
  7. 70 MOUSE 0
  8. 80 OPEN "I",#1,"a:\ftowns1\log02"
  9. 90 '---------------------------------
  10. 100 '    INPUT "ファイル名 ",FL$
  11. 110 '    OPEN "I",#1,FL$
  12. 120 '---------------------------------
  13. 130 I=0
  14. 140  I=I+1
  15. 150    LINE INPUT  #1,A$
  16. 160    PRINT A$
  17. 170    IF I<20 THEN GOTO 220
  18. 180      IF MOUSE(2,0)=0 THEN GOTO 180 
  19. 190      IF MOUSE(2,0)=-1 THEN GOTO 190
  20. 200    PRINT "*--------"
  21. 210    I=0
  22. 220  IF NOT EOF(1) THEN GOTO 140
  23. 230 CLOSE #1
  24. 250 MOUSE 5
  25. 260 END
  26.