10 TEXT : SPEED= 255: HOME 20 INPUT "HELLO, WHAT'S YOUR NAME?";A$ 30 HOME : PRINT "WELCOME ";A$ 40 PRINT : PRINT "TO TOMORROW'S WORLD TEST BROADCAST" 50 PRINT : PRINT "WOULD YOU LIKE TO CONTINUE? (Y/N)" 60 GET B$ 70 IF B$ < > "Y" THEN 10 80 HOME : PRINT "THIS PROGRAM WAS BROADCAST DURING" 90 PRINT : PRINT "TOMORROW'S WORLD, BBC1, DECEMBER 3RD." 100 POKE 34,10: SPEED= 125: VTAB 17 110 FOR I = 1 TO 4000: NEXT 120 HTAB 20: PRINT : PRINT : PRINT "MICHAEL RODD" 130 PRINT : PRINT "JUDITH HANN" 140 PRINT : PRINT "KIERAN PRENDIVILLE" 150 PRINT : PRINT "SU INGLE" 160 PRINT : PRINT "SPECIAL THANKS TO..." 170 PRINT : PRINT A$ 180 FOR I = 1 TO 13 190 FOR T = 1 TO 500: NEXT T: PRINT 200 NEXT I 210 SPEED= 255: NORMAL 220 POKE 34,0: HOME : END