0 CLR
10 REM COPYRIGHT 1992 - COMPUTE PUBLICATIONS INTL LTD - ALL RIGHTS RESERVED
15 FOR I=9330 TO 9411:READA:POKEI,A:B=B+A:NEXTI
20 IFB<>7836 THEN PRINT"ERROR IN DATA STATEMENTS":STOP
25 REM - INSERT JMP 9330 ($2472) -
30 POKE2854,114:POKE2855,36:POKE9070,0
35 REM - INSERT WEDGE AT 2665-2670 ($0A69-$0A6E) -
40 POKE2665,76:POKE2666,179:POKE2667,36:POKE2668,234:POKE2669,234
45 REM - RETURN TO BASIC AREA AND SAVE MODIFIED SPEEDCRIPT -
50 POKE43,1:POKE44,8:POKE45,196:POKE46,36:SAVE"SPEEDRAM-64",8
55 REM - COMPARE ACC TO CTRL-KEY VALUES AND BRANCH TO EIGHT OR NINE
60 DATA 201,25,240,7,201,14,240,16
65 REM - IF NO MATCH JUMP TO WEDGE
70 DATA 76,187,36
75 REM - IF EIGHT, LDA #8 AND JSR TO STORE, PRINT 8 THEN JUMP TO WEDGE -
80 DATA 169,8,32,151,36,169,56
85 DATA 141,39,4,76,187,36
90 REM - IF NINE, LDA #9 AND JSR TO STORE, PRINT 9 THEN JUMP TO WEDGE -
95 DATA 169,9,32,151,36,169
100 DATA 57,141,39,4,76,187,36
105 REM - STORE VALUES OF EIGHT OR NINE -
110 DATA 141,235,18,141,44
115 DATA 19,141,154,20,141,241
120 DATA 22,141,79,23,141,223
125 DATA 24,141,227,26,141,91
130 DATA 27,141,161,27,96
135 REM - GET LAST DEVICE AND PUT ON COMMAND LINE -
140 DATA 165,186,24,105,48,141,39,4
145 REM - WEDGE, INSERT COMMANDS REPLACED AT 2665-2670 AND RETURN TO 2670 -
150 DATA 160,0,140,113,36
155 DATA 76,110,10,0