Atari XL - Page 139

Characters
10110 GOTO 10065
10990 REM
10991 REM **********************
10992 REM * *
10993 REM * LOAD CHARACTER SET *
10994 REM * *
10995 REM **********************
10996 REM
11000 CLOSE#l: PRINT""" :OPEN#l, 4,
0, "C: "
11010 FOR BYTE=Q TO 1023
11020 GET#1,TEMP
11030 POKE RAMSET+BYTE,TEMP
11040 NEXT BYTE
11050 CLOSE#1:RETURN
11990 REM
11991 REM **********************
11992 REM * *
11993 REM * SAVE CHARACTER SET *
11994 REM * *
11995 REM **********************
11996 REM
12000 CLOSE#1:PRINT""":OPEN#1,8,
0, "C: "
12010 FOR BYTE=O TO 1023
12020 PUTI1,PEEK(RAMSET+BYTE)
12030 NEXT BYTE
12040 CLOSE#1:RETURN
11990 REM
11991 REM ***********************
11992 REM * *
11993 REM * SETTING UP ROUTINES *
11994 REM * *
11995 REM ***********************
11996 REM
20000 DIM A(8,9)
20010 POKE 106,PEEK(106)-4
20020 GRAPHICS 0
20025 SETCOLOR 2,2,6:SETCOLOR
1,2,0:SETCOLOR 4,2,8
20026 POSITION 7,5
129