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›