Files
fail/simulators/gem5/ext/ply/example/BASIC/func.bas
2012-10-24 19:18:57 +00:00

6 lines
73 B
QBasic

10 DEF FDX(X) = 2*X
20 FOR I = 0 TO 100
30 PRINT FDX(I)
40 NEXT I
50 END