10  FILES TEST
20  DIM A$[72]
30  GOTO TYP(0) OF 40,70,150
40  READ A
50  PRINT #1;A
60  GOTO 30
70  READ A$
80  PRINT #1;A$
90  GOTO 30
100  DATA 123.124,383,0,59,-293.45,-3.8E-12,"NOW IS THE "
110  DATA "FOR ALL GOOD MEN TO COME TO THE AID OF THEIR PARTY"
120  DATA 3.73774E+21,3.5E+16,-3.7E-15,1.E-13
130  DATA "THIS STRING IS 72 CHARACTERS LONG 56789012345678901234567890123456789012"
140  DATA 0,0,0,1,2,3,4,-1,-2,-3,-4,"OVER AND OUT"
150  END 
