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

GSAVE

FILE INFORMATION

FILENAME(S): GSAVE

FILE TYPE(S): PRG

FILE SIZE: 2.5K

FIRST SEEN: 2025-11-30 19:12:00

APPEARS ON: 2 disk(s)

FILE HASH

142bfca285ddb48fc540192721e6975c179e176c3fdbd8dee88ecdb88391b152

FOUND ON DISKS (2 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
MECH BRIGADE GSAVE PRG Commodore 64 Extras 16 19 DOWNLOAD FILE
SPEL MECHBRIGADE GSAVE PRG DuncanTwain 19 8 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 1F 08 01 00 8F 20  2A 2A 2A 2A 2A 2A 2A 2A  |....... ********|
00000010: 2A 47 53 41 56 45 2A 2A  2A 2A 2A 2A 2A 2A 2A 00  |*GSAVE*********.|
00000020: 49 08 05 00 97 35 31 2C  30 3A 97 35 32 2C 34 38  |I....51,0:.52,48|
00000030: 3A 97 35 35 2C 30 3A 97  35 36 2C 39 36 3A 9C 3A  |:.55,0:.56,96:.:|
00000040: 43 24 B2 C7 28 31 34 37  29 00 60 08 0A 00 97 35  |C$..(147).`....5|
00000050: 33 32 36 35 2C C2 28 35  33 32 36 35 29 B0 31 36  |3265,.(53265).16|
00000060: 00 91 08 32 00 50 24 B2  22 20 20 20 20 20 20 20  |...2.P$."       |
00000070: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000080: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000090: 22 00 9A 08 3C 00 44 31  B2 38 00 DC 08 64 00 99  |"...<.D1.8...d..|
000000A0: 22 93 22 3A 97 36 34 36  2C 31 3A 99 22 11 11 22  |".":.646,1:.".."|
000000B0: A3 32 29 22 12 50 4C 41  43 45 20 59 4F 55 52 20  |.2)".PLACE YOUR |
000000C0: 53 41 56 45 2D 47 41 4D  45 20 44 49 53 4B 20 49  |SAVE-GAME DISK I|
000000D0: 4E 20 44 52 49 56 45 20  23 31 92 22 00 E7 08 65  |N DRIVE #1."...e|
000000E0: 00 8D 20 35 30 30 30 00  08 09 84 03 99 22 93 11  |.. 5000......"..|
000000F0: 11 1D 1D 12 53 41 56 45  2D 47 41 4D 45 20 52 4F  |....SAVE-GAME RO|
00000100: 55 54 49 4E 45 53 92 22  00 34 09 B6 03 99 3A 99  |UTINES.".4....:.|
00000110: 22 1D 1D 28 53 29 41 56  45 20 47 41 4D 45 22 3A  |"..(S)AVE GAME":|
00000120: 99 3A 99 22 1D 1D 28 44  29 45 4C 45 54 45 20 46  |.:."..(D)ELETE F|
00000130: 49 4C 45 22 00 50 09 B7  03 99 3A 99 22 1D 1D 28  |ILE".P....:."..(|
00000140: 4C 29 49 53 54 20 44 49  52 45 43 54 4F 52 59 22  |L)IST DIRECTORY"|
00000150: 00 7B 09 B8 03 99 3A 99  22 1D 1D 28 49 29 4E 49  |.{....:."..(I)NI|
00000160: 54 20 44 49 53 4B 22 3A  99 3A 99 22 1D 1D 28 45  |T DISK":.:."..(E|
00000170: 29 58 49 54 22 3A 99 22  1D 1D 22 00 92 09 BB 03  |)XIT":."..".....|
00000180: A1 20 41 24 3A 8B 20 41  24 B2 22 22 20 89 20 39  |. A$:. A$."" . 9|
00000190: 35 35 00 A6 09 C0 03 8B  20 41 24 B2 22 53 22 20  |55...... A$."S" |
000001A0: 89 20 31 30 30 30 00 BA  09 C5 03 8B 20 41 24 B2  |. 1000...... A$.|
000001B0: 22 44 22 20 89 20 36 30  30 30 00 CE 09 CA 03 8B  |"D" . 6000......|
000001C0: 20 41 24 B2 22 4C 22 20  89 20 32 32 30 30 00 E2  | A$."L" . 2200..|
000001D0: 09 CF 03 8B 20 41 24 B2  22 49 22 20 89 20 33 30  |.... A$."I" . 30|
000001E0: 30 30 00 F6 09 D9 03 8B  20 41 24 B2 22 45 22 20  |00...... A$."E" |
000001F0: 89 20 31 31 33 30 00 00  0A DE 03 89 20 39 35 35  |. 1130...... 955|
00000200: 00 25 0A E8 03 8F 2A 2A  2A 2A 2A 2A 2A 2A 44 49  |.%....********DI|
00000210: 53 4B 20 53 41 56 45 2A  2A 2A 2A 2A 2A 2A 2A 2A  |SK SAVE*********|
00000220: 2A 2A 2A 2A 2A 00 3A 0A  ED 03 51 B2 32 38 30 30  |*****.:...Q.2800|
00000230: 30 3A 51 4E B2 33 39 31  36 37 00 56 0A F2 03 41  |0:QN.39167.V...A|
00000240: 48 B2 B5 28 51 AD 32 35  36 29 3A 41 4C B2 51 AB  |H..(Q.256):AL.Q.|
00000250: 41 48 AC 32 35 36 00 74  0A F7 03 42 48 B2 B5 28  |AH.256.t...BH..(|
00000260: 51 4E AD 32 35 36 29 3A  42 4C B2 51 4E AB 42 48  |QN.256):BL.QN.BH|
00000270: AC 32 35 36 00 90 0A F8  03 99 22 93 11 11 1D 1D  |.256......".....|
00000280: 53 41 56 45 20 46 49 4C  45 20 4E 41 4D 45 22 3B  |SAVE FILE NAME";|
00000290: 00 99 0A F9 03 85 20 41  24 00 AC 0A FC 03 9F 31  |...... A$......1|
000002A0: 35 2C 44 31 2C 31 35 2C  22 49 30 22 00 C1 0A FE  |5,D1,15,"I0"....|
000002B0: 03 84 31 35 2C 45 4E 2C  45 4D 24 2C 45 54 2C 45  |..15,EN,EM$,ET,E|
000002C0: 53 00 D5 0A 00 04 8B 20  45 4E B3 B1 30 20 20 89  |S...... EN..0  .|
000002D0: 20 33 30 35 31 00 F0 0A  01 04 9F 33 2C 44 31 2C  | 3051......3,D1,|
000002E0: 31 2C 22 30 3A 22 AA 41  24 AA 22 2C 50 2C 57 22  |1,"0:".A$.",P,W"|
000002F0: 00 05 0B 02 04 84 31 35  2C 45 4E 2C 45 4D 24 2C  |......15,EN,EM$,|
00000300: 45 54 2C 45 53 00 0C 0B  03 04 A0 33 00 1F 0B 06  |ET,ES......3....|
00000310: 04 8B 20 45 4E B2 30 30  20 89 20 31 30 35 30 00  |.. EN.00 . 1050.|
00000320: 33 0B 0B 04 8B 20 45 4E  B3 B1 36 33 20 A7 20 33  |3.... EN..63 . 3|
00000330: 30 35 35 00 59 0B 10 04  99 22 1D 1D 46 49 4C 45  |055.Y...."..FILE|
00000340: 20 45 58 49 53 54 53 2E  20 20 52 45 50 4C 41 43  | EXISTS.  REPLAC|
00000350: 45 20 28 59 2F 4E 29 22  3B 00 70 0B 15 04 A1 20  |E (Y/N)";.p.... |
00000360: 42 24 3A 8B 20 42 24 B2  22 22 A7 20 31 30 34 35  |B$:. B$."". 1045|
00000370: 00 8D 0B 16 04 99 42 24  3A 8B 20 42 24 B3 B1 22  |......B$:. B$.."|
00000380: 59 22 20 A7 20 A0 31 35  3A 89 39 30 30 00 A5 0B  |Y" . .15:.900...|
00000390: 1A 04 98 31 35 2C 22 53  30 3A 22 AA 41 24 AA 22  |...15,"S0:".A$."|
000003A0: 2C 50 2C 57 22 00 AE 0B  1F 04 A0 20 31 35 00 D4  |,P,W"...... 15..|
000003B0: 0B 20 04 97 20 37 38 30  2C 31 35 3A 97 20 37 38  |. .. 780,15:. 78|
000003C0: 31 2C 38 3A 97 20 37 38  32 2C 32 35 35 3A 9E 36  |1,8:. 782,255:.6|
000003D0: 35 34 36 36 00 00 0C 21  04 4C B2 C3 28 41 24 29  |5466...!.L..(A$)|
000003E0: 3A 81 20 49 B2 31 A4 20  4C 3A 97 20 38 32 37 AA  |:. I.1. L:. 827.|
000003F0: 49 2C C6 28 CA 28 41 24  2C 49 2C 31 29 29 3A 82  |I,.(.(A$,I,1)):.|
00000400: 00 25 0C 22 04 97 20 37  38 30 2C 4C 3A 97 20 37  |.%.".. 780,L:. 7|
00000410: 38 31 2C 36 30 3A 97 20  37 38 32 2C 33 3A 9E 20  |81,60:. 782,3:. |
00000420: 36 35 34 36 39 00 39 0C  24 04 97 32 35 31 2C 41  |65469.9.$..251,A|
00000430: 4C 3A 97 32 35 32 2C 41  48 00 62 0C 29 04 97 37  |L:.252,AH.b.)..7|
00000440: 38 30 2C 32 35 31 3A 97  37 38 31 2C 42 4C 3A 97  |80,251:.781,BL:.|
00000450: 37 38 32 2C 42 48 3A 9E  36 35 34 39 36 3A 89 39  |782,BH:.65496:.9|
00000460: 30 30 00 94 0C 6A 04 99  22 93 11 11 1D 1D 12 52  |00...j.."......R|
00000470: 45 54 55 52 4E 20 47 41  4D 45 20 44 49 53 4B 20  |ETURN GAME DISK |
00000480: 54 4F 20 44 52 49 56 45  20 23 31 92 22 3A 8D 20  |TO DRIVE #1.":. |
00000490: 35 30 30 30 00 A9 0C 74  04 8B C2 28 33 31 37 36  |5000...t...(3176|
000004A0: 37 29 B2 33 A7 38 30 30  30 00 B3 0C 7E 04 89 38  |7).3.8000...~..8|
000004B0: 31 30 30 00 D8 0C D0 07  8F 20 2A 2A 2A 2A 2A 2A  |100...... ******|
000004C0: 2A 4C 49 53 54 20 44 49  52 45 43 54 4F 52 59 2A  |*LIST DIRECTORY*|
000004D0: 2A 2A 2A 2A 2A 2A 2A 2A  00 F0 0C 98 08 99 22 93  |********......".|
000004E0: 22 3B 3A 9F 31 35 2C 38  2C 31 35 2C 22 49 30 22  |";:.15,8,15,"I0"|
000004F0: 00 05 0D A2 08 84 31 35  2C 45 4E 2C 45 4D 24 2C  |......15,EN,EM$,|
00000500: 45 54 2C 45 53 00 15 0D  AC 08 8B 45 4E B3 B1 30  |ET,ES......EN..0|
00000510: A7 33 30 35 31 00 3D 0D  B6 08 4E 24 B2 C7 28 30  |.3051.=...N$..(0|
00000520: 29 3A 9F 31 2C 38 2C 30  2C 22 24 30 22 3A A1 23  |):.1,8,0,"$0":.#|
00000530: 31 2C 41 24 2C 41 24 3A  89 32 32 36 30 00 63 0D  |1,A$,A$:.2260.c.|
00000540: C0 08 A1 23 31 2C 41 24  2C 42 24 3A 99 C6 28 41  |...#1,A$,B$:..(A|
00000550: 24 AA 4E 24 29 AA C6 28  42 24 AA 4E 24 29 AC 32  |$.N$)..(B$.N$).2|
00000560: 35 36 3B 00 81 0D CA 08  A1 23 31 2C 41 24 3A 8B  |56;......#1,A$:.|
00000570: 41 24 B3 B1 22 22 A7 99  41 24 3B 3A 89 32 32 35  |A$..""..A$;:.225|
00000580: 30 00 9E 0D D4 08 99 3A  A1 23 31 2C 41 24 2C 41  |0......:.#1,A$,A|
00000590: 24 3A 8B 41 24 B3 B1 22  22 A7 32 32 34 30 00 AF  |$:.A$.."".2240..|
000005A0: 0D DE 08 A0 31 3A A0 31  35 3A 4E 24 B2 22 22 00  |....1:.15:N$."".|
000005B0: D5 0D E3 08 97 20 32 30  39 2C 37 32 3A 97 20 32  |..... 209,72:. 2|
000005C0: 31 30 2C 37 3A 97 20 32  31 34 2C 32 31 3A 97 20  |10,7:. 214,21:. |
000005D0: 32 31 31 2C 30 00 E4 0D  E8 08 8D 35 30 30 30 3A  |211,0......5000:|
000005E0: 89 39 30 30 00 FF 0D B8  0B 8F 20 2A 2A 2A 2A 2A  |.900...... *****|
000005F0: 2A 49 4E 49 54 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 00  |*INIT**********.|
00000600: 31 0E BD 0B 99 22 93 11  11 1D 1D 12 49 4E 53 45  |1...."......INSE|
00000610: 52 54 20 42 4C 41 4E 4B  20 44 49 53 4B 20 49 4E  |RT BLANK DISK IN|
00000620: 20 44 52 49 56 45 20 23  31 92 22 3A 8D 35 30 30  | DRIVE #1.":.500|
00000630: 30 00 45 0E C2 0B 44 4E  24 B2 22 4D 45 43 48 20  |0.E...DN$."MECH |
00000640: 53 41 56 45 22 00 52 0E  CC 0B 44 49 24 B2 22 36  |SAVE".R...DI$."6|
00000650: 34 22 00 8B 0E D6 0B 99  22 11 1D 1D 54 59 50 45  |4"......"...TYPE|
00000660: 20 27 49 4E 49 54 27 20  41 4E 44 20 3C 52 45 54  | 'INIT' AND <RET|
00000670: 55 52 4E 3E 22 3A 99 22  11 1D 1D 54 4F 20 46 4F  |URN>":."...TO FO|
00000680: 52 4D 41 54 20 44 49 53  4B 22 3B 00 A7 0E DB 0B  |RMAT DISK";.....|
00000690: 85 20 41 24 3A 8B 20 41  24 B3 B1 22 49 4E 49 54  |. A$:. A$.."INIT|
000006A0: 22 20 89 20 39 30 30 00  C7 0E E0 0B 9F 31 35 2C  |" . 900......15,|
000006B0: 44 31 2C 31 35 2C 22 4E  30 3A 22 AA 44 4E 24 AA  |D1,15,"N0:".DN$.|
000006C0: 22 2C 22 AA 44 49 24 00  DC 0E E5 0B 84 31 35 2C  |",".DI$......15,|
000006D0: 45 4E 2C 45 4D 24 2C 45  54 2C 45 53 00 EE 0E EA  |EN,EM$,ET,ES....|
000006E0: 0B 8B 20 45 4E B2 30 20  89 20 33 30 36 30 00 F6  |.. EN.0 . 3060..|
000006F0: 0E EB 0B A0 31 35 00 2F  0F EF 0B 99 22 13 11 11  |....15./...."...|
00000700: 11 11 11 11 11 11 11 11  11 11 11 11 11 11 11 11  |................|
00000710: 11 11 1D 1D 12 45 52 52  4F 52 3A 92 20 22 45 4E  |.....ERROR:. "EN|
00000720: 3B 45 4D 24 3A 8D 35 30  30 30 3A 89 39 30 30 00  |;EM$:.5000:.900.|
00000730: 37 0F F4 0B A0 31 35 00  41 0F FE 0B 89 20 39 30  |7....15.A.... 90|
00000740: 30 00 62 0F 88 13 99 3A  99 22 1D 1D 50 52 45 53  |0.b....:."..PRES|
00000750: 53 20 3C 43 3E 20 54 4F  20 43 4F 4E 54 49 4E 55  |S <C> TO CONTINU|
00000760: 45 22 00 7A 0F 8D 13 A1  20 41 24 3A 8B 20 41 24  |E".z.... A$:. A$|
00000770: B3 B1 22 43 22 A7 35 30  30 35 00 80 0F 92 13 8E  |.."C".5005......|
00000780: 00 A5 0F 70 17 8F 2A 2A  2A 2A 2A 2A 2A 44 45 4C  |...p..*******DEL|
00000790: 45 54 45 20 46 49 4C 45  20 4E 41 4D 45 2A 2A 2A  |ETE FILE NAME***|
000007A0: 2A 2A 2A 2A 2A 00 C8 0F  75 17 99 22 93 11 11 1D  |*****...u.."....|
000007B0: 1D 44 45 4C 45 54 45 20  46 49 4C 45 20 4E 41 4D  |.DELETE FILE NAM|
000007C0: 45 22 3B 3A 85 20 41 24  00 DB 0F 7A 17 9F 31 35  |E";:. A$...z..15|
000007D0: 2C 44 31 2C 31 35 2C 22  49 30 22 00 F0 0F 7C 17  |,D1,15,"I0"...|.|
000007E0: 84 31 35 2C 45 4E 2C 45  4D 24 2C 45 54 2C 45 53  |.15,EN,EM$,ET,ES|
000007F0: 00 03 10 7D 17 8B 20 45  4E B3 B1 30 20 89 20 33  |...}.. EN..0 . 3|
00000800: 30 35 31 00 1E 10 7F 17  9F 33 2C 44 31 2C 31 2C  |051......3,D1,1,|
00000810: 22 30 3A 22 AA 41 24 AA  22 2C 50 2C 57 22 00 33  |"0:".A$.",P,W".3|
00000820: 10 84 17 84 31 35 2C 45  4E 2C 45 4D 24 2C 45 54  |....15,EN,EM$,ET|
00000830: 2C 45 53 00 60 10 89 17  8B 20 45 4E B2 36 33 A7  |,ES.`.... EN.63.|
00000840: 20 98 31 35 2C 22 53 30  3A 22 AA 41 24 AA 22 2C  | .15,"S0:".A$.",|
00000850: 50 2C 57 22 3A A0 33 3A  A0 31 35 3A 89 39 30 30  |P,W":.3:.15:.900|
00000860: 00 7A 10 8E 17 A0 33 3A  A0 31 35 3A 8B 20 45 4E  |.z....3:.15:. EN|
00000870: B3 B1 30 20 89 20 33 30  35 35 00 B2 10 93 17 99  |..0 . 3055......|
00000880: 22 13 11 11 11 11 11 11  11 11 11 11 11 11 11 11  |"...............|
00000890: 11 11 11 11 11 11 1D 1D  46 49 4C 45 20 4E 4F 54  |........FILE NOT|
000008A0: 20 46 4F 55 4E 44 22 3A  8D 35 30 30 30 3A 89 39  | FOUND":.5000:.9|
000008B0: 30 30 00 C8 10 40 1F 47  24 B2 22 42 52 41 49 4E  |00...@.G$."BRAIN|
000008C0: 22 3A 89 20 38 32 30 30  00 D8 10 A4 1F 47 24 B2  |":. 8200.....G$.|
000008D0: 22 4F 52 44 45 52 53 22  00 F6 10 08 20 9F 31 35  |"ORDERS".... .15|
000008E0: 2C 38 2C 31 35 2C 22 49  30 22 3A 9F 31 34 2C 38  |,8,15,"I0":.14,8|
000008F0: 2C 31 34 2C 47 24 00 0B  11 12 20 84 31 35 2C 45  |,14,G$.... .15,E|
00000900: 4E 2C 45 4D 24 2C 45 54  2C 45 53 00 22 11 1C 20  |N,EM$,ET,ES.".. |
00000910: A0 31 34 3A 8B 20 45 4E  B3 B1 30 20 A7 20 33 30  |.14:. EN..0 . 30|
00000920: 35 31 00 2A 11 26 20 A0  31 35 00 36 11 2B 20 8D  |51.*.& .15.6.+ .|
00000930: 20 31 37 30 30 30 00 55  11 30 20 99 20 22 93 20  | 17000.U.0 . ". |
00000940: 4C 4F 41 44 22 C7 28 33  34 29 47 24 C7 28 33 34  |LOAD".(34)G$.(34|
00000950: 29 22 2C 38 22 00 76 11  32 23 97 31 39 38 2C 38  |)",8".v.2#.198,8|
00000960: 3A 81 4C B2 30 A4 37 3A  87 5A 3A 97 36 33 31 AA  |:.L.0.7:.Z:.631.|
00000970: 4C 2C 5A 3A 82 4C 00 93  11 3C 23 83 31 39 2C 31  |L,Z:.L...<#.19,1|
00000980: 33 2C 33 32 2C 33 32 2C  38 32 2C 38 35 2C 37 38  |3,32,32,82,85,78|
00000990: 2C 31 33 00 9B 11 46 23  9C 3A A2 00 B5 11 68 42  |,13...F#.:....hB|
000009A0: 97 35 33 32 36 35 2C C2  28 35 33 32 36 35 29 AF  |.53265,.(53265).|
000009B0: 32 33 39 3A 8E 00 E2 11  60 EA 9F 31 35 2C 38 2C  |239:....`..15,8,|
000009C0: 31 35 3A 98 31 35 2C 22  53 30 3A 47 53 41 56 45  |15:.15,"S0:GSAVE|
000009D0: 22 3A 94 20 22 47 53 41  56 45 22 2C 38 3A A0 20  |":. "GSAVE",8:. |
000009E0: 31 35 00 00 00 28 42 24  00 28 38                 |15...(B$.(8     |
....... *********GSAVE*********.I....51,
0:.52,48:.55,0:.56,96:.:C$.G(147).`....5
3265,B(53265).16...2.P$."               
                        "...<.D1.8...D..
".":.646,1:."..".2)".PLACE YOUR SAVE-GAM
E DISK IN DRIVE #1."...E.. 5000......"..
....SAVE-GAME ROUTINES.".4....:."..(S)AV
E GAME":.:."..(D)ELETE FILE".P....:."..(
L)IST DIRECTORY".{....:."..(I)NIT DISK":
.:."..(E)XIT":.".."...... A$:. A$."" . 9
55...... A$."S" . 1000...E.. A$."D" . 60
00.N.J.. A$."L" . 2200...O.. A$."I" . 30
00...Y.. A$."E" . 1130...... 955.%....**
******DISK SAVE**************.:...Q.2800
0:QN.39167.V...AH..(Q.256):AL.Q.AH.256.T
...BH..(QN.256):BL.QN.BH.256......".....
SAVE FILE NAME";...... A$......15,D1,15,
"I0".A....15,EN,EM$,ET,ES.U.... EN..0  .
 3051......3,D1,1,"0:".A$.",P,W"......15
,EN,EM$,ET,ES..... 3...... EN.00 . 1050.
3.... EN..63 . 3055.Y...."..FILE EXISTS.
  REPLACE (Y/N)";.P.... B$:. B$."". 1045
......B$:. B$.."Y" .  15:.900......15,"S
0:".A$.",P,W".....  15.T. .. 780,15:. 78
1,8:. 782,255:.65466...!.L.C(A$):. I.1. 
L:. 827.I,F(J(A$,I,1)):..%.".. 780,L:. 7
81,60:. 782,3:. 65469.9.$..251,AL:.252,A
H.B.)..780,251:.781,BL:.782,BH:.65496:.9
00...J.."......RETURN GAME DISK TO DRIVE
 #1.":. 5000...T..B(31767).3.8000...~..8
100.X.P.. *******LIST DIRECTORY*********
......".";:.15,8,15,"I0"......15,EN,EM$,
ET,ES......EN..0.3051.=...N$.G(0):.1,8,0
,"$0":.#1,A$,A$:.2260.C....#1,A$,B$:.F(A
$.N$).F(B$.N$).256;...J..#1,A$:.A$..""..
A$;:.2250...T..:.#1,A$,A$:.A$.."".2240..
... 1: 15:N$."".U.... 209,72:. 210,7:. 2
14,21:. 211,0......5000:.900...... *****
*INIT**********.1...."......INSERT BLANK
 DISK IN DRIVE #1.":.5000.E.B.DN$."MECH 
SAVE".R.L.DI$."64"...V.."...TYPE 'INIT' 
AND <RETURN>":."...TO FORMAT DISK";.....
. A$:. A$.."INIT" . 900.G....15,D1,15,"N
0:".DN$.",".DI$......15,EN,EM$,ET,ES....
.. EN.0 . 3060..... 15./...."...........
.............ERROR:. "EN;EM$:.5000:.900.
7... 15.A.... 900.B....:."..PRESS <C> TO
 CONTINUE".Z.... A$:. A$.."C".5005......
...P..*******DELETE FILE NAME********.H.
U..".....DELETE FILE NAME";:. A$...Z..15
,D1,15,"I0"...|..15,EN,EM$,ET,ES...}.. E
N..0 . 3051.....3,D1,1,"0:".A$.",P,W".3
....15,EN,EM$,ET,ES.`.... EN.63. .15,"S0
:".A$.",P,W": 3: 15:.900.Z... 3: 15:. EN
..0 . 3055......".......................
FILE NOT FOUND":.5000:.900.H.@.G$."BRAIN
":. 8200.X...G$."ORDERS".... .15,8,15,"I
0":.14,8,14,G$.... .15,EN,EM$,ET,ES.".. 
 14:. EN..0 . 3051.*.&  15.6.+ . 17000.U
.0 . ". LOAD"G(34)G$G(34)",8".V.2#.198,8
:.L.0.7:.Z:.631.L,Z:.L...<#.19,13,32,32,
82,85,78,13...F#.:....HB.53265,B(53265).
239:....`..15,8,15:.15,"S0:GSAVE":. "GSA
VE",8:  15...(B$.(8
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL