Compucolor.org – Virtual Media

Listing of file='TESTAU.BAS;01' on disk='vmedia/taylor_7-sector.ccvf'

2 PLOT 12,14
4 PRINT TAB( 17);"TEST TO SHOW LOGIC FAULT (-8 ASCII)"
6 FOR Z= 1TO 4000:NEXT Z
8 PLOT 15,23
10 X= 40
15 FOR I= 1TO 83
20 PLOT 27,89,X
25 X= X+ 1
30 FOR N= 1TO 1500
35 NEXT N:PLOT 12
40 NEXT I
50 GOTO 10