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

6 lines
96 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
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