1000 DATA PRINTZ,SETREGS,Z,Z
1010 DATA     ,WORD,60056,
1020 DATA     ,GOSUB,48589,
1030 DATA     ,RETURN,,
1040 REM
1100 DATA PRINTCHRZ,SETREGS,Z,Z
1110 DATA     ,GOSUB,65490,
1120 DATA     ,RETURN,,
1130 REM
1200 DATA GETZ,MOVE#,0,Z
1210 DATA     ,CMOVE,198,Z
1220 DATA     ,IF,Z,GETZ1
1230 DATA     ,RETURN,,
1240 DATA GETZ1,CMOVE,631,Z
1250 DATA     ,CMOVE#,0,198
1260 DATA     ,RETURN,,
1270 REM
1300 DATA INPUTZ,GOSUB,65487,
1310 DATA     ,WORD,645,
1320 DATA     ,MOVE#,0,Z
1330 DATA     ,CMOVE,2,Z
1340 DATA     ,RETURN,,
1350 REM