10A$="Four Christmas Carols":B$="D.G. Chappell" 20PROCHP(A$,B$) 30IF PAGE=&E00 CHAIN"XMAS2" 40PRINT"This program needs to be move d"'"down in memory."''"Press the Space B ar to perform this,"'"or the Escape key to exit." 50REPEAT UNTILGET=32 60*FX18 70*KEY0 LOAD"XMAS2"|M*TAPE|MFORI%=0 T O TOP-PAGE STEP 4:I%!&E00=I%!PAGE:NEXT|M PAGE=&E00|MOLD|MRUN|M 80*FX138 0 128 90END 100DEFPROCHP(A$,B$) 110VDU22,7 120G%=(40-(LEN(A$)))/2:H%=(40-(LEN(B$) ))/2 130FORT%=2TO3:PRINTTAB(G%-1,T%);CHR$14 1;CHR$130;A$:NEXT 140PRINTTAB(18,12);CHR$134;"by" 150PRINTTAB(H%-1,14);CHR$134;B$ 160PRINTTAB(7,20)CHR$130;"Press any ke y to continue" 170G=GET 180CLS 190ENDPROC