/* Common test of program Anettest */ INCLUDE tcp srcmac = 00-01-10-50-ff-22 print '$srcmac$\n' pos td .fff 3s3 back 3 .fffx 0x010000 print '$fff$ = $fffx$\n' fff = 16 print '$fff$ = $fffx$\n' pos = fffx .fffx 0us26 fff = 3 print '$fffx$\n' .sym '' pos = fffx .fffs 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' print '\n$fffx$\n' // changes the case int nn = 0 string symv = '' cyc 26 { pos = fffs pass nn .sym '' setsize(sym, 1) symv = sym symv += 32 sym = symv nn+=1 } print '\n$fffs$\n' // CYCLES int v = 5 cyc v { cyc 60 { printl 'nested' break printl 'ERROR' } printl 'main' } printl 'end' cyc 0 { printl 'error' } cyc 1 { printl 'OK' }