home *** CD-ROM | disk | FTP | other *** search
/ RUN Flagazine: Run 1 / run1.zip / FANTLET.BAS < prev    next >
BASIC Source File  |  2014-09-03  |  2KB  |  43 lines
  1. 100 REM FANTASIELETTERS GWBASIC GRAPHICS CGA
  2. 110 CLS:KEY OFF:SCREEN 2
  3. 120 LOCATE 6,31:PRINT "Fantasieletters"
  4. 130 LOCATE 8,30:PRINT "<1> Wimpelletters"
  5. 140 LOCATE 9,30:PRINT "<2> Cirkelletters"
  6. 150 LOCATE 10,30:PRINT "<3> Kruisletters"
  7. 160 LOCATE 12,30:PRINT "Kies 1, 2 of 3";
  8. 170 INPUT A$:IF INSTR("123",A$)=0 THEN BEEP:GOTO 160
  9. 180 ON VAL(A$) GOTO 190,280,360
  10. 190 PRINT:PRINT "Woord van maximaal 8 letters: ";:LINE INPUT A$
  11. 200 IF LEN(A$)<1 OR LEN(A$)>8 THEN BEEP:GOTO 190
  12. 210 CLS:A=LEN(A$):PRINT A$:DIM XY(63,8):FOR X=0 TO A*8-1
  13. 220 FOR Y=0 TO 8:XY(X,Y)=POINT(X,Y):NEXT Y,X:CLS
  14. 230 FOR X=0 TO A*80-1 STEP .5:Z=COS(3.1415/630*X)^2*7:C=10/(10+Z)
  15. 240 FOR Y=0 TO 80:D=XY(INT(X/10),INT(Y/10))
  16. 250 IF D=1 AND E=0 THEN PSET (320+(X+325-40*A-320)*C,(Y+100)*C):E=1
  17. 260 IF D=0 AND E=1 THEN LINE -(320+(X+325-40*A-320)*C,(Y+100)*C):E=0
  18. 270 NEXT Y:NEXT X:GOSUB 460:RUN
  19. 280 PRINT:PRINT "Woord van maximaal 6 letters: ";:LINE INPUT A$
  20. 290 IF LEN(A$)<1 OR LEN(A$)>6 THEN BEEP:GOTO 280 ELSE CLS:DIM XY(48,8)
  21. 300 PRINT A$:FOR Y=0 TO 8:FOR X=0 TO 48:XY(X,Y)=POINT(X,Y):NEXT X,Y
  22. 310 CLS:FOR Y=80 TO 0 STEP -1:RY=Y+20:RX=Y+120:A=0
  23. 320 FOR X=0 TO 480 STEP 25/(Y+1):A=(X/480)*6.283-3.1415/2
  24. 330 X1=320+RX*COS(A):Y1=100+RY*SIN(A)
  25. 340 IF XY(INT(X/10),INT((80-Y)/10))=1 THEN PSET (X1,Y1)
  26. 350 NEXT X,Y:GOSUB 460:RUN
  27. 360 PRINT:PRINT "Woord van maximaal 8 letters: ";:LINE INPUT A$
  28. 370 IF LEN(A$)<1 OR LEN(A$)>8 THEN BEEP:GOTO 190 ELSE DIM XY(63,7)
  29. 380 CLS:PRINT A$:FOR X=0 TO 63:FOR Y=0 TO 7:XY(X,Y)=POINT(X,Y)
  30. 390 NEXT Y,X:CLS:FOR X=0 TO 630 STEP .4:P=10/(10+X/25):FOR Y=0 TO 70
  31. 400 B1=XY(INT(X/10),INT(Y/10)):B2=XY(INT((630-X)/10),INT(Y/10))
  32. 410 IF B1=1 AND A1=0 THEN X1=320+(X-315)*P:Y1=(Y+105)*P:A1=1
  33. 420 IF B1=0 AND A1=1 THEN X2=320+(X-315)*P:Y2=(Y+105)*P:                               LINE (X1,Y1)-(X2,Y2):A1=0
  34. 430 IF B2=1 AND A2=0 THEN X3=320+((630-X)-315)*P:Y3=(Y+105)*P:A2=1
  35. 440 IF B2=0 AND A2=1 THEN X4=320+((630-X)-315)*P:Y4=(Y+105)*P:                         Y4=(Y+105)*P:LINE (X3,Y3)-(X4,Y4):A2=0
  36. 450 NEXT Y,X:GOSUB 460:RUN
  37. 460 BEEP:LOCATE 1,1:PRINT "Toets <Enter>";:INPUT A$:RETURN
  38. 470 REM /* 36/.1292,2743,2726,2708,2673,2067,2764,1428,4409,2453
  39. 480 REM /*/....3016,2824,3342,2282,3271,3295,1772,4407,3716,3853
  40. 490 REM /*/....2710,2772,2015,2901,1439,4409,3430,3535,3595,3488
  41. 500 REM /*/....3008,4210,3294,5249,1439,3762
  42. 510 REM Checksum...............:  108297
  43.