home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 90xx / 9011b.d64 / kreis (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  475b  |  11 lines
  1. 0 DIMX(2828):CLR:V=53248:POKEV+33,.:POKEV+32,8:GOTO4
  2. 1 IFY<.ORY>LTHENRETURN
  3. 2 IFX<.ORX>KTHENRETURN
  4. 3 B=A-C*(YANDD)+(XANDD)-Y:POKEB,PEEK(B)ORD(XAND7):RETURN
  5. 4 H=.5:K=319:L=199:A=15879:C=39:D=-8:DIMD(7):FORI=.TO7:D(7-I)=2^I:NEXT
  6. 5 POKE198,.:INPUT"[147] X-POS, Y-POS, RADIUS ";F,G,R:PRINT"";:POKE2023,18
  7. 6 FORI=.TO110:PRINT"RRRRRRRRR";:NEXT:POKEV+17,59:POKEV+24,24:Q=R*R:E=R/1.4
  8. 7 FORI=.TOE:J=INT(H+SQR(Q-I*I)):X=F+I:Y=G+J:GOSUB1:Y=G-J:GOSUB1:X=F-I:GOSUB1
  9. 8 Y=G+J:GOSUB1:X=F+J:Y=G+I:GOSUB1:Y=G-I:GOSUB1:X=F-J:GOSUB1:Y=G+I:GOSUB1:NEXT
  10. 9 POKEV+32,.:POKE198,.:WAIT198,1:GETA$:SYS58648:POKEV+33,.:POKEV+32,11
  11.