Compucolor.org – Virtual Media

Listing of file='NOWORD.BAS;01' on disk='vmedia/games2-sector.ccvf'

2 PLOT 12
5 DIM D$(20)
10 DATA  ZERO,ONE,TWO,THREE,FOUR,FIVE,SIX,SEVEN,EIGHT,NINE
11 DATA TEN,ELEVEN,TWELVE,THIRTEEN,FOURTEEN,FIFTEEN,SIXTEEN,SEVENTEEN,EIGHTEEN,NINETEEN
14 DATA END
15 X= 0
20 READ  D$(X)
30 IF  D$(X)= "END" THEN  100
35 X= X+ 1:GOTO 20
100 INPUT "ENTER A NUMBER ";D
105 IF D> = XTHEN PRINT "TOO LARGE":GOTO 120
110 PRINT D$(D)
120 PRINT
130 GOTO 100