home *** CD-ROM | disk | FTP | other *** search
- 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
-