00000000: 01 1C 3D 1C 0A 00 8F 20 31 39 38 37 20 43 4F 4D |..=.... 1987 COM|
00000010: 50 55 54 45 20 50 55 42 4C 49 43 41 54 49 4F 4E |PUTE PUBLICATION|
00000020: 53 2C 20 49 4E 43 2E 20 2D 20 41 4C 4C 20 52 49 |S, INC. - ALL RI|
00000030: 47 48 54 53 20 52 45 53 45 52 56 45 44 00 6C 1C |GHTS RESERVED.l.|
00000040: 14 00 57 52 45 47 B2 D1 28 22 43 44 43 43 22 29 |..WREG..("CDCC")|
00000050: 3A 54 45 58 54 B2 32 36 30 36 3A 41 54 54 52 B2 |:TEXT.2606:ATTR.|
00000060: 32 36 30 37 3A 55 24 B2 C7 28 32 29 00 98 1C 1E |2607:U$..(2)....|
00000070: 00 FE 02 20 31 35 3A 42 41 B2 30 3A 8D 20 31 35 |... 15:BA.0:. 15|
00000080: 30 3A E7 20 35 2C 34 3A 8F 20 44 45 46 41 55 4C |0:. 5,4:. DEFAUL|
00000090: 54 20 53 43 52 45 45 4E 00 DD 1C 28 00 99 22 93 |T SCREEN...(..".|
000000A0: 22 A3 31 33 29 22 31 39 38 37 20 43 4F 4D 50 55 |".13)"1987 COMPU|
000000B0: 54 45 21 20 50 55 42 4C 49 43 41 54 49 4F 4E 53 |TE! PUBLICATIONS|
000000C0: 2C 20 49 4E 43 2E 20 2D 20 41 4C 4C 20 52 49 47 |, INC. - ALL RIG|
000000D0: 48 54 53 20 52 45 53 45 52 56 45 44 22 00 FB 1C |HTS RESERVED"...|
000000E0: 32 00 99 55 24 A3 33 32 29 22 44 45 46 41 55 4C |2..U$.32)"DEFAUL|
000000F0: 54 20 53 43 52 45 45 4E 22 3A 9B 00 2F 1D 3C 00 |T SCREEN":../.<.|
00000100: 99 20 A6 31 38 30 29 22 50 52 45 53 53 20 41 20 |. .180)"PRESS A |
00000110: 4B 45 59 20 46 4F 52 20 41 4C 54 45 52 4E 41 54 |KEY FOR ALTERNAT|
00000120: 45 20 53 43 52 45 45 4E 22 3A A1 F9 20 41 24 00 |E SCREEN":.. A$.|
00000130: 67 1D 46 00 42 41 53 45 B2 31 36 3A 8D 20 31 35 |g.F.BASE.16:. 15|
00000140: 30 3A 8F 20 4E 45 57 20 53 43 52 45 45 4E 20 52 |0:. NEW SCREEN R|
00000150: 41 4D 20 41 4E 44 20 41 54 54 52 49 42 55 54 45 |AM AND ATTRIBUTE|
00000160: 20 4D 45 4D 4F 52 59 00 99 1D 50 00 E7 20 35 2C | MEMORY...P.. 5,|
00000170: 32 3A 99 22 93 22 3A FE 0C 3A E0 2C 33 36 2C 31 |2:.".":..:.,36,1|
00000180: 30 3A 99 20 55 24 20 22 41 4C 54 45 52 4E 41 54 |0:. U$ "ALTERNAT|
00000190: 45 20 53 43 52 45 45 4E 22 00 CE 1D 5A 00 E0 2C |E SCREEN"...Z..,|
000001A0: 33 30 2C 31 34 3A 99 20 C7 28 31 35 29 22 50 52 |30,14:. .(15)"PR|
000001B0: 45 53 53 20 41 20 4B 45 59 20 46 4F 52 20 4F 52 |ESS A KEY FOR OR|
000001C0: 49 47 49 4E 41 4C 20 53 43 52 45 45 4E 22 00 F5 |IGINAL SCREEN"..|
000001D0: 1D 64 00 E0 2C 33 34 2C 31 36 2C 22 4F 52 20 50 |.d..,34,16,"OR P|
000001E0: 52 45 53 53 20 3C 53 54 4F 50 3E 20 54 4F 20 45 |RESS <STOP> TO E|
000001F0: 4E 44 22 2C 31 00 1A 1E 6E 00 8F 20 4C 4F 4F 50 |ND",1...n.. LOOP|
00000200: 20 54 4F 20 54 4F 47 47 4C 45 20 42 45 54 57 45 | TO TOGGLE BETWE|
00000210: 45 4E 20 53 43 52 45 45 4E 53 00 2C 1E 78 00 D7 |EN SCREENS.,.x..|
00000220: 20 31 38 30 3A EB 3A A1 F9 20 41 24 00 49 1E 82 | 180:.:.. A$.I..|
00000230: 00 42 41 53 45 B2 CE 08 28 42 41 53 45 2C 31 36 |.BASE...(BASE,16|
00000240: 29 3A 8D 20 31 35 30 3A EC 00 81 1E 8C 00 8F 20 |):. 150:....... |
00000250: 52 4F 55 54 49 4E 45 20 54 4F 20 53 45 54 20 56 |ROUTINE TO SET V|
00000260: 44 43 20 41 44 44 52 45 53 53 45 53 20 26 20 53 |DC ADDRESSES & S|
00000270: 43 52 45 45 4E 20 45 44 49 54 4F 52 20 42 41 53 |CREEN EDITOR BAS|
00000280: 45 00 A0 1E 96 00 9E 20 57 52 45 47 2C 42 41 53 |E...... WREG,BAS|
00000290: 45 2C 31 32 3A 97 20 54 45 58 54 2C 42 41 53 45 |E,12:. TEXT,BASE|
000002A0: 00 C3 1E A0 00 9E 20 57 52 45 47 2C 42 41 53 45 |...... WREG,BASE|
000002B0: AA 38 2C 32 30 3A 97 20 41 54 54 52 2C 42 41 53 |.8,20:. ATTR,BAS|
000002C0: 45 AA 38 00 C9 1E AA 00 8E 00 E6 1E B4 00 42 41 |E.8...........BA|
000002D0: 53 45 B2 30 3A 8D 20 31 35 30 3A E7 20 35 2C 34 |SE.0:. 150:. 5,4|
000002E0: 3A E0 2C 30 2C 30 00 00 00 |:.,0,0... |
..=.... 1987 COMPUTE PUBLICATIONS, INC.
- ALL RIGHTS RESERVED.L...WREG.Q("CDCC")
:TEXT.2606:ATTR.2607:U$.G(2)....... 15:B
A.0:. 150:. 5,4:. DEFAULT SCREEN...(..".
".13)"1987 COMPUTE! PUBLICATIONS, INC. -
ALL RIGHTS RESERVED"...2..U$.32)"DEFAUL
T SCREEN":../.<.. .180)"PRESS A KEY FOR
ALTERNATE SCREEN":.. A$.G.F.BASE.16:. 15
0:. NEW SCREEN RAM AND ATTRIBUTE MEMORY.
..P.. 5,2:.".":..:.,36,10:. U$ "ALTERNAT
E SCREEN".N.Z..,30,14:. G(15)"PRESS A KE
Y FOR ORIGINAL SCREEN"...D..,34,16,"OR P
RESS <STOP> TO END",1...N.. LOOP TO TOGG
LE BETWEEN SCREENS.,.X.W 180:.:.. A$.I..
.BASE.N.(BASE,16):. 150:....... ROUTINE
TO SET VDC ADDRESSES & SCREEN EDITOR BAS
E. .... WREG,BASE,12:. TEXT,BASE.C. .. W
REG,BASE.8,20:. ATTR,BASE.8.I.........BA
SE.0:. 150:. 5,4:.,0,0...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL