LOAD LOADCON
]LIST

 5 U = 30 * 256:PP = U + 464
 9  PRINT  CHR$ (4);"MAXFILES 2"
 10  PRINT  CHR$ (4);"BLOAD CHAR.BIN,A$800"
 12  PRINT  CHR$ (4);"BLOAD INOUT.BIN,A$E00"
 13  PRINT  CHR$ (4);"BLOAD CARDS.BIN,A$9200"
 14  PRINT  CHR$ (4);"BLOAD START.BIN,A$7200": CALL 114 * 256
 15  IF  PEEK (U + 104) = 0 THEN  PRINT  CHR$ (7);"BEX REQUIRES A LANGUAG
     E CARD IN SLOT 0": GOTO 15
 16  GOSUB 2500: PRINT V$(1)
 17  PRINT  CHR$ (4);"BLOAD CARDS.BIN,A$9200"
 18  PRINT  CHR$ (4);"BLOAD START.BIN,A$7200": CALL 114 * 256 + 22
 19  PRINT  CHR$ (4);"BLOAD AUX.BIN,A$2000": CALL 114 * 256 + 36: GOSUB 2
     000
 20  PRINT : HOME 
 21  PRINT "/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\                 B E 
     X                  \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/": PRINT 
     : PRINT 
 22  IF Z THEN  PRINT V$(2);"BEX";V$(3);
 23  PRINT "COPYRIGHT ";: IF Z THEN  PRINT V$(1);"(C) ";V$(3);
 24  IF Z = 0 THEN  PRINT "(C) ";
 25  PRINT "1985 BY": PRINT "   RAISED DOT COMPUTING, INC."
 27  IF Z THEN  PRINT V$(3);
 29  IF  PEEK (43626) = 5 THEN A = 48966: POKE A,160: POKE A + 1,12: POKE 
     A + 2,177: POKE A + 3,72
 30  PRINT : PRINT  CHR$ (7);: PRINT "ENTER CONFIGURATION: ";: GOSUB 500
 35  IF A$ = "NONE" THEN  END 
 40 B$ =  LEFT$ (A$,1)
 50  IF B$ = "." THEN  GOTO 1020
 55  IF B$ = "*" THEN  GOTO 1010
 60  IF B$ = "&" THEN  GOTO 1000
 65  IF B$ = "?" THEN  GOSUB 3000: GOTO 30
 110  IF A$ = "" THEN A$ = "DEFAULT"
 115  ONERR  GOTO 200
 120  PRINT  CHR$ (4);"BLOAD ";A$;".CON,A$1E00"
 122  IF  PEEK (U + 75) = 1 THEN  POKE PP + 2, PEEK (43626): POKE PP + 4,
      PEEK (43626)
 130  FOR I = 1 TO  LEN (A$): POKE 863 + I, ASC ( MID$ (A$,I,1)): NEXT I
 135  POKE 864 +  LEN (A$),0
 140  CALL 114 * 256 + 3
 142  IF  PEEK (U + 75) = 1 AND  PEEK (U + 230) > 0 THEN  POKE PP + 2,3: POKE 
     PP + 5,1: POKE U + 75,2: POKE U + 486,2: POKE 216,0
 143  IF  PEEK (U + 75) = 1 AND  PEEK (U + 101) = 22 THEN  POKE PP + 2,5:
      POKE PP + 5,1: POKE U + 75,2: POKE U + 486,2: POKE 216,0
 144  IF  PEEK (U + 75) = 1 AND  PEEK (U + 103) = 22 THEN  POKE PP + 2,7:
      POKE PP + 5,1: POKE U + 75,2: POKE U + 486,2: POKE 216,0
 145  IF ( PEEK (U + 65) > 0) AND ( PEEK (U + 104) < 128) THEN  GOTO 3200
     
 147  GOSUB 1500
 148 A =  PEEK (U + 56): IF A > 0 THEN  PRINT "PRESS ANY KEY": PRINT  CHR$ 
     (4);"IN#";A: GET A$: PRINT 
 150  CALL 114 * 256 + 18
 160  IF  PEEK (U + 9) <  > 1 OR  PEEK (U + 2) = 0 THEN  GOTO 180
 162  PRINT  CHR$ (5); PEEK (U + 66);"P"
 164  PRINT  CHR$ (5); PEEK (U + 72);"V"
 166  IF  PEEK (U + 67) = 0 THEN  PRINT  CHR$ (5);"E"
 168  IF  PEEK (U + 68) = 1 THEN  PRINT  CHR$ (5);"M"
 180  PRINT  CHR$ (4);"RUN START"
 200  GOSUB 3000: GOTO 30
 210  GOSUB 5200: GOTO 30
 500 A$ = ""
 502  GET C$:C =  ASC (C$): IF C > 96 AND C < 123 THEN C$ =  CHR$ (C - 32
     )
 503  IF C = 127 THEN C = 8:C$ =  CHR$ (8)
 504  IF C = 24 THEN  PRINT "\": GOTO 500
 507  PRINT C$;: IF C = 13 THEN  RETURN 
 511  IF C <  > 8 THEN A$ = A$ + C$: GOTO 502
 512  IF  LEN (A$) < 2 THEN  GOTO 500
 513 A$ =  LEFT$ (A$, LEN (A$) - 1): GOTO 502
 1000  IF  PEEK (U + 104) < 128 THEN  GOTO 3200
 1005  POKE U + 65,128
 1010  POKE U + 64,128
 1015  HIMEM: 29184
 1020  GOSUB 1500
 1023  GOSUB 4000
 1025  PRINT  CHR$ (4);"RUN SETCON"
 1500 A = 65 + ( PEEK (U + 64) +  PEEK (U + 65)) / 128
 1505  PRINT  CHR$ (4);"BLOAD MESSAGES."; CHR$ (A)
 1508  PRINT  CHR$ (4);"BLOAD TABLE.BIN,A$9100"
 1510  CALL 114 * 256 + 15: RETURN 
 2000  IF  PEEK (U + 104) < 128 THEN  RETURN 
 2020  POKE U + 238,1: POKE U + 237,0: POKE U + 239,0: CALL 14 * 256 + 42
     
 2055  IF  PEEK (150 * 256 - 2) = 179 AND  PEEK (150 * 256 - 1) = 42 THEN 
      GOTO 2099
 2058 V = 149 * 256
 2060  POKE V,0: POKE V + 3,0: POKE V + 4,0: POKE V + 5,0: POKE V + 254,1
     79: POKE V + 255,42
 2065  POKE U + 239,1: CALL 14 * 256 + 42
 2099  RETURN 
 2500 V$(1) =  CHR$ (5) + "O":V$(2) =  CHR$ (5) + "T":V$(3) =  CHR$ (5) + 
     "B"
 2505 Z =  PEEK (U + 107): IF Z > 192 THEN  GOTO 2550
 2510  IF Z AND  PEEK (U + 96) = 144 THEN  GOTO 2600
 2520  IF Z THEN  PRINT  CHR$ (4);"BRUN TEXTALKER.RAM": PRINT  CHR$ (5);"
     C": RETURN 
 2530 V$(1) = "":V$(2) = "":V$(3) = "": RETURN 
 2550  HOME : PRINT "SCreen ARticulator": PRINT "(C) 1986  RC Systems, In
     c."
 2551  PRINT  CHR$ (4);"PR#";Z - 192
 2552 I$ =  CHR$ (9): POKE 768 + 4,Z
 2555  PRINT I$"@"I$"0O"I$"2T"I$"12P"
 2560  PRINT I$"N"I$"8B"I$"14S"I$"1Y"I$"R"
 2567  PRINT I$"U"
 2570  PRINT  CHR$ (4);"BRUN SCAT.LC"
 2571  PRINT  CHR$ (4);"BLOAD SCAT TABLE,A$2000": POKE 32 * 256 + 14,Z: CALL 
     32 * 256
 2572  PRINT  CHR$ (4);"PR#0"
 2575 V$(1) =  CHR$ (5) + "1E":V$(2) =  CHR$ (5) + "2E":V$(3) =  CHR$ (5)
      + "3E"
 2577  PRINT  CHR$ (5);"17L";
 2580  RETURN 
 2600  ONERR  GOTO 2640
 2605  PRINT  CHR$ (4);"BLOAD TEXTALKER.PLUS,A$8200"
 2610  POKE 216,0: PRINT  CHR$ (4);"BRUN TEXTALKER.PLUS"
 2620  PRINT  CHR$ (5);"C": RETURN 
 2640  POKE 216,0: PRINT  CHR$ (4);"BRUN TEXTALKER.RAM"
 2650  HOME : PRINT "WHEN YOU GET TO THE STARTING MENU"
 2655  PRINT "USE THE FID PROGRAM TO COPY"
 2660  PRINT "TEXTALKER.PLUS AND TEXTALKER.RAM.OBJ"
 2670  PRINT "FROM THE BACK SIDE OF THE BEXTRAS"
 2680  PRINT "DISK TO THE BOOT SIDE OF YOUR BEX"
 2690  PRINT "DISK"
 2694  PRINT : PRINT "PRESS ANY KEY TO CONTINUE ";: GET A$
 2695  PRINT V$(1): GOTO 17
 3000  PRINT : PRINT "ENTER NAME OF AN EXISTING CONFIGURATION"
 3010  GOSUB 5200: PRINT 
 3020  PRINT "OR SET UP A NEW CONFIGURATION."
 3025  PRINT "USE THE PUNCTUATION MARKS BELOW TO ": PRINT "START SETTING 
     UP A NEW CONFIGURATION.": PRINT 
 3030  PRINT "PERIOD (RETURN) FOR LEARNER LEVEL BEX"
 3035  PRINT "ASTERISK (RETURN) FOR USER LEVEL BEX"
 3040  PRINT "AMPERSAND (RETURN) FOR MASTER LEVEL BEX"
 3045  RETURN 
 3200  IF  PEEK (U + 96) = 144 THEN  PRINT "YOU CANNOT CONFIGURE AT MASTE
     R LEVEL ON": PRINT "AN  APPLE 2 PLUS": CALL 114 * 256: GOTO 30
 3210  PRINT "YOU NEED AN EXTENDED EIGHTY COLUMN CARD": PRINT "TO CONFIGU
     RE AT THE MASTER LEVEL": CALL 114 * 256: GOTO 30
 4000  IF  LEN (A$) = 1 THEN  RETURN 
 4005  POKE U + 107,0
 4010  IF  MID$ (A$,2,1) = "V" THEN  GOTO 4100
 4020 S =  VAL ( MID$ (A$,2,1)): IF S < 1 OR S > 7 THEN  RETURN 
 4030  PRINT : PRINT  CHR$ (4);"PR#";S: RETURN 
 4100 S =  VAL ( RIGHT$ (A$,1)): IF S < 1 OR S > 7 THEN  RETURN 
 4110  PRINT : PRINT  CHR$ (4);"IN#";S: GOTO 4030
 5200  POKE U + 86,1: POKE U + 466, PEEK (43626): POKE U + 467,1: POKE U + 
     84,1:N = 0
 5202  POKE 216,0
 5230  CALL 14 * 256 + 33:A = 130 * 256
 5232  PRINT 
 5235  IF  PEEK (U + 109) = 1 THEN  PRINT  CHR$ (7);"DISK READ ERROR": RETURN 
     
 5237  PRINT "THESE CONFIGURATIONS ARE ON THIS DISK:": PRINT 
 5240 N$ = "":B =  PEEK (A): IF B = 255 THEN  RETURN 
 5244 N$ = N$ +  CHR$ (B):A = A + 1:B =  PEEK (A): IF B <  > 255 THEN  GOTO 
     5244
 5245 N = N + 1: PRINT  LEFT$ (N$, LEN (N$) - 4):A = A + 1: GOTO 5240

]