home *** CD-ROM | disk | FTP | other *** search
/ Explore the World of Soft…ids, Adults, Educational / RocelcoInc-ExploreTheWorldOfSoftware-KidsAdultsEducational-Vol2-Shareware.iso / educate / disk057 / a0.bas (.txt) next >
Encoding:
GW-BASIC  |  1984-03-15  |  2.3 KB  |  40 lines
  1. 0  ' ====> A0.bas
  2. 1  OPEN"i",#1,"data.dat":INPUT#1,MONO,LSN$,PAGE:CLOSE
  3. 2  IF MONO THEN C1=7:C2=0:C3=8:C4=2 ELSE C1=(VAL(RIGHT$(TIME$,2)) MOD 6)+2:C2=0:C4=0:C3=(C1+2)+(6*(C1>5))
  4. 3  KEY 1,"RUN"+CHR$(34)+"BACKUP"+CHR$(34)+CHR$(13)
  5. 4  KEY 2,"RUN"+CHR$(34)+"FORWARD"+CHR$(34)+CHR$(13)
  6. 5  KEY 3,"RUN"+CHR$(34)+"REPEAT"+CHR$(34)+CHR$(13)
  7. 6  FOR I=4 TO 7:KEY I,"":NEXT I
  8. 7  KEY 8,"RUN"+CHR$(34)+"a0"+CHR$(34)+CHR$(13)
  9. 8  KEY 9,"RUN"+CHR$(34)+"CONTENTS"+CHR$(34)+CHR$(13)
  10. 9  KEY 10,"RUN"+CHR$(34)+"INDEX"+CHR$(34)+CHR$(13)
  11. 10  SCREEN 0,0,0:WIDTH 80:KEY OFF:COLOR C2,C1:CLS
  12. 11  TEMP$=CHR$(31)+CHR$(29)+CHR$(178)
  13. 12  TASSLE$=CHR$(218)+CHR$(31)+CHR$(29)+CHR$(179)+CHR$(31)+CHR$(29)+CHR$(234)+TEMP$+TEMP$+TEMP$+TEMP$+TEMP$+TEMP$+TEMP$+TEMP$+TEMP$
  14. 13  LOCATE 2,24,0:PRINT "The BASIC Prof. -- Beginning BASIC"
  15. 14  LOCATE 4,20:PRINT TASSLE$:LOCATE 4,21:PRINT STRING$(19,196);STRING$(2,219)
  16. 15  LOCATE 5,21:PRINT STRING$(40,219):LOCATE 6,26:PRINT STRING$(30,219)
  17. 16  LOCATE 8,38:PRINT "Press:"
  18. 17  LOCATE 10,24:COLOR C1,C2:PRINT " K ";:COLOR C2,C1:PRINT "for the keyboard introduction,"
  19. 18  LOCATE 11,24:COLOR C1,C2:PRINT " 1 ";:COLOR C2,C1:PRINT "to begin lesson number one,"
  20. 19  LOCATE 12,24:COLOR C1,C2:PRINT " 2 ";:COLOR C2,C1:PRINT "to begin lesson number two,"
  21. 20  LOCATE 13,24:COLOR C1,C2:PRINT " 3 ";:COLOR C2,C1:PRINT "to begin lesson number three,"
  22. 21  LOCATE 14,24:COLOR C1,C2:PRINT " 4 ";:COLOR C2,C1:PRINT "to begin lesson number four,"
  23. 22  LOCATE 15,24:COLOR C1,C2:PRINT " I ";:COLOR C2,C1:PRINT "to see the index,"
  24. 23  LOCATE 16,24:COLOR C1,C2:PRINT " T ";:COLOR C2,C1:PRINT "to see the table of contents, or"
  25. 24  LOCATE 17,24:COLOR C1,C2:PRINT " X ";:COLOR C2,C1:PRINT "to exit the BASIC Prof program."
  26. 25  LOCATE 21,34:PRINT"The PC-Prof.":LOCATE 22,34:PRINT"P.O. Box 26":LOCATE 23,34:PRINT "Salina, Kansas":LOCATE 24,34:PRINT "67402-0026";
  27. 26  IF INKEY$<>"" THEN 26
  28. 27  LSN$=INKEY$:IF LSN$="" THEN 27
  29. 28  IF LSN$="K" OR LSN$="k" THEN RUN"k0"
  30. 29  IF LSN$>="1" AND LSN$<="4" THEN OPEN"o",#1,"data.dat":WRITE#1,MONO,LSN$,1:CLOSE:CHAIN "a"+LSN$,,ALL
  31. 30  IF LSN$="I" OR LSN$="i" THEN RUN"INDEX"
  32. 31  IF LSN$="T" OR LSN$="t" THEN RUN"CONTENTS"
  33. 32  IF LSN$<>"X" AND LSN$<>"x" THEN LOCATE 19,25:BEEP:PRINT "Press";:COLOR C1,C2:PRINT " K 1 2 3 4 I T ";:COLOR C2,C1:PRINT "or";:COLOR C1,C2:PRINT " X ";:COLOR C2,C1:PRINT "please.":GOTO 26
  34. 33  COLOR C1,C2:CLS:PRINT TAB(9);"You are about to exit the BASIC Prof program.  You will be returned to";"the Disk Operating System (DOS).  To get back into BASIC, type BASICA and"
  35. 34  PRINT "press the return key.  To get back to the BASIC Prof just turn the computer off";"for a few seconds, then turn it back on again."
  36. 35  LOCATE 6,1:PRINT "Press the ";:COLOR C2,C1:PRINT "space bar";:COLOR C1,C2:PRINT " to exit the program, or any other key to return to the menu."
  37. 36  IF INKEY$<>"" THEN 36
  38. 37  IF INPUT$(1)<>" " THEN 10
  39. 38  SYSTEM
  40.