00000000: 01 1C 20 1C E9 03 3A 8F 22 14 14 14 14 50 52 4F |.. ...:."....PRO|
00000010: 47 52 41 4D 20 44 45 53 43 52 49 50 54 49 4F 4E |GRAM DESCRIPTION|
00000020: 00 56 1C EA 03 3A 4E 41 4D 45 20 20 20 20 20 20 |.V...:NAME |
00000030: 20 24 B2 22 14 14 14 3A 20 20 20 20 20 46 4C 4F | $."...: FLO|
00000040: 57 43 48 41 52 54 20 31 32 38 20 4C 4F 41 44 20 |WCHART 128 LOAD |
00000050: 53 43 52 45 45 4E 00 82 1C EB 03 3A 57 52 49 54 |SCREEN.....:WRIT|
00000060: 54 45 4E 20 42 59 20 24 B2 22 14 14 14 3A 20 20 |TEN BY $."...: |
00000070: 20 20 20 54 48 4F 4D 41 53 20 4C 45 4E 4E 41 52 | THOMAS LENNAR|
00000080: 54 5A 00 AA 1C ED 03 3A 4D 41 43 48 49 4E 45 20 |TZ.....:MACHINE |
00000090: 20 20 20 24 B2 22 14 14 14 3A 20 20 20 20 20 43 | $."...: C|
000000A0: 31 32 38 20 2F 20 31 35 37 31 00 CB 1C EE 03 3A |128 / 1571.....:|
000000B0: 43 4F 4D 4D 45 4E 54 20 20 20 20 24 B2 22 14 14 |COMMENT $."..|
000000C0: 14 3A 20 20 20 20 20 4E 4F 4E 45 00 1B 1D EF 03 |.: NONE.....|
000000D0: 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A |::::::::::::::::|
000000E0: 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A |::::::::::::::::|
000000F0: 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A |::::::::::::::::|
00000100: 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A |::::::::::::::::|
00000110: 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 00 6B 1D F0 03 |:::::::::::.k...|
00000120: 3A 46 41 54 41 4C 20 4D 49 53 54 41 4B 45 53 20 |:FATAL MISTAKES |
00000130: B2 20 30 30 30 20 20 20 3A 4F 54 48 45 52 20 4D |. 000 :OTHER M|
00000140: 49 53 54 41 4B 45 53 20 B2 20 30 30 30 20 20 3A |ISTAKES . 000 :|
00000150: 41 4C 4C 20 4D 49 53 54 41 4B 45 53 20 B2 20 30 |ALL MISTAKES . 0|
00000160: 30 30 20 20 20 20 20 20 20 3A 3A 00 BB 1D F1 03 |00 ::.....|
00000170: 3A 4C 41 53 54 20 4C 49 4E 45 20 20 20 20 20 20 |:LAST LINE |
00000180: B2 20 30 31 34 30 30 20 3A 46 49 52 53 54 20 55 |. 01400 :FIRST U|
00000190: 4E 45 58 45 43 55 54 41 42 4C 45 20 4C 49 4E 45 |NEXECUTABLE LINE|
000001A0: 20 B2 20 30 30 30 30 30 20 20 20 20 20 20 20 20 | . 00000 |
000001B0: 20 20 20 20 20 20 20 20 20 3A 3A 00 0B 1E F2 03 | ::.....|
000001C0: 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A |::::::::::::::::|
000001D0: 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A |::::::::::::::::|
000001E0: 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A |::::::::::::::::|
000001F0: 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A |::::::::::::::::|
00000200: 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 00 51 1E F3 03 |:::::::::::.Q...|
00000210: 3A 8B 20 46 41 54 41 4C 20 4D 49 53 54 41 4B 45 |:. FATAL MISTAKE|
00000220: 53 20 B1 20 30 20 A7 20 99 20 22 43 41 4E 4E 4F |S . 0 . . "CANNO|
00000230: 54 20 45 58 45 43 55 54 45 20 45 52 52 4F 52 2D |T EXECUTE ERROR-|
00000240: 46 52 45 45 21 22 20 3A 20 80 20 20 20 20 20 3A |FREE!" : . :|
00000250: 3A 00 A1 1E F4 03 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A |:.....::::::::::|
00000260: 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A |::::::::::::::::|
00000270: 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A |::::::::::::::::|
00000280: 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A |::::::::::::::::|
00000290: 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A |::::::::::::::::|
000002A0: 3A 00 F1 1E F5 03 3A 4E 4F 20 B2 20 30 20 3A 59 |:.....:NO . 0 :Y|
000002B0: 45 53 20 B2 20 AB 31 20 3A 54 45 53 54 20 B2 20 |ES . .1 :TEST . |
000002C0: 4E 4F 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |NO |
000002D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000002E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3A | :|
000002F0: 3A 00 38 1F F6 03 3A 8B 20 41 4C 4C 20 4D 49 53 |:.8...:. ALL MIS|
00000300: 54 41 4B 45 53 20 B1 20 30 20 B0 20 54 45 53 54 |TAKES . 0 . TEST|
00000310: 20 B2 20 59 45 53 20 A7 20 99 20 22 54 45 53 54 | . YES . . "TEST|
00000320: 20 4D 4F 44 45 21 22 20 3A 54 45 53 54 20 B2 20 | MODE!" :TEST . |
00000330: 59 45 53 20 20 20 3A 3A 00 88 1F F7 03 3A 3A 3A |YES ::.....:::|
00000340: 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A |::::::::::::::::|
00000350: 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A |::::::::::::::::|
00000360: 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A |::::::::::::::::|
00000370: 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A |::::::::::::::::|
00000380: 3A 3A 3A 3A 3A 3A 3A 3A 00 D0 1F F8 03 3A 99 20 |::::::::.....:. |
00000390: 22 50 52 45 53 53 20 41 4E 59 20 4B 45 59 20 54 |"PRESS ANY KEY T|
000003A0: 4F 20 43 4F 4D 4D 45 4E 43 45 2E 2E 2E 22 20 3A |O COMMENCE..." :|
000003B0: A1 F9 20 41 4E 53 57 45 52 24 20 20 20 20 20 20 |.. ANSWER$ |
000003C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3A 3A | ::|
000003D0: 00 20 20 F9 03 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A |. ..:::::::::::|
000003E0: 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A |::::::::::::::::|
000003F0: 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A |::::::::::::::::|
00000400: 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A |::::::::::::::::|
00000410: 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A |::::::::::::::::|
00000420: 00 3A 20 FA 03 3A 8F 22 14 14 14 14 49 4E 49 54 |.: ..:."....INIT|
00000430: 49 41 4C 49 5A 41 54 49 4F 4E 00 5B 20 FB 03 3A |IALIZATION.[ ..:|
00000440: D7 20 31 30 32 31 3A 22 14 14 14 14 14 14 45 52 |. 1021:"......ER|
00000450: 52 4F 52 20 52 4F 55 54 49 4E 45 00 6B 20 FC 03 |ROR ROUTINE.k ..|
00000460: 3A CB 20 A4 20 41 4E 46 41 4E 47 00 84 20 FD 03 |:. . ANFANG.. ..|
00000470: 3A 8F 22 14 14 14 14 45 52 52 4F 52 20 52 4F 55 |:."....ERROR ROU|
00000480: 54 49 4E 45 00 C4 20 FE 03 3A 20 20 8B 20 45 52 |TINE.. ..: . ER|
00000490: 20 B2 20 31 31 20 A7 20 D6 20 82 20 20 20 20 20 | . 11 . . . |
000004A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000004B0: 3A AC 49 47 4E B0 45 20 53 59 4E 54 41 58 20 45 |:.IGN.E SYNTAX E|
000004C0: 52 52 B0 53 00 DA 20 FF 03 3A 20 20 8B 20 45 52 |RR.S.. ..: . ER|
000004D0: 20 B1 20 AB 31 20 A7 20 FE 18 00 F3 20 00 04 3A | . .1 . .... ..:|
000004E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000004F0: 20 20 99 00 28 21 01 04 3A 20 20 20 20 20 20 20 | ..(!..: |
00000500: 20 20 20 20 20 20 20 20 20 20 20 99 20 D3 28 45 | . .(E|
00000510: 52 29 22 20 45 52 52 4F 52 20 49 4E 20 4C 49 4E |R)" ERROR IN LIN|
00000520: 45 20 22 45 4C 22 2E 22 00 43 21 02 04 3A 20 20 |E "EL".".C!..: |
00000530: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000540: D6 20 82 00 5D 21 03 04 3A 20 20 20 20 20 20 20 |. ..]!..: |
00000550: 20 20 20 20 20 20 20 20 20 20 20 FE 19 00 63 21 | ...c!|
00000560: 04 04 3A 00 B3 21 05 04 3A B2 B2 B2 B2 B2 B2 B2 |..:..!..:.......|
00000570: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00000580: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00000590: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
000005A0: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
000005B0: B2 B2 B2 00 BF 21 06 04 3A 41 4E 46 41 4E 47 00 |.....!..:ANFANG.|
000005C0: C5 21 07 04 3A 00 CE 21 08 04 3A DE 20 35 00 E1 |.!..:..!..:. 5..|
000005D0: 21 09 04 3A 99 C7 28 32 37 29 22 4E 13 13 93 22 |!..:..(27)"N..."|
000005E0: 3B 00 26 22 0A 04 3A 99 22 CE B7 B7 CD 20 CE 20 |;.&"..:.".... . |
000005F0: 20 20 20 CE B7 B7 CD 20 CE 20 20 CD 20 CE B7 B7 | .... . . ...|
00000600: CD 20 CE 20 20 CD 20 CE B7 B7 CD 20 CE B7 B7 CD |. . . .... ....|
00000610: 20 CE D0 CF CD 20 20 20 20 CE B4 20 CE B7 B7 CD | .... .. ....|
00000620: 20 20 CE B7 B7 CD 00 6B 22 0B 04 3A 99 22 CC AF | .....k"..:."..|
00000630: AF 20 20 B4 20 20 20 20 B4 20 20 A7 20 A5 20 20 |. . . . . |
00000640: A7 20 B4 20 20 20 20 CC AF AF BA 20 CC AF AF BA |. . .... ....|
00000650: 20 CC AF AF CE 20 20 A7 A5 20 20 20 20 CE 20 A5 | .... .. . .|
00000660: 20 20 20 20 CE 20 20 CD A4 A4 CE 00 B0 22 0C 04 | . ......"..|
00000670: 3A 99 22 B4 20 20 20 20 B4 20 20 20 20 B4 20 20 |:.". . . |
00000680: A7 20 A5 A7 B4 A7 20 A5 20 20 20 20 A5 20 20 A7 |. .... . . .|
00000690: 20 B4 20 20 A7 20 B4 20 20 CD 20 20 A7 B4 20 20 | . . . . .. |
000006A0: 20 20 20 20 B4 20 20 20 CE 20 20 20 CE 20 20 CD | . . . .|
000006B0: 00 F5 22 0D 04 3A 99 22 CD 20 20 20 20 CD AF AF |.."..:.". ...|
000006C0: AF 20 CD AF AF CE 20 CD CE CD CE 20 CD AF AF CE |. .... .... ....|
000006D0: 20 CD 20 20 CE 20 CD 20 20 CE 20 CD 20 20 CE 20 | . . . . . . |
000006E0: 20 20 CD 20 20 20 20 20 20 CD 20 20 CE AF CE 20 | . . ... |
000006F0: 20 CD AF AF CE 00 FC 22 0E 04 3A 99 00 36 23 0F | ......"..:..6#.|
00000700: 04 3A 99 22 20 42 59 20 54 48 4F 4D 41 53 20 4C |.:." BY THOMAS L|
00000710: 45 4E 4E 41 52 54 5A 2C 20 35 30 30 30 20 4B 4F |ENNARTZ, 5000 KO|
00000720: 45 4C 4E 20 36 30 2C 20 41 55 45 52 53 54 52 41 |ELN 60, AUERSTRA|
00000730: 53 53 45 20 32 31 00 3D 23 10 04 3A 99 00 44 23 |SSE 21.=#..:..D#|
00000740: 11 04 3A 99 00 58 23 12 04 3A 99 22 4C 4F 41 44 |..:..X#..:."LOAD|
00000750: 49 4E 47 2E 2E 2E 22 3B 00 65 23 13 04 3A 8A 22 |ING...";.e#..:."|
00000760: 4D 41 49 4E 22 00 6C 23 14 04 3A 80 00 00 00 |MAIN".l#..:.... |
.. ...:."....PROGRAM DESCRIPTION.V...:NA
ME $."...: FLOWCHART 128 LOAD
SCREEN.....:WRITTEN BY $."...: THOMA
S LENNARTZ.....:MACHINE $."...: C
128 / 1571.K...:COMMENT $."...: N
ONE.....::::::::::::::::::::::::::::::::
::::::::::::::::::::::::::::::::::::::::
:::.K...:FATAL MISTAKES . 000 :OTHER M
ISTAKES . 000 :ALL MISTAKES . 000
::.....:LAST LINE . 01400 :FIRST U
NEXECUTABLE LINE . 00000
::.....::::::::::::::::::::::::::::::::
::::::::::::::::::::::::::::::::::::::::
:::.Q...:. FATAL MISTAKES . 0 . . "CANNO
T EXECUTE ERROR-FREE!" : . ::.....::
::::::::::::::::::::::::::::::::::::::::
:::::::::::::::::::::::::::::::::.....:N
O . 0 :YES . .1 :TEST . NO
::.8...:.
ALL MISTAKES . 0 . TEST . YES . . "TEST
MODE!" :TEST . YES ::.....:::::::::::
::::::::::::::::::::::::::::::::::::::::
::::::::::::::::::::::::.P...:. "PRESS A
NY KEY TO COMMENCE..." :.. ANSWER$
::. ..:::::::::::::::::::
::::::::::::::::::::::::::::::::::::::::
::::::::::::::::.: ..:."....INITIALIZATI
ON.[ ..:W 1021:"......ERROR ROUTINE.K ..
:K . ANFANG.. ..:."....ERROR ROUTINE.D .
.: . ER . 11 . V .
:.IGN.E SYNTAX ERR.S.Z ..: . ER . .1 .
.... ..: ..(!..:
. S(ER)" ERROR IN LINE "EL"."
.C!..: V ..]!..:
...C!..:..!..:...............
........................................
.....................!..:ANFANG.E!..:.N!
..:. 5..!..:.G(27)"N...";.&"..:."N..M N
N..M N M N..M N M N..M N..M NPOM
N. N..M N..M.K"..:."L.. . . . .
. . L... L... L..N .. N . N M
..N.."..:.". . . . .... . . .
. . . M .. . N N M.."..:."
M M... M..N MNMN M..N M N M N M N
M M N.N M..N.."..:..6#..:." BY
THOMAS LENNARTZ, 5000 KOELN 60, AUERSTRA
SSE 21.=#..:..D#..:..X#..:."LOADING...";
.E#..:."MAIN".L#..:....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL