Newscript

Source Code

    1 REM "CHR$ gen"
    2 POKE 23609,125
    3 BEEP .2,0: BEEP .2,12: BEEP .2,24: BEEP .2,36: BEEP .2,48
   10 CLEAR 63999
   15 PAPER 0: BORDER 0: CLS 
   20 PRINT AT 10,0; INK 7; FLASH 1; PAPER 1;"PLEASE WAIT-CREATING NEW SCRIPT"
   23 POKE 23607,150
   40 FOR j=64000 TO 65000
   50 POKE j,0
   60 NEXT j
   70 LET a=64000
   80 FOR j=15616 TO 16135
   90 LET b=(PEEK j)
   91 IF b=128 THEN LET b=b+64
   92 IF b=98 THEN LET b=102: IF b=82 THEN LET b=114
   93 IF b=70 THEN LET b=102
  101 IF b=68 THEN LET b=b+40
  105 IF b=66 THEN LET b=102
  110 IF b=64 THEN LET b=b+32
  120 IF b=32 THEN LET b=b+16
  130 IF b=16 THEN LET b=b+8
  135 IF b=8 THEN LET b=b+4
  140 IF b=4 THEN LET b=b+2
  150 IF b=2 THEN LET b=b+4
  160 IF b>255 THEN GO TO 200
  170 IF b=0 THEN GO TO 200
  180 POKE a,b
  200 LET a=a+1
  210 NEXT j
  215 LET a=64520
  220 FOR j=16136 TO 16383
  222 LET b=PEEK j
  230 IF b=120 THEN LET b=124
  231 IF b=146 THEN LET b=214
  232 IF b=84 THEN LET b=214
  233 IF b=104 THEN LET b=238
  234 IF b=96 THEN LET b=112
  235 IF b=68 THEN LET b=102
  238 IF b=64 THEN LET b=96
  240 IF b=60 THEN LET b=126
  242 IF b=56 THEN LET b=60
  243 IF b=48 THEN LET b=56
  244 IF b=40 THEN LET b=44
  245 IF b=36 THEN LET b=38
  248 IF b=34 THEN LET b=102
  250 IF b=32 THEN LET b=96
  255 IF b=28 THEN LET b=60
  260 IF b=24 THEN LET b=30
  265 IF b=16 THEN LET b=24
  270 IF b=12 THEN LET b=30
  280 IF b=4 THEN LET b=6
  500 POKE a,b
  510 LET a=a+1
  520 NEXT j
  620 POKE 23607,249
  630 POKE 23606,00
  635 PAPER 0
  636 BORDER 0
  640 CLS 
  650 PRINT AT 10,0; INK 5; PAPER 0;"CHARACTERS loaded-@ m.p.biddell"
  660 PRINT 
  670 PAUSE 200
  680 CLS 
  690 GO SUB 1000
  705 PAUSE 100
  800 COPY 
  810 POKE 23607,60
  815 CLS 
  820 GO SUB 1000
  840 COPY 
  850 PAUSE 100
  860 NEW 
 1000 PRINT INK 6;"INSTRUCTIONS-NEW CHARACTER FONT"
 1010 GO SUB 2000
 1020 PRINT INK 5;"1. After this program has self  destructed, poke 23607,249 to   turn on the new character set."
 1030 GO SUB 2000
 1040 PRINT INK 5;"2. Then load your own program inthe normal way, Poke 23607,249  and it is instantly converted   to the new text. Now use LLIST  to see the enhanced output      from the 2040-printer."
 1050 GO SUB 2000
 1060 PRINT INK 5;"3. Now Poke 23607,60 and LLIST .Compare this normal listing withthe enhanced one."
 1070 GO SUB 2000
 1080 PRINT INK 5;"4. SAVE 'text'CODE ,64000,1536  (this also saves U.D.G's.)"
 1090 GO SUB 2000
 1100 RETURN 
 2000 PRINT : FOR j=20 TO 30
 2010 BEEP .1,-j
 2020 NEXT j
 2030 RETURN