home *** CD-ROM | disk | FTP | other *** search
/ Explore the World of Soft…ids, Adults, Educational / RocelcoInc-ExploreTheWorldOfSoftware-KidsAdultsEducational-Vol2-Shareware.iso / educate / disk057 / a3.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-03-15  |  896 b   |  23 lines
  1. 0  ' ====> A3.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:CHAIN "data1",,ALL
  5. 4  PG=4:PG$="04":GOSUB 100:CHAIN "ifthen",,ALL
  6. 5  PG=5:PG$="05":GOSUB 100:CHAIN "data2",,ALL
  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  RUN "a0"
  13. 100  SCREEN 0,0,0:WIDTH 80:KEY OFF:COLOR C1,C2:CLS:OPEN "i",#1,"a"+LSN$+".txt"
  14. 101  FOR I=1 TO PG
  15. 102  LINE INPUT#1,A$:IF LEFT$(A$,5)<>"-----" THEN 102
  16. 103  NEXT I
  17. 104  LINE INPUT#1,A$:IF LEFT$(A$,5)="-----" THEN LIN=CSRLIN:CLOSE:GOTO 108
  18. 105  POS1=INSTR(A$,"|"):POS2=INSTR(A$,"~"):IF POS1=0 THEN PRINT A$:GOTO 104
  19. 106  PRINT LEFT$(A$,POS1-1);:COLOR C3,C4:PRINT MID$(A$,POS1+1,POS2-POS1-1);:COLOR C1,C2
  20. 107  A$=RIGHT$(A$,LEN(A$)-POS2):GOTO 105
  21. 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
  22. 109  OPEN "o",#1,"data.dat":WRITE#1,MONO,LSN$,PG:CLOSE:RETURN
  23.