Autor Thema: BASIC 10-Liner  (Gelesen 168 mal)

0 Mitglieder und 1 Gast betrachten dieses Thema.

Offline Devilmarkus

  • Administrator
  • CPC 464+
  • *****
  • Beiträge: 955
  • Liked: 288
  • Karma: +29/-0
BASIC 10-Liner
« am: 22. Mai 2019, 12:30:15 »
Hab mal überlegt, wieder 10-Liner zu sammeln, ich hoffe um rege Beteiligung.

Hier mein Anfang:
10 MEMORY &3FFF:DEFINT a-z:AD=&8000:L=&20:P=0
20 READ a$:POKE AD+P,VAL("&"+a$):P=P+1:IF P=L THEN GOTO 50 ELSE GOTO 20
30 DATA 3E,40,CD,08,BC,01,0C,BC,ED,49,01,30,BD,ED,49,C9
40 DATA 3E,C0,CD,08,BC,01,0C,BC,ED,49,01,10,BD,ED,49,C9
50 MODE 1:x%=320:y%=200:xr%=120:yr%=60:p%=0:DEG:ON BREAK GOSUB 100
60 IF p%=0 THEN CALL &8000:p%=1 ELSE p%=0:CALL &8010
70 CLS:FOR k%=l% TO l%+360 STEP 90:l%=l%+1:IF l%=360 THEN l%=0
80 MOVE x%,350:DRAW x%+xr%*SIN(k%),y%+yr%*COS(k%):DRAW x%+xr%*SIN(k%+90),y%+yr%*COS(k%+90)
90 NEXT:GOTO 60
100 MODE 2
http://cpcwiki.de
Dein Deutsches CPCWiki!

Offline TFM

  • Administrator
  • CPC 6128+
  • *****
  • Beiträge: 2565
  • Liked: 608
  • Karma: +27/-0
  • Geschlecht: Männlich
  • FutureSoft und CPC - Ein starkes Team!
    • FutureOS
Re: BASIC 10-Liner
« Antwort #1 am: 23. Mai 2019, 19:39:42 »
Sehenswert, vor allem im Turbo Modus  :whip2:
TFM of FutureSoft
http://www.FutureOS.de --> Das Betriebssystem FutureOS (Update: 14.01.2019)
http://futureos.cpc-live.com/files/LambdaSpeak_RSX_by_TFM.zip --> RSX ROM für LambdaSpeak (Update: 03.06.2019)