DOUBLESCREEN.BAS

FILE INFORMATION

FILENAME(S): DOUBLESCREEN.BAS

FILE TYPE(S): PRG

FILE SIZE: 3.8K

FIRST SEEN: 2025-12-01 00:59:03

APPEARS ON: 3 disk(s)

FILE HASH

b33975ee138fe0d6a43de868446cbb260af81c10c058ca6c52fba491e4b5906a

FOUND ON DISKS (3 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
MR PEGG	DOUBLESCREEN.BAS	PRG	hedning, Berggren	11	9	DOWNLOAD FILE
PUTER	DOUBLESCREEN.BAS	PRG	hedning, disarm	11	9	DOWNLOAD FILE
PUTER	DOUBLESCREEN.BAS	PRG	hedning, Erik M, hedning, Mattias H00r	11	9	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 01 1C 30 1C 64 00 8F 20  2A 2A 2A 2A 2A 2A 2A 2A  |..0.d.. ********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000020: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000030: 00 63 1C 69 00 8F 20 2A  2A 20 20 20 44 45 4D 4F  |.c.i.. **   DEMO|
00000040: 20 41 56 20 44 45 20 54  56 5D 20 53 4B 5B 52 4D  | AV DE TV] SK[RM|
00000050: 41 52 4E 41 20 49 20 38  35 36 33 20 20 20 20 20  |ARNA I 8563     |
00000060: 20 2A 2A 00 92 1C 6E 00  8F 20 2A 2A 2A 2A 2A 2A  | **...n.. ******|
00000070: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000080: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000090: 2A 2A 00 9B 1C 73 00 D7  35 37 35 00 B5 1C 78 00  |**...s..575...x.|
000000A0: 96 20 A5 20 53 43 28 58  29 B2 58 AA 36 34 AC B6  |. . SC(X).X.64..|
000000B0: 28 58 B3 30 29 00 C1 1C  7D 00 FE 25 3A 54 54 B2  |(X.0)...}..%:TT.|
000000C0: 30 00 F0 1C 82 00 44 48  B2 31 32 3A 8F 20 52 45  |0.....DH.12:. RE|
000000D0: 47 49 53 54 45 52 20 31  32 20 27 44 49 53 50 4C  |GISTER 12 'DISPL|
000000E0: 41 59 20 53 54 41 52 54  20 2D 20 48 49 47 48 27  |AY START - HIGH'|
000000F0: 00 1E 1D 87 00 44 4C B2  31 33 3A 8F 20 52 45 47  |.....DL.13:. REG|
00000100: 49 53 54 45 52 20 31 33  20 27 44 49 53 50 4C 41  |ISTER 13 'DISPLA|
00000110: 59 20 53 54 41 52 54 20  2D 20 4C 4F 57 27 00 4F  |Y START - LOW'.O|
00000120: 1D 8C 00 55 48 B2 31 38  3A 8F 20 52 45 47 49 53  |...UH.18:. REGIS|
00000130: 54 45 52 20 31 38 20 27  55 50 44 41 54 45 20 4C  |TER 18 'UPDATE L|
00000140: 4F 43 41 54 49 4F 4E 20  2D 20 48 49 47 48 27 00  |OCATION - HIGH'.|
00000150: 7F 1D 91 00 55 4C B2 31  39 3A 8F 20 52 45 47 49  |....UL.19:. REGI|
00000160: 53 54 45 52 20 31 39 20  27 55 50 44 41 54 45 20  |STER 19 'UPDATE |
00000170: 4C 4F 43 41 54 49 4F 4E  20 2D 20 4C 4F 57 27 00  |LOCATION - LOW'.|
00000180: AF 1D 96 00 41 48 B2 32  30 3A 8F 20 52 45 47 49  |....AH.20:. REGI|
00000190: 53 54 45 52 20 32 30 20  27 41 54 54 52 49 42 55  |STER 20 'ATTRIBU|
000001A0: 54 20 53 54 41 52 54 20  2D 20 48 49 47 48 27 00  |T START - HIGH'.|
000001B0: DE 1D 9B 00 41 4C B2 32  31 3A 8F 20 52 45 47 49  |....AL.21:. REGI|
000001C0: 53 54 45 52 20 32 31 20  27 41 54 54 52 49 42 55  |STER 21 'ATTRIBU|
000001D0: 54 20 53 54 41 52 54 20  2D 20 4C 4F 57 27 00 0D  |T START - LOW'..|
000001E0: 1E A0 00 43 57 B2 32 34  3A 8F 20 52 45 47 49 53  |...CW.24:. REGIS|
000001F0: 54 45 52 20 32 34 20 27  43 4F 50 59 2F 57 52 49  |TER 24 'COPY/WRI|
00000200: 54 45 20 56 49 41 20 42  49 54 20 37 27 00 32 1E  |TE VIA BIT 7'.2.|
00000210: A5 00 57 43 B2 33 30 3A  8F 20 52 45 47 49 53 54  |..WC.30:. REGIST|
00000220: 45 52 20 33 30 20 27 57  4F 52 44 20 43 4F 55 4E  |ER 30 'WORD COUN|
00000230: 54 27 00 5A 1E AA 00 44  52 B2 33 31 3A 8F 20 52  |T'.Z...DR.31:. R|
00000240: 45 47 49 53 54 45 52 20  33 31 20 27 44 41 54 41  |EGISTER 31 'DATA|
00000250: 20 52 45 47 49 53 54 45  52 27 00 88 1E AF 00 43  | REGISTER'.....C|
00000260: 48 B2 33 32 3A 8F 20 52  45 47 49 53 54 45 52 20  |H.32:. REGISTER |
00000270: 33 32 20 27 44 45 53 54  49 4E 41 54 49 4F 4E 20  |32 'DESTINATION |
00000280: 20 2D 20 48 49 47 48 27  00 B5 1E B4 00 43 4C B2  | - HIGH'.....CL.|
00000290: 33 33 3A 8F 20 52 45 47  49 53 54 45 52 20 33 33  |33:. REGISTER 33|
000002A0: 20 27 44 45 53 54 49 4E  41 54 49 4F 4E 20 20 2D  | 'DESTINATION  -|
000002B0: 20 4C 4F 57 27 00 E7 1E  B9 00 56 4F B2 D1 28 22  | LOW'.....VO..("|
000002C0: 43 44 43 43 22 29 3A 8F  20 20 50 55 54 20 42 59  |CDCC"):.  PUT BY|
000002D0: 54 45 20 49 4E 20 2E 41  20 49 4E 20 52 45 47 49  |TE IN .A IN REGI|
000002E0: 53 54 45 52 20 2E 58 00  19 1F BE 00 56 49 B2 D1  |STER .X.....VI..|
000002F0: 28 22 43 44 44 41 22 29  3A 8F 20 52 45 41 44 20  |("CDDA"):. READ |
00000300: 42 59 54 45 20 49 4E 20  2E 41 20 49 4E 20 52 45  |BYTE IN .A IN RE|
00000310: 47 49 53 54 45 52 20 2E  58 00 2C 1F C3 00 FE 02  |GISTER .X.,.....|
00000320: 20 31 35 3A FE 25 3A 89  20 35 30 35 00 55 1F C8  | 15:.%:. 505.U..|
00000330: 00 8F 20 2A 2A 20 42 59  54 20 54 49 4C 4C 20 44  |.. ** BYT TILL D|
00000340: 45 4E 20 27 41 4E 44 52  41 27 20 53 4B 5B 52 4D  |EN 'ANDRA' SK[RM|
00000350: 45 4E 20 2A 2A 00 86 1F  CD 00 9E 20 56 4F 2C D1  |EN **...... VO,.|
00000360: 28 22 31 30 22 29 2C 44  48 3A 8F 20 53 5B 54 54  |("10"),DH:. S[TT|
00000370: 20 53 4B 5B 52 4D 53 54  41 52 54 20 54 49 4C 4C  | SK[RMSTART TILL|
00000380: 20 24 31 30 30 30 00 9A  1F D2 00 9E 20 56 4F 2C  | $1000...... VO,|
00000390: D1 28 22 30 30 22 29 2C  44 4C 00 CE 1F D7 00 9E  |.("00"),DL......|
000003A0: 20 56 4F 2C D1 28 22 31  38 22 29 2C 41 48 3A 8F  | VO,.("18"),AH:.|
000003B0: 20 53 5B 54 54 20 41 54  54 52 49 42 55 54 53 54  | S[TT ATTRIBUTST|
000003C0: 41 52 54 20 54 49 4C 4C  20 24 31 38 30 30 00 E2  |ART TILL $1800..|
000003D0: 1F DC 00 9E 20 56 4F 2C  D1 28 22 30 30 22 29 2C  |.... VO,.("00"),|
000003E0: 41 4C 00 FA 1F E1 00 8E  3A 8F 20 4E 55 20 56 49  |AL......:. NU VI|
000003F0: 53 41 53 20 53 4B 5B 52  4D 32 00 12 20 E6 00 8F  |SAS SK[RM2.. ...|
00000400: 20 2A 2A 20 53 4C 45 54  20 53 4B 5B 52 4D 32 20  | ** SLET SK[RM2 |
00000410: 2A 2A 00 3F 20 EB 00 9E  20 56 4F 2C D1 28 22 31  |**.? ... VO,.("1|
00000420: 30 22 29 2C 55 48 3A 8F  20 53 54 41 52 54 20 55  |0"),UH:. START U|
00000430: 50 44 41 54 45 20 56 49  44 20 24 31 30 30 30 00  |PDATE VID $1000.|
00000440: 7E 20 F0 00 9E 20 56 4F  2C D1 28 22 30 30 22 29  |~ ... VO,.("00")|
00000450: 2C 55 4C 3A 8F 20 44 5B  52 4E 5B 53 54 20 53 4B  |,UL:. D[RN[ST SK|
00000460: 52 49 56 53 20 32 30 34  38 20 42 59 54 45 53 20  |RIVS 2048 BYTES |
00000470: 27 53 45 4B 56 45 4E 54  49 45 4C 4C 54 27 00 A9  |'SEKVENTIELLT'..|
00000480: 20 F5 00 81 58 B2 30 A4  32 30 34 37 3A 9E 56 4F  | ...X.0.2047:.VO|
00000490: 2C 33 32 2C 44 52 3A 82  3A 8F 20 32 30 34 38 20  |,32,DR:.:. 2048 |
000004A0: 47 41 4E 47 45 20 27 20  27 00 C5 20 FA 00 8D 20  |GANGE ' '.. ... |
000004B0: 34 32 30 3A 8F 20 52 41  44 45 52 41 20 41 54 54  |420:. RADERA ATT|
000004C0: 52 49 42 55 54 00 CB 20  FF 00 8E 00 FD 20 04 01  |RIBUT.. ..... ..|
000004D0: 8F 20 2A 2A 20 53 4B 52  49 56 20 53 4B 24 20 50  |. ** SKRIV SK$ P|
000004E0: 5D 20 53 4B 5B 52 4D 32  20 46 52 5D 4E 20 50 4F  |] SK[RM2 FR]N PO|
000004F0: 53 49 54 49 4F 4E 20 20  4C 4F 20 2A 2A 00 1B 21  |SITION  LO **..!|
00000500: 09 01 4C 4F B2 28 4C 49  AB 31 29 AC 38 30 AA 50  |..LO.(LI.1).80.P|
00000510: 4F AA D1 28 22 30 46 46  46 22 29 00 2E 21 0E 01  |O..("0FFF")..!..|
00000520: 9E 20 56 4F 2C 4C 4F AD  32 35 36 2C 55 48 00 43  |. VO,LO.256,UH.C|
00000530: 21 13 01 9E 20 56 4F 2C  4C 4F 20 AF 20 32 35 35  |!... VO,LO . 255|
00000540: 2C 55 4C 00 6C 21 18 01  81 58 B2 31 A4 C3 28 53  |,UL.l!...X.1..(S|
00000550: 4B 24 29 3A 41 B2 A5 20  53 43 28 C6 28 CA 28 53  |K$):A.. SC(.(.(S|
00000560: 4B 24 2C 58 2C 31 29 29  AB 36 34 29 00 7C 21 1D  |K$,X,1)).64).|!.|
00000570: 01 9E 20 56 4F 2C 41 2C  44 52 3A 82 00 82 21 22  |.. VO,A,DR:...!"|
00000580: 01 8E 00 BD 21 27 01 8F  20 2A 2A 20 53 5B 54 54  |....!'.. ** S[TT|
00000590: 20 53 4B 5B 52 4D 45 4E  20 54 49 4C 42 41 4B 41  | SK[RMEN TILBAKA|
000005A0: 20 54 49 4C 4C 20 44 45  4E 20 27 4E 4F 52 4D 41  | TILL DEN 'NORMA|
000005B0: 4C 41 20 53 4B 5B 52 4D  45 4E 20 2A 2A 00 E4 21  |LA SK[RMEN **..!|
000005C0: 2C 01 9E 20 56 4F 2C 30  2C 44 48 3A 8F 20 44 45  |,.. VO,0,DH:. DE|
000005D0: 4E 4E 41 20 4C 49 47 47  45 52 20 50 5D 20 20 24  |NNA LIGGER P]  $|
000005E0: 30 30 30 30 00 F2 21 31  01 9E 20 56 4F 2C 30 2C  |0000..!1.. VO,0,|
000005F0: 44 4C 00 26 22 36 01 9E  20 56 4F 2C D1 28 22 30  |DL.&"6.. VO,.("0|
00000600: 38 22 29 2C 41 48 3A 8F  20 53 5B 54 54 20 41 54  |8"),AH:. S[TT AT|
00000610: 54 52 49 42 55 54 53 54  41 52 54 20 54 49 4C 4C  |TRIBUTSTART TILL|
00000620: 20 24 30 38 30 30 00 50  22 3B 01 9E 20 56 4F 2C  | $0800.P";.. VO,|
00000630: D1 28 22 30 30 22 29 2C  41 4C 3A 8F 20 44 5B 52  |.("00"),AL:. D[R|
00000640: 20 44 45 20 4E 4F 52 4D  41 4C 54 20 53 54 5D 52  | DE NORMALT ST]R|
00000650: 00 56 22 40 01 8E 00 81  22 45 01 8F 20 2A 2A 20  |.V"@...."E.. ** |
00000660: 46 59 4C 4C 20 53 4B 5B  52 4D 32 20 20 56 49 41  |FYLL SK[RM2  VIA|
00000670: 20 27 42 4C 4F 43 4B 20  57 52 49 54 45 27 20 2A  | 'BLOCK WRITE' *|
00000680: 2A 00 9B 22 4A 01 81 20  58 B2 D1 28 22 31 30 22  |*.."J.. X..("10"|
00000690: 29 20 A4 20 D1 28 22 31  37 22 29 00 B3 22 4F 01  |) . .("17").."O.|
000006A0: 9E 20 56 4F 2C 58 2C 55  48 3A 9E 20 56 4F 2C 30  |. VO,X,UH:. VO,0|
000006B0: 2C 55 4C 00 E2 22 54 01  9E 20 56 4F 2C 34 35 2C  |,UL.."T.. VO,45,|
000006C0: 44 52 3A 8F 20 50 4C 41  43 45 52 41 52 20 45 54  |DR:. PLACERAR ET|
000006D0: 54 20 4D 49 4E 55 53 20  50 5D 20 53 4B 5B 52 4D  |T MINUS P] SK[RM|
000006E0: 45 4E 00 0C 23 59 01 9E  20 56 49 2C 30 2C 43 57  |EN..#Y.. VI,0,CW|
000006F0: 3A 41 B2 28 C2 28 36 29  20 AF 20 31 32 37 29 3A  |:A.(.(6) . 127):|
00000700: 8F 20 53 4C 45 54 20 42  49 54 20 37 00 2D 23 5E  |. SLET BIT 7.-#^|
00000710: 01 9E 20 56 4F 2C 41 2C  43 57 3A 8F 20 56 5B 4C  |.. VO,A,CW:. V[L|
00000720: 4A 20 42 4C 4F 43 4B 20  57 52 49 54 45 00 47 23  |J BLOCK WRITE.G#|
00000730: 63 01 9E 20 56 4F 2C 32  35 35 2C 57 43 3A 8F 20  |c.. VO,255,WC:. |
00000740: 41 4E 54 41 4C 2D 31 00  4D 23 68 01 82 00 53 23  |ANTAL-1.M#h...S#|
00000750: 6D 01 8E 00 80 23 72 01  8F 20 2A 2A 20 52 41 44  |m....#r.. ** RAD|
00000760: 45 52 41 20 53 4B 5B 52  4D 32 20 20 56 49 41 20  |ERA SK[RM2  VIA |
00000770: 27 42 4C 4F 43 4B 20 57  52 49 54 45 27 20 2A 2A  |'BLOCK WRITE' **|
00000780: 00 9A 23 77 01 81 20 58  B2 D1 28 22 31 30 22 29  |..#w.. X..("10")|
00000790: 20 A4 20 D1 28 22 31 37  22 29 00 B2 23 7C 01 9E  | . .("17")..#|..|
000007A0: 20 56 4F 2C 58 2C 55 48  3A 9E 20 56 4F 2C 30 2C  | VO,X,UH:. VO,0,|
000007B0: 55 4C 00 E0 23 81 01 9E  20 56 4F 2C 33 32 2C 44  |UL..#... VO,32,D|
000007C0: 52 3A 8F 20 50 4C 41 43  45 52 41 52 20 45 4E 20  |R:. PLACERAR EN |
000007D0: 53 50 41 43 45 20 50 5D  20 53 4B 5B 52 4D 45 4E  |SPACE P] SK[RMEN|
000007E0: 00 0A 24 86 01 9E 20 56  49 2C 30 2C 43 57 3A 41  |..$... VI,0,CW:A|
000007F0: B2 28 C2 28 36 29 20 AF  20 31 32 37 29 3A 8F 20  |.(.(6) . 127):. |
00000800: 53 4C 45 54 20 42 49 54  20 37 00 2B 24 8B 01 9E  |SLET BIT 7.+$...|
00000810: 20 56 4F 2C 41 2C 43 57  3A 8F 20 56 5B 4C 4A 20  | VO,A,CW:. V[LJ |
00000820: 42 4C 4F 43 4B 20 57 52  49 54 45 00 45 24 90 01  |BLOCK WRITE.E$..|
00000830: 9E 20 56 4F 2C 32 35 35  2C 57 43 3A 8F 20 41 4E  |. VO,255,WC:. AN|
00000840: 54 41 4C 2D 31 00 4B 24  95 01 82 00 51 24 9A 01  |TAL-1.K$....Q$..|
00000850: 8E 00 7F 24 9F 01 8F 20  2A 2A 20 52 41 44 45 52  |...$... ** RADER|
00000860: 41 20 41 54 54 52 49 42  55 54 20 56 49 41 20 27  |A ATTRIBUT VIA '|
00000870: 42 4C 4F 43 4B 20 57 52  49 54 45 27 20 2A 2A 00  |BLOCK WRITE' **.|
00000880: 99 24 A4 01 81 20 58 B2  D1 28 22 31 38 22 29 20  |.$... X..("18") |
00000890: A4 20 D1 28 22 31 46 22  29 00 B1 24 A9 01 9E 20  |. .("1F")..$... |
000008A0: 56 4F 2C 58 2C 55 48 3A  9E 20 56 4F 2C 30 2C 55  |VO,X,UH:. VO,0,U|
000008B0: 4C 00 DC 24 AE 01 9E 20  56 4F 2C 31 35 2C 44 52  |L..$... VO,15,DR|
000008C0: 3A 8F 20 20 52 41 44 45  52 41 20 41 54 54 52 49  |:.  RADERA ATTRI|
000008D0: 42 55 54 2B 56 49 54 20  46 5B 52 47 00 06 25 B3  |BUT+VIT F[RG..%.|
000008E0: 01 9E 20 56 49 2C 30 2C  43 57 3A 41 B2 28 C2 28  |.. VI,0,CW:A.(.(|
000008F0: 36 29 20 AF 20 31 32 37  29 3A 8F 20 53 4C 45 54  |6) . 127):. SLET|
00000900: 20 42 49 54 20 37 00 27  25 B8 01 9E 20 56 4F 2C  | BIT 7.'%... VO,|
00000910: 41 2C 43 57 3A 8F 20 56  5B 4C 4A 20 42 4C 4F 43  |A,CW:. V[LJ BLOC|
00000920: 4B 20 57 52 49 54 45 00  41 25 BD 01 9E 20 56 4F  |K WRITE.A%... VO|
00000930: 2C 32 35 35 2C 57 43 3A  8F 20 41 4E 54 41 4C 2D  |,255,WC:. ANTAL-|
00000940: 31 00 47 25 C2 01 82 00  4D 25 C7 01 8E 00 78 25  |1.G%....M%....x%|
00000950: CC 01 8F 20 2A 2A 20 4B  4F 50 49 45 52 41 20 53  |... ** KOPIERA S|
00000960: 4B 5B 52 4D 20 56 49 41  20 27 42 4C 4F 43 4B 20  |K[RM VIA 'BLOCK |
00000970: 43 4F 50 59 27 20 2A 2A  00 A2 25 D1 01 81 20 58  |COPY' **..%... X|
00000980: B2 D1 28 22 31 30 22 29  20 A4 20 D1 28 22 31 46  |..("10") . .("1F|
00000990: 22 29 3A 8F 20 5B 56 45  4E 20 41 54 54 52 49 42  |"):. [VEN ATTRIB|
000009A0: 55 54 00 BA 25 D6 01 9E  20 56 4F 2C 58 2C 55 48  |UT..%... VO,X,UH|
000009B0: 3A 9E 20 56 4F 2C 30 2C  55 4C 00 E3 25 DB 01 9E  |:. VO,0,UL..%...|
000009C0: 20 56 49 2C 30 2C 43 57  3A 41 B2 28 C2 28 36 29  | VI,0,CW:A.(.(6)|
000009D0: 20 B0 20 31 32 38 29 3A  8F 20 53 5B 54 20 42 49  | . 128):. S[T BI|
000009E0: 54 20 37 00 03 26 E0 01  9E 20 56 4F 2C 41 2C 43  |T 7..&... VO,A,C|
000009F0: 57 3A 8F 20 56 5B 4C 47  20 42 4C 4F 43 4B 20 43  |W:. V[LG BLOCK C|
00000A00: 4F 50 59 00 27 26 E5 01  42 B2 58 AB D1 28 22 31  |OPY.'&..B.X..("1|
00000A10: 30 22 29 3A 9E 20 56 4F  2C 42 2C 43 48 3A 9E 20  |0"):. VO,B,CH:. |
00000A20: 56 4F 2C 30 2C 43 4C 00  4A 26 EA 01 9E 20 56 4F  |VO,0,CL.J&... VO|
00000A30: 2C 32 35 35 2C 57 43 3A  8F 20 53 54 41 52 54 20  |,255,WC:. START |
00000A40: 42 4C 4F 43 4B 20 43 4F  50 59 00 50 26 EF 01 82  |BLOCK COPY.P&...|
00000A50: 00 56 26 F4 01 8E 00 5C  26 F9 01 8F 00 74 26 FE  |.V&....\&....t&.|
00000A60: 01 8D 20 32 30 30 3A 8F  20 56 5B 4C 4A 20 53 4B  |.. 200:. V[LJ SK|
00000A70: 5B 52 4D 32 00 97 26 03  02 8D 20 34 32 30 3A 8F  |[RM2..&... 420:.|
00000A80: 20 52 41 44 45 52 41 20  41 54 54 52 49 42 55 54  | RADERA ATTRIBUT|
00000A90: 20 53 4B 5B 52 4D 32 00  AF 26 08 02 8D 20 33 33  | SK[RM2..&... 33|
00000AA0: 30 3A 8F 20 46 59 4C 4C  20 53 4B 5B 52 4D 32 00  |0:. FYLL SK[RM2.|
00000AB0: D8 26 0D 02 8D 20 32 33  30 3A 8F 20 52 41 44 45  |.&... 230:. RADE|
00000AC0: 52 41 20 53 4B 5B 52 4D  32 20 27 53 45 4B 56 45  |RA SK[RM2 'SEKVE|
00000AD0: 4E 54 49 45 4C 4C 54 27  00 F9 26 12 02 4C 49 B2  |NTIELLT'..&..LI.|
00000AE0: 31 30 3A 50 4F B2 31 30  3A 8F 20 50 52 49 4E 54  |10:PO.10:. PRINT|
00000AF0: 20 41 54 20 31 30 2C 31  30 00 15 27 17 02 53 4B  | AT 10,10..'..SK|
00000B00: 24 B2 22 44 45 54 54 45  20 5B 52 20 45 54 54 20  |$."DETTE [R ETT |
00000B10: 50 52 4F 56 22 00 38 27  1C 02 8D 20 32 36 35 3A  |PROV".8'... 265:|
00000B20: 8F 20 43 55 52 53 4F 52  20 31 30 2C 31 30 3A 50  |. CURSOR 10,10:P|
00000B30: 52 49 4E 54 20 53 4B 24  00 63 27 21 02 4C 49 B2  |RINT SK$.c'!.LI.|
00000B40: 31 3A 50 4F B2 31 3A 8D  32 36 35 3A 8F 20 43 55  |1:PO.1:.265:. CU|
00000B50: 52 53 4F 52 20 31 2C 31  3A 20 50 52 49 4E 54 20  |RSOR 1,1: PRINT |
00000B60: 53 4B 24 00 8F 27 26 02  4C 49 B2 31 35 3A 50 4F  |SK$..'&.LI.15:PO|
00000B70: B2 31 3A 8D 32 36 35 3A  8F 20 43 55 52 53 4F 52  |.1:.265:. CURSOR|
00000B80: 20 31 35 2C 31 3A 50 52  49 4E 54 20 53 4B 24 00  | 15,1:PRINT SK$.|
00000B90: B3 27 2B 02 4C 49 B2 32  35 3A 50 4F B2 31 3A 8D  |.'+.LI.25:PO.1:.|
00000BA0: 32 36 35 3A 8F 20 50 52  49 4E 54 20 41 54 20 32  |265:. PRINT AT 2|
00000BB0: 35 2C 31 00 CE 27 30 02  53 4B 24 B2 22 54 52 59  |5,1..'0.SK$."TRY|
00000BC0: 43 4B 20 45 4E 20 54 41  4E 47 45 4E 54 22 00 FD  |CK EN TANGENT"..|
00000BD0: 27 35 02 4C 49 B2 32 35  3A 50 4F B2 36 30 3A 8D  |'5.LI.25:PO.60:.|
00000BE0: 32 36 35 3A 8F 20 43 55  52 53 4F 52 20 32 35 2C  |265:. CURSOR 25,|
00000BF0: 36 30 3A 20 50 52 49 4E  54 20 53 4B 24 00 10 28  |60: PRINT SK$..(|
00000C00: 3A 02 A1 5A 24 3A 8B 5A  24 B2 22 22 A7 35 37 30  |:..Z$:.Z$."".570|
00000C10: 00 19 28 3F 02 8D 33 30  30 00 42 28 44 02 8B 45  |..(?..300.B(D..E|
00000C20: 52 B1 AB 31 A7 20 99 20  45 52 2C D3 28 45 52 29  |R..1. . ER,.(ER)|
00000C30: 3B 22 20 45 52 52 4F 52  20 49 4E 20 22 3B 45 4C  |;" ERROR IN ";EL|
00000C40: 3A 80 00 5A 28 49 02 8B  20 54 54 B2 30 20 A7 20  |:..Z(I.. TT.0 . |
00000C50: 54 54 B2 31 3A 89 20 36  30 30 00 60 28 4E 02 80  |TT.1:. 600.`(N..|
00000C60: 00 92 28 53 02 8F 20 2A  2A 20 4F 50 53 5B 54 4E  |..(S.. ** OPS[TN|
00000C70: 49 4E 47 20 4F 47 20 46  4C 59 54 4E 49 4E 47 20  |ING OG FLYTNING |
00000C80: 41 46 20 53 4B 5B 52 4D  49 4E 44 48 4F 4C 44 20  |AF SK[RMINDHOLD |
00000C90: 2A 2A 00 98 28 58 02 E8  00 D7 28 5D 02 E0 20 2C  |**..(X....(].. ,|
00000CA0: 32 30 2C 33 2C 22 44 45  54 54 41 20 5B 52 20 45  |20,3,"DETTA [R E|
00000CB0: 4E 20 5C 56 45 52 53 49  4B 54 20 5C 56 45 52 20  |N \VERSIKT \VER |
00000CC0: 44 45 20 41 4E 56 5B 4E  44 41 20 52 45 47 49 53  |DE ANV[NDA REGIS|
00000CD0: 54 45 52 4E 41 2E 22 00  0F 29 62 02 E0 20 2C 32  |TERNA."..)b.. ,2|
00000CE0: 32 2C 35 2C 22 52 45 47  2E 20 31 38 20 20 20 20  |2,5,"REG. 18    |
00000CF0: 20 41 44 52 45 53 53 45  52 4E 41 20 48 49 54 20  | ADRESSERNA HIT |
00000D00: 20 2D 20 20 20 48 49 47  48 20 42 59 54 45 22 00  | -   HIGH BYTE".|
00000D10: 47 29 67 02 E0 20 2C 32  32 2C 36 2C 22 52 45 47  |G)g.. ,22,6,"REG|
00000D20: 2E 20 31 39 20 20 20 20  20 41 44 52 45 53 53 45  |. 19     ADRESSE|
00000D30: 52 4E 41 20 48 49 54 20  20 2D 20 20 20 4C 4F 57  |RNA HIT  -   LOW|
00000D40: 20 20 42 59 54 45 22 00  7F 29 6C 02 E0 20 2C 32  |  BYTE"..)l.. ,2|
00000D50: 32 2C 37 2C 22 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |2,7,"-----------|
00000D60: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000D70: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 22 00  |--------------".|
00000D80: B8 29 71 02 E0 20 2C 32  32 2C 38 2C 22 52 45 47  |.)q.. ,22,8,"REG|
00000D90: 2E 20 32 34 20 20 20 20  20 53 5B 54 54 20 42 49  |. 24     S[TT BI|
00000DA0: 54 20 37 20 2D 20 56 5B  4C 4A 20 27 42 4C 4F 43  |T 7 - V[LJ 'BLOC|
00000DB0: 4B 20 43 4F 50 59 27 22  00 F0 29 76 02 E0 20 2C  |K COPY'"..)v.. ,|
00000DC0: 32 32 2C 39 2C 22 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |22,9,"----------|
00000DD0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000DE0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 22  |---------------"|
00000DF0: 00 29 2A 7B 02 E0 20 2C  32 32 2C 31 30 2C 22 52  |.)*{.. ,22,10,"R|
00000E00: 45 47 2E 20 33 33 20 20  20 20 20 41 44 52 45 53  |EG. 33     ADRES|
00000E10: 53 45 52 4E 41 20 46 52  5D 4E 20 2D 20 20 20 48  |SERNA FR]N -   H|
00000E20: 49 47 48 20 42 59 54 45  22 00 62 2A 80 02 E0 20  |IGH BYTE".b*... |
00000E30: 2C 32 32 2C 31 31 2C 22  52 45 47 2E 20 33 34 20  |,22,11,"REG. 34 |
00000E40: 20 20 20 20 41 44 52 45  53 53 45 52 4E 41 20 46  |    ADRESSERNA F|
00000E50: 52 5D 4E 20 2D 20 20 20  4C 4F 57 20 20 42 59 54  |R]N -   LOW  BYT|
00000E60: 45 22 00 9B 2A 85 02 E0  20 2C 32 32 2C 31 32 2C  |E"..*... ,22,12,|
00000E70: 22 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |"---------------|
00000E80: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000E90: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 22 00 D3 2A 8A 02  |----------"..*..|
00000EA0: E0 20 2C 32 32 2C 31 33  2C 22 52 45 47 2E 20 33  |. ,22,13,"REG. 3|
00000EB0: 30 20 20 20 20 20 41 4E  54 41 4C 20 54 49 4C 4C  |0     ANTAL TILL|
00000EC0: 20 4B 4F 50 49 45 52 49  4E 47 20 2D 20 53 54 41  | KOPIERING - STA|
00000ED0: 52 54 22 00 E8 2A 8F 02  8D 32 30 35 3A 8F 20 42  |RT"..*...205:. B|
00000EE0: 59 54 20 53 4B 5B 52 4D  00 08 2B 94 02 8D 34 36  |YT SK[RM..+...46|
00000EF0: 35 3A 8F 20 46 4C 59 54  54 41 20 53 4B 5B 52 4D  |5:. FLYTTA SK[RM|
00000F00: 49 4E 4E 45 48 5D 4C 4C  00 11 2B 99 02 89 35 36  |INNEH]LL..+...56|
00000F10: 30 00 00 00 30 FF                                 |0...0.          |

..0.D.. ********************************
********.C.I.. **   DEMO AV DE TV] SK[RM
ARNA I 8563      **...N.. **************
**************************...S.W575...X.
. . SC(X).X.64..(X.0).A.}..%:TT.0.....DH
.12:. REGISTER 12 'DISPLAY START - HIGH'
.....DL.13:. REGISTER 13 'DISPLAY START 
- LOW'.O...UH.18:. REGISTER 18 'UPDATE L
OCATION - HIGH'....UL.19:. REGISTER 19 
'UPDATE LOCATION - LOW'.....AH.20:. REGI
STER 20 'ATTRIBUT START - HIGH'.....AL.2
1:. REGISTER 21 'ATTRIBUT START - LOW'..
. .CW.24:. REGISTER 24 'COPY/WRITE VIA B
IT 7'.2...WC.30:. REGISTER 30 'WORD COUN
T'.Z...DR.31:. REGISTER 31 'DATA REGISTE
R'.....CH.32:. REGISTER 32 'DESTINATION 
 - HIGH'.....CL.33:. REGISTER 33 'DESTIN
ATION  - LOW'.....VO.Q("CDCC"):.  PUT BY
TE IN .A IN REGISTER .X.....VI.Q("CDDA")
:. READ BYTE IN .A IN REGISTER .X.,.C...
 15:.%:. 505.U.H.. ** BYT TILL DEN 'ANDR
A' SK[RMEN **...M.. VO,Q("10"),DH:. S[TT
 SK[RMSTART TILL $1000...R.. VO,Q("00"),
DL.N.W.. VO,Q("18"),AH:. S[TT ATTRIBUTST
ART TILL $1800...... VO,Q("00"),AL......
:. NU VISAS SK[RM2.. ... ** SLET SK[RM2 
**.? ... VO,Q("10"),UH:. START UPDATE VI
D $1000.~ ... VO,Q("00"),UL:. D[RN[ST SK
RIVS 2048 BYTES 'SEKVENTIELLT'.. ...X.0.
2047:.VO,32,DR:.:. 2048 GANGE ' '.E ... 
420:. RADERA ATTRIBUT.K ..... ... ** SKR
IV SK$ P] SK[RM2 FR]N POSITION  LO **..!
..LO.(LI.1).80.PO.Q("0FFF")..!... VO,LO.
256,UH.C!... VO,LO . 255,UL.L!...X.1.C(S
K$):A.. SC(F(J(SK$,X,1)).64).|!... VO,A,
DR:...!"....!'.. ** S[TT SK[RMEN TILBAKA
 TILL DEN 'NORMALA SK[RMEN **..!,.. VO,0
,DH:. DENNA LIGGER P]  $0000..!1.. VO,0,
DL.&"6.. VO,Q("08"),AH:. S[TT ATTRIBUTST
ART TILL $0800.P";.. VO,Q("00"),AL:. D[R
 DE NORMALT ST]R.V"@...."E.. ** FYLL SK[
RM2  VIA 'BLOCK WRITE' **.."J.. X.Q("10"
) . Q("17").."O.. VO,X,UH:. VO,0,UL.."T.
. VO,45,DR:. PLACERAR ETT MINUS P] SK[RM
EN..#Y.. VI,0,CW:A.(B(6) . 127):. SLET B
IT 7.-#^.. VO,A,CW:. V[LJ BLOCK WRITE.G#
C.. VO,255,WC:. ANTAL-1.M#H...S#M....#R.
. ** RADERA SK[RM2  VIA 'BLOCK WRITE' **
..#W.. X.Q("10") . Q("17")..#|.. VO,X,UH
:. VO,0,UL..#... VO,32,DR:. PLACERAR EN 
SPACE P] SK[RMEN..$... VI,0,CW:A.(B(6) .
 127):. SLET BIT 7.+$... VO,A,CW:. V[LJ 
BLOCK WRITE.E$... VO,255,WC:. ANTAL-1.K$
....Q$....$... ** RADERA ATTRIBUT VIA '
BLOCK WRITE' **..$... X.Q("18") . Q("1F"
)..$... VO,X,UH:. VO,0,UL..$... VO,15,DR
:.  RADERA ATTRIBUT+VIT F[RG..%... VI,0,
CW:A.(B(6) . 127):. SLET BIT 7.'%... VO,
A,CW:. V[LJ BLOCK WRITE.A%... VO,255,WC:
. ANTAL-1.G%B...M%G...X%L.. ** KOPIERA S
K[RM VIA 'BLOCK COPY' **..%Q.. X.Q("10")
 . Q("1F"):. [VEN ATTRIBUT..%V.. VO,X,UH
:. VO,0,UL..%... VI,0,CW:A.(B(6) . 128):
. S[T BIT 7..&... VO,A,CW:. V[LG BLOCK C
OPY.'&..B.X.Q("10"):. VO,B,CH:. VO,0,CL.
J&... VO,255,WC:. START BLOCK COPY.P&...
.V&....\&....T&... 200:. V[LJ SK[RM2..&.
.. 420:. RADERA ATTRIBUT SK[RM2..&... 33
0:. FYLL SK[RM2.X&... 230:. RADERA SK[RM
2 'SEKVENTIELLT'..&..LI.10:PO.10:. PRINT
 AT 10,10..'..SK$."DETTE [R ETT PROV".8'
... 265:. CURSOR 10,10:PRINT SK$.C'!.LI.
1:PO.1:.265:. CURSOR 1,1: PRINT SK$..'&.
LI.15:PO.1:.265:. CURSOR 15,1:PRINT SK$.
.'+.LI.25:PO.1:.265:. PRINT AT 25,1.N'0.
SK$."TRYCK EN TANGENT"..'5.LI.25:PO.60:.
265:. CURSOR 25,60: PRINT SK$..(:..Z$:.Z
$."".570..(?..300.B(D..ER..1. . ER,S(ER)
;" ERROR IN ";EL:..Z(I.. TT.0 . TT.1:. 6
00.`(N....(S.. ** OPS[TNING OG FLYTNING 
AF SK[RMINDHOLD **..(X...W(].. ,20,3,"DE
TTA [R EN \VERSIKT \VER DE ANV[NDA REGIS
TERNA."..)B.. ,22,5,"REG. 18     ADRESSE
RNA HIT  -   HIGH BYTE".G)G.. ,22,6,"REG
. 19     ADRESSERNA HIT  -   LOW  BYTE".
)L.. ,22,7,"---------------------------
--------------"..)Q.. ,22,8,"REG. 24    
 S[TT BIT 7 - V[LJ 'BLOCK COPY'"..)V.. ,
22,9,"----------------------------------
-------".)*{.. ,22,10,"REG. 33     ADRES
SERNA FR]N -   HIGH BYTE".B*... ,22,11,"
REG. 34     ADRESSERNA FR]N -   LOW  BYT
E"..*... ,22,12,"-----------------------
------------------".S*... ,22,13,"REG. 3
0     ANTAL TILL KOPIERING - START"..*..
.205:. BYT SK[RM..+...465:. FLYTTA SK[RM
INNEH]LL..+...560...0.

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL