VTech PreComputer 2000 Manual page 52

3 POUNDS AND KILOGRAMS
10 INPUT "POUNDS OR KILOGRAMS";A$
20 IF A$="POUNDS" THEN GOTO 60 ·
30 INPUT "HOW MANY POUNDS";P
40 PRINT P;"POUNDS=" ;P* .45;"KILOGRAMS"
50 GOTO 80
60 INPUT "HOW MANY KILOGRAMS";K
70 PRINT K;"KILOGRAMS=";K/.45;"POUNDS"
80 END
4 LEARN SCHEDULE
10 DIM WEEK$(6)
20 DIM EVENT$(6)
30 DATA "SUNDAY","PLAY TIME"
40 DATA "MONDAY","LEARN ECOLOGY"
50 DATA "TUESDAY","LEARN ENGLISH"
60 DATA "WEDNESDAY","LEARN MUSIC"
70 DATA "THURSDAY","LEARN HISTORY"
80 DATA "FRIDAY" ,"LEARN GEOGRAPHY"
90 DATA "SATURDAY","PLAY FOOTBALL"
100 REM *****LIST******
110 FOR W=0 TO 6
120 READ WEEK$(W)
130 READ EVENT$(W)
140 PRINT WEEK$(W),EVENT$(W)
150 NEXT W
999 END
51