Shareware Grab Bag/Shareware Grab Bag.iso/004/intropc.bas

GW-BASIC | 1984-04-24 | 15.1 KB | 366 lines

5  PLAY  "MB ML T255 O2 A2. C2. G2. C2. F2 E4 F2 G4 F2. MN E2. ML E4 B-4 D4 E4 B-4 D4 MN E2 E4 E2."
90  REM  *********************************************
100  REM  ADAPTED FOR PUBLIC DOMAIN BY ANONYMOUS DONOR
110  REM  *********************************************
170  CLS:WIDTH 80:SCREEN 0,0,0,0:KEY OFF:DIM A$(20):COLOR 2,0,0
180  CLS:LOCATE ,,0:MENU$="introibm"
190  MF$="MBO3L4DL8CDCDL2DL12CO2L8BO3L12CO2L8BGL1DL32DP16L8DL32BP16L1BL32DP16L12DL32AP16L1AL8BL24AL2GL2GL1GP4"
200   A$(1)="      MMMMMMM     (                  )"
210   A$(2)="      CALL O O CALL      (                   )"
220   A$(3)="      \  LIST  /        (                  )"
230   A$(4)="     /--\-/--\  \\                    "
240   A$(5)="     CALL  \WHILE/- \ / /                    "
250   A$(6)="     /   WHILE   \  /                     "
260   A$(7)="  <0xE4!>XOR//CALL  WHILE  CALL \/                      "
270   A$(8)="      CALL__CALL__CALL                         "
280   A$(9)="       CALL CALL CALL                          "
290  A$(10)="       CALL CALL CALL                          "
300  A$(11)="       CALL CALL CALL                          "
310  A$(12)="       CALL CALL CALL                          "
320  A$(13)="     mmCALL CALL CALLmm                        "
330  A$(14)="     /--\-/--\   //                   "
340  COLOR 2,0:FOR J=1 TO 13:LOCATE J+6,20:PRINT A$(J):NEXT
350  COLOR 14,0:LOCATE 7,40:PRINT "Hi, I'm the IBM"
360  LOCATE 8,40:PRINT "Personal Computer!!"
365  PLAY "mb ML D4 A4 C4 D4 A4 C4 MN D2 D4 D2. ML C4 F4 G4 A2 B-4 A2 G4 D2. C4 E4 F4 G2 A4 G2 F4 MN C2"
370  COLOR 4,0:LOCATE 9,43:PRINT "- PC for Short -":COLOR 2,0
390  FOR J=1 TO 10:FOR R=1 TO 250:NEXT:LOCATE 10,20:PRINT A$(14):FOR R=1 TO 250:NEXT:LOCATE 10,20::PRINT A$(4):NEXT J
400  IF INKEY$=CHR$(27) THEN STOP
410  REM SAVE"FDEMO.1
420  KEY OFF:CLS:LL=7000
430  MG$="MBL8O4CO3BB-AA-GG-FEE-DD-CO2BB-AA-GG-FEE-DD-C"
440  LOCATE 1,1
450  GOTO 500
460  GOSUB 470:FOR J=1 TO LL:NEXT :RETURN
470  DEF SEG=0:POKE 1052,PEEK(1050):DEF SEG:RETURN
480  GOSUB 470:FOR J=1 TO 3000:NEXT :RETURN
490  IF INKEY$=CHR$(27) THEN STOP
500  CLS
510  LOCATE 2,10:PRINT "In the beginning computers were very big, expensive,"
520  LOCATE 4,10:PRINT "and not very friendly.                             "
530  LOCATE 10,1:PRINT "VARPTRSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDCOLOR"
540  LOCATE 11,1:PRINT "CALL  IBM                 VARPTRSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDCOLORCALL"
550  LOCATE 12,1:PRINT "CALL                      CALL  :::::::::  CALLCALL"
560  LOCATE 13,1:PRINT "CALL                      CALL  :::::::::  CALLCALL"
570  LOCATE 14,1:PRINT "CALL                      CALL <UNK! {00F8}>CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN<UNK! {00F8}> CALLCALL"
580  LOCATE 15,1:PRINT "CALL -------------------- CLSSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND'CALL"
590  LOCATE 16,1:PRINT "CALL                                     CALL"
600  LOCATE 17,1:PRINT "CALL                                     CALL"
610  LOCATE 18,1:PRINT "CALL                                     CALL"
620  LOCATE 19,1:PRINT "CALL                                     CALL"
630  LOCATE 20,1:PRINT "CALL                                     CALL"
640  LOCATE 21,1:PRINT "CALL                                     CALL"
650  LOCATE 22,1:PRINT "CALL                                     CALL"
660  LOCATE 23,1:PRINT "CALL                                     CALL"
670  LOCATE 24,1:PRINT "CLSSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND'";
680  COLOR 14,0:LOCATE 6,10:PRINT "But the family has come a long way in the last 37   "
690  LOCATE 8,10:PRINT "years.                            "                "
695  PLAY "mf C8 C+8 ML D4 C+4 D4 E2 F4 O3 C2 O2 A4 E2 F4 G4 A4 D4 G4 A4 C4 F2. F2."
700  IF INKEY$=CHR$(27) THEN RUN MENU$
710  PLAY MG$
720  COLOR 4,0:LOCATE 8,18:PRINT "We've gotten":COLOR 2,0
730  GOSUB 1380
740  IF INKEY$=CHR$(27) THEN STOP
750  LOCATE 16,1:PRINT "    CALL                 CLSSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND'CALL      ";:COLOR 4,0:PRINT " smaller...":COLOR 2,0
760  LOCATE 24,1:PRINT "                                       ";
770  SOUND 32767,50:SOUND 32767,1
780  LOCATE 10,1:PRINT "                                       "
790  LOCATE 11,1:PRINT "                                       "
800  LOCATE 12,1:PRINT "            VARPTRSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDCOLOR              "
810  LOCATE 13,1:PRINT "            CALLVARPTRSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDCOLOR CALL              "
820  LOCATE 14,1:PRINT "            CALLCALL        CALL CALL              "
830  LOCATE 15,1:PRINT "            CALLCALL        CALL<UNK! {00F8}>CALL              "
840  LOCATE 16,1:PRINT "            CALLCLSSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND' CALL              ";:COLOR 4,0:PRINT " smaller...":COLOR 2,0
850  LOCATE 17,1:PRINT "            CLSSOUNDSOUNDSPC(SOUNDSOUNDSOUNDSOUNDSOUNDSPC(SOUNDSOUND'              "
860  LOCATE 18,1:PRINT "         VARPTRSOUNDSOUNDSOUNDSOUNDSOUNDUSRSOUNDSOUNDSOUNDSOUNDSOUNDUSRSOUNDSOUNDSOUNDSOUNDSOUNDCOLOR           "
870  LOCATE 19,1:PRINT "         CALLIBM  VARPTRSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDCOLORCALL           ";:COLOR 4,0:PRINT "            and smaller.":COLOR 2,0
880  LOCATE 20,1:PRINT "         CALL     CLSSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND'CALL           "
890  LOCATE 21,1:PRINT "         CLSSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND'           "
900  LOCATE 22,1:PRINT "                                       "
910  SOUND 32767,50:SOUND 32676,1
920  COLOR 14,0:LOCATE 22,20:PRINT "and MUCH less expensive -- and "
930  LOCATE 24,20:PRINT "more Power ";:COLOR 20,0:PRINT "FULL";:COLOR 2,0
940  IF INKEY$=CHR$(27) THEN STOP
950  GOSUB 460
960  CLS
970  Z$(1)=" VARPTRSOUNDSOUNDSOUNDSOUNDCOLOR "
980  Z$(2)=" CALLLINELINELINELINECALL "
990  Z$(3)=" CLSBSAVESOUNDSOUNDBSAVE' "
1000  Z$(4)="VARPTRSOUNDMOTORSOUNDSOUNDMOTORSOUNDCOLOR"
1010  Z$(5)="CLSSOUNDSOUNDSOUNDSOUNDSOUNDSOUND'"
1020  Z$(6)="  /  \  "
1030  Z$(7)="  \  /  "
1040  LOCATE 5,10:PRINT "As a matter of fact... I can "
1050  COLOR 14,0:LOCATE 5,39:PRINT "run Circles":COLOR 2,0
1060  LOCATE 7,10:PRINT "around most of my predecessors and cost but a "
1070  LOCATE 9,10:PRINT "fraction of what they cost."
1080  J=13:LL=8:H=22:GOSUB 1380:FOR HH=2 TO 14 STEP 2:GOSUB 1530:NEXT:FOR HH=16 TO 25 STEP 2:GOSUB 1530:LL=LL-2:NEXT
1090  LL=2:FOR HH=56 TO 62 STEP 2:GOSUB 1580:LL=LL+2:NEXT
1100  J=13:FOR HH=64 TO 71 STEP 2:GOSUB 1530:NEXT:LL=8:FOR HH=71 TO 25 STEP -2:GOSUB 1630
1110  IF HH=47 THEN COLOR 2,0:LOCATE 12,55:PRINT "COLOR":FOR KK1=13 TO 21:LOCATE KK1,55:PRINT "CALL":NEXT KK1:LOCATE 22,55:PRINT "'":COLOR 4,0
1120  NEXT
1130  IF INKEY$=CHR$(27) THEN STOP
1140  CLS
1150  COLOR 2,0:LOCATE 5,10:PRINT "Sounds":COLOR 14,0:LOCATE 5,17:PRINT "INTERESTING":COLOR 2,0:LOCATE 5,29:PRINT "doesn't it ?"
1160  LOCATE 7,10:PRINT "In times of inflation and spiraling cost we"
1170  LOCATE 9,10:PRINT "have become MORE and MORE powerful, but LESS expensive."
1180  COLOR 14,0:LOCATE 9,22:PRINT "MORE and MORE";:LOCATE 9,50:PRINT "LESS":COLOR 2,0
1190  FOR KK=1 TO 500:NEXT
1200  IF INKEY$=CHR$(27) THEN STOP
1210  LOCATE 15,10:PRINT "But all this power - regardless of the cost -"
1220  LOCATE 17,10:PRINT "would be meaningless if we hadn't become much"
1230  LOCATE 19,10:PRINT "more friendly !"
1240  COLOR 14,0:LOCATE 19,15:PRINT "FRIENDLY"
1250  LOCATE 18,62:PRINT " &       &  "
1260  LOCATE 19,62:PRINT " &       &  "
1270  LOCATE 20,62:PRINT " &       &  "
1280  LOCATE 17,62:PRINT " &&&&&&&&&  ":COLOR 2,0
1290  LOCATE 18,64:PRINT "CALL LIST LIST CALL"
1300  LOCATE 19,64:PRINT "CALL  ^  CALL"
1310  LOCATE 20,64:PRINT "\  /  /"
1320  LOCATE 21,62:PRINT "    ---     ":COLOR 2,0
1330  'face
1340  IF INKEY$=CHR$(27) THEN STOP
1350  LL=10000:GOSUB 460:CLS
1360  GOTO 1680
1370  IF INKEY$=CHR$(27) THEN STOP
1380  LOCATE 10,1+H:PRINT "                                       "
1390  LOCATE 11,1+H:PRINT "                                       "
1400  LOCATE 12,1+H:PRINT "    VARPTRSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDCOLOR      "
1410  LOCATE 13,1+H:PRINT "    CALL IBM             VARPTRSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDCOLORCALL      "
1420  LOCATE 14,1+H:PRINT "    CALL                 CALL ...... CALLCALL      "
1430  LOCATE 15,1+H:PRINT "    CALL                 CALL   ..   CALLCALL      "
1440  LOCATE 16,1+H:PRINT "    CALL                 CLSSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND'CALL      "
1450  LOCATE 17,1+H:PRINT "    CALL                           CALL      "
1460  LOCATE 18,1+H:PRINT "    CALL                           CALL      "
1470  LOCATE 19,1+H:PRINT "    CALL                           CALL      "
1480  LOCATE 20,1+H:PRINT "    CALL                           CALL      "
1490  LOCATE 21,1+H:PRINT "    CALL                           CALL      "
1500  LOCATE 22,1+H:PRINT "    CLSSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND'      "
1510  LOCATE 23,1+H:PRINT "                                       "
1520  RETURN
1530  VV=13:FOR JJ=13 TO 18:LOCATE JJ,HH:PRINT SPACE$(2):LOCATE JJ,HH+2:COLOR 4,0:PRINT LEFT$(Z$(JJ-12),LL):NEXT JJ
1540  ON HH GOTO 1550,1550,1560,1560,1550,1550,1560,1560,1550,1550,1560,1560,1550,1550,1550,1560
1550  LOCATE 18,HH:PRINT SPACE$(2):LOCATE 18,HH+2:PRINT LEFT$(Z$(6),LL):GOTO 1570
1560  LOCATE 18,HH:PRINT SPACE$(2):LOCATE 18,HH+2:PRINT LEFT$(Z$(7),LL)
1570  RETURN
1580  VV=13:FOR JJ=13 TO 18:LOCATE JJ,HH:PRINT SPACE$(2):LOCATE JJ,HH+2:COLOR 4,0:PRINT RIGHT$(Z$(JJ-12),LL):NEXT JJ
1590  ON HH-55 GOTO 1600,1600,1610,1610,1600,1600,1610,1610,1600,1600,1610,1610,1600,1600,1600,1610
1600  LOCATE 18,HH:PRINT SPACE$(2):LOCATE 18,HH+2:PRINT RIGHT$(Z$(6),LL):RETURN
1610  LOCATE 18,HH:PRINT SPACE$(2):LOCATE 18,HH+2:PRINT RIGHT$(Z$(7),LL):COLOR 2,0
1620  RETURN
1630  VV=13:FOR JJ=13 TO 18:LOCATE JJ,HH+2:PRINT SPACE$(8):LOCATE JJ,HH:PRINT RIGHT$(Z$(JJ-12),LL):NEXT JJ
1640  ON HH GOTO 1650,1650,1660,1660,1650,1650,1660,1660,1650,1650,1660,1660,1650,1650,1650,1660
1650  LOCATE 18,HH+2:PRINT SPACE$(2):LOCATE 18,HH:PRINT RIGHT$(Z$(6),LL):RETURN
1660  LOCATE 18,HH+2:PRINT SPACE$(2):LOCATE 18,HH:PRINT RIGHT$(Z$(7),LL):COLOR 2,0
1670  RETURN
1680  CLS:COLOR 2,0
1690  PRINT "       /SOUNDBSAVESOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDBSAVESOUND            . : : : : : : : : : :.  "
1700  PRINT "      <0xE3!>  CLSSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND'           . .                    . ."
1710  PRINT "      OPEN   (  VARPTRSOUNDSOUNDCOLOR  VARPTRSOUNDSOUNDCOLOR  )           . .                       . ."
1720  PRINT "         (   CALLO CALL  CALLO CALL   )         . .                         . .
1730  PRINT "         (   CLSSOUNDSOUND'V CLSSOUNDSOUND'   )        . .                           . ."
1740  PRINT "           (     o      )  : : : : : :                           . ."
1750  PRINT "             (       )             . .                           . ."
1760  PRINT "          ((           ))          . .                           . ."
1770  PRINT "       ( ((             )) )       . .                           . ."
1780  PRINT "     ( ((                  )))      . .                          . ."
1790  PRINT "    ( ((                     )) )     . .                      . ."
1800  PRINT "  ( ((                         ) )     . .                    . ."
1810  PRINT "         ( ((            )) )           . .                 . ."
1820  IF INKEY$=CHR$(27) THEN STOP
1830  PRINT "           ((         ))                  : : : : : : : : : : "
1840  LOCATE 15,1:PRINT "::::::::::((((      )))):::::::::::::"
1850  COLOR 14,0
1860  LOCATE 3,44:PRINT "      Here's"
1870  LOCATE 5,44:PRINT " Some Suggestions"
1880  LOCATE 7,44:PRINT "  as YOU proceed"
1890  LOCATE 9,44:PRINT "     through"
1900  LOCATE 11,44:PRINT" my Demonstration."
1910  GOSUB 3690
1920  LOCATE 3,44:PRINT "      Please"
1930  LOCATE 5,44:PRINT " make some errors"
1940  LOCATE 7,44:PRINT "and I'll show YOU"
1950  LOCATE 9,44:PRINT "  how I HELP the"
1960  LOCATE 11,44:PRINT"     Student."
1970  GOSUB 3690
1980  LOCATE 3,44:PRINT " I will not   "
1990  LOCATE 5,44:PRINT "accept or recognize"
2000  LOCATE 7,44:PRINT " a key you depress "
2005  LOCATE 8,44:PRINT "   UNLESS       "
2010  LOCATE 9,44:PRINT "it is the exact key "
2020  LOCATE 11,44:PRINT" I asked for!"
2030  GOSUB 3690
2040  LOCATE 3,43:PRINT "                    "
2050  LOCATE 5,43:PRINT " I hope you find "
2060  LOCATE 7,43:PRINT "this brief lesson"
2070  LOCATE 9,43:PRINT "  HELPFUL....    "
2080  LOCATE 11,43:PRINT"                "
2090  GOSUB 3690
2100  LOCATE 3,44:PRINT "                 "
2110  LOCATE 5,44:PRINT "    LET'S      "
2120  LOCATE 7,44:PRINT "   continue...."
2130  LOCATE 9,44:PRINT "                 "
2140  LOCATE 11,44:PRINT"               "
2150  GOSUB 3690
2160  COLOR 14,0:LOCATE 4,51:PRINT "NOW,"
2170  LOCATE 6,47:PRINT "I'd Like To"
2180  LOCATE 8,46:PRINT "FAMILIARIZE YOU"
2190  LOCATE 10,45:PRINT "With my Keyboard.":COLOR 2,0
2200  LL=7000:GOSUB 460:CLS
2210  WIDTH 80:SCREEN 0,0,0,0:COLOR 7,0:KEY OFF:CLS
2220  YES = 1:SX=2:STOPY=68
2230  ' keyboard.bas"
2240  KEY 5,"list 1000-6000":KEY 6,"color 7,0
2250  'DIM A$(20)
2260  COLOR 7,0
2270  MENU$="introibm.BAS"
2280  COLOR 15,0:LOCATE 3,1:FOR X = 1 TO 13:READ A$(X)
2290  PRINT A$(X)
2300  NEXT X
2310  COLOR 7,0
2320  COLOR 15,0:GOTO 2370:'REM
2330  FOR X = 2 TO 10 STEP 2:LOCATE X+2,1,0:IF INKEY$=CHR$(27) THEN STOP
2340  FOR Y = 1 TO LEN(A$(X))
2350  IF MID$(A$(X),Y,1) > CHR$(126) THEN COLOR 3,0:PRINT MID$(A$(X),Y,1);:           ELSE COLOR 15,0 : PRINT MID$(A$(X),Y,1);
2360  NEXT Y:PRINT :NEXT X:COLOR 15,0
2370  LOCATE 4,68:PRINT CHR$(17)+"-"
2380  LOCATE 7,69:PRINT CHR$(17)+"'"
2390  LOCATE 10,15:PRINT CHR$(24)
2400  LOCATE 10,65:PRINT CHR$(24)
2410  LOCATE 6,15:PRINT CHR$(27)+CHR$(26)
2420  COLOR 2,0:REM space bar
2430  LOCATE 16,1:A$="   This is the IBM keyboard.  It has many features that " : GOSUB 3540
2440  LOCATE 17,1:A$="   make it fun and enjoyable to use.  ":GOSUB 3540
2450  LOCATE 18,1:A$="   I would like to show you how easy it is to use a computer. ":GOSUB 3540
2460  LOCATE 19,1:A$="   Please locate the Space Bar at the bottom of the keyboard.":GOSUB 3540
2470  LOCATE 21,1:A$="   Press the Space Bar when you are ready to continue."          :GOSUB 3540
2480  LOCATE 12,20:COLOR 28,0:B$=  "              Space  Bar               ":          PRINT B$;:COLOR 14,0
2490  C$="SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND"+CHR$(16)+" "
2500  D$="  "+CHR$(17)+"SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND"
2510  FOR X = 1 TO 14
2520  LOCATE 12,19+X:PRINT MID$(C$,X,1);
2530  LOCATE 12,59-X:PRINT MID$(D$,LEN(D$)-X+1,1);
2540  FOR Y = 1 TO 10:A$=INKEY$:IF A$=CHR$(27) THEN STOP      ELSE IF A$ = " " THEN GOTO 2620 ELSE NEXT Y
2550  NEXT X
2560  FOR X = 1 TO 14
2570  LOCATE 12,19+X:PRINT " ";
2580  LOCATE 12,59-X:PRINT " ";
2590  FOR Y = 1 TO 5:A$=INKEY$:IF A$=CHR$(27) THEN STOP      ELSE IF A$ = " " THEN GOTO 2620 ELSE NEXT Y
2600  NEXT X
2610  GOTO 2510
2620  SOUND 2050,2:REM enter
2630  FOR X = 14 TO 24:LOCATE X,1:PRINT SPACE$(79);:NEXT X
2640  LOCATE 12,20:COLOR 15,0:PRINT  "              Space  Bar               ";:      COLOR 10,0
2650  LOCATE 16,1:A$="     The Enter Key is the the most important key on the keyboard!":GOSUB 3540
2660  LOCATE 17,1:A$="     It is located on the right hand side of the keyboard.":     GOSUB 3540
2670  LOCATE 18,1:A$="     You use this key to tell the computer that you have finished typing.":     GOSUB 3540
2680  LOCATE 20,1:A$="     Please press the Enter Key to continue.":GOSUB 3540
2690  COLOR 20,0:LOCATE 7,69:PRINT CHR$(17)+"'"
2700  COLOR 6,0:FOR Y = 3 TO 7
2710  LOCATE Y,79:PRINT "CALL";:LOCATE 14-Y,79:PRINT "CALL";
2720  FOR Z = 1 TO 10:A$=INKEY$:IF A$=CHR$(27) THEN STOP      ELSE                    IF A$ = CHR$(13) THEN GOTO 2840 ELSE NEXT Z
2730  NEXT Y:LOCATE 7,79:PRINT "<0xB4!>";
2740  FOR X = 78 TO 75 STEP -1: LOCATE 7,X:PRINT "SOUND";
2750  FOR Z = 1 TO 10:A$=INKEY$:IF A$=CHR$(27) THEN STOP      ELSE                    IF A$ = CHR$(13) THEN GOTO 2840 ELSE NEXT Z
2760  NEXT X:LOCATE 7,74:PRINT CHR$(17);
2770  FOR Y = 3 TO 7
2780  LOCATE Y,79:PRINT " ";:LOCATE 14-Y,79:PRINT " ";
2790  FOR Z = 1 TO 10:A$=INKEY$:IF A$=CHR$(27) THEN STOP      ELSE                    IF A$ = CHR$(13) THEN GOTO 2840 ELSE NEXT Z
2800  NEXT Y:LOCATE 7,79:PRINT " ";
2810  FOR X = 78 TO 73 STEP -1: LOCATE 7,X:PRINT " ";
2820  FOR Z = 1 TO 10:A$=INKEY$:IF A$=CHR$(27) THEN STOP      ELSE                    IF A$ = CHR$(13) THEN GOTO 2840 ELSE NEXT Z:NEXT X
2830  GOTO 2700
2840  SOUND 2050,2:FOR Y = 1 TO 14:LOCATE Y,74:PRINT SPACE$(6);:NEXT Y
2850  FOR Y = 14 TO 24:LOCATE Y,1:PRINT SPACE$(79);:NEXT Y
2860  LOCATE 4,8:COLOR 20,0:PRINT "F2";
2870  KEY 2, ""
2880  LOCATE 7,69:COLOR 15,0:PRINT CHR$(17)+CHR$(217);
2890  COLOR 10,0:REM 'F2`
2900  LOCATE 16,1:A$="     The <F2> Key is one of the Function Keys provided to assist ":           GOSUB 3540
2910  LOCATE 17,1:A$="     you in progressing through exercises, as well as an aid in programming.":GOSUB 3540
2920  LOCATE 19,1:A$="     Please press the <F2> Key.":GOSUB 3540
2930  COLOR 14:FOR X = 1 TO 8
2940  LOCATE 1,X:PRINT "SOUND";
2950  LOCATE 1,18-X:PRINT "SOUND";
2960  FOR Y = 1 TO 10:A$=INKEY$:IF A$=CHR$(27) THEN STOP      ELSE IF A$=CHR$(0)+CHR$(60) THEN GOTO 3120 ELSE NEXT Y
2970  NEXT X:C$(1)="BSAVE":C$(2)="CALL":C$(3)=CHR$(25)
2980  COLOR 14,0:FOR Y = 1 TO 3
2990  LOCATE Y,9:PRINT C$(Y)
3000  FOR Z = 1 TO 10:A$=INKEY$:IF A$=CHR$(27) THEN     STOP   ELSE  IF A$=CHR$(0)+CHR$(60) THEN GOTO 3120 ELSE NEXT Z
3010  NEXT Y:'LOCATE 7,79:PRINT "<0xB4!>";
3020  FOR X = 1 TO 8
3030  LOCATE 1,X:PRINT " ";
3040  LOCATE 1,18-X:PRINT " ";
3050  FOR Y = 1 TO 10:A$=INKEY$:IF A$=CHR$(27) THEN STOP      ELSE IF A$=CHR$(0)+CHR$(60) THEN GOTO 3120 ELSE NEXT Y
3060  NEXT X:C$(1)=" ":C$(2)=" ":C$(3)="THEN"
3070  COLOR 3,0:FOR Y = 1 TO 3
3080  LOCATE Y,9:PRINT C$(Y)
3090  FOR Z = 1 TO 10:A$=INKEY$:IF A$=CHR$(27) THEN STOP ELSE IF A$=CHR$(0)+CHR$(60) THEN GOTO 3120 ELSE NEXT Z
3100  NEXT Y:'LOCATE 7,79:PRINT "<0xB4!>";
3110  COLOR 6,0:GOTO 2930
3120  SOUND 2050,2:LOCATE 1,1:PRINT SPACE$(20)
3130  LOCATE 2,1:PRINT SPACE$(20)
3140  COLOR 3,0:LOCATE 3,9:PRINT CHR$(205)
3150  FOR Y = 14 TO 24:LOCATE Y,1:PRINT SPACE$(79);:NEXT Y
3160  LOCATE 4,14:COLOR 20,0:PRINT "Esc";
3170  LOCATE 4,8:COLOR 15,0:PRINT "F2";
3180  COLOR 10,0:REM 'Esc`
3190  LOCATE 16,1:A$="     The `Escape' Key is used to stop what you are ":           GOSUB 3540
3200  LOCATE 17,1:A$="     doing and return to the last menu.":GOSUB 3540
3210  LOCATE 19,1:A$="     Please press the Escape Key.":GOSUB 3540
3220  COLOR 14:FOR X = 1 TO 14
3230  LOCATE 1,X:PRINT "SOUND";
3240  LOCATE 1,30-X:PRINT "SOUND";
3250  FOR Y = 1 TO 10:A$=INKEY$:IF A$=CHR$(27) THEN GOTO 3410 ELSE NEXT Y
3260  NEXT X:C$(1)="BSAVE":C$(2)="CALL":C$(3)=CHR$(25)
3270  COLOR 14,0:FOR Y = 1 TO 3
3280  LOCATE Y,15:PRINT C$(Y)
3290  FOR Z = 1 TO 10:A$=INKEY$:IF A$=CHR$(27) THEN GOTO 3410 ELSE NEXT Z
3300  NEXT Y:'LOCATE 7,79:PRINT "<0xB4!>";
3310  FOR X = 1 TO 14
3320  LOCATE 1,X:PRINT " ";
3330  LOCATE 1,30-X:PRINT " ";
3340  FOR Y = 1 TO 10:A$=INKEY$:IF A$=CHR$(27) THEN GOTO 3410 ELSE NEXT Y
3350  NEXT X:C$(1)=" ":C$(2)=" ":C$(3)="THEN"
3360  COLOR 3,0:FOR Y = 1 TO 3
3370  LOCATE Y,15:PRINT C$(Y)
3380  FOR Z = 1 TO 10:A$=INKEY$:IF A$=CHR$(27) THEN GOTO 3410 ELSE NEXT Z
3390  NEXT Y:'LOCATE 7,79:PRINT "<0xB4!>";
3400  COLOR 6,0:GOTO 3220
3410  SOUND 2050,2:REM
3420  SYSTEM
3430  DATA "KEYTHENTHENTHENTHENFNTHENTHENTHENTHENCLOSE KEYTHENTHENTHENFNTHENTHENTHENFNTHENTHENTHENFNTHENTHENTHENFNTHENTHENTHENFNTHENTHENTHENFNTHENTHENTHENFNTHENTHENTHENFNTHENTHENTHENFNTHENTHENTHENFNTHENTHENTHENFNTHENTHENTHENFNTHENTHENTHENFNTHENTHENTHENTHENTHENTHENCLOSE
3440  DATA "OPEN F1 CALL F2 OPEN OPENEscCALL 1 CALL 2 CALL 3 CALL 4 CALL 5 CALL 6 CALL 7 CALL 8 CALL 9 CALL 0 CALL - CALL = CALL  ++  OPEN
3450  DATA "OPENSOUNDSOUNDSOUNDSOUNDBEEPSOUNDSOUNDSOUNDSOUND<0xB6!> PRESETSOUNDSOUNDSOUNDMOTORBSAVESOUNDSOUNDMOTORBSAVESOUNDSOUNDMOTORBSAVESOUNDSOUNDMOTORBSAVESOUNDSOUNDMOTORBSAVESOUNDSOUNDMOTORBSAVESOUNDSOUNDMOTORBSAVESOUNDSOUNDMOTORBSAVESOUNDSOUNDMOTORBSAVESOUNDSOUNDMOTORBSAVESOUNDSOUNDMOTORBSAVESOUNDSOUNDMOTORBSAVESOUNDSOUNDMOTORSOUNDBSAVESOUNDSOUNDSOUNDSOUND<0xB6!>
3460  DATA "OPEN F3 CALL F4 OPEN OPEN ++ CALL Q CALL W CALL E CALL R CALL T CALL Y CALL U CALL I CALL O CALL P CALL [ CALL ]  CALL    OPEN
3470  DATA "OPENSOUNDSOUNDSOUNDSOUNDBEEPSOUNDSOUNDSOUNDSOUND<0xB6!> PRESETSOUNDSOUNDSOUNDSOUNDMOTORBSAVESOUNDSOUNDMOTORBSAVESOUNDSOUNDMOTORBSAVESOUNDSOUNDMOTORBSAVESOUNDSOUNDMOTORBSAVESOUNDSOUNDMOTORBSAVESOUNDSOUNDMOTORBSAVESOUNDSOUNDMOTORBSAVESOUNDSOUNDMOTORBSAVESOUNDSOUNDMOTORBSAVESOUNDSOUNDMOTORBSAVESOUNDSOUNDMOTORBSAVESOUNDSOUNDSOUND<0xB4!>    OPEN
3480  DATA "OPEN F5 CALL F6 OPEN OPENCtrl CALL A CALL S CALL D CALL F CALL G CALL H CALL J CALL K CALL L CALL ; CALL ' CALL ` CALL    OPEN
3490  DATA "OPENSOUNDSOUNDSOUNDSOUNDBEEPSOUNDSOUNDSOUNDSOUND<0xB6!> PRESETSOUNDSOUNDSOUNDSOUNDBSAVEMOTORSOUNDSOUNDBSAVEMOTORSOUNDSOUNDBSAVEMOTORSOUNDSOUNDBSAVEMOTORSOUNDSOUNDBSAVEMOTORSOUNDSOUNDBSAVEMOTORSOUNDSOUNDBSAVEMOTORSOUNDSOUNDBSAVEMOTORSOUNDSOUNDBSAVEMOTORSOUNDSOUNDBSAVEMOTORSOUNDSOUNDBSAVEMOTORSOUNDSOUNDBSAVEMOTORSOUNDSOUNDSOUNDBEEPSOUNDSOUNDSOUNDSOUND<0xB6!>
3500  DATA "OPEN F7 CALL F8 OPEN OPEN +  CALL \ CALL Z CALL X CALL C CALL V CALL B CALL N CALL M CALL , CALL . CALL / CALL  + CALL *  OPEN "
3510  DATA "OPENSOUNDSOUNDSOUNDSOUNDBEEPSOUNDSOUNDSOUNDSOUND<0xB6!> PRESETSOUNDSOUNDSOUNDSOUNDMOTORBSAVESOUNDSOUNDMOTORSOUNDSOUNDSOUNDMOTORSOUNDSOUNDSOUNDMOTORSOUNDSOUNDSOUNDMOTORSOUNDSOUNDSOUNDMOTORSOUNDSOUNDSOUNDMOTORSOUNDSOUNDSOUNDMOTORSOUNDSOUNDSOUNDMOTORSOUNDSOUNDSOUNDMOTORSOUNDSOUNDSOUNDMOTORBSAVESOUNDSOUNDMOTORSOUNDSOUNDSOUNDSOUNDBEEPTHENTHENTHENTHENLOAD
3520  DATA "OPEN F9 CALLF10 OPEN OPEN Alt CALL              Space Bar                CALL  Caps OPEN  "
3530  DATA "SCREENTHENTHENTHENTHENSTEPTHENTHENTHENTHENLOAD SCREENTHENTHENTHENTHENTHENSTEPTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENSTEPTHENTHENTHENTHENTHENTHENTHENLOAD",     "  ","  "
3540  REM type in regular
3545  YES=0
3550  FOR X = 1 TO LEN(A$)
3560  IF MID$(A$,X,1)=" " THEN GOTO 3590
3570  IF YES THEN GOSUB 3630:GOSUB 3630:COLOR 2,0
3580  SOUND 1000,0.25:SOUND 37,0:IF INKEY$=CHR$(27) THEN STOP
3590  PRINT MID$(A$,X,1);
3600  IF YES=0 THEN FOR Y = 1 TO 20:NEXT Y
3610  NEXT X:RETURN
3620  PRINT "**********"
3630  VY=CSRLIN:HX=POS(0)
3640  SY=SY+1:IF MID$(A$(SX),SY,1)="+" THEN GOTO 3660
3650  LOCATE SX+2,SY,0: IF MID$(A$(SX),SY,1) > CHR$(126) THEN COLOR 3,0:              PRINT MID$(A$(SX),SY,1);:ELSE COLOR 15,0:PRINT MID$(A$(SX),SY,1);
3660  IF SY >= STOPY THEN SX=SX+2:SY = 2:STOPY=LEN(A$(SX))-4
3670  IF SX>10 THEN YES = 0
3680  LOCATE VY,HX:COLOR 2,0:RETURN
3690  FOR DELAY= 1 TO 3000:NEXT DELAY
3700  FOR LZ=2TO 11
3710  LOCATE LZ,43:PRINT SPACE$(21)
3720  NEXT LZ
3730  IF INKEY$=CHR$(27) THEN STOP
3740  RETURN