fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

FB-Quine

Uploader:	nemored
Datum/Zeit:	01.08.2010 02:38:34

DIM AS STRING T, D = CHR(68, 65, 84, 65, 32, 34)

FOR K AS INTEGER = 1 to 2

  RESTORE

  FOR I AS INTEGER = 1 TO 8

    READ T

    IF K = 1 THEN PRINT T ELSE PRINT D & T & CHR(34)

  NEXT

NEXT

DATA "DIM AS STRING T, D = CHR(68, 65, 84, 65, 32, 34)"

DATA "FOR K AS INTEGER = 1 to 2"

DATA "  RESTORE"

DATA "  FOR I AS INTEGER = 1 TO 8"

DATA "    READ T"

DATA "    IF K = 1 THEN PRINT T ELSE PRINT D & T & CHR(34)"

DATA "  NEXT"

DATA "NEXT"

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.