5  REM  *********************
10  REM *CONFIGURE BIG BUFF *
20  REM *    PROGRAM        *
30  REM *    (C) 19B4       *
40  REM * JAN G. EUGENIDES  *
50  REM *1543 N.E. 123 ST.  *
60  REM *   MIAMI, FL 33161 *
70  REM *  305-891-2353     *
75  REM *********************
80 D$ =  CHR$ (13)  +  CHR$ (4)
90  PRINT D$;"BLOAD BIG. BUFF"
100  HOME : PRINT "    BIG BUFF CONFIGURATION PROGRAM"
110  FOR N = 1 TO 40: PRINT ---;: NEXT
120  VTAB 7: PRINT "WHAT SLOT IS YOUR MODEM IN?"I: GET A$: PRINT
A$:SLOT =  VAL (A$): IF SLOT < 1 OR SLOT > 7 THEN 120
125  VTAB 9: PRINT "DO YOU HAVE A IIE?";: GET B$: PRINT B$:  IF B$ <  >
"Y" AND B$ <  > "N" THEN 125
126  IF B$ = "Y" THEN 200
130  VTAB 11: PRINT "DO YOU HAVE A LOWERCASE CHIP AND SHIFT   KEY
MODIFICATION?";I: GET A$: PRINT A$: IF AS <  > "Y" AND A$ <  > "N" THEN
130
150 N = 176 + SL0T:C1 = 134 + (SLOT  16): C2 = 133 + (SLOT * 16):M =
120 + SL0T:C3 = 192 + SLOT
160 POKE 37310,N: POKE 37317,C1: POKE 37407,C3: POKE 37412,C1 + 1:
POKE 37507,C3: POKE 37516,C3
170 POKE 37596,C2: POKE 38063,C1: POKE 38093,N: POKE 38310,C3: POKE
38323,C1
180 IF AS = "N" THEN 500
190 FOR x = 37328 TO 37338: READ OP: POKE x,OP: NEXT x
200 FOR x = 37451 TO 37453: POKE x,234: NEXT
210 FOR x = 37431 TO 37434: POKE x,234: NEXT
220 FOR x = 37853 TO 37855: POKE x,234: NEXT x
500 PRINT D$;"BSAVE BIG.BUFF.CONFIGURCD,A$9100,L$4C5"
510 END
1000 DATA 48,3,76,193,145,44,16,192,174,99,192