This should give you an idea how to get on:
code:

$sRoom=substr(@WKSTA,1,2) ; Room Prefix Tx
$iPCNo=substr(@WKSTA,3,9) ; Simple sequential PC number.

"This is PC number " $iPCNo " in room number " $sRoom ?

Select
Case $sRoom = "T8"
Use lpt1: "\\curriculum\T8Colour"
Case $sRoom = "T9"
Use lpt1: "\\curriculum\PagePro4100"
Case 1
"No printer mapped - room not recognised" ?
EndSelect


The scriptlet substrings off the first two characters and uses that in the "Case" construct to decide what to map. I also substring off the number, but don't actually use it.

Just as an aside, using this naming scheme would T123 be workstation 23 in room 1, or workstation 3 in room 12? Or do you only have 9 rooms?