ROBOT CONTROLLER
FILE INFORMATION
FILENAME(S): ROBOT CONTROLLER
FILE TYPE(S): PRG
FILE SIZE: 3.9K
FIRST SEEN: 2025-11-30 21:12:51
APPEARS ON: 1 disk(s)
FILE HASH
9f2d9422f68c8eea33a172f38ca4d9c3fa1b94206396200b87f9aca498f58c2e
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TRANSACTOR DISK | ROBOT CONTROLLER | PRG | DuncanTwain | 7 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 29 08 01 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..).... ********| 00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 51 08 02 00 8F 20 |*********.Q.... | 00000030: 2A 2A 20 20 4D 4F 42 49 4C 45 20 41 52 4D 41 54 |** MOBILE ARMAT| 00000040: 52 4F 4E 20 53 4F 46 54 57 41 52 45 20 20 20 2A |RON SOFTWARE *| 00000050: 2A 00 79 08 03 00 8F 20 2A 2A 20 20 4E 41 4D 45 |*.y.... ** NAME| 00000060: 3A 20 20 52 4F 42 4F 54 20 20 20 20 20 20 20 20 |: ROBOT | 00000070: 20 20 20 20 20 20 20 2A 2A 00 A1 08 04 00 8F 20 | **...... | 00000080: 2A 2A 20 20 28 43 29 20 31 39 38 36 2C 20 4A 4A |** (C) 1986, JJ| 00000090: 42 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A |B *| 000000A0: 2A 00 C9 08 05 00 8F 20 2A 2A 20 20 4D 41 4E 41 |*...... ** MANA| 000000B0: 4C 41 50 41 4E 2C 20 4E 4A 20 20 30 37 37 32 36 |LAPAN, NJ 07726| 000000C0: 20 20 20 20 20 20 20 2A 2A 00 F1 08 06 00 8F 20 | **...... | 000000D0: 2A 2A 20 20 56 20 38 36 30 39 32 38 20 20 20 20 |** V 860928 | 000000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A | *| 000000F0: 2A 00 19 09 07 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |*...... ********| 00000100: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000110: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 52 09 0A 00 86 20 |*********.R.... | 00000120: 41 28 31 32 29 2C 42 28 32 35 30 2C 31 29 3A 8D |A(12),B(250,1):.| 00000130: 20 33 30 30 30 3A 8D 20 35 30 30 30 3A 97 20 35 | 3000:. 5000:. 5| 00000140: 36 35 37 39 2C 32 35 35 3A 97 20 35 36 35 37 37 |6579,255:. 56577| 00000150: 2C 30 00 86 09 14 00 41 28 31 29 B2 33 38 3A 41 |,0.....A(1).38:A| 00000160: 28 32 29 B2 37 30 3A 41 28 33 29 B2 33 36 3A 41 |(2).70:A(3).36:A| 00000170: 28 34 29 B2 33 34 3A 41 28 35 29 B2 33 33 3A 41 |(4).34:A(5).33:A| 00000180: 28 36 29 B2 36 35 00 BD 09 1E 00 41 28 37 29 B2 |(6).65.....A(7).| 00000190: 34 30 3A 41 28 38 29 B2 37 32 3A 41 28 39 29 B2 |40:A(8).72:A(9).| 000001A0: 34 38 3A 41 28 31 30 29 B2 38 30 3A 41 28 31 31 |48:A(10).80:A(11| 000001B0: 29 B2 36 36 3A 41 28 31 32 29 B2 36 38 00 E3 09 |).66:A(12).68...| 000001C0: 28 00 53 53 24 B2 22 31 32 33 34 35 36 37 38 39 |(.SS$."123456789| 000001D0: 30 2B 2D 22 3A 52 43 24 B2 C7 28 35 29 AA C7 28 |0+-":RC$..(5)..(| 000001E0: 31 38 29 00 1B 0A 32 00 8D 20 33 30 30 30 3A 52 |18)...2.. 3000:R| 000001F0: 4F B2 36 3A 43 4F B2 31 30 3A 8D 20 35 30 35 30 |O.6:CO.10:. 5050| 00000200: 3A 99 52 43 24 3B 22 20 4D 20 41 20 49 20 4E 20 |:.RC$;" M A I N | 00000210: 20 20 4D 20 45 20 4E 20 55 20 22 00 4E 0A 3C 00 | M E N U ".N.<.| 00000220: 99 3A 99 A3 31 32 29 3B 22 3C 20 46 31 20 3E 3A |.:..12);"< F1 >:| 00000230: 20 20 4C 45 41 52 4E 22 3A 99 3A 99 A3 31 32 29 | LEARN":.:..12)| 00000240: 3B 22 3C 20 46 33 20 3E 3A 20 20 44 4F 22 00 86 |;"< F3 >: DO"..| 00000250: 0A 46 00 99 3A 99 A3 31 32 29 3B 22 3C 20 46 35 |.F..:..12);"< F5| 00000260: 20 3E 3A 20 20 53 41 56 45 22 3A 99 3A 99 A3 31 | >: SAVE":.:..1| 00000270: 32 29 3B 22 3C 20 46 37 20 3E 3A 20 20 52 45 54 |2);"< F7 >: RET| 00000280: 52 49 45 56 45 22 00 A9 0A 50 00 99 3A 99 A3 31 |RIEVE"...P..:..1| 00000290: 30 29 3B 22 3C 43 54 52 4C 3E 20 51 3A 20 20 51 |0);"<CTRL> Q: Q| 000002A0: 55 49 54 20 28 45 4E 44 29 00 CD 0A 5A 00 52 4F |UIT (END)...Z.RO| 000002B0: B2 31 39 3A 43 4F B2 31 30 3A 8D 20 35 30 35 30 |.19:CO.10:. 5050| 000002C0: 3A 99 22 57 48 49 43 48 2E 2E 2E 20 22 00 E6 0A |:."WHICH... "...| 000002D0: 64 00 A1 20 53 52 24 3A 8B 20 53 52 24 B2 22 22 |d.. SR$:. SR$.""| 000002E0: 20 A7 20 31 30 30 00 09 0B 6E 00 53 52 B2 C6 28 | . 100...n.SR..(| 000002F0: 53 52 24 29 AB 31 33 32 3A 8B 20 53 52 B2 AB 31 |SR$).132:. SR..1| 00000300: 31 35 20 A7 20 53 52 B2 35 00 20 0B 78 00 8B 20 |15 . SR.5. .x.. | 00000310: 53 52 B3 31 20 B0 20 53 52 B1 35 20 A7 20 39 30 |SR.1 . SR.5 . 90| 00000320: 00 3F 0B 82 00 91 20 53 52 20 8D 20 32 30 30 2C |.?.... SR . 200,| 00000330: 33 30 30 2C 34 30 30 2C 36 30 30 2C 38 30 30 00 |300,400,600,800.| 00000340: 48 0B 8C 00 89 20 35 30 00 74 0B C8 00 8D 20 31 |H.... 50.t.... 1| 00000350: 30 30 30 3A 4A B2 42 28 30 2C 30 29 3A 58 B2 30 |000:J.B(0,0):X.0| 00000360: 3A 8F 2A 2A 2A 20 4C 45 41 52 4E 20 4D 4F 44 45 |:.*** LEARN MODE| 00000370: 20 2A 2A 2A 00 8B 0B D2 00 A1 20 41 24 3A 8B 20 | ***...... A$:. | 00000380: 41 24 B2 22 22 20 A7 20 32 31 30 00 9F 0B DC 00 |A$."" . 210.....| 00000390: 8B 20 C6 28 41 24 29 B2 31 33 33 20 A7 20 8E 00 |. .(A$).133 . ..| 000003A0: C2 0B E6 00 8D 20 32 30 30 30 3A 8B 20 49 B2 30 |..... 2000:. I.0| 000003B0: 20 A7 20 97 20 35 36 35 37 37 2C 30 3A 89 20 32 | . . 56577,0:. 2| 000003C0: 31 30 00 D3 0B F0 00 97 20 35 36 35 37 37 2C 41 |10...... 56577,A| 000003D0: 28 49 29 00 F2 0B FA 00 A1 20 41 24 3A 8B 20 41 |(I)...... A$:. A| 000003E0: 24 B2 22 22 20 A7 20 58 B2 58 AA 31 3A 89 20 32 |$."" . X.X.1:. 2| 000003F0: 35 30 00 00 0C 04 01 97 20 35 36 35 37 37 2C 30 |50...... 56577,0| 00000400: 00 29 0C 0E 01 4A B2 4A AA 31 3A 42 28 4A 2C 30 |.)...J.J.1:B(J,0| 00000410: 29 B2 49 3A 42 28 4A 2C 31 29 B2 58 3A 58 B2 30 |).I:B(J,1).X:X.0| 00000420: 3A 42 28 30 2C 30 29 B2 4A 00 55 0C 18 01 52 4F |:B(0,0).J.U...RO| 00000430: B2 49 AA 31 30 3A 43 4F B2 35 3A 8D 20 35 30 35 |.I.10:CO.5:. 505| 00000440: 30 3A 99 20 CA 28 53 53 24 2C 49 2C 31 29 3B 3A |0:. .(SS$,I,1);:| 00000450: 89 20 32 31 30 00 6A 0C 2C 01 8F 2A 2A 20 44 4F |. 210.j.,..** DO| 00000460: 20 50 52 4F 43 45 44 55 52 45 00 9F 0C 36 01 99 | PROCEDURE...6..| 00000470: C7 28 31 34 37 29 3A 99 42 4C 24 3A 99 22 20 20 |.(147):.BL$:." | 00000480: 20 20 20 20 20 20 20 20 20 20 20 44 4F 20 50 52 | DO PR| 00000490: 4F 43 45 44 55 52 45 22 3A 99 42 4C 24 3A 99 00 |OCEDURE":.BL$:..| 000004A0: D1 0C 40 01 8B 20 42 28 30 2C 30 29 B2 30 20 A7 |..@.. B(0,0).0 .| 000004B0: 20 99 22 4E 4F 20 50 52 4F 43 45 44 55 52 45 20 | ."NO PROCEDURE | 000004C0: 49 4E 20 4D 45 4D 4F 52 59 2E 22 3A 89 20 33 37 |IN MEMORY.":. 37| 000004D0: 35 00 FA 0C 4A 01 99 22 50 52 45 53 53 20 41 4E |5...J.."PRESS AN| 000004E0: 59 20 4B 45 59 20 54 4F 20 42 45 47 49 4E 20 50 |Y KEY TO BEGIN P| 000004F0: 52 4F 43 45 44 55 52 45 2E 22 00 11 0D 54 01 A1 |ROCEDURE."...T..| 00000500: 20 41 24 3A 8B 20 41 24 B2 22 22 20 A7 20 33 34 | A$:. A$."" . 34| 00000510: 30 00 38 0D 5E 01 99 22 50 52 4F 43 45 44 55 52 |0.8.^.."PROCEDUR| 00000520: 45 20 45 58 45 43 55 54 49 4F 4E 20 49 4E 20 50 |E EXECUTION IN P| 00000530: 52 4F 47 52 45 53 53 22 00 5D 0D 63 01 81 20 49 |ROGRESS".].c.. I| 00000540: B2 31 20 A4 20 42 28 30 2C 30 29 3A 97 20 35 36 |.1 . B(0,0):. 56| 00000550: 35 37 37 2C 41 28 42 28 49 2C 30 29 29 00 70 0D |577,A(B(I,0)).p.| 00000560: 68 01 81 20 4A B2 31 20 A4 20 42 28 49 2C 31 29 |h.. J.1 . B(I,1)| 00000570: 00 8D 0D 6D 01 A1 20 41 24 3A 8B 20 41 24 B2 22 |...m.. A$:. A$."| 00000580: 22 20 A7 20 58 B2 58 AA 31 3A 82 20 4A 00 C2 0D |" . X.X.1:. J...| 00000590: 72 01 97 20 35 36 35 37 37 2C 30 3A 81 20 4A B2 |r.. 56577,0:. J.| 000005A0: 31 20 A4 20 35 30 30 3A 82 20 4A 3A 82 20 49 3A |1 . 500:. J:. I:| 000005B0: 99 22 50 52 4F 43 45 44 55 52 45 20 44 4F 4E 45 |."PROCEDURE DONE| 000005C0: 2E 22 00 FF 0D 77 01 52 4F B2 31 38 3A 43 4F B2 |."...w.RO.18:CO.| 000005D0: 30 3A 8D 35 30 35 30 3A 99 22 50 52 45 53 53 20 |0:.5050:."PRESS | 000005E0: 41 4E 59 20 4B 45 59 20 54 4F 20 52 45 54 55 52 |ANY KEY TO RETUR| 000005F0: 4E 20 54 4F 20 54 48 45 20 4D 45 4E 55 2E 22 00 |N TO THE MENU.".| 00000600: 16 0E 7C 01 A1 20 41 24 3A 8B 20 41 24 B2 22 22 |..|.. A$:. A$.""| 00000610: 20 A7 20 33 38 30 00 1C 0E 86 01 8E 00 33 0E 90 | . 380.......3..| 00000620: 01 8F 2A 2A 20 53 41 56 45 20 50 52 4F 43 45 44 |..** SAVE PROCED| 00000630: 55 52 45 00 6A 0E 9A 01 99 C7 28 31 34 37 29 3A |URE.j.....(147):| 00000640: 99 42 4C 24 3A 99 22 20 20 20 20 20 20 20 20 20 |.BL$:." | 00000650: 20 20 20 20 53 41 56 45 20 50 52 4F 43 45 44 55 | SAVE PROCEDU| 00000660: 52 45 22 3A 99 42 4C 24 3A 99 00 9C 0E A4 01 8B |RE":.BL$:.......| 00000670: 20 42 28 30 2C 30 29 B2 30 20 A7 20 99 22 4E 4F | B(0,0).0 . ."NO| 00000680: 20 50 52 4F 43 45 44 55 52 45 20 49 4E 20 4D 45 | PROCEDURE IN ME| 00000690: 4D 4F 52 59 2E 22 3A 89 20 34 38 30 00 BE 0E AE |MORY.":. 480....| 000006A0: 01 85 22 45 4E 54 45 52 20 46 49 4C 45 20 4E 41 |.."ENTER FILE NA| 000006B0: 4D 45 20 54 4F 20 53 41 56 45 22 3B 46 24 00 FA |ME TO SAVE";F$..| 000006C0: 0E B8 01 9F 20 31 2C 38 2C 31 35 3A 9F 20 32 2C |.... 1,8,15:. 2,| 000006D0: 38 2C 32 2C 22 40 30 3A 22 AA 46 24 AA 22 2C 53 |8,2,"@0:".F$.",S| 000006E0: 2C 52 22 3A 84 31 2C 45 2C 45 44 24 2C 54 4E 2C |,R":.1,E,ED$,TN,| 000006F0: 42 4C 3A A0 20 31 3A A0 20 32 00 0B 0F C2 01 8B |BL:. 1:. 2......| 00000700: 20 45 B2 36 32 20 A7 20 35 30 30 00 3A 0F CC 01 | E.62 . 500.:...| 00000710: 99 22 46 49 4C 45 20 45 58 49 53 54 53 2E 20 20 |."FILE EXISTS. | 00000720: 43 4F 4E 54 49 4E 55 45 20 28 59 2F 4E 29 2E 2E |CONTINUE (Y/N)..| 00000730: 2E 22 3B 3A 8D 20 31 35 30 30 00 4D 0F D6 01 8B |.";:. 1500.M....| 00000740: 20 41 24 B2 22 59 22 20 A7 20 35 30 30 00 6C 0F | A$."Y" . 500.l.| 00000750: E0 01 99 22 41 42 4F 52 54 2E 20 50 52 45 53 53 |..."ABORT. PRESS| 00000760: 20 41 4E 59 20 4B 45 59 2E 2E 2E 22 00 83 0F EA | ANY KEY..."....| 00000770: 01 A1 20 41 24 3A 8B 20 41 24 B2 22 22 20 A7 20 |.. A$:. A$."" . | 00000780: 34 39 30 00 89 0F EF 01 8E 00 C2 0F F4 01 9F 20 |490............ | 00000790: 32 2C 38 2C 32 2C 22 40 30 3A 22 AA 46 24 AA 22 |2,8,2,"@0:".F$."| 000007A0: 2C 53 2C 57 22 3A 99 3A 99 22 53 41 56 49 4E 47 |,S,W":.:."SAVING| 000007B0: 20 50 52 4F 43 45 44 55 52 45 2E 20 57 41 49 54 | PROCEDURE. WAIT| 000007C0: 2E 22 00 F6 0F FE 01 81 20 49 B2 30 20 A4 20 42 |."...... I.0 . B| 000007D0: 28 30 2C 30 29 3A 98 32 2C 42 28 49 2C 30 29 3A |(0,0):.2,B(I,0):| 000007E0: 98 32 2C 42 28 49 2C 31 29 3A 82 20 49 3A A0 20 |.2,B(I,1):. I:. | 000007F0: 32 3A A0 20 31 35 00 26 10 08 02 99 3A 99 22 50 |2:. 15.&....:."P| 00000800: 52 4F 43 45 44 55 52 45 20 53 41 56 45 44 2E 20 |ROCEDURE SAVED. | 00000810: 20 50 52 45 53 53 20 41 4E 59 20 4B 45 59 2E 22 | PRESS ANY KEY."| 00000820: 3A 89 20 34 39 30 00 41 10 58 02 8F 2A 2A 20 52 |:. 490.A.X..** R| 00000830: 45 54 52 49 45 56 45 20 50 52 4F 43 45 44 55 52 |ETRIEVE PROCEDUR| 00000840: 45 00 7A 10 62 02 99 C7 28 31 34 37 29 3A 99 42 |E.z.b...(147):.B| 00000850: 4C 24 3A 99 22 20 20 20 20 20 20 20 20 20 20 20 |L$:." | 00000860: 52 45 54 52 49 45 56 45 20 50 52 4F 43 45 44 55 |RETRIEVE PROCEDU| 00000870: 52 45 22 3A 99 42 4C 24 3A 99 00 8F 10 6C 02 8B |RE":.BL$:....l..| 00000880: 20 42 28 30 2C 30 29 B2 30 20 A7 20 36 35 30 00 | B(0,0).0 . 650.| 00000890: C3 10 76 02 99 22 50 52 4F 43 45 44 55 52 45 20 |..v.."PROCEDURE | 000008A0: 49 4E 20 4D 45 4D 4F 52 59 2E 20 43 4F 4E 54 49 |IN MEMORY. CONTI| 000008B0: 4E 55 45 20 28 59 2F 4E 29 3F 22 3B 3A 8D 20 31 |NUE (Y/N)?";:. 1| 000008C0: 35 30 30 00 E4 10 80 02 8B 20 41 24 B2 22 4E 22 |500...... A$."N"| 000008D0: 20 A7 20 99 22 41 42 4F 52 54 2E 20 22 3B 3A 89 | . ."ABORT. ";:.| 000008E0: 20 37 30 30 00 0A 11 8A 02 85 22 45 4E 54 45 52 | 700......"ENTER| 000008F0: 20 46 49 4C 45 20 4E 41 4D 45 20 54 4F 20 52 45 | FILE NAME TO RE| 00000900: 54 52 49 45 56 45 22 3B 46 24 00 46 11 94 02 9F |TRIEVE";F$.F....| 00000910: 20 31 2C 38 2C 31 35 3A 9F 20 32 2C 38 2C 32 2C | 1,8,15:. 2,8,2,| 00000920: 22 40 30 3A 22 AA 46 24 AA 22 2C 53 2C 52 22 3A |"@0:".F$.",S,R":| 00000930: 84 31 2C 45 2C 45 44 24 2C 54 4E 2C 42 4C 3A A0 |.1,E,ED$,TN,BL:.| 00000940: 20 31 3A A0 20 32 00 56 11 9E 02 8B 20 45 B2 30 | 1:. 2.V.... E.0| 00000950: 20 A7 20 37 32 30 00 7C 11 A8 02 8B 20 45 B2 36 | . 720.|.... E.6| 00000960: 32 20 A7 20 99 22 46 49 4C 45 20 44 4F 45 53 4E |2 . ."FILE DOESN| 00000970: 27 54 20 45 58 49 53 54 2E 20 22 3B 00 92 11 B2 |'T EXIST. ";....| 00000980: 02 99 22 50 52 45 53 53 20 41 4E 59 20 4B 45 59 |.."PRESS ANY KEY| 00000990: 2E 22 00 A9 11 BC 02 A1 20 41 24 3A 8B 20 41 24 |."...... A$:. A$| 000009A0: B2 22 22 20 A7 20 37 30 30 00 AF 11 C6 02 8E 00 |."" . 700.......| 000009B0: EA 11 D0 02 99 22 52 45 54 52 49 45 56 49 4E 47 |....."RETRIEVING| 000009C0: 20 50 52 4F 43 45 44 55 52 45 2E 20 57 41 49 54 | PROCEDURE. WAIT| 000009D0: 2E 22 3A 9F 20 32 2C 38 2C 32 2C 22 40 30 3A 22 |.":. 2,8,2,"@0:"| 000009E0: AA 46 24 AA 22 2C 53 2C 52 22 00 02 12 DA 02 84 |.F$.",S,R"......| 000009F0: 32 2C 42 28 30 2C 30 29 3A 84 32 2C 42 28 30 2C |2,B(0,0):.2,B(0,| 00000A00: 31 29 00 2F 12 E4 02 81 20 49 B2 31 20 A4 20 42 |1)./.... I.1 . B| 00000A10: 28 30 2C 30 29 3A 84 32 2C 42 28 49 2C 30 29 3A |(0,0):.2,B(I,0):| 00000A20: 84 32 2C 42 28 49 2C 31 29 3A 82 3A A0 20 32 00 |.2,B(I,1):.:. 2.| 00000A30: 52 12 EE 02 99 22 52 45 54 52 49 45 56 41 4C 20 |R...."RETRIEVAL | 00000A40: 43 4F 4D 50 4C 45 54 45 2E 20 22 3B 3A 89 20 36 |COMPLETE. ";:. 6| 00000A50: 39 30 00 5E 12 20 03 8F 2A 2A 20 45 4E 44 00 8B |90.^. ..** END..| 00000A60: 12 2A 03 52 4F B2 35 3A 43 4F B2 31 30 3A 8D 20 |.*.RO.5:CO.10:. | 00000A70: 35 30 35 30 3A 81 20 51 B2 31 20 A4 20 31 36 3A |5050:. Q.1 . 16:| 00000A80: 99 20 A3 31 30 29 3B 42 24 3A 82 00 A7 12 34 03 |. .10);B$:....4.| 00000A90: 52 4F B2 31 30 3A 43 4F B2 30 3A 8D 20 35 30 35 |RO.10:CO.0:. 505| 00000AA0: 30 3A A0 31 3A A0 32 00 D8 12 3E 03 99 22 50 52 |0:.1:.2...>.."PR| 00000AB0: 4F 47 52 41 4D 20 45 4E 44 45 44 2E 20 54 4F 20 |OGRAM ENDED. TO | 00000AC0: 52 45 2D 45 4E 54 45 52 2C 20 54 59 50 45 20 47 |RE-ENTER, TYPE G| 00000AD0: 4F 54 4F 20 35 30 22 3B 00 E0 12 48 03 99 3A 80 |OTO 50";...H..:.| 00000AE0: 00 FA 12 E8 03 8F 2A 2A 20 4C 45 41 52 4E 20 4D |......** LEARN M| 00000AF0: 4F 44 45 20 53 43 52 45 45 4E 00 0B 13 ED 03 99 |ODE SCREEN......| 00000B00: C7 28 31 34 37 29 3A 99 42 4C 24 00 40 13 EE 03 |.(147):.BL$.@...| 00000B10: 99 22 20 20 20 4D 4F 42 49 4C 45 20 41 52 4D 41 |." MOBILE ARMA| 00000B20: 54 52 4F 4E 20 52 4F 42 4F 54 20 4C 45 41 52 4E |TRON ROBOT LEARN| 00000B30: 20 4D 4F 44 45 20 20 20 22 3A 99 42 4C 24 3A 99 | MODE ":.BL$:.| 00000B40: 00 83 13 EF 03 99 22 20 20 20 20 50 52 45 53 53 |......" PRESS| 00000B50: 20 4B 45 59 20 54 4F 20 44 4F 20 46 55 4E 43 54 | KEY TO DO FUNCT| 00000B60: 49 4F 4E 2E 20 20 50 52 45 53 53 20 41 4E 59 4F |ION. PRESS ANYO| 00000B70: 54 48 45 52 20 4B 45 59 20 54 4F 20 53 54 4F 50 |THER KEY TO STOP| 00000B80: 2E 22 3B 00 AB 13 F0 03 99 22 20 20 50 52 45 53 |.";......" PRES| 00000B90: 53 20 3C 46 31 3E 20 54 4F 20 52 45 54 55 52 4E |S <F1> TO RETURN| 00000BA0: 54 4F 20 4D 45 4E 55 2E 22 3A 99 00 E5 13 F1 03 |TO MENU.":......| 00000BB0: 99 22 20 20 20 20 4B 45 59 20 20 46 55 4E 43 54 |." KEY FUNCT| 00000BC0: 49 4F 4E 22 3A 99 22 20 20 20 20 2D 2D 2D 20 20 |ION":." --- | 00000BD0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000BE0: 2D 2D 2D 2D 22 00 10 14 F2 03 99 A3 35 29 3B 22 |----".......5);"| 00000BF0: 31 20 3D 20 46 4F 52 57 41 52 44 22 3A 99 A3 35 |1 = FORWARD":..5| 00000C00: 29 3B 22 32 20 3D 20 42 41 43 4B 57 41 52 44 22 |);"2 = BACKWARD"| 00000C10: 00 4F 14 FC 03 99 A3 35 29 3B 22 33 20 3D 20 52 |.O.....5);"3 = R| 00000C20: 49 47 48 54 20 46 4F 52 57 41 52 44 20 54 55 52 |IGHT FORWARD TUR| 00000C30: 4E 22 3A 99 A3 35 29 3B 22 34 20 3D 20 4C 45 46 |N":..5);"4 = LEF| 00000C40: 54 20 46 4F 52 57 41 52 44 20 54 55 52 4E 22 00 |T FORWARD TURN".| 00000C50: 79 14 06 04 99 A3 35 29 3B 22 35 20 3D 20 41 52 |y.....5);"5 = AR| 00000C60: 4D 20 55 50 22 3A 99 A3 35 29 3B 22 36 20 3D 20 |M UP":..5);"6 = | 00000C70: 41 52 4D 20 44 4F 57 4E 22 00 A7 14 10 04 99 A3 |ARM DOWN".......| 00000C80: 35 29 3B 22 37 20 3D 20 57 52 49 53 54 20 55 50 |5);"7 = WRIST UP| 00000C90: 22 3A 99 A3 35 29 3B 22 38 20 3D 20 57 52 49 53 |":..5);"8 = WRIS| 00000CA0: 54 20 44 4F 57 4E 22 00 DF 14 1A 04 99 A3 35 29 |T DOWN".......5)| 00000CB0: 3B 22 39 20 3D 20 48 41 4E 44 20 54 55 52 4E 22 |;"9 = HAND TURN"| 00000CC0: 3A 99 A3 35 29 3B 22 30 20 3D 20 46 49 4E 47 45 |:..5);"0 = FINGE| 00000CD0: 52 53 20 4D 4F 56 45 20 49 4E 2F 4F 55 54 22 00 |RS MOVE IN/OUT".| 00000CE0: 01 15 24 04 99 A3 35 29 3B 22 2B 20 3D 20 52 49 |..$...5);"+ = RI| 00000CF0: 47 48 54 20 52 45 56 45 52 53 45 20 54 55 52 4E |GHT REVERSE TURN| 00000D00: 22 00 22 15 2E 04 99 A3 35 29 3B 22 2D 20 3D 20 |".".....5);"- = | 00000D10: 4C 45 46 54 20 52 45 56 45 52 53 45 20 54 55 52 |LEFT REVERSE TUR| 00000D20: 4E 22 00 28 15 38 04 8E 00 40 15 DC 05 A1 20 41 |N".(.8...@.... A| 00000D30: 24 3A 8B 20 41 24 B2 22 22 20 A7 20 31 35 30 30 |$:. A$."" . 1500| 00000D40: 00 56 15 E6 05 41 24 B2 C7 28 C6 28 41 24 29 20 |.V...A$..(.(A$) | 00000D50: AF 20 32 32 33 29 00 75 15 F0 05 8B 20 41 24 B3 |. 223).u.... A$.| 00000D60: B1 22 59 22 20 AF 20 41 24 B3 B1 22 4E 22 20 A7 |."Y" . A$.."N" .| 00000D70: 20 31 35 30 30 00 80 15 FA 05 99 20 41 24 3A 8E | 1500...... A$:.| 00000D80: 00 9B 15 D0 07 8F 2A 2A 20 50 4F 53 49 54 49 4F |......** POSITIO| 00000D90: 4E 20 49 4E 20 53 54 52 49 4E 47 00 C1 15 DA 07 |N IN STRING.....| 00000DA0: 81 20 49 B2 31 20 A4 20 31 32 3A 8B 20 41 24 B2 |. I.1 . 12:. A$.| 00000DB0: CA 28 53 53 24 2C 49 2C 31 29 20 A7 20 32 30 33 |.(SS$,I,1) . 203| 00000DC0: 30 00 CD 15 E4 07 82 3A 49 B2 30 3A 8E 00 EF 15 |0......:I.0:....| 00000DD0: EE 07 52 4F B2 49 AA 31 30 3A 43 4F B2 35 3A 8D |..RO.I.10:CO.5:.| 00000DE0: 20 35 30 35 30 3A 99 52 43 24 3B 41 24 3A 8E 00 | 5050:.RC$;A$:..| 00000DF0: 06 16 B8 0B 8F 2A 2A 20 46 4F 52 4D 41 54 20 53 |.....** FORMAT S| 00000E00: 43 52 45 45 4E 3D 00 34 16 C2 0B 97 20 35 33 32 |CREEN=.4.... 532| 00000E10: 38 30 2C 36 3A 97 20 35 33 32 38 31 2C 36 3A 99 |80,6:. 53281,6:.| 00000E20: C7 28 31 34 37 29 3A 42 24 B2 C7 28 35 29 AA C7 |.(147):B$..(5)..| 00000E30: 28 31 38 29 00 6F 16 CC 0B 42 4C 24 B2 42 24 AA |(18).o...BL$.B$.| 00000E40: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" | 00000E50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000E60: 20 20 20 20 20 20 20 20 22 3A 99 20 42 4C 24 00 | ":. BL$.| 00000E70: A2 16 D6 0B 99 20 42 24 3B 22 20 20 20 4D 4F 42 |..... B$;" MOB| 00000E80: 49 4C 45 20 41 52 4D 41 54 52 4F 4E 20 52 4F 42 |ILE ARMATRON ROB| 00000E90: 4F 54 20 43 4F 4E 54 52 4F 4C 4C 45 52 20 20 20 |OT CONTROLLER | 00000EA0: 20 22 00 AB 16 E0 0B 99 42 4C 24 00 D2 16 EA 0B | "......BL$.....| 00000EB0: 42 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 20 |B$." | 00000EC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000ED0: 20 22 00 D8 16 F4 0B 8E 00 16 17 88 13 8F 2A 20 | "............* | 00000EE0: 43 55 52 53 4F 52 20 43 4F 4E 54 52 4F 4C 20 55 |CURSOR CONTROL U| 00000EF0: 53 49 4E 47 20 50 4C 4F 54 20 20 20 20 20 20 20 |SING PLOT | 00000F00: 20 20 20 20 20 20 20 20 4B 45 52 4E 45 4C 20 28 | KERNEL (| 00000F10: 24 46 46 46 30 29 00 3D 17 92 13 83 20 31 36 32 |$FFF0).=.... 162| 00000F20: 2C 30 2C 31 36 30 2C 30 2C 32 34 2C 33 32 2C 32 |,0,160,0,24,32,2| 00000F30: 34 30 2C 32 35 35 2C 39 36 2C 39 39 39 00 4E 17 |40,255,96,999.N.| 00000F40: 9C 13 41 B2 34 39 33 30 30 3A 53 43 B2 41 00 74 |..A.49300:SC.A.t| 00000F50: 17 A6 13 87 20 42 3A 8B 20 42 B3 B1 39 39 39 20 |.... B:. B..999 | 00000F60: A7 20 97 20 41 2C 42 3A 41 B2 41 AA 31 3A 89 20 |. . A,B:A.A.1:. | 00000F70: 35 30 33 30 00 7A 17 B0 13 8E 00 99 17 BA 13 97 |5030.z..........| 00000F80: 20 53 43 AA 33 2C 43 4F 4C 3A 97 20 53 43 AA 31 | SC.3,COL:. SC.1| 00000F90: 2C 52 4F 57 3A 9E 20 53 43 00 9F 17 C4 13 8E 00 |,ROW:. SC.......| 00000FA0: 00 00 |.. |
..).... ********************************
*.Q.... ** MOBILE ARMATRON SOFTWARE *
*.Y.... ** NAME: ROBOT *
*...... ** (C) 1986, JJB *
*.I.... ** MANALAPAN, NJ 07726 *
*...... ** V 860928 *
*...... ********************************
*.R.... A(12),B(250,1):. 3000:. 5000:. 5
6579,255:. 56577,0.....A(1).38:A(2).70:A
(3).36:A(4).34:A(5).33:A(6).65.....A(7).
40:A(8).72:A(9).48:A(10).80:A(11).66:A(1
2).68...(.SS$."1234567890+-":RC$.G(5).G(
18)...2.. 3000:RO.6:CO.10:. 5050:.RC$;"
M A I N M E N U ".N.<..:..12);"< F1 >:
LEARN":.:..12);"< F3 >: DO"...F..:..1
2);"< F5 >: SAVE":.:..12);"< F7 >: RET
RIEVE"...P..:..10);"<CTRL> Q: QUIT (END
).M.Z.RO.19:CO.10:. 5050:."WHICH... "...
D.. SR$:. SR$."" . 100...N.SR.F(SR$).132
:. SR..115 . SR.5. .X.. SR.1 . SR.5 . 90
.?.... SR . 200,300,400,600,800.H.... 50
.T.H.. 1000:J.B(0,0):X.0:.*** LEARN MODE
***...R.. A$:. A$."" . 210...... F(A$).
133 . ..B.... 2000:. I.0 . . 56577,0:. 2
10.S.... 56577,A(I)...... A$:. A$."" . X
.X.1:. 250...... 56577,0.)...J.J.1:B(J,0
).I:B(J,1).X:X.0:B(0,0).J.U...RO.I.10:CO
.5:. 5050:. J(SS$,I,1);:. 210.J.,..** DO
PROCEDURE...6..G(147):.BL$:."
DO PROCEDURE":.BL$:..Q.@.. B(0,0).0 .
."NO PROCEDURE IN MEMORY.":. 375...J.."
PRESS ANY KEY TO BEGIN PROCEDURE."...T..
A$:. A$."" . 340.8.^.."PROCEDURE EXECUT
ION IN PROGRESS".].C.. I.1 . B(0,0):. 56
577,A(B(I,0)).P.H.. J.1 . B(I,1)...M.. A
$:. A$."" . X.X.1:. J.B.R.. 56577,0:. J.
1 . 500:. J:. I:."PROCEDURE DONE."...W.R
O.18:CO.0:.5050:."PRESS ANY KEY TO RETUR
N TO THE MENU."...|.. A$:. A$."" . 380..
.....3....** SAVE PROCEDURE.J....G(147):
.BL$:." SAVE PROCEDURE":.BL$
:....... B(0,0).0 . ."NO PROCEDURE IN ME
MORY.":. 480......"ENTER FILE NAME TO SA
VE";F$...... 1,8,15:. 2,8,2,"@0:".F$.",S
,R":.1,E,ED$,TN,BL: 1: 2...B.. E.62 .
500.:.L.."FILE EXISTS. CONTINUE (Y/N)..
.";:. 1500.M.V.. A$."Y" . 500.L...."ABOR
T. PRESS ANY KEY..."...... A$:. A$."" .
490.......B.... 2,8,2,"@0:".F$.",S,W":.:
."SAVING PROCEDURE. WAIT."...... I.0 . B
(0,0):.2,B(I,0):.2,B(I,1):. I: 2: 15.&
....:."PROCEDURE SAVED. PRESS ANY KEY."
:. 490.A.X..** RETRIEVE PROCEDURE.Z.B..G
(147):.BL$:." RETRIEVE PROCEDU
RE":.BL$:....L.. B(0,0).0 . 650.C.V.."PR
OCEDURE IN MEMORY. CONTINUE (Y/N)?";:. 1
500...... A$."N" . ."ABORT. ";:. 700....
.."ENTER FILE NAME TO RETRIEVE";F$.F....
1,8,15:. 2,8,2,"@0:".F$.",S,R":.1,E,ED$
,TN,BL: 1: 2.V.... E.0 . 720.|.... E.6
2 . ."FILE DOESN'T EXIST. ";......"PRESS
ANY KEY."...... A$:. A$."" . 700...F...
..P.."RETRIEVING PROCEDURE. WAIT.":. 2,8
,2,"@0:".F$.",S,R"...Z..2,B(0,0):.2,B(0,
1)./.... I.1 . B(0,0):.2,B(I,0):.2,B(I,1
):.: 2.R...."RETRIEVAL COMPLETE. ";:. 6
90.^. ..** END...*.RO.5:CO.10:. 5050:. Q
.1 . 16:. .10);B$:....4.RO.10:CO.0:. 505
0: 1: 2.X.>.."PROGRAM ENDED. TO RE-ENTER
, TYPE GOTO 50";...H..:.......** LEARN M
ODE SCREEN......G(147):.BL$.@...." MOB
ILE ARMATRON ROBOT LEARN MODE ":.BL$:.
......" PRESS KEY TO DO FUNCTION. PR
ESS ANYOTHER KEY TO STOP.";......" PRES
S <F1> TO RETURNTO MENU.":......." KE
Y FUNCTION":." --- ----------------
----".......5);"1 = FORWARD":..5);"2 = B
ACKWARD".O.....5);"3 = RIGHT FORWARD TUR
N":..5);"4 = LEFT FORWARD TURN".Y.....5)
;"5 = ARM UP":..5);"6 = ARM DOWN".......
5);"7 = WRIST UP":..5);"8 = WRIST DOWN".
......5);"9 = HAND TURN":..5);"0 = FINGE
RS MOVE IN/OUT"...$...5);"+ = RIGHT REVE
RSE TURN".".....5);"- = LEFT REVERSE TUR
N".(.8...@.... A$:. A$."" . 1500.V...A$.
G(F(A$) . 223).U.... A$.."Y" . A$.."N" .
1500...... A$:....P..** POSITION IN STR
ING.A.Z.. I.1 . 12:. A$.J(SS$,I,1) . 203
0.M....:I.0:......RO.I.10:CO.5:. 5050:.R
C$;A$:.......** FORMAT SCREEN=.4.B.. 532
80,6:. 53281,6:.G(147):B$.G(5).G(18).O.L
.BL$.B$."
":. BL$...V.. B$;" MOBILE ARMA
TRON ROBOT CONTROLLER "......BL$.R...
B$." ".X....
......* CURSOR CONTROL USING PLOT
KERNEL ($FFF0).=.... 162,0,160,0
,24,32,240,255,96,999.N...A.49300:SC.A.T
.... B:. B..999 . . A,B:A.A.1:. 5030.Z..
........ SC.3,COL:. SC.1,ROW:. SC...D...
..
> CLICK IMAGE PREVIEW FOR FULL MODAL