CASS. COPY 220
FILE INFORMATION
FILENAME(S): CASS. COPY 220
FILE TYPE(S): PRG
FILE SIZE: 2.5K
FIRST SEEN: 2025-12-01 13:59:46
APPEARS ON: 1 disk(s)
FILE HASH
13fcc1c01b427d72fa1a326fc581877286f03428a4b17fcbd0034051bac73922
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TOOLS01 | CASS. COPY 220 | PRG | HOL2001, OUG | 13 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 17 08 0A 00 97 35 33 32 38 30 2C 30 3A 97 |.......53280,0:.| 00000010: 35 33 32 38 31 2C 30 00 4D 08 14 00 97 35 36 2C |53281,0.M....56,| 00000020: C2 28 34 36 29 AA 31 34 3A 9C 3A 52 42 B2 32 35 |.(46).14:.:RB.25| 00000030: 35 AB C2 28 35 36 29 3A 50 41 B2 31 3A 41 4E B2 |5..(56):PA.1:AN.| 00000040: 30 3A 42 4C B2 30 3A 4E 46 24 B2 22 22 00 82 08 |0:BL.0:NF$.""...| 00000050: 1E 00 50 45 B2 C2 28 34 35 29 AA 32 35 36 AC C2 |..PE..(45).256..| 00000060: 28 34 36 29 3A 4D 52 B2 50 45 AB 33 35 32 3A 4D |(46):MR.PE.352:M| 00000070: 57 B2 50 45 AB 32 35 32 3A 4D 44 B2 50 45 AB 32 |W.PE.252:MD.PE.2| 00000080: 39 35 00 A2 08 28 00 86 4E 46 24 28 31 34 30 29 |95...(..NF$(140)| 00000090: 2C 43 46 25 28 31 34 30 29 2C 42 4C 25 28 31 34 |,CF%(140),BL%(14| 000000A0: 30 29 00 D3 08 32 00 41 50 50 B2 30 3A 45 50 50 |0)...2.APP.0:EPP| 000000B0: B2 30 3A 50 4C B2 30 3A 41 4C 25 B2 30 3A 41 48 |.0:PL.0:AL%.0:AH| 000000C0: 25 B2 C2 28 35 36 29 3A 45 4C 25 B2 30 3A 45 48 |%..(56):EL%.0:EH| 000000D0: 25 B2 30 00 D9 08 3C 00 3A 00 DF 08 46 00 3A 00 |%.0...<.:...F.:.| 000000E0: 03 09 50 00 99 22 93 11 05 22 A3 39 29 22 43 41 |..P.."...".9)"CA| 000000F0: 53 53 45 54 54 45 4E 20 2D 20 43 4F 50 59 20 32 |SSETTEN - COPY 2| 00000100: 32 30 22 00 1F 09 5A 00 99 2C 22 11 11 11 11 1D |20"...Z..,".....| 00000110: 1D 31 2E 20 20 44 49 52 45 43 54 4F 52 59 22 00 |.1. DIRECTORY".| 00000120: 38 09 64 00 99 2C 22 11 1D 1D 32 2E 20 20 43 4F |8.d..,"...2. CO| 00000130: 50 59 20 44 49 53 4B 22 00 51 09 6E 00 99 2C 22 |PY DISK".Q.n..,"| 00000140: 11 1D 1D 33 2E 20 20 50 52 47 4D 2E 20 45 4E 44 |...3. PRGM. END| 00000150: 22 00 70 09 78 00 99 A6 32 31 30 29 22 12 20 20 |".p.x...210)". | 00000160: 20 53 45 4C 45 43 54 20 54 41 53 4B 20 20 20 22 | SELECT TASK "| 00000170: 00 92 09 82 00 A1 44 43 24 3A 44 43 B2 C5 28 44 |......DC$:DC..(D| 00000180: 43 24 29 3A 8B 44 43 B3 31 B0 44 43 B1 34 A7 31 |C$):.DC.1.DC.4.1| 00000190: 33 30 00 A6 09 8C 00 91 44 43 89 37 37 30 2C 31 |30......DC.770,1| 000001A0: 37 30 2C 35 39 30 00 AC 09 96 00 3A 00 B2 09 A0 |70,590.....:....| 000001B0: 00 3A 00 D4 09 AA 00 99 22 93 11 22 2C 22 20 20 |.:......".."," | 000001C0: 12 49 4E 53 45 52 54 20 53 4F 55 52 43 45 20 44 |.INSERT SOURCE D| 000001D0: 49 53 4B 22 00 DE 09 B4 00 8D 20 38 35 30 00 F3 |ISK"...... 850..| 000001E0: 09 BE 00 8F 20 46 49 4C 45 53 20 45 49 4E 4C 45 |.... FILES EINLE| 000001F0: 53 45 4E 00 04 0A C8 00 9F 20 31 2C 38 2C 30 2C |SEN...... 1,8,0,| 00000200: 22 24 30 22 00 1C 0A D2 00 8D 20 36 31 30 3A 8B |"$0"...... 610:.| 00000210: 20 4E 46 24 B3 B1 22 22 A7 32 34 30 00 2A 0A DC | NF$.."".240.*..| 00000220: 00 8B 53 54 B2 30 A7 32 31 30 00 33 0A E6 00 89 |..ST.0.210.3....| 00000230: 32 35 30 00 71 0A F0 00 42 4C 25 28 41 4E 29 B2 |250.q...BL%(AN).| 00000240: C6 28 42 4C 24 AA C7 28 30 29 29 3A 4E 46 24 28 |.(BL$..(0)):NF$(| 00000250: 41 4E 29 B2 4E 46 24 3A 8B 53 54 B2 30 A7 41 4E |AN).NF$:.ST.0.AN| 00000260: B2 41 4E AA 31 3A 4E 46 24 B2 22 22 3A 89 32 31 |.AN.1:NF$."":.21| 00000270: 30 00 A6 0A FA 00 A0 31 3A 41 4E B2 41 4E AB 31 |0......1:AN.AN.1| 00000280: 3A 8B 41 4E B2 30 A7 99 2C 22 20 20 20 20 20 20 |:.AN.0..," | 00000290: 11 11 12 44 49 53 4B 2D 45 4D 50 54 59 92 22 3A |...DISK-EMPTY.":| 000002A0: 8D 38 35 30 3A 8A 00 AC 0A 04 01 3A 00 CF 0A 0E |.850:......:....| 000002B0: 01 99 22 93 11 22 2C 22 53 45 4C 45 43 54 20 50 |.."..","SELECT P| 000002C0: 52 4F 47 52 41 4D 20 20 5B 59 2F 4E 5D 11 22 00 |ROGRAM [Y/N].".| 000002D0: FD 0A 18 01 81 49 B2 31 A4 41 4E 3A 99 A3 34 29 |.....I.1.AN:..4)| 000002E0: 3B 42 4C 25 28 49 29 2C 4E 46 24 28 49 29 3B 22 |;BL%(I),NF$(I);"| 000002F0: 20 20 3E 20 22 3B 3A 97 31 39 38 2C 30 00 30 0B | > ";:.198,0.0.| 00000300: 22 01 92 31 39 38 2C 31 3A A1 41 24 3A 8B 41 24 |"..198,1:.A$:.A$| 00000310: B2 22 59 22 A7 43 46 25 28 49 29 B2 AB 31 3A 42 |."Y".CF%(I)..1:B| 00000320: 4C B2 42 4C AA 42 4C 25 28 49 29 3A 89 33 31 30 |L.BL.BL%(I):.310| 00000330: 00 39 0B 2C 01 89 33 32 30 00 4D 0B 36 01 99 22 |.9.,..320.M.6.."| 00000340: 12 99 59 45 53 92 05 22 3A 89 33 34 30 00 67 0B |..YES..":.340.g.| 00000350: 40 01 43 46 25 28 49 29 B2 30 3A 8B 41 24 B3 B1 |@.CF%(I).0:.A$..| 00000360: 22 4E 22 A7 32 39 30 00 73 0B 4A 01 99 22 96 4E |"N".290.s.J..".N| 00000370: 4F 05 22 00 81 0B 54 01 82 20 49 3A 50 41 B2 41 |O."...T.. I:PA.A| 00000380: 4E 00 8F 0B 5E 01 8B 42 4C B2 30 A7 35 36 30 00 |N...^..BL.0.560.| 00000390: 95 0B 68 01 3A 00 B8 0B 72 01 99 22 93 22 2C 22 |..h.:...r..".","| 000003A0: 20 12 20 20 20 57 4F 52 4B 49 4E 47 20 4F 4E 20 | . WORKING ON | 000003B0: 43 4F 50 59 20 20 11 22 00 EE 0B 77 01 99 22 20 |COPY ."...w.." | 000003C0: 20 20 20 12 49 4E 53 45 52 54 20 53 4F 55 52 43 | .INSERT SOURC| 000003D0: 45 2D 44 49 53 4B 20 41 4E 44 20 54 41 52 47 45 |E-DISK AND TARGE| 000003E0: 54 2D 54 41 50 45 11 11 22 3A 8D 38 35 30 00 07 |T-TAPE..":.850..| 000003F0: 0C 7C 01 81 49 B2 31 A4 50 41 3A 8B A8 43 46 25 |.|..I.1.PA:..CF%| 00000400: 28 49 29 A7 34 33 30 00 18 0C 86 01 81 52 57 B2 |(I).430......RW.| 00000410: 30 A4 31 3A 4E 52 B2 30 00 3C 0C 90 01 4E 46 24 |0.1:NR.0.<...NF$| 00000420: B2 4E 46 24 28 49 29 3A 8D 34 35 30 3A 8B 53 54 |.NF$(I):.450:.ST| 00000430: B2 30 B0 53 54 B2 36 34 A7 34 32 30 00 47 0C 9A |.0.ST.64.420.G..| 00000440: 01 8D 37 34 30 3A 8A 00 4F 0C A4 01 82 52 57 00 |..740:..O....RW.| 00000450: 5E 0C AE 01 8B 49 B2 50 41 20 A7 35 36 30 00 67 |^....I.PA .560.g| 00000460: 0C B8 01 82 49 3A 8A 00 75 0C C2 01 8B 52 57 B2 |....I:..u....RW.| 00000470: 31 A7 34 39 30 00 AB 0C CC 01 9F 31 2C 38 2C 35 |1.490......1,8,5| 00000480: 2C 4E 46 24 AA 22 2C 52 22 3A 97 32 35 32 2C 41 |,NF$.",R":.252,A| 00000490: 4C 25 3A 97 32 35 33 2C 41 48 25 3A 99 22 4C 4F |L%:.253,AH%:."LO| 000004A0: 41 44 49 4E 47 20 3A 22 4E 46 24 00 D1 0C D6 01 |ADING :"NF$.....| 000004B0: 9E 4D 52 3A 4E 52 B2 4E 52 AA 31 3A 45 4C 25 B2 |.MR:NR.NR.1:EL%.| 000004C0: C2 28 32 35 34 29 3A 45 48 25 B2 C2 28 32 35 35 |.(254):EH%..(255| 000004D0: 29 00 DA 0C E0 01 A0 31 3A 8E 00 09 0D EA 01 41 |)......1:......A| 000004E0: 50 50 B2 32 35 36 AC 41 48 25 AA 41 4C 25 3A 45 |PP.256.AH%.AL%:E| 000004F0: 50 50 B2 32 35 36 AC 45 48 25 AA 45 4C 25 3A 50 |PP.256.EH%.EL%:P| 00000500: 4C B2 45 50 50 AB 41 50 50 00 33 0D F4 01 97 31 |L.EPP.APP.3....1| 00000510: 37 32 2C 41 4C 25 AA 32 3A 97 31 37 33 2C 41 48 |72,AL%.2:.173,AH| 00000520: 25 3A 97 31 37 34 2C 45 4C 25 3A 97 31 37 35 2C |%:.174,EL%:.175,| 00000530: 45 48 25 00 6D 0D FE 01 50 4C B2 C2 28 41 50 50 |EH%.m...PL..(APP| 00000540: 29 AA 32 35 36 AC C2 28 41 50 50 AA 31 29 AA 50 |).256..(APP.1).P| 00000550: 4C AB 31 3A 97 31 36 37 2C C2 28 41 50 50 29 3A |L.1:.167,.(APP):| 00000560: 97 31 36 38 2C C2 28 41 50 50 AA 31 29 00 90 0D |.168,.(APP.1)...| 00000570: 08 02 97 31 37 30 2C 50 4C AD 32 35 36 3A 97 31 |...170,PL.256:.1| 00000580: 36 39 2C 50 4C AB 32 35 36 AC C2 28 31 37 30 29 |69,PL.256..(170)| 00000590: 00 B4 0D 12 02 81 4A B2 31 A4 31 36 3A 97 38 33 |......J.1.16:.83| 000005A0: 32 AA 4A 2C C6 28 CA 28 4E 46 24 2C 4A 2C 31 29 |2.J,.(.(NF$,J,1)| 000005B0: 29 3A 82 4A 00 E4 0D 1C 02 97 31 38 33 2C 31 36 |):.J......183,16| 000005C0: 3A 97 31 38 34 2C 30 3A 97 31 38 35 2C 31 3A 97 |:.184,0:.185,1:.| 000005D0: 31 38 36 2C 31 3A 97 31 38 37 2C 36 35 3A 97 31 |186,1:.187,65:.1| 000005E0: 38 38 2C 33 00 06 0E 26 02 99 22 53 41 56 45 49 |88,3...&.."SAVEI| 000005F0: 4E 47 20 3A 22 4E 46 24 3A 9E 4D 57 3A 4E 52 B2 |NG :"NF$:.MW:NR.| 00000600: 4E 52 AA 31 3A 8E 00 24 0E 30 02 99 2C 22 20 20 |NR.1:..$.0..," | 00000610: 20 20 20 20 11 11 11 12 45 4E 44 20 4F 46 20 43 | ....END OF C| 00000620: 4F 50 59 22 00 2F 0E 3A 02 8D 38 35 30 3A 8A 00 |OPY"./.:..850:..| 00000630: 35 0E 44 02 3A 00 5B 0E 4E 02 97 35 36 2C 31 36 |5.D.:.[.N..56,16| 00000640: 30 3A 99 22 93 11 22 2C 22 20 45 4E 44 20 4F 46 |0:.".."," END OF| 00000650: 20 50 52 4F 47 52 41 4D 22 3A 80 00 61 0E 58 02 | PROGRAM":..a.X.| 00000660: 3A 00 67 0E 62 02 3A 00 75 0E 6C 02 A1 23 31 2C |:.g.b.:.u.l..#1,| 00000670: 41 24 2C 42 24 00 84 0E 76 02 A1 23 31 2C 42 4C |A$,B$...v..#1,BL| 00000680: 24 2C 42 24 00 8F 0E 80 02 A1 23 31 2C 41 24 00 |$,B$......#1,A$.| 00000690: A3 0E 8A 02 A1 23 31 2C 42 24 3A 8B 53 54 B3 B1 |.....#1,B$:.ST..| 000006A0: 30 A7 8E 00 B6 0E 94 02 8B 42 24 B3 B1 C7 28 33 |0........B$...(3| 000006B0: 34 29 A7 36 35 30 00 DC 0E 9E 02 A1 23 31 2C 42 |4).650......#1,B| 000006C0: 24 3A 8B 42 24 B3 B1 C7 28 33 34 29 A7 4E 46 24 |$:.B$...(34).NF$| 000006D0: B2 4E 46 24 AA 42 24 3A 89 36 37 30 00 F5 0E A8 |.NF$.B$:.670....| 000006E0: 02 A1 23 31 2C 42 24 3A 8B 42 24 B2 C7 28 33 32 |..#1,B$:.B$..(32| 000006F0: 29 A7 36 38 30 00 21 0F B2 02 4E 46 24 B2 C8 28 |).680.!...NF$..(| 00000700: 4E 46 24 AA 22 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 |NF$."...........| 00000710: A0 A0 A0 A0 A0 22 2C 31 36 29 AA 22 2C 22 AA 42 |.....",16).",".B| 00000720: 24 00 40 0F BC 02 81 49 B2 30 A4 31 3A A1 23 31 |$.@....I.0.1:.#1| 00000730: 2C 42 24 3A 4E 46 24 B2 4E 46 24 AA 42 24 3A 82 |,B$:NF$.NF$.B$:.| 00000740: 00 57 0F C6 02 A1 23 31 2C 42 24 3A 8B 42 24 B3 |.W....#1,B$:.B$.| 00000750: B1 22 22 A7 37 31 30 00 5D 0F D0 02 8E 00 63 0F |."".710.].....c.| 00000760: DA 02 3A 00 93 0F E4 02 9F 31 35 2C 38 2C 31 35 |..:......15,8,15| 00000770: 3A 84 31 35 2C 41 2C 42 24 2C 43 2C 44 3A 99 2C |:.15,A,B$,C,D:.,| 00000780: 41 3B 42 24 3B 43 3B 44 3A A0 31 35 3A 8D 38 35 |A;B$;C;D:.15:.85| 00000790: 30 3A 8E 00 99 0F EE 02 3A 00 9F 0F F8 02 3A 00 |0:......:.....:.| 000007A0: A8 0F 02 03 99 22 93 22 00 C2 0F 0C 03 9F 33 2C |....."."......3,| 000007B0: 38 2C 30 2C 22 24 30 22 3A A1 23 33 2C 41 24 2C |8,0,"$0":.#3,A$,| 000007C0: 41 24 00 D8 0F 16 03 A1 23 33 2C 41 24 2C 41 24 |A$......#3,A$,A$| 000007D0: 2C 42 4C 24 2C 42 48 24 00 EB 0F 20 03 8B 41 24 |,BL$,BH$... ..A$| 000007E0: B2 22 22 A7 A0 33 3A 89 38 34 30 00 09 10 2A 03 |.""..3:.840...*.| 000007F0: 42 4C 24 B2 42 4C 24 AA C7 28 30 29 3A 42 48 24 |BL$.BL$..(0):BH$| 00000800: B2 42 48 24 AA C7 28 30 29 00 21 10 34 03 99 32 |.BH$..(0).!.4..2| 00000810: 35 36 AC C6 28 42 48 24 29 AA C6 28 42 4C 24 29 |56..(BH$)..(BL$)| 00000820: 3B 00 2E 10 3E 03 9E 4D 44 3A 89 37 39 30 00 3B |;...>..MD:.790.;| 00000830: 10 48 03 8D 38 35 30 3A 89 38 30 00 52 10 52 03 |.H..850:.80.R.R.| 00000840: 99 A6 31 37 29 22 11 3C 52 45 54 55 52 4E 3E 11 |..17)".<RETURN>.| 00000850: 11 22 00 6A 10 5C 03 97 31 39 38 2C 30 3A 92 31 |.".j.\..198,0:.1| 00000860: 39 38 2C 31 3A A1 41 24 3A 8E 00 00 00 00 00 00 |98,1:.A$:.......| 00000870: 00 A2 01 20 C6 FF A0 00 20 CF FF 78 AA A5 01 29 |... .... ..x...)| 00000880: FC 85 01 8A 91 FC A5 01 09 03 85 01 58 20 B7 FF |............X ..| 00000890: C9 40 F0 0B C9 00 D0 07 C8 D0 DD E6 FD D0 D9 20 |.@............. | 000008A0: CC FF 84 FE A5 FD 85 FF 60 00 A2 03 20 C6 FF 20 |........`... .. | 000008B0: CF FF 20 D2 FF D0 F8 A9 0D 20 D2 FF 4C CC FF 00 |.. ...... ..L...| 000008C0: 00 29 FC 85 01 B1 AC 85 02 A5 01 09 03 85 01 A5 |.)..............| 000008D0: 02 4C 90 11 00 A2 0A 86 AB A2 00 86 02 20 38 F8 |.L........... 8.| 000008E0: 20 8F F6 20 59 11 20 70 11 A5 B9 18 69 01 CA 20 | .. Y. p....i.. | 000008F0: 90 11 A2 08 B9 A7 00 20 90 11 A2 06 C8 C0 05 EA |....... ........| 00000900: D0 F2 A0 00 A2 04 B1 BB C4 B7 90 03 A9 20 CA 20 |............. . | 00000910: 90 11 A2 05 C8 C0 BB D0 ED A9 02 85 AB 20 70 11 |............. p.| 00000920: 98 20 90 11 84 D7 A2 07 EA A5 01 20 C0 10 A2 03 |. ......... ....| 00000930: E6 AC D0 04 E6 AD CA CA A5 AC C5 AE A5 AD E5 AF |................| 00000940: 90 E7 EA A5 D7 20 90 11 A2 07 88 D0 F6 C8 84 C0 |..... ..........| 00000950: 58 18 A9 00 8D A0 02 4C 93 FC 20 2C A8 A0 00 84 |X......L.. ,....| 00000960: C0 AD 11 D0 29 EF 8D 11 D0 CA D0 FD 88 D0 FA 78 |....)..........x| 00000970: 60 A0 00 A9 02 20 90 11 A2 07 88 C0 09 D0 F4 A2 |`.... ..........| 00000980: 05 C6 AB D0 EE 98 20 90 11 A2 07 88 D0 F7 CA CA |...... .........| 00000990: 60 85 BD 45 D7 85 D7 A9 08 85 A3 06 BD A5 01 29 |`..E...........)| 000009A0: F7 20 B2 11 A2 11 EA 09 08 20 B2 11 A2 0E C6 A3 |. ....... ......| 000009B0: D0 E9 60 CA D0 FD 90 05 A2 0B CA D0 FD 85 01 60 |..`............`| 000009C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 000009D0: 00 |. |
.......53280,0:.53281,0.M....56,B(46).14
:.:RB.255.B(56):PA.1:AN.0:BL.0:NF$.""...
..PE.B(45).256.B(46):MR.PE.352:MW.PE.252
:MD.PE.295...(..NF$(140),CF%(140),BL%(14
0).S.2.APP.0:EPP.0:PL.0:AL%.0:AH%.B(56):
EL%.0:EH%.0.Y.<.:...F.:...P.."...".9)"CA
SSETTEN - COPY 220"...Z..,"......1. DIR
ECTORY".8.D..,"...2. COPY DISK".Q.N..,"
...3. PRGM. END".P.X...210)". SELECT
TASK "......DC$:DC.E(DC$):.DC.1.DC.4.1
30......DC.770,170,590.....:... .:.T....
".."," .INSERT SOURCE DISK"...... 850..
.... FILES EINLESEN...H.. 1,8,0,"$0"...R
.. 610:. NF$.."".240.*....ST.0.210.3....
250.Q...BL%(AN).F(BL$.G(0)):NF$(AN).NF$:
.ST.0.AN.AN.1:NF$."":.210..... 1:AN.AN.1
:.AN.0..," ...DISK-EMPTY.":.850:...
...:.O...."..","SELECT PROGRAM [Y/N].".
.....I.1.AN:..4);BL%(I),NF$(I);" > ";:.
198,0.0."..198,1:.A$:.A$."Y".CF%(I)..1:B
L.BL.BL%(I):.310.9.,..320.M.6.."..YES.."
:.340.G.@.CF%(I).0:.A$.."N".290.S.J..".N
O."...T.. I:PA.AN...^..BL.0.560...H.:...
R.."."," . WORKING ON COPY ."...W.."
.INSERT SOURCE-DISK AND TARGET-TAPE..
":.850...|..I.1.PA:..CF%(I).430......RW.
0.1:NR.0.<...NF$.NF$(I):.450:.ST.0.ST.64
.420.G....740:..O....RW.^....I.PA .560.G
....I:..U.B..RW.1.490...L..1,8,5,NF$.",R
":.252,AL%:.253,AH%:."LOADING :"NF$.Q.V.
.MR:NR.NR.1:EL%.B(254):EH%.B(255).Z... 1
:......APP.256.AH%.AL%:EPP.256.EH%.EL%:P
L.EPP.APP.3....172,AL%.2:.173,AH%:.174,E
L%:.175,EH%.M...PL.B(APP).256.B(APP.1).P
L.1:.167,B(APP):.168,B(APP.1)......170,P
L.256:.169,PL.256.B(170)......J.1.16:.83
2.J,F(J(NF$,J,1)):.J......183,16:.184,0:
.185,1:.186,1:.187,65:.188,3...&.."SAVEI
NG :"NF$:.MW:NR.NR.1:..$.0..," ....
END OF COPY"./.:..850:..5.D.:.[.N..56,16
0:.".."," END OF PROGRAM":..A.X.:.G.B.:.
U.L..#1,A$,B$...V..#1,BL$,B$......#1,A$.
.....#1,B$:.ST..0........B$..G(34).650..
....#1,B$:.B$..G(34).NF$.NF$.B$:.670....
..#1,B$:.B$.G(32).680.!...NF$.H(NF$."
",16).",".B$.@....I.0.1:.#1
,B$:NF$.NF$.B$:..W.F..#1,B$:.B$.."".710.
].P...C.Z.:......15,8,15:.15,A,B$,C,D:.,
A;B$;C;D: 15:.850:......:.....:......"."
.B....3,8,0,"$0":.#3,A$,A$.X....#3,A$,A$
,BL$,BH$... ..A$."". 3:.840...*.BL$.BL$.
G(0):BH$.BH$.G(0).!.4..256.F(BH$).F(BL$)
;...>..MD:.790.;.H..850:.80.R.R...17)".<
RETURN>..".J.\..198,0:.198,1:.A$:.......
... F. . O.X...)............X ..I@..I.P.
HP...PY L.......`... F. O. R.P... R.LL..
.)...............L........... 8. .. Y. P
....I.J ....... ....H...P. .....D.... J
....H..P..... P.. ...W..... ......P...JJ
..E.........W .....P.H..X.... .L.. ,. ..
...P)...PJP..P.X` ... .......P...F.P.. .
....P.JJ`..EW.W........). ....... ....F.
P.`JP.....JP...`.................
> CLICK IMAGE PREVIEW FOR FULL MODAL