LOAD FORCE
]LIST

 10  READ NN
 50 U = 7680:CM =  PEEK (U + 96):Q = 146 * 256
 100  CALL 14 * 256
 105  PRINT  CHR$ (4);"BLOAD CARDS.BIN,A$9200"
 106  FOR I = 1 TO NN: READ T$(I): NEXT I
 107  IF CM = 4 THEN T$(5) = "Apple 2gs " + T$(5)
 130 SL =  PEEK (Q + 46):X =  PEEK (Q + 47)
 140  IF SL = 0 THEN  GOTO 500
 150  PRINT "You have forced slot ";SL;" to be": PRINT "a ";T$(X)
 160  PRINT "Do you want to undo? Y"; CHR$ (8);: INPUT "";A$
 170  IF  LEFT$ (A$ + "Y",1) <  > "Y" THEN  GOTO 500
 175  POKE U + 96 + SL,0
 180 N =  PEEK (Q) - 1:SL = 0:Y = 0: GOTO 730
 500  PRINT "This option forces BEX to recognize one"
 510  PRINT "of your circuit cards. Only use this"
 520  PRINT "option when you are sure the unknown"
 530  PRINT "card acts like one card from the"
 540  PRINT "following list."
 550  PRINT 
 605  FOR I = 1 TO 7
 610  IF  PEEK (U + 96 + I) = 0 THEN  GOTO 620
 615  NEXT I: PRINT "All cards are recognized": GOTO 1000
 620  PRINT "Enter Slot:^";: INPUT "";A$:SL =  VAL (A$)
 621  IF A$ = "" THEN  GOTO 1000
 622  IF SL = 0 THEN  GOSUB 1300: GOTO 620
 625  IF SL < 1 OR SL > 7 THEN  PRINT "Invalid Slot number": GOTO 620
 627  IF  PEEK (U + 96 + SL) = 128 THEN  PRINT "No card in slot ";SL: GOTO 
     1000
 630  IF  PEEK (U + 96 + SL) <  > 0 THEN  PRINT "The card in slot ";SL;" 
     is recognized": GOTO 1000
 632  GOSUB 1200
 635  PRINT "Which card is in slot ";SL;: INPUT ":";A$
 640  IF  LEFT$ (A$,1) = "*" THEN Y =  VAL ( MID$ (A$,2, LEN (A$))): GOTO 
     680
 641 X =  VAL (A$): IF X = 0 THEN  PRINT : PRINT "Canceled": GOTO 1000
 642  IF X > NN THEN  GOTO 635
 650  PRINT T$(X)
 660  IF X = 2 THEN  GOSUB 3000
 670 Y = 4 + X: IF X = 1 THEN Y = 1
 671  IF X = 5 THEN Y = 4: IF CM = 4 THEN Y = 12
 672  IF X = 6 THEN Y = 17
 673  IF X = 7 THEN Y = 23
 674  IF X = 8 THEN Y = 24
 675  IF X = 9 THEN Y = 22
 677  IF X = 10 THEN Y = 24: GOSUB 1400
 680  IF X <  > 2 THEN  GOTO 700
 682  PRINT "Do you have a Pro Grappler card? Y"; CHR$ (8);: INPUT "";A$
 684  IF  LEFT$ (A$ + "Y",1) = "Y" THEN Y = 28
 700 N =  PEEK (Q) + 1: POKE Q + N,Y: POKE U + 96 + SL,Y
 705  FOR I = 0 TO 15
 710  POKE (2 + N) * 16 + Q + I, PEEK ((192 + SL) * 256 + 16 * I)
 715  NEXT I
 730  POKE Q + N + 1,Y
 735  POKE Q,N: POKE Q + 46,SL: POKE Q + 47,X
 750 L = (4 + N) * 16
 755  PRINT  CHR$ (4);"UNLOCK CARDS.BIN"
 760  PRINT  CHR$ (4);"BSAVE CARDS.BIN,A$9200,L";L
 770  PRINT  CHR$ (4);"LOCK CARDS.BIN"
 780  PRINT "Done"
 1000  PRINT : PRINT  CHR$ (4);"RUN START"
 1200  PRINT "I know this card acts like this number:"
 1210  FOR I = 1 TO NN
 1220  PRINT I;" - ";T$(I)
 1230  NEXT I
 1240  PRINT : PRINT "0 - None of the above"
 1265  RETURN 
 1300  FOR I = 1 TO 7: IF  PEEK (U + 96 + I) = 0 THEN  PRINT "Slot ";I;" 
     is not recognized"
 1310  NEXT I
 1320  RETURN 
 1400 A = 14 * 256 + 22
 1410 B =  PEEK (A) + 256 *  PEEK (A + 1) + 70
 1420  POKE B,141: POKE B + 1,102: POKE B + 2,170
 1430  PRINT  CHR$ (4);"UNLOCK INOUT.BIN"
 1440  PRINT  CHR$ (4);"BSAVE INOUT.BIN,A$E00,L$CFC"
 1450  PRINT  CHR$ (4);"UNLOCK INOUT.BIN"
 1460  RETURN 
 1999  DATA  10
 2000  DATA  "Super Serial Card","Grappler parallel card","Apple parallel
      card"
 2010  DATA   "SlotBuster card","serial port","5.25 inch disk drive"
 2015  DATA  "3.5 inch disk drive","Sider hard disk drive","Regular slot 
     memory card"
 2020  DATA  "Vulcan hard disk drive"
 3000  PRINT "Do you have a Pro Grappler card? Y"; CHR$ (8);

]