home *** CD-ROM | disk | FTP | other *** search
/ RUN Flagazine: Run 14 / unpacked-run14.zip / 3DGWBAS.BAS < prev    next >
BASIC Source File  |  1995-01-01  |  712b  |  18 lines
  1. 100 REM 3D SCHEELIJK-BEELD DOOR LYKLE VOORT (C) RUN FLAGAZINE
  2. 110 KEY OFF:SCREEN 9:WINDOW (0,0)-(639,349):CLS:GOSUB 180
  3. 120 FOR X=540 TO 639:FOR Y=0 TO 349:IF RND <.5 THEN PSET (X,Y),15
  4. 130 NEXT Y,X
  5. 140 FOR X=539 TO 0 STEP -1:FOR Y=0 TO 349
  6. 150 KLEUR=POINT (X,Y):PSET (X,Y),POINT (X+100-KLEUR,Y)
  7. 160 NEXT Y,X
  8. 170 IF INKEY$=CHR$(27) THEN END ELSE GOTO 170
  9. 180 LOCATE 25,1:PRINT "RUN"
  10. 190 FOR X=0 TO 39:FOR Y=0 TO 40
  11. 200 IF POINT (X,Y) THEN 210 ELSE 230
  12. 210 PSET (X*8+200,Y*10+100),3:DRAW "C3;U10;R8;D10;L8"
  13. 220 PAINT (X*8+201,Y*10+101),3,3
  14. 230 NEXT Y,X:RETURN
  15. 240 REM /* 13/.3137,3323,0540,1972,3180,0540,2347,1404,1449,1735
  16. 250 REM /*/....2726,1488,1078
  17. 260 REM Checksum...............:  24919
  18.