aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Initial data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 72d218235f
commit f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

15
Task/Quine/QuickBASIC/quine.basic Normal file
View file

@ -0,0 +1,15 @@
A$ = "a!'dbde[39] c34);[97] 'a + c34);[98] 'b';[99] 'c';[100][101] 'e';[91] : PRINT 'CASE c';[93] ']';[33] A$;dCASE ELSE: PRINT MID$(A$, I, 1);dEND SELECTdNEXT Id"
FOR I = 1 TO LEN(A$)
SELECT CASE MID$(A$, I, 1)
CASE CHR$(39): PRINT CHR$(34);
CASE CHR$(97): PRINT "A$ = " + CHR$(34);
CASE CHR$(98): PRINT "FOR I = 1 TO LEN(A$)";
CASE CHR$(99): PRINT "CHR$(";
CASE CHR$(100): PRINT
CASE CHR$(101): PRINT "SELECT CASE MID$(A$, I, 1)";
CASE CHR$(91): PRINT : PRINT "CASE CHR$(";
CASE CHR$(93): PRINT "): PRINT";
CASE CHR$(33): PRINT A$;
CASE ELSE: PRINT MID$(A$, I, 1);
END SELECT
NEXT I