RosettaCodeData/Task/Loops-Continue/NS-HUBASIC/loops-continue.basic

6 lines
96 B
Plaintext

10 FOR I=1 TO 10
20 PRINT I;
30 IF I-I/5*5=0 THEN PRINT :GOTO 50"CONTINUE
40 PRINT ",";
50 NEXT