10 GOSUB 52000
20 INPUT "What line "; L%
30 INPUT "What colum"; C%
40 INPUT "What text "; A$
50 INPUT "Normal or reverse video (N/R)";N$                                                                                         OFDB
60 IF UPPER$(n$)="R" THEN V%=1 ELSE v%=0
70 PRINT CHR$(27)+"E"+CHR$(27)+"H"
80 CALL DWPRINT(L%,C%,A$,V%)
90 END
52000 REM Set up DWPRINT machine-code routine
52010 MEMORY &HBFFF
52020 DWPRINT=&HC200:A=DWPRINT:E=0
52030 RESTORE 52150
52040 FOR F=0 TO 46
52050 S=0
52060 FOR G=0 TO 7
52070 READ X$:X=VAL("&H"+X$)
52080 S=S+X:POKE A,X:A=A+1
52090 NEXT
52100 READ X$:IF S<>VAL("&H"+X$) THEN E=E+1:PRINT "ERROR IN LINE";10*(F+5215)
52110 NEXT
52120 IF E=0 THEN RETURN
52130 PRINT E;"ERROR";:IF E=1 THEN PRINT ELSE PRINT "S"
52140 END
52150 DATA ED, 43, 74, C3, 46, 23, 7E, A7, 3F5
52160 DATA 20, 11, 78, FE, 1F, 30, 0C, EB, 2ED
52170 DATA 4E, 23, 7E, A7, 20, 05, 79, FE, 332
52180 DATA 59, 38, 45, 11, 23, C2, 0E, 09, 1E3
52190 DATA C3, 05, 00, 0D, 0A, 44, 57, 50, 1CA
52200 DATA 52, 49, 4E, 54, 3A, 20, 62, 61, 25A
52210 DATA 64, 20, 6C, 69, 6E, 65, 2F, 63, 2BE
52220 DATA 6F, 6C, 75, 6D, 6E, 20, 6E, 75, 32E
52230 DATA 6D, 62, 65, 72, 0D, 0A, 24, 0E, 1EF
52240 DATA 20, 7C, 81, 32, 5A, C2, 7D, 81, 369
52250 DATA 32, 5B, C2, 11, 58, C2, 18, C6, 358
52260 DATA 1B, 59, 00, 00, 80, 0D, 0A, 80, 18B
52270 DATA ED, 43, 72, C3, 2A, 74, C3, 5E, 424
52280 DATA 23, 56, 23, EB, 7E, A7, C8, ED, 461
52290 DATA 73, 76, C3, 31, 96, C3, 08, 23, 361
52300 DATA 4E, 23, 46, ED, 43, 74, C3, EB, 409
52310 DATA 5E, 23, 56, EB, 5E, 23, 56, 21, 2BA
52320 DATA 00, 00, A7, ED, 52, 9F, 32, 71, 328
52330 DATA C3, 0E, 6E, 11, FF, FF, CD, 05, 420
52340 DATA 00, F5, 0E, 6E, 11, 80, 00, CD, 2CF
52350 DATA 05, 00, CD, 5A, FC, C5, 00, F5, 3E2
52360 DATA 3E, FF, CD, 5A, FC, C8, 00, CD, 4F5
52370 DATA 5A, FC, BF, 00, 09, E5, 08, 47, 352
52380 DATA C5, 2A, 72, C3, CD, 47, C2, 2A, 424
52390 DATA 74, C3, 7E, 23, 22, 74, C3, 01, 332
52400 DATA 11, C3, CD, 5A, FC, E9, 00, 3A, 41A
52410 DATA 72, C3, 3C, 3C, FE, 59, 38, 18, 354
52420 DATA D6, 5A, ED, 44, F5, 3A, 73, C3, 4C6
52430 DATA FE, 1E, F5, CE, 00, 32, 73, C3, 447
52440 DATA 11, 5D, C2, F1, CC, 1E, C2, F1, 4BE
52450 DATA 32, 72, C3, C1, 10, C2, E1, CD, 4A8
52460 DATA 47, C2, F1, 20, 06, AF, CD, 5A, 3F6
52470 DATA FC, C8, 00, F1, 0E, 6E, 5F, 16, 3A6
52480 DATA 00, CD, 05, 00, ED, 7B, 76, C3, 373
52490 DATA C9, 11, 00, B8, 6F, 63, 29, 29, 2B6
52500 DATA 29, 19, E5, 3A, 73, C3, 6F, 63, 369
52510 DATA 29, 29, 29, 29, 15, 15, 19, 5E, 145
52520 DATA 23, 56, 7B, E6, F5, CB, 27, CB, 48F
52530 DATA 12, 47, 7B, E6, 07, B0, 5F, 3A, 30A
52540 DATA 72, C3, 6F, 26, 00, 29, 29, 29, 245
52550 DATA 19, EB, E1, 06, 08, C5, E5, 4E, 3EB
52560 DATA 06, 04, CB, 19, CB, 1D, CB, 2D, 2CE
52570 DATA 10, F8, 3A, 71, C3, AD, 21, 08, 34C
52580 DATA 00, 19, 77, 06, 04, CB, 19, CB, 249
52590 DATA 1D, CB, 2D, 10, F8, 3A, 71, C3, 38B
52600 DATA AD, 12, E1, C1, 23, 13, 10, D5, 37C
52610 DATA C9, 00, 00, 00, 00, 00, 00, 00, 0C9