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

10
Task/Variable-size-Set/Applesoft-BASIC/variable-size-set.basic Normal file
View file

@ -0,0 +1,10 @@
0 CLEAR : PRINT "DATA TYPES":F = 0:F = FRE (0)
1 PRINT "FLOATING POINT:";:G = 0: GOSUB 9
2 PRINT "INTEGER:";:I0% = 0: GOSUB 9
3 PRINT "STRING:";:Z9$ = "": GOSUB 9
4 PRINT "DEFINED-FUNCTION:";: DEF FN DO(IT) = 1 + LEN ( MID$ (Z9$,1)) + IT: GOSUB 9: PRINT
5 PRINT "ARRAYS OF SIZE 1"
6 PRINT "FLOATING POINT:";: DIM F(0): GOSUB 9: PRINT "INTEGER:";: DIM I%(0): GOSUB 9: PRINT "STRING:";: DIM S$(0): GOSUB 9: PRINT
7 PRINT "ARRAYS OF SIZE 2"
8 PRINT "FLOATING POINT:";: DIM G(1): GOSUB 9: PRINT "INTEGER:";: DIM J%(1): GOSUB 9: PRINT "STRING:";: DIM T$(1): GOSUB 9: END
9 PRINT F - FRE (0)" ";:F = FRE (0): RETURN