10 'CONTROL CHARACTERS -- CopyMade Division <(AöC)> Ver. 20151211
20 'SAVE "CTRLCHR1.BAS",A
30 KEY OFF: SCREEN 0: WIDTH 80: CLS: DEF SEG = &HB800: L = -2
40 FOR B = 0 TO 255
50 L = L + 2
60 POKE L, B
70 NEXT B: LOCATE 6,1: PRINT "B="; B-1 ;"L=";L
80 DEF SEG: END
90 '
100 CLS: DEF SEG = &HB800: 'For TEST type: RUN 100 (Enter)
110 LOCATE 2, 1: INPUT "ROW: ", RW: INPUT "COL: ", CL: CLS
120 IF RW < 1 OR RW > 25 OR CL < 1 OR CL > 80 THEN GOTO 80
130 PS = (((RW * 80) - (80 - CL)) * 2) - 2
140 POKE PS, 12
150 WHILE INKEY$ = "": WEND
160 LOCATE RW, CL: COLOR 0, 7: PRINT "*";: COLOR 7, 0: GOTO 110
