home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh1x / sh19.d64 / hires-demo (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.