110 A$ = "........................................": TEXT : FOR A = 1 TO 24: VTAB A: PRINT A$;: NEXT : REM 40 '.' IN QUOTES
120 FOR A = 20 TO 0 STEP -1: POKE 32,A: POKE 33,(21 -A) *2: HOME : NEXT : TEXT
130 WE = 49289:RE = 49288:FL = 49291
140 VTAB 24: PRINT "ROM WRITER": FOR A = 22 TO 2 STEP -1: PRINT : NEXT
150 POKE 34,2
160 VTAB 24: PRINT "BY CURT CLIFTON": FOR A = 22 TO 3 STEP -1: PRINT : NEXT : POKE 34,3
170 VTAB 24: PRINT "COPYRIGHT (C) 1986": FOR A = 22 TO 4 STEP -1: PRINT : NEXT : POKE 34,4
180 VTAB 24: PRINT "BY MICROSPARC, INC.": FOR A = 22 TO 5 STEP -1: PRINT : NEXT : POKE 34,5
190 POKE 34,0
200 POKE 33,16
210 POKE 32,23: HOME : TEXT
220 POKE 34,5: VTAB 24: PRINT "++++++++++++++++++++++++++++++++++++++++": FOR A = 22 TO 7 STEP -1: PRINT : NEXT : REM 40 '+' IN QUOTES
230 TEXT : PRINT
240 REM MAIN MENU
250 POKE 34,5: HOME
260 GOTO 1560
270 READ NN: DIM CM$(A): FOR A = 1 TO NN: READ CM$(A): NEXT
272 DATA 2,96,234,32,14,234,169,0,133,98,133,99,133,100,133,101,165,172,32,175,233,165,161,32,175,233,165,160
274 DATA 32,175,233,165,159,32,175,233,165,158,32,181,233,76,230,234,208,4,56
280 DATA 8,CHANGE SOUND OF BELL,CHANGE TEXT WINDOW DEFAULT,CHANGE MONITOR PROMPT,LOAD DIFFERENT VERSION OF ROM,CHANGE APPLESOFT COMMANDS,CHANGE APPLESOFT ERROR MESSAGES,LIST CURRENT APPLESOFT TO PRINTER,EXIT
290 HOME : PRINT "OPTIONS-"
300 PRINT : FOR A = 1 TO NN: PRINT TAB( 6);CM$(A): NEXT
310 PL = 8:C$ = " --> "
320 VTAB PL: HTAB 1: PRINT C$;
330 POKE -16368,0: WAIT -16384,128
340 IT = PEEK( -16384) -128
350 OP = PL: POKE -16368,0
360 IF IT = 8 THEN PL = PL -1:PL = PL +NN *(PL <8)
370 IF IT = 21 THEN PL = PL +1:PL = PL -NN *(PL >NN +7)
380 IF IT = 13 THEN 420
390 VTAB OP: HTAB 1: PRINT " ";
400 IF OP < >PL THEN A = PEEK( -16336) * PEEK( -16336)
410 GOTO 320
420 ON PL -7 GOTO 440,560,690,770,1100,1340,1610,870
1290 LC = 53456: FOR A = 1 TO 107: FOR B = 1 TO LEN(AC$(A)): IF B = LEN(AC$(A)) THEN POKE LC, ASC( MID$ (AC$(A),B,1)) +128:LC = LC +1: NEXT : GOTO 1310
1300 POKE LC, ASC( MID$ (AC$(A),B,1)):LC = LC +1: NEXT
1310 NEXT : IF LC < >53854 THEN FOR A = LC TO 53854: POKE A,160: NEXT
1320 GOTO 290
1330 REM CHANGE ERROR MESSAGES
1340 HOME : PRINT "CHANGE APPLESOFT ERROR MESSAGES"
1350 EL = 1:I$ = "": FOR A = 53856 TO 54095: IF PEEK(A) >128 THEN I$ = I$ + CHR$( PEEK(A) -128):AE$(EL) = I$:EL = EL +1:I$ = "": GOTO 1370
1360 I$ = I$ + CHR$( PEEK(A))
1370 NEXT A
1380 S = 1:E = EL -1
1390 FOR A = S TO E: PRINT "#";A; TAB( 6);AE$(A): NEXT
1400 CC = 239
1410 PRINT "ENTER NUMBER TO CHANGE, OR 'L' TO LIST": INPUT " -> ";N$
1420 IF N$ = "L" THEN LM = 17: GOSUB 1820: GOTO 1390
1430 IF N$ = "" THEN GOTO 1500
1440 A = VAL(N$): IF A <1 OR A >18 THEN PRINT "OUT OF RANGE": GOTO 1410