home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1988 December / 1988-12.d64 / materialize.demo (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  52 lines
  1. 10 rem copyright 1988 compute! publications, inc. - all rights reserved
  2. 40 ifpeek(52225)<>12thenload"ml-mat",8,1
  3. 50 print"[147]":poke53280,0:poke53281,0:poke680,3
  4. 60 dimvt$(24):vt$(0)="":fori=1to24:vt$(i)=vt$(i-1)+"":next
  5. 70 print"[144][147]"chr$(14):sys52224:printvt$(7)tab(5)"[159][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  6. 80 printtab(5)"[221]                            [221]"
  7. 90 printtab(5)"[221]       [205][193][212][197][210][201][193][204][201][218][197][210]         [159][221]"
  8. 100 printtab(5)"[221][158]      [195]opyright 1988        [159][221]"
  9. 110 printtab(5)"[221][158] [195][207][205][208][213][212][197]! [208]ublications,[201]nc. [159][221]"
  10. 120 printtab(5)"[221][158]    [193]ll [210]ights [210]eserved     [159][221]"
  11. 130 printtab(5)"[221]                            [221]"
  12. 140 printtab(5)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  13. 160 sys52227:gosub520
  14. 170 sys52230:fordy=1to700:next:print"[147]":poke53280,12:poke53281,12
  15. 180 a$="":fori=1to39:a$=a$+" ":next
  16. 190 printvt$(0)a$vt$(23)a$
  17. 200 fori=1to22:printvt$(i)" "tab(38)" ":next
  18. 210 printvt$(9)tab(10)"[144] [195][207][205][208][204][197][212][197] [211][195][210][197][197][206]"
  19. 220 printvt$(11)tab(11)"[205][193][212][197][210][201][193][204][201][218][193][212][201][207][206][211]"
  20. 230 printvt$(13)tab(12)"  [193][210][197] [197][193][211][217]":sys52227:gosub520
  21. 250 sys52230
  22. 260 print"[152][147]"chr$(9)chr$(142):sys52224
  23. 270 print"[147]"vt$(7)"[144]all characters are here,"
  24. 280 printvt$(9)"also  reverse [146] [144]and"
  25. 290 printvt$(11)"[209][193][211][218][216][166][191][190] [144]- character graphics![144]"
  26. 300 sys52227:gosub520:sys52230
  27. 310 print"[147]"vt$(12)"and programmable characters are a snap!"
  28. 320 fori=0to7:reada:poke40960+i,a:next
  29. 330 data 60,60,24,255,24,60,36,102
  30. 340 printvt$(14)tab(16)"@ @ @[144]":sys52227
  31. 350 gosub520:sys52230
  32. 360 print"[152][147]"chr$(9)chr$(14):sys52224
  33. 370 printvt$(9)tab(7)"[144][212]he speed of the fade in"
  34. 380 printvt$(11)tab(7)"and fade out may also be"
  35. 390 printvt$(13)tab(7)"controlled..."
  36. 400 printvt$(15)tab(16)" [198][193][211][212] "
  37. 410 poke680,0:sys52227:gosub550:sys52230:gosub550
  38. 420 printvt$(15)tab(14)" [210][197][199][213][204][193][210] "
  39. 430 poke680,25:sys52227:gosub550:sys52230:gosub550
  40. 440 printvt$(15)tab(14)"[146]   [211][204][207][215] "
  41. 450 poke680,50:sys52227:gosub550:sys52230:gosub550:poke680,0
  42. 460 print"[147]"vt$(9)tab(12)"[144]([210][144])estart [196]emo"
  43. 470 printvt$(11)tab(12)"([197][144])xit to [194][193][211][201][195]"
  44. 480 sys52227
  45. 490 geta$:ifa$="r"thensys52230:run
  46. 500 ifa$="e"thensys52230:sys52233:end
  47. 510 goto490
  48. 520 printvt$(18)"press a key to de-materialize"
  49. 530 geta$:ifa$=""then530
  50. 540 return
  51. 550 fordy=1to1000:next:return
  52.