LOAD SETCON ]LIST 5 HOME 6 HM = 29184 10 U = 30 * 256:BT = U + 32:KP = U + 64:CM = U + 96:ST = 130 * 256:CD = 114 * 256 20 L2 = PEEK (KP):L3 = PEEK (KP + 1):PP = U + 464:QP = U + 109:QC = 14 * 256 + 24 25 POKE BT,1: POKE BT + 26,1: POKE KP + 10,145: POKE BT + 17,1: POKE KP + 31,112 27 POKE KP + 2,21: POKE KP + 8,12 30 IF L3 = 0 THEN POKE BT + 18,128 40 PRINT CHR$ (4);"BLOAD QUESTIONS.A,A$8200" 45 CALL CD + 15 50 DIM BR$(16),BR%(16),LP$(3): GOSUB 8600 60 Z = PEEK (CM + 11): IF Z THEN PRINT CHR$ (4);"PR#0":V$ = CHR$ (5) + "O": IF Z > 192 THEN V$ = CHR$ (5) + "1E" 70 IF Z THEN Q = 1: GOSUB 5100: IF A = 1 THEN PRINT V$ 100 PRINT 150 IF L2 = 0 THEN PRINT "FOR MORE DETAILS ABOUT EACH QUESTION": PRINT "PRESS RETURN FOR ON-LINE HELP": PRINT 200 IF L2 = 0 THEN GOTO 400 300 Q = 2: GOSUB 5100: IF A = 0 THEN GOTO 400 320 Q = 3: GOSUB 5200: POKE BT + 24,A: GOTO 500 400 B = PEEK (CM): IF B < 128 THEN GOTO 500 420 Q = 4: GOSUB 5100: POKE BT + 25,A + 2 500 B = PEEK (CM + 11): IF B = 0 THEN GOTO 700 510 OF = 0: IF B = 64 THEN OF = 1 512 IF B > 192 THEN OF = 46 520 Q = 5 + OF: GOSUB 5100: IF A = 0 THEN GOTO 700 522 IF B > 192 THEN POKE BT + 9,3: POKE BT + 2,1:E$ = "YOUR VOICE DEVI CE":P = 1: GOSUB 8970: GOTO 800 528 Q = 7: GOSUB 5100: POKE KP + 3,A 530 Q = 8 + OF: GOSUB 5100: IF A = 0 THEN GOTO 590 540 Q = 10:LO = 0:HI = 63: GOSUB 5160: POKE KP + 2,A 550 Q = 11: GOSUB 5100: POKE KP + 4,A 560 Q = 12:LO = 0:HI = 15: GOSUB 5160: POKE KP + 8,A 590 POKE BT + 9,1: POKE BT + 2,1: GOTO 800 700 IF L2 = 0 THEN GOTO 1000 710 Q = 13: GOSUB 5100: IF A = 0 THEN GOTO 800 720 Q = 14: GOSUB 5200: IF A = 0 THEN GOTO 800 730 POKE BT + 2,1: POKE BT + 3,A: POKE BT + 9,0 735 IF SQ = 8 THEN POKE BT + 9,3 737 IF ZY$ = "" THEN GOTO 750 740 Q = 15: GOSUB 5100: IF A = 1 THEN POKE BT + 9,2:SS$(1) = ZY$ + "8B" + CHR$ (13) + ZY$ + ZX$ + CHR$ (13): GOSUB 7560 750 E$ = "YOUR VOICE DEVICE":P = 1: GOSUB 8900 800 IF L2 = 0 THEN GOTO 1000 810 Q = 16: GOSUB 5100: IF A = 0 THEN GOTO 1000 820 Q = 17: GOSUB 5200: IF A = 0 THEN GOTO 1000 830 POKE BT + 4,1: POKE BT + 5,A 840 E$ = "YOUR BRAILLE DEVICE":P = 2: GOSUB 8900 950 IF PJ = 1 THEN RETURN 1000 IF L2 = 0 THEN GOTO 1300 1010 Q = 18: GOSUB 5100: IF A = 0 THEN GOTO 1200 1020 Q = 19: GOSUB 5200: IF A = 0 THEN GOTO 1200 1030 POKE KP + 5,A 1040 Q = 20: GOSUB 6000: POKE KP + 6,A 1050 E$ = "THE VERSABRAILLE":P = 0: GOSUB 8900 1200 Q = 21: GOSUB 5100: IF A = 0 THEN GOTO 1300 1210 Q = 22: GOSUB 5200: IF A = 0 THEN GOTO 1300 1220 POKE KP + 7,A:Q = 37: GOSUB 5100 1222 IF A = 1 THEN SS$(3) = ZY$ + "12B" + CHR$ (13) + ZY$ + "0D" + CHR$ (13) 1230 E$ = "YOUR REMOTE SERIAL DEVICE":P = 3: GOSUB 8900 1300 Q = 23: GOSUB 5100: IF A = 0 THEN GOTO 1310 1305 Q = 24: GOSUB 5600 1310 POKE BT + 8,A: POKE BT + 20,A 1320 IF A > 0 THEN GOTO 1500 1330 Q = 35: GOSUB 5100: IF A = 1 THEN POKE BT + 20,6 1500 PRINT "PRINTER SECTION" 1505 ZR = 0 1510 P$ = "ONE":P = 144: GOSUB 2000: IF SL = 0 THEN GOTO 2500 1520 P$ = "TWO":P = 160: GOSUB 2000: IF SL = 0 THEN GOTO 2500 1530 P$ = "THREE":P = 176: GOSUB 2000: IF SL = 0 THEN GOTO 2500 1540 P$ = "FOUR":P = 192: GOSUB 2000: GOTO 2500 2000 PT = 0:PF = 1:ZQ = 0:ZY = 3 + (P - 128) / 16 2002 PRINT : PRINT "PRINTER ";P$;" DESCRIPTION" 2010 Q = 25: GOSUB 5200:SL = A: POKE U + P,SL: IF SL = 0 THEN RETURN 2012 IF PEEK (CM + SL) = 8 THEN GOSUB 9300 2015 Q = 26: GOSUB 8000 2020 IF CT = 1 THEN POKE U + P + 4,40: GOTO 2080 2022 IF CT = 4 THEN POKE U + P + 1,4: POKE U + P + 4,40: POKE U + P + 3,19: GOTO 2080 2023 SU = 72:SV = 56 2024 IF PEEK (U + P + 3) = 18 THEN GOSUB 7900 2025 IF CT = 10 AND PJ = 0 THEN GOSUB 5500 2026 IF CT = 64 THEN GOSUB 8100 2027 IF CT = 128 THEN GOSUB 8700 2028 IF ZQ = 99 THEN GOTO 2000 2029 IF CT = 128 THEN POKE U + P + 3,BR%(B): POKE U + P + 11,B: GOSUB 2200 2030 POKE U + P + 1,CT 2040 Q = 38:LO = 1:HI = 250: GOSUB 5162: POKE U + P + 4,A 2045 Q = 39:LO = 0:HI = 120:SU = SV: GOSUB 5162: POKE U + P + 5,A 2049 IF PEEK (U + P + 3) = 9 THEN GOTO 2080 2050 IF CT < 128 THEN GOTO 2070 2052 IF B = 11 THEN POKE U + P + 8,1 2055 IF B < 3 OR L2 = 0 THEN GOTO 2080 2070 Q = 40: GOSUB 5100: POKE U + P + 7,A 2072 IF CT = 128 AND B < 12 THEN GOTO 2080 2073 IF CT = 64 THEN POKE U + P + 6,1: GOTO 2080 2075 Q = 41: GOSUB 5100: POKE U + P + 6,A 2080 IF L2 = 0 OR SQ = 20 THEN RETURN 2085 E$ = "PRINTER " + P$:P = 4 + (P - 144) / 16: GOSUB 8900 2090 RETURN 2200 ON BR%(B) + 1 GOTO 2299,2220,2240,2299,2299,2280,2299,2299,2299,22 99 2220 POKE U + P + 9,B - 12 2225 INPUT "WHAT CHARACTER ARE YOU USING?";A$: POKE U + P + 10, ASC (A$ + "."): RETURN 2240 INPUT "TIME DELAY";A$: POKE U + P + 9, VAL (A$): RETURN 2280 POKE U + P + 9,7 - B 2282 INPUT "DO YOU NEED A TIME DELAY FOR EACH PAGE?";A$: IF LEFT$ (A$ + "N",1) < > "Y" THEN POKE U + P + 10,128 2299 RETURN 2500 IF L3 = 0 THEN GOTO 2800 2510 Q = 44: GOSUB 5100 2520 IF A = 0 THEN GOTO 2800 2600 REM LOGICAL DRIVES 2605 SD = 1:HD = 0 2610 PRINT "Virtual drive 1 is for the Main program disk" 2620 P = 1: GOSUB 6800 2625 IF A = 0 THEN PRINT CHR$ (7);"Extended disk system canceled": GOTO 2500 2630 P = P + 1: IF P = 9 THEN GOTO 2650 2640 GOSUB 6800: IF A > 0 THEN GOTO 2630 2650 IF FY = 1 THEN GOTO 2670 2652 IF BZ = 0 THEN PRINT CHR$ (7);"Booting drive is not listed":A = 0: GOTO 2625 2654 POKE U + 486,BZ: POKE U + 487,1 2670 POKE U + 485,0: GOTO 4700 2800 Q = 47:LO = 1:HI = 2: GOSUB 5160:DZ = A 2820 POKE KP + 11,DZ: POKE PP + 2, PEEK (43626): POKE PP + 3,1: POKE PP + 4, PEEK (43626): POKE PP + 5,2 4700 GOSUB 7000 4705 A = PEEK (BT + 9): IF A = 1 OR A = 3 THEN GOSUB 7500 4708 PRINT "ENTER A NAME FOR THIS CONFIGURATION:": GOSUB 4900 4710 IF A$ = "" THEN A$ = "DEFAULT" 4712 ONERR GOTO 4800 4715 PRINT CHR$ (4);"BSAVE ";A$;".CON,A$1E00,L$1FF" 4720 FOR I = 1 TO LEN (A$): POKE 863 + I, ASC ( MID$ (A$,I,1)): NEXT I 4722 POKE 864 + LEN (A$),0 4730 IF DZ = 1 AND PEEK (U + 230) > 0 THEN POKE 8146,3: POKE 8149,1: POKE KP + 11,2: POKE U + 486,2 4750 A = (L2 + L3) / 128: PRINT CHR$ (4);"BLOAD MESSAGES."; CHR$ (65 + A);",A$8200" 4752 PRINT CHR$ (4);"BLOAD TABLE.BIN,A$9100" 4755 CALL CD + 15 4770 A = PEEK (U + 56): IF A > 0 THEN PRINT "PRESS ANY KEY": PRINT CHR$ (4);"IN#";A: GET A$: PRINT 4775 CALL 114 * 256 + 18 4780 GOSUB 7400 4790 PRINT CHR$ (4);"RUN START" 4800 A = PEEK (222) 4805 IF A = 4 THEN PRINT "REMOVE WRITE PROTECT TAB" 4810 IF A = 9 THEN PRINT "DISK FULL" 4815 IF A = 11 THEN PRINT "NAME MUST START WITH A CAPITAL LETTER" 4820 IF A = 8 THEN PRINT "BAD DISK, UNABLE TO WRITE" 4825 IF A = 6 THEN PRINT "BOOT DISK IS MISSING OR DAMAGED" 4830 IF A = 10 THEN PRINT "CONFIGURATION FILE IS LOCKED" 4850 POKE 216,0: GOTO 4708 4900 A$ = "" 4902 GET C$:C = ASC (C$): IF C > 96 AND C < 123 THEN C$ = CHR$ (C - 3 2) 4903 IF C = 127 THEN C = 8:C$ = CHR$ (8) 4904 PRINT C$;: IF C = 13 THEN RETURN 4906 IF C = 24 THEN PRINT "\": GOTO 4900 4911 IF C < > 8 THEN A$ = A$ + C$: GOTO 4902 4912 IF LEN (A$) < 2 THEN GOTO 4900 4913 A$ = LEFT$ (A$, LEN (A$) - 1): GOTO 4902 5100 GOSUB 9800 5110 INPUT "";A$:A$ = LEFT$ (A$ + " ",1) 5120 IF ASC (A$) > 96 THEN ER = 2: GOTO 5140 5125 IF A$ = "N" THEN A = 0: RETURN 5127 IF A$ = "Y" THEN A = 1: RETURN 5130 ER = 3 5135 IF Q = 40 AND B + L2 = 131 THEN POKE QP,10: CALL QC 5140 POKE QP,Q + 80: CALL QC: PRINT : POKE QP,ER: CALL QC: PRINT : GOTO 5100 5160 SU = - 1 5162 GOSUB 9800 5165 INPUT "";A$:A = VAL (A$) 5170 IF A$ < > STR$ (A) THEN GOTO 5180 5175 IF A = > LO AND A = < HI THEN RETURN 5180 IF SU = - 2 THEN POKE QP,5: CALL QC 5185 IF Q = 28 THEN POKE QP,5: CALL QC: CALL CD + 12 5187 IF Q = 30 AND HI > 24 THEN PRINT "CHOOSE A FONT SIZE FROM 6 TO 30 POINTS": GOTO 5160 5188 IF Q = 46 AND A$ = "" THEN GOSUB 9500: GOTO 5160 5189 IF Q = 46 THEN PRINT CHR$ (7);"Enter a number from 1 to ";D9: PRINT "or zero to cancel.": GOTO 5160 5190 POKE QP,Q + 80: CALL QC 5195 IF SU > - 1 THEN POKE QP,8: CALL QC: PRINT SU 5198 GOTO 5162 5200 GOSUB 9800 5205 INPUT "";A$:A = VAL (A$): IF A$ < > STR$ (A) THEN GOTO 5260 5207 IF A = 0 THEN RETURN 5210 IF A < 1 OR A > 8 THEN GOTO 5260 5220 C = A:B = PEEK (U + 96 + A):SQ = B:ZY$ = "":ZX$ = "X E" 5221 IF SQ = 1 THEN ZY$ = CHR$ (9) 5222 IF SQ = 4 THEN ZY$ = CHR$ (1) 5223 IF SQ = 12 THEN ZY$ = CHR$ ( PEEK (U + 232 + A)) 5225 GOSUB 5300 5226 IF SD = 1 THEN GOSUB 5250 5227 IF Q = 19 AND (B > 4 AND B < > 8) THEN A = - 1 5230 IF A < > - 1 THEN RETURN 5235 PRINT "THAT WOULD NOT WORK!" 5240 PRINT "SLOT ";C;" HAS ";E$;F$: GOTO 5200 5250 D9 = - 1: IF B = 0 THEN D9 = 8 5251 IF B = 17 THEN D9 = 2 5252 IF B = 20 THEN D9 = PEEK (U + 230) 5253 IF B = 22 THEN D9 = 1 5254 IF B = 23 THEN D9 = 4 5255 IF B = 24 AND P = 1 THEN D9 = 1 5258 IF D9 > 0 THEN A = C: RETURN 5259 A = - 1: RETURN 5260 GOSUB 5400: POKE QP,4: CALL QC: POKE QP,Q + 80: CALL QC: GOTO 5200 5300 IF B = 18 THEN B = 17 5305 F$ = " IN IT." 5310 IF B = 0 THEN E$ = "AN UNKNOWN CARD" 5315 IF B = 1 THEN E$ = "A SUPER SERIAL CARD" 5320 IF B = 2 THEN E$ = "A CCS 7710-01 SERIAL CARD" 5325 IF B = 3 THEN E$ = "A CCS 7710-02 SERIAL CARD" 5326 IF B = 12 THEN E$ = "A BUILT-IN SERIAL PORT" 5327 IF B = 13 THEN E$ = "A PRINT-IT CARD" 5329 IF B = 24 THEN E$ = "A HARD DISK":A = - 1 5330 IF B = 4 THEN E$ = "A BUILT-IN SERIAL PORT" 5332 IF B = 6 THEN E$ = "A GRAPPLER PLUS CARD" 5333 IF B = 28 THEN E$ = "A PRO GRAPPLER CARD" 5334 IF B = 7 THEN E$ = "AN APPLE PARALLEL CARD" 5335 IF B = 128 THEN E$ = "NOTHING":A = - 1 5336 IF B = 8 THEN E$ = "SLOTBUSTER CARD" 5340 IF B = 17 THEN E$ = "5.25 INCH DISK DRIVE":A = - 1 5350 IF B = 19 THEN E$ = "AN ECHO SYNTHESIZER":A = - 1 5352 IF PF = 1 AND B = 20 THEN E$ = "80 COLUMN VIDEO DISPLAY": RETURN 5355 IF B = 20 THEN E$ = "BEEN RESERVED":F$ = CHR$ (13) + " FOR THE 8 0 COLUMN CARD.":A = - 1 5365 IF B = 22 THEN E$ = "REGULAR SLOT MEMORY CARD":A = - 1 5367 IF B = 23 THEN E$ = "3.5 INCH DISK DRIVE":A = - 1 5399 RETURN 5400 IF Q = 45 THEN GOTO 9500 5405 PRINT : PRINT : PRINT "WHAT IS IN YOUR COMPUTER:": PRINT 5410 FOR I = 1 TO 7 5420 B = PEEK (CM + I): GOSUB 5300 5422 PRINT "SLOT ";I: PRINT " HAS ";E$;F$ 5430 NEXT I: PRINT : RETURN 5500 Q = 27: GOSUB 5100 5501 ZQ = 0 5502 PRINT CHR$ (4);"BLOAD PRINTERS."; CHR$ (65 + A);",A$8200" 5505 CALL CD + 6 5510 Q = 28:LO = 0:HI = PEEK (CD + 21): GOSUB 5160 5512 AA = A 5515 IF A = 0 THEN ZQ = 99: PRINT "canceled": RETURN 5520 PRINT "THAT MEANS "; 5524 B = 256 * PEEK (151 * 256 + 2 * A - 1) + PEEK (151 * 256 + 2 * A - 2) 5525 C$ = "" 5530 C = PEEK (B): IF C < > 127 THEN C$ = C$ + CHR$ (C):B = B + 1: GOTO 5530 5535 PRINT C$;"." 5537 Q = 34: GOSUB 5100 5540 IF A = 0 THEN GOTO 5510 5542 SU = 72:SV = 56 5545 IF ZQ = 1 THEN RETURN 5550 POKE CD + 21,AA: CALL CD + 9:PJ = 1: RETURN 5600 GOSUB 9800 5605 INPUT "";A$:B = VAL (A$) 5610 IF B = 80 THEN A = 4: RETURN 5615 IF B = 40 THEN A = 0: RETURN 5620 IF B = 20 THEN A = 8: RETURN 5625 IF B = 10 THEN A = 10: RETURN 5630 IF B = 5 THEN A = 12: RETURN 5640 PRINT "THERE ARE 5 DIFFERENT SCREEN SIZES:" 5650 PRINT "80 COLUMN": PRINT "40 COLUMN": PRINT "20 COLUMN": PRINT "10 COLUMN": PRINT "AND 5 COLUMN" 5655 PRINT "ENTER ONE OF THESE NUMBERS": GOTO 5600 6000 GOSUB 9800 6005 INPUT "";A$:A = ASC (A$ + " ") - 64 6010 IF A > 0 AND A < 5 THEN RETURN 6015 POKE QP,Q + 80: CALL QC: PRINT : GOTO 6000 6800 PRINT : PRINT "For virtual drive ";P + SZ 6810 Q = 45: GOSUB 5200:SL = A: IF SL = 0 THEN RETURN 6825 IF B = 24 THEN GOTO 7100 6830 POKE PP + P * 2,SL 6840 Q = 46:LO = 0:HI = D9: GOSUB 5160 6842 IF A = 0 THEN PRINT CHR$ (7);"Cancelled": GOTO 6800 6843 IF (B = 23 AND PEEK (U + 241)) AND (1 - A + 2 * INT (A / 2)) THEN PRINT CHR$ (7);"To access this drive, the control panel": PRINT "R AM drive maximum size must be 0." 6845 POKE PP + 1 + P * 2,A 6847 IF SL = PEEK (43626) AND A = PEEK (43624) AND BZ = 0 THEN BZ = P 6850 IF P = 1 THEN RETURN 6860 FOR K = 1 TO P - 1 6870 IF PEEK (PP + 2 * K) = SL AND A = PEEK (PP + 2 * K + 1) THEN GOTO 6890 6875 NEXT K 6880 POKE KP + 11,P + SZ: RETURN 6890 PRINT CHR$ (7);"Duplication with virtual drive ";K + SZ: GOTO 680 0 7000 IF PEEK (BT + 3) = 0 AND PEEK (CM + 11) > 192 THEN SS$(1) = CHR$ (5) + "2E" + SS$(1): GOTO 7005 7004 IF PEEK (BT + 3) = 0 AND PEEK (CM + 11) > 0 THEN SS$(1) = CHR$ (5) + "T" 7005 PP = U + 376 7010 FOR P = 0 TO 7 7015 POKE U + 368 + P,PP - U - 256 7020 A = LEN (SS$(P)): IF A = 0 THEN GOTO 7040 7025 FOR I = 1 TO A 7030 POKE PP, ASC ( MID$ (SS$(P),I,1)):PP = PP + 1 7035 NEXT I 7040 POKE PP,127:PP = PP + 1 7045 NEXT P 7050 RETURN 7100 PRINT "Hard disk drive" 7115 POKE U + 465,A 7120 Q = 48:LO = 2:HI = 128: GOSUB 5160:SZ = A:HD = 1 7125 POKE U + 464,SZ + 1: POKE U + 484,SZ 7140 Q = 49:LO = HD + 1:HI = 8 + SZ: GOSUB 5160: POKE U + 486,A 7150 Q = 50:LO = HD + 1:HI = 8 + SZ: GOSUB 5160: POKE U + 487,A 7160 POKE KP + 11,SZ 7170 PP = PP - 2:SZ = SZ - 1:FY = 1 7180 RETURN 7400 IF PEEK (U + 9) < > 1 OR PEEK (U + 2) = 0 THEN GOTO 7425 7405 PRINT CHR$ (5); PEEK (U + 66);"P" 7410 PRINT CHR$ (5); PEEK (U + 72);"V" 7415 IF PEEK (U + 67) = 0 THEN PRINT CHR$ (5);"E" 7420 IF PEEK (U + 68) = 1 THEN PRINT CHR$ (5);"M" 7425 RETURN 7500 REM ECHO PITCH 7505 A = 32 * 256 - 32:B = PEEK (KP + 2):L = 8 7507 IF PEEK (BT + 9) = 3 THEN B = 50:L = 15 7510 GOSUB 7550:B = B + L: GOSUB 7550:B = B + L: GOSUB 7550 7520 RETURN 7550 A = A + 8: POKE A,5:C = INT (B / 10): POKE A + 1,C + 48: POKE A + 2,B - 10 * C + 48: POKE A + 3,80 7555 RETURN 7560 A = 32 * 256 - 24:B = PEEK (KP + 2) 7565 FOR C = 0 TO 16 STEP 8: GOSUB 7580: NEXT C 7570 POKE A + 11,102: POKE A + 19,107: RETURN 7580 POKE A + C,91: POKE A + C + 1,58: POKE A + C + 2,110: POKE A + C + 3,112: POKE A + C + 4,93 7585 RETURN 7900 PRINT "PostScript Driver" 7910 Q = 30:LO = 6:HI = 30: GOSUB 5160:FT = A 7920 B = INT (A / 10): POKE U + P + 9,48 + B: POKE U + P + 10,A - 10 * B + 48 7930 Q = 31:LO = A:HI = 60:SU = 2 * INT (FT * .6): GOSUB 5162 7935 SV = INT (650 / A):SU = INT (1090 / FT) 7940 B = INT (A / 10): POKE U + P + 12,48 + B: POKE U + P + 13,A - 10 * B + 48 7945 SS$(ZY) = ZY$ + ZX$ + CHR$ (13) 7947 CT = 10 7950 IF PJ > 0 THEN RETURN 7960 PRINT CHR$ (4);"BLOAD PRINTERS.C,A$8200" 7965 CALL CD + 6: POKE CD + 21,1: CALL CD + 9:PJ = 1 7970 RETURN 8000 GOSUB 9800: INPUT "";A$ 8010 IF A$ = "G" THEN CT = 0: RETURN 8011 IF A$ = "A" THEN POKE U + P + 3,18:CT = 0: RETURN 8012 IF A$ = "V" THEN CT = 1: RETURN 8013 IF A$ = "R" THEN GOTO 8060 8015 IF A$ = "S" THEN CT = 10: RETURN 8020 IF A$ = "L" THEN CT = 64: RETURN 8025 IF A$ = "B" THEN CT = 128: RETURN 8028 IF A$ = "P" THEN CT = 4: RETURN 8030 POKE QP,Q + 80: CALL QC: PRINT : GOTO 8000 8060 IF SQ < > 20 THEN PRINT CHR$ (7);"CANCELED": PRINT "REQUIRES 80 COLUMN CARD, SPECIFY SLOT 3":ZQ = 99: RETURN 8062 POKE U + P + 3,9:CT = 0: RETURN 8100 IC = PEEK (CM + SL):QQ = U + 112:E$ = CHR$ (27) 8120 IF IC = 1 OR IC = 4 THEN GOSUB 8300: GOTO 8150 8122 IF IC = 12 THEN SS$(ZY) = SS$(ZY) + ZY$ + "LD" + ZY$ + "Z": GOTO 8 150 8123 IF IC = 28 THEN SS$(ZY) = SS$(ZY) + CHR$ (9) + "H" + CHR$ (9) + "0N" + CHR$ (9) + "T": PRINT "MAKE SURE YOU HAVE VERSION 2.0 PRO GR APPLER": GOTO 8150 8125 IF IC = 6 OR IC = 7 THEN GOSUB 8330: GOTO 8150 8130 IF IC = 8 THEN GOSUB 8350: GOTO 8150 8140 PRINT "BEX CAN'T DO LARGE PRINT THROUGH CARD IN SLOT ";SL;".":ZQ = 99: RETURN 8150 IF ZR = 0 OR SL = ZR THEN GOTO 8155 8152 POKE QP,6: CALL QC:ZQ = 99: RETURN 8155 GOSUB 8500: IF AA = 0 THEN ZQ = 99: RETURN 8160 POKE U + P + 2,AA: POKE U + P + 1,64:ZQ = 0 8210 Q = 30:LO = 8:HI = 24: GOSUB 5160 8212 IF IC = 4 THEN POKE QQ + 4,16 8215 PW = A 8230 POKE U + P + 9,PW 8232 LO = 8 * INT ((PW + 7) / 8):SU = INT (PW * 1.5) 8235 Q = 31:HI = 40: GOSUB 5162 8237 R = A - LO:LS = A 8239 IF AA = 1 THEN R = R * 2: POKE U + P + 12, INT (R / 10) + 48:R = R - 10 * INT (R / 10): POKE U + P + 13,R + 48 8240 IF AA = 2 THEN POKE U + P + 12,R: POKE U + P + 13,127 8250 Q = 32:LO = 0:HI = 10: GOSUB 5160 8255 POKE U + P + 14,A: POKE U + P + 3,17 8260 IF AA = 1 THEN SS$(ZY) = SS$(ZY) + E$ + "T16" 8270 IF AA = 2 THEN SS$(ZY) = SS$(ZY) + E$ + "U1" + E$ + "A" + CHR$ (8 ) 8290 SU = INT (800 / (PW + A + 1)):SV = INT (732 / LS) - 3: RETURN 8300 POKE QQ + 1,192: POKE QQ + 3,192: POKE QQ,137 + 16 * SL: POKE QQ + 2,136 + 16 * SL 8310 POKE QQ + 4,112: POKE QQ + 5,16 8315 RETURN 8330 POKE QQ + 1,192: POKE QQ + 3,192: POKE QQ,128 + 16 * SL: POKE QQ + 2,128 + 16 * SL 8333 POKE QQ + 4,15: POKE QQ + 5,3 8334 IF Q = 7 THEN POKE QQ + 4,16: POKE QQ + 5,0 8335 RETURN 8350 POKE QQ + 1,192: POKE QQ + 3,192: POKE QQ,128 + 16 * SL: POKE QQ + 2,128 + 16 * SL 8355 POKE QQ + 4,128: POKE QQ + 5,128: RETURN 8500 Q = 29:LO = 0:HI = 2:SU = - 2: GOSUB 5162:AA = A 8505 IF AA = 0 THEN POKE QP,56: CALL QC: RETURN 8510 ZR = SL: RETURN 8600 READ NB: FOR I = 1 TO NB 8602 READ BR$(I),BR%(I) 8604 NEXT I: RETURN 8608 DATA 16 8610 DATA "BRAILLE PREVIEWER",8,"BRAILLE PREVIEWER WITH VOICE",9 8615 DATA "CRANMER",4,"M BOSS 1",0 8620 DATA "THIEL",0,"OLD L E D 120 USING CONTROL-K",5 8625 DATA "OLD L E D NOT USING CONTROL-K",5,"NEW L E D",0 8630 DATA "GENERIC EMBOSSER",0,"TELESENSORY VERSAPOINT",0 8635 DATA "OHTSUKI BRAILLER",3,"DIPNER DOTS EMBOSSED",1 8640 DATA "DIPNER DOTS PRINTED",1,"E T F 80 AND I B M TYPEWRITER",2 8645 DATA "CAMWIL TYPEBALL",7,"P E D PLATE EMBOSSER",6 8700 Q = 33:LO = 0:HI = NB:SU = - 2: GOSUB 5162 8704 IF A = 0 THEN ZQ = 99: PRINT "CANCELED": RETURN 8705 IF A < 2 AND SQ + PEEK (CM) = 64 THEN GOTO 8708 8706 IF A < 3 AND SQ < > 20 THEN PRINT CHR$ (7);"CANCELED": PRINT "R EQUIRES 80 COLUMN CARD, SPECIFY SLOT 3":ZQ = 99: RETURN 8708 B = A 8710 PRINT "THAT MEANS ";BR$(A);".":Q = 34: GOSUB 5100: IF A = 0 THEN GOTO 8700 8715 IF B = 16 THEN SS$(ZY) = ZY$ + "8B" + ZY$ + "0D" 8720 IF B = 13 THEN SS$(ZY) = SS$(ZY) + CHR$ (27) + CHR$ (31) + CHR$ (7) + CHR$ (27) + CHR$ (30) + CHR$ (5) 8725 IF B = 12 THEN SS$(ZY) = SS$(ZY) + CHR$ (27) + CHR$ (31) + CHR$ (11) + CHR$ (27) + CHR$ (30) + CHR$ (6) 8740 SU = 40:SV = 25: RETURN 8900 POKE QP,9: CALL QC: PRINT E$;"?":Q = 42: GOSUB 5110 8910 IF A = 0 THEN RETURN 8920 POKE QP,63: CALL QC: PRINT 8925 IF PEEK (CM) = 64 THEN PRINT "USE CARET (^) TO TERMINATE SEQUENC E" 8930 B$ = "" 8940 GET A$: IF A$ = "" OR ( PEEK (CM) > = 128 AND A$ = "^") THEN GOTO 8950 8941 IF LEN (A$) = 0 THEN A$ = CHR$ (0): GOTO 8945 8942 IF ASC (A$) > 31 THEN PRINT A$; 8943 IF ASC (A$) = 13 THEN PRINT 8945 B$ = B$ + A$: GOTO 8940 8950 PRINT 8960 SS$(P) = SS$(P) + B$: RETURN 8970 PRINT CHR$ (5); CHR$ (17);: GOSUB 8900: PRINT CHR$ (17); CHR$ (5 );: RETURN 9300 REM SLOTBUSTER 9310 PRINT "SLOTBUSTER CARD. DO YOU WANT:" 9315 PRINT "P - PARALLEL PORT" 9320 PRINT "S - SERIAL PORT" 9325 PRINT "V - VOICE OUTPUT" 9330 INPUT "";A$:A$ = LEFT$ (A$ + "X",1) 9340 IF A$ = "P" THEN SS$(ZY) = CHR$ (9) + "1O": RETURN 9343 IF A$ = "S" THEN SS$(ZY) = CHR$ (9) + "2O": RETURN 9346 IF A$ = "V" THEN SS$(ZY) = CHR$ (9) + "0O": RETURN 9350 PRINT CHR$ (7);"YOU MUST CHOOSE 1 OF THE 3 SLOTBUSTER": PRINT "MO DES": PRINT : GOTO 9300 9500 PRINT : PRINT "SLOT AND DRIVE COMBINATIONS": PRINT 9510 FOR I = 7 TO 1 STEP - 1 9520 B = PEEK (CM + I): GOSUB 5300 9530 GOSUB 9600 9540 NEXT I: PRINT : RETURN 9600 C = 1: IF B = 24 THEN GOTO 9700 9610 IF B = 22 THEN GOTO 9700 9620 IF B = 17 GOTO 9710 9630 IF B = 20 THEN E$ = "RAMDRIVE":A = PEEK (7910): IF (A) THEN FOR C = 1 TO PEEK (CM + 134): GOSUB 9700: NEXT C 9640 IF B = 23 THEN GOTO 9750 9650 RETURN 9700 PRINT "SLOT ";I;" DRIVE ";C;" - ";E$: RETURN 9710 C = 1: GOSUB 9700: PRINT " IF SECOND DRIVE IS PRESENT":C = 2: PRINT " ";: GOTO 9700 9750 C = 1: GOSUB 9700:C = 3: GOSUB 9700: PRINT " IF SECOND DRIVE IS P RESENT" 9755 PRINT " ";:C = 2: GOSUB 9700: PRINT " ";:C = 4: GOTO 9700 9800 PRINT : POKE QP,Q + 20: CALL QC: PRINT : RETURN ]