LOA WHAT ?SYNTAX ERROR ]LOAD WHAT ]LIST 2 CALL 14 * 256 10 HM = 29184 15 ST = 130 * 256:CD = 114 * 256:DIR = 149 * 256:BQ = 0:EC = 14 * 256 20 HIMEM: HM 30 D$ = CHR$ (4) 50 U = 30 * 256:L1 = PEEK (U + 64):L2 = PEEK (U + 65) 90 DIM N(12),T$(12) 99 H$ = CHR$ (8) + "^" 100 CALL CD + 42: GOSUB 4800 2300 REM 2305 PRINT : PRINT "What is in this computer:": PRINT 2310 PRINT "Currently using configuration: "; 2312 A = 864 2314 B = PEEK (A):B$ = CHR$ (B): IF B THEN A = A + 1: PRINT B$;: GOTO 2314 2316 PRINT 2325 CM = PEEK (U + 96):EX = PEEK (U + 104):E7 = 0 2330 IF CM = 1 THEN PRINT "Apple 2e computer" 2335 IF CM = 2 THEN PRINT "Apple 2c computer" 2340 IF CM = 4 THEN PRINT "Apple 2gs computer": PRINT "Slots defined b y control panel program": GOTO 2385 2345 IF CM = 144 THEN PRINT "Apple 2 plus computer" 2374 IF EX = 0 THEN PRINT "without a language card" 2376 IF EX = 64 THEN PRINT "80 column text card": PRINT "NOT an EXTEND ED 80 column card" 2380 IF EX = 128 THEN PRINT "80 column card with extended memory" 2385 IF EX < 128 THEN PRINT "Many BEX features require an extended 80" : PRINT "column card; see Appendix for details" 2390 RW = PEEK (U + 230): IF RW > 1 THEN PRINT RW;" RAM drives are ava ilable": PRINT " through slot 3" 2391 IF RW = 1 THEN PRINT "1 RAM drive available through slot 3" 2400 IF CM = 4 THEN GOSUB 3000 2402 PRINT 2410 FOR I = 1 TO 7 2415 TY = PEEK (U + 96 + I):AD = 49280 + I * 16 2420 GOSUB 2500 2430 NEXT I 2440 IF (CM = 4 AND DN = 1) AND PEEK (U + 241) THEN GOSUB 4900 2455 PRINT 2460 PRINT " (press any key)": GET A$: PRINT 2471 PRINT CHR$ (4);"RUN START" 2500 PRINT "Slot ";I;" "; 2501 IF CM = 4 AND GS(I) = 0 THEN PRINT "(GS port) "; 2502 IF GS(I) = 1 THEN PRINT "(your card) "; 2505 IF TY < > 1 THEN GOTO 2520 2510 PRINT "Super serial card": IF PEEK (AD + 1) < > 238 THEN GOTO 2 515 2512 A = PEEK (AD + 2): IF A < 240 OR A > 241 THEN GOTO 2515 2514 PRINT " standard parameters": GOTO 2520 2515 PRINT " non-standard parameters" 2520 IF TY = 2 THEN PRINT "CCS 7710-01 serial card" 2530 IF TY = 3 THEN PRINT "CCS 7710-02 serial card" 2532 IF TY = 6 THEN PRINT "Grappler plus card" 2533 IF TY = 28 THEN PRINT "Pro Grappler card" 2536 IF TY = 7 THEN PRINT "Apple parallel card" 2538 IF TY = 8 THEN PRINT "SlotBuster card" 2540 IF TY = 4 THEN PRINT "built-in serial port" 2541 IF TY * I = 8 AND PEEK (U + 107) = 64 THEN PRINT " using Crick et synthesizer" 2542 IF TY = 13 THEN PRINT "Print-it card" 2543 IF TY = 12 THEN PRINT "serial port": GOSUB 4000 2550 IF TY = 22 THEN PRINT "Regular slot memory card" 2552 IF TY = 23 THEN PRINT "3.5 inch disk drive":DN = 1 2560 IF TY = 18 THEN TY = 17 2570 IF TY = 17 THEN PRINT "5.25 inch disk drive" 2574 IF TY = 19 THEN PRINT "Echo synthesizer":E7 = 1 2575 IF TY = 20 THEN PRINT "reserved for 80 column card" 2578 IF TY = 24 THEN PRINT "Sider" 2580 IF TY = 33 THEN PRINT "joystick and mouse controller" 2595 IF TY = 128 THEN PRINT "empty slot" 2598 IF TY = 0 THEN PRINT "unknown card" 2599 RETURN 3000 V = PEEK (49197) 3005 FOR I = 0 TO 7 3010 IF V = (2 * INT (V / 2)) THEN GOTO 3030 3015 GS(I) = 1 3030 V = INT (V / 2): NEXT I 3035 GS(3) = 2 3040 RETURN 4000 RS = 0: FOR Q = 1 TO 11 4005 IF PEEK (788 + 12 * I + Q) < > N(Q) THEN RS = 1 4010 NEXT Q 4015 IF RS = 0 THEN PRINT " Set to RDC standards": RETURN 4017 PRINT " Differs from RDC standards:" 4020 FOR Q = 1 TO 11 4030 IF PEEK (788 + 12 * I + Q) = N(Q) THEN GOTO 4040 4035 PRINT " ";T$(Q) 4040 NEXT Q 4050 RETURN 4800 DATA 0,0,1,0,0,13,7,2,1,1,0 4805 DATA "line length","delete linefeed","add linefeed","echo","buffe ring" 4810 DATA "baud rate","data and stop bits","parity","DCD handshakes" 4820 DATA "DSR/DTR handshakes","Xon/Xoff handshakes" 4840 FOR Q = 1 TO 11: READ N(Q): NEXT Q 4850 FOR Q = 1 TO 11: READ T$(Q): NEXT Q 4860 RETURN 4900 PRINT CHR$ (7); CHR$ (7);"** WARNING **" 4910 PRINT "In order to use a second 3.5 inch" 4920 PRINT "disk drive, you must set the control" 4930 PRINT "panel RAM drive size to zero." 4940 RETURN ]