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

---

Back to previous page