Source Code
10 CLS : PRINT ''"Enter:"''"GO TO 30 for inversion"''"GO TO 250 to revert to normal"''"GO TO 220 for inversion"''"GO TO 280 for New Chrs"''"GO TO 460 to destroy program"
20 STOP
30 REM Inversion
40 CLEAR 64367
50 BEEP .2,-10: BEEP .4,20
60 PRINT AT 10,5; PAPER 1; INK 7;"Please wait a minute..."
70 LET mem=64368
80 LET b=0: FOR a=15616 TO 16384
90 POKE mem+b,PEEK a
100 LET b=b+1: NEXT a
110 FOR a=32 TO 127: LET q=a-32:: LET b=q*8: LET c=mem+b
120 DIM d(8): LET b=1
130 FOR e=c TO c+7
140 LET d(b)=PEEK e
150 LET b=b+1: NEXT e
160 DIM e(8): FOR e=1 TO 8
170 LET e(e)=d(9-e)
180 NEXT e
190 LET b=1: FOR e=c TO c+7
200 POKE e,e(b)
210 LET b=b+1: NEXT e: NEXT a
220 POKE 23606,112: POKE 23607,250
230 BEEP .2,20: BEEP .4,-10
240 STOP
250 REM revert to normal
260 POKE 23606,0: POKE 23607,60
270 STOP
280 REM NEW Chrs
290 CLEAR 64367
300 BEEP .2,-5: BEEP .4,15
310 PRINT AT 10,5; FLASH 1; PAPER 1; INK 7;"Please wait 20 seconds..."
320 LET b=0: FOR a=15616 TO 16384
330 POKE 64368+b,PEEK a
340 LET b=b+1: NEXT a
350 LET x=64368+264
360 REM change 520 to 264 in line 350 for upper case letters
370 FOR a=x TO x+206
380 READ b: POKE a,b
390 NEXT a
400 POKE 23606,112: POKE 23607,250
410 DATA 0,124,76,b,124,76,b,0,b,124,100,b,124,100,124,0,b,124,76,64,76,b,124,0,b,124,76,b,b,b,124,0,b,124,96,b,124,96,124,0,b,124,96,b,124,96,b,0,b,124,76,64,92,76,124,0,b,100,b,b,124,100,b,0,b,24,b,b,b,b,b,0,b
420 DATA 12,b,b,b,b,60,0,b,100,b,b,124,76,b,0,b,96,b,b,b,b,120,0,b,126,90,b,b,b,b,0,b,124,76,b,b,b,b,0,b,124,100,b,b,b,124,0,b,124,100,b,124,64,b,0,b,124,100,b,b,b,126,0,b,124,100,b,124,76,b,0,b,124,100,96,28,76,124,0,b,126,24,b,b,b,b,0,b
430 DATA 100,b,b,b,b,124,0,b,100,b,b,b,b,56,0,b,90,b,b,b,b,126,0,b,100,b,b,124,92,b,0,b,104,b,b,120,16,b,0,b,124,100,28,32,76,124
440 BEEP .2,15: BEEP .4,-5
450 STOP
460 REM destroy program
470 RANDOMIZE USR 0
500 SAVE "INVERSION" LINE 10
