SCAN PTR WHILE = " " SCAN PTR UNTIL NEQ 48"00" SCAN PTR:PTR WHILE IN ALPHA SCAN PTR UNTIL IN ALPHA8 SCAN PTR:PTR WHILE IN ACCEPTABLE[0] SCAN PTR FOR 50 WHILE > "Z" SCAN PTR:PTR FOR X:80 UNTIL = "." SCAN PTR FOR RMNDR:960 WHILE NEQ 48"1D" SCAN PTR:PTR FOR ZED:ZED WHILE IN ALPHA8 SCAN PTR FOR 80 UNTIL IN GOODSTUFF[5]

