| |
DB1ZF > MSX 10.09.95 21:28l 50 Lines 1362 Bytes #-10478 (0) @ EU
BID : 109543DB0GV
Read: DL5MHK OK1IKE DF2SKE GUEST
Subj: Shuffle.bas
Path: DB0AAB<DB0PV<DB0MRW<DB0SON<DB0FP<DB0GV
Sent: 950910/1716z @:DB0GV.#HES.DEU.EU [Maintal-Ffm SYSOP: DF5FF] $:109543DB0GV
de DB1ZF @ DB0GV.#HES.DEU.EU (Kurt)
to MSX @ EU
10 COLOR 15,4,7
20 SCREEN 2,1
30 SPRITE$(2)=CHR$(&HFF)+CHR$(&HFF)+CHR$(&HFF)+CHR$(&HFF)
40 SPRITE$(1)=CHR$(&H80)
50 FOR I=1 TO 15
60 LINE (150,1+I)-(200,1+I),I
70 LINE (150,10+I)-(100,170+I),I
80 LINE (200,10+I)-(240,170+I),I
90 LINE (100,170+I)-(240,170+I),I
100 NEXT I
110 X=170:Y=130
120 YS=0:XX=160:YY=150
130 X1=160:Y1=30
140 ON SPRITE GOSUB 340:SPRITE ON
150 X=X+XS+YS:Y=Y+YS+YS
160 IF POINT(X,Y)=4 THEN Y=Y+YS
170 S=STICK(0)
180 PUTSPRITE 1,(X,Y),8,1
190 PUTSPRITE 2,(XX,YY),1,2:REM PUTSPRITE 4,(XX+20,YY),1,2
200 PUTSPRITE 3,(X1,Y1),1,2
210 IF Y1=Y THEN Y1=50 ELSE Y1=30
220 IF Y<40.140986475332# THEN X1=X
230 IF XX<106 THEN XX=106 ELSE IF XX>216 THEN XX=216
240 IF Y<32 THEN YS=-YS:XS=-10
250 IF Y<25.017564782394# THEN GOTO 110
260 IF Y>162 THEN YS=-YS:GOSUB 340
270 IF X<150 THEN XS=20
280 IF X>200 THEN XS=-20
290 IF POINT(X,Y)=1 THEN GOSUB 340
300 IF S=7 THEN XX=XX-18 ELSE IF S=3 THEN XX=XX+18
310 IF S=1 THEN YY=130 ELSE YY=150
320 IF X>XX AND X<XX+32 AND Y>YY AND Y<YY+8 THEN GOSUB 340
330 GOTO 150
340 SPRITE OFF:XS=-20-YS:YS=RND(-TIME)*8-8
350 IF Y>160 THEN GOTO 370
360 RETURN 150
370 REM
380 FOR I=1 TO 1000:NEXT
390 IF Y<45 THEN 420
391 IF X<X1 THEN X=X+1 ELSE IF X>X1 THEN X=X-1
392 IF X=X THEN Y=Y-1
400 PUTSPRITE 1,(X,Y),1,1:Y=Y-1
410 GOTO 390
420 FOR I=1 TO 1000:NEXT
430 RETURN 150
Read previous mail | Read next mail
| |
