PLOT'CHAR.L

FILE INFORMATION

FILENAME(S): PLOT'CHAR.L

FILE TYPE(S): SEQ

FILE SIZE: 2.4K

FIRST SEEN: 2025-12-01 01:48:21

APPEARS ON: 3 disk(s)

FILE HASH

a926c9437cb1c8be68cb3ef951a5ba450ac61f69474232278291fe594ef188e5

FOUND ON DISKS (3 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
CCS COMAL	PLOT'CHAR.L	SEQ	hedning, Mattias H00r	26	5	DOWNLOAD FILE
CCS COMAL	PLOT'CHAR.L	SEQ	hedning, Mattias H00r	26	5	DOWNLOAD FILE
COMAL A	PLOT'CHAR.L	SEQ	hedning, Helsinborg	26	5	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 39 30 30 30 20 44 49 4D  20 44 55 4D 4D 59 24 20  |9000 DIM DUMMY$ |
00000010: 4F 46 20 32 35 0D 39 30  30 32 20 42 55 49 4C 44  |OF 25.9002 BUILD|
00000020: 27 53 55 42 0D 39 30 30  34 20 50 52 4F 43 20 50  |'SUB.9004 PROC P|
00000030: 4C 4F 54 27 43 48 41 52  28 58 2C 59 2C 43 24 2C  |LOT'CHAR(X,Y,C$,|
00000040: 43 27 53 45 54 29 20 43  4C 4F 53 45 44 0D 39 30  |C'SET) CLOSED.90|
00000050: 30 36 20 49 46 20 59 3C  37 20 4F 52 20 59 3E 31  |06 IF Y<7 OR Y>1|
00000060: 39 39 20 4F 52 20 58 3C  30 20 4F 52 20 58 3E 33  |99 OR X<0 OR X>3|
00000070: 31 32 20 54 48 45 4E 20  47 4F 54 4F 20 45 58 49  |12 THEN GOTO EXI|
00000080: 54 0D 39 30 30 38 20 49  59 3A 3D 31 39 39 2D 49  |T.9008 IY:=199-I|
00000090: 4E 54 28 59 29 0D 39 30  31 30 20 50 3A 3D 49 4E  |NT(Y).9010 P:=IN|
000000A0: 54 28 58 29 20 4D 4F 44  20 38 0D 39 30 31 32 20  |T(X) MOD 8.9012 |
000000B0: 54 57 4F 27 54 4F 27 50  3A 3D 32 5E 50 3B 20 54  |TWO'TO'P:=2^P; T|
000000C0: 57 4F 27 50 27 38 3A 3D  32 5E 28 38 2D 50 29 0D  |WO'P'8:=2^(8-P).|
000000D0: 39 30 31 34 20 53 3A 3D  37 2D 28 49 59 20 4D 4F  |9014 S:=7-(IY MO|
000000E0: 44 20 38 29 0D 39 30 31  36 20 43 4F 4C 4F 52 3A  |D 8).9016 COLOR:|
000000F0: 3D 50 45 45 4B 28 35 33  32 38 31 29 2D 32 34 30  |=PEEK(53281)-240|
00000100: 2B 31 36 2A 50 45 45 4B  28 36 34 36 29 0D 39 30  |+16*PEEK(646).90|
00000110: 31 38 20 43 27 43 44 3A  3D 4F 52 44 28 43 24 29  |18 C'CD:=ORD(C$)|
00000120: 0D 39 30 32 30 20 49 46  20 43 27 43 44 3D 32 35  |.9020 IF C'CD=25|
00000130: 35 20 54 48 45 4E 20 43  27 43 44 3A 3D 31 32 36  |5 THEN C'CD:=126|
00000140: 0D 39 30 32 32 20 43 41  53 45 20 28 43 27 43 44  |.9022 CASE (C'CD|
00000150: 20 44 49 56 20 33 32 29  20 4F 46 0D 39 30 32 34  | DIV 32) OF.9024|
00000160: 20 57 48 45 4E 20 30 2C  34 0D 39 30 32 36 20 43  | WHEN 0,4.9026 C|
00000170: 27 43 44 3A 3D 33 32 0D  39 30 32 38 20 57 48 45  |'CD:=32.9028 WHE|
00000180: 4E 20 32 2C 35 2C 37 0D  39 30 33 30 20 43 27 43  |N 2,5,7.9030 C'C|
00000190: 44 3A 3D 43 27 43 44 2D  36 34 0D 39 30 33 32 20  |D:=C'CD-64.9032 |
000001A0: 57 48 45 4E 20 33 0D 39  30 33 34 20 43 27 43 44  |WHEN 3.9034 C'CD|
000001B0: 3A 3D 43 27 43 44 2D 33  32 0D 39 30 33 36 20 57  |:=C'CD-32.9036 W|
000001C0: 48 45 4E 20 36 0D 39 30  33 38 20 43 27 43 44 3A  |HEN 6.9038 C'CD:|
000001D0: 3D 43 27 43 44 2D 31 32  38 0D 39 30 34 30 20 4F  |=C'CD-128.9040 O|
000001E0: 54 48 45 52 57 49 53 45  20 0D 39 30 34 32 20 45  |THERWISE .9042 E|
000001F0: 4E 44 43 41 53 45 20 0D  39 30 34 34 20 43 41 53  |NDCASE .9044 CAS|
00000200: 45 20 43 27 53 45 54 20  4F 46 0D 39 30 34 36 20  |E C'SET OF.9046 |
00000210: 57 48 45 4E 20 30 0D 39  30 34 38 20 42 41 53 45  |WHEN 0.9048 BASE|
00000220: 3A 3D 35 33 32 34 38 0D  39 30 35 30 20 57 48 45  |:=53248.9050 WHE|
00000230: 4E 20 31 0D 39 30 35 32  20 42 41 53 45 3A 3D 35  |N 1.9052 BASE:=5|
00000240: 34 32 37 32 0D 39 30 35  34 20 57 48 45 4E 20 32  |4272.9054 WHEN 2|
00000250: 0D 39 30 35 36 20 42 41  53 45 3A 3D 35 35 32 39  |.9056 BASE:=5529|
00000260: 36 0D 39 30 35 38 20 57  48 45 4E 20 33 0D 39 30  |6.9058 WHEN 3.90|
00000270: 36 30 20 42 41 53 45 3A  3D 35 36 33 32 30 0D 39  |60 BASE:=56320.9|
00000280: 30 36 32 20 4F 54 48 45  52 57 49 53 45 20 0D 39  |062 OTHERWISE .9|
00000290: 30 36 34 20 45 4E 44 43  41 53 45 20 0D 39 30 36  |064 ENDCASE .906|
000002A0: 36 20 43 27 41 44 44 52  3A 3D 38 2A 43 27 43 44  |6 C'ADDR:=8*C'CD|
000002B0: 2B 42 41 53 45 0D 39 30  36 38 20 44 49 53 27 49  |+BASE.9068 DIS'I|
000002C0: 4E 54 0D 39 30 37 30 20  49 27 4F 3A 3D 50 45 45  |NT.9070 I'O:=PEE|
000002D0: 4B 28 31 29 0D 39 30 37  32 20 50 4F 4B 45 20 31  |K(1).9072 POKE 1|
000002E0: 2C 38 2A 28 49 27 4F 20  44 49 56 20 38 29 2B 28  |,8*(I'O DIV 8)+(|
000002F0: 49 27 4F 20 4D 4F 44 20  34 29 0D 39 30 37 34 20  |I'O MOD 4).9074 |
00000300: 43 41 3A 3D 43 27 41 44  44 52 3B 20 52 3A 3D 49  |CA:=C'ADDR; R:=I|
00000310: 59 0D 39 30 37 36 20 43  42 41 3A 3D 43 4F 4C 4F  |Y.9076 CBA:=COLO|
00000320: 52 27 42 59 54 45 27 41  44 44 52 28 58 2C 52 29  |R'BYTE'ADDR(X,R)|
00000330: 0D 39 30 37 38 20 50 4F  4B 45 20 43 42 41 2C 43  |.9078 POKE CBA,C|
00000340: 4F 4C 4F 52 0D 39 30 38  30 20 49 46 20 50 3C 3E  |OLOR.9080 IF P<>|
00000350: 30 20 54 48 45 4E 0D 39  30 38 32 20 50 4F 4B 45  |0 THEN.9082 POKE|
00000360: 20 43 42 41 2B 31 2C 43  4F 4C 4F 52 0D 39 30 38  | CBA+1,COLOR.908|
00000370: 34 20 45 4E 44 49 46 20  0D 39 30 38 36 20 57 48  |4 ENDIF .9086 WH|
00000380: 49 4C 45 20 52 3C 3D 49  59 2B 53 20 44 4F 0D 39  |ILE R<=IY+S DO.9|
00000390: 30 38 38 20 44 4F 54 53  3A 3D 50 45 45 4B 28 43  |088 DOTS:=PEEK(C|
000003A0: 41 29 0D 39 30 39 30 20  43 42 41 3A 3D 43 45 4C  |A).9090 CBA:=CEL|
000003B0: 4C 27 42 59 54 45 27 41  44 44 52 28 58 2C 52 29  |L'BYTE'ADDR(X,R)|
000003C0: 0D 39 30 39 32 20 4C 42  3A 3D 44 4F 54 53 20 44  |.9092 LB:=DOTS D|
000003D0: 49 56 20 54 57 4F 27 54  4F 27 50 0D 39 30 39 34  |IV TWO'TO'P.9094|
000003E0: 20 41 4E 44 27 42 59 54  45 28 43 42 41 2C 4C 42  | AND'BYTE(CBA,LB|
000003F0: 29 0D 39 30 39 36 20 49  46 20 50 3C 3E 30 20 54  |).9096 IF P<>0 T|
00000400: 48 45 4E 0D 39 30 39 38  20 52 42 3A 3D 54 57 4F  |HEN.9098 RB:=TWO|
00000410: 27 50 27 38 2A 28 44 4F  54 53 2D 4C 42 2A 54 57  |'P'8*(DOTS-LB*TW|
00000420: 4F 27 54 4F 27 50 29 0D  39 31 30 30 20 41 4E 44  |O'TO'P).9100 AND|
00000430: 27 42 59 54 45 28 43 42  41 2B 38 2C 52 42 29 0D  |'BYTE(CBA+8,RB).|
00000440: 39 31 30 32 20 45 4E 44  49 46 20 0D 39 31 30 34  |9102 ENDIF .9104|
00000450: 20 43 41 3A 3D 43 41 2B  31 3B 20 52 3A 3D 52 2B  | CA:=CA+1; R:=R+|
00000460: 31 0D 39 31 30 36 20 45  4E 44 57 48 49 4C 45 20  |1.9106 ENDWHILE |
00000470: 0D 39 31 30 38 20 49 46  20 53 3C 3D 37 20 54 48  |.9108 IF S<=7 TH|
00000480: 45 4E 0D 39 31 31 30 20  43 42 41 3A 3D 43 4F 4C  |EN.9110 CBA:=COL|
00000490: 4F 52 27 42 59 54 45 27  41 44 44 52 28 58 2C 52  |OR'BYTE'ADDR(X,R|
000004A0: 29 0D 39 31 31 32 20 50  4F 4B 45 20 43 42 41 2C  |).9112 POKE CBA,|
000004B0: 43 4F 4C 4F 52 0D 39 31  31 34 20 49 46 20 50 3C  |COLOR.9114 IF P<|
000004C0: 3E 30 20 54 48 45 4E 0D  39 31 31 36 20 50 4F 4B  |>0 THEN.9116 POK|
000004D0: 45 20 43 42 41 2B 31 2C  43 4F 4C 4F 52 0D 39 31  |E CBA+1,COLOR.91|
000004E0: 31 38 20 45 4E 44 49 46  20 0D 39 31 32 30 20 57  |18 ENDIF .9120 W|
000004F0: 48 49 4C 45 20 52 3C 3D  49 59 2B 37 20 44 4F 0D  |HILE R<=IY+7 DO.|
00000500: 39 31 32 32 20 44 4F 54  53 3A 3D 50 45 45 4B 28  |9122 DOTS:=PEEK(|
00000510: 43 41 29 0D 39 31 32 34  20 43 42 41 3A 3D 43 45  |CA).9124 CBA:=CE|
00000520: 4C 4C 27 42 59 54 45 27  41 44 44 52 28 58 2C 52  |LL'BYTE'ADDR(X,R|
00000530: 29 0D 39 31 32 36 20 4C  42 3A 3D 44 4F 54 53 20  |).9126 LB:=DOTS |
00000540: 44 49 56 20 54 57 4F 27  54 4F 27 50 0D 39 31 32  |DIV TWO'TO'P.912|
00000550: 38 20 41 4E 44 27 42 59  54 45 28 43 42 41 2C 4C  |8 AND'BYTE(CBA,L|
00000560: 42 29 0D 39 31 33 30 20  49 46 20 50 3C 3E 30 20  |B).9130 IF P<>0 |
00000570: 54 48 45 4E 0D 39 31 33  32 20 52 42 3A 3D 54 57  |THEN.9132 RB:=TW|
00000580: 4F 27 50 27 38 2A 28 44  4F 54 53 2D 4C 42 2A 54  |O'P'8*(DOTS-LB*T|
00000590: 57 4F 27 54 4F 27 50 29  0D 39 31 33 34 20 41 4E  |WO'TO'P).9134 AN|
000005A0: 44 27 42 59 54 45 28 43  42 41 2B 38 2C 52 42 29  |D'BYTE(CBA+8,RB)|
000005B0: 0D 39 31 33 36 20 45 4E  44 49 46 20 0D 39 31 33  |.9136 ENDIF .913|
000005C0: 38 20 43 41 3A 3D 43 41  2B 31 3B 20 52 3A 3D 52  |8 CA:=CA+1; R:=R|
000005D0: 2B 31 0D 39 31 34 30 20  45 4E 44 57 48 49 4C 45  |+1.9140 ENDWHILE|
000005E0: 20 0D 39 31 34 32 20 45  4E 44 49 46 20 0D 39 31  | .9142 ENDIF .91|
000005F0: 34 34 20 50 4F 4B 45 20  31 2C 50 45 45 4B 28 31  |44 POKE 1,PEEK(1|
00000600: 29 2B 34 0D 39 31 34 36  20 45 4E 41 27 49 4E 54  |)+4.9146 ENA'INT|
00000610: 0D 39 31 34 38 20 45 58  49 54 3A 0D 39 31 35 30  |.9148 EXIT:.9150|
00000620: 20 45 4E 44 50 52 4F 43  20 50 4C 4F 54 27 43 48  | ENDPROC PLOT'CH|
00000630: 41 52 0D 39 31 35 32 20  2F 2F 0D 39 31 35 34 20  |AR.9152 //.9154 |
00000640: 46 55 4E 43 20 43 45 4C  4C 27 42 59 54 45 27 41  |FUNC CELL'BYTE'A|
00000650: 44 44 52 28 58 2C 49 59  29 20 43 4C 4F 53 45 44  |DDR(X,IY) CLOSED|
00000660: 0D 39 31 35 36 20 52 45  54 55 52 4E 20 35 37 33  |.9156 RETURN 573|
00000670: 34 34 2B 33 32 30 2A 28  49 59 20 44 49 56 20 38  |44+320*(IY DIV 8|
00000680: 29 2B 38 2A 28 58 20 44  49 56 20 38 29 2B 28 49  |)+8*(X DIV 8)+(I|
00000690: 59 20 4D 4F 44 20 38 29  0D 39 31 35 38 20 45 4E  |Y MOD 8).9158 EN|
000006A0: 44 46 55 4E 43 20 43 45  4C 4C 27 42 59 54 45 27  |DFUNC CELL'BYTE'|
000006B0: 41 44 44 52 0D 39 31 36  30 20 2F 2F 0D 39 31 36  |ADDR.9160 //.916|
000006C0: 32 20 46 55 4E 43 20 43  4F 4C 4F 52 27 42 59 54  |2 FUNC COLOR'BYT|
000006D0: 45 27 41 44 44 52 28 58  2C 49 59 29 20 43 4C 4F  |E'ADDR(X,IY) CLO|
000006E0: 53 45 44 0D 39 31 36 34  20 52 45 54 55 52 4E 20  |SED.9164 RETURN |
000006F0: 35 35 32 39 36 2B 34 30  2A 28 49 59 20 44 49 56  |55296+40*(IY DIV|
00000700: 20 38 29 2B 58 20 44 49  56 20 38 0D 39 31 36 36  | 8)+X DIV 8.9166|
00000710: 20 45 4E 44 46 55 4E 43  20 43 4F 4C 4F 52 27 42  | ENDFUNC COLOR'B|
00000720: 59 54 45 27 41 44 44 52  0D 39 31 36 38 20 2F 2F  |YTE'ADDR.9168 //|
00000730: 0D 39 31 37 30 20 50 52  4F 43 20 44 49 53 27 49  |.9170 PROC DIS'I|
00000740: 4E 54 20 43 4C 4F 53 45  44 0D 39 31 37 32 20 50  |NT CLOSED.9172 P|
00000750: 4F 4B 45 20 35 36 33 33  34 2C 32 2A 28 50 45 45  |OKE 56334,2*(PEE|
00000760: 4B 28 35 36 33 33 34 29  20 44 49 56 20 32 29 0D  |K(56334) DIV 2).|
00000770: 39 31 37 34 20 45 4E 44  50 52 4F 43 20 44 49 53  |9174 ENDPROC DIS|
00000780: 27 49 4E 54 0D 39 31 37  36 20 2F 2F 0D 39 31 37  |'INT.9176 //.917|
00000790: 38 20 50 52 4F 43 20 45  4E 41 27 49 4E 54 20 43  |8 PROC ENA'INT C|
000007A0: 4C 4F 53 45 44 0D 39 31  38 30 20 50 4F 4B 45 20  |LOSED.9180 POKE |
000007B0: 35 36 33 33 34 2C 50 45  45 4B 28 35 36 33 33 34  |56334,PEEK(56334|
000007C0: 29 2B 31 0D 39 31 38 32  20 45 4E 44 50 52 4F 43  |)+1.9182 ENDPROC|
000007D0: 20 45 4E 41 27 49 4E 54  0D 39 31 38 34 20 2F 2F  | ENA'INT.9184 //|
000007E0: 0D 39 31 38 36 20 50 52  4F 43 20 41 4E 44 27 42  |.9186 PROC AND'B|
000007F0: 59 54 45 28 41 44 44 52  2C 42 59 54 45 29 20 43  |YTE(ADDR,BYTE) C|
00000800: 4C 4F 53 45 44 0D 39 31  38 38 20 50 4F 4B 45 20  |LOSED.9188 POKE |
00000810: 32 35 31 2C 28 41 44 44  52 20 4D 4F 44 20 32 35  |251,(ADDR MOD 25|
00000820: 36 29 0D 39 31 39 30 20  50 4F 4B 45 20 32 35 32  |6).9190 POKE 252|
00000830: 2C 28 41 44 44 52 20 44  49 56 20 32 35 36 29 0D  |,(ADDR DIV 256).|
00000840: 39 31 39 32 20 50 4F 4B  45 20 32 35 33 2C 42 59  |9192 POKE 253,BY|
00000850: 54 45 0D 39 31 39 34 20  53 59 53 20 34 35 30 33  |TE.9194 SYS 4503|
00000860: 31 0D 39 31 39 36 20 45  4E 44 50 52 4F 43 20 41  |1.9196 ENDPROC A|
00000870: 4E 44 27 42 59 54 45 0D  39 31 39 38 20 2F 2F 0D  |ND'BYTE.9198 //.|
00000880: 39 32 30 30 20 50 52 4F  43 20 42 55 49 4C 44 27  |9200 PROC BUILD'|
00000890: 53 55 42 20 43 4C 4F 53  45 44 0D 39 32 30 32 20  |SUB CLOSED.9202 |
000008A0: 42 3A 3D 34 35 30 33 31  0D 39 32 30 34 20 46 4F  |B:=45031.9204 FO|
000008B0: 52 20 41 3A 3D 42 20 54  4F 20 42 2B 32 34 20 44  |R A:=B TO B+24 D|
000008C0: 4F 0D 39 32 30 36 20 52  45 41 44 20 4E 0D 39 32  |O.9206 READ N.92|
000008D0: 30 38 20 50 4F 4B 45 20  41 2C 4E 0D 39 32 31 30  |08 POKE A,N.9210|
000008E0: 20 45 4E 44 46 4F 52 20  41 0D 39 32 31 32 20 44  | ENDFOR A.9212 D|
000008F0: 41 54 41 20 31 32 30 2C  31 36 35 2C 31 2C 31 33  |ATA 120,165,1,13|
00000900: 33 2C 32 35 34 2C 34 31  2C 32 34 39 0D 39 32 31  |3,254,41,249.921|
00000910: 34 20 44 41 54 41 20 39  2C 31 2C 31 33 33 2C 31  |4 DATA 9,1,133,1|
00000920: 2C 31 36 30 2C 30 2C 31  37 37 2C 32 35 31 0D 39  |,160,0,177,251.9|
00000930: 32 31 36 20 44 41 54 41  20 35 2C 32 35 33 2C 31  |216 DATA 5,253,1|
00000940: 34 35 2C 32 35 31 0D 39  32 31 38 20 44 41 54 41  |45,251.9218 DATA|
00000950: 20 31 36 35 2C 32 35 34  2C 31 33 33 2C 31 2C 38  | 165,254,133,1,8|
00000960: 38 2C 39 36 0D 39 32 32  30 20 45 4E 44 50 52 4F  |8,96.9220 ENDPRO|
00000970: 43 20 42 55 49 4C 44 27  53 55 42 0D              |C BUILD'SUB.    |

9000 DIM DUMMY$ OF 25.9002 BUILD'SUB.900
4 PROC PLOT'CHAR(X,Y,C$,C'SET) CLOSED.90
06 IF Y<7 OR Y>199 OR X<0 OR X>312 THEN 
GOTO EXIT.9008 IY:=199-INT(Y).9010 P:=IN
T(X) MOD 8.9012 TWO'TO'P:=2^P; TWO'P'8:=
2^(8-P).9014 S:=7-(IY MOD 8).9016 COLOR:
=PEEK(53281)-240+16*PEEK(646).9018 C'CD:
=ORD(C$).9020 IF C'CD=255 THEN C'CD:=126
.9022 CASE (C'CD DIV 32) OF.9024 WHEN 0,
4.9026 C'CD:=32.9028 WHEN 2,5,7.9030 C'C
D:=C'CD-64.9032 WHEN 3.9034 C'CD:=C'CD-3
2.9036 WHEN 6.9038 C'CD:=C'CD-128.9040 O
THERWISE .9042 ENDCASE .9044 CASE C'SET 
OF.9046 WHEN 0.9048 BASE:=53248.9050 WHE
N 1.9052 BASE:=54272.9054 WHEN 2.9056 BA
SE:=55296.9058 WHEN 3.9060 BASE:=56320.9
062 OTHERWISE .9064 ENDCASE .9066 C'ADDR
:=8*C'CD+BASE.9068 DIS'INT.9070 I'O:=PEE
K(1).9072 POKE 1,8*(I'O DIV 8)+(I'O MOD 
4).9074 CA:=C'ADDR; R:=IY.9076 CBA:=COLO
R'BYTE'ADDR(X,R).9078 POKE CBA,COLOR.908
0 IF P<>0 THEN.9082 POKE CBA+1,COLOR.908
4 ENDIF .9086 WHILE R<=IY+S DO.9088 DOTS
:=PEEK(CA).9090 CBA:=CELL'BYTE'ADDR(X,R)
.9092 LB:=DOTS DIV TWO'TO'P.9094 AND'BYT
E(CBA,LB).9096 IF P<>0 THEN.9098 RB:=TWO
'P'8*(DOTS-LB*TWO'TO'P).9100 AND'BYTE(CB
A+8,RB).9102 ENDIF .9104 CA:=CA+1; R:=R+
1.9106 ENDWHILE .9108 IF S<=7 THEN.9110 
CBA:=COLOR'BYTE'ADDR(X,R).9112 POKE CBA,
COLOR.9114 IF P<>0 THEN.9116 POKE CBA+1,
COLOR.9118 ENDIF .9120 WHILE R<=IY+7 DO.
9122 DOTS:=PEEK(CA).9124 CBA:=CELL'BYTE'
ADDR(X,R).9126 LB:=DOTS DIV TWO'TO'P.912
8 AND'BYTE(CBA,LB).9130 IF P<>0 THEN.913
2 RB:=TWO'P'8*(DOTS-LB*TWO'TO'P).9134 AN
D'BYTE(CBA+8,RB).9136 ENDIF .9138 CA:=CA
+1; R:=R+1.9140 ENDWHILE .9142 ENDIF .91
44 POKE 1,PEEK(1)+4.9146 ENA'INT.9148 EX
IT:.9150 ENDPROC PLOT'CHAR.9152 //.9154 
FUNC CELL'BYTE'ADDR(X,IY) CLOSED.9156 RE
TURN 57344+320*(IY DIV 8)+8*(X DIV 8)+(I
Y MOD 8).9158 ENDFUNC CELL'BYTE'ADDR.916
0 //.9162 FUNC COLOR'BYTE'ADDR(X,IY) CLO
SED.9164 RETURN 55296+40*(IY DIV 8)+X DI
V 8.9166 ENDFUNC COLOR'BYTE'ADDR.9168 //
.9170 PROC DIS'INT CLOSED.9172 POKE 5633
4,2*(PEEK(56334) DIV 2).9174 ENDPROC DIS
'INT.9176 //.9178 PROC ENA'INT CLOSED.91
80 POKE 56334,PEEK(56334)+1.9182 ENDPROC
 ENA'INT.9184 //.9186 PROC AND'BYTE(ADDR
,BYTE) CLOSED.9188 POKE 251,(ADDR MOD 25
6).9190 POKE 252,(ADDR DIV 256).9192 POK
E 253,BYTE.9194 SYS 45031.9196 ENDPROC A
ND'BYTE.9198 //.9200 PROC BUILD'SUB CLOS
ED.9202 B:=45031.9204 FOR A:=B TO B+24 D
O.9206 READ N.9208 POKE A,N.9210 ENDFOR 
A.9212 DATA 120,165,1,133,254,41,249.921
4 DATA 9,1,133,1,160,0,177,251.9216 DATA
 5,253,145,251.9218 DATA 165,254,133,1,8
8,96.9220 ENDPROC BUILD'SUB.

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL