listati da GWbasic

esci listagwbasic.htm

100 CLS
105 ON ERROR GOTO 300
106 N=2000
110 REM PROG1.BAS
120 REM USO DI BEEP CTRL-G CHR$(7) PER SUONO
150 FOR A=1 TO 10
160 PRINT A:BEEP
170 NEXT A
175 PRINT"--------------"
180 FOR B=1 TO N:NEXT B
190 FOR A=1 TO 10
195 PRINT A
200 PRINT CHR$(7)
210 NEXT A
300 PRINT"FINE":END