1 GOTO START
100 LABEL PRINTRNDNUM
110 K=FIX(RND(1)*256)
120 PRINT " ";K;" ";
130 RETURN
1000 LABEL START
1010 PRINT "HELLO,";:GOSUB PRINTRNDNUM:PRINT(IF K==1 THEN "WORLD" ELSE "WORLDS")