home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / BASIC / PC_PROF.ZIP / A0.BAS (.txt) next >
Encoding:
GW-BASIC  |  1980-01-01  |  2.3 KB  |  41 lines
  1. 10  ' ====> A0.bas
  2. 20  OPEN"i",#1,"data.dat":INPUT#1,MONO,LSN$,PAGE:CLOSE
  3. 30  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. 40  KEY 1,"RUN"+CHR$(34)+"BACKUP"+CHR$(34)+CHR$(13)
  5. 50  KEY 2,"RUN"+CHR$(34)+"FORWARD"+CHR$(34)+CHR$(13)
  6. 60  KEY 3,"RUN"+CHR$(34)+"REPEAT"+CHR$(34)+CHR$(13)
  7. 70  FOR I=4 TO 7:KEY I,"":NEXT I
  8. 80  KEY 8,"RUN"+CHR$(34)+"a0"+CHR$(34)+CHR$(13)
  9. 90  KEY 9,"RUN"+CHR$(34)+"CONTENTS"+CHR$(34)+CHR$(13)
  10. 100  KEY 10,"RUN"+CHR$(34)+"INDEX"+CHR$(34)+CHR$(13)
  11. 110  SCREEN 0,0,0:WIDTH 80:KEY OFF:COLOR C2,C1:CLS
  12. 120  TEMP$=CHR$(31)+CHR$(29)+CHR$(178)
  13. 130  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. 140  LOCATE 2,24,0:PRINT "The BASIC Prof. -- Beginning BASIC"
  15. 150  LOCATE 4,20:PRINT TASSLE$:LOCATE 4,21:PRINT STRING$(19,196);STRING$(2,219)
  16. 160  LOCATE 5,21:PRINT STRING$(40,219):LOCATE 6,26:PRINT STRING$(30,219)
  17. 170  LOCATE 8,38:PRINT "Press:"
  18. 180  LOCATE 10,24:COLOR C1,C2:PRINT " K ";:COLOR C2,C1:PRINT "for the keyboard introduction,"
  19. 190  LOCATE 11,24:COLOR C1,C2:PRINT " 1 ";:COLOR C2,C1:PRINT "to begin lesson number one,"
  20. 200  LOCATE 12,24:COLOR C1,C2:PRINT " 2 ";:COLOR C2,C1:PRINT "to begin lesson number two,"
  21. 210  LOCATE 13,24:COLOR C1,C2:PRINT " 3 ";:COLOR C2,C1:PRINT "to begin lesson number three,"
  22. 220  LOCATE 14,24:COLOR C1,C2:PRINT " 4 ";:COLOR C2,C1:PRINT "to begin lesson number four,"
  23. 230  LOCATE 15,24:COLOR C1,C2:PRINT " I ";:COLOR C2,C1:PRINT "to see the index,"
  24. 240  LOCATE 16,24:COLOR C1,C2:PRINT " T ";:COLOR C2,C1:PRINT "to see the table of contents, or"
  25. 250  LOCATE 17,24:COLOR C1,C2:PRINT " X ";:COLOR C2,C1:PRINT "to exit the BASIC Prof program."
  26. 260  LOCATE 21,14:PRINT"The PC-Prof.":LOCATE 22,14:PRINT"P.O. Box 26":LOCATE 23,14:PRINT "Salina, Kansas":LOCATE 24,14:PRINT "67402-0016";
  27. 265  LOCATE 21,44:PRINT"Make Copies":LOCATE 22,44:PRINT"For Your Friends.":LOCATE 23,44:PRINT"":LOCATE 24,44:PRINT"";
  28. 270  IF INKEY$<>"" THEN 270
  29. 280  LSN$=INKEY$:IF LSN$="" THEN 280
  30. 290  IF LSN$="K" OR LSN$="k" THEN RUN"k0"
  31. 300  IF LSN$>="1" AND LSN$<="4" THEN OPEN"o",#1,"data.dat":WRITE#1,MONO,LSN$,1:CLOSE:CHAIN "a"+LSN$,,ALL
  32. 310  IF LSN$="I" OR LSN$="i" THEN RUN"INDEX"
  33. 320  IF LSN$="T" OR LSN$="t" THEN RUN"CONTENTS"
  34. 330  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 270
  35. 340  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"
  36. 350  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."
  37. 360  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."
  38. 370  IF INKEY$<>"" THEN 370
  39. 380  IF INPUT$(1)<>" " THEN 110
  40. 390  SYSTEM
  41.