_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

SCREENLOAD

FILE INFORMATION

FILENAME(S): SCREENLOAD

FILE TYPE(S): PRG

FILE SIZE: 2.5K

FIRST SEEN: 2025-10-19 22:48:46

APPEARS ON: 1 disk(s)

FILE HASH

38318167147a0e06c7a37e40ce8f828e54abf32600eccd3df56ea7c3761f9b17

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
RT TUDIO 1 4 SCREENLOAD PRG Radd Maxx 26 9 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 19 08 05 00 50 B2  50 AA 31 3A 8B 20 50 B1  |......P.P.1:. P.|
00000010: 31 20 A7 20 89 20 33 30  30 00 3F 08 0A 00 8F 2A  |1 . . 300.?....*|
00000020: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000030: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 00  |***************.|
00000040: 65 08 0B 00 8F 2A 20 20  20 20 20 20 20 20 20 20  |e....*          |
00000050: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000060: 20 20 20 20 2A 00 8B 08  0C 00 8F 2A 20 20 20 41  |    *......*   A|
00000070: 52 54 20 53 54 55 44 49  4F 20 53 43 52 45 45 4E  |RT STUDIO SCREEN|
00000080: 20 4C 4F 41 44 45 52 20  20 20 2A 00 B1 08 0D 00  | LOADER   *.....|
00000090: 8F 2A 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.*              |
000000A0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000000B0: 2A 00 D7 08 0E 00 8F 2A  20 20 20 54 48 49 53 20  |*......*   THIS |
000000C0: 50 52 4F 47 52 41 4D 20  44 45 4D 4F 4E 53 54 52  |PROGRAM DEMONSTR|
000000D0: 41 54 45 53 20 20 2A 00  FD 08 0F 00 8F 2A 20 20  |ATES  *......*  |
000000E0: 48 4F 57 20 59 4F 55 20  43 41 4E 20 4C 4F 41 44  |HOW YOU CAN LOAD|
000000F0: 20 41 20 50 49 43 54 55  52 45 20 20 2A 00 23 09  | A PICTURE  *.#.|
00000100: 10 00 8F 2A 20 20 43 52  45 41 54 45 44 20 42 59  |...*  CREATED BY|
00000110: 20 41 52 54 20 53 54 55  44 49 4F 20 49 4E 54 4F  | ART STUDIO INTO|
00000120: 20 20 2A 00 49 09 11 00  8F 2A 20 20 54 48 45 20  |  *.I....*  THE |
00000130: 43 4F 4D 4D 4F 44 4F 52  45 20 36 34 20 46 4F 52  |COMMODORE 64 FOR|
00000140: 20 55 53 45 20 49 4E 20  2A 00 6F 09 12 00 8F 2A  | USE IN *.o....*|
00000150: 20 20 59 4F 55 52 20 4F  57 4E 20 50 52 4F 47 52  |  YOUR OWN PROGR|
00000160: 41 4D 53 2E 20 20 20 20  20 20 20 20 20 20 2A 00  |AMS.          *.|
00000170: 95 09 13 00 8F 2A 20 20  20 20 20 20 20 20 20 20  |.....*          |
00000180: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000190: 20 20 20 20 2A 00 BB 09  14 00 8F 2A 20 20 57 52  |    *......*  WR|
000001A0: 49 54 54 45 4E 20 42 59  20 43 48 52 49 53 20 53  |ITTEN BY CHRIS S|
000001B0: 41 55 4E 44 45 52 53 20  20 20 2A 00 E1 09 15 00  |AUNDERS   *.....|
000001C0: 8F 2A 20 20 43 4F 50 59  52 49 47 48 54 20 31 39  |.*  COPYRIGHT 19|
000001D0: 38 36 20 4F 43 50 20 4C  49 4D 49 54 45 44 20 20  |86 OCP LIMITED  |
000001E0: 2A 00 07 0A 16 00 8F 2A  20 20 20 20 20 20 20 20  |*......*        |
000001F0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000200: 20 20 20 20 20 20 2A 00  2D 0A 17 00 8F 2A 2A 2A  |      *.-....***|
00000210: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000220: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 00 49 0A  |*************.I.|
00000230: 1E 00 53 50 24 B2 22 20  20 20 20 20 20 20 20 20  |..SP$."         |
00000240: 20 20 20 20 20 20 20 20  22 00 53 0A 31 00 99 3A  |        ".S.1..:|
00000250: 99 3A 99 00 76 0A 32 00  99 20 22 41 52 54 20 53  |.:..v.2.. "ART S|
00000260: 54 55 44 49 4F 20 2D 20  53 43 52 45 45 4E 20 4C  |TUDIO - SCREEN L|
00000270: 4F 41 44 45 52 22 00 7E  0A 33 00 99 3A 99 00 84  |OADER".~.3..:...|
00000280: 0A 63 00 8F 00 A9 0A 64  00 8F 20 20 46 49 52 53  |.c.....d..  FIRS|
00000290: 54 20 47 45 54 20 54 48  45 20 46 49 4C 45 4E 41  |T GET THE FILENA|
000002A0: 4D 45 20 4F 46 20 54 48  45 00 CE 0A 65 00 8F 20  |ME OF THE...e.. |
000002B0: 20 44 45 53 49 52 45 44  20 50 49 43 54 55 52 45  | DESIRED PICTURE|
000002C0: 2E 20 4E 41 4D 45 53 20  41 52 45 20 31 36 00 F3  |. NAMES ARE 16..|
000002D0: 0A 66 00 8F 20 20 43 48  41 52 41 43 54 45 52 53  |.f..  CHARACTERS|
000002E0: 20 4C 4F 4E 47 2C 54 48  45 20 4C 41 53 54 20 46  | LONG,THE LAST F|
000002F0: 49 56 45 00 16 0B 67 00  8F 20 20 4F 46 20 57 48  |IVE...g..  OF WH|
00000300: 49 43 48 20 41 52 45 20  41 4C 57 41 59 53 20 27  |ICH ARE ALWAYS '|
00000310: 20 20 50 49 43 27 00 1C  0B 68 00 8F 00 40 0B 69  |  PIC'...h...@.i|
00000320: 00 8F 20 20 54 48 49 53  20 52 4F 55 54 49 4E 45  |..  THIS ROUTINE|
00000330: 20 41 44 44 53 20 54 48  45 20 4C 41 53 54 20 35  | ADDS THE LAST 5|
00000340: 00 61 0B 6A 00 8F 20 20  43 48 41 52 41 43 54 45  |.a.j..  CHARACTE|
00000350: 52 53 20 4F 4E 20 54 4F  20 54 48 45 20 45 4E 44  |RS ON TO THE END|
00000360: 2E 00 67 0B 6B 00 8F 00  82 0B 96 00 85 20 22 4E  |..g.k........ "N|
00000370: 41 4D 45 20 4F 46 20 50  49 43 54 55 52 45 22 3B  |AME OF PICTURE";|
00000380: 41 24 00 A5 0B A0 00 41  24 B2 C8 28 20 41 24 20  |A$.....A$..( A$ |
00000390: AA 20 53 50 24 2C 20 31  31 20 29 20 AA 20 22 20  |. SP$, 11 ) . " |
000003A0: 20 50 49 43 22 00 AB 0B  B4 00 8F 00 CF 0B B5 00  | PIC"...........|
000003B0: 8F 20 20 50 52 49 4E 54  20 54 48 45 20 20 46 55  |.  PRINT THE  FU|
000003C0: 4C 4C 20 46 49 4C 45 4E  41 4D 45 20 41 4E 44 00  |LL FILENAME AND.|
000003D0: F4 0B B6 00 8F 20 20 41  54 54 45 4D 50 54 20 54  |.....  ATTEMPT T|
000003E0: 4F 20 4C 4F 41 44 20 54  48 45 20 46 49 4C 45 20  |O LOAD THE FILE |
000003F0: 46 52 4F 4D 00 19 0C B7  00 8F 20 20 54 48 45 20  |FROM......  THE |
00000400: 44 49 53 4B 20 44 52 49  56 45 2E 20 28 43 48 41  |DISK DRIVE. (CHA|
00000410: 4E 47 45 20 54 48 45 20  38 00 3F 0C B8 00 8F 20  |NGE THE 8.?.... |
00000420: 20 54 4F 20 41 20 31 20  49 46 20 59 4F 55 20 57  | TO A 1 IF YOU W|
00000430: 49 53 48 20 54 4F 20 55  53 45 20 54 48 49 53 00  |ISH TO USE THIS.|
00000440: 64 0C B9 00 8F 20 20 50  52 4F 47 52 41 4D 20 54  |d....  PROGRAM T|
00000450: 4F 20 4C 4F 41 44 20 50  49 43 54 55 52 45 53 20  |O LOAD PICTURES |
00000460: 46 52 4F 4D 00 87 0C BA  00 8F 20 20 54 48 45 20  |FROM......  THE |
00000470: 43 41 53 53 45 54 54 45  20 55 4E 49 54 20 49 4E  |CASSETTE UNIT IN|
00000480: 53 54 45 41 44 2E 29 00  8D 0C BB 00 8F 00 AB 0C  |STEAD.).........|
00000490: C8 00 99 3A 99 22 4C 4F  4F 4B 49 4E 47 20 46 4F  |...:."LOOKING FO|
000004A0: 52 20 27 22 3B 41 24 3B  22 27 22 00 B7 0C FA 00  |R '";A$;"'".....|
000004B0: 93 41 24 2C 38 2C 31 00  BD 0C 2C 01 8F 00 DF 0C  |.A$,8,1...,.....|
000004C0: 2D 01 8F 20 20 49 46 20  57 45 20 47 45 54 20 54  |-..  IF WE GET T|
000004D0: 4F 20 48 45 52 45 20 54  48 45 4E 20 54 48 45 00  |O HERE THEN THE.|
000004E0: 03 0D 2E 01 8F 20 20 50  49 43 54 55 52 45 20 4D  |.....  PICTURE M|
000004F0: 55 53 54 20 48 41 56 45  20 4C 4F 41 44 45 44 2C  |UST HAVE LOADED,|
00000500: 20 53 4F 00 28 0D 2F 01  8F 20 20 57 45 20 4D 55  | SO.(./..  WE MU|
00000510: 53 54 20 4E 4F 57 20 44  49 53 50 4C 41 59 20 49  |ST NOW DISPLAY I|
00000520: 54 2E 20 46 49 52 53 54  00 4A 0D 30 01 8F 20 20  |T. FIRST.J.0..  |
00000530: 53 45 54 20 54 48 45 20  53 43 52 45 45 4E 20 54  |SET THE SCREEN T|
00000540: 4F 20 48 49 47 48 20 52  45 53 00 6F 0D 31 01 8F  |O HIGH RES.o.1..|
00000550: 20 20 4D 4F 44 45 20 41  4E 44 20 53 45 54 20 54  |  MODE AND SET T|
00000560: 48 45 20 53 54 41 52 54  20 4F 46 20 54 48 45 00  |HE START OF THE.|
00000570: 92 0D 32 01 8F 20 20 53  43 52 45 45 4E 20 54 4F  |..2..  SCREEN TO|
00000580: 20 4C 4F 43 41 54 49 4F  4E 20 38 31 39 32 2C 28  | LOCATION 8192,(|
00000590: 41 53 00 B7 0D 33 01 8F  20 20 54 48 49 53 20 49  |AS...3..  THIS I|
000005A0: 53 20 54 48 45 20 41 44  44 52 45 53 53 20 54 48  |S THE ADDRESS TH|
000005B0: 41 54 20 46 49 4C 45 00  DC 0D 34 01 8F 20 20 49  |AT FILE...4..  I|
000005C0: 53 20 53 41 56 45 44 20  46 52 4F 4D 20 42 59 20  |S SAVED FROM BY |
000005D0: 41 52 54 20 53 54 55 44  49 4F 2E 29 00 E2 0D 35  |ART STUDIO.)...5|
000005E0: 01 8F 00 05 0E 36 01 8F  20 20 43 4F 4E 53 55 4C  |.....6..  CONSUL|
000005F0: 54 20 54 48 45 20 43 36  34 20 50 52 4F 47 52 41  |T THE C64 PROGRA|
00000600: 4D 4D 45 52 53 00 29 0E  37 01 8F 20 20 52 45 46  |MMERS.).7..  REF|
00000610: 45 52 45 4E 43 45 20 4D  41 4E 55 41 4C 20 46 4F  |ERENCE MANUAL FO|
00000620: 52 20 44 45 54 41 49 4C  53 00 4F 0E 38 01 8F 20  |R DETAILS.O.8.. |
00000630: 20 4F 46 20 48 4F 57 20  54 4F 20 50 4F 53 49 54  | OF HOW TO POSIT|
00000640: 49 4F 4E 20 54 48 45 20  53 43 52 45 45 4E 2E 00  |ION THE SCREEN..|
00000650: 55 0E 39 01 8F 00 6E 0E  40 01 97 20 35 33 32 37  |U.9...n.@.. 5327|
00000660: 32 2C C2 28 35 33 32 37  32 29 20 B0 20 38 00 88  |2,.(53272) . 8..|
00000670: 0E 4A 01 97 20 35 33 32  36 35 2C C2 28 35 33 32  |.J.. 53265,.(532|
00000680: 36 35 29 20 B0 20 33 32  00 8E 0E 90 01 8F 00 B1  |65) . 32........|
00000690: 0E 91 01 8F 20 20 4E 4F  57 20 43 4F 50 59 20 54  |....  NOW COPY T|
000006A0: 48 45 20 43 4F 4C 4F 55  52 20 44 41 54 41 20 54  |HE COLOUR DATA T|
000006B0: 4F 00 D7 0E 92 01 8F 20  20 54 48 45 20 54 45 58  |O......  THE TEX|
000006C0: 54 20 53 43 52 45 45 4E  20 4D 45 4D 4F 52 59 2E  |T SCREEN MEMORY.|
000006D0: 20 43 4F 4C 4F 55 52 00  FB 0E 93 01 8F 20 20 44  | COLOUR......  D|
000006E0: 41 54 41 20 49 53 20 53  41 56 45 44 20 44 49 52  |ATA IS SAVED DIR|
000006F0: 45 43 54 4C 59 20 41 46  54 45 52 00 21 0F 94 01  |ECTLY AFTER.!...|
00000700: 8F 20 20 54 48 45 20 53  43 52 45 45 4E 20 44 41  |.  THE SCREEN DA|
00000710: 54 41 2C 20 48 45 4E 43  45 20 49 54 20 57 49 4C  |TA, HENCE IT WIL|
00000720: 4C 00 44 0F 95 01 8F 20  20 53 54 41 52 54 20 41  |L.D....  START A|
00000730: 54 20 38 31 39 32 20 2B  20 38 30 30 30 2C 20 53  |T 8192 + 8000, S|
00000740: 49 4E 43 45 00 69 0F 96  01 8F 20 20 41 20 48 49  |INCE.i....  A HI|
00000750: 52 45 53 20 53 43 52 45  45 4E 20 49 53 20 38 30  |RES SCREEN IS 80|
00000760: 30 30 20 42 59 54 45 53  2E 00 8E 0F 97 01 8F 20  |00 BYTES....... |
00000770: 20 20 4E 4F 52 4D 41 4C  20 54 45 58 54 20 53 43  |  NORMAL TEXT SC|
00000780: 52 45 45 4E 20 4D 45 4D  4F 52 59 20 49 53 00 B1  |REEN MEMORY IS..|
00000790: 0F 98 01 8F 20 20 53 54  4F 52 45 44 20 41 54 20  |....  STORED AT |
000007A0: 4C 4F 43 41 54 49 4F 4E  20 31 30 32 34 20 4F 4E  |LOCATION 1024 ON|
000007B0: 2C 00 D7 0F 99 01 8F 20  20 41 4E 44 20 4F 43 43  |,......  AND OCC|
000007C0: 55 50 49 45 53 20 31 30  30 30 20 42 59 54 45 53  |UPIES 1000 BYTES|
000007D0: 2E 20 55 53 45 20 41 00  FA 0F 9A 01 8F 20 20 53  |. USE A......  S|
000007E0: 49 4D 50 4C 45 20 46 4F  52 20 4C 4F 4F 50 20 54  |IMPLE FOR LOOP T|
000007F0: 4F 20 44 4F 20 54 48 49  53 3A 00 00 10 9B 01 8F  |O DO THIS:......|
00000800: 00 17 10 C2 01 44 B2 31  30 32 34 3A 53 B2 38 30  |.....D.1024:S.80|
00000810: 30 30 AA 38 31 39 32 00  32 10 CC 01 81 49 B2 30  |00.8192.2....I.0|
00000820: A4 39 39 39 3A 97 44 AA  49 2C C2 28 53 AA 49 29  |.999:.D.I,.(S.I)|
00000830: 3A 82 00 38 10 F4 01 8F  00 5E 10 F5 01 8F 20 20  |:..8.....^....  |
00000840: 46 49 4E 41 4C 4C 59 20  43 4F 50 59 20 54 48 45  |FINALLY COPY THE|
00000850: 20 42 4F 52 44 45 52 20  43 4F 4C 4F 55 52 00 82  | BORDER COLOUR..|
00000860: 10 F6 01 8F 20 20 46 52  4F 4D 20 57 48 45 52 45  |....  FROM WHERE|
00000870: 20 49 54 20 49 53 20 53  54 4F 52 45 44 20 FF 75  | IT IS STORED .u|
00000880: FF FF FF FF AA FC A2 AC  FF FF 3B 32 13 FF 32 BA  |..........;2..2.|
00000890: 3A FF 3F 1A FF 36 12 BB  33 FF FF 33 BF B6 FF BB  |:.?..6..3..3....|
000008A0: 33 FF FF 36 17 22 34 2A  F0 02 AC FF FF 3B 32 13  |3..6."4*.....;2.|
000008B0: FF 3D 36 FF FF FF B2 16  1A FF FF 3B 32 13 FF FF  |.=6........;2...|
000008C0: 3F FF 33 33 FF FF FF 3E  1B 33 A2 F0 2A F4 02 AC  |?.33...>.3..*...|
000008D0: FF FF 3F 3F 13 13 1F 1D  FF FF 32 BF 3B 33 FF FF  |..??......2.;3..|
000008E0: 3B 32 13 FF FF BF 13 1F  1B FF FF 33 32 BB 41 2E  |;2.........32.A.|
000008F0: 00 F6 10 FA 01 8F 00 0E  11 26 02 97 20 35 33 32  |.........&.. 532|
00000900: 38 30 2C 20 C2 28 20 31  37 31 39 32 20 29 00 14  |80, .( 17192 )..|
00000910: 11 58 02 8F 00 38 11 59  02 8F 20 20 4E 4F 57 20  |.X...8.Y..  NOW |
00000920: 57 41 49 54 20 46 4F 52  20 41 20 4B 45 59 20 54  |WAIT FOR A KEY T|
00000930: 4F 20 42 45 20 48 49 54  00 5B 11 5A 02 8F 20 20  |O BE HIT.[.Z..  |
00000940: 41 4E 44 20 54 48 45 4E  20 52 45 53 54 4F 52 45  |AND THEN RESTORE|
00000950: 20 54 48 45 20 4E 4F 52  4D 41 4C 00 74 11 5B 02  | THE NORMAL.t.[.|
00000960: 8F 20 20 54 45 58 54 20  4D 4F 44 45 20 53 43 52  |.  TEXT MODE SCR|
00000970: 45 45 4E 2E 00 7A 11 5C  02 8F 00 94 11 8A 02 A1  |EEN..z.\........|
00000980: 20 41 24 3A 20 8B 20 41  24 20 B2 20 22 22 20 A7  | A$: . A$ . "" .|
00000990: 20 36 35 30 00 AF 11 94  02 97 20 35 33 32 36 35  | 650...... 53265|
000009A0: 2C C2 28 35 33 32 36 35  29 20 AF 20 32 32 33 00  |,.(53265) . 223.|
000009B0: CA 11 9E 02 97 20 35 33  32 37 32 2C C2 28 35 33  |..... 53272,.(53|
000009C0: 32 37 32 29 20 AF 20 32  34 37 00 DE 11 A8 02 99  |272) . 247......|
000009D0: 20 22 93 22 3A 97 35 33  32 38 30 2C 31 34 00 00  | ".":.53280,14..|
000009E0: 00                                                |.               |
......P.P.1:. P.1 . . 300.?....*********
***********************.E....*          
                    *......*   ART STUDI
O SCREEN LOADER   *......*              
                *.W....*   THIS PROGRAM 
DEMONSTRATES  *......*  HOW YOU CAN LOAD
 A PICTURE  *.#....*  CREATED BY ART STU
DIO INTO  *.I....*  THE COMMODORE 64 FOR
 USE IN *.O....*  YOUR OWN PROGRAMS.    
      *......*                          
    *......*  WRITTEN BY CHRIS SAUNDERS 
  *......*  COPYRIGHT 1986 OCP LIMITED  
*......*                              *.
-....********************************.I.
..SP$."                 ".S.1..:.:..V.2.
. "ART STUDIO - SCREEN LOADER".~.3..:...
.C.....D..  FIRST GET THE FILENAME OF TH
E.N.E..  DESIRED PICTURE. NAMES ARE 16..
.F..  CHARACTERS LONG,THE LAST FIVE...G.
.  OF WHICH ARE ALWAYS '  PIC'...H...@.I
..  THIS ROUTINE ADDS THE LAST 5.A.J..  
CHARACTERS ON TO THE END..G.K........ "N
AME OF PICTURE";A$... .A$.H( A$ . SP$, 1
1 ) . "  PIC".......O....  PRINT THE  FU
LL FILENAME AND......  ATTEMPT TO LOAD T
HE FILE FROM......  THE DISK DRIVE. (CHA
NGE THE 8.?....  TO A 1 IF YOU WISH TO U
SE THIS.D....  PROGRAM TO LOAD PICTURES 
FROM......  THE CASSETTE UNIT INSTEAD.).
........H..:."LOOKING FOR '";A$;"'".....
.A$,8,1...,.....-..  IF WE GET TO HERE T
HEN THE......  PICTURE MUST HAVE LOADED,
 SO.(./..  WE MUST NOW DISPLAY IT. FIRST
.J.0..  SET THE SCREEN TO HIGH RES.O.1..
  MODE AND SET THE START OF THE...2..  S
CREEN TO LOCATION 8192,(AS...3..  THIS I
S THE ADDRESS THAT FILE...4..  IS SAVED 
FROM BY ART STUDIO.)...5.....6..  CONSUL
T THE C64 PROGRAMMERS.).7..  REFERENCE M
ANUAL FOR DETAILS.O.8..  OF HOW TO POSIT
ION THE SCREEN..U.9...N.@.. 53272,B(5327
2) . 8...J.. 53265,B(53265) . 32........
....  NOW COPY THE COLOUR DATA TO.W.... 
 THE TEXT SCREEN MEMORY. COLOUR......  D
ATA IS SAVED DIRECTLY AFTER.!....  THE S
CREEN DATA, HENCE IT WILL.D....  START A
T 8192 + 8000, SINCE.I....  A HIRES SCRE
EN IS 8000 BYTES.......   NORMAL TEXT SC
REEN MEMORY IS......  STORED AT LOCATION
 1024 ON,.W....  AND OCCUPIES 1000 BYTES
. USE A......  SIMPLE FOR LOOP TO DO THI
S:.........B.D.1024:S.8000.8192.2.L..I.0
.999:.D.I,B(S.I):..8.....^....  FINALLY 
COPY THE BORDER COLOUR......  FROM WHERE
 IT IS STORED .U..........;2..2.:.?..6..
3..3....3..6."4*.....;2..=6........;2...
?.33...>.3..*.....??......2.;3..;2......
...32.A..........&.. 53280, B( 17192 )..
.X...8.Y..  NOW WAIT FOR A KEY TO BE HIT
.[.Z..  AND THEN RESTORE THE NORMAL.T.[.
.  TEXT MODE SCREEN..Z.\........ A$: . A
$ . "" . 650...... 53265,B(53265) . 223.
J.... 53272,B(53272) . 247...... ".":.53
280,14...
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL