home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh1x
/
sh19.d64
/
hires-demo
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
4KB
|
174 lines
10 (null):(null):(null)1
20 FORI=0TO159STEP5:J=100+I/1.6
30 (null)0,J,I,199
40 (null)0,199-J,I,0
50 (null)319,J,319-I,199
60 (null)319,199-J,319-I,0
70 NEXT
80 (null)2,3,16,0,0
90 (null)64,80,"HIRES-MASTER"
100 (null)98,120,"TASTE..."
110 (null)64,80+3*8,320-64,80+3*8
120 POKE198,0:WAIT198,1
130 (null)20:(null)2:X=319:Y=199
140 FORK=0TO1:FORJ=1TO200
150 FORI=0TOYSTEPJ
160 (null)I,I,X-I,Y-I:(null)I,Y-I,X-I,I
170 NEXTI,J,K
180 POKE198,0:WAIT198,1
190 (null)20:(null)2:X=319:Y=199
200 FORI=0TOY
210 (null)I,I,X-I,Y
220 (null)X-I,Y-I,I,0
230 (null)0,Y-I,I,I
240 (null)X,I,X-I,Y-I
250 (null)I,I,X-I,Y-I
260 NEXT
270 POKE198,0:WAIT198,1
280 (null)20:(null)2:X=160:Y=100
290 FORK=0TO1:FORJ=1TO188:FORI=188TO0STEP-J
300 (null)X,Y,I
310 NEXTI,J,K
320 POKE198,0:WAIT198,1
330 (null)15:(null)1:X=160:Y=100
340 FORI=100TO0STEP-4
350 (null)X,Y,Y-I,I
360 NEXT
370 POKE198,0:WAIT198,1
380 (null)15:(null)2:X=110:Y=50
390 FORI=0TO99STEP2
400 (null)X+I/2,Y+I/2,I
410 NEXT
420 POKE198,0:WAIT198,1
430 (null)15:(null)2:Y=100:A=63
440 FORJ=0TO1
450 FORI=0TO255
460 (null)I,Y,IANDA
470 NEXT
480 POKE198,0:WAIT198,1
490 NEXT
500 (null)15:(null)2:Y=100:R=30*RND(1)+20
510 FORJ=0TO1
520 FORI=0TO319
530 (null)I,Y,R
540 NEXT
550 NEXT
560 POKE198,0:WAIT198,1
570 (null)15:(null)2:POKE650,128:B=20
580 (null)1,1,7,0,0
590 (null)0,0,"[201]N DIESER [196]EMO WERDEN 11610[146] [203]REISE"
600 (null)0,10,"VERSCHIEDENER [199]ROESSE IN NUR 180.9[146] SEK."
610 (null)0,20,"GEZEICHNET !!"
620 POKE198,0:WAIT198,1:POKE198,0
630 (null)1,1,8,0
640 FORA=1TOB:(null)
650 FORX=BTO320-BSTEPB
660 FORY=BTO200-BSTEPB
670 GETA$:IFA$<>""END
680 FORR=0TOBSTEPA
690 (null)X,Y,R
700 NEXTR,Y,X,A
710 POKE198,0:WAIT198,1
720 (null)15:(null)2
730 FORI=0TO319STEP2
740 (null)I,0,I,199:NEXT
750 FORI=0TO199STEP2
760 (null)0,I,319,I:NEXT
770 (null)0,4,0
780 FORI=1TO5:(null)4,0,0
790 FORJ=0TO188STEPI
800 (null)160,100,J:NEXT:NEXT
810 POKE198,0:WAIT198,1
820 (null)15:(null)2
830 S=10
840 FORX=0TO319-SSTEPS
850 (null)X,199,X+S-2,RND(1)*200:NEXT
860 POKE198,0:WAIT198,1
870 (null)
880 FORY=0TO199-SSTEPS
890 (null)0,Y,RND(1)*319,Y+S-2:NEXTY
900 POKE198,0:WAIT198,1
910 (null)15:(null)2:(null)
920 FORK=0TO1:FORJ=1TO200:FORI=0TO199STEPJ
930 (null)I,I,319-I,199-I
940 NEXT:NEXT:NEXT
950 POKE198,0:WAIT198,1
960 (null)15:(null)1:P=-(null)/180
970 FORI=0TO360STEP18
980 X=COS(I*P)*9
990 Y=SIN(I*P)*9
1000 (null)1,1,X+.5,Y+.5,I/90
1010 (null)160+X*3,100+Y*3,"HIRES-MASTER"
1020 NEXT
1030 POKE198,0:WAIT198,1:POKE198,0
1040 (null)2
1050 (null)160,100,140
1060 (null)15:(null)1:A$="HIRES-MASTER"
1070 FORI=1TO4:T=I*8
1080 (null)I,I,T,0,I-1
1090 (null)0,Y,A$
1100 (null)0,199-Y-T,A$
1110 Y=Y+T
1120 NEXT
1130 (null)4,4,32,0,0
1140 (null)0,83,"**********"
1150 POKE198,0:WAIT198,1
1170 (null)15:(null)1:A=360/99
1180 FORR=0TO99STEP3
1190 I=R*A
1200 (null)160,100,R,R,I,360-I
1210 NEXT
1220 POKE198,0:WAIT198,1
1230 POKE56,128:CLR:A=19:DIMA$(A)
1240 A$(0)="1111222244448888111122224444888811112222444488881111222244448888"
1250 A$(1)="7777BBBBDDDDEEEE7777BBBBDDDDEEEE7777BBBBDDDDEEEE7777BBBBDDDDEEEE"
1260 A$(2)="EEEEDDDDBBBB7777EEEEDDDDBBBB7777EEEEDDDDBBBB7777EEEEDDDDBBBB7777"
1270 A$(3)="8888444422221111888844442222111188884444222211118888444422221111"
1280 A$(4)="AAAA5555AAAA5555AAAA5555AAAA5555AAAA5555AAAA5555AAAA5555AAAA5555"
1290 A$(5)="FFFF888888888888FFFF888888888888FFFF888888888888FFFF888888888888"
1300 A$(6)="FFFF8080808080808080808080808080FFFF8080808080808080808080808080"
1310 A$(7)="0000000001800240024002401E78200420041E78024002400240018000000000"
1320 A$(8)="47478383C5C5EEEE5C5C38387474EEEE47478383C5C5EEEE5C5C38387474EEEE"
1330 A$(9)="8888676707070707888876767070707088886767070707078888767670707070"
1340 A$(10)="00007F7F7F7F7F7F0000F7F7F7F7F7F700007F7F7F7F7F7F0000F7F7F7F7F7F7"
1350 A$(11)="8888444422225555888844442222555588884444222255558888444422225555"
1360 A$(12)="3838444482829292828244443838010138384444828292928282444438380101"
1370 A$(13)="FFFF8181BFBFA1A1A1A1A1A1A1A1FFFFFFFF8181BFBFA1A1A1A1A1A1A1A1FFFF"
1380 A$(14)="8888555522225555888855552222555588885555222255558888555522225555"
1390 A$(15)="8080404020201010080804040202010101010202040408081010202040408080"
1400 A$(16)="1111222244448888888844442222111111112222444488888888444422221111"
1410 A$(17)="4004200810118822444422881110082004400820111022884444882210112008"
1420 A$(18)="222022205550888F555022205550888F555022205550888F5550222022202220"
1430 A$(19)="C827E44FF29FF93E7C7C3EF99FF24FE427C84FE49FF23EF97C7CF93EF29FE44F"
1440 FORI=0TOA:R=INT(RND(1)*(A+1)):A$=A$(I):A$(I)=A$(R):A$(R)=A$:T=FRE(0):NEXT
1450 (null)15:(null)1
1460 FORI=0TOA:X=RND(1)*320:Y=RND(1)*200:R=RND(1)*30+20
1470 (null)0:(null)X,Y,R:(null)1
1480 (null)X,Y,R
1490 (null)0,A$(I):(null)X,Y
1500 POKE198,0:WAIT198,1:NEXT
1510 (null)1:(null)15
1520 (null)0,"111111111111FFFF111111111111FFFF111111111111FFFF111111111111FFFF"
1530 (null)0,0:(null)1,2,8,0,0
1540 FORI=0TO1
1550 FORJ=3TO0STEP-1
1560 H=INT(RND(1)*30)
1570 FORK=0TOH
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
1590 NEXT
1600 (null)0:(null)8+J*80+K,42+I*72-K,39+J*80+K,69+I*72-K:(null)1
1610 (null)8+J*80+K,42+I*72-K,39+J*80+K,69+I*72-K
1620 (null)8+J*80+K+(3-LEN(STR$(H)))*4,48+I*72-K,STR$(H)
1630 NEXT:NEXT
1640 POKE198,0:WAIT198,1
1650 (null)15:(null)2:C=1.6:X=319:YY=199
1660 FORI=0TO160STEP2:Y=INT(I/C)
1670 (null)I,Y,X-I,YY-Y
1680 IFI>100THEN:(null)0,110,60,210,140
1690 NEXT
1700 (null)2,2,14,0
1710 POKE198,0:WAIT198,1
1720 (null)15:(null)0,0:(null)1,0:(null):(null)3,3:(null):(null)1,0:(null)2
1730 FORI=0TO187:(null)(IAND1)*3,((I+1)AND1)*3:(null)160,100,I:NEXT
1740 POKE198,0:WAIT198,1:(null)0,0