home *** CD-ROM | disk | FTP | other *** search
/ Explore the World of Soft…ids, Adults, Educational / RocelcoInc-ExploreTheWorldOfSoftware-KidsAdultsEducational-Vol2-Shareware.iso / educate / disk057 / a4.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-03-15  |  1.0 KB  |  27 lines
  1. 0  ' ====> A4.bas
  2. 1  PG=1:PG$="01":GOSUB 100:NEW
  3. 2  PG=2:PG$="02":GOSUB 100:NEW
  4. 3  PG=3:PG$="03":GOSUB 100:NEW
  5. 4  PG=4:PG$="04":GOSUB 100:NEW
  6. 5  PG=5:PG$="05":GOSUB 100:NEW
  7. 6  PG=6:PG$="06":GOSUB 100:NEW
  8. 7  PG=7:PG$="07":GOSUB 100:NEW
  9. 8  PG=8:PG$="08":GOSUB 100:NEW
  10. 9  PG=9:PG$="09":GOSUB 100:NEW
  11. 10  PG=10:PG$="10":GOSUB 100:NEW
  12. 11  PG=11:PG$="11":GOSUB 100:NEW
  13. 12  PG=12:PG$="12":GOSUB 100:NEW
  14. 13  PG=13:PG$="13":GOSUB 100:NEW
  15. 14  PG=14:PG$="14":GOSUB 100:NEW
  16. 15  CHAIN "a0"
  17. 100  SCREEN 0,0,0:WIDTH 80:KEY OFF:COLOR C1,C2:CLS:OPEN "i",#1,"a"+LSN$+".txt"
  18. 101  FOR I=1 TO PG
  19. 102  LINE INPUT#1,A$:IF LEFT$(A$,5)<>"-----" THEN 102
  20. 103  NEXT I
  21. 104  LINE INPUT#1,A$:IF LEFT$(A$,5)="-----" THEN LIN=CSRLIN:CLOSE:GOTO 108
  22. 105  POS1=INSTR(A$,"|"):POS2=INSTR(A$,"~"):IF POS1=0 THEN PRINT A$:GOTO 104
  23. 106  PRINT LEFT$(A$,POS1-1);:COLOR C3,C4:PRINT MID$(A$,POS1+1,POS2-POS1-1);:COLOR C1,C2
  24. 107  A$=RIGHT$(A$,LEN(A$)-POS2):GOTO 105
  25. 108  COLOR C2,C1:LOCATE 25:PRINT "Pg "+LSN$+".";PG$;"  --";CHR$(26);"  F1 BACKUP  F2 FORWARD  F3 REPEAT  F8 MENU  F9 CONTENTS  F10 INDEX";:COLOR C1,C2:LOCATE LIN,1
  26. 109  OPEN "o",#1,"data.dat":WRITE#1,MONO,LSN$,PG:CLOSE:RETURN
  27.