F.BEE UN/SCRATCH
FILE INFORMATION
FILENAME(S): F.BEE UN/SCRATCH
FILE TYPE(S): PRG
FILE SIZE: 2.9K
FIRST SEEN: 2025-11-30 21:21:28
APPEARS ON: 1 disk(s)
FILE HASH
73ad53418988c3edbdfd4a4674de75cb2730504a367120f55d95fdb199dd9404
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SCOTCH | F.BEE UN/SCRATCH | PRG | DuncanTwain | 3 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 3E 08 0A 00 8F 20 2A 2A 2A 2A 2A 2A 2A 20 |..>.... ******* | 00000010: 44 49 53 4B 20 53 43 52 41 54 43 48 2D 55 4E 53 |DISK SCRATCH-UNS| 00000020: 43 52 41 54 43 48 20 46 4F 52 20 43 4F 4D 4D 4F |CRATCH FOR COMMO| 00000030: 44 4F 52 45 20 36 34 20 2A 2A 2A 2A 2A 2A 00 44 |DORE 64 ******.D| 00000040: 08 0F 00 3A 00 67 08 14 00 97 35 33 32 38 30 2C |...:.g....53280,| 00000050: 31 35 3A 97 35 33 32 38 31 2C 36 3A 99 C7 28 31 |15:.53281,6:..(1| 00000060: 34 37 29 C7 28 35 29 00 91 08 19 00 52 45 B2 30 |47).(5).....RE.0| 00000070: 3A 86 52 54 28 31 30 30 29 2C 52 53 28 31 30 30 |:.RT(100),RS(100| 00000080: 29 2C 42 50 28 31 30 30 29 2C 54 59 28 31 30 30 |),BP(100),TY(100| 00000090: 29 00 C7 08 1E 00 54 31 24 B2 C7 28 31 31 37 29 |).....T1$..(117)| 000000A0: 3A 81 54 B2 31 A4 32 34 3A 54 31 24 B2 54 31 24 |:.T.1.24:T1$.T1$| 000000B0: AA C7 28 39 36 29 3A 82 3A 54 31 24 B2 54 31 24 |..(96):.:T1$.T1$| 000000C0: AA C7 28 31 30 35 29 00 FD 08 23 00 54 32 24 B2 |..(105)...#.T2$.| 000000D0: C7 28 31 32 35 29 3A 81 54 B2 31 A4 32 34 3A 54 |.(125):.T.1.24:T| 000000E0: 32 24 B2 54 32 24 AA C7 28 33 32 29 3A 82 3A 54 |2$.T2$..(32):.:T| 000000F0: 32 24 B2 54 32 24 AA C7 28 31 32 35 29 00 2E 09 |2$.T2$..(125)...| 00000100: 28 00 54 33 24 B2 C7 28 31 32 35 29 AA 22 20 44 |(.T3$..(125)." D| 00000110: 49 53 4B 20 53 43 52 41 54 43 48 2D 55 4E 53 43 |ISK SCRATCH-UNSC| 00000120: 52 41 54 43 48 20 22 AA C7 28 31 32 35 29 00 5F |RATCH "..(125)._| 00000130: 09 2D 00 54 34 24 B2 C7 28 31 32 35 29 AA 22 20 |.-.T4$..(125)." | 00000140: 20 20 20 20 20 20 42 59 20 46 2E 20 42 45 45 2E | BY F. BEE.| 00000150: 20 20 20 20 20 20 20 22 AA C7 28 31 32 35 29 00 | "..(125).| 00000160: 95 09 32 00 54 35 24 B2 C7 28 31 30 36 29 3A 81 |..2.T5$..(106):.| 00000170: 54 B2 31 A4 32 34 3A 54 35 24 B2 54 35 24 AA C7 |T.1.24:T5$.T5$..| 00000180: 28 39 36 29 3A 82 3A 54 35 24 B2 54 35 24 AA C7 |(96):.:T5$.T5$..| 00000190: 28 31 30 37 29 00 C1 09 37 00 53 50 41 43 45 24 |(107)...7.SPACE$| 000001A0: B2 22 22 3A 81 54 B2 31 A4 33 38 3A 53 50 41 43 |."":.T.1.38:SPAC| 000001B0: 45 24 B2 53 50 41 43 45 24 AA C7 28 33 32 29 3A |E$.SPACE$..(32):| 000001C0: 82 00 E7 09 3C 00 99 A6 37 29 C7 28 31 37 29 C7 |....<...7).(17).| 000001D0: 28 31 37 29 54 31 24 3A 99 A6 37 29 54 32 24 3A |(17)T1$:..7)T2$:| 000001E0: 99 A6 37 29 54 33 24 00 0B 0A 41 00 99 A6 37 29 |..7)T3$...A...7)| 000001F0: 54 32 24 3A 99 A6 37 29 54 34 24 3A 99 A6 37 29 |T2$:..7)T4$:..7)| 00000200: 54 32 24 3A 99 A6 37 29 54 35 24 00 1A 0A 46 00 |T2$:..7)T5$...F.| 00000210: 81 54 B2 31 A4 37 3A 99 3A 82 00 46 0A 4B 00 99 |.T.1.7:.:..F.K..| 00000220: A6 36 29 22 49 4E 53 45 52 54 20 44 49 53 4B 20 |.6)"INSERT DISK | 00000230: 20 20 20 20 50 52 45 53 53 20 52 45 54 55 52 4E | PRESS RETURN| 00000240: 22 C7 28 31 37 29 00 60 0A 50 00 A1 4B 45 59 24 |".(17).`.P..KEY$| 00000250: 3A 8B 4B 45 59 24 B3 B1 C7 28 31 33 29 A7 38 30 |:.KEY$...(13).80| 00000260: 00 89 0A 55 00 41 24 28 30 29 B2 C7 28 31 38 29 |...U.A$(0)..(18)| 00000270: AA 22 44 45 4C 22 AA C7 28 31 34 36 29 3A 41 24 |."DEL"..(146):A$| 00000280: 28 31 29 B2 22 53 45 51 22 00 B1 0A 5A 00 41 24 |(1)."SEQ"...Z.A$| 00000290: 28 32 29 B2 22 50 52 47 22 3A 41 24 28 33 29 B2 |(2)."PRG":A$(3).| 000002A0: 22 55 53 52 22 3A 41 24 28 34 29 B2 22 52 45 4C |"USR":A$(4)."REL| 000002B0: 22 00 EF 0A 5F 00 46 24 28 30 29 B2 C7 28 31 38 |"..._.F$(0)..(18| 000002C0: 29 AA 22 53 22 AA C7 28 31 34 36 29 AA 22 45 51 |)."S"..(146)."EQ| 000002D0: 2C 22 3A 46 24 28 31 29 B2 C7 28 31 38 29 AA 22 |,":F$(1)..(18)."| 000002E0: 50 22 AA C7 28 31 34 36 29 AA 22 52 47 2C 22 00 |P"..(146)."RG,".| 000002F0: 2E 0B 64 00 46 24 28 32 29 B2 C7 28 31 38 29 AA |..d.F$(2)..(18).| 00000300: 22 55 22 AA C7 28 31 34 36 29 AA 22 53 52 2C 22 |"U"..(146)."SR,"| 00000310: 3A 46 24 28 33 29 B2 C7 28 31 38 29 AA 22 52 22 |:F$(3)..(18)."R"| 00000320: AA C7 28 31 34 36 29 AA 22 45 4C 20 3F 22 00 34 |..(146)."EL ?".4| 00000330: 0B 69 00 3A 00 71 0B 6E 00 8F 20 2A 2A 2A 2A 2A |.i.:.q.n.. *****| 00000340: 2A 2A 2A 2A 20 49 4E 49 54 49 41 4C 49 5A 45 20 |**** INITIALIZE | 00000350: 44 49 53 4B 20 26 20 4F 50 45 4E 20 52 41 4E 44 |DISK & OPEN RAND| 00000360: 4F 4D 20 46 49 4C 45 20 2A 2A 2A 2A 2A 2A 2A 2A |OM FILE ********| 00000370: 2A 00 77 0B 73 00 3A 00 93 0B 78 00 9F 31 2C 38 |*.w.s.:...x..1,8| 00000380: 2C 31 35 2C 22 49 30 22 3A 9F 35 2C 38 2C 35 2C |,15,"I0":.5,8,5,| 00000390: 22 23 22 00 B1 0B 7D 00 99 C7 28 31 34 35 29 C7 |"#"...}...(145).| 000003A0: 28 31 34 35 29 53 50 41 43 45 24 C7 28 31 34 35 |(145)SPACE$.(145| 000003B0: 29 00 BE 0B 82 00 54 B2 31 38 3A 53 B2 31 00 D9 |).....T.18:S.1..| 000003C0: 0B 87 00 8B 54 B3 31 B0 54 B1 33 35 B0 53 B3 30 |....T.1.T.35.S.0| 000003D0: B0 53 B1 32 31 A7 33 31 30 00 FB 0B 8C 00 98 31 |.S.21.310......1| 000003E0: 2C 22 55 31 3A 22 3B 35 3B 30 3B 54 3B 53 3A 98 |,"U1:";5;0;T;S:.| 000003F0: 31 2C 22 42 2D 50 22 3B 35 3B 30 00 25 0C 91 00 |1,"B-P";5;0.%...| 00000400: A1 23 35 2C 41 24 2C 42 24 3A 54 31 B2 C6 28 41 |.#5,A$,B$:T1..(A| 00000410: 24 AA C7 28 30 29 29 3A 53 31 B2 C6 28 42 24 AA |$..(0)):S1..(B$.| 00000420: C7 28 30 29 29 00 3C 0C 96 00 81 49 B2 30 A4 37 |.(0)).<....I.0.7| 00000430: 3A 8D 32 32 30 3A 54 59 B2 41 AF 37 00 63 0C 9B |:.220:TY.A.7.c..| 00000440: 00 81 4A B2 30 A4 32 3A 8D 32 32 30 3A 82 3A 8B |..J.0.2:.220:.:.| 00000450: 41 B2 30 A7 49 B2 37 3A 54 31 B2 32 35 35 3A 89 |A.0.I.7:T1.255:.| 00000460: 31 39 35 00 7D 0C A0 00 99 A6 36 29 41 24 28 54 |195.}.....6)A$(T| 00000470: 59 29 22 20 22 C7 28 33 34 29 41 24 3B 00 A1 0C |Y)" ".(34)A$;...| 00000480: A5 00 81 4A B2 30 A4 31 34 3A 8D 32 32 30 3A 99 |...J.0.14:.220:.| 00000490: 41 24 3B 3A 82 3A 99 C7 28 33 34 29 22 20 20 22 |A$;:.:..(34)" "| 000004A0: 3B 00 C1 0C AA 00 81 4A B2 30 A4 38 3A 8D 32 32 |;......J.0.8:.22| 000004B0: 30 3A 82 3A 8D 32 32 30 3A 42 B2 41 3A 8D 32 32 |0:.:.220:B.A:.22| 000004C0: 30 00 EB 0C AF 00 42 4C 4B B2 41 AC 32 35 36 AA |0.....BLK.A.256.| 000004D0: 42 3A 99 C8 28 53 50 41 43 45 24 2C 34 AB C3 28 |B:..(SPACE$,4..(| 000004E0: C4 28 42 4C 4B 29 29 29 42 4C 4B 00 0C 0D B4 00 |.(BLK)))BLK.....| 000004F0: 8B 54 59 B2 30 A7 54 36 24 B2 22 55 4E 53 43 52 |.TY.0.T6$."UNSCR| 00000500: 41 54 43 48 20 3C 59 2F 4E 3E 3F 22 00 2E 0D B9 |ATCH <Y/N>?"....| 00000510: 00 8B 54 59 B3 B1 30 A7 54 36 24 B2 22 20 53 43 |..TY..0.T6$." SC| 00000520: 52 41 54 43 48 20 3C 59 2F 4E 3E 3F 20 22 00 37 |RATCH <Y/N>? ".7| 00000530: 0D BE 00 8D 32 34 30 00 55 0D C3 00 8D 32 32 30 |....240.U....220| 00000540: 3A 8D 32 32 30 3A 99 C7 28 31 34 35 29 C7 28 31 |:.220:..(145).(1| 00000550: 34 35 29 3A 82 00 68 0D C8 00 54 B2 54 31 3A 53 |45):..h...T.T1:S| 00000560: B2 53 31 3A 89 31 33 35 00 6E 0D CD 00 3A 00 AA |.S1:.135.n...:..| 00000570: 0D D2 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.... ***********| 00000580: 2A 2A 2A 20 52 45 41 44 20 44 41 54 41 20 46 52 |*** READ DATA FR| 00000590: 4F 4D 20 44 49 52 45 43 54 4F 52 59 20 2A 2A 2A |OM DIRECTORY ***| 000005A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 B0 0D D7 00 3A |**********.....:| 000005B0: 00 CA 0D DC 00 A1 23 35 2C 41 24 3A 41 B2 C6 28 |......#5,A$:A..(| 000005C0: 41 24 AA C7 28 30 29 29 3A 8E 00 D0 0D E1 00 3A |A$..(0)):......:| 000005D0: 00 0C 0E E6 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |...... *********| 000005E0: 2A 20 52 4F 55 54 49 4E 45 20 54 4F 20 52 45 43 |* ROUTINE TO REC| 000005F0: 4F 56 45 52 2D 53 43 52 41 54 43 48 20 46 49 4C |OVER-SCRATCH FIL| 00000600: 45 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 12 0E EB |E **********....| 00000610: 00 3A 00 29 0E F0 00 99 A6 31 32 29 C7 28 31 37 |.:.).....12).(17| 00000620: 29 C7 28 31 37 29 54 36 24 00 34 0E F5 00 97 31 |).(17)T6$.4....1| 00000630: 39 38 2C 30 00 57 0E FA 00 A1 4B 45 59 24 3A 8B |98,0.W....KEY$:.| 00000640: 4B 45 59 24 B3 B1 22 4E 22 AF 4B 45 59 24 B3 B1 |KEY$.."N".KEY$..| 00000650: 22 59 22 A7 32 35 30 00 69 0E FF 00 8B 4B 45 59 |"Y".250.i....KEY| 00000660: 24 B2 22 4E 22 A7 33 30 35 00 8D 0E 04 01 52 54 |$."N".305.....RT| 00000670: 28 52 45 29 B2 54 3A 52 53 28 52 45 29 B2 53 3A |(RE).T:RS(RE).S:| 00000680: 42 50 28 52 45 29 B2 33 32 AC 49 AA 32 00 A6 0E |BP(RE).32.I.2...| 00000690: 09 01 8B 54 59 B3 B1 30 A7 54 59 28 52 45 29 B2 |...TY..0.TY(RE).| 000006A0: 30 3A 89 33 30 30 00 DF 0E 0E 01 99 C7 28 31 34 |0:.300.......(14| 000006B0: 35 29 A6 34 29 22 4E 45 57 20 46 49 4C 45 20 54 |5).4)"NEW FILE T| 000006C0: 59 50 45 3A 20 22 46 24 28 30 29 46 24 28 31 29 |YPE: "F$(0)F$(1)| 000006D0: 46 24 28 32 29 46 24 28 33 29 46 24 28 34 29 00 |F$(2)F$(3)F$(4).| 000006E0: EA 0E 0F 01 97 31 39 38 2C 30 00 21 0F 13 01 A1 |.....198,0.!....| 000006F0: 4B 45 59 24 3A 8B 4B 45 59 24 B3 B1 22 53 22 AF |KEY$:.KEY$.."S".| 00000700: 4B 45 59 24 B3 B1 22 50 22 AF 4B 45 59 24 B3 B1 |KEY$.."P".KEY$..| 00000710: 22 55 22 AF 4B 45 59 24 B3 B1 22 52 22 A7 32 37 |"U".KEY$.."R".27| 00000720: 35 00 3A 0F 18 01 8B 4B 45 59 24 B2 22 53 22 A7 |5.:....KEY$."S".| 00000730: 54 59 28 52 45 29 B2 31 32 39 00 53 0F 1D 01 8B |TY(RE).129.S....| 00000740: 4B 45 59 24 B2 22 50 22 A7 54 59 28 52 45 29 B2 |KEY$."P".TY(RE).| 00000750: 31 33 30 00 6C 0F 22 01 8B 4B 45 59 24 B2 22 55 |130.l."..KEY$."U| 00000760: 22 A7 54 59 28 52 45 29 B2 31 33 31 00 85 0F 27 |".TY(RE).131...'| 00000770: 01 8B 4B 45 59 24 B2 22 52 22 A7 54 59 28 52 45 |..KEY$."R".TY(RE| 00000780: 29 B2 31 33 32 00 91 0F 2C 01 52 45 B2 52 45 AA |).132...,.RE.RE.| 00000790: 31 00 B7 0F 31 01 99 C7 28 31 34 35 29 53 50 41 |1...1...(145)SPA| 000007A0: 43 45 24 C7 28 31 34 35 29 C7 28 31 34 35 29 C7 |CE$.(145).(145).| 000007B0: 28 31 34 35 29 3A 8E 00 C5 0F 36 01 8B 52 45 B2 |(145):....6..RE.| 000007C0: 30 A7 33 36 30 00 CB 0F 3B 01 3A 00 07 10 40 01 |0.360...;.:...@.| 000007D0: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************| 000007E0: 20 52 45 50 4C 41 43 45 20 4F 52 20 53 43 52 41 | REPLACE OR SCRA| 000007F0: 54 43 48 20 46 49 4C 45 20 2A 2A 2A 2A 2A 2A 2A |TCH FILE *******| 00000800: 2A 2A 2A 2A 2A 2A 2A 00 0D 10 45 01 3A 00 33 10 |*******...E.:.3.| 00000810: 4A 01 81 49 B2 30 A4 52 45 AB 31 3A 98 31 2C 22 |J..I.0.RE.1:.1,"| 00000820: 55 31 22 3B 35 3B 30 3B 52 54 28 49 29 3B 52 53 |U1";5;0;RT(I);RS| 00000830: 28 49 29 00 55 10 4F 01 98 31 2C 22 42 2D 50 22 |(I).U.O..1,"B-P"| 00000840: 3B 35 3B 42 50 28 49 29 3A 98 35 2C C7 28 54 59 |;5;BP(I):.5,.(TY| 00000850: 28 49 29 29 3B 00 73 10 54 01 98 31 2C 22 55 32 |(I));.s.T..1,"U2| 00000860: 22 3B 35 3B 30 3B 52 54 28 49 29 3B 52 53 28 49 |";5;0;RT(I);RS(I| 00000870: 29 3A 82 00 79 10 59 01 3A 00 B5 10 5E 01 8F 20 |):..y.Y.:...^.. | 00000880: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 |*************** | 00000890: 45 4E 44 20 4F 46 20 44 49 53 4B 20 53 45 51 55 |END OF DISK SEQU| 000008A0: 45 4E 43 45 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |ENCE ***********| 000008B0: 2A 2A 2A 2A 2A 00 BB 10 63 01 3A 00 EF 10 68 01 |*****...c.:...h.| 000008C0: 99 A6 31 30 29 C7 28 31 37 29 C7 28 31 37 29 C7 |..10).(17).(17).| 000008D0: 28 31 37 29 C7 28 31 37 29 22 56 41 4C 49 44 41 |(17).(17)"VALIDA| 000008E0: 54 45 20 44 49 53 4B 20 3C 59 2F 4E 3E 3F 22 00 |TE DISK <Y/N>?".| 000008F0: FA 10 69 01 97 31 39 38 2C 30 00 1D 11 6D 01 A1 |..i..198,0...m..| 00000900: 4B 45 59 24 3A 8B 4B 45 59 24 B3 B1 22 59 22 AF |KEY$:.KEY$.."Y".| 00000910: 4B 45 59 24 B3 B1 22 4E 22 A7 33 36 35 00 33 11 |KEY$.."N".365.3.| 00000920: 72 01 8B 4B 45 59 24 B2 22 59 22 A7 98 31 2C 22 |r..KEY$."Y"..1,"| 00000930: 56 30 22 00 3D 11 77 01 A0 31 3A A0 35 00 63 11 |V0".=.w..1:.5.c.| 00000940: 7C 01 99 A6 31 30 29 C7 28 31 34 35 29 22 41 4E ||...10).(145)"AN| 00000950: 4F 54 48 45 52 20 44 49 53 4B 20 20 3C 59 2F 4E |OTHER DISK <Y/N| 00000960: 3E 3F 22 00 6E 11 81 01 97 31 39 38 2C 30 00 91 |>?".n....198,0..| 00000970: 11 86 01 A1 4B 45 59 24 3A 8B 4B 45 59 24 B3 B1 |....KEY$:.KEY$..| 00000980: 22 59 22 AF 4B 45 59 24 B3 B1 22 4E 22 A7 33 39 |"Y".KEY$.."N".39| 00000990: 30 00 A1 11 8B 01 8B 4B 45 59 24 B2 22 59 22 A7 |0......KEY$."Y".| 000009A0: 8A 00 C6 11 90 01 97 35 33 32 38 30 2C 31 34 3A |.......53280,14:| 000009B0: 97 35 33 32 38 31 2C 36 3A 99 C7 28 31 34 37 29 |.53281,6:..(147)| 000009C0: C7 28 31 35 34 29 00 CC 11 95 01 80 00 D2 11 9A |.(154)..........| 000009D0: 01 3A 00 D8 11 9F 01 3A 00 16 12 A4 01 AC AC AC |.:.....:........| 000009E0: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................| 000009F0: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................| 00000A00: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................| 00000A10: AC AC AC AC AC AC 00 54 12 A9 01 AC 20 20 20 20 |.......T.... | 00000A20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000A30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000A40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000A50: 20 20 20 AC 00 8F 12 AE 01 AC 20 20 44 49 53 4B | ....... DISK| 00000A60: 20 53 43 52 41 54 43 48 AB 55 4E 53 43 52 41 54 | SCRATCH.UNSCRAT| 00000A70: 43 48 20 55 54 49 4C 49 54 59 20 81 20 54 48 45 |CH UTILITY . THE| 00000A80: 20 43 4F 4D 4D 4F 44 B0 45 20 36 34 20 20 AC 00 | COMMOD.E 64 ..| 00000A90: CD 12 B3 01 AC 20 20 20 20 20 20 20 20 20 20 20 |..... | 00000AA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000AB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000AC0: 20 20 20 20 20 20 20 20 20 20 20 20 AC 00 0B 13 | ....| 00000AD0: B8 01 AC 20 20 20 20 20 20 46 2E 42 45 45 20 20 |... F.BEE | 00000AE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000AF0: 20 20 32 39 54 48 20 44 45 43 45 4D 42 45 52 20 | 29TH DECEMBER | 00000B00: 31 39 38 34 20 20 20 20 20 20 AC 00 49 13 BD 01 |1984 ..I...| 00000B10: AC 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 00000B20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 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 AC 00 87 13 C2 01 AC AC | ........| 00000B50: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................| 00000B60: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................| 00000B70: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................| 00000B80: AC AC AC AC AC AC AC 00 00 00 |.......... |
..>.... ******* DISK SCRATCH-UNSCRATCH F
OR COMMODORE 64 ******.D...:.G....53280,
15:.53281,6:.G(147)G(5).....RE.0:.RT(100
),RS(100),BP(100),TY(100).G...T1$.G(117)
:.T.1.24:T1$.T1$.G(96):.:T1$.T1$.G(105).
..#.T2$.G(125):.T.1.24:T2$.T2$.G(32):.:T
2$.T2$.G(125)...(.T3$.G(125)." DISK SCRA
TCH-UNSCRATCH ".G(125)._.-.T4$.G(125)."
BY F. BEE. ".G(125)...2.T5$.
G(106):.T.1.24:T5$.T5$.G(96):.:T5$.T5$.G
(107).A.7.SPACE$."":.T.1.38:SPACE$.SPACE
$.G(32):....<...7)G(17)G(17)T1$:..7)T2$:
..7)T3$...A...7)T2$:..7)T4$:..7)T2$:..7)
T5$...F..T.1.7:.:..F.K...6)"INSERT DISK
PRESS RETURN"G(17).`.P..KEY$:.KEY$..
G(13).80...U.A$(0).G(18)."DEL".G(146):A$
(1)."SEQ"...Z.A$(2)."PRG":A$(3)."USR":A$
(4)."REL"..._.F$(0).G(18)."S".G(146)."EQ
,":F$(1).G(18)."P".G(146)."RG,"...D.F$(2
).G(18)."U".G(146)."SR,":F$(3).G(18)."R"
.G(146)."EL ?".4.I.:.Q.N.. ********* INI
TIALIZE DISK & OPEN RANDOM FILE ********
*.W.S.:...X..1,8,15,"I0":.5,8,5,"#"...}.
.G(145)G(145)SPACE$G(145).....T.18:S.1.Y
....T.1.T.35.S.0.S.21.310......1,"U1:";5
;0;T;S:.1,"B-P";5;0.%....#5,A$,B$:T1.F(A
$.G(0)):S1.F(B$.G(0)).<....I.0.7:.220:TY
.A.7.C....J.0.2:.220:.:.A.0.I.7:T1.255:.
195.}. ...6)A$(TY)" "G(34)A$;......J.0.1
4:.220:.A$;:.:.G(34)" ";.A....J.0.8:.22
0:.:.220:B.A:.220.....BLK.A.256.B:.H(SPA
CE$,4.C(D(BLK)))BLK......TY.0.T6$."UNSCR
ATCH <Y/N>?"......TY..0.T6$." SCRATCH <Y
/N>? ".7....240.U.C..220:.220:.G(145)G(1
45):..H.H.T.T1:S.S1:.135.N.M.:...R.. ***
*********** READ DATA FROM DIRECTORY ***
**********...W.:.J....#5,A$:A.F(A$.G(0))
:..P...:...... ********** ROUTINE TO REC
OVER-SCRATCH FILE **********.....:.)....
.12)G(17)G(17)T6$.4....198,0.W....KEY$:.
KEY$.."N".KEY$.."Y".250.I....KEY$."N".30
5.....RT(RE).T:RS(RE).S:BP(RE).32.I.2...
...TY..0.TY(RE).0:.300......G(145).4)"NE
W FILE TYPE: "F$(0)F$(1)F$(2)F$(3)F$(4).
.....198,0.!....KEY$:.KEY$.."S".KEY$.."P
".KEY$.."U".KEY$.."R".275.:....KEY$."S".
TY(RE).129.S....KEY$."P".TY(RE).130.L.".
.KEY$."U".TY(RE).131...'..KEY$."R".TY(RE
).132...,.RE.RE.1...1..G(145)SPACE$G(145
)G(145)G(145):..E.6..RE.0.360.K.;.:...@.
. ************** REPLACE OR SCRATCH FILE
**************...E.:.3.J..I.0.RE.1:.1,"
U1";5;0;RT(I);RS(I).U.O..1,"B-P";5;BP(I)
:.5,G(TY(I));.S.T..1,"U2";5;0;RT(I);RS(I
):..Y.Y.:...^.. *************** END OF D
ISK SEQUENCE ****************...C.:...H.
..10)G(17)G(17)G(17)G(17)"VALIDATE DISK
<Y/N>?"...I..198,0...M..KEY$:.KEY$.."Y".
KEY$.."N".365.3.R..KEY$."Y"..1,"V0".=.W.
1: 5.C.|...10)G(145)"ANOTHER DISK <Y/N
>?".N....198,0......KEY$:.KEY$.."Y".KEY$
.."N".390......KEY$."Y"...F....53280,14:
.53281,6:.G(147)G(154).L.....R...:.X...:
........................................
.......................T....
....... DISK SCRATCH.UNSCRATCH UTILI
TY . THE COMMOD.E 64 ..M....
....... F.BEE
29TH DECEMBER 1984 ..I....
....B...........................
..................................
> CLICK IMAGE PREVIEW FOR FULL MODAL