Abstract type: Difference between revisions
Content added Content deleted
No edit summary |
(Abstract type in QBasic) |
||
| Line 333: | Line 333: | ||
return |
return |
||
</lang> |
</lang> |
||
=={{header|BASIC}}== |
=={{header|BASIC}}== |
||
==={{header|BBC BASIC}}=== |
==={{header|BBC BASIC}}=== |
||
| Line 417: | Line 418: | ||
0 |
0 |
||
forty five</pre> |
forty five</pre> |
||
==={{header|QBasic}}=== |
|||
{{works with|QBasic|1.1}} |
|||
{{works with|QuickBasic|4.5}} |
|||
{{trans|QB64}} |
|||
<lang qbasic>a = 15 |
|||
TYPE c |
|||
d AS INTEGER |
|||
e AS STRING * 12 |
|||
END TYPE |
|||
c.d = 25 |
|||
TYPE f |
|||
g AS c |
|||
h AS INTEGER |
|||
END TYPE |
|||
DIM i AS f |
|||
i.g.e = "thirty five" |
|||
DIM j AS f |
|||
j.g.e = "forty five" |
|||
PRINT a |
|||
PRINT b |
|||
PRINT c.d |
|||
PRINT c.e |
|||
PRINT i.g.e |
|||
PRINT g.e |
|||
PRINT j.g.e</lang> |
|||
=={{header|C}}== |
=={{header|C}}== |
||