mirror of
https://github.com/curioustorvald/tsvm.git
synced 2026-03-07 11:51:49 +09:00
8 lines
187 B
QBasic
8 lines
187 B
QBasic
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")
|