PILOT/TINY
FILE INFORMATION
FILENAME(S): PILOT/TINY
FILE TYPE(S): PRG
FILE SIZE: 5.5K
FIRST SEEN: 2025-11-30 21:23:57
APPEARS ON: 1 disk(s)
FILE HASH
0cb47ee3aa0c0aa3ed50de2f31d3c6d78856bfbd576d759517dc8570ea037ab7
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 HULP 32 1 | PILOT/TINY | PRG | DuncanTwain | 30 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0B 08 00 00 8D 32 30 30 30 00 23 08 01 00 |.......2000.#...|
00000010: 89 31 30 3A 8F 20 2A 2A 2A 20 50 49 4C 4F 54 20 |.10:. *** PILOT |
00000020: 2A 2A 2A 00 2D 08 02 00 49 24 B2 22 22 00 41 08 |***.-...I$."".A.|
00000030: 03 00 9E 38 32 36 3A 8B C2 28 30 29 B2 31 33 A7 |...826:..(0).13.|
00000040: 8E 00 56 08 04 00 49 24 B2 49 24 AA C7 28 C2 28 |..V...I$.I$..(.(|
00000050: 30 29 29 3A 89 33 00 A3 08 0A 00 9C 3A 4D B2 32 |0)):.3......:M.2|
00000060: 30 30 3A 58 B2 30 3A 59 B2 30 3A 41 B2 30 3A 50 |00:X.0:Y.0:A.0:P|
00000070: B2 30 3A 5A B2 30 3A 49 24 B2 22 22 3A 86 53 25 |.0:Z.0:I$."":.S%|
00000080: 28 39 29 2C 4E 25 28 32 36 29 2C 53 24 28 32 36 |(9),N%(26),S$(26|
00000090: 29 2C 4C 24 28 4D 29 2C 43 24 28 31 35 29 3A 46 |),L$(M),C$(15):F|
000000A0: 25 B2 30 00 DD 08 14 00 99 22 93 2A 2A 2A 2A 20 |%.0......".**** |
000000B0: 50 49 4C 4F 54 20 56 32 2E 31 20 2A 2A 2A 2A 22 |PILOT V2.1 ****"|
000000C0: 3A 81 58 B2 38 32 36 A4 38 33 31 3A 87 5A 3A 97 |:.X.826.831:.Z:.|
000000D0: 58 2C 5A 3A 82 3A 81 58 B2 30 A4 31 35 00 FF 08 |X,Z:.:.X.0.15...|
000000E0: 19 00 87 43 24 28 58 29 3A 82 3A 83 33 32 2C 32 |...C$(X):.:.32,2|
000000F0: 30 37 2C 32 35 35 2C 31 33 33 2C 30 2C 39 36 00 |07,255,133,0,96.|
00000100: 39 09 1E 00 83 4C 49 53 54 2C 52 55 4E 2C 53 41 |9....LIST,RUN,SA|
00000110: 56 45 2C 4C 4F 41 44 2C 4E 45 57 2C 42 41 53 49 |VE,LOAD,NEW,BASI|
00000120: 43 2C 50 4C 49 53 54 2C 54 2C 4A 2C 45 2C 55 2C |C,PLIST,T,J,E,U,|
00000130: 4D 2C 43 2C 41 2C 49 2C 48 00 48 09 28 00 99 22 |M,C,A,I,H.H.(.."|
00000140: 11 50 49 4C 4F 54 2E 22 00 67 09 32 00 8D 32 3A |.PILOT.".g.2..2:|
00000150: 99 3A 8B C6 28 49 24 29 B2 33 32 AF C3 28 49 24 |.:..(I$).32..(I$|
00000160: 29 B2 31 A7 89 35 30 00 87 09 3C 00 8B C8 28 49 |).1..50...<...(I|
00000170: 24 2C 31 29 B2 22 20 22 A7 49 24 B2 CA 28 49 24 |$,1)." ".I$..(I$|
00000180: 2C 32 29 3A 89 36 30 00 9E 09 46 00 4C B2 C5 28 |,2):.60...F.L..(|
00000190: 49 24 29 3A 8B 4C B3 B1 30 A7 89 32 30 30 00 D3 |I$):.L..0..200..|
000001A0: 09 50 00 4C B2 31 3A 48 B2 4D 3A 52 24 B2 22 22 |.P.L.1:H.M:R$.""|
000001B0: 3A 81 58 B2 31 A4 C3 28 49 24 29 3A 8B CA 28 49 |:.X.1..(I$):..(I|
000001C0: 24 2C 58 2C 31 29 B3 B1 22 20 22 A7 82 58 3A 89 |$,X,1).." "..X:.|
000001D0: 31 34 30 00 F1 09 5A 00 52 24 B2 CA 28 49 24 2C |140...Z.R$..(I$,|
000001E0: 58 AA 31 29 3A 49 24 B2 C8 28 49 24 2C 58 AB 31 |X.1):I$..(I$,X.1|
000001F0: 29 00 24 0A 64 00 4C B2 C5 28 52 24 29 3A 48 B2 |).$.d.L..(R$):H.|
00000200: 4C 3A 81 58 B2 31 A4 C3 28 52 24 29 3A 8B 20 CA |L:.X.1..(R$):. .|
00000210: 28 52 24 2C 58 2C 31 29 B3 B1 22 2D 22 A7 82 3A |(R$,X,1).."-"..:|
00000220: 89 31 32 30 00 46 0A 6E 00 4C B2 C5 28 C8 28 52 |.120.F.n.L..(.(R|
00000230: 24 2C 58 AB 31 29 29 3A 48 B2 C5 28 CA 28 52 24 |$,X.1)):H..(.(R$|
00000240: 2C 58 AA 31 29 29 00 53 0A 78 00 8B 4C B2 30 A7 |,X.1)).S.x..L.0.|
00000250: 4C B2 31 00 60 0A 82 00 8B 48 B2 30 A7 48 B2 4D |L.1.`....H.0.H.M|
00000260: 00 9D 0A 8C 00 81 58 B2 30 A4 36 3A 8B 49 24 B3 |......X.0.6:.I$.|
00000270: B1 C8 28 43 24 28 58 29 2C C3 28 49 24 29 29 A7 |..(C$(X),.(I$)).|
00000280: 82 3A 99 22 55 4E 42 45 4B 41 4E 4E 54 45 53 20 |.:."UNBEKANNTES |
00000290: 4B 4F 4D 4D 41 4E 44 4F 22 3A 89 34 30 00 C3 0A |KOMMANDO":.40...|
000002A0: 96 00 91 58 AA 31 89 34 30 30 2C 31 30 30 30 2C |...X.1.400,1000,|
000002B0: 35 30 30 2C 36 30 30 2C 37 30 30 2C 38 30 30 2C |500,600,700,800,|
000002C0: 33 39 30 00 F8 0A C8 00 8B 4C B1 4D A7 99 22 5A |390......L.M.."Z|
000002D0: 45 49 4C 45 4E 4E 55 4D 4D 45 52 20 41 55 53 53 |EILENNUMMER AUSS|
000002E0: 45 52 48 41 4C 42 20 44 45 53 20 42 45 52 45 49 |ERHALB DES BEREI|
000002F0: 43 48 53 22 3A 89 34 30 00 25 0B D2 00 58 B2 C3 |CHS":.40.%...X..|
00000300: 28 C4 28 4C 29 29 3A 58 24 B2 CA 28 49 24 2C 58 |(.(L)):X$..(I$,X|
00000310: 29 3A 8B 58 24 B2 22 22 A7 4C 24 28 4C 29 B2 22 |):.X$."".L$(L)."|
00000320: 22 3A 89 35 30 00 46 0B DC 00 8B C8 28 58 24 2C |":.50.F.....(X$,|
00000330: 31 29 B2 22 20 22 A7 58 24 B2 CA 28 58 24 2C 32 |1)." ".X$..(X$,2|
00000340: 29 3A 89 32 32 30 00 7F 0B E6 00 58 B2 33 3A 8B |):.220.....X.3:.|
00000350: CA 28 58 24 2C 32 2C 31 29 B3 B1 22 3A 22 A7 58 |.(X$,2,1)..":".X|
00000360: B2 34 3A 8B CA 28 58 24 2C 33 2C 31 29 B3 B1 22 |.4:..(X$,3,1).."|
00000370: 3A 22 A7 4C 24 28 4C 29 B2 58 24 3A 89 35 30 00 |:".L$(L).X$:.50.|
00000380: B6 0B F0 00 81 5A B2 37 A4 31 35 3A 8B C8 28 58 |.....Z.7.15:..(X|
00000390: 24 2C 31 29 B3 B1 43 24 28 5A 29 A7 82 3A 99 22 |$,1)..C$(Z)..:."|
000003A0: 46 41 4C 53 43 48 45 53 20 4B 4F 4D 4D 41 4E 44 |FALSCHES KOMMAND|
000003B0: 4F 22 3A 89 34 30 00 D0 0B FA 00 8B CA 28 58 24 |O":.40.......(X$|
000003C0: 2C 32 2C 31 29 B2 22 59 22 A7 5A B2 5A AA 31 30 |,2,1)."Y".Z.Z.10|
000003D0: 00 EA 0B 04 01 8B CA 28 58 24 2C 32 2C 31 29 B2 |.......(X$,2,1).|
000003E0: 22 4E 22 A7 5A B2 5A AA 32 30 00 07 0C 0E 01 4C |"N".Z.Z.20.....L|
000003F0: 24 28 4C 29 B2 C7 28 5A AB 36 29 AA CA 28 58 24 |$(L)..(Z.6)..(X$|
00000400: 2C 58 29 3A 89 35 30 00 15 0C 86 01 9F 31 2C 34 |,X):.50......1,4|
00000410: 3A 89 34 31 30 00 1E 0C 90 01 9F 31 2C 33 00 37 |:.410......1,3.7|
00000420: 0C 9A 01 81 58 B2 4C A4 48 3A 8B 4C 24 28 58 29 |....X.L.H:.L$(X)|
00000430: B2 22 22 A7 34 35 30 00 66 0C A4 01 58 24 B2 22 |."".450.f...X$."|
00000440: 3A 22 3A 5A B2 C6 28 4C 24 28 58 29 29 3A 8B 5A |:":Z..(L$(X)):.Z|
00000450: B1 33 30 A7 58 24 B2 C8 28 4C 24 28 58 29 2C 31 |.30.X$..(L$(X),1|
00000460: 29 3A 89 34 34 30 00 81 0C A9 01 8B 5A B1 32 30 |):.440......Z.20|
00000470: A7 5A B2 5A AB 32 30 3A 58 24 B2 22 4E 22 AA 58 |.Z.Z.20:X$."N".X|
00000480: 24 00 9C 0C AE 01 8B 5A B1 31 30 A7 5A B2 5A AB |$......Z.10.Z.Z.|
00000490: 31 30 3A 58 24 B2 22 59 22 AA 58 24 00 AE 0C B3 |10:X$."Y".X$....|
000004A0: 01 58 24 B2 43 24 28 5A AA 36 29 AA 58 24 00 C5 |.X$.C$(Z.6).X$..|
000004B0: 0C B8 01 98 31 2C 58 3B 58 24 3B CA 28 4C 24 28 |....1,X;X$;.(L$(|
000004C0: 58 29 2C 32 29 00 DC 0C C2 01 A1 58 24 3A 8B 58 |X),2)......X$:.X|
000004D0: 24 B3 B1 22 22 A7 A0 31 3A 89 34 30 00 E9 0C CC |$..""..1:.40....|
000004E0: 01 82 3A A0 31 3A 89 34 30 00 03 0D F4 01 9F 31 |..:.1:.40......1|
000004F0: 2C 31 2C 31 2C 52 24 3A 99 22 53 41 56 49 4E 47 |,1,1,R$:."SAVING|
00000500: 22 52 24 00 3A 0D F5 01 8F 2A 2A 44 49 53 43 2A |"R$.:....**DISC*|
00000510: 2A 20 36 30 30 20 4F 50 45 4E 31 2C 38 2C 32 2C |* 600 OPEN1,8,2,|
00000520: 52 24 2B 22 2C 53 2C 57 22 3A 50 52 49 4E 54 22 |R$+",S,W":PRINT"|
00000530: 53 41 56 49 4E 47 20 22 52 24 00 53 0D FE 01 81 |SAVING "R$.S....|
00000540: 58 B2 31 A4 4D 3A 8B 4C 24 28 58 29 B2 22 22 A7 |X.1.M:.L$(X)."".|
00000550: 35 33 30 00 77 0D 08 02 98 31 2C 58 3B C7 28 31 |530.w....1,X;.(1|
00000560: 33 29 C7 28 33 34 29 4C 24 28 58 29 C7 28 33 34 |3).(34)L$(X).(34|
00000570: 29 C7 28 31 33 29 3B 00 85 0D 12 02 82 58 3A A0 |).(13);......X:.|
00000580: 31 3A 89 34 30 00 A0 0D 58 02 9F 31 2C 31 2C 30 |1:.40...X..1,1,0|
00000590: 2C 52 24 3A 99 22 4C 4F 41 44 49 4E 47 22 52 24 |,R$:."LOADING"R$|
000005A0: 00 D8 0D 59 02 8F 2A 2A 44 49 53 43 2A 2A 20 36 |...Y..**DISC** 6|
000005B0: 30 30 20 50 52 49 4E 54 22 4C 4F 41 44 49 4E 47 |00 PRINT"LOADING|
000005C0: 20 22 52 24 3A 4F 50 45 4E 31 2C 38 2C 32 2C 52 | "R$:OPEN1,8,2,R|
000005D0: 24 2B 22 2C 53 2C 52 22 00 E9 0D 62 02 84 31 2C |$+",S,R"...b..1,|
000005E0: 58 3A 8B 53 54 89 36 33 30 00 00 0E 6C 02 84 31 |X:.ST.630...l..1|
000005F0: 2C 4C 24 28 58 29 3A 8B 53 54 B2 30 89 36 31 30 |,L$(X):.ST.0.610|
00000600: 00 0B 0E 76 02 A0 31 3A 89 34 30 00 13 0E BC 02 |...v..1:.40.....|
00000610: 89 31 30 00 32 0E 20 03 99 22 11 20 5A 55 52 55 |.10.2. ..". ZURU|
00000620: 45 43 4B 20 5A 55 20 42 41 53 49 43 2E 2E 2E 22 |ECK ZU BASIC..."|
00000630: 3A 80 00 5E 0E E8 03 4C B2 30 3A 81 58 B2 31 A4 |:..^...L.0:.X.1.|
00000640: 32 35 3A 4E 25 28 58 29 B2 30 3A 53 24 28 58 29 |25:N%(X).0:S$(X)|
00000650: B2 22 22 3A 82 3A 50 B2 30 3A 46 25 B2 30 00 7D |."":.:P.0:F%.0.}|
00000660: 0E F2 03 4C B2 4C AA 31 3A 8B 4C B2 B1 4D B0 4C |...L.L.1:.L..M.L|
00000670: 24 28 4C 29 B2 22 45 4E 44 22 A7 34 30 00 90 0E |$(L)."END".40...|
00000680: F3 03 A1 58 24 3A 8B 58 24 B2 22 40 22 A7 34 30 |...X$:.X$."@".40|
00000690: 00 A3 0E F7 03 8B 4C 24 28 4C 29 B2 22 22 A7 31 |......L$(L)."".1|
000006A0: 30 31 30 00 BD 0E FC 03 58 B2 C6 28 4C 24 28 4C |010.....X..(L$(L|
000006B0: 29 29 3A 8B 58 B1 34 30 A7 31 30 31 30 00 D9 0E |)):.X.40.1010...|
000006C0: 06 04 8B 58 B1 32 30 A7 58 B2 58 AB 32 30 3A 8B |...X.20.X.X.20:.|
000006D0: 46 25 B2 31 A7 31 30 31 30 00 F5 0E 10 04 8B 58 |F%.1.1010......X|
000006E0: B1 31 30 A7 58 B2 58 AB 31 30 3A 8B 46 25 B2 30 |.10.X.X.10:.F%.0|
000006F0: A7 31 30 31 30 00 37 0F 1A 04 43 24 B2 CA 28 4C |.1010.7...C$..(L|
00000700: 24 28 4C 29 2C 32 29 3A 91 58 89 31 31 30 30 2C |$(L),2):.X.1100,|
00000710: 31 32 32 30 2C 31 33 30 30 2C 31 32 30 30 2C 31 |1220,1300,1200,1|
00000720: 35 30 30 2C 31 36 30 30 2C 31 37 30 30 2C 31 38 |500,1600,1700,18|
00000730: 30 30 2C 31 39 30 30 00 57 0F 42 04 99 22 46 45 |00,1900.W.B.."FE|
00000740: 48 4C 45 52 20 23 22 45 22 49 4E 20 5A 45 49 4C |HLER #"E"IN ZEIL|
00000750: 45 22 4C 3A 89 34 30 00 81 0F 4C 04 5A B2 30 3A |E"L:.40...L.Z.0:|
00000760: 8B C9 28 43 24 2C 31 29 B2 22 3B 22 A7 5A B2 31 |..(C$,1).";".Z.1|
00000770: 3A 43 24 B2 C8 28 43 24 2C C3 28 43 24 29 AB 31 |:C$..(C$,.(C$).1|
00000780: 29 00 AA 0F 51 04 81 58 B2 31 A4 C3 28 43 24 29 |)...Q..X.1..(C$)|
00000790: 3A 58 24 B2 CA 28 43 24 2C 58 2C 31 29 3A 8B 58 |:X$..(C$,X,1):.X|
000007A0: 24 B2 22 23 22 A7 31 31 35 30 00 BB 0F 56 04 8B |$."#".1150...V..|
000007B0: 58 24 B2 22 24 22 A7 31 31 36 30 00 CD 0F 60 04 |X$."$".1160...`.|
000007C0: 99 58 24 3B 3A 82 3A 8B 5A B2 30 A7 99 00 D7 0F |.X$;:.:.Z.0.....|
000007D0: 6A 04 89 31 30 31 30 00 F3 0F 7E 04 8D 31 31 39 |j..1010...~..119|
000007E0: 30 3A 58 24 B2 C4 28 4E 25 28 59 29 29 3A 89 31 |0:X$..(N%(Y)):.1|
000007F0: 31 32 30 00 0C 10 88 04 8D 31 31 39 30 3A 58 24 |120......1190:X$|
00000800: B2 53 24 28 59 29 3A 89 31 31 32 30 00 3C 10 A6 |.S$(Y):.1120.<..|
00000810: 04 58 B2 58 AA 31 3A 59 B2 C6 28 CA 28 43 24 2C |.X.X.1:Y..(.(C$,|
00000820: 58 2C 31 29 29 AB 36 34 3A 8B 59 B3 31 B0 59 B1 |X,1)).64:.Y.1.Y.|
00000830: 32 36 A7 45 B2 31 3A 89 31 30 39 30 00 42 10 AB |26.E.1:.1090.B..|
00000840: 04 8E 00 55 10 B0 04 8B 50 B1 38 A7 45 B2 33 3A |...U....P.8.E.3:|
00000850: 89 31 30 39 30 00 67 10 BA 04 50 B2 50 AA 31 3A |.1090.g...P.P.1:|
00000860: 53 25 28 50 29 B2 4C 00 85 10 C4 04 8B C5 28 43 |S%(P).L.......(C|
00000870: 24 29 B3 B1 30 A7 4C B2 C5 28 43 24 29 AB 31 3A |$)..0.L..(C$).1:|
00000880: 89 31 30 31 30 00 A7 10 CE 04 81 58 B2 31 A4 4D |.1010......X.1.M|
00000890: 3A 8B 43 24 B3 B1 4C 24 28 58 29 A7 82 3A 45 B2 |:.C$..L$(X)..:E.|
000008A0: 32 3A 89 31 30 39 30 00 B5 10 D8 04 4C B2 58 3A |2:.1090.....L.X:|
000008B0: 89 31 30 31 30 00 C8 10 14 05 8B 50 B2 30 A7 45 |.1010......P.0.E|
000008C0: B2 34 3A 89 31 30 39 30 00 E0 10 1E 05 4C B2 53 |.4:.1090.....L.S|
000008D0: 25 28 50 29 3A 50 B2 50 AB 31 3A 89 31 30 31 30 |%(P):P.P.1:.1010|
000008E0: 00 0C 11 DC 05 58 B2 31 3A 43 24 B2 43 24 AA 22 |.....X.1:C$.C$."|
000008F0: 2C 22 3A 58 24 B2 41 43 24 3A 8B C8 28 43 24 2C |,":X$.AC$:..(C$,|
00000900: 31 29 B2 22 24 22 A7 8D 31 35 39 30 00 2D 11 E6 |1)."$"..1590.-..|
00000910: 05 81 5A B2 58 A4 C3 28 43 24 29 3A 8B CA 28 43 |..Z.X..(C$):..(C|
00000920: 24 2C 5A 2C 31 29 B3 B1 22 2C 22 A7 82 00 68 11 |$,Z,1)..","...h.|
00000930: F0 05 5A 24 B2 CA 28 43 24 2C 58 2C 5A AB 58 29 |..Z$..(C$,X,Z.X)|
00000940: 3A 81 59 B2 31 A4 C3 28 58 24 29 3A 8B CA 28 58 |:.Y.1..(X$):..(X|
00000950: 24 2C 59 2C C3 28 5A 24 29 29 B2 5A 24 A7 46 25 |$,Y,.(Z$)).Z$.F%|
00000960: B2 31 3A 89 31 30 31 30 00 83 11 18 06 82 3A 8B |.1:.1010......:.|
00000970: 5A B3 C3 28 43 24 29 A7 58 B2 5A AA 31 3A 89 31 |Z..(C$).X.Z.1:.1|
00000980: 35 31 30 00 92 11 22 06 46 25 B2 30 3A 89 31 30 |510...".F%.0:.10|
00000990: 31 30 00 BA 11 36 06 59 B2 C6 28 CA 28 43 24 2C |10...6.Y..(.(C$,|
000009A0: 32 29 29 AB 36 34 3A 8B 59 B3 31 B0 59 B1 32 36 |2)).64:.Y.1.Y.26|
000009B0: A7 45 B2 31 3A 89 31 30 39 30 00 CD 11 3B 06 58 |.E.1:.1090...;.X|
000009C0: 24 B2 53 24 28 59 29 3A 58 B2 34 3A 8E 00 06 12 |$.S$(Y):X.4:....|
000009D0: 40 06 41 B2 33 3A 5A B2 30 3A 58 24 B2 22 22 3A |@.A.3:Z.0:X$."":|
000009E0: 8B C8 28 43 24 2C 31 29 B3 B1 22 23 22 B0 CA 28 |..(C$,1).."#"..(|
000009F0: 43 24 2C 33 2C 31 29 B3 B1 22 3D 22 A7 45 B2 35 |C$,3,1).."=".E.5|
00000A00: 3A 89 31 30 39 30 00 3B 12 4A 06 59 B2 31 3A 58 |:.1090.;.J.Y.1:X|
00000A10: 24 B2 CA 28 43 24 2C 41 2C 31 29 3A 41 B2 41 AA |$..(C$,A,1):A.A.|
00000A20: 31 3A 8B CA 28 43 24 2C 41 2C 31 29 B2 22 2D 22 |1:..(C$,A,1)."-"|
00000A30: A7 41 B2 41 AA 31 3A 59 B2 AB 31 00 72 12 54 06 |.A.A.1:Y..1.r.T.|
00000A40: 8B CA 28 43 24 2C 41 2C 31 29 B3 B1 22 23 22 A7 |..(C$,A,1).."#".|
00000A50: 59 B2 59 AC C5 28 CA 28 43 24 2C 41 29 29 3A 41 |Y.Y..(.(C$,A)):A|
00000A60: B2 41 AA C3 28 C4 28 59 29 29 AB 31 3A 89 31 36 |.A..(.(Y)).1:.16|
00000A70: 35 30 00 9C 12 5E 06 58 B2 C6 28 CA 28 43 24 2C |50...^.X..(.(C$,|
00000A80: 41 AA 31 29 29 AB 36 34 3A 8B 58 B3 31 B0 58 B1 |A.1)).64:.X.1.X.|
00000A90: 32 36 A7 45 B2 31 3A 89 31 30 39 30 00 B5 12 63 |26.E.1:.1090...c|
00000AA0: 06 8B 58 B2 31 38 A7 59 B2 59 AC BB 28 31 29 3A |..X.18.Y.Y..(1):|
00000AB0: 89 31 36 35 30 00 C9 12 68 06 59 B2 59 AC 4E 25 |.1650...h.Y.Y.N%|
00000AC0: 28 58 29 3A 41 B2 41 AA 32 00 D9 12 72 06 8B 58 |(X):A.A.2...r..X|
00000AD0: 24 B2 22 3D 22 A7 5A B2 59 00 EB 12 77 06 8B 58 |$."=".Z.Y...w..X|
00000AE0: 24 B2 22 2D 22 A7 5A B2 5A AB 59 00 FD 12 7C 06 |$."-".Z.Z.Y...|.|
00000AF0: 8B 58 24 B2 22 2B 22 A7 5A B2 5A AA 59 00 0F 13 |.X$."+".Z.Z.Y...|
00000B00: 81 06 8B 58 24 B2 22 2A 22 A7 5A B2 5A AC 59 00 |...X$."*".Z.Z.Y.|
00000B10: 29 13 86 06 8B 58 24 B2 22 2F 22 AF 59 B2 30 A7 |)....X$."/".Y.0.|
00000B20: 45 B2 36 3A 89 31 30 39 30 00 3B 13 8B 06 8B 58 |E.6:.1090.;....X|
00000B30: 24 B2 22 2F 22 A7 5A B2 5A AD 59 00 4E 13 90 06 |$."/".Z.Z.Y.N...|
00000B40: 8B 41 B3 B2 C3 28 43 24 29 89 31 36 31 30 00 7D |.A...(C$).1610.}|
00000B50: 13 95 06 59 B2 4E 25 28 58 31 29 3A 8B 58 AB 34 |...Y.N%(X1):.X.4|
00000B60: B1 30 A7 8B CA 28 43 24 2C 58 AB 34 29 B2 22 2D |.0...(C$,X.4)."-|
00000B70: 22 AF 58 AB 34 B3 B1 41 A7 5A B2 AB 5A 00 A5 13 |".X.4..A.Z..Z...|
00000B80: 9A 06 58 B2 C6 28 CA 28 43 24 2C 32 29 29 AB 36 |..X..(.(C$,2)).6|
00000B90: 34 3A 8B 58 B3 31 B0 58 B1 32 36 A7 45 B2 31 3A |4:.X.1.X.26.E.1:|
00000BA0: 89 31 30 39 30 00 C5 13 9C 06 8B 5A B1 33 32 37 |.1090......Z.327|
00000BB0: 36 37 B0 5A B3 AB 33 32 37 36 37 A7 45 B2 37 3A |67.Z..32767.E.7:|
00000BC0: 89 31 30 39 30 00 D7 13 9F 06 4E 25 28 58 29 B2 |.1090.....N%(X).|
00000BD0: 5A 3A 89 31 30 31 30 00 F4 13 A4 06 8B 43 24 B2 |Z:.1010......C$.|
00000BE0: 22 22 A7 8D 32 3A 41 43 24 B2 49 24 3A 99 3A 89 |""..2:AC$.I$:.:.|
00000BF0: 31 30 31 30 00 1C 14 B8 06 58 B2 C6 28 CA 28 43 |1010.....X..(.(C|
00000C00: 24 2C 32 29 29 AB 36 34 3A 8B 58 B3 31 B0 58 B1 |$,2)).64:.X.1.X.|
00000C10: 32 36 A7 45 B2 31 3A 89 31 30 39 30 00 42 14 C2 |26.E.1:.1090.B..|
00000C20: 06 8D 32 3A 5A B2 C5 28 49 24 29 3A 99 3A 8B C8 |..2:Z..(I$):.:..|
00000C30: 28 43 24 2C 31 29 B2 22 23 22 A7 4E 25 28 58 29 |(C$,1)."#".N%(X)|
00000C40: B2 5A 00 5C 14 CC 06 8B C8 28 43 24 2C 31 29 B2 |.Z.\.....(C$,1).|
00000C50: 22 24 22 A7 53 24 28 58 29 B2 49 24 00 66 14 D6 |"$".S$(X).I$.f..|
00000C60: 06 89 31 30 31 30 00 82 14 08 07 8B C8 28 43 24 |..1010.......(C$|
00000C70: 2C 31 29 B3 B1 22 23 22 A7 45 B2 35 3A 89 31 30 |,1).."#".E.5:.10|
00000C80: 39 30 00 AA 14 12 07 58 B2 C6 28 CA 28 43 24 2C |90.....X..(.(C$,|
00000C90: 32 29 29 AB 36 34 3A 8B 58 B3 31 B0 58 B1 32 36 |2)).64:.X.1.X.26|
00000CA0: A7 45 B2 31 3A 89 31 30 39 30 00 E6 14 1C 07 41 |.E.1:.1090.....A|
00000CB0: B2 4E 25 28 58 29 3A 58 24 B2 CA 28 43 24 2C 33 |.N%(X):X$..(C$,3|
00000CC0: 2C 31 29 3A 8B CA 28 43 24 2C 34 2C 31 29 B3 B1 |,1):..(C$,4,1)..|
00000CD0: 22 23 22 A7 58 B2 C5 28 CA 28 43 24 2C 34 29 29 |"#".X..(.(C$,4))|
00000CE0: 3A 89 31 38 34 30 00 0E 15 26 07 58 B2 C6 28 CA |:.1840...&.X..(.|
00000CF0: 28 43 24 2C 35 29 29 AB 36 34 3A 8B 58 B3 31 B0 |(C$,5)).64:.X.1.|
00000D00: 58 B1 32 36 A7 45 B2 31 3A 89 31 30 39 30 00 1A |X.26.E.1:.1090..|
00000D10: 15 2B 07 58 B2 4E 25 28 58 29 00 34 15 30 07 46 |.+.X.N%(X).4.0.F|
00000D20: 25 B2 30 3A 8B 58 24 B2 22 3C 22 AF 41 B3 58 A7 |%.0:.X$."<".A.X.|
00000D30: 46 25 B2 31 00 49 15 3A 07 8B 58 24 B2 22 3E 22 |F%.1.I.:..X$.">"|
00000D40: AF 41 B1 58 A7 46 25 B2 31 00 5E 15 44 07 8B 58 |.A.X.F%.1.^.D..X|
00000D50: 24 B2 22 3D 22 AF 41 B2 58 A7 46 25 B2 31 00 68 |$."=".A.X.F%.1.h|
00000D60: 15 4E 07 89 31 30 31 30 00 78 15 6C 07 99 22 93 |.N..1010.x.l..".|
00000D70: 22 3B 3A 89 31 30 31 30 00 95 15 D0 07 99 22 93 |";:.1010......".|
00000D80: 20 20 20 45 52 4B 4C 41 45 52 55 4E 47 20 28 4A | ERKLAERUNG (J|
00000D90: 2F 4E 29 20 3F 00 A9 15 DA 07 A1 41 24 3A 8B 41 |/N) ?......A$:.A|
00000DA0: 24 B2 22 22 A7 32 30 31 30 00 B8 15 E4 07 8B 41 |$."".2010......A|
00000DB0: 24 B3 B1 22 4A 22 A7 8E 00 ED 15 EE 07 99 22 93 |$.."J"........".|
00000DC0: 20 20 20 2A 2A 2A 20 20 50 49 4C 4F 54 20 20 2A | *** PILOT *|
00000DD0: 2A 2A 20 20 20 20 11 48 41 54 20 46 4F 4C 47 45 |** .HAT FOLGE|
00000DE0: 4E 44 45 20 4B 4F 4D 4D 41 4E 44 4F 53 00 00 16 |NDE KOMMANDOS...|
00000DF0: F8 07 99 22 11 20 4C 49 53 54 20 41 41 2D 45 45 |...". LIST AA-EE|
00000E00: 00 0C 16 02 08 99 22 11 20 52 55 4E 00 19 16 0C |......". RUN....|
00000E10: 08 99 22 11 20 53 41 56 45 00 26 16 16 08 99 22 |..". SAVE.&...."|
00000E20: 11 20 4C 4F 41 44 00 32 16 20 08 99 22 11 20 4E |. LOAD.2. ..". N|
00000E30: 45 57 00 40 16 2A 08 99 22 11 20 42 41 53 49 43 |EW.@.*..". BASIC|
00000E40: 00 5E 16 34 08 99 22 11 20 50 4C 49 53 54 20 41 |.^.4..". PLIST A|
00000E50: 41 2D 45 45 20 28 44 52 55 43 4B 45 52 29 00 68 |A-EE (DRUCKER).h|
00000E60: 16 3E 08 8D 33 30 30 30 00 83 16 48 08 99 22 93 |.>..3000...H..".|
00000E70: 11 11 20 20 20 2A 20 56 41 52 49 41 42 4C 45 4E |.. * VARIABLEN|
00000E80: 20 2A 11 00 BC 16 52 08 99 22 50 49 4C 4F 54 20 | *....R.."PILOT |
00000E90: 56 41 52 49 41 42 4C 45 4E 20 42 45 53 54 45 2D |VARIABLEN BESTE-|
00000EA0: 48 45 4E 20 45 4E 54 57 45 44 45 52 20 41 55 53 |HEN ENTWEDER AUS|
00000EB0: 20 27 24 27 20 20 46 55 45 52 22 3B 00 00 17 5C | '$' FUER";...\|
00000EC0: 08 99 22 20 53 54 52 49 4E 47 53 20 4F 44 45 52 |.." STRINGS ODER|
00000ED0: 20 27 23 27 20 46 55 45 52 20 20 4E 55 4D 45 52 | '#' FUER NUMER|
00000EE0: 49 53 43 48 45 20 20 20 20 20 20 56 41 52 49 41 |ISCHE VARIA|
00000EF0: 42 4C 45 4E 20 47 45 46 4F 4C 47 54 20 56 4F 4E |BLEN GEFOLGT VON|
00000F00: 00 28 17 66 08 99 22 45 49 4E 45 4D 20 45 49 4E |.(.f.."EINEM EIN|
00000F10: 5A 45 4C 4E 45 4E 20 20 20 20 20 20 20 42 55 43 |ZELNEN BUC|
00000F20: 48 53 54 41 42 45 4E 2E 00 58 17 70 08 99 22 11 |HSTABEN..X.p..".|
00000F30: 23 4E 20 4F 44 45 52 20 24 53 20 49 53 54 20 52 |#N ODER $S IST R|
00000F40: 49 43 48 54 49 47 11 24 4E 41 4D 45 20 49 53 54 |ICHTIG.$NAME IST|
00000F50: 20 46 41 4C 53 43 48 2E 00 62 17 7A 08 8D 33 30 | FALSCH..b.z..30|
00000F60: 30 30 00 7B 17 84 08 99 22 93 20 20 20 2A 20 53 |00.{....". * S|
00000F70: 54 41 54 45 4D 45 4E 54 53 20 2A 00 C6 17 8E 08 |TATEMENTS *.....|
00000F80: 99 22 11 54 3A 20 41 55 53 47 41 42 45 20 56 4F |.".T: AUSGABE VO|
00000F90: 4E 20 54 45 58 54 20 20 20 20 20 20 4F 44 45 52 |N TEXT ODER|
00000FA0: 20 56 41 52 49 41 42 4C 45 4E 20 20 20 20 20 20 | VARIABLEN |
00000FB0: 20 20 41 55 46 20 44 45 4D 20 42 49 4C 44 53 43 | AUF DEM BILDSC|
00000FC0: 48 49 52 4D 22 3B 00 DF 17 98 08 99 22 31 54 3A |HIRM";......"1T:|
00000FD0: 56 41 4C 23 58 20 2D 3E 27 56 41 4C 32 35 27 00 |VAL#X ->'VAL25'.|
00000FE0: F1 17 A2 08 99 22 11 20 4A 3A 20 55 4E 44 20 55 |.....". J: UND U|
00000FF0: 3A 00 39 18 AC 08 99 22 4A 3A 20 45 4E 54 53 50 |:.9...."J: ENTSP|
00001000: 52 49 43 48 54 20 47 4F 54 4F 20 55 4E 44 55 3A |RICHT GOTO UNDU:|
00001010: 20 47 4F 53 55 42 2E 11 32 20 4A 3A 2A 50 52 49 | GOSUB..2 J:*PRI|
00001020: 4E 54 20 20 20 20 20 53 50 52 49 4E 47 54 20 5A |NT SPRINGT Z|
00001030: 55 4D 20 55 4E 54 45 52 2D 00 6C 18 B6 08 99 22 |UM UNTER-.l...."|
00001040: 20 20 20 50 52 4F 47 41 4D 4D 20 4D 49 54 20 44 | PROGAMM MIT D|
00001050: 45 4D 20 20 20 20 20 20 20 4E 41 4D 45 4E 20 28 |EM NAMEN (|
00001060: 4C 41 42 45 4C 29 20 50 52 49 4E 54 00 AA 18 BB |LABEL) PRINT....|
00001070: 08 99 22 4C 41 42 45 4C 53 20 4E 55 52 20 41 4D |.."LABELS NUR AM|
00001080: 20 41 4E 46 41 4E 47 20 20 44 45 52 20 5A 45 49 | ANFANG DER ZEI|
00001090: 4C 45 20 4F 48 4E 45 20 4E 41 43 48 46 2E 20 53 |LE OHNE NACHF. S|
000010A0: 54 41 54 4D 45 4E 54 53 2E 22 00 C7 18 C0 08 99 |TATMENTS."......|
000010B0: 22 11 20 45 3A 20 45 4E 54 53 50 52 49 43 48 54 |". E: ENTSPRICHT|
000010C0: 20 52 45 54 55 52 4E 00 D1 18 CA 08 8D 33 30 30 | RETURN......300|
000010D0: 30 00 1D 19 D4 08 99 22 93 4D 3A 20 4D 41 54 43 |0......".M: MATC|
000010E0: 48 20 56 45 52 47 4C 45 49 43 48 54 20 4F 42 20 |H VERGLEICHT OB |
000010F0: 20 4D 45 48 52 45 52 45 20 57 4F 45 52 54 45 52 | MEHRERE WOERTER|
00001100: 20 49 4E 20 20 20 20 45 49 4E 45 4D 20 53 54 52 | IN EINEM STR|
00001110: 49 4E 47 20 4F 44 45 52 20 49 4D 22 3B 00 4B 19 |ING ODER IM";.K.|
00001120: DE 08 99 22 20 20 20 49 4E 50 55 54 20 50 55 46 |..." INPUT PUF|
00001130: 46 45 52 20 53 54 45 48 45 4E 31 30 20 4D 3A 4A |FER STEHEN10 M:J|
00001140: 41 2C 4F 4B 2C 4A 2C 4B 4C 41 52 00 93 19 E8 08 |A,OK,J,KLAR.....|
00001150: 99 22 50 52 55 45 46 54 20 4F 42 20 4A 41 2C 4F |."PRUEFT OB JA,O|
00001160: 4B 2C 4A 20 4F 44 45 52 4B 4C 41 52 20 49 4D 20 |K,J ODERKLAR IM |
00001170: 49 4E 50 55 54 20 50 55 46 46 45 52 20 20 53 54 |INPUT PUFFER ST|
00001180: 45 48 45 4E 2E 20 31 30 20 4D 3A 24 4E 20 4A 41 |EHEN. 10 M:$N JA|
00001190: 2C 4F 4B 00 D7 19 F2 08 99 22 44 55 52 43 48 53 |,OK......"DURCHS|
000011A0: 55 43 48 54 20 44 45 4E 20 53 54 52 49 4E 47 2E |UCHT DEN STRING.|
000011B0: 49 53 54 20 44 41 53 20 57 4F 52 54 20 47 45 46 |IST DAS WORT GEF|
000011C0: 55 4E 44 45 4E 20 57 49 52 44 20 44 49 45 20 27 |UNDEN WIRD DIE '|
000011D0: 59 27 20 46 4C 41 47 00 14 1A FC 08 99 22 47 45 |Y' FLAG......"GE|
000011E0: 53 45 54 5A 54 2C 20 41 4E 44 45 52 4E 46 41 4C |SETZT, ANDERNFAL|
000011F0: 4C 53 20 20 27 4E 27 20 20 46 4C 41 47 20 28 53 |LS 'N' FLAG (S|
00001200: 49 45 48 45 20 4D 4F 44 49 2D 46 49 4B 41 54 49 |IEHE MODI-FIKATI|
00001210: 4F 4E 29 2E 00 59 1A 06 09 99 22 11 49 3A 20 49 |ON)..Y....".I: I|
00001220: 46 20 56 45 52 47 4C 45 49 43 48 2C 20 4F 42 20 |F VERGLEICH, OB |
00001230: 20 20 20 20 56 41 52 2E 20 3E 2C 3C 20 4F 44 45 | VAR. >,< ODE|
00001240: 52 20 3D 20 53 49 4E 44 2E 20 5A 42 2E 20 20 20 |R = SIND. ZB. |
00001250: 32 30 20 49 3A 23 4E 3E 39 00 63 1A 10 09 8D 33 |20 I:#N>9.c....3|
00001260: 30 30 30 00 AA 1A 1A 09 99 22 93 43 3A 20 43 4F |000......".C: CO|
00001270: 4D 50 55 54 45 20 52 45 43 48 4E 45 4E 20 49 4E |MPUTE RECHNEN IN|
00001280: 20 20 44 45 4E 20 47 52 55 4E 44 52 45 43 48 45 | DEN GRUNDRECHE|
00001290: 4E 41 52 54 45 4E 20 33 30 20 43 3A 23 4E 3D 23 |NARTEN 30 C:#N=#|
000012A0: 47 2A 31 30 2F 23 54 2B 31 30 00 DB 1A 24 09 99 |G*10/#T+10...$..|
000012B0: 22 41 3A 20 41 43 43 45 50 54 20 45 49 4E 47 2E |"A: ACCEPT EING.|
000012C0: 20 56 4F 4E 20 20 20 20 57 45 52 54 45 4E 2E 20 | VON WERTEN. |
000012D0: 5A 42 2E 20 34 30 20 41 3A 23 4E 00 26 1B 2E 09 |ZB. 40 A:#N.&...|
000012E0: 99 22 34 31 20 41 3A 2E 2E 20 20 45 49 4E 47 41 |."41 A:.. EINGA|
000012F0: 42 45 20 49 4E 20 20 20 20 44 45 4E 20 20 49 4E |BE IN DEN IN|
00001300: 50 55 54 50 55 46 46 45 52 2C 20 44 45 52 20 44 |PUTPUFFER, DER D|
00001310: 55 52 43 48 20 4D 3A 20 47 45 4E 55 54 5A 54 20 |URCH M: GENUTZT |
00001320: 57 49 52 44 22 3B 00 4D 1B 38 09 99 22 20 48 3A |WIRD";.M.8.." H:|
00001330: 20 48 4F 4D 45 20 45 4E 54 53 50 52 2E 20 43 4C | HOME ENTSPR. CL|
00001340: 45 41 52 20 20 20 53 43 52 45 45 4E 2E 00 8E 1B |EAR SCREEN....|
00001350: 42 09 99 22 20 45 3A 20 45 4E 44 20 53 54 4F 50 |B.." E: END STOP|
00001360: 50 54 20 44 41 53 20 50 52 47 20 20 4B 41 4E 4E |PT DAS PRG KANN|
00001370: 20 4E 49 43 48 54 20 4D 4F 44 49 46 49 2D 20 20 | NICHT MODIFI- |
00001380: 20 20 5A 49 45 52 54 20 57 45 52 44 45 4E 00 A9 | ZIERT WERDEN..|
00001390: 1B 4C 09 99 22 20 20 2A 2A 2A 4D 4F 44 49 46 49 |.L.." ***MODIFI|
000013A0: 4B 41 54 49 4F 4E 2A 2A 2A 00 EE 1B 56 09 99 22 |KATION***...V.."|
000013B0: 41 4C 4C 45 20 4B 4F 4D 4D 41 4E 44 4F 53 20 4B |ALLE KOMMANDOS K|
000013C0: 4F 45 4E 4E 45 4E 44 55 52 43 48 27 59 27 4F 44 |OENNENDURCH'Y'OD|
000013D0: 45 52 27 4E 37 20 20 20 20 20 20 20 4D 4F 44 49 |ER'N7 MODI|
000013E0: 46 49 5A 49 45 52 54 20 57 45 52 44 45 4E 00 2D |FIZIERT WERDEN.-|
000013F0: 1C 60 09 99 22 5A 42 2E 20 54 59 3A 4A 41 20 20 |.`.."ZB. TY:JA |
00001400: 44 52 55 43 4B 54 27 4A 41 27 20 4E 55 52 20 57 |DRUCKT'JA' NUR W|
00001410: 45 4E 4E 20 44 49 45 20 59 2D 46 4C 41 47 20 20 |ENN DIE Y-FLAG |
00001420: 20 47 45 53 45 54 5A 54 20 49 53 54 2E 00 37 1C | GESETZT IST..7.|
00001430: 6A 09 8D 33 30 30 30 00 54 1C 74 09 99 22 93 20 |j..3000.T.t..". |
00001440: 20 2A 20 46 45 48 4C 45 52 4D 45 4C 44 55 4E 47 | * FEHLERMELDUNG|
00001450: 45 4E 20 2A 00 71 1C 7E 09 99 22 11 11 31 20 46 |EN *.q.~.."..1 F|
00001460: 41 4C 53 43 48 45 52 20 56 41 52 2E 20 4E 41 4D |ALSCHER VAR. NAM|
00001470: 45 00 8C 1C 88 09 99 22 11 32 20 55 4E 42 45 4B |E......".2 UNBEK|
00001480: 41 4E 4E 54 45 53 20 4C 41 42 45 4C 00 A3 1C 92 |ANNTES LABEL....|
00001490: 09 99 22 11 33 20 53 50 45 49 43 48 45 52 20 56 |..".3 SPEICHER V|
000014A0: 4F 4C 4C 00 BA 1C 9C 09 99 22 11 34 20 53 50 45 |OLL......".4 SPE|
000014B0: 49 43 48 45 52 20 4C 45 45 52 00 D8 1C A6 09 99 |ICHER LEER......|
000014C0: 22 11 35 20 46 41 4C 53 43 48 45 20 46 4F 52 4D |".5 FALSCHE FORM|
000014D0: 41 54 49 45 52 55 4E 47 00 F1 1C B0 09 99 22 11 |ATIERUNG......".|
000014E0: 36 20 54 45 49 4C 55 4E 47 20 44 55 52 43 48 20 |6 TEILUNG DURCH |
000014F0: 30 00 06 1D BA 09 99 22 11 37 20 57 45 52 54 20 |0......".7 WERT |
00001500: 3E 33 32 37 36 37 00 10 1D C4 09 8D 33 30 30 30 |>32767......3000|
00001510: 00 51 1D CE 09 99 22 93 11 20 55 4D 20 45 49 4E |.Q....".. UM EIN|
00001520: 20 50 49 4C 4F 54 20 50 52 47 2E 20 20 20 20 5A | PILOT PRG. Z|
00001530: 55 20 53 54 4F 50 50 45 4E 2C 20 44 49 45 20 40 |U STOPPEN, DIE @|
00001540: 20 54 41 53 54 45 20 20 20 44 52 55 45 43 4B 45 | TASTE DRUECKE|
00001550: 4E 00 95 1D D8 09 99 22 11 56 4F 4E 20 42 41 53 |N......".VON BAS|
00001560: 49 43 20 4F 48 4E 45 20 50 52 47 2E 20 20 20 56 |IC OHNE PRG. V|
00001570: 45 52 4C 55 53 54 20 4D 49 54 20 47 4F 54 4F 34 |ERLUST MIT GOTO4|
00001580: 30 20 5A 55 20 50 49 4C 4F 54 20 20 20 20 5A 55 |0 ZU PILOT ZU|
00001590: 52 55 45 43 4B 00 D5 1D E2 09 99 22 11 56 41 52 |RUECK......".VAR|
000015A0: 49 41 42 4C 45 20 4D 20 49 4E 20 5A 45 49 4C 45 |IABLE M IN ZEILE|
000015B0: 20 31 30 20 53 45 54 5A 54 20 44 49 45 20 4D 41 | 10 SETZT DIE MA|
000015C0: 58 2E 20 5A 45 49 4C 45 4E 5A 41 48 4C 20 20 20 |X. ZEILENZAHL |
000015D0: 46 45 53 54 2E 00 EB 1D B8 0B 99 22 11 20 20 20 |FEST.......". |
000015E0: 3C 3C 20 54 41 53 54 45 20 3E 3E 00 06 1E C2 0B |<< TASTE >>.....|
000015F0: 81 49 B2 31 A4 35 30 30 30 3A A1 41 24 3A 8B 41 |.I.1.5000:.A$:.A|
00001600: 24 B2 22 22 A7 82 00 0C 1E CC 0B 8E 00 00 00 00 |$.""............|
00001610: 41 |A |
.......2000.#....10:. *** PILOT ***.-...
I$."".A....826:.B(0).13...V...I$.I$.G(B(
0)):.3......:M.200:X.0:Y.0:A.0:P.0:Z.0:I
$."":.S%(9),N%(26),S$(26),L$(M),C$(15):F
%.0......".**** PILOT V2.1 ****":.X.826.
831:.Z:.X,Z:.:.X.0.15......C$(X):.:.32,2
07,255,133,0,96.9....LIST,RUN,SAVE,LOAD,
NEW,BASIC,PLIST,T,J,E,U,M,C,A,I,H.H.(.."
.PILOT.".G.2..2:.:.F(I$).32.C(I$).1..50.
..<..H(I$,1)." ".I$.J(I$,2):.60...F.L.E(
I$):.L..0..200.S.P.L.1:H.M:R$."":.X.1.C(
I$):.J(I$,X,1).." "..X:.140...Z.R$.J(I$,
X.1):I$.H(I$,X.1).$.D.L.E(R$):H.L:.X.1.C
(R$):. J(R$,X,1).."-"..:.120.F.N.L.E(H(R
$,X.1)):H.E(J(R$,X.1)).S.X..L.0.L.1.`...
.H.0.H.M......X.0.6:.I$..H(C$(X),C(I$)).
.:."UNBEKANNTES KOMMANDO":.40.C....X.1.4
00,1000,500,600,700,800,390...H..L.M.."Z
EILENNUMMER AUSSERHALB DES BEREICHS":.40
.%.R.X.C(D(L)):X$.J(I$,X):.X$."".L$(L)."
":.50.F....H(X$,1)." ".X$.J(X$,2):.220.
...X.3:.J(X$,2,1)..":".X.4:.J(X$,3,1).."
:".L$(L).X$:.50......Z.7.15:.H(X$,1)..C$
(Z)..:."FALSCHES KOMMANDO":.40.P....J(X$
,2,1)."Y".Z.Z.10......J(X$,2,1)."N".Z.Z.
20.....L$(L).G(Z.6).J(X$,X):.50......1,4
:.410......1,3.7....X.L.H:.L$(X)."".450.
F...X$.":":Z.F(L$(X)):.Z.30.X$.H(L$(X),1
):.440......Z.20.Z.Z.20:X$."N".X$......Z
.10.Z.Z.10:X$."Y".X$.....X$.C$(Z.6).X$.E
....1,X;X$;J(L$(X),2)...B..X$:.X$.."". 1
:.40...L..: 1:.40......1,1,1,R$:."SAVING
"R$.:....**DISC** 600 OPEN1,8,2,R$+",S,W
":PRINT"SAVING "R$.S....X.1.M:.L$(X)."".
530.W....1,X;G(13)G(34)L$(X)G(34)G(13);.
.....X: 1:.40. .X..1,1,0,R$:."LOADING"R$
.X.Y..**DISC** 600 PRINT"LOADING "R$:OPE
N1,8,2,R$+",S,R"...B..1,X:.ST.630...L..1
,L$(X):.ST.0.610...V. 1:.40......10.2. .
.". ZURUECK ZU BASIC...":..^...L.0:.X.1.
25:N%(X).0:S$(X)."":.:P.0:F%.0.}...L.L.1
:.L..M.L$(L)."END".40......X$:.X$."@".40
......L$(L)."".1010.....X.F(L$(L)):.X.40
.1010.Y....X.20.X.X.20:.F%.1.1010......X
.10.X.X.10:.F%.0.1010.7...C$.J(L$(L),2):
.X.1100,1220,1300,1200,1500,1600,1700,18
00,1900.W.B.."FEHLER #"E"IN ZEILE"L:.40.
..L.Z.0:.I(C$,1).";".Z.1:C$.H(C$,C(C$).1
)...Q..X.1.C(C$):X$.J(C$,X,1):.X$."#".11
50...V..X$."$".1160.M.`..X$;:.:.Z.0...W.
J..1010...~..1190:X$.D(N%(Y)):.1120.....
.1190:X$.S$(Y):.1120.<...X.X.1:Y.F(J(C$,
X,1)).64:.Y.1.Y.26.E.1:.1090.B.....U....
P.8.E.3:.1090.G...P.P.1:S%(P).L...D..E(C
$)..0.L.E(C$).1:.1010...N..X.1.M:.C$..L$
(X)..:E.2:.1090...X.L.X:.1010.H....P.0.E
.4:.1090.....L.S%(P):P.P.1:.1010.....X.1
:C$.C$.",":X$.AC$:.H(C$,1)."$"..1590.-..
..Z.X.C(C$):.J(C$,Z,1)..","...H...Z$.J(C
$,X,Z.X):.Y.1.C(X$):.J(X$,Y,C(Z$)).Z$.F%
.1:.1010......:.Z.C(C$).X.Z.1:.1510...".
F%.0:.1010...6.Y.F(J(C$,2)).64:.Y.1.Y.26
.E.1:.1090.M.;.X$.S$(Y):X.4:....@.A.3:Z.
0:X$."":.H(C$,1).."#".J(C$,3,1).."=".E.5
:.1090.;.J.Y.1:X$.J(C$,A,1):A.A.1:.J(C$,
A,1)."-".A.A.1:Y..1.R.T..J(C$,A,1).."#".
Y.Y.E(J(C$,A)):A.A.C(D(Y)).1:.1650...^.X
.F(J(C$,A.1)).64:.X.1.X.26.E.1:.1090...C
..X.18.Y.Y..(1):.1650.I.H.Y.Y.N%(X):A.A.
2.Y.R..X$."=".Z.Y...W..X$."-".Z.Z.Y...|.
.X$."+".Z.Z.Y......X$."*".Z.Z.Y.)....X$.
"/".Y.0.E.6:.1090.;....X$."/".Z.Z.Y.N...
.A..C(C$).1610.}...Y.N%(X1):.X.4.0..J(C$
,X.4)."-".X.4..A.Z..Z.....X.F(J(C$,2)).6
4:.X.1.X.26.E.1:.1090.E....Z.32767.Z..32
767.E.7:.1090.W...N%(X).Z:.1010......C$.
""..2:AC$.I$:.:.1010.....X.F(J(C$,2)).64
:.X.1.X.26.E.1:.1090.B.B..2:Z.E(I$):.:.H
(C$,1)."#".N%(X).Z.\.L..H(C$,1)."$".S$(X
).I$.F.V..1010......H(C$,1).."#".E.5:.10
90.....X.F(J(C$,2)).64:.X.1.X.26.E.1:.10
90.....A.N%(X):X$.J(C$,3,1):.J(C$,4,1)..
"#".X.E(J(C$,4)):.1840...&.X.F(J(C$,5)).
64:.X.1.X.26.E.1:.1090...+.X.N%(X).4.0.F
%.0:.X$."<".A.X.F%.1.I.:..X$.">".A.X.F%.
1.^.D..X$."=".A.X.F%.1.H.N..1010.X.L..".
";:.1010...P..". ERKLAERUNG (J/N) ?...
Z..A$:.A$."".2010......A$.."J"........".
*** PILOT *** .HAT FOLGENDE KOMM
ANDOS......". LIST AA-EE......". RUN....
..". SAVE.&....". LOAD.2. ..". NEW.@.*..
". BASIC.^.4..". PLIST AA-EE (DRUCKER).H
.>..3000...H.."... * VARIABLEN *....R.
."PILOT VARIABLEN BESTE-HEN ENTWEDER AUS
'$' FUER";...\.." STRINGS ODER '#' FUE
R NUMERISCHE VARIABLEN GEFOLGT VON
.(.F.."EINEM EINZELNEN BUCHSTABEN.
.X.P..".#N ODER $S IST RICHTIG.$NAME IST
FALSCH..B.Z..3000.{....". * STATEMENT
S *.F....".T: AUSGABE VON TEXT ODER
VARIABLEN AUF DEM BILDSCHIRM";..
...."1T:VAL#X ->'VAL25'......". J: UND U
:.9...."J: ENTSPRICHT GOTO UNDU: GOSUB..
2 J:*PRINT SPRINGT ZUM UNTER-.L...."
PROGAMM MIT DEM NAMEN (LABEL) P
RINT......"LABELS NUR AM ANFANG DER ZEI
LE OHNE NACHF. STATMENTS.".G....". E: EN
TSPRICHT RETURN.Q.J..3000...T..".M: MATC
H VERGLEICHT OB MEHRERE WOERTER IN E
INEM STRING ODER IM";.K...." INPUT PUF
FER STEHEN10 M:JA,OK,J,KLAR......"PRUEFT
OB JA,OK,J ODERKLAR IM INPUT PUFFER ST
EHEN. 10 M:$N JA,OK.W...."DURCHSUCHT DEN
STRING.IST DAS WORT GEFUNDEN WIRD DIE '
Y' FLAG......"GESETZT, ANDERNFALLS 'N'
FLAG (SIEHE MODI-FIKATION)..Y....".I: I
F VERGLEICH, OB VAR. >,< ODER = SIND
. ZB. 20 I:#N>9.C....3000......".C: CO
MPUTE RECHNEN IN DEN GRUNDRECHENARTEN 3
0 C:#N=#G*10/#T+10...$.."A: ACCEPT EING.
VON WERTEN. ZB. 40 A:#N.&...."41 A:.
. EINGABE IN DEN INPUTPUFFER, DER D
URCH M: GENUTZT WIRD";.M.8.." H: HOME EN
TSPR. CLEAR SCREEN....B.." E: END STOP
PT DAS PRG KANN NICHT MODIFI- ZIERT
WERDEN...L.." ***MODIFIKATION***...V.."
ALLE KOMMANDOS KOENNENDURCH'Y'ODER'N7
MODIFIZIERT WERDEN.-.`.."ZB. TY:JA
DRUCKT'JA' NUR WENN DIE Y-FLAG GESETZT
IST..7.J..3000.T.T..". * FEHLERMELDUNG
EN *.Q.~.."..1 FALSCHER VAR. NAME......"
.2 UNBEKANNTES LABEL......".3 SPEICHER V
OLL......".4 SPEICHER LEER.X....".5 FALS
CHE FORMATIERUNG......".6 TEILUNG DURCH
0......".7 WERT >32767...D..3000.Q.N..".
. UM EIN PILOT PRG. ZU STOPPEN, DIE @
TASTE DRUECKEN...X..".VON BASIC OHNE
PRG. VERLUST MIT GOTO40 ZU PILOT ZU
RUECK.U....".VARIABLE M IN ZEILE 10 SETZ
T DIE MAX. ZEILENZAHL FEST.......".
<< TASTE >>...B..I.1.5000:.A$:.A$.""....
.L......A
> CLICK IMAGE PREVIEW FOR FULL MODAL