00000000: 2A 2A 2A 2A 2A 2A 2A 00 E1 26 66 12 8F 20 20 20 |*******..&f.. |
00000010: 53 50 52 49 4E 47 20 54 49 4C 20 4B 55 52 53 00 |SPRING TIL KURS.|
00000020: 05 27 70 12 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.'p..***********|
00000030: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000040: 2A 2A 2A 00 1C 27 7A 12 64 31 20 53 50 52 49 4E |***..'z.d1 SPRIN|
00000050: 47 20 54 49 4C 20 4B 55 52 53 00 3B 27 84 12 8B |G TIL KURS.;'...|
00000060: 53 4F B3 B2 34 30 20 20 20 20 20 20 20 20 20 20 |SO..40 |
00000070: A7 4B 4F B2 53 4F AC 53 31 00 63 27 8E 12 8B 53 |.KO.SO.S1.c'...S|
00000080: 4F B1 34 30 AF 53 4F B3 B2 31 32 30 20 A7 4B 4F |O.40.SO..120 .KO|
00000090: B2 28 53 4F AB 4B 31 AD 53 31 29 AC 53 32 AA 4B |.(SO.K1.S1).S2.K|
000000A0: 31 00 96 27 98 12 8B 53 4F B1 31 32 30 AF 53 4F |1..'...SO.120.SO|
000000B0: B3 B2 32 32 30 A7 4B 4F B2 28 53 4F AB 4B 31 AD |..220.KO.(SO.K1.|
000000C0: 53 31 AB 28 4B 32 AB 4B 31 29 AD 53 32 29 AC 53 |S1.(K2.K1).S2).S|
000000D0: 33 AA 4B 32 00 D6 27 A2 12 8B 53 4F B1 32 32 30 |3.K2..'...SO.220|
000000E0: 20 20 20 20 20 20 20 20 20 20 A7 4B 4F B2 28 53 | .KO.(S|
000000F0: 4F AB 4B 31 AD 53 31 AB 28 4B 32 AB 4B 31 29 AD |O.K1.S1.(K2.K1).|
00000100: 53 32 AB 28 4B 33 AB 4B 32 29 AD 53 33 29 AC 53 |S2.(K3.K2).S3).S|
00000110: 34 AA 4B 33 00 DD 27 AC 12 64 34 00 01 28 B6 12 |4.K3..'..d4..(..|
00000120: 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.***************|
00000130: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00000140: 11 28 C0 12 8F 20 20 20 64 72 20 64 7E 4F 52 00 |.(... dr d~OR.|
00000150: 35 28 CA 12 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |5(...***********|
00000160: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000170: 2A 2A 2A 00 43 28 D4 12 64 31 20 64 72 20 64 7E |***.C(..d1 dr d~|
00000180: B0 00 54 28 DE 12 9F 31 35 2C 38 2C 35 2C 22 49 |..T(...15,8,5,"I|
00000190: 30 22 00 69 28 E8 12 84 31 35 2C 45 4E 2C 45 4D |0".i(...15,EN,EM|
000001A0: 24 2C 45 54 2C 45 53 00 77 28 F2 12 8B 45 4E B2 |$,ET,ES.w(...EN.|
000001B0: 30 A7 20 64 34 00 88 28 FC 12 45 B2 31 30 3A 64 |0. d4..(..E.10:d|
000001C0: 33 20 42 45 45 50 00 9C 28 06 13 99 50 24 22 44 |3 BEEP..(...P$"D|
000001D0: 49 53 4B 20 45 52 52 4F 52 22 00 AB 28 10 13 99 |ISK ERROR"..(...|
000001E0: 50 24 22 46 2D 54 41 53 54 00 BD 28 1A 13 99 45 |P$"F-TAST..(...E|
000001F0: 4E 3B 45 4D 24 3B 45 54 3B 45 53 00 D0 28 24 13 |N;EM$;ET;ES..($.|
00000200: 64 20 3A 51 B2 64 56 3A 64 29 51 B3 B1 30 00 D7 |d :Q.dV:d)Q..0..|
00000210: 28 2E 13 64 34 00 FB 28 38 13 8F 2A 2A 2A 2A 2A |(..d4..(8..*****|
00000220: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000230: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 0C 29 42 13 8F 20 |*********..)B.. |
00000240: 20 20 47 45 4D 20 47 52 49 44 00 30 29 4C 13 8F | GEM GRID.0)L..|
00000250: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000260: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 40 |**************.@|
00000270: 29 56 13 64 31 20 47 45 4D 20 47 52 49 44 00 5C |)V.d1 GEM GRID.\|
00000280: 29 60 13 99 4B 24 22 47 52 49 44 20 47 45 4D 4D |)`..K$"GRID GEMM|
00000290: 45 53 20 46 4F 52 20 22 41 24 00 73 29 6A 13 99 |ES FOR "A$.s)j..|
000002A0: 50 24 22 4F 4B 3F 20 20 20 20 20 2D 3E 20 20 46 |P$"OK? -> F|
000002B0: 37 00 8A 29 74 13 99 50 24 22 45 4C 4C 45 52 53 |7..)t..P$"ELLERS|
000002C0: 20 20 2D 3E 20 20 46 31 00 9D 29 7E 13 64 20 3A | -> F1..)~.d :|
000002D0: 51 B2 64 56 3A 64 29 51 B3 B1 30 00 AB 29 88 13 |Q.dV:d)Q..0..)..|
000002E0: 8B 51 B3 B1 37 A7 20 64 34 00 C7 29 92 13 9F 32 |.Q..7. d4..)...2|
000002F0: 2C 38 2C 32 2C 22 40 3A 47 2E 22 AA 41 24 AA 22 |,8,2,"@:G.".A$."|
00000300: 2C 53 2C 57 22 00 D0 29 9C 13 98 32 2C 58 00 D9 |,S,W"..)...2,X..|
00000310: 29 A6 13 98 32 2C 59 00 E3 29 B0 13 98 32 2C 59 |)...2,Y..)...2,Y|
00000320: 4E 00 ED 29 BA 13 98 32 2C 59 58 00 FC 29 C4 13 |N..)...2,YX..)..|
00000330: 99 58 2C 59 2C 59 4E 2C 59 58 00 07 2A CE 13 81 |.X,Y,YN,YX..*...|
00000340: 49 B2 30 A4 58 00 14 2A D8 13 81 4A B2 59 4E A4 |I.0.X..*...J.YN.|
00000350: 59 58 00 23 2A E2 13 98 32 2C 41 25 28 49 2C 4A |YX.#*...2,A%(I,J|
00000360: 29 00 2A 2A EC 13 82 4A 00 31 2A F6 13 82 49 00 |).**...J.1*...I.|
00000370: 38 2A 00 14 A0 32 00 3F 2A 0A 14 64 34 00 63 2A |8*...2.?*..d4.c*|
00000380: 14 14 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |...*************|
00000390: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000003A0: 2A 00 75 2A 1E 14 8F 20 20 20 48 45 4E 54 20 47 |*.u*... HENT G|
000003B0: 52 49 44 00 99 2A 28 14 8F 2A 2A 2A 2A 2A 2A 2A |RID..*(..*******|
000003C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000003D0: 2A 2A 2A 2A 2A 2A 2A 00 AA 2A 32 14 64 31 20 48 |*******..*2.d1 H|
000003E0: 45 4E 54 20 47 52 49 44 00 CC 2A 3C 14 99 4B 24 |ENT GRID..*<..K$|
000003F0: 22 47 52 49 44 20 48 45 4E 54 45 53 20 20 41 4B |"GRID HENTES AK|
00000400: 54 49 45 3A 22 3B 3A 85 41 24 00 E8 2A 46 14 99 |TIE:";:.A$..*F..|
00000410: 4B 24 22 47 52 49 44 20 4C 4F 41 44 45 53 20 46 |K$"GRID LOADES F|
00000420: 4F 52 20 22 41 24 00 FF 2A 50 14 99 50 24 22 4F |OR "A$..*P..P$"O|
00000430: 4B 3F 20 20 20 20 20 2D 3E 20 20 46 37 00 16 2B |K? -> F7..+|
00000440: 5A 14 99 50 24 22 45 4C 4C 45 52 53 20 20 2D 3E |Z..P$"ELLERS ->|
00000450: 20 20 46 31 00 29 2B 64 14 64 20 3A 51 B2 64 56 | F1.)+d.d :Q.dV|
00000460: 3A 64 29 51 B3 B1 30 00 37 2B 6E 14 8B 51 B3 B1 |:d)Q..0.7+n..Q..|
00000470: 37 A7 20 64 34 00 51 2B 78 14 9F 32 2C 38 2C 32 |7. d4.Q+x..2,8,2|
00000480: 2C 22 47 2E 22 AA 41 24 AA 22 2C 53 2C 52 22 00 |,"G.".A$.",S,R".|
00000490: 5A 2B 82 14 84 32 2C 58 00 63 2B 8C 14 84 32 2C |Z+...2,X.c+...2,|
000004A0: 59 00 6D 2B 96 14 84 32 2C 59 4E 00 77 2B A0 14 |Y.m+...2,YN.w+..|
000004B0: 84 32 2C 59 58 00 86 2B AA 14 99 58 2C 59 2C 59 |.2,YX..+...X,Y,Y|
000004C0: 4E 2C 59 58 00 91 2B B4 14 81 49 B2 30 A4 58 00 |N,YX..+...I.0.X.|
000004D0: 9E 2B BE 14 81 4A B2 59 4E A4 59 58 00 AD 2B C8 |.+...J.YN.YX..+.|
000004E0: 14 84 32 2C 41 25 28 49 2C 4A 29 00 B4 2B D2 14 |..2,A%(I,J)..+..|
000004F0: 82 4A 00 BB 2B DC 14 82 49 00 C2 2B E6 14 A0 32 |.J..+...I..+...2|
00000500: 00 C9 2B F0 14 64 34 00 ED 2B 84 17 8F 2A 2A 2A |..+..d4..+...***|
00000510: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000520: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 FE 2B 8E 17 |***********..+..|
00000530: 8F 20 20 20 49 4E 49 54 2D 47 45 4D 00 22 2C 98 |. INIT-GEM.",.|
00000540: 17 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..**************|
00000550: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000560: 00 32 2C A2 17 64 31 20 49 4E 49 54 AB 47 45 4D |.2,..d1 INIT.GEM|
00000570: 00 4E 2C AC 17 9F 32 2C 38 2C 32 2C 22 40 3A 2D |.N,...2,8,2,"@:-|
00000580: 2D 49 4E 49 54 2D 2D 2C 53 2C 57 22 00 61 2C C0 |-INIT--,S,W".a,.|
00000590: 17 99 50 24 4E 4E 22 20 41 4B 54 49 45 52 22 00 |..P$NN" AKTIER".|
000005A0: 6B 2C C5 17 98 32 2C 4E 4E 00 77 2C CA 17 81 51 |k,...2,NN.w,...Q|
000005B0: B2 30 A4 4E 4E 00 84 2C D4 17 98 32 2C 42 24 28 |.0.NN..,...2,B$(|
000005C0: 51 29 00 8B 2C DE 17 82 51 00 97 2C E0 17 81 51 |Q)..,...Q..,...Q|
000005D0: B2 30 A4 4E 4E 00 A3 2C E2 17 98 32 2C 4C 28 51 |.0.NN..,...2,L(Q|
000005E0: 29 00 AA 2C E4 17 82 51 00 B6 2C E8 17 81 51 B2 |)..,...Q..,...Q.|
000005F0: 30 A4 4E 4E 00 C2 2C F2 17 98 32 2C 4B 28 51 29 |0.NN..,...2,K(Q)|
00000600: 00 C9 2C FC 17 82 51 00 DA 2C FE 17 8F 3A 46 4F |..,...Q..,...:FO|
00000610: 52 51 3D 30 54 4F 4E 4E 00 EF 2C 00 18 8F 3A 50 |RQ=0TONN..,...:P|
00000620: 52 49 4E 54 23 32 2C 44 41 24 28 51 29 00 FB 2C |RINT#2,DA$(Q)..,|
00000630: 02 18 8F 3A 4E 45 58 54 51 00 02 2D 06 18 A0 32 |...:NEXTQ..-...2|
00000640: 00 09 2D 10 18 64 34 00 00 00 |..-..d4... |
*******..&F.. SPRING TIL KURS..'P..***
***************************..'Z.D1 SPRIN
G TIL KURS.;'...SO..40 .KO.SO.S
1.C'...SO.40.SO..120 .KO.(SO.K1.S1).S2.K
1..'...SO.120.SO..220.KO.(SO.K1.S1.(K2.K
1).S2).S3.K2.V'...SO.220 .KO.(S
O.K1.S1.(K2.K1).S2.(K3.K2).S3).S4.K3..'.
.D4..(...******************************.
.(... DR D~OR.5(J..*******************
***********.C(T.D1 DR D~..T(...15,8,5,"I
0".I(...15,EN,EM$,ET,ES.W(...EN.0. D4..(
..E.10:D3 BEEP..(...P$"DISK ERROR"..(...
P$"F-TAST..(...EN;EM$;ET;ES.P($.D :Q.DV:
D)Q..0.W(..D4..(8..*********************
*********..)B.. GEM GRID.0)L..********
**********************.@)V.D1 GEM GRID.\
)`..K$"GRID GEMMES FOR "A$.S)J..P$"OK?
-> F7..)T..P$"ELLERS -> F1..)~.D :
Q.DV:D)Q..0..)...Q..7. D4.G)...2,8,2,"@:
G.".A$.",S,W".P)...2,X.Y)...2,Y..)...2,Y
N..)...2,YX..)D..X,Y,YN,YX..*N..I.0.X..*
X..J.YN.YX.#*...2,A%(I,J).**...J.1*...I.
8*.. 2.?*..D4.C*...*********************
*********.U*... HENT GRID..*(..*******
***********************..*2.D1 HENT GRID
.L*<..K$"GRID HENTES AKTIE:";:.A$..*F..
K$"GRID LOADES FOR "A$..*P..P$"OK? -
> F7..+Z..P$"ELLERS -> F1.)+D.D :Q.DV
:D)Q..0.7+N..Q..7. D4.Q+X..2,8,2,"G.".A$
.",S,R".Z+...2,X.C+...2,Y.M+...2,YN.W+ .
.2,YX..+...X,Y,YN,YX..+...I.0.X..+...J.Y
N.YX..+H..2,A%(I,J)..+R..J..+...I.B+.. 2
.I+..D4..+...***************************
***..+... INIT-GEM.",...**************
****************.2,..D1 INIT.GEM.N,...2,
8,2,"@:--INIT--,S,W".A,...P$NN" AKTIER".
K,E..2,NN.W,J..Q.0.NN..,T..2,B$(Q)..,...
Q..,...Q.0.NN..,...2,L(Q)..,...Q..,...Q.
0.NN.B,...2,K(Q).I,...Q.Z,...:FORQ=0TONN
..,...:PRINT#2,DA$(Q)..,...:NEXTQ..-.. 2
..-..D4...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL