home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1989 May / 1989-05.d64 / windows.demo (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  105 lines
  1. 10 rem copyright 1989 compute! publications, inc. all rights reserved
  2. 15 poke53280,14:poke53281,6
  3. 20 print"[147][154]"tab(13)"copyright 1989":printtab(7)"compute! publications, inc."
  4. 30 printtab(11)"all rights reserved"
  5. 40 ifa=0thena=1:load"windows.ml",8,1
  6. 50 print"[147][144]":poke53280,6:poke53281,14
  7. 60 rem first window 1 demo
  8. 70 sys49152,20,3
  9. 80 sys49164
  10. 90 sys49158,0
  11. 100 sys49161,10,10
  12. 110 rem draw border
  13. 120 sys49179,0,0,159,0:sys49179,0,23,159,23
  14. 130 sys49179,0,0,0,23:sys49179,159,0,159,23
  15. 140 sys49179,2,2,157,2:sys49179,2,21,157,21
  16. 150 sys49179,2,2,2,21:sys49179,157,2,157,21
  17. 160 rem full screen border
  18. 170 fori=1to39
  19. 180 poke1024+i,200
  20. 190 poke1984+i,254
  21. 200 nexti
  22. 210 fori=1to23
  23. 220 poke1024+40*i,216:poke1063+40*i,235
  24. 230 nexti
  25. 240 rem corners
  26. 250 poke1024,196:poke1063,215
  27. 260 poke1984,236:poke2023,255
  28. 270 rem draw wave
  29. 280 fori=8to151 step 3
  30. 290 sys49170,i,12+8*sin(i/10)*cos(i/5)
  31. 300 nexti
  32. 310 fori=1to4
  33. 320 sys49167:forj=1to200:next
  34. 330 nexti
  35. 340 rem bounce window
  36. 350 xp=10:yp=10:dx=2:dy=2
  37. 360 fork=1to100
  38. 370 sys49161,xp,yp
  39. 380 xp=xp+dx:ifxp<0orxp>20thendx=-dx:goto380
  40. 390 yp=yp+dy:ifyp<0oryp>22thendy=-dy:goto390
  41. 400 nextk
  42. 410 fork=1to2000:next
  43. 420 rem new window
  44. 430 print"[147]"
  45. 440 sys49152,10,10
  46. 450 sys49164
  47. 460 sys49161,0,0:sys49161,30,0
  48. 470 sys49161,0,15:sys49161,30,15
  49. 480 sys49161,15,7
  50. 490 fori=0to79
  51. 500 sys49170,i,abs(4*cos(i/5))
  52. 510 sys49170,i,79-abs(4*cos(i/5))
  53. 520 sys49170,abs(4*cos(i/5)),i
  54. 530 sys49170,79-abs(4*cos(i/5)),i
  55. 540 nexti
  56. 550 rem put text in windows
  57. 560 print""tab(16)"testing!"
  58. 570 rem bounce line
  59. 580 forj=1to2
  60. 590 fori=8to71 step 3
  61. 600 sys49192,8,i,71,i
  62. 610 sys49192,i,8,i,71
  63. 620 sys49192,8,i,71,i
  64. 630 sys49192,i,8,i,71
  65. 640 nexti
  66. 650 rem and bounce it back
  67. 660 fori=71to8 step -3
  68. 670 sys49192,8,i,71,i
  69. 680 sys49192,i,8,i,71
  70. 690 sys49192,8,i,71,i
  71. 700 sys49192,i,8,i,71
  72. 710 nexti
  73. 720 nextj
  74. 730 rem window 2
  75. 740 print"[147]"
  76. 750 sys49161,0,0:rem keep window 1
  77. 760 sys49164
  78. 770 forx=0to78 step 4
  79. 780 sys49179,x,0,x,79
  80. 790 sys49179,x+1,0,x+1,79
  81. 800 nextx
  82. 810 fory=0to78 step 8
  83. 820 sys49179,0,y,79,y:sys49179,0,y+1,79,y+1
  84. 830 nexty
  85. 840 sys49199,4,2
  86. 850 sys49199+6,1
  87. 860 sys49199+12
  88. 870 sys49226,0,0,95,0:sys49226,0,0,0,41
  89. 880 sys49226,0,41,95,41:sys49226,95,0,94,41
  90. 890 sys49226,0,0,95,41:sys49226,95,0,0,41
  91. 900 poke53248+27,0
  92. 910 forx=248to24step -2
  93. 920 sys49208,x,34+.7*x,0,0
  94. 930 nextx
  95. 940 fort=1to1500:next
  96. 950 sys49208,24,50,0,1
  97. 960 fort=1to1500:next
  98. 970 sys49208,24,50,1,0
  99. 980 fort=1to1500:next
  100. 990 sys49208,24,50,1,1
  101. 1000 sys49208,25,50,0,0
  102. 1010 poke53248+27,255
  103. 1020 fort=1to2000:next:print"[147]"
  104. 1030 sys49164:sys49155:sys49211:sys49202
  105.