home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 90xx / 9008a.d64 / drachen (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  555b  |  25 lines
  1. 100 REM DRACHEN
  2. 110 IF FLAG=0 THEN FLAG=1:LOAD "GRAPHTOOL.OBJ",8,1
  3. 120 INPUT "WIE OFT ZERTEILEN : ";TM
  4. 130 SYS49152:SYS49158,1,0:REM GRAPHIK INITIALISIEREN
  5. 140 X1=0:Y1=100
  6. 150 L=300:GR=0
  7. 160 GOSUB 190
  8. 170 GETA$:IFA$=""THEN170
  9. 180 SYS49155:GOTO120
  10. 190 L(I)=L:GR(I)=GR:TM(I)=TM:I=I+1
  11. 200 TM=TM-1: IF TM < 1 THEN 290
  12. 210 L=L/4:GOSUB 190
  13. 220 GR=GR+90:GOSUB 190
  14. 230 GR=GR-90:GOSUB 190
  15. 240 L=L+L:GR=GR-90:GOSUB190
  16. 250 L=L/2:GR=GR+90:GOSUB190
  17. 260 GR=GR+90:GOSUB 190
  18. 270 GR=GR-90:GOSUB 190
  19. 280 GOTO320
  20. 290 X0=X1:Y0=Y1:BO=GR*2*(null)/360
  21. 300 X1=X0+COS(BO)*L:Y1=Y0+SIN(BO)*L
  22. 310 SYS49173,X0,Y0,X1,Y1
  23. 320 I=I-1:L=L(I):GR=GR(I):TM=TM(I)
  24. 330 RETURN
  25.