1345 E892 A9 0D LDA #CR ;OUTPUT LAST LINE IF ON
1346 E894 4C 00 F0 JMP OUTPRI ;& CLEAR PRINTER PTR
1347 E897 ;USER SET UP
1348 E897 C9 55 WHRO3 CMP #'U' ;USR RTN?
1349 E899 D0 04 BNE WHRO4
1350 E89B 18 CLC ;CLR FLG FOR INITIALIZATION
1351 E89C 6C 0A 01 JMP (UOUT) ;USER OUTPUT SETUP
1352 E89F ;ANY OTHER
1353 E89F 4C 13 EA WHRO4 JMP CRLOW
1354 E8A2
1355 E8A2 ;GET FILE NAME & TAPE UNIT
1356 E8A2 20 9E EB FNAM JSR PHXY ;SAVE IN/OUT FLG (X)
1357 E8A5 20 CF E8 JSR NAMO ;GET NAME
1358 E8A8 A0 50 WHICHT LDY #TMSG2-M1 ;PRINT "T="
1359 E8AA 20 70 E9 JSR KEPR ;OUTPUT MSG & INPUT CHR
1360 E8AD C9 0D CMP #CR
1361 E8AF D0 02 BNE TAP1
1362 E8B1 A9 31 LDA #'1' ;<CR> ==> TAPE 1
1363 E8B3 38 TAP1 SEC
1364 E8B4 E9 31 SBC #'1' ;SUBTRACT 31
1365 E8B6 30 04 BMI TAP2 ;ONLY 1,2 OK
1366 E8B8 C9 02 CMP #2
1367 E8BA 30 06 BMI TAP3 ;OK
1368 E8BC 20 D4 E7 TAP2 JSR QM ;ERROR
1369 E8BF 4C A8 E8 JMP WHICHT
1370 E8C2 20 AC EB TAP3 JSR PLXY ;IN/OUT FLG
1371 E8C5 9D 34 A4 STA TAPIN,X ;IF X=0 --> TAPIN (TAPE 1 OR 2)
1372 E8C8 20 83 FE JSR CUREAD ;GET ANYTHING
1373 E8CB 20 24 EA JSR CRCK ;<CR>
1374 E8CE 60 RTS ;IF X=1 --> TAPOUT (TAPE 1 OR 2)
1375 E8CF
1376 E8CF ;GET FILE NAME
1377 E8CF A0 4D NAMO LDY #TMSG1-M1 ;PRINT "F="
1378 E8D1 20 AF E7 JSR KEP ;NO CRLF
1379 E8D4 A0 00 LDY #0
1380 E8D6 20 5F E9 NAMO1 JSR RDRUP ;GET CHAR
1381 E8D9 C9 0D CMP #CR ;DONE?
1382 E8DB F0 0C BEQ NAMO2
1383 E8DD C9 20 CMP #' '
1384 E8DF F0 08 BEQ NAMO2
1385 E8E1 99 2E A4 STA NAME,Y ;STORE
1386 E8E4 C8 INY
1387 E8E5 C0 05 CPY #5
1388 E8E7 D0 ED BNE NAMO1
1389 E8E9 ;BLANK REST OF NAME
1390 E8E9 A9 20 NAMO2 LDA #' '
1391 E8EB C0 05 NAMO3 CPY #5
1392 E8ED F0 06 BEQ NAMO4
1393 E8EF 99 2E A4 STA NAME,Y
1394 E8F2 C8 INY
1395 E8F3 D0 F6 BNE NAMO3
1396 E8F5 4C 3E E8 NAMO4 JMP BLANK
1397 E8F8
1398 E8F8 ;SET INPUT FROM TERMINAL (KB OR TTY)
1399 E8F8 A9 0D INLOW LDA #CR
1400 E8FA 8D 12 A4 STA INFLG
1401 E8FD 60 RTS
1402 E8FE
1403 E8FE ;SET I/O TO TERMINAL (KB & D/P ,OR TTY)
1404 E8FE 20 F8 E8 LL JSR INLOW
1405 E901
1406 E901 ;SET OUTPUT TO TERMINAL (D/P OR TTY)