home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 87 / 64er_Magazin_Sonderheft_87_19xx_Markt__Technik_de_Side_A.d64 / hires-demo (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  4KB  |  174 lines
  1. 10 (NULL):(NULL):(NULL)1
  2. 20 fori=0to159step5:j=100+i/1.6
  3. 30 (NULL)0,j,i,199
  4. 40 (NULL)0,199-j,i,0
  5. 50 (NULL)319,j,319-i,199
  6. 60 (NULL)319,199-j,319-i,0
  7. 70 next
  8. 80 (NULL)2,3,16,0,0
  9. 90 (NULL)64,80,"hires-master"
  10. 100 (NULL)98,120,"taste..."
  11. 110 (NULL)64,80+3*8,320-64,80+3*8
  12. 120 poke198,0:wait198,1
  13. 130 (NULL)20:(NULL)2:x=319:y=199
  14. 140 fork=0to1:forj=1to200
  15. 150 fori=0toystepj
  16. 160 (NULL)i,i,x-i,y-i:(NULL)i,y-i,x-i,i
  17. 170 nexti,j,k
  18. 180 poke198,0:wait198,1
  19. 190 (NULL)20:(NULL)2:x=319:y=199
  20. 200 fori=0toy
  21. 210 (NULL)i,i,x-i,y
  22. 220 (NULL)x-i,y-i,i,0
  23. 230 (NULL)0,y-i,i,i
  24. 240 (NULL)x,i,x-i,y-i
  25. 250 (NULL)i,i,x-i,y-i
  26. 260 next
  27. 270 poke198,0:wait198,1
  28. 280 (NULL)20:(NULL)2:x=160:y=100
  29. 290 fork=0to1:forj=1to188:fori=188to0step-j
  30. 300 (NULL)x,y,i
  31. 310 nexti,j,k
  32. 320 poke198,0:wait198,1
  33. 330 (NULL)15:(NULL)1:x=160:y=100
  34. 340 fori=100to0step-4
  35. 350 (NULL)x,y,y-i,i
  36. 360 next
  37. 370 poke198,0:wait198,1
  38. 380 (NULL)15:(NULL)2:x=110:y=50
  39. 390 fori=0to99step2
  40. 400 (NULL)x+i/2,y+i/2,i
  41. 410 next
  42. 420 poke198,0:wait198,1
  43. 430 (NULL)15:(NULL)2:y=100:a=63
  44. 440 forj=0to1
  45. 450 fori=0to255
  46. 460 (NULL)i,y,ianda
  47. 470 next
  48. 480 poke198,0:wait198,1
  49. 490 next
  50. 500 (NULL)15:(NULL)2:y=100:r=30*rnd(1)+20
  51. 510 forj=0to1
  52. 520 fori=0to319
  53. 530 (NULL)i,y,r
  54. 540 next
  55. 550 next
  56. 560 poke198,0:wait198,1
  57. 570 (NULL)15:(NULL)2:poke650,128:b=20
  58. 580 (NULL)1,1,7,0,0
  59. 590 (NULL)0,0,"[201]n dieser [196]emo werden 11610[146] [203]reise"
  60. 600 (NULL)0,10,"verschiedener [199]roesse in nur 180.9[146] sek."
  61. 610 (NULL)0,20,"gezeichnet !!"
  62. 620 poke198,0:wait198,1:poke198,0
  63. 630 (NULL)1,1,8,0
  64. 640 fora=1tob:(NULL)
  65. 650 forx=bto320-bstepb
  66. 660 fory=bto200-bstepb
  67. 670 geta$:ifa$<>""end
  68. 680 forr=0tobstepa
  69. 690 (NULL)x,y,r
  70. 700 nextr,y,x,a
  71. 710 poke198,0:wait198,1
  72. 720 (NULL)15:(NULL)2
  73. 730 fori=0to319step2
  74. 740 (NULL)i,0,i,199:next
  75. 750 fori=0to199step2
  76. 760 (NULL)0,i,319,i:next
  77. 770 (NULL)0,4,0
  78. 780 fori=1to5:(NULL)4,0,0
  79. 790 forj=0to188stepi
  80. 800 (NULL)160,100,j:next:next
  81. 810 poke198,0:wait198,1
  82. 820 (NULL)15:(NULL)2
  83. 830 s=10
  84. 840 forx=0to319-ssteps
  85. 850 (NULL)x,199,x+s-2,rnd(1)*200:next
  86. 860 poke198,0:wait198,1
  87. 870 (NULL)
  88. 880 fory=0to199-ssteps
  89. 890 (NULL)0,y,rnd(1)*319,y+s-2:nexty
  90. 900 poke198,0:wait198,1
  91. 910 (NULL)15:(NULL)2:(NULL)
  92. 920 fork=0to1:forj=1to200:fori=0to199stepj
  93. 930 (NULL)i,i,319-i,199-i
  94. 940 next:next:next
  95. 950 poke198,0:wait198,1
  96. 960 (NULL)15:(NULL)1:p=-(NULL)/180
  97. 970 fori=0to360step18
  98. 980 x=cos(i*p)*9
  99. 990 y=sin(i*p)*9
  100. 1000 (NULL)1,1,x+.5,y+.5,i/90
  101. 1010 (NULL)160+x*3,100+y*3,"hires-master"
  102. 1020 next
  103. 1030 poke198,0:wait198,1:poke198,0
  104. 1040 (NULL)2
  105. 1050 (NULL)160,100,140
  106. 1060 (NULL)15:(NULL)1:a$="hires-master"
  107. 1070 fori=1to4:t=i*8
  108. 1080 (NULL)i,i,t,0,i-1
  109. 1090 (NULL)0,y,a$
  110. 1100 (NULL)0,199-y-t,a$
  111. 1110 y=y+t
  112. 1120 next
  113. 1130 (NULL)4,4,32,0,0
  114. 1140 (NULL)0,83,"**********"
  115. 1150 poke198,0:wait198,1
  116. 1170 (NULL)15:(NULL)1:a=360/99
  117. 1180 forr=0to99step3
  118. 1190 i=r*a
  119. 1200 (NULL)160,100,r,r,i,360-i
  120. 1210 next
  121. 1220 poke198,0:wait198,1
  122. 1230 poke56,128:clr:a=19:dima$(a)
  123. 1240 a$(0)="1111222244448888111122224444888811112222444488881111222244448888"
  124. 1250 a$(1)="7777bbbbddddeeee7777bbbbddddeeee7777bbbbddddeeee7777bbbbddddeeee"
  125. 1260 a$(2)="eeeeddddbbbb7777eeeeddddbbbb7777eeeeddddbbbb7777eeeeddddbbbb7777"
  126. 1270 a$(3)="8888444422221111888844442222111188884444222211118888444422221111"
  127. 1280 a$(4)="aaaa5555aaaa5555aaaa5555aaaa5555aaaa5555aaaa5555aaaa5555aaaa5555"
  128. 1290 a$(5)="ffff888888888888ffff888888888888ffff888888888888ffff888888888888"
  129. 1300 a$(6)="ffff8080808080808080808080808080ffff8080808080808080808080808080"
  130. 1310 a$(7)="0000000001800240024002401e78200420041e78024002400240018000000000"
  131. 1320 a$(8)="47478383c5c5eeee5c5c38387474eeee47478383c5c5eeee5c5c38387474eeee"
  132. 1330 a$(9)="8888676707070707888876767070707088886767070707078888767670707070"
  133. 1340 a$(10)="00007f7f7f7f7f7f0000f7f7f7f7f7f700007f7f7f7f7f7f0000f7f7f7f7f7f7"
  134. 1350 a$(11)="8888444422225555888844442222555588884444222255558888444422225555"
  135. 1360 a$(12)="3838444482829292828244443838010138384444828292928282444438380101"
  136. 1370 a$(13)="ffff8181bfbfa1a1a1a1a1a1a1a1ffffffff8181bfbfa1a1a1a1a1a1a1a1ffff"
  137. 1380 a$(14)="8888555522225555888855552222555588885555222255558888555522225555"
  138. 1390 a$(15)="8080404020201010080804040202010101010202040408081010202040408080"
  139. 1400 a$(16)="1111222244448888888844442222111111112222444488888888444422221111"
  140. 1410 a$(17)="4004200810118822444422881110082004400820111022884444882210112008"
  141. 1420 a$(18)="222022205550888f555022205550888f555022205550888f5550222022202220"
  142. 1430 a$(19)="c827e44ff29ff93e7c7c3ef99ff24fe427c84fe49ff23ef97c7cf93ef29fe44f"
  143. 1440 fori=0toa:r=int(rnd(1)*(a+1)):a$=a$(i):a$(i)=a$(r):a$(r)=a$:t=fre(0):next
  144. 1450 (NULL)15:(NULL)1
  145. 1460 fori=0toa:x=rnd(1)*320:y=rnd(1)*200:r=rnd(1)*30+20
  146. 1470 (NULL)0:(NULL)x,y,r:(NULL)1
  147. 1480 (NULL)x,y,r
  148. 1490 (NULL)0,a$(i):(NULL)x,y
  149. 1500 poke198,0:wait198,1:next
  150. 1510 (NULL)1:(NULL)15
  151. 1520 (NULL)0,"111111111111ffff111111111111ffff111111111111ffff111111111111ffff"
  152. 1530 (NULL)0,0:(NULL)1,2,8,0,0
  153. 1540 fori=0to1
  154. 1550 forj=3to0step-1
  155. 1560 h=int(rnd(1)*30)
  156. 1570 fork=0toh
  157. 1580 (NULL)7+j*80+k,43+i*72-k,38+j*80+k,70+i*72-k,8+j*80+k,42+i*72-k
  158. 1590 next
  159. 1600 (NULL)0:(NULL)8+j*80+k,42+i*72-k,39+j*80+k,69+i*72-k:(NULL)1
  160. 1610 (NULL)8+j*80+k,42+i*72-k,39+j*80+k,69+i*72-k
  161. 1620 (NULL)8+j*80+k+(3-len(str$(h)))*4,48+i*72-k,str$(h)
  162. 1630 next:next
  163. 1640 poke198,0:wait198,1
  164. 1650 (NULL)15:(NULL)2:c=1.6:x=319:yy=199
  165. 1660 fori=0to160step2:y=int(i/c)
  166. 1670 (NULL)i,y,x-i,yy-y
  167. 1680 ifi>100then:(NULL)0,110,60,210,140
  168. 1690 next
  169. 1700 (NULL)2,2,14,0
  170. 1710 poke198,0:wait198,1
  171. 1720 (NULL)15:(NULL)0,0:(NULL)1,0:(NULL):(NULL)3,3:(NULL):(NULL)1,0:(NULL)2
  172. 1730 fori=0to187:(NULL)(iand1)*3,((i+1)and1)*3:(NULL)160,100,i:next
  173. 1740 poke198,0:wait198,1:(NULL)0,0
  174.