home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1990 April / 1990-04.d64 / magnademo (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  54 lines
  1. 5 rem copyright 1990 compute! publications, inc. - all rights reserved
  2. 10 ifpeek(52224)<>76thenload"magnaprint.ml",8,1
  3. 20 ln$="[192]":fori=1to18:ln$=ln$+"[192]":next
  4. 30 sys52224:poke53280,0:poke53281,0
  5. 40 dimv$(24):v$(0)="":fori=1to24:v$(i)=v$(i-1)+"":next
  6. 50 printv$(2)tab(15)"compute's"
  7. 60 printv$(3)tab(12)chr$(1)"gazette"
  8. 70 printv$(4)chr$(0)tab(9)"for"chr$(1)"[192][192][192][192][192][192][192]"chr$(0)"users"
  9. 80 printv$(5)chr$(2)tab(11)"commodore 64/128"
  10. 90 printv$(9)tab(15)chr$(0)"[158]presents..."
  11. 100 fordy=1to3000:next
  12. 110 a$="magnaprint!"
  13. 120 forj=1to5:poke646,j
  14. 130 printv$(12+j*2)tab(9)chr$(3);
  15. 140 fori=1tolen(a$):printmid$(a$,i,1);
  16. 150 poke54296,15:poke54296,0:fordy=1to30:nextdy,i,j
  17. 160 fordy=1to3000:next
  18. 170 printchr$(0)"[147]":sys52224
  19. 180 printv$(5)tab(4)"[150]"chr$(3)"4 ";:poke646,6
  20. 190 printchr$(2)"text sizes for you to use!"
  21. 200 printv$(8)tab(8)chr$(0)"[159]standard size"
  22. 210 printtab(8)chr$(1)"double width"
  23. 220 printtab(8)chr$(2)"double height"
  24. 230 print:printtab(8)chr$(3)"giant size"
  25. 240 gosub480:poke52256,128:rem --- limit redefd. character range ---
  26. 250 printchr$(0)"[147]":sys52224:printchr$(0)"[158]use the character set you wish:"
  27. 260 printv$(8)""tab(3)chr$(1)"uppercase/graphics"v$(12)chr$(1);:poke646,2
  28. 270 fori=64to96:printchr$(i);:next:fori=161to187:printchr$(i);:next
  29. 280 fordy=1to2000:next:poke52299,216:printchr$(0)"[147]";
  30. 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]:"
  31. 300 printv$(8)""tab(2)chr$(1)"lowercase/uppercase"v$(12)chr$(1);:poke646,2
  32. 310 fori=64to96:printchr$(i);:next:fori=193to219:printchr$(i);:next
  33. 320 fordy=1to2000:next:poke52256,91:poke52299,208:printchr$(0)"[147]":sys52224
  34. 330 print"[158]reverse and custom characters"
  35. 340 print"are here too![154]"
  36. 350 fori=49160toi+96:poke49672+kk,255-peek(i):kk=kk+1:next
  37. 360 fori=0to3:printv$(i*2+4)tab(7);:ifi=3thenprint"";
  38. 370 printchr$(i)"[193][194][195][196][197][198][199][200][201][202][203][204]":nexti
  39. 380 fori=49152toi+7:reada:pokei,a:next
  40. 390 data60,60,24,255,24,24,36,102
  41. 400 printv$(16)chr$(0)"@ @ @  "chr$(1)"@ @ @  "chr$(2);
  42. 410 print"@ @ @  "chr$(3)"@ @ @"chr$(0)
  43. 420 gosub480
  44. 430 poke52256,96:printchr$(0)"[147]":sys52224
  45. 440 printv$(10)""chr$(1)"press "chr$(0)"[145]";
  46. 450 printchr$(2)"any key "chr$(0)""chr$(1)"to restart"
  47. 460 poke646,7:printv$(14)tab(8)chr$(3)"magnaprint!"
  48. 470 poke198,0:wait198,1:printchr$(0)"[147]":run
  49. 480 poke646,7:printv$(22)chr$(1)ln$
  50. 490 printv$(23)tab(6)"press any key"
  51. 500 printv$(24)chr$(1)ln$;chr$(0)"";
  52. 510 poke198,0:wait198,1
  53. 520 return
  54.