KC
FILE INFORMATION
FILENAME(S): KC
FILE TYPE(S): PRG
FILE SIZE: 3.3K
FIRST SEEN: 2025-11-30 21:11:31
APPEARS ON: 1 disk(s)
FILE HASH
f0ca83a544ce9fd8379e62134c38cd0c89e24f5e774e52861babff3c5ac16d0b
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| CBM COPYSCHIJF | KC | PRG | DuncanTwain | 13 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 18 08 04 00 99 22 93 22 3A 20 97 20 36 34 |.......".": . 64|
00000010: 36 2C C2 28 38 35 30 29 00 4E 08 05 00 81 20 49 |6,.(850).N.... I|
00000020: 20 B2 20 31 20 A4 20 32 35 3A 20 8B 20 C2 28 38 | . 1 . 25: . .(8|
00000030: 35 30 AA 49 29 20 B2 20 32 35 35 20 A7 20 49 B2 |50.I) . 255 . I.|
00000040: 20 32 35 3A 20 82 20 49 3A 20 89 20 31 30 00 6F | 25: . I: . 10.o|
00000050: 08 06 00 44 46 24 20 B2 20 44 46 24 20 AA 20 C7 |...DF$ . DF$ . .|
00000060: 28 C2 28 38 35 30 AA 49 29 29 3A 20 82 20 49 00 |(.(850.I)): . I.|
00000070: 80 08 0A 00 99 22 93 22 3A 20 9F 20 35 30 2C 30 |.....".": . 50,0|
00000080: 00 AC 08 14 00 99 22 20 C9 CE D3 C5 D2 D4 20 D5 |......" ...... .|
00000090: D3 C5 D2 20 C4 C9 D3 CB 20 C1 CE C4 20 D0 D2 C5 |... .... ... ...|
000000A0: D3 D3 20 28 D2 C5 D4 D5 D2 CE 29 22 00 C9 08 19 |.. (......)"....|
000000B0: 00 A1 20 4B 24 3A 20 8B 20 4B 24 20 B3 B1 20 C7 |.. K$: . K$ .. .|
000000C0: 28 31 33 29 20 A7 20 32 35 00 F5 08 1B 00 86 20 |(13) . 25...... |
000000D0: 46 24 28 35 30 29 2C 20 46 28 35 30 29 2C 20 53 |F$(50), F(50), S|
000000E0: 28 35 30 29 2C 20 45 51 24 28 35 30 29 2C 20 44 |(50), EQ$(50), D|
000000F0: 24 28 35 30 29 00 14 09 1E 00 9F 20 32 2C 38 2C |$(50)...... 2,8,|
00000100: 32 2C 22 46 22 20 AA 20 44 46 24 20 AA 20 22 2C |2,"F" . DF$ . ",|
00000110: 53 2C 52 22 00 2D 09 28 00 9F 20 31 35 2C 38 2C |S,R".-.(.. 15,8,|
00000120: 31 35 3A 20 84 31 35 2C 41 24 2C 41 24 00 67 09 |15: .15,A$,A$.g.|
00000130: 2D 00 8B 20 41 24 20 B3 B1 20 22 4F 4B 22 20 A7 |-.. A$ .. "OK" .|
00000140: 20 A0 31 35 3A 20 99 22 11 22 41 24 20 3A 20 81 | .15: ."."A$ : .|
00000150: 20 4A B2 20 31 20 A4 20 32 30 30 30 3A 20 82 20 | J. 1 . 2000: . |
00000160: 4A 20 3A 20 8A 20 35 00 AB 09 32 00 81 20 49 B2 |J : . 5...2.. I.|
00000170: 20 31 20 A4 20 35 30 3A 84 32 2C 46 24 28 49 29 | 1 . 50:.2,F$(I)|
00000180: 3A 20 8B 20 46 24 28 49 29 B2 22 45 4E 44 22 20 |: . F$(I)."END" |
00000190: B0 20 46 24 28 49 29 B2 22 C5 CE C4 22 20 A7 20 |. F$(I)."..." . |
000001A0: 46 B2 49 AB 31 3A 20 49 B2 35 30 00 B3 09 3C 00 |F.I.1: I.50...<.|
000001B0: 82 20 49 00 D3 09 50 00 84 32 2C 52 4E 3A 20 84 |. I...P..2,RN: .|
000001C0: 32 2C 49 4C 3A 20 84 32 2C 52 54 3A 20 84 32 2C |2,IL: .2,RT: .2,|
000001D0: 50 57 24 00 DD 09 5A 00 84 32 2C 4D 4D 00 08 0A |PW$...Z..2,MM...|
000001E0: 5F 00 8B 20 4D 4D 20 B3 B1 20 30 20 A7 20 81 20 |_.. MM .. 0 . . |
000001F0: 49 20 B2 20 31 20 A4 20 4D 4D 3A 20 84 32 2C 53 |I . 1 . MM: .2,S|
00000200: 28 49 29 3A 20 82 20 49 00 35 0A 64 00 8B 20 4D |(I): . I.5.d.. M|
00000210: 4D 20 B3 B1 20 30 20 A7 20 81 20 49 20 B2 20 31 |M .. 0 . . I . 1|
00000220: 20 A4 20 4D 4D 3A 20 84 32 2C 45 51 24 28 49 29 | . MM: .2,EQ$(I)|
00000230: 3A 20 82 20 49 00 3C 0A 6E 00 A0 32 00 7C 0A 88 |: . I.<.n..2.|..|
00000240: 13 99 22 93 11 20 D9 CF D5 20 C8 C1 D6 C5 22 46 |..".. ... ...."F|
00000250: 22 C6 C9 C5 CC C4 D3 20 C5 CE D4 C5 D2 C5 C4 2C |"...... .......,|
00000260: 20 D4 C8 C5 D9 20 C1 D2 C5 20 20 20 20 20 C1 D3 | .... ... ..|
00000270: 20 C6 CF CC CC CF D7 D3 3A 22 3A 99 00 87 0A 92 | .......:":.....|
00000280: 13 8D 20 36 32 36 30 00 B9 0A BA 13 4D 4D 20 B2 |.. 6260.....MM .|
00000290: 20 4D 4D 20 AA 20 31 3A 20 51 51 20 B2 20 4D 4D | MM . 1: QQ . MM|
000002A0: 3A 20 45 51 24 28 4D 4D 29 20 B2 20 22 22 3A 20 |: EQ$(MM) . "": |
000002B0: 53 28 4D 4D 29 20 B2 20 30 00 E6 0A C4 13 99 22 |S(MM) . 0......"|
000002C0: 93 20 11 11 11 11 11 11 11 11 D4 D9 D0 C5 20 27 |. ............ '|
000002D0: CD C5 CE D5 27 20 C6 CF D2 20 CD C1 C9 CE 20 CD |....' ... .... .|
000002E0: C5 CE D5 22 3A 99 00 07 0B E2 13 99 3A 99 22 20 |...":.......:." |
000002F0: C5 CE D4 C5 D2 20 C6 C9 C5 CC C4 20 CE D5 CD C2 |..... ..... ....|
00000300: C5 D2 20 D9 CF D5 22 00 26 0B EC 13 99 22 20 D7 |.. ...".&...." .|
00000310: C9 D3 C8 20 D4 CF 20 D3 D4 CF D2 C5 20 C1 CE D3 |... .. ..... ...|
00000320: D7 C5 D2 22 3A 99 00 47 0B F6 13 99 22 20 C6 C9 |...":..G...." ..|
00000330: C5 CC C4 20 CE D5 CD C2 C5 D2 20 3A 20 22 3B 3A |... ...... : ";:|
00000340: 84 35 30 2C 4E 46 24 00 7B 0B 00 14 8B 20 4E 46 |.50,NF$.{.... NF|
00000350: 24 B2 22 4D 45 4E 55 22 20 B0 20 4E 46 24 B2 22 |$."MENU" . NF$."|
00000360: CD C5 CE D5 22 20 A7 20 4D 4D 20 B2 20 4D 4D 20 |...." . MM . MM |
00000370: AB 20 31 3A 20 89 20 37 30 30 30 00 BB 0B 0A 14 |. 1: . 7000.....|
00000380: 81 20 4C 20 B2 20 31 20 A4 20 4D 4D 3A 20 8B 20 |. L . 1 . MM: . |
00000390: C5 28 4E 46 24 29 20 B2 20 53 28 4C 29 A7 20 58 |.(NF$) . S(L). X|
000003A0: 58 B2 20 4C 3A 20 4C 20 B2 20 4D 4D 20 3A 20 82 |X. L: L . MM : .|
000003B0: 20 4C 20 3A 20 89 20 35 31 33 34 00 C3 0B 0C 14 | L : . 5134.....|
000003C0: 82 20 4C 00 E3 0B 0E 14 4D 4D 20 B2 20 4D 4D AB |. L.....MM . MM.|
000003D0: 31 3A 20 51 51 20 B2 20 4D 4D 3A 20 4D 4D 20 B2 |1: QQ . MM: MM .|
000003E0: 20 58 58 00 1D 0C 14 14 53 28 4D 4D 29 20 B2 20 | XX.....S(MM) . |
000003F0: C5 28 4E 46 24 29 3A 8B 20 53 28 4D 4D 29 B3 31 |.(NF$):. S(MM).1|
00000400: 20 B0 20 53 28 4D 4D 29 B1 46 20 A7 20 4D 4D 20 | . S(MM).F . MM |
00000410: B2 20 4D 4D AB 31 3A 89 20 35 30 35 30 00 49 0C |. MM.1:. 5050.I.|
00000420: 19 14 9F 32 2C 38 2C 32 2C 44 46 24 AA 22 2C 53 |...2,8,2,DF$.",S|
00000430: 2C 52 22 3A 20 9F 33 2C 38 2C 33 2C 22 40 30 3A |,R": .3,8,3,"@0:|
00000440: 53 57 41 50 2C 53 2C 57 22 00 7E 0C 1E 14 4D 46 |SWAP,S,W".~...MF|
00000450: 20 B2 20 53 28 4D 4D 29 3A 20 99 3A 99 3A 99 20 | . S(MM): .:.:. |
00000460: 22 20 C5 CE D4 C5 D2 20 CD C1 D4 C8 C5 CD C1 D4 |" ..... ........|
00000470: C9 C3 C1 CC 20 C5 D1 D5 C1 D4 C9 CF CE 22 00 A0 |.... ........"..|
00000480: 0C 28 14 99 3A 99 3A 99 22 20 22 46 24 28 53 28 |.(..:.:." "F$(S(|
00000490: 4D 4D 29 29 22 3D 22 3B 45 51 24 28 4D 4D 29 3B |MM))"=";EQ$(MM);|
000004A0: 00 BC 0C 32 14 8B 20 C3 28 45 51 24 28 4D 4D 29 |...2.. .(EQ$(MM)|
000004B0: 29 20 B2 20 30 20 A7 20 35 31 39 30 00 E2 0C 3C |) . 0 . 5190...<|
000004C0: 14 81 20 42 53 20 B2 20 31 20 A4 20 C3 28 45 51 |.. BS . 1 . .(EQ|
000004D0: 24 28 4D 4D 29 29 3A 20 99 22 9D 22 3B 3A 82 20 |$(MM)): .".";:. |
000004E0: 42 53 00 F2 0C 46 14 84 35 30 2C 45 51 24 28 4D |BS...F..50,EQ$(M|
000004F0: 4D 29 00 01 0D 5A 14 81 20 49 B2 20 31 20 A4 20 |M)...Z.. I. 1 . |
00000500: 46 00 32 0D 5F 14 84 32 2C 44 24 28 49 29 3A 20 |F.2._..2,D$(I): |
00000510: 8B 20 44 24 28 49 29 20 B2 20 22 45 4E 44 22 20 |. D$(I) . "END" |
00000520: A7 20 98 33 2C 44 24 28 49 29 3A 20 89 20 35 33 |. .3,D$(I): . 53|
00000530: 36 30 00 46 0D 64 14 46 28 49 29 20 B2 20 C5 28 |60.F.d.F(I) . .(|
00000540: 44 24 28 49 29 29 00 4E 0D 6E 14 82 20 49 00 7C |D$(I)).N.n.. I.||
00000550: 0D 78 14 99 20 22 93 11 20 D0 CC C5 C1 D3 C5 20 |.x.. ".. ...... |
00000560: D7 C1 C9 D4 2E 2E 2E 22 3A 99 3A 99 3A 20 97 20 |.......":.:.: . |
00000570: 36 34 36 2C C2 28 35 33 32 38 31 29 00 8F 0D 82 |646,.(53281)....|
00000580: 14 99 20 22 41 4E 3D 22 45 51 24 28 4D 4D 29 00 |.. "AN="EQ$(MM).|
00000590: A3 0D 8C 14 99 20 22 11 11 47 4F 54 4F 20 35 33 |..... "..GOTO 53|
000005A0: 31 30 22 00 B5 0D 96 14 99 20 22 47 4F 54 4F 20 |10"...... "GOTO |
000005B0: 35 33 39 30 22 00 C6 0D A0 14 99 20 22 91 91 91 |5390"...... "...|
000005C0: 91 91 91 91 91 22 00 F6 0D A5 14 5A 5A 20 B2 20 |.....".....ZZ . |
000005D0: C3 28 22 41 4E 3D 22 20 AA 20 45 51 24 28 4D 4D |.("AN=" . EQ$(MM|
000005E0: 29 29 20 3A 20 8B 20 5A 5A 20 B1 20 33 39 20 A7 |)) : . ZZ . 39 .|
000005F0: 20 99 22 91 22 3B 00 16 0E AA 14 97 20 36 33 31 | .".";...... 631|
00000600: 2C 31 33 3A 20 97 20 36 33 32 2C 31 33 3A 20 97 |,13: . 632,13: .|
00000610: 20 31 39 38 2C 32 00 1C 0E B4 14 80 00 2D 0E BE | 198,2.......-..|
00000620: 14 97 20 36 34 36 2C C2 28 38 35 30 29 00 4A 0E |.. 646,.(850).J.|
00000630: C8 14 41 4E 24 20 B2 20 C4 28 41 4E 29 3A 20 81 |..AN$ . .(AN): .|
00000640: 20 49 20 B2 20 31 20 A4 20 46 00 63 0E D2 14 8B | I . 1 . F.c....|
00000650: 20 49 20 B2 20 53 28 4D 4D 29 20 A7 20 98 33 2C | I . S(MM) . .3,|
00000660: 41 4E 24 00 7F 0E DC 14 8B 20 49 20 B3 B1 20 53 |AN$...... I .. S|
00000670: 28 4D 4D 29 20 A7 20 98 33 2C 44 24 28 49 29 00 |(MM) . .3,D$(I).|
00000680: 8E 0E E6 14 82 20 49 3A 20 89 35 32 31 30 00 AF |..... I: .5210..|
00000690: 0E F0 14 49 20 B2 20 46 3A 20 82 20 49 3A 20 4D |...I . F: . I: M|
000006A0: 4D 20 B2 20 51 51 3A 20 A0 20 32 3A A0 20 33 00 |M . QQ: . 2:. 3.|
000006B0: DB 0E FA 14 98 31 35 2C 22 53 30 3A 22 AA 44 46 |.....15,"S0:".DF|
000006C0: 24 3A 98 31 35 2C 22 52 30 3A 22 20 AA 20 44 46 |$:.15,"R0:" . DF|
000006D0: 24 20 AA 20 22 3D 53 57 41 50 22 00 EC 0E 04 15 |$ . "=SWAP".....|
000006E0: A0 20 31 35 3A 20 89 20 37 30 30 30 00 FD 0E 0E |. 15: . 7000....|
000006F0: 15 97 20 36 34 36 2C C2 28 38 35 30 29 00 0A 0F |.. 646,.(850)...|
00000700: 18 15 A0 20 32 3A 20 A0 20 33 00 2E 0F 1C 15 99 |... 2: . 3......|
00000710: 20 22 93 11 11 20 2A 20 D4 C8 C5 A0 C4 C1 D4 C1 | "... * ........|
00000720: A0 C9 CE A0 C6 C9 CC C5 A0 22 3B 44 46 24 00 5E |.........";DF$.^|
00000730: 0F 1D 15 99 20 22 20 2A 20 C1 CE C4 A0 D4 C8 C5 |.... " * .......|
00000740: A0 C5 D1 D5 C1 D4 C9 CF CE A0 D9 CF D5 A0 D3 C5 |................|
00000750: CC C5 C3 D4 C5 C4 A0 A0 A0 A0 A0 20 2A 22 00 8E |........... *"..|
00000760: 0F 1E 15 99 20 22 20 2A 20 C8 C1 D3 A0 D0 D2 CF |.... " * .......|
00000770: C4 D5 C3 C5 C4 A0 C1 A0 CD C1 D4 C8 C5 CD C1 D4 |................|
00000780: C9 C3 C1 CC A0 C5 D2 D2 CF D2 20 20 2A 22 00 BD |.......... *"..|
00000790: 0F 1F 15 99 22 11 11 11 D4 D9 D0 C5 20 27 CD C5 |...."....... '..|
000007A0: CE D5 27 20 C6 CF D2 20 CD C1 C9 CE 20 CD C5 CE |..' ... .... ...|
000007B0: D5 22 3A 99 20 3A 20 89 20 35 30 39 30 00 E0 0F |.":. : . 5090...|
000007C0: 74 18 43 4B 20 B2 20 30 3A 20 43 20 B2 20 31 3A |t.CK . 0: C . 1:|
000007D0: 20 8B 20 46 20 B3 B2 20 34 20 A7 20 36 33 35 30 | . F .. 4 . 6350|
000007E0: 00 F3 0F 7E 18 47 4B 20 B2 20 31 3A 20 89 20 37 |...~.GK . 1: . 7|
000007F0: 35 35 31 00 21 10 CE 18 81 20 49 20 B2 20 31 20 |551.!.... I . 1 |
00000800: A4 20 46 3A 20 99 22 20 C6 C9 C5 CC C4 20 23 22 |. F: ." ..... #"|
00000810: 49 22 3D 22 46 24 28 49 29 3A 20 82 20 49 3A 20 |I"="F$(I): . I: |
00000820: 99 00 48 10 D8 18 99 22 20 20 20 20 20 D0 D2 C5 |..H...." ...|
00000830: D3 D3 20 28 D2 C5 D4 D5 D2 CE 29 20 D4 CF 20 C3 |.. (......) .. .|
00000840: CF CE D4 C9 CE D5 C5 22 00 65 10 E2 18 A1 20 4B |.......".e.... K|
00000850: 24 3A 20 8B 20 4B 24 B3 B1 C7 28 31 33 29 20 A7 |$: . K$...(13) .|
00000860: 20 36 33 37 30 00 6B 10 EC 18 8E 00 A4 10 58 1B | 6370.k.......X.|
00000870: 99 22 93 22 3A 99 22 20 CA D5 D3 D4 20 C1 20 D3 |.".":." .... . .|
00000880: C5 C3 2E 2E 2E 22 3A 9F 20 32 2C 38 2C 32 2C 22 |.....":. 2,8,2,"|
00000890: 40 30 3A 46 22 20 AA 20 44 46 24 20 AA 20 22 2C |@0:F" . DF$ . ",|
000008A0: 53 2C 57 22 00 B8 10 59 1B 81 20 49 20 B2 20 31 |S,W"...Y.. I . 1|
000008B0: 20 A4 20 46 20 AA 20 31 00 E7 10 5A 1B 98 32 2C | . F . 1...Z..2,|
000008C0: 46 24 28 49 29 3A 20 82 20 49 3A 20 98 32 2C 52 |F$(I): . I: .2,R|
000008D0: 4E 3A 20 98 32 2C 49 4C 3A 20 98 32 2C 52 54 3A |N: .2,IL: .2,RT:|
000008E0: 20 98 32 2C 50 57 24 00 0D 11 5B 1B 98 32 2C 4D | .2,PW$...[..2,M|
000008F0: 4D 3A 20 81 20 49 20 B2 20 31 20 A4 20 4D 4D 3A |M: . I . 1 . MM:|
00000900: 20 98 32 2C 53 28 49 29 3A 20 82 20 49 00 2E 11 | .2,S(I): . I...|
00000910: 5C 1B 81 20 49 20 B2 20 31 20 A4 20 4D 4D 3A 20 |\.. I . 1 . MM: |
00000920: 98 32 2C 45 51 24 28 49 29 3A 20 82 20 49 00 35 |.2,EQ$(I): . I.5|
00000930: 11 5D 1B A0 32 00 46 11 60 1B 97 20 36 34 36 2C |.]..2.F.`.. 646,|
00000940: C2 28 38 35 30 29 00 89 11 61 1B 99 22 93 22 3A |.(850)...a..".":|
00000950: 99 22 11 11 11 11 11 11 20 C9 CE D3 C5 D2 D4 20 |."...... ...... |
00000960: D3 D9 D3 D4 C5 CD 20 C4 C9 D3 CB 20 C1 CE C4 20 |...... .... ... |
00000970: D0 D2 C5 D3 D3 20 28 D2 C5 D4 D5 D2 CE 29 2E 22 |..... (......)."|
00000980: 3A 20 97 38 35 31 2C 31 30 00 A5 11 62 1B A1 20 |: .851,10...b.. |
00000990: 4B 24 3A 8B 20 4B 24 B3 B1 C7 28 31 33 29 20 A7 |K$:. K$...(13) .|
000009A0: 20 37 30 31 30 00 C6 11 6C 1B 97 20 38 35 30 2C | 7010...l.. 850,|
000009B0: C2 28 36 34 36 29 3A 20 97 20 36 34 36 2C C2 28 |.(646): . 646,.(|
000009C0: 35 33 32 38 31 29 00 FA 11 76 1B 99 3A 99 3A 99 |53281)...v..:.:.|
000009D0: 3A 20 99 22 4C 4F 41 44 22 20 AA 20 C7 28 33 34 |: ."LOAD" . .(34|
000009E0: 29 20 AA 20 22 4B 46 22 20 AA 20 C7 28 33 34 29 |) . "KF" . .(34)|
000009F0: 20 AA 20 22 2C 38 91 91 91 22 00 37 12 80 1B 97 | . ",8...".7....|
00000A00: 20 36 33 31 2C 31 33 3A 20 97 20 36 33 32 2C 38 | 631,13: . 632,8|
00000A10: 32 3A 20 97 20 36 33 33 2C 38 35 3A 20 97 20 36 |2: . 633,85: . 6|
00000A20: 33 34 2C 37 38 3A 20 97 20 36 33 35 2C 31 33 3A |34,78: . 635,13:|
00000A30: 97 20 31 39 38 2C 35 00 3D 12 8A 1B 80 00 6D 12 |. 198,5.=.....m.|
00000A40: 7F 1D 99 22 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |..."............|
00000A50: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
00000A60: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 22 00 9A 12 |............"...|
00000A70: 83 1D 81 20 49 20 B2 20 31 20 A4 20 34 3A 20 99 |... I . 1 . 4: .|
00000A80: 20 49 22 20 22 46 24 28 49 29 3A 20 99 3A 20 82 | I" "F$(I): .: .|
00000A90: 20 49 3A 20 46 57 20 B2 20 31 00 CA 12 85 1D 99 | I: FW . 1......|
00000AA0: 22 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |"...............|
00000AB0: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
00000AC0: A3 A3 A3 A3 A3 A3 A3 A3 A3 22 00 F9 12 86 1D 99 |........."......|
00000AD0: 22 91 20 D5 D3 C5 20 C3 D2 D3 D2 20 D5 D0 20 26 |". ... .... .. &|
00000AE0: 20 C4 CF D7 CE 20 D4 CF 20 D6 C9 C5 D7 20 C1 CC | .... .. .... ..|
00000AF0: CC 20 C6 C9 C5 CC C4 D3 22 00 1C 13 87 1D 99 22 |. ......"......"|
00000B00: 20 D0 D2 C5 D3 D3 20 28 D2 C5 D4 D5 D2 CE 29 20 | ..... (......) |
00000B10: D4 CF 20 C3 CF CE D4 C9 CE D5 C5 22 00 37 13 88 |.. ........".7..|
00000B20: 1D A1 20 4B 24 3A 20 8B 20 4B 24 20 B2 20 22 22 |.. K$: . K$ . ""|
00000B30: 20 A7 20 37 35 36 30 00 4A 13 8E 1D 8B 20 4B 24 | . 7560.J.... K$|
00000B40: B2 C7 28 31 33 29 20 A7 20 8E 00 6B 13 92 1D 8B |..(13) . ..k....|
00000B50: 20 4B 24 B2 22 11 22 20 A7 20 46 57 20 B2 20 46 | K$."." . FW . F|
00000B60: 57 AA 31 3A 20 89 20 37 35 39 30 00 8A 13 9C 1D |W.1: . 7590.....|
00000B70: 8B 20 4B 24 B2 22 91 22 20 A7 20 46 57 B2 46 57 |. K$."." . FW.FW|
00000B80: AB 31 3A 20 89 20 37 35 39 30 00 95 13 A1 1D 89 |.1: . 7590......|
00000B90: 20 37 35 36 30 00 B6 13 A6 1D 8B 20 46 57 AA 33 | 7560...... FW.3|
00000BA0: 20 B1 20 46 20 A7 20 46 57 B2 46 57 AB 31 3A 20 | . F . FW.FW.1: |
00000BB0: 89 20 37 35 36 30 00 D3 13 A7 1D 8B 20 46 57 B3 |. 7560...... FW.|
00000BC0: 31 20 A7 20 46 57 B2 46 57 AA 31 3A 20 89 20 37 |1 . FW.FW.1: . 7|
00000BD0: 35 36 30 00 13 14 AB 1D 99 22 93 11 20 D9 CF D5 |560......".. ...|
00000BE0: 20 C8 C1 D6 C5 22 46 22 C6 C9 C5 CC C4 D3 20 C5 | ...."F"...... .|
00000BF0: CE D4 C5 D2 C5 C4 2C 20 D4 C8 C5 D9 20 C1 D2 C5 |......, .... ...|
00000C00: 20 20 20 20 20 C1 D3 20 C6 CF CC CC CF D7 D3 3A | .. .......:|
00000C10: 22 3A 99 00 43 14 C9 1D 99 22 A3 A3 A3 A3 A3 A3 |":..C...."......|
00000C20: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
00000C30: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
00000C40: A3 A3 22 00 58 14 CE 1D 81 20 49 B2 20 46 57 20 |..".X.... I. FW |
00000C50: A4 20 28 46 57 AA 33 29 00 6B 14 D3 1D 99 20 49 |. (FW.3).k.... I|
00000C60: 22 20 22 46 24 28 49 29 3A 20 99 00 A0 14 D8 1D |" "F$(I): ......|
00000C70: 82 20 49 3A 20 99 22 A3 A3 A3 A3 A3 A3 A3 A3 A3 |. I: .".........|
00000C80: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
00000C90: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 22 |..............."|
00000CA0: 00 CF 14 E2 1D 99 22 91 20 D5 D3 C5 20 C3 D2 D3 |......". ... ...|
00000CB0: D2 20 D5 D0 20 26 20 C4 CF D7 CE 20 D4 CF 20 D6 |. .. & .... .. .|
00000CC0: C9 C5 D7 20 C1 CC CC 20 C6 C9 C5 CC C4 D3 22 00 |... ... ......".|
00000CD0: F2 14 E7 1D 99 22 20 D0 D2 C5 D3 D3 20 28 D2 C5 |....." ..... (..|
00000CE0: D4 D5 D2 CE 29 20 D4 CF 20 C3 CF CE D4 C9 CE D5 |....) .. .......|
00000CF0: C5 22 00 FD 14 EC 1D 89 20 37 35 36 30 00 00 00 |."...... 7560...|
.......".": . 646,B(850).N.... I . 1 . 2
5: . B(850.I) . 255 . I. 25: . I: . 10.O
...DF$ . DF$ . G(B(850.I)): . I......"."
: . 50,0......" INSERT USER DISK AND PRE
SS (RETURN)".I.... K$: . K$ .. G(13) . 2
5...... F$(50), F(50), S(50), EQ$(50), D
$(50)...... 2,8,2,"F" . DF$ . ",S,R".-.(
.. 15,8,15: .15,A$,A$.G.-.. A$ .. "OK" .
15: ."."A$ : . J. 1 . 2000: . J : . 5.
..2.. I. 1 . 50:.2,F$(I): . F$(I)."END"
. F$(I)."END" . F.I.1: I.50...<.. I.S.P.
.2,RN: .2,IL: .2,RT: .2,PW$...Z..2,MM...
_.. MM .. 0 . . I . 1 . MM: .2,S(I): . I
.5.D.. MM .. 0 . . I . 1 . MM: .2,EQ$(I)
: . I.<.N. 2.|....".. YOU HAVE"F"FIELDS
ENTERED, THEY ARE AS FOLLOWS:":.....
.. 6260.....MM . MM . 1: QQ . MM: EQ$(MM
) . "": S(MM) . 0...D..". ........TYPE '
MENU' FOR MAIN MENU":.......:." ENTER FI
ELD NUMBER YOU".&...." WISH TO STORE ANS
WER":..G...." FIELD NUMBER : ";:.50,NF$.
{.... NF$."MENU" . NF$."MENU" . MM . MM
. 1: . 7000...... L . 1 . MM: . E(NF$) .
S(L). XX. L: L . MM : . L : . 5134.C...
. L.....MM . MM.1: QQ . MM: MM . XX.....
S(MM) . E(NF$):. S(MM).1 . S(MM).F . MM
. MM.1:. 5050.I....2,8,2,DF$.",S,R": .3,
8,3,"@0:SWAP,S,W".~...MF . S(MM): .:.:.
" ENTER MATHEMATICAL EQUATION". .(..:.:.
" "F$(S(MM))"=";EQ$(MM);...2.. C(EQ$(MM)
) . 0 . 5190...<.. BS . 1 . C(EQ$(MM)):
.".";:. BS...F..50,EQ$(MM)...Z.. I. 1 .
F.2._..2,D$(I): . D$(I) . "END" . .3,D$(
I): . 5360.F.D.F(I) . E(D$(I)).N.N.. I.|
.X.. ".. PLEASE WAIT...":.:.: . 646,B(53
281)...... "AN="EQ$(MM)...... "..GOTO 53
10"...... "GOTO 5390".F. .. "........"..
...ZZ . C("AN=" . EQ$(MM)) : . ZZ . 39 .
.".";...... 631,13: . 632,13: . 198,2..
.....-.... 646,B(850).J.H.AN$ . D(AN): .
I . 1 . F.C.R.. I . S(MM) . .3,AN$....
. I .. S(MM) . .3,D$(I)...... I: .5210..
...I . F: . I: MM . QQ: 2: 3......15,
"S0:".DF$:.15,"R0:" . DF$ . "=SWAP".....
15: . 7000...... 646,B(850)..... 2:
3...... "... * THE DATA IN FILE ";DF$.^
.... " * AND THE EQUATION YOU SELECTED
*"...... " * HAS PRODUCED A MATHEMAT
ICAL ERROR *"......"...TYPE 'MENU' FOR
MAIN MENU":. : . 5090...T.CK . 0: C . 1:
. F .. 4 . 6350...~.GK . 1: . 7551.!.N.
. I . 1 . F: ." FIELD #"I"="F$(I): . I:
..H.X.." PRESS (RETURN) TO CONTINUE"
.E.... K$: . K$..G(13) . 6370.K.......X.
.".":." JUST A SEC...":. 2,8,2,"@0:F" .
DF$ . ",S,W"...Y.. I . 1 . F . 1...Z..2,
F$(I): . I: .2,RN: .2,IL: .2,RT: .2,PW$.
..[..2,MM: . I . 1 . MM: .2,S(I): . I...
\.. I . 1 . MM: .2,EQ$(I): . I.5.]. 2.F.
`.. 646,B(850)...A..".":."...... INSERT
SYSTEM DISK AND PRESS (RETURN).": .851,1
0...B.. K$:. K$..G(13) . 7010.F.L.. 850,
B(646): . 646,B(53281)...V..:.:.: ."LOAD
" . G(34) . "KF" . G(34) . ",8...".7....
631,13: . 632,82: . 633,85: . 634,78: .
635,13:. 198,5.=.....M..."............
............................"...... I .
1 . 4: . I" "F$(I): .: . I: FW . 1.J....
".......................................
."......". USE CRSR UP & DOWN TO VIEW AL
L FIELDS"......" PRESS (RETURN) TO CONTI
NUE".7.... K$: . K$ . "" . 7560.J.... K$
.G(13) . ..K.... K$."." . FW . FW.1: . 7
590...... K$."." . FW.FW.1: . 7590......
7560...... FW.3 . F . FW.FW.1: . 7560.S
.... FW.1 . FW.FW.1: . 7560......".. YOU
HAVE"F"FIELDS ENTERED, THEY ARE AS
FOLLOWS:":..C.I.."......................
..................".X.N.. I. FW . (FW.3)
.K.S.. I" "F$(I): .. .X.. I: .".........
...............................".O....".
USE CRSR UP & DOWN TO VIEW ALL FIELDS".
....." PRESS (RETURN) TO CONTINUE"......
7560...
> CLICK IMAGE PREVIEW FOR FULL MODAL