New CHR$

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 250 to revert to normal"''"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; 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 RESTORE : 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,76,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
  480 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,b,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
  490 REM      ***********************            NEW CHR$     ***********************
  500 LOAD "NEW CHR$"CODE 64368,264
  510 SAVE "NEW CHR$" LINE 10: REM SAVE "NEW CHR$"CODE 64368,264