UD
FILE INFORMATION
FILENAME(S): UD
FILE TYPE(S): PRG
FILE SIZE: 8.2K
FIRST SEEN: 2025-12-02 02:15:42
APPEARS ON: 2 disk(s)
FILE HASH
2b392988c591960ab654b47008380835a1fd040e54e1797304ab9ebf4e7ea02d
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| AWARDW UPD PRG 1 | UD | PRG | The BAM Archive | 32 | 0 | DOWNLOAD FILE |
| BROS DAMN WE RE | UD | PRG | The BAM Archive | 32 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 07 08 01 00 8F 00 3C 08 08 00 42 47 B2 38 |........<...BG.8|
00000010: 33 39 3A 42 50 B2 38 32 38 3A 4C B2 32 35 31 3A |39:BP.828:L.251:|
00000020: 48 B2 32 35 32 3A 42 55 46 46 45 52 B2 37 38 34 |H.252:BUFFER.784|
00000030: 3A 42 41 53 49 43 B2 34 30 39 36 30 00 47 08 09 |:BASIC.40960.G..|
00000040: 00 89 20 31 30 30 30 00 5F 08 0A 00 8F 20 45 52 |.. 1000._.... ER|
00000050: 20 3D 20 44 49 53 4B 20 45 52 52 4F 52 20 23 00 | = DISK ERROR #.|
00000060: 7D 08 14 00 8F 20 45 52 24 20 3D 20 44 49 53 4B |}.... ER$ = DISK|
00000070: 20 45 52 52 4F 52 20 53 54 52 49 4E 47 00 AC 08 | ERROR STRING...|
00000080: 1E 00 8F 20 45 54 20 41 4E 44 20 45 53 20 41 52 |... ET AND ES AR|
00000090: 45 20 54 48 45 20 45 52 52 4F 52 20 54 52 41 43 |E THE ERROR TRAC|
000000A0: 4B 20 41 4E 44 20 53 45 43 54 4F 52 00 F4 08 28 |K AND SECTOR...(|
000000B0: 00 8F 20 46 54 24 20 3D 20 54 48 45 20 43 55 52 |.. FT$ = THE CUR|
000000C0: 52 45 4E 54 20 46 49 4C 45 20 54 59 50 45 20 28 |RENT FILE TYPE (|
000000D0: 46 54 24 20 3D 20 22 50 22 20 4F 52 20 22 53 22 |FT$ = "P" OR "S"|
000000E0: 29 20 54 48 45 20 44 45 46 41 55 4C 54 20 49 53 |) THE DEFAULT IS|
000000F0: 20 22 50 22 00 FA 08 60 00 8F 00 00 09 61 00 8F | "P"...`.....a..|
00000100: 00 06 09 62 00 8F 00 12 09 63 00 89 20 31 30 30 |...b.....c.. 100|
00000110: 30 30 00 24 09 64 00 8F 20 4F 50 45 4E 20 41 20 |00.$.d.. OPEN A |
00000120: 46 49 4C 45 00 38 09 6E 00 8F 20 46 49 4C 45 20 |FILE.8.n.. FILE |
00000130: 3D 20 46 49 4C 45 20 23 00 4D 09 78 00 8F 20 44 |= FILE #.M.x.. D|
00000140: 45 56 20 3D 20 44 45 56 49 43 45 20 23 00 6A 09 |EV = DEVICE #.j.|
00000150: 82 00 8F 20 53 41 20 3D 20 53 45 43 4F 4E 44 41 |... SA = SECONDA|
00000160: 52 59 20 41 44 44 52 45 53 53 00 80 09 8C 00 8F |RY ADDRESS......|
00000170: 20 4E 41 24 20 3D 20 46 49 4C 45 20 4E 41 4D 45 | NA$ = FILE NAME|
00000180: 00 99 09 96 00 9F 20 46 49 4C 45 2C 20 44 45 56 |...... FILE, DEV|
00000190: 2C 20 53 41 2C 20 4E 41 24 00 B8 09 9B 00 8F 20 |, SA, NA$...... |
000001A0: 20 50 52 49 4E 54 46 49 4C 45 2C 20 44 45 56 2C | PRINTFILE, DEV,|
000001B0: 20 53 41 2C 20 4E 41 24 00 CD 09 A0 00 84 31 35 | SA, NA$......15|
000001C0: 2C 45 52 2C 45 52 24 2C 45 54 2C 45 53 00 D3 09 |,ER,ER$,ET,ES...|
000001D0: AA 00 8E 00 D9 09 C8 00 8F 00 F4 09 D2 00 8F 20 |............... |
000001E0: 4F 50 45 4E 20 41 20 46 49 4C 45 20 46 4F 52 20 |OPEN A FILE FOR |
000001F0: 52 45 41 44 00 FA 09 DC 00 8F 00 1E 0A E6 00 8F |READ............|
00000200: 20 49 46 20 4E 4F 20 46 49 4C 45 20 54 59 50 45 | IF NO FILE TYPE|
00000210: 20 54 48 45 4E 20 55 53 45 20 4E 4F 4E 45 00 42 | THEN USE NONE.B|
00000220: 0A F0 00 8B 20 46 54 24 B3 B1 22 22 A7 20 4E 41 |.... FT$.."". NA|
00000230: 24 B2 4E 41 24 AA 22 2C 22 AA 46 54 24 AA 22 2C |$.NA$.",".FT$.",|
00000240: 52 22 00 48 0A FA 00 8F 00 54 0A 04 01 8D 20 31 |R".H.....T.... 1|
00000250: 30 30 3A 8E 00 5A 0A 2C 01 8F 00 76 0A 36 01 8F |00:..Z.,...v.6..|
00000260: 20 4F 50 45 4E 20 41 20 46 49 4C 45 20 46 4F 52 | OPEN A FILE FOR|
00000270: 20 57 52 49 54 45 00 7C 0A 40 01 8F 00 97 0A 4A | WRITE.|.@.....J|
00000280: 01 8B 20 46 54 24 B2 22 22 A7 20 4E 41 24 B2 4E |.. FT$."". NA$.N|
00000290: 41 24 AA 22 2C 50 22 00 B6 0A 54 01 8B 20 46 54 |A$.",P"...T.. FT|
000002A0: 24 B3 B1 22 22 A7 20 4E 41 24 B2 4E 41 24 AA 22 |$.."". NA$.NA$."|
000002B0: 2C 22 AA 46 54 24 00 C7 0A 5E 01 4E 41 24 B2 4E |,".FT$...^.NA$.N|
000002C0: 41 24 AA 22 2C 57 22 00 D3 0A 68 01 8D 20 31 30 |A$.",W"...h.. 10|
000002D0: 30 3A 8E 00 D9 0A 90 01 8F 00 00 0B 9A 01 8F 20 |0:............. |
000002E0: 43 48 45 43 4B 20 4F 4E 20 54 48 45 20 45 58 49 |CHECK ON THE EXI|
000002F0: 53 54 41 4E 43 45 20 4F 46 20 41 20 46 49 4C 45 |STANCE OF A FILE|
00000300: 00 06 0B A4 01 8F 00 1C 0B AE 01 8F 20 4E 41 24 |............ NA$|
00000310: 20 3D 20 46 49 4C 45 20 4E 41 4D 45 00 48 0B B8 | = FILE NAME.H..|
00000320: 01 8F 20 57 44 24 20 3D 20 4E 41 4D 45 20 4F 46 |.. WD$ = NAME OF|
00000330: 20 44 49 53 4B 20 57 45 20 41 52 45 20 4C 4F 4F | DISK WE ARE LOO|
00000340: 4B 49 4E 47 20 46 4F 52 00 55 0B C2 01 46 20 B2 |KING FOR.U...F .|
00000350: 20 46 49 4C 45 00 62 0B CC 01 4E 24 20 B2 20 4E | FILE.b...N$ . N|
00000360: 41 24 00 6D 0B D6 01 53 20 B2 20 53 41 00 79 0B |A$.m...S . SA.y.|
00000370: E0 01 53 41 20 B2 20 31 32 00 87 0B EA 01 46 49 |..SA . 12.....FI|
00000380: 4C 45 20 B2 20 31 32 00 BA 0B F4 01 8D 20 32 30 |LE . 12...... 20|
00000390: 30 3A 8B 20 45 52 20 B2 20 30 20 A7 20 A0 20 46 |0:. ER . 0 . . F|
000003A0: 49 4C 45 3A 46 49 4C 45 20 B2 20 46 3A 4E 41 24 |ILE:FILE . F:NA$|
000003B0: B2 4E 24 3A 53 41 B2 53 3A 8E 00 C5 0B FE 01 A0 |.N$:SA.S:.......|
000003C0: 20 46 49 4C 45 00 D9 0B 08 02 99 20 22 D7 D2 CF | FILE...... "...|
000003D0: CE C7 20 C4 C9 D3 CB 3A 22 00 20 0C 0D 02 99 20 |.. ....:". .... |
000003E0: 22 50 4C 45 41 53 45 20 49 4E 53 45 52 54 20 54 |"PLEASE INSERT T|
000003F0: 48 45 20 22 3B 57 44 24 3B 22 20 44 49 53 4B 22 |HE ";WD$;" DISK"|
00000400: 3A 99 22 20 20 20 20 20 20 20 20 20 20 20 41 4E |:." AN|
00000410: 44 20 50 52 45 53 53 20 41 4E 59 20 4B 45 59 22 |D PRESS ANY KEY"|
00000420: 00 46 0C 12 02 A1 41 24 3A 8B 41 24 B3 B1 22 22 |.F....A$:.A$..""|
00000430: A7 20 89 20 35 33 30 3A 8F 20 43 4C 45 41 52 20 |. . 530:. CLEAR |
00000440: 42 55 46 46 45 52 00 5C 0C 1C 02 A1 41 24 3A 8B |BUFFER.\....A$:.|
00000450: 41 24 B2 22 22 A7 20 89 20 35 34 30 00 6A 0C 26 |A$."". . 540.j.&|
00000460: 02 A1 41 24 3A 89 20 35 30 30 00 70 0C 58 02 8F |..A$:. 500.p.X..|
00000470: 00 9F 0C 62 02 8F 20 4C 4F 4F 4B 20 46 4F 52 20 |...b.. LOOK FOR |
00000480: 41 20 46 49 4C 45 20 4F 4E 20 54 48 45 20 4E 45 |A FILE ON THE NE|
00000490: 57 20 47 52 41 50 48 49 43 53 20 44 49 53 4B 00 |W GRAPHICS DISK.|
000004A0: AB 0C 6C 02 4E 41 24 B2 47 44 24 00 CE 0C 76 02 |..l.NA$.GD$...v.|
000004B0: 57 44 24 20 B2 20 22 CE C5 D7 20 C7 52 41 50 48 |WD$ . "... .RAPH|
000004C0: 49 43 53 20 44 49 53 4B 22 3A 8D 34 30 30 00 D4 |ICS DISK":.400..|
000004D0: 0C 80 02 8E 00 DA 0C BC 02 8F 00 04 0D C6 02 8F |................|
000004E0: 20 43 48 45 43 4B 20 4F 4E 20 41 20 46 49 4C 45 | CHECK ON A FILE|
000004F0: 20 4F 4E 20 54 48 45 20 50 52 4F 47 52 41 4D 20 | ON THE PROGRAM |
00000500: 44 49 53 4B 00 10 0D D0 02 4E 41 24 B2 50 46 24 |DISK.....NA$.PF$|
00000510: 00 2E 0D DA 02 57 44 24 20 B2 20 22 D0 52 4F 47 |.....WD$ . ".ROG|
00000520: 52 41 4D 20 44 49 53 4B 22 3A 8D 34 30 30 00 34 |RAM DISK":.400.4|
00000530: 0D E4 02 8E 00 3A 0D 20 03 8F 00 4D 0D 2A 03 8F |.....:. ...M.*..|
00000540: 20 54 4F 55 43 48 20 41 20 46 49 4C 45 00 53 0D | TOUCH A FILE.S.|
00000550: 34 03 8F 00 69 0D 3E 03 8F 20 4E 41 24 20 3D 20 |4...i.>.. NA$ = |
00000560: 46 49 4C 45 20 4E 41 4D 45 00 80 0D 52 03 46 B2 |FILE NAME...R.F.|
00000570: 46 49 4C 45 3A 53 B2 53 41 3A 4E 24 B2 4E 41 24 |FILE:S.SA:N$.NA$|
00000580: 00 A1 0D 5C 03 46 49 4C 45 20 B2 20 31 32 3A 53 |...\.FILE . 12:S|
00000590: 41 20 B2 20 31 32 3A 8D 32 30 30 3A A0 46 49 4C |A . 12:.200:.FIL|
000005A0: 45 00 BA 0D 66 03 4E 41 24 B2 4E 24 3A 53 41 B2 |E...f.NA$.N$:SA.|
000005B0: 53 3A 46 49 4C 45 B2 46 3A 8E 00 F6 0D 84 03 98 |S:FILE.F:.......|
000005C0: 31 35 2C 44 44 24 3A 84 31 35 2C 45 52 2C 45 52 |15,DD$:.15,ER,ER|
000005D0: 24 2C 45 54 2C 45 53 3A 8B 45 52 B1 31 A7 99 45 |$,ET,ES:.ER.1..E|
000005E0: 52 2C 45 52 24 3A 8D 36 30 34 30 3A 8F 20 50 52 |R,ER$:.6040:. PR|
000005F0: 45 53 53 4B 45 59 00 FC 0D 8E 03 8E 00 02 0E E7 |ESSKEY..........|
00000600: 03 80 00 3B 0E E8 03 8D 37 30 30 30 3A 9F 31 35 |...;....7000:.15|
00000610: 2C 38 2C 31 35 3A 44 45 56 20 B2 20 38 3A 97 20 |,8,15:DEV . 8:. |
00000620: 35 33 32 38 30 2C 31 32 3A 97 35 33 32 38 31 2C |53280,12:.53281,|
00000630: 31 35 3A 99 22 93 05 08 0E 22 3B 00 88 0E ED 03 |15:."....";.....|
00000640: 50 46 24 B2 22 41 57 22 3A 47 44 24 B2 22 55 44 |PF$."AW":GD$."UD|
00000650: 22 3A 55 44 24 B2 22 55 44 53 54 22 3A 58 4A 24 |":UD$."UDST":XJ$|
00000660: B2 22 58 58 58 4A 4A 4A 54 45 4D 50 22 3A 8F 20 |."XXXJJJTEMP":. |
00000670: 55 50 44 41 54 45 20 46 49 4C 45 53 20 54 4F 20 |UPDATE FILES TO |
00000680: 4C 4F 4F 4B 20 46 4F 52 00 95 0E F2 03 99 22 93 |LOOK FOR......".|
00000690: 11 11 11 22 3B 00 BF 0E FC 03 99 22 20 20 20 20 |...";......" |
000006A0: 20 C1 57 41 52 44 D7 41 52 45 20 D5 50 44 41 54 | .WARD.ARE .PDAT|
000006B0: 45 20 D0 52 4F 47 52 41 4D 20 D6 31 2E 30 22 00 |E .ROGRAM .1.0".|
000006C0: EC 0E 01 04 99 22 20 20 20 43 4F 50 59 52 49 47 |....." COPYRIG|
000006D0: 48 54 20 31 39 38 37 20 C8 49 D4 45 43 48 20 C5 |HT 1987 .I.ECH .|
000006E0: 58 50 52 45 53 53 49 4F 4E 53 2E 22 00 10 0F 06 |XPRESSIONS."....|
000006F0: 04 99 22 20 20 20 20 20 20 20 20 20 20 CA 45 46 |.." .EF|
00000700: 46 20 CA 4F 4E 45 53 20 20 39 2F 31 34 2F 38 37 |F .ONES 9/14/87|
00000710: 00 1E 0F 10 04 99 22 11 11 11 11 11 22 3B 00 45 |......".....";.E|
00000720: 0F 1A 04 99 22 20 20 20 20 20 20 20 20 20 20 31 |...." 1|
00000730: 2E 20 D0 52 49 4E 54 20 49 4E 53 54 52 55 43 54 |. .RINT INSTRUCT|
00000740: 49 4F 4E 53 22 00 4B 0F 1F 04 99 00 72 0F 24 04 |IONS".K.....r.$.|
00000750: 99 22 20 20 20 20 20 20 20 20 20 20 32 2E 20 C1 |." 2. .|
00000760: 50 50 4C 59 20 55 50 44 41 54 45 20 54 4F 20 C1 |PPLY UPDATE TO .|
00000770: D7 22 00 78 0F 29 04 99 00 A4 0F 2E 04 99 22 20 |.".x.)........" |
00000780: 20 20 20 20 20 20 20 20 20 33 2E 20 D4 4F 47 47 | 3. .OGG|
00000790: 4C 45 20 55 50 44 41 54 45 20 4F 4E 20 41 20 44 |LE UPDATE ON A D|
000007A0: 49 53 4B 22 00 AA 0F 33 04 99 00 CD 0F 38 04 99 |ISK"...3.....8..|
000007B0: 22 20 20 20 20 20 20 20 20 20 20 34 2E 20 D8 45 |" 4. .E|
000007C0: 54 45 58 20 D3 C7 20 D6 31 2E 37 32 22 00 E4 0F |TEX .. .1.72"...|
000007D0: 4C 04 A1 41 24 3A 8B 41 24 B2 22 22 A7 20 89 20 |L..A$:.A$."". . |
000007E0: 31 31 30 30 00 04 10 51 04 8B 20 41 24 B2 22 18 |1100...Q.. A$.".|
000007F0: 22 20 B0 20 41 24 B2 22 03 22 20 A7 20 99 22 93 |" . A$."." . .".|
00000800: 22 3B 3A 80 00 19 10 56 04 8B 41 24 B1 22 34 22 |";:....V..A$."4"|
00000810: 20 A7 20 89 20 31 31 30 30 00 32 10 60 04 8B 20 | . . 1100.2.`.. |
00000820: 41 24 20 B2 20 22 25 22 20 A7 20 41 24 B2 20 22 |A$ . "%" . A$. "|
00000830: 35 22 00 49 10 6A 04 8B 20 41 24 20 B3 22 31 22 |5".I.j.. A$ ."1"|
00000840: 20 A7 20 89 20 31 31 30 30 00 66 10 74 04 41 20 | . . 1100.f.t.A |
00000850: B2 20 C6 28 41 24 29 20 AB 20 28 C6 28 22 31 22 |. .(A$) . (.("1"|
00000860: 29 20 AB 20 31 29 00 83 10 79 04 8D 31 33 30 30 |) . 1)...y..1300|
00000870: 30 3A 8B 41 24 B3 B1 22 59 22 20 A7 20 89 20 31 |0:.A$.."Y" . . 1|
00000880: 30 31 30 00 B0 10 7E 04 91 20 41 20 8D 20 32 30 |010...~.. A . 20|
00000890: 30 30 2C 33 30 30 30 2C 34 30 30 30 2C 31 32 30 |00,3000,4000,120|
000008A0: 30 30 2C 35 30 30 30 20 3A 20 89 20 31 30 31 30 |00,5000 : . 1010|
000008B0: 00 BB 10 88 04 89 20 31 31 30 30 00 D2 10 DC 05 |...... 1100.....|
000008C0: 99 22 45 52 52 4F 52 20 48 41 4E 44 4C 45 52 22 |."ERROR HANDLER"|
000008D0: 3A 80 00 D8 10 D0 07 8F 00 EE 10 DA 07 8F 20 44 |:............. D|
000008E0: 49 53 50 41 4C 41 59 20 41 20 46 49 4C 45 00 F4 |ISPALAY A FILE..|
000008F0: 10 E4 07 8F 00 25 11 EE 07 4E 41 24 20 B2 20 22 |.....%...NA$ . "|
00000900: 49 4E 53 22 3A 8D 36 30 30 3A 8F 20 47 52 41 50 |INS":.600:. GRAP|
00000910: 48 49 43 53 20 44 49 53 4B 20 2D 20 41 53 33 2E |HICS DISK - AS3.|
00000920: 4F 2E 4E 45 57 00 58 11 F8 07 46 49 4C 45 20 B2 |O.NEW.X...FILE .|
00000930: 20 38 3A 53 41 20 B2 20 38 3A 4E 41 24 20 B2 20 | 8:SA . 8:NA$ . |
00000940: 22 49 4E 53 22 3A 8D 32 30 30 3A 8F 20 22 54 45 |"INS":.200:. "TE|
00000950: 58 54 2E 46 49 4C 45 22 00 91 11 02 08 8B 20 45 |XT.FILE"...... E|
00000960: 52 20 A7 20 A0 38 3A 99 22 46 41 54 41 4C 20 45 |R . .8:."FATAL E|
00000970: 52 52 4F 52 3A 20 22 3B 45 52 24 3A 89 31 35 30 |RROR: ";ER$:.150|
00000980: 30 3A 8F 20 45 52 52 4F 52 20 48 41 4E 44 4C 45 |0:. ERROR HANDLE|
00000990: 52 00 A2 11 0C 08 81 20 41 20 B2 20 31 20 A4 20 |R...... A . 1 . |
000009A0: 32 32 00 AE 11 16 08 4C 24 20 B2 20 22 22 00 BF |22.....L$ . ""..|
000009B0: 11 20 08 81 20 42 20 B2 20 31 20 A4 20 33 38 00 |. .. B . 1 . 38.|
000009C0: CA 11 2A 08 A1 23 38 2C 41 24 00 F8 11 34 08 8B |..*..#8,A$...4..|
000009D0: 20 28 28 41 24 B3 B1 C7 28 31 33 29 29 20 AF 20 | ((A$...(13)) . |
000009E0: 28 53 54 20 B2 20 30 29 29 20 A7 20 4C 24 B2 4C |(ST . 0)) . L$.L|
000009F0: 24 AA 41 24 3A 82 20 42 00 10 12 3E 08 99 20 4C |$.A$:. B...>.. L|
00000A00: 24 3A 8B 20 53 54 20 B2 20 30 20 A7 20 82 20 41 |$:. ST . 0 . . A|
00000A10: 00 22 12 48 08 8B 20 53 54 20 A7 20 89 20 32 35 |.".H.. ST . . 25|
00000A20: 30 30 00 70 12 98 08 99 22 11 20 20 20 20 20 20 |00.p....". |
00000A30: 20 20 20 20 20 20 20 20 D0 52 45 53 53 20 41 20 | .RESS A |
00000A40: 4B 45 59 2E 20 5F 20 3D 20 45 4E 44 9D 9D 9D 9D |KEY. _ = END....|
00000A50: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |................|
00000A60: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 3B |..............";|
00000A70: 00 76 12 A2 08 8F 00 97 12 AC 08 99 22 2D 2D 2D |.v.........."---|
00000A80: 20 CD CF D2 C5 20 2D 2D 2D 9D 9D 9D 9D 9D 9D 9D | .... ---.......|
00000A90: 9D 9D 9D 9D 9D 22 3B 00 A9 12 B6 08 81 20 42 42 |.....";...... BB|
00000AA0: 20 B2 20 31 20 A4 20 35 30 00 C1 12 C0 08 A1 41 | . 1 . 50......A|
00000AB0: 24 3A 8B 41 24 B3 B1 22 22 A7 20 89 20 32 33 30 |$:.A$.."". . 230|
00000AC0: 30 00 C7 12 CA 08 82 00 EA 12 D4 08 99 22 2D 2D |0............"--|
00000AD0: 2D 20 12 CD CF D2 C5 92 20 2D 2D 2D 9D 9D 9D 9D |- ...... ---....|
00000AE0: 9D 9D 9D 9D 9D 9D 9D 9D 22 3B 00 FC 12 DE 08 81 |........";......|
00000AF0: 20 42 42 20 B2 20 31 20 A4 20 35 30 00 14 13 E8 | BB . 1 . 50....|
00000B00: 08 A1 41 24 3A 8B 41 24 B3 B1 22 22 A7 20 89 20 |..A$:.A$.."". . |
00000B10: 32 33 30 30 00 1A 13 F2 08 82 00 25 13 F7 08 89 |2300.......%....|
00000B20: 20 32 32 31 30 00 73 13 FC 08 99 22 20 20 20 20 | 2210.s...." |
00000B30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000B40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 9D 9D | ..|
00000B50: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |................|
00000B60: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |................|
00000B70: 91 22 3B 00 88 13 06 09 8B 41 24 B3 B1 22 5F 22 |.";......A$.."_"|
00000B80: A7 20 89 20 32 30 36 30 00 91 13 10 09 A0 38 3A |. . 2060......8:|
00000B90: 8E 00 BB 13 C4 09 A0 38 3A 99 22 11 20 C5 4E 44 |.......8:.". .ND|
00000BA0: 20 CF 46 20 C6 49 4C 45 20 20 2D 20 20 50 52 45 | .F .ILE - PRE|
00000BB0: 53 53 20 41 4E 59 20 4B 45 59 22 00 D2 13 CE 09 |SS ANY KEY".....|
00000BC0: A1 41 24 3A 8B 41 24 B2 22 22 A7 20 89 20 32 35 |.A$:.A$."". . 25|
00000BD0: 31 30 00 06 14 D8 09 99 22 91 20 20 20 20 20 20 |10......". |
00000BE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000BF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3A | ":|
00000C00: 49 4E B2 31 3A 8E 00 4B 14 B8 0B 99 22 11 20 20 |IN.1:..K....". |
00000C10: 2D 2D 2D 2D 20 20 D5 50 44 41 54 45 20 44 49 53 |---- .PDATE DIS|
00000C20: 4B 20 20 2D 2D 2D 2D 22 3A 41 44 44 B2 42 41 53 |K ----":ADD.BAS|
00000C30: 49 43 3A 8D 38 30 30 30 3A 8F 20 53 45 54 20 42 |IC:.8000:. SET B|
00000C40: 55 46 46 45 52 3D 42 41 53 49 43 00 64 14 BD 0B |UFFER=BASIC.d...|
00000C50: 8D 36 30 30 3A 8F 20 47 52 41 50 48 49 43 53 20 |.600:. GRAPHICS |
00000C60: 44 49 53 4B 00 89 14 C2 0B 46 49 4C 45 B2 38 3A |DISK.....FILE.8:|
00000C70: 53 41 B2 38 3A 4E 41 24 B2 22 41 53 33 2E 4F 2E |SA.8:NA$."AS3.O.|
00000C80: 4E 45 57 22 3A 8D 32 30 30 00 CC 14 CC 0B 8B 20 |NEW":.200...... |
00000C90: 45 52 20 A7 20 A0 38 3A 58 B2 31 3A 58 24 28 30 |ER . .8:X.1:X$(0|
00000CA0: 29 B2 22 4E 45 57 20 53 48 45 4C 4C 20 46 49 4C |)."NEW SHELL FIL|
00000CB0: 45 20 4E 4F 54 20 46 4F 55 4E 44 21 22 3A 89 20 |E NOT FOUND!":. |
00000CC0: 36 30 30 30 3A 8F 20 45 52 52 4F 52 00 01 15 D6 |6000:. ERROR....|
00000CD0: 0B 8D 39 30 30 30 3A 41 31 B2 41 44 44 3A 99 22 |..9000:A1.ADD:."|
00000CE0: 52 45 41 44 49 4E 47 20 41 53 33 2E 4F 2E 4E 45 |READING AS3.O.NE|
00000CF0: 57 2E 22 3A 8D 31 30 30 30 30 3A 8F 20 52 45 41 |W.":.10000:. REA|
00000D00: 44 00 10 15 E0 0B A0 38 3A 53 31 B2 53 49 5A 45 |D......8:S1.SIZE|
00000D10: 00 35 15 EA 0B 46 49 4C 45 B2 38 3A 53 41 B2 38 |.5...FILE.8:SA.8|
00000D20: 3A 4E 41 24 B2 22 41 57 41 52 44 2E 4E 45 57 22 |:NA$."AWARD.NEW"|
00000D30: 3A 8D 32 30 30 00 77 15 F4 0B 8B 20 45 52 20 A7 |:.200.w.... ER .|
00000D40: 20 A0 38 3A 58 B2 31 3A 58 24 28 30 29 B2 22 4E | .8:X.1:X$(0)."N|
00000D50: 45 57 20 42 4F 4F 54 20 46 49 4C 45 20 4E 4F 54 |EW BOOT FILE NOT|
00000D60: 20 46 4F 55 4E 44 21 22 3A 89 20 36 30 30 30 3A | FOUND!":. 6000:|
00000D70: 8F 20 45 52 52 4F 52 00 AC 15 FE 0B 8D 39 30 30 |. ERROR......900|
00000D80: 30 3A 41 32 B2 41 44 44 3A 99 22 52 45 41 44 49 |0:A2.ADD:."READI|
00000D90: 4E 47 20 41 57 41 52 44 2E 4E 45 57 2E 22 3A 8D |NG AWARD.NEW.":.|
00000DA0: 20 31 30 30 30 30 3A 8F 52 45 41 44 00 BB 15 08 | 10000:.READ....|
00000DB0: 0C A0 38 3A 53 32 B2 53 49 5A 45 00 D3 15 12 0C |..8:S2.SIZE.....|
00000DC0: 8D 37 30 30 3A 8F 20 50 52 4F 47 52 41 4D 20 44 |.700:. PROGRAM D|
00000DD0: 49 53 4B 00 FA 15 1C 0C 4E 41 24 B2 55 44 24 3A |ISK.....NA$.UD$:|
00000DE0: 8D 38 30 30 3A 8F 20 43 48 45 43 4B 20 55 50 44 |.800:. CHECK UPD|
00000DF0: 41 54 45 20 53 54 41 54 55 53 00 11 16 26 0C 8B |ATE STATUS...&..|
00000E00: 20 45 52 20 B2 20 36 32 20 A7 20 89 20 33 32 30 | ER . 62 . . 320|
00000E10: 30 00 1B 16 30 0C 58 20 B2 20 30 00 51 16 3A 0C |0...0.X . 0.Q.:.|
00000E20: 58 24 28 58 29 B2 22 D4 48 49 53 20 44 49 53 4B |X$(X).".HIS DISK|
00000E30: 20 48 41 53 20 41 4C 52 45 41 44 59 20 42 45 45 | HAS ALREADY BEE|
00000E40: 4E 20 55 50 44 41 54 45 44 21 22 3A 58 B2 58 AA |N UPDATED!":X.X.|
00000E50: 31 00 89 16 44 0C 58 24 28 58 29 B2 22 D9 4F 55 |1...D.X$(X).".OU|
00000E60: 20 4E 45 45 44 20 54 4F 20 55 50 20 44 41 54 45 | NEED TO UP DATE|
00000E70: 20 41 20 44 49 53 4B 20 4F 4E 4C 59 20 4F 4E 43 | A DISK ONLY ONC|
00000E80: 45 21 22 3A 58 B2 58 AA 31 00 9C 16 4E 0C 89 20 |E!":X.X.1...N.. |
00000E90: 36 30 30 30 3A 8F 20 45 52 52 4F 52 00 C3 16 80 |6000:. ERROR....|
00000EA0: 0C 4E 41 24 B2 22 41 53 33 2E 4F 2E 4F 4C 44 22 |.NA$."AS3.O.OLD"|
00000EB0: 3A 8D 38 30 30 3A 8B 20 45 52 20 A7 20 89 20 33 |:.800:. ER . . 3|
00000EC0: 33 30 30 00 CB 16 8A 0C 58 B2 30 00 F9 16 94 0C |300.....X.0.....|
00000ED0: 58 24 28 58 29 B2 22 D4 48 49 53 20 44 49 53 4B |X$(X).".HIS DISK|
00000EE0: 20 48 41 53 20 42 45 45 4E 20 44 41 4D 41 47 45 | HAS BEEN DAMAGE|
00000EF0: 44 21 22 3A 58 B2 58 AA 31 00 30 17 9E 0C 58 24 |D!":X.X.1.0...X$|
00000F00: 28 58 29 B2 22 D5 50 44 41 54 49 4E 47 20 57 4F |(X).".PDATING WO|
00000F10: 55 4C 44 20 43 41 55 53 45 20 46 55 52 54 48 45 |ULD CAUSE FURTHE|
00000F20: 52 20 44 41 4D 41 47 45 21 22 3A 58 B2 58 AA 31 |R DAMAGE!":X.X.1|
00000F30: 00 54 17 A8 0C 58 24 28 58 29 B2 22 D5 50 44 41 |.T...X$(X).".PDA|
00000F40: 54 45 20 41 42 4F 52 54 45 44 2E 2E 2E 22 3A 58 |TE ABORTED...":X|
00000F50: B2 58 AA 31 00 67 17 B2 0C 89 20 36 30 30 30 3A |.X.1.g.... 6000:|
00000F60: 8F 20 45 52 52 4F 52 00 8E 17 E4 0C 4E 41 24 B2 |. ERROR.....NA$.|
00000F70: 22 41 57 41 52 44 2E 4F 4C 44 22 3A 8D 38 30 30 |"AWARD.OLD":.800|
00000F80: 3A 8B 20 45 52 20 A7 20 89 20 33 34 30 30 00 A1 |:. ER . . 3400..|
00000F90: 17 EE 0C 89 20 33 32 31 30 3A 8F 20 41 42 4F 52 |.... 3210:. ABOR|
00000FA0: 54 00 DC 17 48 0D 46 49 4C 45 B2 38 3A 53 41 B2 |T...H.FILE.8:SA.|
00000FB0: 38 3A 4E 41 24 B2 55 44 24 3A 8D 33 30 30 3A 98 |8:NA$.UD$:.300:.|
00000FC0: 38 2C 22 58 22 3A A0 38 3A 8F 20 43 52 45 41 54 |8,"X":.8:. CREAT|
00000FD0: 45 2C 57 52 49 54 45 20 55 44 53 54 00 01 18 4D |E,WRITE UDST...M|
00000FE0: 0D 41 44 44 20 B2 20 42 41 53 49 43 3A 8D 38 30 |.ADD . BASIC:.80|
00000FF0: 30 30 3A 8F 20 52 45 53 45 54 20 42 55 46 46 45 |00:. RESET BUFFE|
00001000: 52 00 17 18 52 0D 8F 20 57 52 49 54 45 20 41 53 |R...R.. WRITE AS|
00001010: 33 2E 4F 2E 4F 4C 44 00 49 18 5C 0D 46 49 4C 45 |3.O.OLD.I.\.FILE|
00001020: B2 38 3A 53 41 B2 38 3A 4E 41 24 B2 22 41 53 33 |.8:SA.8:NA$."AS3|
00001030: 2E 4F 2E 4F 4C 44 22 3A 8D 33 30 30 3A 8F 20 57 |.O.OLD":.300:. W|
00001040: 52 49 54 45 20 46 49 4C 45 00 83 18 66 0D 53 49 |RITE FILE...f.SI|
00001050: 5A 45 20 B2 20 53 31 3A 99 22 57 52 49 54 49 4E |ZE . S1:."WRITIN|
00001060: 47 20 4E 45 57 20 41 53 33 2E 4F 2E 22 3A 8D 31 |G NEW AS3.O.":.1|
00001070: 31 30 30 30 3A 8F 20 57 52 49 54 45 20 41 20 46 |1000:. WRITE A F|
00001080: 49 4C 45 00 8A 18 70 0D A0 38 00 A0 18 7A 0D 8F |ILE...p..8...z..|
00001090: 20 57 52 49 54 45 20 41 57 41 52 44 2E 4F 4C 44 | WRITE AWARD.OLD|
000010A0: 00 D2 18 84 0D 46 49 4C 45 B2 38 3A 53 41 B2 38 |.....FILE.8:SA.8|
000010B0: 3A 4E 41 24 B2 22 41 57 41 52 44 2E 4F 4C 44 22 |:NA$."AWARD.OLD"|
000010C0: 3A 8D 33 30 30 3A 8F 20 57 52 49 54 45 20 46 49 |:.300:. WRITE FI|
000010D0: 4C 45 00 0F 19 8E 0D 53 49 5A 45 B2 53 32 3A 99 |LE.....SIZE.S2:.|
000010E0: 22 57 52 49 54 49 4E 47 20 4E 45 57 20 41 57 41 |"WRITING NEW AWA|
000010F0: 52 44 20 46 49 4C 45 2E 22 3A 8D 31 31 30 30 30 |RD FILE.":.11000|
00001100: 3A 8F 20 57 52 49 54 45 20 41 20 46 49 4C 45 00 |:. WRITE A FILE.|
00001110: 16 19 98 0D A0 38 00 28 19 A2 0D 98 31 35 2C 22 |.....8.(....15,"|
00001120: 53 30 3A 55 44 53 54 22 00 46 19 AC 0D 4E 41 24 |S0:UDST".F...NA$|
00001130: B2 22 55 44 53 54 22 3A 8D 33 30 30 3A 98 38 2C |."UDST":.300:.8,|
00001140: 22 4F 22 3A A0 38 00 5A 19 B6 0D 89 20 34 30 31 |"O":.8.Z.... 401|
00001150: 30 3A 8F 20 54 4F 47 47 4C 45 00 60 19 9F 0F 8E |0:. TOGGLE.`....|
00001160: 00 7A 19 A0 0F 99 22 2D 2D 2D 2D 20 20 D4 4F 47 |.z...."---- .OG|
00001170: 47 4C 45 20 20 2D 2D 2D 2D 22 00 8D 19 A5 0F 99 |GLE ----"......|
00001180: 22 43 48 45 43 4B 49 4E 47 2E 2E 2E 22 00 AB 19 |"CHECKING..."...|
00001190: AA 0F 8F 20 54 4F 47 47 4C 45 20 42 55 54 20 44 |... TOGGLE BUT D|
000011A0: 4F 4E 27 54 20 53 41 59 20 53 4F 00 CB 19 B4 0F |ON'T SAY SO.....|
000011B0: 46 49 4C 45 B2 38 3A 53 41 B2 38 3A 8D 37 30 30 |FILE.8:SA.8:.700|
000011C0: 3A 8F 20 50 52 47 20 44 49 53 4B 00 FE 19 BE 0F |:. PRG DISK.....|
000011D0: 4E 41 24 B2 22 55 44 53 54 22 3A 8D 38 30 30 3A |NA$."UDST":.800:|
000011E0: 8B 45 52 20 A7 20 89 20 34 39 30 30 3A 8F 20 55 |.ER . . 4900:. U|
000011F0: 4E 2D 55 50 44 41 54 45 44 20 44 49 53 4B 00 32 |N-UPDATED DISK.2|
00001200: 1A C8 0F 4E 41 24 B2 22 41 53 33 2E 4F 2E 4F 4C |...NA$."AS3.O.OL|
00001210: 44 22 3A 8D 38 30 30 3A 8B 45 52 20 A7 20 89 20 |D":.800:.ER . . |
00001220: 34 38 30 30 3A 8F 20 4D 45 53 53 45 44 20 44 49 |4800:. MESSED DI|
00001230: 53 4B 00 66 1A D2 0F 4E 41 24 B2 22 41 57 41 52 |SK.f...NA$."AWAR|
00001240: 44 2E 4F 4C 44 22 3A 8D 38 30 30 3A 8B 45 52 20 |D.OLD":.800:.ER |
00001250: A7 20 89 20 34 38 30 30 3A 8F 20 4D 45 53 53 45 |. . 4800:. MESSE|
00001260: 44 20 44 49 53 4B 00 A4 1A DC 0F 4E 41 24 B2 58 |D DISK.....NA$.X|
00001270: 4A 24 3A 8D 38 30 30 3A 8B 20 45 52 B2 30 20 20 |J$:.800:. ER.0 |
00001280: A7 20 89 34 38 30 30 3A 8F 20 43 48 45 43 4B 20 |. .4800:. CHECK |
00001290: 46 4F 52 20 54 45 4D 50 20 46 49 4C 45 20 26 20 |FOR TEMP FILE & |
000012A0: 44 49 45 21 00 BC 1A E6 0F 4E 41 24 B2 55 44 24 |DIE!.....NA$.UD$|
000012B0: 3A 8D 32 30 30 3A 8F 20 52 45 41 44 00 D3 1A F0 |:.200:. READ....|
000012C0: 0F A1 23 38 2C 55 24 3A A0 38 3A 8F 20 53 54 41 |..#8,U$:.8:. STA|
000012D0: 54 55 53 00 F8 1A F5 0F 8B 20 55 24 B2 22 4F 22 |TUS...... U$."O"|
000012E0: A7 20 56 24 B2 22 4E 22 3A 56 31 24 B2 22 4E 45 |. V$."N":V1$."NE|
000012F0: 57 22 3A 89 34 31 30 30 00 22 1B FA 0F 8B 20 55 |W":.4100.".... U|
00001300: 24 B2 22 4E 22 A7 20 56 24 B2 22 4F 22 3A 56 31 |$."N". V$."O":V1|
00001310: 24 B2 22 4F 52 49 47 49 4E 41 4C 22 3A 89 34 31 |$."ORIGINAL":.41|
00001320: 30 30 00 3E 1B FF 0F 89 20 34 37 30 30 3A 8F 20 |00.>.... 4700:. |
00001330: 42 41 44 20 55 44 53 54 20 56 41 4C 55 45 00 55 |BAD UDST VALUE.U|
00001340: 1B 04 10 99 22 31 20 4F 46 20 32 20 46 49 4C 45 |...."1 OF 2 FILE|
00001350: 53 2E 2E 2E 22 00 77 1B 09 10 44 44 24 B2 22 43 |S...".w...DD$."C|
00001360: 30 3A 22 AA 58 4A 24 AA 22 3D 30 3A 41 57 41 52 |0:".XJ$."=0:AWAR|
00001370: 44 22 3A 8D 39 30 30 00 8F 1B 0E 10 44 44 24 B2 |D":.900.....DD$.|
00001380: 22 53 30 3A 41 57 41 52 44 22 3A 8D 39 30 30 00 |"S0:AWARD":.900.|
00001390: B3 1B 18 10 44 44 24 B2 22 43 30 3A 41 57 41 52 |....DD$."C0:AWAR|
000013A0: 44 3D 30 3A 41 57 41 52 44 2E 4F 4C 44 22 3A 8D |D=0:AWARD.OLD":.|
000013B0: 39 30 30 00 CF 1B 22 10 44 44 24 B2 22 53 30 3A |900...".DD$."S0:|
000013C0: 41 57 41 52 44 2E 4F 4C 44 22 3A 8D 39 30 30 00 |AWARD.OLD":.900.|
000013D0: F2 1B 2C 10 44 44 24 B2 22 52 30 3A 41 57 41 52 |..,.DD$."R0:AWAR|
000013E0: 44 2E 4F 4C 44 3D 30 3A 22 AA 58 4A 24 3A 8D 39 |D.OLD=0:".XJ$:.9|
000013F0: 30 30 00 09 1C 31 10 99 22 32 20 4F 46 20 32 20 |00...1.."2 OF 2 |
00001400: 46 49 4C 45 53 2E 2E 2E 22 00 2D 1C 36 10 8F 20 |FILES...".-.6.. |
00001410: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001420: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 4F 1C |-------------.O.|
00001430: 68 10 44 44 24 B2 22 52 30 3A 22 AA 58 4A 24 AA |h.DD$."R0:".XJ$.|
00001440: 22 3D 30 3A 41 53 33 2E 4F 22 3A 8D 39 30 30 00 |"=0:AS3.O":.900.|
00001450: 73 1C 72 10 44 44 24 B2 22 52 30 3A 41 53 33 2E |s.r.DD$."R0:AS3.|
00001460: 4F 3D 30 3A 41 53 33 2E 4F 2E 4F 4C 44 22 3A 8D |O=0:AS3.O.OLD":.|
00001470: 39 30 30 00 96 1C 7C 10 44 44 24 B2 22 52 30 3A |900...|.DD$."R0:|
00001480: 41 53 33 2E 4F 2E 4F 4C 44 3D 30 3A 22 AA 58 4A |AS3.O.OLD=0:".XJ|
00001490: 24 3A 8D 39 30 30 00 BA 1C 86 10 8F 20 2D 2D 2D |$:.900...... ---|
000014A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000014B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 CD 1C 8B 10 99 |----------......|
000014C0: 22 43 4C 45 41 4E 20 55 50 2E 2E 2E 22 00 E4 1C |"CLEAN UP..."...|
000014D0: 90 10 44 44 24 B2 22 53 30 3A 55 44 53 54 22 3A |..DD$."S0:UDST":|
000014E0: 8D 39 30 30 00 FD 1C 9A 10 4E 41 24 B2 55 44 24 |.900.....NA$.UD$|
000014F0: 3A 8D 33 30 30 3A 8F 20 57 52 49 54 45 00 0B 1D |:.300:. WRITE...|
00001500: A4 10 98 38 2C 56 24 3B 3A A0 38 00 15 1D CC 10 |...8,V$;:.8.....|
00001510: 58 20 B2 20 30 00 49 1D D6 10 58 24 28 58 29 B2 |X . 0.I...X$(X).|
00001520: 22 D4 48 45 20 44 49 53 4B 20 48 41 53 20 42 45 |".HE DISK HAS BE|
00001530: 45 4E 20 53 45 54 20 54 4F 20 54 48 45 20 22 AA |EN SET TO THE ".|
00001540: 56 31 24 3A 58 B2 58 AA 31 00 68 1D E0 10 58 24 |V1$:X.X.1.h...X$|
00001550: 28 58 29 B2 22 54 49 4D 49 4E 47 20 4D 4F 44 45 |(X)."TIMING MODE|
00001560: 2E 22 3A 58 B2 58 AA 31 00 73 1D EA 10 89 20 36 |.":X.X.1.s.... 6|
00001570: 30 30 30 00 86 1D 5C 12 8F 20 42 41 44 20 55 44 |000...\.. BAD UD|
00001580: 53 54 20 56 41 4C 00 90 1D 66 12 58 20 B2 20 30 |ST VAL...f.X . 0|
00001590: 00 C7 1D 70 12 58 24 28 58 29 B2 22 D4 48 45 52 |...p.X$(X).".HER|
000015A0: 45 20 49 53 20 41 20 50 52 4F 42 4C 45 4D 20 49 |E IS A PROBLEM I|
000015B0: 4E 20 54 48 45 20 55 44 53 54 20 46 49 4C 45 2C |N THE UDST FILE,|
000015C0: 22 3A 58 B2 58 AA 31 00 EA 1D 7A 12 58 24 28 58 |":X.X.1...z.X$(X|
000015D0: 29 B2 22 41 42 4F 52 54 49 4E 47 20 41 43 54 49 |)."ABORTING ACTI|
000015E0: 4F 4E 21 22 3A 58 B2 58 AA 31 00 F5 1D 84 12 89 |ON!":X.X.1......|
000015F0: 20 36 30 30 30 00 07 1E C0 12 8F 20 4D 45 53 53 | 6000...... MESS|
00001600: 45 44 20 44 49 53 4B 00 11 1E CA 12 58 20 B2 20 |ED DISK.....X . |
00001610: 30 00 47 1E D4 12 58 24 28 58 29 B2 22 D4 48 49 |0.G...X$(X).".HI|
00001620: 53 20 44 49 53 4B 20 48 41 53 20 42 45 45 4E 20 |S DISK HAS BEEN |
00001630: 50 41 52 54 49 41 4C 59 20 55 50 44 41 54 45 44 |PARTIALY UPDATED|
00001640: 22 3A 58 B2 58 AA 31 00 81 1E DE 12 58 24 28 58 |":X.X.1.....X$(X|
00001650: 29 B2 22 4F 52 20 27 54 4F 47 47 4C 45 44 27 20 |)."OR 'TOGGLED' |
00001660: 41 4E 44 20 53 45 45 4D 53 20 54 4F 20 42 45 20 |AND SEEMS TO BE |
00001670: 4D 45 53 53 45 44 20 55 50 2E 22 3A 58 B2 58 AA |MESSED UP.":X.X.|
00001680: 31 00 B6 1E E8 12 58 24 28 58 29 B2 22 D4 48 49 |1.....X$(X).".HI|
00001690: 53 20 49 53 20 4E 4F 54 20 46 49 58 41 42 4C 45 |S IS NOT FIXABLE|
000016A0: 2C 20 53 4F 20 C9 20 47 49 56 45 20 55 50 21 22 |, SO . GIVE UP!"|
000016B0: 3A 58 B2 58 AA 31 00 EE 1E ED 12 58 24 28 58 29 |:X.X.1.....X$(X)|
000016C0: B2 22 C9 46 20 59 4F 55 20 53 45 45 20 54 48 49 |.".F YOU SEE THI|
000016D0: 53 20 45 52 52 4F 52 20 4D 45 53 53 41 47 45 20 |S ERROR MESSAGE |
000016E0: 59 4F 55 20 41 52 45 22 3A 58 B2 58 AA 31 00 1A |YOU ARE":X.X.1..|
000016F0: 1F EF 12 58 24 28 58 29 B2 22 49 4E 20 53 4F 4D |...X$(X)."IN SOM|
00001700: 45 20 42 49 47 2C 20 C2 C9 C7 20 54 52 4F 55 42 |E BIG, ... TROUB|
00001710: 4C 45 21 22 3A 58 B2 58 AA 31 00 54 1F F0 12 58 |LE!":X.X.1.T...X|
00001720: 24 28 58 29 B2 22 D9 4F 55 52 20 44 49 53 4B 20 |$(X).".OUR DISK |
00001730: 49 53 20 42 4C 4F 57 4E 2C 20 53 4F 20 55 53 45 |IS BLOWN, SO USE|
00001740: 20 59 4F 55 52 20 42 41 43 4B 20 55 50 22 3A 58 | YOUR BACK UP":X|
00001750: B2 58 AA 31 00 85 1F F1 12 58 24 28 58 29 B2 22 |.X.1.....X$(X)."|
00001760: 59 4F 55 20 4D 41 44 45 2E 20 20 D9 4F 55 20 44 |YOU MADE. .OU D|
00001770: 49 44 20 44 49 44 4E 27 54 20 59 4F 55 3F 22 3A |ID DIDN'T YOU?":|
00001780: 58 B2 58 AA 31 00 90 1F F2 12 89 20 36 30 30 30 |X.X.1...... 6000|
00001790: 00 A1 1F 24 13 8F 20 55 4E 2D 55 50 44 41 54 45 |...$.. UN-UPDATE|
000017A0: 44 00 AB 1F 2E 13 58 20 B2 20 30 00 E0 1F 38 13 |D.....X . 0...8.|
000017B0: 58 24 28 58 29 B2 22 D4 48 49 53 20 44 49 53 4B |X$(X).".HIS DISK|
000017C0: 20 48 41 53 20 4E 4F 54 20 59 45 54 20 42 45 45 | HAS NOT YET BEE|
000017D0: 4E 20 55 50 44 41 54 45 44 22 3A 58 B2 58 AA 31 |N UPDATED":X.X.1|
000017E0: 00 10 20 42 13 58 24 28 58 29 B2 22 41 4E 44 20 |.. B.X$(X)."AND |
000017F0: 4D 55 53 54 20 42 45 20 42 45 46 4F 52 45 20 54 |MUST BE BEFORE T|
00001800: 48 45 20 54 4F 47 47 4C 45 22 3A 58 B2 58 AA 31 |HE TOGGLE":X.X.1|
00001810: 00 2D 20 4C 13 58 24 28 58 29 B2 22 57 49 4C 4C |.- L.X$(X)."WILL|
00001820: 20 57 4F 52 4B 2E 22 3A 58 B2 58 AA 31 00 38 20 | WORK.":X.X.1.8 |
00001830: 56 13 89 20 36 30 30 30 00 3E 20 87 13 8E 00 44 |V.. 6000.> ....D|
00001840: 20 88 13 8F 00 5A 20 92 13 8F 20 44 49 53 50 41 | ....Z ... DISPA|
00001850: 4C 41 59 20 41 20 46 49 4C 45 00 60 20 9C 13 8F |LAY A FILE.` ...|
00001860: 00 91 20 A6 13 4E 41 24 20 B2 20 22 44 4F 43 22 |.. ..NA$ . "DOC"|
00001870: 3A 8D 36 30 30 3A 8F 20 47 52 41 50 48 49 43 53 |:.600:. GRAPHICS|
00001880: 20 44 49 53 4B 20 2D 20 41 53 33 2E 4F 2E 4E 45 | DISK - AS3.O.NE|
00001890: 57 00 C4 20 B0 13 46 49 4C 45 20 B2 20 38 3A 53 |W.. ..FILE . 8:S|
000018A0: 41 20 B2 20 38 3A 4E 41 24 20 B2 20 22 44 4F 43 |A . 8:NA$ . "DOC|
000018B0: 22 3A 8D 32 30 30 3A 8F 20 22 54 45 58 54 2E 46 |":.200:. "TEXT.F|
000018C0: 49 4C 45 22 00 FD 20 BA 13 8B 20 45 52 20 A7 20 |ILE".. ... ER . |
000018D0: A0 38 3A 99 22 46 41 54 41 4C 20 45 52 52 4F 52 |.8:."FATAL ERROR|
000018E0: 3A 20 22 3B 45 52 24 3A 89 31 35 30 30 3A 8F 20 |: ";ER$:.1500:. |
000018F0: 45 52 52 4F 52 20 48 41 4E 44 4C 45 52 00 13 21 |ERROR HANDLER..!|
00001900: C4 13 89 20 32 30 36 30 3A 8F 20 2D 20 4D 4F 52 |... 2060:. - MOR|
00001910: 45 20 2D 00 25 21 70 17 8F 20 45 52 52 4F 52 20 |E -.%!p.. ERROR |
00001920: 50 52 49 4E 54 00 37 21 7A 17 81 20 41 20 B2 20 |PRINT.7!z.. A . |
00001930: 30 20 A4 20 58 AB 31 00 42 21 84 17 99 58 24 28 |0 . X.1.B!...X$(|
00001940: 41 29 00 48 21 8E 17 82 00 65 21 98 17 99 22 11 |A).H!....e!...".|
00001950: 20 20 20 20 20 20 D0 52 45 53 53 20 41 4E 59 20 | .RESS ANY |
00001960: CB 45 59 2E 22 00 8C 21 A2 17 A1 41 24 3A 8B 41 |.EY."..!...A$:.A|
00001970: 24 B3 B1 22 22 A7 20 89 20 36 30 35 30 3A 8F 20 |$.."". . 6050:. |
00001980: 46 4C 55 53 48 20 42 55 46 46 45 52 00 A3 21 AC |FLUSH BUFFER..!.|
00001990: 17 A1 41 24 3A 8B 41 24 B2 22 22 A7 20 89 20 36 |..A$:.A$."". . 6|
000019A0: 30 36 30 00 A9 21 B6 17 8E 00 D9 21 58 1B 99 22 |060..!.....!X.."|
000019B0: 93 11 11 11 11 11 11 11 11 11 11 11 11 20 20 20 |............. |
000019C0: 20 20 20 20 20 20 20 20 20 20 20 50 4C 45 41 53 | PLEAS|
000019D0: 45 20 57 41 49 54 2E 22 3B 00 27 22 59 1B 8F 52 |E WAIT.";.'"Y..R|
000019E0: 45 53 54 4F 52 45 3A 46 4F 52 20 41 20 3D 20 31 |ESTORE:FOR A = 1|
000019F0: 20 54 4F 20 34 31 3A 52 45 41 44 42 3A 50 4F 4B | TO 41:READB:POK|
00001A00: 45 34 30 39 36 30 2D 31 2B 41 2C 42 3A 4E 45 58 |E40960-1+A,B:NEX|
00001A10: 54 3A 52 45 41 44 42 3A 49 46 42 3E 3D 30 54 48 |T:READB:IFB>=0TH|
00001A20: 45 4E 20 53 54 4F 50 00 54 22 5A 1B 8C 3A 81 20 |EN STOP.T"Z..:. |
00001A30: 41 20 B2 20 31 20 A4 20 34 31 3A 87 42 3A 97 38 |A . 1 . 41:.B:.8|
00001A40: 32 37 AA 41 2C 42 3A 82 3A 87 42 3A 8B 42 B1 B2 |27.A,B:.:.B:.B..|
00001A50: 30 A7 20 90 00 83 22 5B 1B 99 22 9D 9D 9D 9D 9D |0. ..."[..".....|
00001A60: 9D 9D 9D 9D 9D 9D 9D 20 20 20 20 20 20 20 20 20 |....... |
00001A70: 20 20 20 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 | ............"|
00001A80: 3B 3A 8E 00 A8 22 62 1B 83 20 33 32 2C 39 32 2C |;:..."b.. 32,92,|
00001A90: 33 2C 31 37 33 2C 31 36 2C 33 2C 31 34 35 2C 32 |3,173,16,3,145,2|
00001AA0: 35 31 2C 37 36 2C 37 39 00 CD 22 6C 1B 83 20 33 |51,76,79.."l.. 3|
00001AB0: 2C 33 32 2C 39 32 2C 33 2C 31 37 37 2C 32 35 31 |,32,92,3,177,251|
00001AC0: 2C 31 34 31 2C 31 36 2C 33 2C 31 36 35 00 F5 22 |,141,16,3,165.."|
00001AD0: 76 1B 83 20 31 2C 39 2C 31 2C 31 33 33 2C 31 2C |v.. 1,9,1,133,1,|
00001AE0: 32 33 30 2C 32 35 31 2C 32 30 38 2C 32 2C 32 33 |230,251,208,2,23|
00001AF0: 30 2C 32 35 32 00 0F 23 80 1B 83 20 39 36 2C 31 |0,252..#... 96,1|
00001B00: 36 35 2C 31 2C 34 31 2C 32 35 34 2C 31 33 33 00 |65,1,41,254,133.|
00001B10: 23 23 8A 1B 83 20 31 2C 31 36 30 2C 30 2C 39 36 |##... 1,160,0,96|
00001B20: 2C 2D 31 00 3C 23 40 1F 8F 20 53 45 54 20 42 55 |,-1.<#@.. SET BU|
00001B30: 46 46 45 52 20 50 4F 49 4E 54 45 52 00 50 23 4A |FFER POINTER.P#J|
00001B40: 1F 8F 20 41 44 44 20 3D 20 41 44 44 52 45 53 53 |.. ADD = ADDRESS|
00001B50: 00 62 23 54 1F 4E 48 B2 B5 28 41 44 44 AD 32 35 |.b#T.NH..(ADD.25|
00001B60: 36 29 00 7A 23 5E 1F 4E 4C B2 41 44 44 20 AB 20 |6).z#^.NL.ADD . |
00001B70: 28 32 35 36 20 AC 20 4E 48 29 00 8B 23 68 1F 97 |(256 . NH)..#h..|
00001B80: 20 4C 2C 4E 4C 3A 97 48 2C 4E 48 00 91 23 72 1F | L,NL:.H,NH..#r.|
00001B90: 8E 00 AD 23 28 23 8F 20 52 45 54 55 52 4E 20 42 |...#(#. RETURN B|
00001BA0: 55 46 46 45 52 20 41 44 44 52 45 53 53 00 C6 23 |UFFER ADDRESS..#|
00001BB0: 32 23 8F 20 41 44 44 20 57 49 4C 4C 20 3D 20 50 |2#. ADD WILL = P|
00001BC0: 4F 49 4E 54 45 52 00 D4 23 3C 23 4E 4C 20 B2 20 |OINTER..#<#NL . |
00001BD0: C2 28 4C 29 00 E2 23 46 23 4E 48 20 B2 20 C2 28 |.(L)..#F#NH . .(|
00001BE0: 48 29 00 FC 23 50 23 41 44 44 20 B2 20 28 32 35 |H)..#P#ADD . (25|
00001BF0: 36 20 AC 20 4E 48 29 20 AA 20 4E 4C 00 02 24 5A |6 . NH) . NL..$Z|
00001C00: 23 8E 00 1F 24 10 27 8F 20 52 45 41 44 20 46 49 |#...$.'. READ FI|
00001C10: 4C 45 20 49 4E 54 4F 20 4D 45 4D 4F 52 59 2E 00 |LE INTO MEMORY..|
00001C20: 2C 24 1A 27 53 49 5A 45 20 B2 20 30 00 4C 24 24 |,$.'SIZE . 0.L$$|
00001C30: 27 A1 23 38 2C 41 24 3A 41 B2 30 3A 8B 41 24 B3 |'.#8,A$:A.0:.A$.|
00001C40: B1 22 22 A7 20 41 B2 C6 28 41 24 29 00 78 24 2E |."". A..(A$).x$.|
00001C50: 27 97 20 42 55 46 46 45 52 2C 41 3A 9E 42 50 3A |'. BUFFER,A:.BP:|
00001C60: 8F 20 50 55 54 20 41 20 42 59 54 45 20 49 4E 54 |. PUT A BYTE INT|
00001C70: 4F 20 4D 45 4D 4F 52 59 00 A2 24 38 27 53 49 5A |O MEMORY..$8'SIZ|
00001C80: 45 B2 53 49 5A 45 AA 31 3A 8B 20 28 53 49 5A 45 |E.SIZE.1:. (SIZE|
00001C90: 20 AF 20 32 35 35 29 B2 20 30 20 A7 20 99 22 52 | . 255). 0 . ."R|
00001CA0: 22 3B 00 B5 24 42 27 8B 53 54 B2 30 A7 20 89 20 |";..$B'.ST.0. . |
00001CB0: 31 30 30 32 30 00 C6 24 4C 27 99 22 20 20 44 4F |10020..$L'." DO|
00001CC0: 4E 45 2E 22 3A 8E 00 D9 24 F8 2A 8F 20 57 52 49 |NE.":...$.*. WRI|
00001CD0: 54 45 20 41 20 46 49 4C 45 00 01 25 02 2B 81 20 |TE A FILE..%.+. |
00001CE0: 41 20 B2 20 31 20 A4 20 53 49 5A 45 3A 8B 20 28 |A . 1 . SIZE:. (|
00001CF0: 41 20 AF 20 32 35 35 29 B2 30 A7 20 99 22 57 22 |A . 255).0. ."W"|
00001D00: 3B 00 22 25 0C 2B 9E 42 47 3A 8F 20 47 45 54 20 |;."%.+.BG:. GET |
00001D10: 41 20 42 59 54 45 20 46 52 4F 4D 20 4D 45 4D 4F |A BYTE FROM MEMO|
00001D20: 52 59 00 39 25 16 2B 98 38 2C C7 28 C2 28 42 55 |RY.9%.+.8,.(.(BU|
00001D30: 46 46 45 52 29 29 3B 3A 82 00 4A 25 20 2B 99 22 |FFER));:..J% +."|
00001D40: 20 20 44 4F 4E 45 2E 22 3A 8E 00 5F 25 E0 2E 8F | DONE.":.._%...|
00001D50: 20 D3 20 5A 2E 4F 20 54 4F 20 41 57 41 52 44 00 | . Z.O TO AWARD.|
00001D60: A4 25 EA 2E 99 22 11 20 20 2D 2D 2D 2D 20 20 D8 |.%...". ---- .|
00001D70: 45 54 45 43 20 D5 50 44 41 54 45 20 20 2D 2D 2D |ETEC .PDATE ---|
00001D80: 2D 22 3A 41 44 44 B2 42 41 53 49 43 3A 8D 38 30 |-":ADD.BASIC:.80|
00001D90: 30 30 3A 8F 53 45 54 20 42 55 46 46 45 52 3D 42 |00:.SET BUFFER=B|
00001DA0: 41 53 49 43 00 BD 25 FE 2E 8D 36 30 30 3A 8F 20 |ASIC..%...600:. |
00001DB0: 47 52 41 50 48 49 43 53 20 44 49 53 4B 00 DC 25 |GRAPHICS DISK..%|
00001DC0: 08 2F 46 49 4C 45 B2 38 3A 53 41 B2 38 3A 4E 41 |./FILE.8:SA.8:NA|
00001DD0: 24 B2 22 5A 2E 4F 22 3A 8D 32 30 30 00 1D 26 12 |$."Z.O":.200..&.|
00001DE0: 2F 8B 20 45 52 20 A7 20 A0 38 3A 58 B2 31 3A 58 |/. ER . .8:X.1:X|
00001DF0: 24 28 30 29 B2 22 D8 45 54 45 43 20 42 4F 4F 54 |$(0).".ETEC BOOT|
00001E00: 20 46 49 4C 45 20 4E 4F 54 20 46 4F 55 4E 44 21 | FILE NOT FOUND!|
00001E10: 22 3A 89 20 36 30 30 30 3A 8F 45 52 52 00 4C 26 |":. 6000:.ERR.L&|
00001E20: 1C 2F 8D 39 30 30 30 3A 41 31 B2 41 44 44 3A 99 |./.9000:A1.ADD:.|
00001E30: 22 52 45 41 44 49 4E 47 20 5A 2E 4F 2E 22 3A 8D |"READING Z.O.":.|
00001E40: 31 30 30 30 30 3A 8F 20 52 45 41 44 00 5B 26 26 |10000:. READ.[&&|
00001E50: 2F A0 38 3A 53 31 B2 53 49 5A 45 00 71 26 30 2F |/.8:S1.SIZE.q&0/|
00001E60: 8F 20 57 52 49 54 45 20 4E 45 57 20 41 57 41 52 |. WRITE NEW AWAR|
00001E70: 44 00 AC 26 35 2F 8D 37 30 30 3A 4E 41 24 B2 22 |D..&5/.700:NA$."|
00001E80: 55 44 53 54 22 3A 8D 38 30 30 3A 8B 20 45 52 20 |UDST":.800:. ER |
00001E90: B2 20 30 20 A7 20 89 20 31 32 35 30 30 3A 8F 20 |. 0 . . 12500:. |
00001EA0: 45 58 49 53 54 53 20 45 52 52 4F 52 00 DE 26 3A |EXISTS ERROR..&:|
00001EB0: 2F 44 44 24 B2 22 53 30 3A 41 57 41 52 44 22 3A |/DD$."S0:AWARD":|
00001EC0: 8D 39 30 30 3A 8B 20 45 52 20 B1 31 20 A7 20 99 |.900:. ER .1 . .|
00001ED0: 22 45 52 52 4F 52 21 21 21 21 21 22 3A 80 00 1C |"ERROR!!!!!":...|
00001EE0: 27 44 2F 41 44 44 B2 42 41 53 49 43 3A 8D 38 30 |'D/ADD.BASIC:.80|
00001EF0: 30 30 3A 46 49 4C 45 B2 38 3A 53 41 B2 38 3A 4E |00:FILE.8:SA.8:N|
00001F00: 41 24 B2 22 41 57 41 52 44 22 3A 8D 33 30 30 3A |A$."AWARD":.300:|
00001F10: 8F 20 57 52 49 54 45 20 46 49 4C 45 00 56 27 4E |. WRITE FILE.V'N|
00001F20: 2F 53 49 5A 45 20 B2 20 53 31 3A 99 22 57 52 49 |/SIZE . S1:."WRI|
00001F30: 54 49 4E 47 20 4E 45 57 20 41 57 41 52 44 2E 22 |TING NEW AWARD."|
00001F40: 3A 8D 31 31 30 30 30 3A 8F 20 57 52 49 54 45 20 |:.11000:. WRITE |
00001F50: 41 20 46 49 4C 45 00 5F 27 58 2F A0 38 3A 8E 00 |A FILE._'X/.8:..|
00001F60: 69 27 D4 30 58 20 B2 20 30 00 A2 27 DE 30 58 24 |i'.0X . 0..'.0X$|
00001F70: 28 58 29 B2 22 D4 48 49 53 20 44 49 53 4B 20 48 |(X).".HIS DISK H|
00001F80: 41 53 20 42 45 45 4E 20 55 50 44 41 54 45 44 20 |AS BEEN UPDATED |
00001F90: 46 4F 52 20 54 49 4D 4D 49 4E 47 22 3A 58 B2 58 |FOR TIMMING":X.X|
00001FA0: AA 31 00 D9 27 E8 30 58 24 28 58 29 B2 22 41 4E |.1..'.0X$(X)."AN|
00001FB0: 44 20 43 41 4E 4E 4F 54 20 42 45 20 55 50 44 41 |D CANNOT BE UPDA|
00001FC0: 54 45 44 20 46 4F 52 20 54 48 45 20 D8 45 54 45 |TED FOR THE .ETE|
00001FD0: 58 2E 22 3A 58 B2 58 AA 31 00 0F 28 F2 30 58 24 |X.":X.X.1..(.0X$|
00001FE0: 28 58 29 B2 22 D9 4F 55 20 57 49 4C 4C 20 48 41 |(X).".OU WILL HA|
00001FF0: 56 45 20 54 4F 20 55 53 45 20 59 4F 55 52 20 42 |VE TO USE YOUR B|
00002000: 41 43 4B 55 50 20 49 46 22 3A 58 B2 58 AA 31 00 |ACKUP IF":X.X.1.|
00002010: 3C 28 FC 30 58 24 28 58 29 B2 22 59 4F 55 20 4D |<(.0X$(X)."YOU M|
00002020: 55 53 54 20 48 41 56 45 20 54 48 49 53 20 55 50 |UST HAVE THIS UP|
00002030: 44 41 54 45 2E 22 3A 58 B2 58 AA 31 00 4F 28 06 |DATE.":X.X.1.O(.|
00002040: 31 89 20 36 30 30 30 3A 8F 20 45 52 52 4F 52 00 |1. 6000:. ERROR.|
00002050: 71 28 C8 32 8F 20 43 48 45 43 4B 20 49 46 20 49 |q(.2. CHECK IF I|
00002060: 4E 53 54 52 55 43 54 49 4F 4E 53 20 52 45 41 44 |NSTRUCTIONS READ|
00002070: 2E 00 88 28 D2 32 8B 20 41 24 B2 22 31 22 A7 20 |...(.2. A$."1". |
00002080: 41 24 B2 22 59 22 3A 8E 00 A1 28 DC 32 8B 20 49 |A$."Y":...(.2. I|
00002090: 4E 20 B3 B1 20 30 20 A7 20 41 24 B2 22 59 22 3A |N .. 0 . A$."Y":|
000020A0: 8E 00 C3 28 E6 32 99 22 11 11 11 20 20 20 20 20 |...(.2."... |
000020B0: 20 20 20 20 20 41 52 45 20 59 4F 55 20 53 55 52 | ARE YOU SUR|
000020C0: 45 3F 22 00 DB 28 F0 32 A1 41 24 3A 8B 41 24 B2 |E?"..(.2.A$:.A$.|
000020D0: 22 22 A7 20 89 20 31 33 30 34 30 00 E1 28 FA 32 |"". . 13040..(.2|
000020E0: 8E 00 00 00 |.... |
........<...BG.839:BP.828:L.251:H.252:BU
FFER.784:BASIC.40960.G.... 1000._.... ER
= DISK ERROR #.}.... ER$ = DISK ERROR S
TRING...... ET AND ES ARE THE ERROR TRAC
K AND SECTOR...(.. FT$ = THE CURRENT FIL
E TYPE (FT$ = "P" OR "S") THE DEFAULT IS
"P"...`.....A.....B.....C.. 10000.$.D..
OPEN A FILE.8.N.. FILE = FILE #.M.X.. D
EV = DEVICE #.J.... SA = SECONDARY ADDRE
SS...... NA$ = FILE NAME...... FILE, DEV
, SA, NA$...... PRINTFILE, DEV, SA, NA$
.M. ..15,ER,ER$,ET,ES.S.....Y.H.....R..
OPEN A FILE FOR READ............ IF NO F
ILE TYPE THEN USE NONE.B.... FT$.."". NA
$.NA$.",".FT$.",R".H.....T.... 100:..Z.,
...V.6.. OPEN A FILE FOR WRITE.|.@.....J
.. FT$."". NA$.NA$.",P"...T.. FT$.."". N
A$.NA$.",".FT$.G.^.NA$.NA$.",W".S.H.. 10
0:..Y.......... CHECK ON THE EXISTANCE O
F A FILE............ NA$ = FILE NAME.H..
.. WD$ = NAME OF DISK WE ARE LOOKING FOR
.U.B.F . FILE.B.L.N$ . NA$.M.V.S . SA.Y.
..SA . 12.....FILE . 12...... 200:. ER .
0 . FILE:FILE . F:NA$.N$:SA.S:..E...
FILE.Y.... "WRONG DISK:". .... "PLEASE
INSERT THE ";WD$;" DISK":." AN
D PRESS ANY KEY".F....A$:.A$.."". . 530:
. CLEAR BUFFER.\....A$:.A$."". . 540.J.&
..A$:. 500.P.X.....B.. LOOK FOR A FILE O
N THE NEW GRAPHICS DISK...L.NA$.GD$.N.V.
WD$ . "NEW GRAPHICS DISK":.400.T.....Z..
.....F.. CHECK ON A FILE ON THE PROGRAM
DISK...P.NA$.PF$...Z.WD$ . "PROGRAM DISK
":.400.4.....:. ...M.*.. TOUCH A FILE.S.
4...I.>.. NA$ = FILE NAME...R.F.FILE:S.S
A:N$.NA$...\.FILE . 12:SA . 12:.200: FIL
E...F.NA$.N$:SA.S:FILE.F:.......15,DD$:.
15,ER,ER$,ET,ES:.ER.1..ER,ER$:.6040:. PR
ESSKEY.............;....7000:.15,8,15:DE
V . 8:. 53280,12:.53281,15:."....";.....
PF$."AW":GD$."UD":UD$."UDST":XJ$."XXXJJJ
TEMP":. UPDATE FILES TO LOOK FOR......".
...";......" AWARDWARE UPDATE PROGRA
M V1.0"......" COPYRIGHT 1987 HITECH E
XPRESSIONS."......" JEFF JONES
9/14/87......".....";.E...." 1
. PRINT INSTRUCTIONS".K.....R.$.."
2. APPLY UPDATE TO AW".X.)........"
3. TOGGLE UPDATE ON A DISK"...3
...M.8.." 4. XETEX SG V1.72"...
L..A$:.A$."". . 1100...Q.. A$."." . A$."
." . .".";:....V..A$."4" . . 1100.2.`..
A$ . "%" . A$. "5".I.J.. A$ ."1" . . 110
0.F.T.A . F(A$) . (F("1") . 1)...Y..1300
0:.A$.."Y" . . 1010...~.. A . 2000,3000,
4000,12000,5000 : . 1010...... 1100.R...
."ERROR HANDLER":..X.P.....Z.. DISPALAY
A FILE.......%...NA$ . "INS":.600:. GRAP
HICS DISK - AS3.O.NEW.X...FILE . 8:SA .
8:NA$ . "INS":.200:. "TEXT.FILE"...... E
R . 8:."FATAL ERROR: ";ER$:.1500:. ERRO
R HANDLER...... A . 1 . 22.....L$ . ""..
. .. B . 1 . 38.J.*..#8,A$...4.. ((A$..G
(13)) . (ST . 0)) . L$.L$.A$:. B...>.. L
$:. ST . 0 . . A.".H.. ST . . 2500.P....
". PRESS A KEY. _ = END....
..............................";.V......
...."--- MORE ---............";...... BB
. 1 . 50.A....A$:.A$.."". . 2300.G.J...
..T.."--- .MORE. ---............";......
BB . 1 . 50......A$:.A$.."". . 2300....
...%.... 2210.S...."
..........................
.........";......A$.."_". . 2060..... 8:
....D. 8:.". END OF FILE - PRESS ANY K
EY".R.N..A$:.A$."". . 2510...X..".
":IN.1:..K
....". ---- UPDATE DISK ----":ADD.BAS
IC:.8000:. SET BUFFER=BASIC.D....600:. G
RAPHICS DISK...B.FILE.8:SA.8:NA$."AS3.O.
NEW":.200.L.L.. ER . 8:X.1:X$(0)."NEW S
HELL FILE NOT FOUND!":. 6000:. ERROR...V
..9000:A1.ADD:."READING AS3.O.NEW.":.100
00:. READ..... 8:S1.SIZE.5...FILE.8:SA.8
:NA$."AWARD.NEW":.200.W.... ER . 8:X.1:
X$(0)."NEW BOOT FILE NOT FOUND!":. 6000:
. ERROR......9000:A2.ADD:."READING AWARD
.NEW.":. 10000:.READ..... 8:S2.SIZE.S...
.700:. PROGRAM DISK.....NA$.UD$:.800:. C
HECK UPDATE STATUS...&.. ER . 62 . . 320
0...0.X . 0.Q.:.X$(X)."THIS DISK HAS ALR
EADY BEEN UPDATED!":X.X.1...D.X$(X)."YOU
NEED TO UP DATE A DISK ONLY ONCE!":X.X.
1...N.. 6000:. ERROR.C...NA$."AS3.O.OLD"
:.800:. ER . . 3300.K...X.0.....X$(X)."T
HIS DISK HAS BEEN DAMAGED!":X.X.1.0...X$
(X)."UPDATING WOULD CAUSE FURTHER DAMAGE
!":X.X.1.T...X$(X)."UPDATE ABORTED...":X
.X.1.G.... 6000:. ERROR.....NA$."AWARD.O
LD":.800:. ER . . 3400...... 3210:. ABOR
T...H.FILE.8:SA.8:NA$.UD$:.300:.8,"X": 8
:. CREATE,WRITE UDST...M.ADD . BASIC:.80
00:. RESET BUFFER...R.. WRITE AS3.O.OLD.
I.\.FILE.8:SA.8:NA$."AS3.O.OLD":.300:. W
RITE FILE...F.SIZE . S1:."WRITING NEW AS
3.O.":.11000:. WRITE A FILE...P. 8. .Z..
WRITE AWARD.OLD.R...FILE.8:SA.8:NA$."AW
ARD.OLD":.300:. WRITE FILE.....SIZE.S2:.
"WRITING NEW AWARD FILE.":.11000:. WRITE
A FILE..... 8.(....15,"S0:UDST".F...NA$
."UDST":.300:.8,"O": 8.Z.... 4010:. TOGG
LE.`.....Z. .."---- TOGGLE ----"......
"CHECKING..."...... TOGGLE BUT DON'T SAY
SO.K...FILE.8:SA.8:.700:. PRG DISK.....
NA$."UDST":.800:.ER . . 4900:. UN-UPDATE
D DISK.2.H.NA$."AS3.O.OLD":.800:.ER . .
4800:. MESSED DISK.F.R.NA$."AWARD.OLD":.
800:.ER . . 4800:. MESSED DISK.....NA$.X
J$:.800:. ER.0 . .4800:. CHECK FOR TEMP
FILE & DIE!.....NA$.UD$:.200:. READ.S..
..#8,U$: 8:. STATUS...... U$."O". V$."N"
:V1$."NEW":.4100.".... U$."N". V$."O":V1
$."ORIGINAL":.4100.>.... 4700:. BAD UDST
VALUE.U...."1 OF 2 FILES...".W...DD$."C
0:".XJ$."=0:AWARD":.900.....DD$."S0:AWAR
D":.900.....DD$."C0:AWARD=0:AWARD.OLD":.
900.O.".DD$."S0:AWARD.OLD":.900...,.DD$.
"R0:AWARD.OLD=0:".XJ$:.900...1.."2 OF 2
FILES...".-.6.. ------------------------
-----.O.H.DD$."R0:".XJ$."=0:AS3.O":.900.
S.R.DD$."R0:AS3.O=0:AS3.O.OLD":.900...|.
DD$."R0:AS3.O.OLD=0:".XJ$:.900...... ---
--------------------------.M...."CLEAN U
P...".....DD$."S0:UDST":.900.....NA$.UD$
:.300:. WRITE......8,V$;: 8...L.X . 0.I.
V.X$(X)."THE DISK HAS BEEN SET TO THE ".
V1$:X.X.1.H...X$(X)."TIMING MODE.":X.X.1
.S.... 6000...\.. BAD UDST VAL...F.X . 0
.G.P.X$(X)."THERE IS A PROBLEM IN THE UD
ST FILE,":X.X.1...Z.X$(X)."ABORTING ACTI
ON!":X.X.1...... 6000...... MESSED DISK.
..J.X . 0.G.T.X$(X)."THIS DISK HAS BEEN
PARTIALY UPDATED":X.X.1.....X$(X)."OR 'T
OGGLED' AND SEEMS TO BE MESSED UP.":X.X.
1.....X$(X)."THIS IS NOT FIXABLE, SO I G
IVE UP!":X.X.1.....X$(X)."IF YOU SEE THI
S ERROR MESSAGE YOU ARE":X.X.1.....X$(X)
."IN SOME BIG, BIG TROUBLE!":X.X.1.T...X
$(X)."YOUR DISK IS BLOWN, SO USE YOUR BA
CK UP":X.X.1.....X$(X)."YOU MADE. YOU D
ID DIDN'T YOU?":X.X.1...... 6000...$.. U
N-UPDATED.....X . 0...8.X$(X)."THIS DISK
HAS NOT YET BEEN UPDATED":X.X.1.. B.X$(
X)."AND MUST BE BEFORE THE TOGGLE":X.X.1
.- L.X$(X)."WILL WORK.":X.X.1.8 V.. 6000
.> ....D ....Z ... DISPALAY A FILE.` ...
.. ..NA$ . "DOC":.600:. GRAPHICS DISK -
AS3.O.NEW.D ..FILE . 8:SA . 8:NA$ . "DOC
":.200:. "TEXT.FILE".. ... ER . 8:."FAT
AL ERROR: ";ER$:.1500:. ERROR HANDLER..!
D.. 2060:. - MORE -.%!P.. ERROR PRINT.7!
Z.. A . 0 . X.1.B!...X$(A).H!....E!...".
PRESS ANY KEY."..!...A$:.A$.."". .
6050:. FLUSH BUFFER..!...A$:.A$."". . 6
060..!....Y!X..".............
PLEASE WAIT.";.'"Y..RESTORE:FOR A = 1
TO 41:READB:POKE40960-1+A,B:NEXT:READB:
IFB>=0THEN STOP.T"Z..:. A . 1 . 41:.B:.8
27.A,B:.:.B:.B..0. ..."[.."............
............";:..."B.. 32,92,
3,173,16,3,145,251,76,79.M"L.. 3,32,92,3
,177,251,141,16,3,165.."V.. 1,9,1,133,1,
230,251,208,2,230,252..#... 96,165,1,41,
254,133.##... 1,160,0,96,-1.<#@.. SET BU
FFER POINTER.P#J.. ADD = ADDRESS.B#T.NH.
.(ADD.256).Z#^.NL.ADD . (256 . NH)..#H..
L,NL:.H,NH..#R....#(#. RETURN BUFFER AD
DRESS.F#2#. ADD WILL = POINTER.T#<#NL .
B(L)..#F#NH . B(H)..#P#ADD . (256 . NH)
. NL..$Z#...$.'. READ FILE INTO MEMORY..
,$.'SIZE . 0.L$$'.#8,A$:A.0:.A$.."". A.F
(A$).X$.'. BUFFER,A:.BP:. PUT A BYTE INT
O MEMORY..$8'SIZE.SIZE.1:. (SIZE . 255).
0 . ."R";..$B'.ST.0. . 10020.F$L'." DO
NE.":..Y$.*. WRITE A FILE..%.+. A . 1 .
SIZE:. (A . 255).0. ."W";."%.+.BG:. GET
A BYTE FROM MEMORY.9%.+.8,G(B(BUFFER));:
..J% +." DONE.":.._%... S Z.O TO AWARD.
.%...". ---- XETEC UPDATE ----":ADD.B
ASIC:.8000:.SET BUFFER=BASIC..%...600:.
GRAPHICS DISK..%./FILE.8:SA.8:NA$."Z.O":
.200..&./. ER . 8:X.1:X$(0)."XETEC BOOT
FILE NOT FOUND!":. 6000:.ERR.L&./.9000:
A1.ADD:."READING Z.O.":.10000:. READ.[&&
/ 8:S1.SIZE.Q&0/. WRITE NEW AWARD..&5/.7
00:NA$."UDST":.800:. ER . 0 . . 12500:.
EXISTS ERROR..&:/DD$."S0:AWARD":.900:. E
R .1 . ."ERROR!!!!!":...'D/ADD.BASIC:.80
00:FILE.8:SA.8:NA$."AWARD":.300:. WRITE
FILE.V'N/SIZE . S1:."WRITING NEW AWARD."
:.11000:. WRITE A FILE._'X/ 8:..I'T0X .
0..'.0X$(X)."THIS DISK HAS BEEN UPDATED
FOR TIMMING":X.X.1.Y'.0X$(X)."AND CANNOT
BE UPDATED FOR THE XETEX.":X.X.1..(.0X$
(X)."YOU WILL HAVE TO USE YOUR BACKUP IF
":X.X.1.<(.0X$(X)."YOU MUST HAVE THIS UP
DATE.":X.X.1.O(.1. 6000:. ERROR.Q(H2. CH
ECK IF INSTRUCTIONS READ...(R2. A$."1".
A$."Y":...(.2. IN .. 0 . A$."Y":..C(.2."
... ARE YOU SURE?"..(.2.A$:.A$.
"". . 13040..(.2....
> CLICK IMAGE PREVIEW FOR FULL MODAL