BASIC ujjgyakorlat (Nagy Dániel)

Saját műveink legyen az BASIC-ben, Pascal-ban, gépi kódban, de lehet akár grafika is...
Avatar
Bali
Alapító tag
Hozzászólások: 2302
Csatlakozott: 2012.01.06. 13:34
Tartózkodási hely: Budapest III.
Kapcsolat:

BASIC ujjgyakorlat (Nagy Dániel)

Hozzászólás Szerző: Bali » 2019.08.12. 17:10

Egy kis ujjgyakorlat eredeti Spectrum BASIC-ben. Nem tökéletes, de egész jó.

quine.tap
(1.02 KiB) Letöltve 5 alkalommal.

Kód: Egész kijelölése

   10 LET l=10: LET p$=""
   20 FOR n=0 TO 1: RESTORE 
   30 READ o,a$: IF n THEN LET p$=p$(o TO )
   40 IF a$="" THEN NEXT n: LET i$=" 150 DATA 1,""""": GO SUB 60: PRINT #1;" RUN ": PAUSE 9: RUN 
   50 LET c$="K": LET i$=STR$ l+((" DATA "+STR$ o+",""") AND n): GO SUB 60: LET l=l+10:: GO TO 30
   60 LET l$="": FOR i=1 TO LEN i$: LET l$=l$+i$(i): GO SUB 70: NEXT i: FOR i=1 TO LEN a$: LET l$=l$+a$(i)+("""" AND a$(i)="""" AND n): LET c$="LK"(1+(a$(i)=":" OR a$(i)=" THEN ")): GO SUB 70: NEXT i: LET l$=l$+("""" AND n): GO SUB 70: LET p$=p$+"  "( TO 4-LEN STR$ l)+l$+CHR$ 13: CLS : PRINT p$;: RETURN 
   70 PRINT #1;AT 1,0;l$; FLASH 1;c$;: PAUSE 10+20*RND: RETURN 
   80 DATA 31," LET l=10: LET p$="""""
   90 DATA 25," FOR n=0 TO 1: RESTORE "
  100 DATA 50," READ o,a$: IF n THEN LET p$=p$(o TO )"
  110 DATA 56," IF a$="""" THEN NEXT n: LET i$="" 150 DATA 1,"""""""""": GO SUB 60: PRINT #1;"" RUN "": PAUSE 9: RUN "
  120 DATA 180," LET c$=""K"": LET i$=STR$ l+(("" DATA ""+STR$ o+"","""""") AND n): GO SUB 60: LET l=l+10: GO TO 30"
  130 DATA 79," LET l$="""": FOR i=1 TO LEN i$: LET l$=l$+i$(i): GO SUB 70: NEXT i: FOR i=1 TO LEN a$: LET l$=l$+a$(i)+("""""""" AND a$(i)="""""""" AND n): LET c$=""LK""(1+(a$(i)="":"" OR a$(i)="" THEN "")): GO SUB 70: NEXT i: LET l$=l$+("""""""" AND n): GO SUB 70: LET p$=p$+""  ""( TO 4-LEN STR$ l)+l$+CHR$ 13: CLS : PRINT p$;: RETURN "
  140 DATA 98," PRINT #1;AT 1,0;l$; FLASH 1;c$;: PAUSE 10+20*RND: RETURN "
  150 DATA 1,""
-= Bali =-
(c) 1983-2017 Evil-Soft

Válasz küldése

Ki van itt

Jelenlévő fórumozók: nincs regisztrált felhasználó valamint 1 vendég