80 IF PD = 0 THEN H$ = H$ +",S" + STR$(DS) +",D" + STR$(DD): RETURN
90 H$ = DP$ +H$: RETURN
100 REM ** Various Subroutines
110 VTAB A: HTAB B: PRINT "Press any Arrow";: VTAB A +1: HTAB B: PRINT "or A & Z to";: VTAB A +2: HTAB B: PRINT "move then press";: VTAB A +3: HTAB B: PRINT "Return if OK";: RETURN
120 POKE 34,15: HOME : TEXT : RETURN
130 CALL A(5): POKE D +2,0: POKE D +7,0: POKE D +5,0: POKE D,0: RETURN
1220 IF PEEK( -1101) = 6 THEN A = 18:A$ = " ": GOSUB 200: GOTO 1260
1230 A = 20:A$ = "PLEASE TYPE ONLY IN UPPER-CASE": GOSUB 320: PRINT : PRINT : PRINT " CAN YOU DISPLAY LOWER-CASE (Y/N)?";: FLASH : PRINT " ";: NORMAL : GOSUB 310
1240 GOSUB 140: IF G$ = "N" THEN CALL A(4): GOTO 1260