home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1991 August / 1991-08.d64 / simulvideo.demo (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  3KB  |  93 lines
  1. 0 clr
  2. 10 rem copyright 1991 - compute publications intl ltd - all rights reserved
  3. 20 poke53280,0:poke53265,11:print"[147]":poke53281,0:fordl=1to200:next
  4. 30 poke53265,27:m$="one moment please. . ."
  5. 40 c$="[144][151][152][155]":fort=1to5:printtab(10)mid$(c$,t,1)m$"[145]":fordl=1to20:next:next
  6. 50 poke147,0:sys57812"simulvideo.obj",8,1:sys62631
  7. 60 fort=200*64to201*64+63:readx:poket,x:next
  8. 70 ss=0:cc=0:x=61440
  9. 80 s=200*64:e=200*64+63:n=x:gosub720
  10. 90 n=x-2048:gosub720:n=x-4096:gosub720:n=x-14336:gosub720
  11. 100 x=x+128:cc=cc+1
  12. 110 ifcc=2andss=0thencc=0:ss=1:x=x+64
  13. 120 ifcc=2andss=1thencc=0:ss=0:x=x-64
  14. 130 ifx<63488then80
  15. 140 ss=1:cc=0:x=61440+64
  16. 150 s=201*64:e=201*64+63:n=x:gosub720
  17. 160 n=x-2048:gosub720:n=x-4096:gosub720:n=x-14336:gosub720
  18. 170 x=x+128:cc=cc+1
  19. 180 ifcc=2andss=0thencc=0:ss=1:x=x+64
  20. 190 ifcc=2andss=1thencc=0:ss=0:x=x-64
  21. 200 ifx<63488then150
  22. 210 fort=60160to61439:poket,.:next
  23. 220 fort=57344to58623:poket,.:next
  24. 230 fort=201*64+3to201*64+3+60step6:poket,.:poket+1,.:poket+2,.:next
  25. 240 ss=1:cc=0:x=47104+64
  26. 250 s=201*64:e=201*64+63:n=x:gosub720
  27. 260 x=x+128:cc=cc+1
  28. 270 ifcc=2andss=0thencc=0:ss=1:x=x+64
  29. 280 ifcc=2andss=1thencc=0:ss=0:x=x-64
  30. 290 ifx<49152then250
  31. 300 fort=5to1step-1:printtab(10)mid$(c$,t,1)m$"[145]":fordl=1to20:next:next
  32. 310 rem slate/text demo
  33. 320 sys51071,12,11,15
  34. 330 sys50930:print"[147]s i m u l v i d e o"
  35. 340 print"copyright 1991"
  36. 350 print"compute publications intl ltd"
  37. 360 print"all rights reserved"
  38. 370 sys50930
  39. 380 sys51388,0,6:sys50740,1:sys50752,2,1
  40. 390 sys51388,0,6:sys50740,0:fordl=1to100:next
  41. 400 sys50746,0:sys51388,1,6,6:sys51569:sys51579
  42. 410 sys51388,0,6:sys51725,0:sys51750,1:sys51725,1:sys50746,0
  43. 420 rem slate/backdrop demo
  44. 430 sys50916:sys50740,1:print"[147]";:sys50746,1
  45. 440 fordl=1to100:next:sys51879:sys51388,0,6:sys50746,0:sys50740,0:sys50746,0
  46. 450 fort=1to2:sys51725,0:fordl=1to100:next:sys51750,0:fordl=1to100:next:next
  47. 460 sys51388,0,6:sys50740,0:sys50752,0,1
  48. 470 sys50740,0:sys50752,1,1
  49. 480 sys50740,0:sys50752,3,1
  50. 490 sys50740,0:sys50752,2,1
  51. 500 sys51388,0,3:sys50740,0:sys50746,0
  52. 510 sys51388,1,5,4:sys51569:fordl=1to200:next:sys51579
  53. 520 sys51388,1,4,5:sys51569:fordl=1to200:next:sys51579:sys52024
  54. 530 rem overlay mode demo
  55. 540 sys50946,2,14,1:sys50930:print"[147]";
  56. 550 fort=1to3:print"[160][160][160][160][160][160][160][160][160][160]   [160][146][160][160][160][160][160][160][160][160][160]";:next
  57. 560 print"[160][160][160][160][160][160][160][160][160][160]   [160][160][160][160][160][160][160][160][160][160]";
  58. 570 fort=1to3:print"                       ";:next
  59. 580 print"[160][160][160][160][160][160][160][160][160][160]   [160][160][160][160][160][160][160][160][160][160]";
  60. 590 fort=1to3:print"[146][160][160][160][160][160][160][160][160][160][160]   [160][146][160][160][160][160][160][160][160][160][160]";:next
  61. 600 print:print:print
  62. 610 fort=1to3:print"@@@@@@@@@[154]@[158]@@@[154]@@@@@@@@@@":next
  63. 620 print"[154]@@@@@@@@@@[158]@@@[154]@@[128]@@@@@@@@"
  64. 630 fort=1to3:print"[158]@@@@@@@@@@@@@@@@@@@@@@@":next
  65. 640 print"[154]@@@@@@@@@@[158]@@@[154]@@@@@@@@@@"
  66. 650 fort=1to2:print"@@@@@@@@@[154]@[158]@@@[154]@@@@@@@@@@":next
  67. 660 print"@@@@@@@@@[154]@[158]@@@[154]@@@@@@@@@@":sys50930
  68. 670 sys51388,0,6
  69. 680 sys50916:sys51725,0:sys50746,0:sys50916:sys51725,1:sys50746,0
  70. 690 sys50916:sys50740,0:sys50752,2,1
  71. 700 sys51388,0,6:sys50916:sys50740,0:fordl=1to100:next:sys50746,0
  72. 710 sys50916:goto330
  73. 720 l=e-s:en=l+n
  74. 730 a%=l/256:a=l-256*a%:b%=(en-a)/256:b=en-256*b%-a:c%=(e-a)/256:c=e-256*c%-a
  75. 740 poke781,a%+1:poke782,a:poke90,c:poke91,c%:poke88,b:poke89,b%:sys41964
  76. 750 return
  77. 760 data170,170,170,149,85,87,149,85
  78. 770 data87,154,90,87,154,218,215,154
  79. 780 data218,215,154,218,215,154,218,215
  80. 790 data154,170,215,154,170,215,154,170
  81. 800 data215,154,170,215,154,250,215,154
  82. 810 data218,215,154,218,215,154,218,215
  83. 820 data154,218,215,151,215,215,149,85
  84. 830 data87,149,85,87,191,255,255,42
  85. 840 data170,170,170,149,85,87,154,170
  86. 850 data87,154,170,215,154,170,215,154
  87. 860 data170,215,154,255,215,154,213,87
  88. 870 data154,169,087,154,171,87,154,171
  89. 880 data87,154,171,87,154,255,87,154
  90. 890 data213,87,154,170,87,154,170,215
  91. 900 data154,170,215,154,170,215,151,255
  92. 910 data215,149,85,87,191,255,255,42
  93.