10 extend 20 ! BASIC.BAS - a program to enforce the SPC BASIC & ! rules - 11-Oct-86 tmk 30 print "?Ambiguous keyword" ! Complain about no argument & \ goto 32767 ! And exit 40 if cmdline$="" then goto 30 ! If nothing specified & else if len(cmdline$)>2 then goto 50 & else print "?Invalid qualifier" ! If too short & \ goto 32767 50 if left(cmdline$,3)="BPL" then goto 60 & else if left(cmdline$,3)="BP2" then goto 70 & else if left(cmdline$,3)="DEB" then goto 80 & else print "?Invalid qualifier" ! If not legal & \ goto 32767 60 rts$=cvt%$(swap%(3259%))+cvt%$(swap%(14520%)) & \ goto 90 ! RAD "BASIC " 70 chain "$BP2IC2" & \ stop ! Should never get here. 80 rts$=cvt%$(swap%(3259%))+cvt%$(swap%(6602%)) & \ goto 90 ! RAD "BASDEB" 90 temp$=sys(chr$(9%)+rts$) ! Transfer to new RTS & \ stop ! Should never get here. 30000 print if ccpos(0%) ! Restore to margin if needed & \ cmdline$=cvt$$(right(sys(chr$(7%)),7%),-1%) & \ on error goto 31000 ! Set up error trapping & \ goto 40 ! Return W/ core common loaded 31000 print "?Command not installed" ! Say command not present & \ resume 32767 ! And bail out 32767 end