home *** CD-ROM | disk | FTP | other *** search
/ RUN Flagazine: Run 12 / run12.zip / BEWEGEN.BAS < prev    next >
BASIC Source File  |  1993-07-29  |  2KB  |  33 lines
  1. 100 REM BEWOGEN BEWEGING GW/QBASIC SCREEN 7 (C) RUN FLAGAZINE
  2. 110 R$(1)="Nffs!QD.qmf{jfs!nfu!SVO!Gmbhb{jof///"
  3. 120 R$(2)="Cftufm!ov!SVO!Ejtlfuuf!os!:"
  4. 130 R$(3)="Tupsu!G!33-61!pq!hjsp"
  5. 131 R$(4)="Uow!SVOTpguxbsf!Qptucvt!449!3271!Mjttf///"
  6. 140 CLS:KEY OFF:LOCATE 10,10:PRINT "Druk op spatiebalk voor ander beeld"
  7. 150 LOCATE 12,10:PRINT "Druk op <Esc> voor Einde...":WHILE INKEY$="":WEND
  8. 170 CLS:SCREEN 7:RANDOMIZE TIMER:A=2*RND-1:B=2*RND-1:C=A*B+.2
  9. 180 FOR X=0 TO 319:FOR Y=0 TO 199:S=X/80-2:T=Y/50-2
  10. 190 PSET (X,Y),((S*S+T*T-2)*(S+T)*((S+A)*(T+B)-C)*50+16384) MOD 16
  11. 200 NEXT Y,X:GOSUB 290
  12. 210 D=(INT(RND*10)+1)+1/(INT(RND*30)+1):K=0:FOR I=0 TO 99
  13. 220 Y=99-I:FOR X=100-I TO 220+I:GOSUB 270:NEXT X
  14. 230 X=220+I:FOR Y=100-I TO 100+I:GOSUB 270:NEXT Y
  15. 240 Y=100+I:FOR X=219+I TO 99-I STEP-1:GOSUB 270:NEXT X
  16. 250 X=99-I:FOR Y=99+I TO 99-I STEP-1:GOSUB 270:NEXT Y
  17. 260 NEXT I:GOSUB 290:GOTO 180
  18. 270 PSET (X, Y),K:K=K+D:IF K>=16 THEN K=K-16
  19. 280 RETURN
  20. 290 P=0:Q=0:WHILE INKEY$ <> "": WEND
  21. 300 PALETTE (P+4) MOD 16,INT(Q+9.600001) MOD 16
  22. 310 PALETTE (P+8) MOD 16,INT(Q+3.2) MOD 16
  23. 320 PALETTE (P+12) MOD 16,INT(Q+12.8) MOD 16
  24. 330 PALETTE P,INT(Q):P=(P+1) MOD 16:Q=Q+.02:IF Q>=16 THEN Q=0
  25. 340 T$=INKEY$:IF T$ = "" THEN 300 ELSE IF T$>CHR$(31) THEN BEEP:RETURN
  26. 350 SCREEN 2:SCREEN 0,0:CLS:COLOR 14,0
  27. 360 FOR A=1 TO 4:FOR B=1 TO LEN(R$(A)):LOCATE A+9,B+15
  28. 370 PRINT CHR$(ASC(MID$(R$(A),B,1))-1):NEXT B,A:LOCATE 12,38:PRINT "4375187"
  29. 380 REM /* 27/.3511,2754,2039,3742,5164,4658,3606,2632,3311,1137
  30. 390 REM /*/....2972,2570,2600,2986,2916,1513,2281,0480,1842,2319
  31. 400 REM /*/....2072,2169,3296,3686,2062,2735,4121
  32. 410 REM Checksum...............:  75174
  33.