C64-AMIGA.C64

00000000: 01 08 4C 08 01 00 8F 20  55 53 45 44 20 54 4F 20  |..L.... USED TO |
00000010: 43 4F 4E 56 45 52 54 20  41 20 42 41 53 49 43 20  |CONVERT A BASIC |
00000020: 50 52 4F 47 52 41 4D 20  46 52 4F 4D 20 43 2D 36  |PROGRAM FROM C-6|
00000030: 34 20 42 41 53 49 43 20  54 4F 20 41 20 53 45 51  |4 BASIC TO A SEQ|
00000040: 55 45 4E 54 49 41 4C 20  46 49 4C 45 00 96 08 02  |UENTIAL FILE....|
00000050: 00 8F 20 54 48 41 54 20  43 41 4E 20 42 45 20 4D  |.. THAT CAN BE M|
00000060: 45 52 47 45 44 20 54 4F  20 54 48 45 20 41 4D 49  |ERGED TO THE AMI|
00000070: 47 41 27 53 20 41 4D 49  47 41 42 41 53 49 43 2E  |GA'S AMIGABASIC.|
00000080: 20 20 43 4F 4E 53 49 44  45 52 41 42 4C 59 20 52  |  CONSIDERABLY R|
00000090: 45 44 55 43 45 53 00 E5  08 03 00 8F 20 45 44 49  |EDUCES...... EDI|
000000A0: 54 49 4E 47 20 54 49 4D  45 20 41 53 20 49 54 20  |TING TIME AS IT |
000000B0: 57 49 4C 4C 20 43 4F 4E  56 45 52 54 20 4C 49 4E  |WILL CONVERT LIN|
000000C0: 45 20 4E 55 4D 42 45 52  53 20 54 4F 20 4C 41 42  |E NUMBERS TO LAB|
000000D0: 45 4C 53 20 41 4E 44 20  49 4E 53 45 52 54 20 53  |ELS AND INSERT S|
000000E0: 50 41 43 45 53 00 2E 09  04 00 8F 20 42 45 54 57  |PACES...... BETW|
000000F0: 45 45 4E 20 4B 45 59 57  4F 52 44 53 2E 20 20 54  |EEN KEYWORDS.  T|
00000100: 48 45 20 46 49 4E 45 20  44 45 54 41 49 4C 53 20  |HE FINE DETAILS |
00000110: 4F 46 20 4D 45 4D 4F 52  59 20 4D 41 4E 41 47 45  |OF MEMORY MANAGE|
00000120: 4D 45 4E 54 20 41 4E 44  20 50 52 49 4E 54 00 7D  |MENT AND PRINT.}|
00000130: 09 05 00 8F 20 46 4F 52  4D 41 54 54 49 4E 47 20  |.... FORMATTING |
00000140: 41 52 45 20 55 50 20 54  4F 20 59 4F 55 2E 20 20  |ARE UP TO YOU.  |
00000150: 4D 55 53 54 20 48 41 56  45 20 41 20 4E 55 4C 4C  |MUST HAVE A NULL|
00000160: 20 4D 4F 44 45 4D 20 43  41 42 4C 45 20 4F 52 20  | MODEM CABLE OR |
00000170: 53 49 4D 49 4C 41 52 20  53 45 54 55 50 00 CC 09  |SIMILAR SETUP...|
00000180: 06 00 8F 20 54 4F 20 4D  41 4B 45 20 54 48 45 20  |... TO MAKE THE |
00000190: 54 52 41 4E 53 46 45 52  20 54 4F 20 54 48 45 20  |TRANSFER TO THE |
000001A0: 41 4D 49 47 41 2E 20 20  49 20 48 41 56 45 20 42  |AMIGA.  I HAVE B|
000001B0: 45 45 4E 20 55 50 4C 4F  41 44 49 4E 47 20 54 4F  |EEN UPLOADING TO|
000001C0: 20 41 20 4C 4F 43 41 4C  20 42 42 53 00 1B 0A 07  | A LOCAL BBS....|
000001D0: 00 8F 20 28 37 31 37 2D  32 35 32 2D 34 35 34 33  |.. (717-252-4543|
000001E0: 29 28 50 41 53 53 57 4F  52 44 22 4E 45 57 20 55  |)(PASSWORD"NEW U|
000001F0: 53 45 52 22 29 20 56 49  41 20 31 32 38 20 54 48  |SER") VIA 128 TH|
00000200: 45 4E 20 44 4F 57 4E 4C  4F 41 44 49 4E 47 20 54  |EN DOWNLOADING T|
00000210: 4F 20 54 48 45 20 41 4D  49 47 41 00 4C 0A 08 00  |O THE AMIGA.L...|
00000220: 8F 20 46 4F 52 20 4C 41  54 45 52 20 4D 45 52 47  |. FOR LATER MERG|
00000230: 49 4E 47 2E 20 20 51 55  45 53 54 49 4F 4E 53 20  |ING.  QUESTIONS |
00000240: 54 4F 20 20 42 20 54 48  4F 4D 53 2E 00 79 0A 09  |TO  B THOMS..y..|
00000250: 00 8F 20 46 4F 52 4D 41  54 54 49 4E 47 20 41 52  |.. FORMATTING AR|
00000260: 45 20 55 50 20 54 4F 20  59 4F 55 2E 20 20 4D 55  |E UP TO YOU.  MU|
00000270: 53 54 20 48 41 56 45 20  41 00 83 0A 0A 00 89 31  |ST HAVE A......1|
00000280: 32 30 30 00 98 0A 14 00  8B 49 4E 24 B2 22 22 A7  |200......IN$."".|
00000290: 49 4E 24 B2 C7 28 30 29  00 9E 0A 1E 00 8E 00 AE  |IN$..(0)........|
000002A0: 0A 28 00 83 22 20 41 42  53 22 2C 31 38 32 00 BF  |.(.." ABS",182..|
000002B0: 0A 32 00 83 22 20 41 4E  44 20 22 2C 31 37 35 00  |.2.." AND ",175.|
000002C0: D0 0A 3C 00 83 22 20 41  53 43 20 22 2C 31 39 38  |..<.." ASC ",198|
000002D0: 00 E0 0A 46 00 83 22 20  41 54 4E 22 2C 31 39 33  |...F.." ATN",193|
000002E0: 00 F1 0A 50 00 83 22 20  43 48 52 24 22 2C 31 39  |...P.." CHR$",19|
000002F0: 39 00 03 0B 5A 00 83 22  43 4C 4F 53 45 20 22 2C  |9...Z.."CLOSE ",|
00000300: 31 36 30 00 14 0B 64 00  83 22 43 4C 45 41 52 22  |160...d.."CLEAR"|
00000310: 2C 31 35 36 00 23 0B 6E  00 83 22 43 4D 44 22 2C  |,156.#.n.."CMD",|
00000320: 31 35 37 00 33 0B 78 00  83 22 20 43 4F 53 22 2C  |157.3.x.." COS",|
00000330: 31 39 30 00 44 0B 82 00  83 22 44 41 54 41 20 22  |190.D...."DATA "|
00000340: 2C 31 33 31 00 53 0B 8C  00 83 22 44 45 46 22 2C  |,131.S...."DEF",|
00000350: 31 35 30 00 63 0B 96 00  83 22 44 49 4D 20 22 2C  |150.c...."DIM ",|
00000360: 31 33 34 00 72 0B A0 00  83 22 45 4E 44 22 2C 31  |134.r...."END",1|
00000370: 32 38 00 81 0B AA 00 83  22 45 58 50 22 2C 31 38  |28......"EXP",18|
00000380: 39 00 91 0B B4 00 83 22  46 4F 52 20 22 2C 31 32  |9......"FOR ",12|
00000390: 39 00 A1 0B BE 00 83 22  20 46 52 45 22 2C 31 38  |9......" FRE",18|
000003A0: 34 00 B0 0B C8 00 83 22  47 45 54 22 2C 31 36 31  |4......"GET",161|
000003B0: 00 C0 0B D2 00 83 22 20  46 4E 20 22 2C 31 36 35  |......" FN ",165|
000003C0: 00 D3 0B DC 00 83 22 20  47 4F 53 55 42 20 22 2C  |......" GOSUB ",|
000003D0: 31 34 31 00 E4 0B E6 00  83 22 47 4F 54 4F 20 22  |141......"GOTO "|
000003E0: 2C 31 33 37 00 F3 0B F0  00 83 22 49 46 A0 22 2C  |,137......"IF.",|
000003F0: 31 33 39 00 05 0C FA 00  83 22 49 4E 50 55 54 20  |139......"INPUT |
00000400: 22 2C 31 33 33 00 17 0C  04 01 83 22 49 4E 50 55  |",133......"INPU|
00000410: 54 23 22 2C 31 33 32 00  27 0C 0E 01 83 22 20 49  |T#",132.'...." I|
00000420: 4E 54 22 2C 31 38 31 00  39 0C 18 01 83 22 20 4C  |NT",181.9...." L|
00000430: 45 46 54 24 22 2C 32 30  30 00 49 0C 22 01 83 22  |EFT$",200.I.".."|
00000440: 20 4C 45 4E 22 2C 31 39  35 00 59 0C 2C 01 83 22  | LEN",195.Y.,.."|
00000450: 4C 49 53 54 22 2C 31 35  35 00 69 0C 36 01 83 22  |LIST",155.i.6.."|
00000460: 4C 4F 41 44 22 2C 31 34  37 00 79 0C 40 01 83 22  |LOAD",147.y.@.."|
00000470: 20 4C 4F 47 22 2C 31 38  38 00 89 0C 4A 01 83 22  | LOG",188...J.."|
00000480: 4D 49 44 24 22 2C 32 30  32 00 98 0C 54 01 83 22  |MID$",202...T.."|
00000490: 4E 45 57 22 2C 31 36 32  00 AA 0C 5E 01 83 22 20  |NEW",162...^.." |
000004A0: 4E 45 58 54 20 22 2C 31  33 30 00 BB 0C 68 01 83  |NEXT ",130...h..|
000004B0: 22 20 4E 4F 54 20 22 2C  31 36 38 00 CB 0C 72 01  |" NOT ",168...r.|
000004C0: 83 22 20 4F 4E 20 22 2C  31 34 35 00 DD 0C 7C 01  |." ON ",145...|.|
000004D0: 83 22 20 4F 50 45 4E 20  22 2C 31 35 39 00 ED 0C  |." OPEN ",159...|
000004E0: 86 01 83 22 20 4F 52 20  22 2C 31 37 36 00 FE 0C  |..." OR ",176...|
000004F0: 90 01 83 22 20 50 45 45  4B 22 2C 31 39 34 00 10  |..." PEEK",194..|
00000500: 0D 9A 01 83 22 20 50 4F  4B 45 20 22 2C 31 35 31  |...." POKE ",151|
00000510: 00 20 0D A4 01 83 22 20  50 4F 53 22 2C 31 38 35  |. ...." POS",185|
00000520: 00 32 0D AE 01 83 22 50  52 49 4E 54 20 22 2C 31  |.2...."PRINT ",1|
00000530: 35 33 00 44 0D B8 01 83  22 50 52 49 4E 54 23 22  |53.D...."PRINT#"|
00000540: 2C 31 35 32 00 57 0D C2  01 83 22 52 45 41 44 20  |,152.W...."READ |
00000550: 22 2C 20 20 31 33 35 00  67 0D CC 01 83 22 52 45  |",  135.g...."RE|
00000560: 4D 20 22 2C 31 34 33 00  7A 0D D6 01 83 22 52 45  |M ",143.z...."RE|
00000570: 53 54 4F 52 45 22 2C 31  34 30 00 8C 0D E0 01 83  |STORE",140......|
00000580: 22 52 45 54 55 52 4E 22  2C 31 34 32 00 9F 0D EA  |"RETURN",142....|
00000590: 01 83 22 20 52 49 47 48  54 24 22 2C 32 30 31 00  |.." RIGHT$",201.|
000005A0: AF 0D F4 01 83 22 20 52  4E 44 22 2C 31 38 37 00  |....." RND",187.|
000005B0: BF 0D FE 01 83 22 52 55  4E 22 20 2C 31 33 38 00  |....."RUN" ,138.|
000005C0: CF 0D 08 02 83 22 53 41  56 45 22 2C 31 34 38 00  |....."SAVE",148.|
000005D0: DF 0D 12 02 83 22 20 53  47 4E 22 2C 31 38 30 00  |....." SGN",180.|
000005E0: EF 0D 1C 02 83 22 20 53  49 4E 22 2C 31 39 31 00  |....." SIN",191.|
000005F0: FF 0D 26 02 83 22 20 53  51 52 22 2C 31 38 36 00  |..&.." SQR",186.|
00000600: 11 0E 30 02 83 22 20 53  54 45 50 20 22 2C 31 36  |..0.." STEP ",16|
00000610: 39 00 22 0E 3A 02 83 22  20 53 54 4F 50 22 2C 31  |9.".:.." STOP",1|
00000620: 34 34 00 33 0E 44 02 83  22 20 53 54 52 24 22 2C  |44.3.D.." STR$",|
00000630: 31 39 36 00 42 0E 4E 02  83 22 53 59 53 22 2C 31  |196.B.N.."SYS",1|
00000640: 35 38 00 53 0E 58 02 83  22 20 54 41 42 28 22 2C  |58.S.X.." TAB(",|
00000650: 31 36 33 00 63 0E 62 02  83 22 20 54 41 4E 22 2C  |163.c.b.." TAN",|
00000660: 31 39 32 00 75 0E 6C 02  83 22 20 54 48 45 4E 20  |192.u.l.." THEN |
00000670: 22 2C 31 36 37 00 85 0E  76 02 83 22 20 54 4F 20  |",167...v.." TO |
00000680: 22 2C 31 36 34 00 95 0E  80 02 83 22 55 53 52 22  |",164......"USR"|
00000690: 20 2C 31 38 33 00 A5 0E  8A 02 83 22 20 56 41 4C  | ,183......" VAL|
000006A0: 22 2C 31 39 37 00 B7 0E  94 02 83 22 56 45 52 49  |",197......"VERI|
000006B0: 46 59 22 2C 31 34 39 00  C7 0E 9E 02 83 22 57 41  |FY",149......"WA|
000006C0: 49 54 22 2C 31 34 36 00  D3 0E A8 02 83 20 2B 2C  |IT",146...... +,|
000006D0: 31 37 30 00 DF 0E B2 02  83 20 2D 2C 31 37 31 00  |170...... -,171.|
000006E0: EB 0E BC 02 83 20 2A 2C  31 37 32 00 F7 0E C6 02  |..... *,172.....|
000006F0: 83 20 2F 2C 31 37 33 00  03 0F D0 02 83 20 5E 2C  |. /,173...... ^,|
00000700: 31 37 34 00 0F 0F DA 02  83 20 3D 2C 31 37 38 00  |174...... =,178.|
00000710: 1B 0F E4 02 83 20 3E 2C  31 37 37 00 27 0F EE 02  |..... >,177.'...|
00000720: 83 20 3C 2C 31 37 39 00  33 0F F8 02 83 20 FF 2C  |. <,179.3.... .,|
00000730: 32 35 35 00 3A 0F 02 03  83 2C 00 49 0F 0C 03 83  |255.:....,.I....|
00000740: 22 5B 57 48 54 5D 22 2C  35 00 5E 0F 16 03 83 22  |"[WHT]",5.^...."|
00000750: 5B 4C 4F 57 20 43 41 53  45 5D 22 2C 31 34 00 6E  |[LOW CASE]",14.n|
00000760: 0F 20 03 83 22 5B 44 57  4E 5D 22 2C 31 37 00 7E  |. .."[DWN]",17.~|
00000770: 0F 2A 03 83 22 5B 52 56  53 5D 22 2C 31 38 00 8E  |.*.."[RVS]",18..|
00000780: 0F 34 03 83 22 5B 48 4F  4D 5D 22 2C 31 39 00 9E  |.4.."[HOM]",19..|
00000790: 0F 3E 03 83 22 5B 44 45  4C 5D 22 2C 32 30 00 AE  |.>.."[DEL]",20..|
000007A0: 0F 48 03 83 22 5B 52 45  44 5D 22 2C 32 38 00 BF  |.H.."[RED]",28..|
000007B0: 0F 52 03 83 22 5B 52 47  48 54 5D 22 2C 32 39 00  |.R.."[RGHT]",29.|
000007C0: CF 0F 5C 03 83 22 5B 47  52 4E 5D 22 2C 33 30 00  |..\.."[GRN]",30.|
000007D0: DF 0F 66 03 83 22 5B 42  4C 55 5D 22 2C 33 31 00  |..f.."[BLU]",31.|
000007E0: F1 0F 70 03 83 22 5B 4F  52 4E 47 5D 22 2C 31 32  |..p.."[ORNG]",12|
000007F0: 39 00 01 10 7A 03 83 22  5B 46 31 5D 22 2C 31 33  |9...z.."[F1]",13|
00000800: 33 00 11 10 84 03 83 22  5B 46 33 5D 22 2C 31 33  |3......"[F3]",13|
00000810: 34 00 21 10 8E 03 83 22  5B 46 35 5D 22 2C 31 33  |4.!...."[F5]",13|
00000820: 35 00 31 10 98 03 83 22  5B 46 37 5D 22 2C 31 33  |5.1...."[F7]",13|
00000830: 36 00 41 10 A2 03 83 22  5B 46 34 5D 22 2C 31 33  |6.A...."[F4]",13|
00000840: 38 00 51 10 CA 03 83 22  5B 46 36 5D 22 2C 31 33  |8.Q...."[F6]",13|
00000850: 39 00 61 10 D4 03 83 22  5B 46 38 5D 22 2C 31 34  |9.a...."[F8]",14|
00000860: 30 00 71 10 DE 03 83 22  5B 46 32 5D 22 2C 31 33  |0.q...."[F2]",13|
00000870: 37 00 87 10 E8 03 83 22  5B 53 48 46 54 20 52 45  |7......"[SHFT RE|
00000880: 54 5D 22 2C 31 34 31 00  9D 10 F2 03 83 22 5B 55  |T]",141......"[U|
00000890: 50 50 52 20 43 41 53 5D  22 2C 31 34 32 00 AE 10  |PPR CAS]",142...|
000008A0: FC 03 83 22 5B 42 4C 4B  5D 22 2C 31 34 34 00 BE  |..."[BLK]",144..|
000008B0: 10 06 04 83 22 5B 55 50  5D 22 2C 31 34 35 00 D3  |...."[UP]",145..|
000008C0: 10 10 04 83 22 5B 52 56  53 20 4F 46 46 5D 22 2C  |...."[RVS OFF]",|
000008D0: 31 34 36 00 E4 10 1A 04  83 22 5B 43 4C 52 5D 22  |146......"[CLR]"|
000008E0: 2C 31 34 37 00 F7 10 24  04 83 22 5B 49 4E 53 52  |,147...$.."[INSR|
000008F0: 54 5D 22 2C 31 34 38 00  08 11 2E 04 83 22 5B 42  |T]",148......"[B|
00000900: 52 4E 5D 22 2C 31 34 39  00 1C 11 38 04 83 22 5B  |RN]",149...8.."[|
00000910: 4C 54 20 52 45 44 5D 22  2C 31 35 30 00 30 11 42  |LT RED]",150.0.B|
00000920: 04 83 22 5B 44 4B 20 47  52 59 5D 22 2C 31 35 31  |.."[DK GRY]",151|
00000930: 00 41 11 4C 04 83 22 5B  47 52 59 5D 22 2C 31 35  |.A.L.."[GRY]",15|
00000940: 32 00 55 11 56 04 83 22  5B 4C 54 20 47 52 4E 5D  |2.U.V.."[LT GRN]|
00000950: 22 2C 31 35 33 00 69 11  60 04 83 22 5B 4C 54 20  |",153.i.`.."[LT |
00000960: 42 4C 55 5D 22 2C 31 35  34 00 7D 11 6A 04 83 22  |BLU]",154.}.j.."|
00000970: 5B 4C 54 20 47 52 59 5D  22 2C 31 35 35 00 8E 11  |[LT GRY]",155...|
00000980: 74 04 83 22 5B 50 55 52  5D 22 2C 31 35 36 00 9F  |t.."[PUR]",156..|
00000990: 11 7E 04 83 22 5B 4C 46  54 5D 22 2C 31 35 37 00  |.~.."[LFT]",157.|
000009A0: B0 11 88 04 83 22 5B 59  45 4C 5D 22 2C 31 35 38  |....."[YEL]",158|
000009B0: 00 C1 11 92 04 83 22 5B  43 59 4E 5D 22 2C 31 35  |......"[CYN]",15|
000009C0: 39 00 D2 11 9C 04 83 22  5B 53 50 43 5D 22 2C 31  |9......"[SPC]",1|
000009D0: 36 30 00 DB 11 A6 04 83  5C 2C 30 00 EA 11 B0 04  |60......\,0.....|
000009E0: 86 41 24 28 32 35 35 2C  31 29 00 F4 11 BA 04 87  |.A$(255,1)......|
000009F0: 41 24 2C 41 00 04 12 C4  04 8B 41 24 B2 22 22 A7  |A$,A......A$."".|
00000A00: 51 55 B2 31 00 15 12 CE  04 8B 41 24 B2 22 5C 22  |QU.1......A$."\"|
00000A10: A7 31 32 35 30 00 2B 12  D8 04 41 24 28 41 2C 51  |.1250.+...A$(A,Q|
00000A20: 55 29 B2 41 24 3A 89 31  32 31 30 00 58 12 E2 04  |U).A$:.1210.X...|
00000A30: 51 55 B2 30 3A 81 54 B2  30 A4 32 35 35 3A 8B 41  |QU.0:.T.0.255:.A|
00000A40: 24 28 54 2C 51 55 29 B2  22 22 A7 41 24 28 54 2C  |$(T,QU)."".A$(T,|
00000A50: 51 55 29 B2 C7 28 30 29  00 5E 12 EC 04 82 00 8B  |QU)..(0).^......|
00000A60: 12 F1 04 51 55 B2 31 3A  81 54 B2 30 A4 32 35 35  |...QU.1:.T.0.255|
00000A70: 3A 8B 41 24 28 54 2C 51  55 29 B2 22 22 A7 41 24  |:.A$(T,QU)."".A$|
00000A80: 28 54 2C 51 55 29 B2 C7  28 54 29 00 96 12 F2 04  |(T,QU)..(T).....|
00000A90: 82 3A 51 55 B2 30 00 B1  12 F6 04 85 22 46 49 4C  |.:QU.0......"FIL|
00000AA0: 45 20 54 4F 20 43 4F 4E  56 45 52 54 22 3B 46 43  |E TO CONVERT";FC|
00000AB0: 24 00 EF 12 FB 04 8B C9  28 46 43 24 2C 31 29 B2  |$.......(FC$,1).|
00000AC0: 22 2A 22 A7 43 46 24 B2  C8 28 46 43 24 2C C3 28  |"*".CF$..(FC$,.(|
00000AD0: 46 43 24 29 AB 31 29 3A  43 46 24 B2 43 46 24 AA  |FC$).1):CF$.CF$.|
00000AE0: 22 2E 41 53 43 49 49 22  3A 89 20 31 32 39 30 00  |".ASCII":. 1290.|
00000AF0: 04 13 00 05 43 46 24 B2  46 43 24 AA 22 2E 41 53  |....CF$.FC$.".AS|
00000B00: 43 49 49 22 00 15 13 0A  05 8B 46 43 24 B2 22 22  |CII"......FC$.""|
00000B10: A7 31 32 37 30 00 22 13  14 05 9F 31 35 2C 38 2C  |.1270."....15,8,|
00000B20: 31 35 00 3D 13 1E 05 9F  32 2C 38 2C 32 2C 22 30  |15.=....2,8,2,"0|
00000B30: 3A 22 AA 46 43 24 AA 22  2C 50 2C 52 22 00 61 13  |:".FC$.",P,R".a.|
00000B40: 28 05 9F 33 2C 38 2C 33  2C 22 30 3A 22 AA 43 46  |(..3,8,3,"0:".CF|
00000B50: 24 AA 22 20 30 2C 53 2C  57 22 3A 8D 20 31 34 37  |$." 0,S,W":. 147|
00000B60: 30 00 7E 13 32 05 8D 31  35 30 30 3A 89 31 34 32  |0.~.2..1500:.142|
00000B70: 30 3A 8F 20 46 49 52 53  54 20 4C 49 4E 45 00 A3  |0:. FIRST LINE..|
00000B80: 13 3C 05 8F 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |.<..************|
00000B90: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000BA0: 2A 2A 2A 00 B5 13 46 05  8D 31 34 37 30 3A 8F 20  |***...F..1470:. |
00000BB0: 45 52 52 4F 52 00 C5 13  50 05 A1 23 32 2C 49 4E  |ERROR...P..#2,IN|
00000BC0: 24 3A 8D 32 30 00 EB 13  5A 05 8B C6 28 49 4E 24  |$:.20...Z...(IN$|
00000BD0: 29 B2 30 A7 8D 31 35 35  30 3A 89 31 33 36 30 3A  |).0..1550:.1360:|
00000BE0: 8F 20 4E 45 58 54 20 4C  49 4E 45 00 1D 14 64 05  |. NEXT LINE...d.|
00000BF0: 8B C6 28 49 4E 24 29 B2  33 34 AF 51 55 B2 30 A7  |..(IN$).34.QU.0.|
00000C00: 51 55 B2 31 3A 89 31 34  32 30 3A 20 20 20 20 20  |QU.1:.1420:     |
00000C10: 20 20 20 8F 20 4F 4E 20  51 55 4F 54 45 00 53 14  |   . ON QUOTE.S.|
00000C20: 6E 05 8B C6 28 49 4E 24  29 B2 33 34 AF 51 55 B2  |n...(IN$).34.QU.|
00000C30: 31 A7 51 55 B2 30 3A 20  20 20 20 20 20 20 20 20  |1.QU.0:         |
00000C40: 20 20 20 20 20 20 20 20  8F 20 4F 46 46 20 51 55  |        . OFF QU|
00000C50: 4F 54 45 00 86 14 78 05  8B 51 55 B2 30 A7 8D 31  |OTE...x..QU.0..1|
00000C60: 36 30 30 3A 89 31 34 32  30 3A 20 20 20 20 20 20  |600:.1420:      |
00000C70: 20 20 20 20 20 20 20 20  20 20 20 8F 20 47 45 54  |           . GET|
00000C80: 20 54 4F 4B 45 4E 00 C3  14 82 05 8B 51 55 B2 31  | TOKEN......QU.1|
00000C90: A7 8D 31 36 32 30 3A 20  20 20 20 20 20 20 20 20  |..1620:         |
00000CA0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000CB0: 20 8F 20 47 45 54 20 43  4F 4E 54 52 4F 4C 20 43  | . GET CONTROL C|
00000CC0: 4F 44 45 00 CF 14 8C 05  4F 55 24 B2 49 4E 24 00  |ODE.....OU$.IN$.|
00000CD0: DB 14 96 05 98 33 2C 4F  55 24 3B 00 E5 14 A0 05  |.....3,OU$;.....|
00000CE0: 99 4F 55 24 3B 00 EF 14  AA 05 89 31 33 35 30 00  |.OU$;......1350.|
00000CF0: 14 15 B4 05 8F 20 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |..... **********|
00000D00: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000D10: 2A 2A 2A 2A 00 25 15 BE  05 84 31 35 2C 45 2C 45  |****.%....15,E,E|
00000D20: 24 2C 54 2C 53 00 3F 15  C8 05 8B 20 45 20 B3 B1  |$,T,S.?.... E ..|
00000D30: 20 30 20 A7 99 45 3B 45  24 3B 54 3B 53 3A 80 00  | 0 ..E;E$;T;S:..|
00000D40: 45 15 D2 05 8E 00 82 15  DC 05 81 54 B2 30 A4 33  |E..........T.0.3|
00000D50: 3A A1 23 32 2C 49 4E 24  3A 82 3A 8F 20 43 4C 45  |:.#2,IN$:.:. CLE|
00000D60: 41 52 53 20 53 54 41 52  54 49 4E 47 20 41 44 44  |ARS STARTING ADD|
00000D70: 52 45 53 53 20 41 4E 44  20 4C 49 4E 45 20 4C 49  |RESS AND LINE LI|
00000D80: 4E 4B 00 A7 15 E6 05 81  54 B2 30 A4 31 3A A1 23  |NK......T.0.1:.#|
00000D90: 32 2C 49 4E 24 3A 8D 32  30 3A 8B 58 B2 30 A7 58  |2,IN$:.20:.X.0.X|
00000DA0: B2 C6 28 49 4E 24 29 00  AD 15 F0 05 82 00 D9 15  |..(IN$).........|
00000DB0: FA 05 58 B2 58 AA 32 35  36 AC C6 28 49 4E 24 29  |..X.X.256..(IN$)|
00000DC0: 3A 49 4E 24 B2 C4 28 58  29 AA 22 3A 22 AA C7 28  |:IN$..(X).":"..(|
00000DD0: 31 33 29 AA C7 28 31 30  29 00 EC 15 04 06 8E 3A  |13)..(10)......:|
00000DE0: 8F 20 46 49 52 53 54 20  4C 49 4E 45 00 2D 16 0E  |. FIRST LINE.-..|
00000DF0: 06 45 4E B2 30 3A 81 54  B2 30 A4 31 3A A1 23 32  |.EN.0:.T.0.1:.#2|
00000E00: 2C 49 4E 24 3A 8D 32 30  3A 45 4E B2 45 4E AA C6  |,IN$:.20:EN.EN..|
00000E10: 28 49 4E 24 29 3A 82 3A  8F 20 45 4C 49 4D 49 4E  |(IN$):.:. ELIMIN|
00000E20: 41 54 45 20 4C 49 4E 45  20 4C 49 4E 4B 00 4F 16  |ATE LINE LINK.O.|
00000E30: 18 06 8B 45 4E B2 30 A7  A0 32 3A A0 33 3A 99 22  |...EN.0..2:.3:."|
00000E40: 93 45 4E 44 20 4F 46 20  46 49 4C 45 22 3A 80 00  |.END OF FILE":..|
00000E50: 83 16 22 06 A1 23 32 2C  49 4E 24 3A 8D 32 30 3A  |.."..#2,IN$:.20:|
00000E60: 58 B2 C6 28 49 4E 24 29  3A A1 23 32 2C 49 4E 24  |X..(IN$):.#2,IN$|
00000E70: 3A 8D 32 30 3A 58 B2 58  AA 32 35 36 AC C6 28 49  |:.20:X.X.256..(I|
00000E80: 4E 24 29 00 A0 16 27 06  4C 24 B2 C4 28 58 29 3A  |N$)...'.L$..(X):|
00000E90: 4C 24 B2 C9 28 4C 24 2C  C3 28 4C 24 29 AB 31 29  |L$..(L$,.(L$).1)|
00000EA0: 00 C7 16 2C 06 98 33 2C  C7 28 31 33 29 3B C7 28  |...,..3,.(13);.(|
00000EB0: 31 30 29 3B 4C 24 3B 22  3A 22 3B C7 28 31 33 29  |10);L$;":";.(13)|
00000EC0: 3B C7 28 31 30 29 3B 00  E9 16 36 06 99 3A 99 C4  |;.(10);...6..:..|
00000ED0: 28 58 29 3B 22 3A 22 3A  51 55 B2 30 3A 8E 3A 8F  |(X);":":QU.0:.:.|
00000EE0: 20 4E 45 57 20 4C 49 4E  45 00 2B 17 40 06 8B C6  | NEW LINE.+.@...|
00000EF0: 28 49 4E 24 29 B1 39 36  A7 49 4E 24 B2 41 24 28  |(IN$).96.IN$.A$(|
00000F00: C6 28 49 4E 24 29 2C 30  29 3A 20 20 20 20 20 20  |.(IN$),0):      |
00000F10: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000F20: 20 8F 20 4E 4F 20 51 55  4F 54 45 00 31 17 4A 06  | . NO QUOTE.1.J.|
00000F30: 8E 00 4E 17 54 06 49 4E  24 B2 41 24 28 C6 28 49  |..N.T.IN$.A$(.(I|
00000F40: 4E 24 29 2C 31 29 3A 8F  20 51 55 4F 54 45 00 54  |N$),1):. QUOTE.T|
00000F50: 17 5E 06 8E 00 87 17 68  06 42 43 B2 30 3A A0 33  |.^.....h.BC.0:.3|
00000F60: 3A 4E 46 B2 4E 46 AA 31  3A 9F 33 2C 38 2C 33 2C  |:NF.NF.1:.3,8,3,|
00000F70: 22 30 3A 22 AA 43 46 24  AA C4 28 4E 46 29 AA 22  |"0:".CF$..(NF)."|
00000F80: 2C 53 2C 57 22 3A 8E 00  96 17 72 06 8F 20 4E 45  |,S,W":....r.. NE|
00000F90: 57 20 46 49 4C 45 00 00  00                       |W FILE...       |

..L.... USED TO CONVERT A BASIC PROGRAM 
FROM C-64 BASIC TO A SEQUENTIAL FILE....
.. THAT CAN BE MERGED TO THE AMIGA'S AMI
GABASIC.  CONSIDERABLY REDUCES...... EDI
TING TIME AS IT WILL CONVERT LINE NUMBER
S TO LABELS AND INSERT SPACES...... BETW
EEN KEYWORDS.  THE FINE DETAILS OF MEMOR
Y MANAGEMENT AND PRINT.}.... FORMATTING 
ARE UP TO YOU.  MUST HAVE A NULL MODEM C
ABLE OR SIMILAR SETUP.L.... TO MAKE THE 
TRANSFER TO THE AMIGA.  I HAVE BEEN UPLO
ADING TO A LOCAL BBS...... (717-252-4543
)(PASSWORD"NEW USER") VIA 128 THEN DOWNL
OADING TO THE AMIGA.L.... FOR LATER MERG
ING.  QUESTIONS TO  B THOMS..Y.... FORMA
TTING ARE UP TO YOU.  MUST HAVE A......1
200......IN$."".IN$.G(0).........(.." AB
S",182...2.." AND ",175.P.<.." ASC ",198
...F.." ATN",193...P.." CHR$",199...Z.."
CLOSE ",160...D.."CLEAR",156.#.N.."CMD",
157.3.X.." COS",190.D...."DATA ",131.S..
.."DEF",150.C...."DIM ",134.R. .."END",1
28......"EXP",189......"FOR ",129......"
 FRE",184...H.."GET",161...R.." FN ",165
.S...." GOSUB ",141......"GOTO ",137....
.."IF ",139......"INPUT ",133......"INPU
T#",132.'...." INT",181.9...." LEFT$",20
0.I.".." LEN",195.Y.,.."LIST",155.I.6.."
LOAD",147.Y.@.." LOG",188...J.."MID$",20
2...T.."NEW",162...^.." NEXT ",130...H..
" NOT ",168.K.R.." ON ",145...|.." OPEN 
",159......" OR ",176......" PEEK",194..
...." POKE ",151. ...." POS",185.2...."P
RINT ",153.D...."PRINT#",152.W.B.."READ 
",  135.G.L.."REM ",143.Z.V.."RESTORE",1
40......"RETURN",142......" RIGHT$",201.
....." RND",187......"RUN" ,138.O...."SA
VE",148......" SGN",180......" SIN",191.
..&.." SQR",186...0.." STEP ",169.".:.."
 STOP",144.3.D.." STR$",196.B.N.."SYS",1
58.S.X.." TAB(",163.C.B.." TAN",192.U.L.
." THEN ",167...V.." TO ",164......"USR"
 ,183......" VAL",197......"VERIFY",149.
G...."WAIT",146.S.... +,170...... -,171.
..... *,172...F.. /,173...P.. ^,174...Z.
. =,178...... >,177.'.... <,179.3.... .,
255.:....,.I...."[WHT]",5.^...."[LOW CAS
E]",14.N. .."[DWN]",17.~.*.."[RVS]",18..
.4.."[HOM]",19...>.."[DEL]",20...H.."[RE
D]",28...R.."[RGHT]",29.O.\.."[GRN]",30.
..F.."[BLU]",31...P.."[ORNG]",129...Z.."
[F1]",133......"[F3]",134.!...."[F5]",13
5.1...."[F7]",136.A...."[F4]",138.Q.J.."
[F6]",139.A.T.."[F8]",140.Q...."[F2]",13
7......"[SHFT RET]",141......"[UPPR CAS]
",142......"[BLK]",144......"[UP]",145.S
...."[RVS OFF]",146......"[CLR]",147...$
.."[INSRT]",148......"[BRN]",149...8.."[
LT RED]",150.0.B.."[DK GRY]",151.A.L.."[
GRY]",152.U.V.."[LT GRN]",153.I.`.."[LT 
BLU]",154.}.J.."[LT GRY]",155...T.."[PUR
]",156...~.."[LFT]",157......"[YEL]",158
.A...."[CYN]",159.R...."[SPC]",160......
\,0......A$(255,1)......A$,A...D..A$."".
QU.1...N..A$."\".1250.+.X.A$(A,QU).A$:.1
210.X...QU.0:.T.0.255:.A$(T,QU)."".A$(T,
QU).G(0).^.........QU.1:.T.0.255:.A$(T,Q
U)."".A$(T,QU).G(T)......:QU.0......"FIL
E TO CONVERT";FC$......I(FC$,1)."*".CF$.
H(FC$,C(FC$).1):CF$.CF$.".ASCII":. 1290.
....CF$.FC$.".ASCII"......FC$."".1270.".
...15,8,15.=....2,8,2,"0:".FC$.",P,R".A.
(..3,8,3,"0:".CF$." 0,S,W":. 1470.~.2..1
500:.1420:. FIRST LINE...<..************
*******************...F..1470:. ERROR.E.
P..#2,IN$:.20...Z..F(IN$).0..1550:.1360:
. NEXT LINE...D..F(IN$).34.QU.0.QU.1:.14
20:        . ON QUOTE.S.N..F(IN$).34.QU.
1.QU.0:                 . OFF QUOTE...X.
.QU.0..1600:.1420:                 . GET
 TOKEN.C....QU.1..1620:                 
         . GET CONTROL CODE.O...OU$.IN$.
.....3,OU$;... ..OU$;......1350...... **
****************************.%....15,E,E
$,T,S.?.H.. E .. 0 ..E;E$;T;S:..E.R.....
...T.0.3:.#2,IN$:.:. CLEARS STARTING ADD
RESS AND LINE LINK......T.0.1:.#2,IN$:.2
0:.X.0.X.F(IN$).......Y...X.X.256.F(IN$)
:IN$.D(X).":".G(13).G(10)......:. FIRST 
LINE.-...EN.0:.T.0.1:.#2,IN$:.20:EN.EN.F
(IN$):.:. ELIMINATE LINE LINK.O....EN.0.
 2: 3:.".END OF FILE":...."..#2,IN$:.20:
X.F(IN$):.#2,IN$:.20:X.X.256.F(IN$). .'.
L$.D(X):L$.I(L$,C(L$).1).G.,..3,G(13);G(
10);L$;":";G(13);G(10);...6..:.D(X);":":
QU.0:.:. NEW LINE.+.@..F(IN$).96.IN$.A$(
F(IN$),0):                       . NO QU
OTE.1.J...N.T.IN$.A$(F(IN$),1):. QUOTE.T
.^.....H.BC.0: 3:NF.NF.1:.3,8,3,"0:".CF$
.D(NF).",S,W":....R.. NEW FILE...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL