00000000: 39 30 30 30 20 50 52 4F 43 20 50 52 49 4E 54 27 |9000 PROC PRINT'|
00000010: 41 54 28 52 4F 57 2C 43 4F 4C 2C 53 54 52 49 4E |AT(ROW,COL,STRIN|
00000020: 47 24 29 20 43 4C 4F 53 45 44 0D 39 30 31 30 20 |G$) CLOSED.9010 |
00000030: 50 4F 4B 45 20 32 31 34 2C 52 4F 57 2D 31 0D 39 |POKE 214,ROW-1.9|
00000040: 30 32 30 20 52 4F 57 3A 3D 31 30 32 34 2B 28 52 |020 ROW:=1024+(R|
00000050: 4F 57 2D 31 29 2A 34 30 0D 39 30 33 30 20 50 4F |OW-1)*40.9030 PO|
00000060: 4B 45 20 32 30 39 2C 52 4F 57 20 4D 4F 44 20 32 |KE 209,ROW MOD 2|
00000070: 35 36 0D 39 30 34 30 20 50 4F 4B 45 20 32 31 30 |56.9040 POKE 210|
00000080: 2C 52 4F 57 20 44 49 56 20 32 35 36 0D 39 30 35 |,ROW DIV 256.905|
00000090: 30 20 50 4F 4B 45 20 32 31 31 2C 43 4F 4C 2D 31 |0 POKE 211,COL-1|
000000A0: 0D 39 30 36 30 20 50 52 49 4E 54 20 53 54 52 49 |.9060 PRINT STRI|
000000B0: 4E 47 24 0D 39 30 37 30 20 45 4E 44 50 52 4F 43 |NG$.9070 ENDPROC|
000000C0: 20 50 52 49 4E 54 27 41 54 0D | PRINT'AT. |
9000 PROC PRINT'AT(ROW,COL,STRING$) CLOS
ED.9010 POKE 214,ROW-1.9020 ROW:=1024+(R
OW-1)*40.9030 POKE 209,ROW MOD 256.9040
POKE 210,ROW DIV 256.9050 POKE 211,COL-1
.9060 PRINT STRING$.9070 ENDPROC PRINT'A
T.
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL