1 REM Ins{nt av 664
1 REM +++++++++++++++++++++++++++++++++
2 REM ! Program ....   NYCHANGE.UTL
3 REM ! Utg}va  2.0    830312
4 REM ! av (c) Stig Johansson,BRASTAD.
5 REM ! Tel. 0523/ 40209,40976.
7 REM ! Minne 16 Kbytes
8 REM ! Check-sa. 11273
9 REM +++++++++++++++++++++++++++++++++
10 REM  Byter gammal variabel till ny
11 REM  i hela programmet. Detta {r en
12 REM  f|rb{ttrad version av mitt
13 REM  tidigare pgm.CHANGE.UTL vilket
14 REM  kunde orsaka fel.
16 REM  Vektorer anges med en punkt
17 REM  Ex. f|r A$() anges A$.
18 REM  Matriser 2 punkter.
19 REM  Ex. f|r A$(,) anges A$..
20 REM  PROGRAMMET ANROPAS MED CTRL Q
30 POKE -6144%,62%,232%,237%,71%,201%,245%,58%,36%,254%,61%,250%,31%,3%,219%,56%
40 POKE -6129%,254%,145%,40%,3%,195%,31%,3%,229%,213%,197%,42%,39%,254%,43%,43%
50 POKE -6114%,43%,126%,254%,0%,32%,9%,43%,126%,254%,240%,32%,3%,195%,58%,232%
60 POKE -6099%,193%,209%,225%,195%,31%,3%,0%,5%,232%,148%,5%,24%,203%,33%,64%
70 POKE -6084%,232%,229%,237%,77%,1%,13%,0%,33%,10%,233%,205%,11%,0%,1%,6%
80 POKE -6069%,0%,33%,36%,233%,205%,5%,0%,205%,66%,7%,33%,36%,233%,17%,46%
90 POKE -6054%,233%,205%,212%,24%,1%,13%,0%,33%,23%,233%,205%,11%,0%,1%,6%
100 POKE -6039%,0%,33%,42%,233%,205%,5%,0%,205%,66%,7%,33%,42%,233%,17%,50%
110 POKE -6024%,233%,205%,212%,24%,14%,0%,33%,36%,233%,6%,6%,126%,254%,46%,204%
120 POKE -6009%,223%,232%,35%,16%,247%,58%,54%,233%,254%,2%,212%,232%,232%,42%,28%
130 POKE -5994%,254%,126%,229%,6%,0%,33%,47%,233%,78%,225%,35%,185%,40%,6%,254%
140 POKE -5979%,13%,40%,48%,24%,237%,229%,33%,48%,233%,78%,225%,126%,35%,185%,40%
150 POKE -5964%,2%,24%,224%,229%,33%,49%,233%,78%,225%,126%,185%,40%,3%,35%,24%
160 POKE -5949%,211%,43%,43%,58%,51%,233%,119%,35%,58%,52%,233%,119%,35%,58%,53%
170 POKE -5934%,233%,119%,35%,195%,151%,232%,126%,254%,1%,40%,32%,24%,184%,12%,12%
180 POKE -5919%,12%,12%,121%,50%,54%,233%,201%,33%,47%,233%,126%,129%,119%,35%,126%
190 POKE -5904%,129%,119%,33%,51%,233%,126%,129%,119%,35%,126%,129%,119%,201%,6%,20%
200 POKE -5889%,33%,36%,233%,54%,0%,35%,16%,251%,195%,201%,0%,66%,121%,116%,32%
210 POKE -5874%,118%,97%,114%,105%,97%,98%,101%,108%,58%,32%,32%,32%,32%,32%,32%
220 POKE -5859%,32%,32%,116%,105%,108%,108%,58%,0%,0%,0%,0%,0%,0%,0%,0%
230 POKE -5844%,0%,0%,0%,0%,0%,0%,0%,0%,0%,0%,0%,0%
240 Z%=CALL(59392%) : CHAIN ''