5 REM COPYRIGHT 1990 COMPUTE! PUBLICATIONS, INC. - ALL RIGHTS RESERVED
10 IFPEEK(52224)<>76THENLOAD"MAGNAPRINT.ML",8,1
20 LN$="[192]":FORI=1TO18:LN$=LN$+"[192]":NEXT
30 SYS52224:POKE53280,0:POKE53281,0
40 DIMV$(24):V$(0)="":FORI=1TO24:V$(I)=V$(I-1)+"":NEXT
50 PRINTV$(2)TAB(15)"COMPUTE'S"
60 PRINTV$(3)TAB(12)CHR$(1)"GAZETTE"
70 PRINTV$(4)CHR$(0)TAB(9)"FOR"CHR$(1)"[192][192][192][192][192][192][192]"CHR$(0)"USERS"
80 PRINTV$(5)CHR$(2)TAB(11)"COMMODORE 64/128"
90 PRINTV$(9)TAB(15)CHR$(0)"[158]PRESENTS..."
100 FORDY=1TO3000:NEXT
110 A$="MAGNAPRINT!"
120 FORJ=1TO5:POKE646,J
130 PRINTV$(12+J*2)TAB(9)CHR$(3);
140 FORI=1TOLEN(A$):PRINTMID$(A$,I,1);
150 POKE54296,15:POKE54296,0:FORDY=1TO30:NEXTDY,I,J
160 FORDY=1TO3000:NEXT
170 PRINTCHR$(0)"[147]":SYS52224
180 PRINTV$(5)TAB(4)"[150]"CHR$(3)"4 ";:POKE646,6
190 PRINTCHR$(2)"TEXT SIZES FOR YOU TO USE!"
200 PRINTV$(8)TAB(8)CHR$(0)"[159]STANDARD SIZE"
210 PRINTTAB(8)CHR$(1)"DOUBLE WIDTH"
220 PRINTTAB(8)CHR$(2)"DOUBLE HEIGHT"
230 PRINT:PRINTTAB(8)CHR$(3)"GIANT SIZE"
240 GOSUB480:POKE52256,128:REM --- LIMIT REDEFD. CHARACTER RANGE ---
250 PRINTCHR$(0)"[147]":SYS52224:PRINTCHR$(0)"[158]USE THE CHARACTER SET YOU WISH:"
260 PRINTV$(8)""TAB(3)CHR$(1)"UPPERCASE/GRAPHICS"V$(12)CHR$(1);:POKE646,2
270 FORI=64TO96:PRINTCHR$(I);:NEXT:FORI=161TO187:PRINTCHR$(I);:NEXT
280 FORDY=1TO2000:NEXT:POKE52299,216:PRINTCHR$(0)"[147]";
290 SYS52224:PRINT"[158][213][211][197] [212][200][197] [195][200][193][210][193][195][212][197][210] [211][197][212] [217][207][213] [215][201][211][200]:"
300 PRINTV$(8)""TAB(2)CHR$(1)"LOWERCASE/UPPERCASE"V$(12)CHR$(1);:POKE646,2
310 FORI=64TO96:PRINTCHR$(I);:NEXT:FORI=193TO219:PRINTCHR$(I);:NEXT
320 FORDY=1TO2000:NEXT:POKE52256,91:POKE52299,208:PRINTCHR$(0)"[147]":SYS52224
330 PRINT"[158]REVERSE AND CUSTOM CHARACTERS"
340 PRINT"ARE HERE TOO![154]"
350 FORI=49160TOI+96:POKE49672+KK,255-PEEK(I):KK=KK+1:NEXT
360 FORI=0TO3:PRINTV$(I*2+4)TAB(7);:IFI=3THENPRINT"";
370 PRINTCHR$(I)"[193][194][195][196][197][198][199][200][201][202][203][204]":NEXTI
380 FORI=49152TOI+7:READA:POKEI,A:NEXT
390 DATA60,60,24,255,24,24,36,102
400 PRINTV$(16)CHR$(0)"@ @ @  "CHR$(1)"@ @ @  "CHR$(2);
410 PRINT"@ @ @  "CHR$(3)"@ @ @"CHR$(0)
420 GOSUB480
430 POKE52256,96:PRINTCHR$(0)"[147]":SYS52224
440 PRINTV$(10)""CHR$(1)"PRESS "CHR$(0)"[145]";
450 PRINTCHR$(2)"ANY KEY "CHR$(0)""CHR$(1)"TO RESTART"
460 POKE646,7:PRINTV$(14)TAB(8)CHR$(3)"MAGNAPRINT!"
470 POKE198,0:WAIT198,1:PRINTCHR$(0)"[147]":RUN
480 POKE646,7:PRINTV$(22)CHR$(1)LN$
490 PRINTV$(23)TAB(6)"PRESS ANY KEY"
500 PRINTV$(24)CHR$(1)LN$;CHR$(0)"";
510 POKE198,0:WAIT198,1
520 RETURN