11 lines
635 B
Plaintext
11 lines
635 B
Plaintext
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
|