home *** CD-ROM | disk | FTP | other *** search
/ Play and Learn 2 / 19941.ZIP / 19941 / EDUCICAL / MMBIOTUT / MMINSTRU.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1994-02-04  |  855 b   |  32 lines
  1. 100  DEFINT A-Z:COLOR 0,0,0:CLS:SCREEN 0,1:WIDTH 40
  2. 101  COMMON UMSEG%()
  3. 105  KEY OFF:FOR I=1 TO 10:KEY I,"":NEXT:COLOR 3,1
  4. 115  OPEN "MMINSTRU.TXT" FOR INPUT AS #1
  5. 120  K = 0
  6. 125  LOCATE 1,6,0:PRINT STRING$(31,4)
  7. 130  LOCATE 2,6,0:PRINT CHR$(4);STRING$(29,32);CHR$(4)
  8. 135  K = K+1:IF K = 18 THEN 170
  9. 140  IF EOF(1) THEN 300
  10. 142  IF LEFT$(N$,3) = "OPE" THEN LOCATE ,6,0:PRINT CHR$(4);"  ";N$+" ";CHR$(4):K=K+1
  11. 144  IF LEFT$(N$,6)="PROCED" THEN LOCATE ,6,0:PRINT CHR$(4);"  ";N$+" ";CHR$(4):K=K+1
  12. 145  INPUT #1,N$
  13. 150  IF LEFT$(N$,3) = "OPE" THEN 300
  14. 155  IF LEFT$(N$,6)="PROCED" THEN 300
  15. 160  LOCATE ,6,0:PRINT CHR$(4);"  ";N$;" ";CHR$(4)
  16. 165  GOTO 135
  17. 170  LOCATE 20,6,0:PRINT CHR$(4);STRING$(29,32);CHR$(4)
  18. 175  LOCATE 21,6,0:IF NOT EOF(1) THEN PRINT CHR$(4)+" (PRESS ANY KEY TO CONTINUE) "+CHR$(4) ELSE PRINT CHR$(4)+"   (PRESS ANY KEY TO EXIT)   "+CHR$(4)
  19. 185  LOCATE 22,6,0:PRINT STRING$(31,4)
  20. 190  A$ = INKEY$: IF A$ = "" THEN 190
  21. 191  COLOR 0,0:CLS:COLOR 3,1
  22. 192  IF EOF(1) THEN CLOSE #1:CHAIN "MMHELLO",1000
  23. 195  GOTO 120
  24. 300  K = 18 - K
  25. 305  FOR Z = 1 TO K
  26. 310  LOCATE ,6,0:PRINT CHR$(4);STRING$(29,32);CHR$(4)
  27. 315  NEXT Z
  28. 320  K = 0
  29. 330  GOTO 170
  30. 350  END
  31. 1000  GOTO 100
  32.