0 R: ÐÒÏÇÒÁÍ ± ÃÁÐÉÔÁÌ Ì
5 R:ANTIC AUGUST 1983
7 R: PHIL & KATHY BERGH
10 GR:QUIT [Clear registers if re-running
20 T: Cursive Capital L
30 T:
40 T:Please wait while the character set is moved. This takes about 20 seconds.
50 PA:100
60 R:Cursive L poked into capital L
70 C:#Z=@176/1024+3 [New RAM character set pointer K value
80 C:#Z=#Z*1024 [New RAM character set pointer byte value
90 C:#W=#Z [Second new character set pointer
100 C:#A=#Z [Third new character set pointer
110 C:#Y=@B756*256 [Original Character set pointer
120 C:@B756=#A/256
130 C:#X=0 [Set loop counter to 0
140 *MOVEIT
150 C:@B#Z=@B#Y [Copy ROM byte into RAM
160 C:#Y=#Y+1 [Increment ROM and
170 C:#Z=#Z+1 [RAM pointers
180 C:#X=#X+1 [and counter
190 J(#X<1024):*MOVEIT
200 C:#W=#W+(44*8)[OLD ADDRESS+(INTERNAL CHAR SET #)TIMES 8)
210 C:@B#W=7 [Row 1
220 C:#W=#W+1
230 C:@B#W=15 [Row 2
240 C:#W=#W+1
250 C:@B#W=124 [Row 3
260 C:#W=#W+1
270 C:@B#W=12 [Row 4
280 C:#W=#W+1
290 C:@B#W=63 [Row 5
300 C:#W=#W+1
310 C:@B#W=109 [Row 6
320 C:#W=#W+1
330 C:@B#W=57 [Row 7
340 C:#W=#W+1
350 C:@B#W=0 [Row 8
360 T:
370 T:Sample cursive L's:
380 T:
390 T:Lori Louise London Library
PROGRAM LISTING: 83-08/CAPITAL.PLT