Data on tape 1

This page contains a description of the data that managed to recover from a cassette tape that was saved by an Acorn Atom. It contains a mixture of programs and data. Text marked with red indicates that some data was lost and is infered from the context and comparison with other copies of the same program.

The tapes contains versions of different programs, namely:

Programs for counting Hamilton paths.
Program for calculating four rod systems
A dorm administration program, which was used for calculating the cost for the telephone, coffee and such.
A program for simulating Longton's Ant.
A program for simulating Life after Conway.

And some unknown programs:

A program name FKEY.BAS
Soma data stored under the name FKEY
Soma data stored under the name INFO
A program name SKEY.BAS
A program name COMPIL

Program `BEESTJE`

A program for counting Hamilton paths in a square grid. The start of the program is missing.

      A C;LDX D;LDY E
  110 :LL4 DEC I;LDX I;CPX@#FF; BNE LL5;RTS
  120 :LL5 LDY S,X;TAX;LDA@L;STA F,X
  130 :LL6 XA;SEC;SBC R,Y;INY;CPY @4;BNE LL2;BEQ LL4
  150 ];N.;Q=LL3
  190 G.d
  200 bDO;U.?#B001<>255;P.$12"TOTAAL :"T''
  201 dIN."LENGTE "L
  202  IN."HOOGTE "H
  203  IN."BEGIN LENGTH "A
  204  IN."BEGIN HOOGTE "B
  220 F.I=0TOL;F.J=1TOH;F?(I+16*J)=16;N.;N.
  230 F.I=0TO L+1;F?I=V;F?(I+H*16+16)=V;N.
  240 F.I=0TO H+1;F?(I*16)=V;F?(1+L+I*16)=V;N.
  250  ?K=L*H-1;I=#83;?I=0;?C=A+B*16;F?(?C)=V
  255 M=L*H-2;A=A*2+1;B=B*2+1
  256 O=999;N=O
  260 !R=#FFF00110;LINK #3200
  270 aIF?I=#FF G.b
  272 O=O+1+2*L;IFO>256-2*L O=A;N=N+1+2*H;IFN>192-2*H CLEAR4;N=B
  275 PLOT12,O,N
  280 F.J=0TOM;G.(290+J?#3100)
  290 PLOT1,0,2;G.s
  291 PLOT1,2,0;G.s
  292 PLOT1,0,-2;G.s
  293 PLOT1,-2,0;G.s
  295 sN.
  297 T=T+1
  300 LINKQ;G.a

Program `KL BEESTJE`

A program for counting Hamilton paths. The program is loaded into memory starting from hex A400.

   10 C=#80;D=#81;E=#82;I=#83
   20 K=#84;R=#85;V=42;L=32
   30 F=#A000;S=#A100
   40 REMG.d
   50 tDIMLL9;F.J=0TO1;P=#A200
   60 [:LL0 LDA C
   70 :LL1 LDY@0
   80 :LL2 CLC;ADC R,Y;TAX;LDA F,X;CMP@V;BEQ LL6
   90 LDA@V;STA F,X;STX C;LDX I;TYA;STA S,X;INC I;LDA C
  100 LDX I;CPX K;BNE LL1;STA C;STX D;STY E;RTS
  105 :LL3 LDA C;LDX D;LDY E
  110 :LL4 DEC I;LDX I;CPX@#FF; BNE LL5;RTS
  120 :LL5 LDY S,X;TAX;LDA@L;STA F,X
  130 :LL6 TXA;SEC;SBC R,Y;INY;CPY @4;BNE LL2;BEQ LL4
  150 ];N.;Q=LL3
  190 G.d
  200 bDO;U.?#B001<>255;P.$12"TOTAAL :"T''
  201 dIN."LENGTE "L
  202  IN."HOOGTE "H
  203  IN."BEGIN LENGTH "A
  204  IN."BEGIN HOOGTE "B
  220 F.I=0TOL;F.J=1TOH;F?(I+16*J)=16;N.;N.
  230 F.I=0TO L+1;F?I=V;F?(I+H*16+16)=V;N.
  240 F.I=0TO H+1;F?(I*16)=V;F?(1+L+I*16)=V;N.
  250  ?K=L*H-1;I=#83;?I=0;?C=A+B*16;F?(?C)=V
  255 M=L*H-2;A=A*2+1;B=B*2+1
  256 O=999;N=O
  260 !R=#FFF00110;LINK #A200
  270 aIF?I=#FF G.b
  272 O=O+1+2*L;IFO>128-2*L O=A;N=N+1+2*H;IFN>64-2*H CLEAR1;N=B
  275 PLOT12,O,N
  280 F.J=0TOM;G.(290+J?#A100)
  290 PLOT1,0,2;G.s
  291 PLOT1,2,0;G.s
  292 PLOT1,0,-2;G.s
  293 PLOT1,-2,0;G.s
  295 sN.
  297 T=T+1
  300 LINKQ;G.a

Programs `KL BEEST P1` and `KL BEEST P2`

A program for counting Hamilton paths. The program consist of two parts. The first part has the name KL BEEST P1 and is loaded into memory starting from hex A400.

  190 G.d
  200 bLINK#FFE3;P.$12"T"T''
  201 dIN."L"L,H,A,B
  220 F.I=0TOL;F.J=1TOH;F?(I+16*J)=32;N.;N.
  230 F.I=0TO L+1;F?I=V;F?(I+H*16+16)=V;N.
  240 F.I=0TO H+1;F?(I*16)=V;F?(1+L+I*16)=V;N.
  250  ?K=L*H-1;I=#83;?I=0;?C=A+B*16;F?(?C)=V
  255 M=L*H-2;A=A*2+1;B=B*2+1
  256 O=999;N=O
  260 !R=#FFF00110;LINK #A700
  270 aIF?I=#FF G.b
  272 O=O+1+2*L;IFO>64-2*L O=A;N=N+1+2*H;IFN>48-2*H CLEAR0;N=B
  275 PLOT12,O,N
  280 F.J=0TOM;G.(290+J?#A600)
  290 PLOT1,0,2;G.s
  291 PLOT1,2,0;G.s
  292 PLOT1,0,-2;G.s
  293 PLOT1,-2,0;G.s
  295 sN.
  297 T=T+1
  300 LINKQ;G.a

The second part has the name KL BEEST P2 and is loaded into memory starting from hex A000.

   10 C=#80;D=#81;E=#82;I=#83
   20 K=#84;R=#85;V=42;L=32
   30 F=#A500;S=#A600
   40 REMG.d
   50 tDIMLL9;F.J=0TO1;P=#A700
   60 [:LL0 LDA C
   70 :LL1 
   73  TAX;LDA F+1,X;CMP F-1,X;BNE LL7
   74  LDA F+16,X;CMP F-16,X;BNE LL7
   75  TXA;JMP LL4
   79 :LL7 TXA;LDY@0
   80 :LL2 CLC;ADC R,Y;TAX;LDA F,X;CMP@V;BEQ LL6
   90 LDA@V;STA F,X;STX C;LDX I;TYA;STA S,X;INC I;LDA C
  100 LDX I;CPX K;BNE LL1;STA C;STX D;STY E;RTS
  105 :LL3 LDA C;LDX D;LDY E
  110 :LL4 DEC I;LDX I;CPX@#FF; BNE LL5;RTS
  120 :LL5 LDY S,X;TAX;LDA@L;STA F,X
  130 :LL6 TXA;SEC;SBC R,Y;INY;CPY @4;BNE LL2;BEQ LL4
  150 ];N.;Q=LL3
  200  ?18=#82;G.d

Program `BEEST P1`

A program for counting Hamilton paths. The program is loaded into memory starting from hex A400.

   10 C=#80;D=#81;E=#82;I=#83
   20 K=#84;R=#85;V=42;L=32
   30 F=#A500;S=#A600
   31 REMZ=16;!R=#FFF00110
   32    Z=32;!R=#FFE00120
   50 tDIMLL9;F.J=0TO1;P=#A700
   60 [LDX@0;LDA@L
   65 :LL0 STA#8000,X;STA#8100,X;INX;BNE LL0;LDA C
   70 :LL1 
   73  TAX;LDA F+1,X;CMP F-1,X;BNE LL7
   74  LDA F+Z,X;CMP F-Z,X;BNE LL7
   75  TXA;JMP LL4
   79 :LL7 TXA;LDY@0
   80 :LL2 CLC;ADC R,Y;TAX;LDA F,X;CMP@V;BEQ LL6
   90 LDA@V;STA F,X;STX C;LDX I;TYA;STA S,X;INC I;LDA C
  100 LDX I;CPX K;BNE LL1
  105  TAX;INC#8000,X;BNE LL4;INC#8100,X
  110 :LL4 DEC I;LDX I;CPX@#FF; BNE LL5;RTS
  120 :LL5 LDY S,X;TAX;LDA@L;STA F,X
  130 :LL6 TXA;SEC;SBC R,Y;INY;CPY @4;BNE LL2;BEQ LL4
  150 ];N.;Q=LL3
  200  ?18=#82;G.d
  210 dIN.'L,H,A,B
  220 F.I=0TOL;F.J=1TOH;F?(I+Z*J)=32;N.;N.
  230 F.I=0TO L+1;F?I=V;F?(I+H*Z+Z)=V;N.
  240 F.I=0TO H+1;F?(I*Z)=V;F?(1+L+I*Z)=V;N.
  250  ?K=L*H-1;I=#83;?I=0;?C=A+B*Z;F?(?C)=V
  254 P.$12
  255 F.I=0TO255;I?#8000=I?#A500;N.;LINK#FFE3
  260 LINK #A700
  270 A=9472;F.I=#8000TO#81FF;I?A=?I;N.
  271 P.$12;@=7;T=0
  280 F.I=1TOL;F.J=1TOH
  290 B=#A500+I+Z*J;B=?B+(B?#100)*256-8224;P.B;T=T+B;N.;P.';N.
  295 P.''"TOTAAL :"T
  300 LINK#FFE3;G.d

Program `beest`

A program for counting Hamilton paths. The program is loaded into memory starting from hex 2900.

    5 REM #A2 #CA#BD#00#80)?#09#80#9D#00#80#E0#00#D0#F1`
   10 P.$12;?#E1=0;P."info"';LINK((?18)*256+7)
   11 P.''"DIT PROGRAMMA BEREKENT HET"
   12 P.'"AANTAL SLANGEN IN EEN RECHTHOEK"
   13 P.''"(RET)";LINK#FFE3
   15 A=0;DIMA25;$A="P.$7$11;G.(#FFFF&!1)";GOS.a
   30 P.$12"INVOER"'';LINKL#E6L0;?#E1=#80
  100 IN."HOOGTE [1,14]  "L;IFL>14OR 0>L P.$13$11;G.10
  101 IN."LENGTE [1,6]   "H;IFH>6OR 0>H P.$13$11;G.101
  102 IF H=1 OR L=1 P. '"triviaal"''"(RET)";LINK#FFE3;G.30
  104 P.$12
  105 GOS.s;?#E1=0
  110 O=(L+1)/2;Q=(H+1)/2;G=0
  120 F.A=1 TO O;F.B=1 TO Q
  125 IF H%2=1ANDL%2=1AND(A+B)%2=1 G.140
  130 GOS.d;G=G+T*(2-(A*2=L+1))*(2-(B*2=H+1))
  140 N.;N.
  150 @=1;P.$30"geval  "L","H"   totaal "G/2"          ";LINKLL0
  155 LINK#FFE3;G.30
  160 eP.A,B,(2-(A*2=L+1))*(2-(B*2=H+1))';R.
  201 s
  220 F.I=0TOL;F.J=1TOH;F?(I+Z*J)=32;N.;N.
  230 F.I=0TO L+1;F?I=V;F?(I+H*Z+Z)=V;N.
  240 F.I=0TO H+1;F?(I*Z)=V;F?(1+L+I*Z)=V;N.
  250  ?K=L*H-1;R.
  251 dI=#83;?I=0;?C=A+B*Z;F?(?C)=V
  254 @=1;P.$30"geval "L","H"   computing "A","B"      ";LINKLL0
  260 IFA=1OR1=B THEN ?#85=#FF;LINK#A600;G.268
  265 LINK#A671
  268 F?(A+B*Z)=32
  270 P.$8$8$7$8$8$8"ready";LINKLL0;LINK#FFE3
  271 P.''L","H","A","B'';@=5;T=0
  280 F.I=1TOL;F.J=1TOH
  290 W=#A000+I+Z*J;W=?W+(W?#100)*256;P.W;T=T+W;N.;P.';N.
  295 P.'"TOTAAL :"T
  300 R.
 1010 aC=#80;D=#81;E=#82;I=#83
 1020 P.$12"assembler"';LINK(256*?18+7);P.'''"([ADDRES,ADDRES"
 1021 P."+580]  USED"'",ADDRESS = 0 : NO ASSEMBLING)"''
 1022 IN."ADDRES "N
 1025 IFN=0 DIMLL0;G.2999
 1029 P.''"     wait"$21
 1030 B=N+#100;S=B+#100;F=S+#100
 1032    Z=32;!R=#FFE00120
 1050 tDIMLL9;LL4=F;F.J=0TO1;P=F+#100
 1060 [LDX@0;LDA@0
 1065 :LL0 STA N,X;STA B,X;INX;BNE LL0;LDA C
 1070 :LL1TAX;LDA F+1,X;CMP F-1,X;BNE LL7
 1071  LDA F+Z,X;CMP F-Z,X;BNE LL7
 1074  TXA;JMP LL4
 1079 :LL7 TXA;LDY@0
 1080 :LL2 CLC;ADC R,Y;TAX;LDA F,X;CMP@V;BEQ LL6
 1090 LDA@V;STA F,X;STX C;LDX I;TYA;STA S,X;INC I;LDA C
 1100 LDX I;CPX K;BNE LL1
 1105  TAX;INC N,X;BNE LL4;INC B,X
 1110 :LL4 DEC I;LDX I;CPX Y; BNE LL5;RTS
 1120 :LL5 LDY S,X;TAX;LDA@L;STA F,X
 1130 :LL6 TXA;SEC;SBC R,Y;INY;CPY @4;BNE LL2;BEQ LL4
 1150 ];N.;W=LL7
 2050 Q=P;F.J=0TO1;P=Q
 2060 [LDX@0;LDA@0
 2065 :LL0 STA N,X;STA B,X;INX;BNE LL0;LDX C;JMPLL7
 2070 :LL1 TAX;LDA F+1,X;CMPF-1,X;BNE LL7
 2071  LDA F+Z,X;CMP F-Z,X;BNELL7
 2072 DEC I;LDA I;STA Y;INC I;JSR W ;JMPLL5
 2079 :LL7 TXA;LDY@0
 2080 :LL2 CLC;ADC R,Y;TAX;LDA F,X;CMP@V;BEQ LL6
 2090 LDA@V;STA F,X;STX C;LDX I;TYA;STA S,X;INC I;LDA C
 2100 LDX I;CPX K;BNE LL1
 2105  TAX;INC N,X;BNE LL4;INC B,X
 2110 :LL4 DEC I;LDX I;CPX@#FF; BNE LL5;RTS
 2120 :LL5 LDY S,X;TAX;LDA@L;STA F,X
 2130 :LL6 TXA;SEC;SBC R,Y;INY;CPY @4;BNE LL2;BEQ LL4
 2140 ];N.
 2999 P.$6;LL0=256*?18+7;R.

A fragment of BEEST!

 2110 :LL4 DEC I;LDX I;CPX@#FF; BNE LL5;RTS
 2120 :LL5 LDY S,X;TAX;LDA@L;STA F,X
 2130 :LL6 TXA;SEC;SBC R,Y;INY;CPY @4;BNE LL2;BEQ LL4
 2150 ];N.;R.

Program `GETRIEBE 2`

  310 ???;%T=%C;R.
  320 %R=%B-1;???%R=%B;%T=%C;R.
  350 %S=%B;%T=%C;R.
  360 %S=%B;%T=%C;R.
  370 %R=%C;%S=%B+1;R.
  380 %R=%C;%S=%B-1;R.
  390 R.
  500 %R=%B+1;%S=%X;%T=%C;GOS.a;%Y=.5-%Y;GOS.p;%U=%Y
  510 %R=%B-1;GOS.a;%Y=.5-%Y;GOS.p;%Y=1-%U+%Y;GOS.p
  520 %R=%B;%S=%X-1;GOS.a;%Y=.5-%Y;GOS.p
  530 %S=%X+1;GOS.a;%Y=.5-%Y;GOS.p
  540 %S=%X+1;GOS.a;%Y=.5-%Y;GOS.p
  550 %R=%X-1;%S=%B;GOS.a;%Y=%Y+.5;GOS.p
  560 %R=%X+1;GOS.a;%Y=%Y+.5;GOS.p
  570 %R=%C;%S=%B+1;%T=%X;GOS.a;%Y=%Y+.5;GOS.p;%H=%Y
  580 %S=%B-1;GOS.a;GOS.p;%Y=1-%H+%Y;G.p
 1000 cS=128;DOL=S/2;DOGOS.x;L=L+S;U.L>128
 1010 S=S/2;U.S=1OR?B<>C;R.
 1100 pPLOT15,%(%Y*%I-%J),(L+64);R.
 1200 a%Y=ACS((%R*%R-%S*%S-%T*%T)/2/%S/%T)/PI/2;R.
 2000 kO=0;P=127;Q=64;R=191
 2010 PLOT12,O,Q;PLOT6,O,R;PLOT6,P,R;PLOT6,P,Q;PLOT6,O,Q
 2012 LINK#A000;A=?#A020
 2015 PLOT12,O,Q;PLOT6,O,R;PLOT6,P,R;PLOT6,P,Q;PLOT6,O,Q
 2020 IFA=83 O=O+1
 2021 IFA=69 R=R-1
 2022 IFA=68 P=P-1
 2023 IFA=88 Q=Q+1
 2025 IFA=127G.k
 2026 IFA<>93 G.2010
 2027 %H=%P-%O
 2028 %O=%O+%H*O/127
 2029 %P=%P-%H*(127-P)/127
 2030 %I=128/(%P-%O);%J=128*%O/(%P-%O)
 2040 %F=%F*128/127
 2045 CLEAR3;LINK#A052
 2050 %E=%E+(Q-64)*%F;%D=%D-(191-R)*%F;%F=(%D-%E)/128;R.
 3000 hLINK#A030;?#B000=32
 3001  FP."BEREIK D["%E","%D"]"'
 3002 @=3
 3010 FP."HOEK    ["%O*360","%P*360"]"'
 3019 LINK#FFE3
 3020 ?#B000=176;LINK#A030;R.
 4000 dX=64;Y=128
 4010 PLOT14,X,Y;LINK#A000;A=?#A020;PLOT14,X,Y
 4020 IFA=83 X=X-1
 4021 IFA=69 Y=Y+1
 4022 IFA=68 X=X+1
 4023 IFA=88 Y=Y-1
 4030 IFA=72 G.4050
 4040 IFA<>13 G.4010
 4045 R.
 4050 LINK#A030;?#B000=32
 4060  FP."D="%E+%F*(Y-64)'
 4070  FP."HOEK="(%O+(%P-%O)*X/128)*360';P.$11$11
 4080 LINK#FFE3;?#B000=176;LINK#A030;G.4010

Program `BETRIEBE 3`

    1    P.$12;LINK#A030
    5 @=3;B=#B001;C=255
    6 G.100
    9 P=#A000;[JSR#FFE3;STA#A020;RTS]
   10 ]G.100
   39 ]
   40 DIMLL1;P=#A030
   41 [LDX@0
   42 :LL0
   44 LDA#8000,X;TAY;LDA#A100,X;STA#8000,X;TYA;STA#A100,X
   45 LDA#8100,X;TAY;LDA#A200,X;STA#8100,X;TYA;STA#A200,X
   51 INX;BNELL0;RTS
   55 :LL1;LDX@0;LDA@#FF;:LL0;STA#8000,X;STA#8100,X;STA#8200,X
   56 STA#8300,X;STA#8400,X;STA#8500,X;STA#8600,X;STA#8700,X
   57  INX;BNELL0;RTS
   60 ]
   90 END
  100 P.$12;FIN."B="%B
  101 FIN."C="%C
  110 %D=%C+%B-1
  111 %E=ABS(%C-%B)+1
  120 FP."D MAX ="%D'"D MIN ="%E';LINK#FFE3;LINK#A030
  121 DIMSS6
  124 CLEAR3;LINK#A052
  125 %I=128;%J=0;%O=0;%P=1
  126 %F=(%D-%E)/128
  130 CLEAR3;LINK#A052;F.I=1TO6;SSI=64;N.
  131 P.$7;LINK#A000;A=?#A020
  135 IFA=91GOS.k;LINK#A000;A=?#A020
  136 IFA=72;GOS.h;G.131
  137 IFA=67;GOS.d;G.131
  140 IFA>48A.A<55GOS.j;LINK#A000;A=?#A020;G.140
  145 IFA=48F.A=49TO54;GOS.j;N.;G.131
  150 G.131
  250 jI=A-48;S=SSI
  260 IFS=1R.
  265 L=S/2;SSI=L;IFS=64S=L
  270 B=15
  300 iG.(300+(A-48)*10)
  310 %U=(%B*%B/%C-%C)/2;%V=1/2/%C
  311 %E=%E-1;%L=-%I/2/PI;%M=%J-%I*.5;DO
  313 %X=%E+L*%F;PLOTB,%(ACS(%U/%U-%V*%X)*%L-%M),(L+64)
  315 L=L+S;U.L>127;%E=%E+1;R.
  320 %U=(%B*%B/%C-%C)/2;%V=1/2/%C
  321 %E=%E+1;%L=-%I/2/PI;%M=%J-%I*.5;DO
  323 %X=%E+L*%F;PLOTB,%(ACS(%U/%X-%V*%X)*%L-%M),(L+64)
  325 L=L+S;U.L>127;%E=%E-1;R.
  330 %U=((%B-1)*(%B-1)/%C-%C)/2;%V=((%B+1)*(%B+1)/%C-%C)/2
  331 %W=1/%C/2;%L=-%I/2/PI;%M=%J-%I*.5;DO
  333 %X=%E+L*%F;%H=ACS(%U/%X-%W*%X)*%L-%M;PLOTB,%H,(L+64)
  334 %Y=ACS(%V/%X-%W*%X)*%L-%M;PLOTB,%Y,(L+64)
  335 PLOTB,%(%I-%J-%Y+%H),(L+64)
  336 L=L+S;U.L>127;R.
  340 %U=(%C*%C/(%B+1)-(%B+1))/2;%V=(%C*%C/(%B-1)-(%B-1))/2
  341 %W=1/(%B+1)/2;%A=1/(%B-1)/2
  342 %L=%I/2/PI;%M=%J-%I*.5;DO
  343 %X=%E+L*%F;%H=ACS(%U/%X-%W*%X)*%L-%M;PLOTB,%H,(L+64)
  344 %Y=ACS(%V/%X-%A*%X)*%L-%J;PLOT15,%Y,(L+64)
  345 PLOTB,%(%I-%J+%Y-%H),(L+64)
  346 L=L+S;U.L>127;R.
  350 %V=1/2/%C/%B;%U=(%C*%C+%B*%B)*%V;%M=%J-%I/2
  351 %E=%E+1;%L=%I/2/PI;DO
  353 %X=%E+L*%F;PLOTB,%(ACS(%X*%X*%V-%U)*%L-%M),(L+64)
  355 L=L+S;U.L>127;%E=%E-1;R.
  360 %V=1/2/%C/%B;%U=(%C*%C+%B*%B)*%V;%M=%J-%I/2
  361 %E=%E-1;%L=%I/2/PI;DO
  363 %X=%E+L*%F;PLOTB,%(ACS(%X*%X*%V-%U)*%L-%M),(L+64)
  365 L=L+S;U.L>127;%E=%E+1;R.
 2000 kO=0;P=127;Q=64;R=191
 2010 PLOT12,O,Q;PLOT6,O,R;PLOT6,P,R;PLOT6,P,Q;PLOT6,O,Q
 2012 LINK#A000;A=?#A020;A=A%256
 2015 PLOT12,O,Q;PLOT6,O,R;PLOT6,P,R;PLOT6,P,Q;PLOT6,O,Q
 2016 J=1;IF?#B001=127J=5;A=A-32
 2020 IFA=83 O=O+J
 2021 IFA=69 R=R-J
 2022 IFA=68 P=P-J
 2023 IFA=88 Q=Q+J
 2025 IFA=127G.k
 2026 IFA<>93 G.2010
 2027 %H=%P-%O
 2028 %O=%O+%H*O/127
 2029 %P=%P-%H*(127-P)/127
 2030 %I=128/(%P-%O);%J=128*%O/(%P-%O)
 2040 %F=%F*128/127
 2045 LINK#A052;F.I=0TO6;SSI=64;N.
 2050 %E=%E+(Q-64)*%F;%D=%D-(191-R)*%F;%F=(%D-%E)/128;R.
 3000 hLINK#A030;?#B000=32
 3001  FP."BEREIK D["%E","%D"]"'
 3002 @=3
 3010 FP."HOEK    ["360-%P*360","360-%O*360"]"'
 3019 LINK#FFE3
 3020 ?#B000=176;LINK#A030;R.
 4000 dX=64;Y=128
 4010 PLOT14,X,Y;LINK#A000;A=?#A020;PLOT14,X,Y
 4016 J=1;IF?#B001=127J=5;A=A-32
 4020 IFA=83 X=X-J
 4021 IFA=69 Y=Y+J
 4022 IFA=68 X=X+J
 4023 IFA=88 Y=Y-J
 4030 IFA=72 G.4050
 4040 IFA<>13 G.4010
 4045 R.
 4050 LINK#A030;?#B000=32
 4060  FP."d="%E+%F*(Y-64)'
 4070  FP."HOEK="360-(%O+(%P-%O)*X/128)*360';P.$11$11
 4080 LINK#FFE3;?#B000=176;LINK#A030;G.4010

Program `KAS`

   10 GOS.i;P.$12"FLAT,KOFFIE,TELEFOON"
   40 P.'"(F,K,T,O,S)?";GOS.l
   50 IFR=84GOS.s;G.40
   51 IFR=70GOS.f;G.40
   52 IFR=75GOS.u;G.40
   53 IFR=79GOS.o;G.40
   54 IFR=83END
   55 P.$7;GOS.l;G.50
  100 iDIMBB14;F.I=0TO14;DIMK6;BBI=K;N.
  110 $BB0="TEUN  ";$BB1="OTTO  ";$BB2="ELISE ";$BB3="CEES  "
  120 $BB4="GERARD";$BB5="MIENT ";$BB6="HANS  ";$BB7="JOS   "
  130 $BB8="FRANS ";$BB9="DEXT  ";$BB10="KLAAS ";$BB11="RALPH "
  140 $BB12="D.P.O ";$BB13="ANITA ";$BB14="ONB.  "
  150 FDIM%KK14,%LL14,%FF14;DIMHH14
  160 DIMN15;$N="TOECGMHJFDKRPAX"
  170 P=#A000;Q=P;P.$21;[JSR#FFE3;STA#80;RTS
  180 ];P.$6
  190 F.I=0TO14;HHI=0;%FFI=0;%KKI=0;%TTI=0;N.;R.
  200 hK=-1;F.I=0TO14;IFN?I=R K=I;I=14
  220 N.;R.
  230 lLINKQ;R=?#80;R.
  300 t@=7;?#E1=0;P.$11
  305 T=0;P.'"?"$8
  310 DOGOS.l;GOS.h;U.K>-1
  320 P.$BBK" "O,O+T,T'$11
  330 GOS.l;IFR>47 IFR<58THENT=T*10+R-48;G.320
  340 IFR=32HHK=HHK+T;O=O+T;G.305
  345 IFR=13HHK=HHK+T;O=O+T;P.';?#E1=#80;R.
  347 IFR=127THENT=T/10;G.320
  350 L=K;GOS.h;IFK>-1;T=0;G.320
  360 K=L;P.$7;G.320
  400 sP.$12'"OUDE STAND";IN.O
  410 GOS.t;P."  "'"NIEUWE STAND"O'
  420 P."(O,C,U)?";GOS.l
  430 IFR=67;P.';G.410
  440 IFR=79;P.$12;F.I=0TO14;P.$BBI"  "HHI';N.;G.420
  450 IFR<>85P.$7;GOS.l;G.430
  455 T=0;F.I=0TO13;%FFI=%FFI+0.15*HHI;T=T+HHI;N.
  460 P.$12"GEEF TOTALE VASTE KOSTEN"';IN.V
  470 P.'"GETELDE TIKKEN "T
  480 P.'"GEMISTE TIKKEN "HH14
  485 P.'"TOTAAL  TIKKEN "T+HH14
  490 F.I=0TO13;%FFI=%FFI+%C;HHI=0;N.;HH14=0;R.
  500 oP.$12;F.I=0TO13;P.$BBI;%A=%FFI;GOS.a;N.;R.
  550 aL=%(%A*20+0.5)*5;@=5;P.L/100"."
  560 L=L%100;IFL>9@=2;P.L';R.
  570 @=1;P."0"L';R.
  600 fF.I=0TO11;%LLI=0;N.
  610 P.$12"INVOER FLATKAS"
  615 P.'"?"$8
  620 GOS.l;GOS.h
  630 IFK>-1A.K<12P.$BBK" ";FIN.%H;%LLK=%LLK+%H;G.615
  640 IFR<>13P.$7;G.620
  650 P.'"(O,C,U)?";GOS.l
  660 IFR=67;G.615
  670 IFR=67F.I=0TO11;P.$BBI;%H=%LLI;GOS.a;N.;G.650
?????
  750 F.I=0TO11;%FFI=%FFI+%LLI;N.
?????  
  990 IN.L;DOP.&?L"->"$L';L=L+1;LINK#FFE3;U.0

Program `FLAT`

   10 P.$12"FLAT,KOFFIE,TELEFOON";GOS.i
   40 P.'"(F,K,T,O,S)?";GOS.l
   50 IFR=84GOS.s;G.40
   51 IFR=70GOS.f;G.40
   52 IFR=75GOS.k;G.40
   53 IFR=79GOS.o;G.40
   54 IFR=83END
   55 P.$7;GOS.l;G.50
  100 iDIMBB14;F.I=0TO14;DIMK6;BBI=K;N.
  110 $BB0="TEUN  ";$BB1="OTTO  ";$BB2="ELISE ";$BB3="CEES  "
  120 $BB4="GERARD";$BB5="MIENT ";$BB6="HANS  ";$BB7="JOS   "
  130 $BB8="FRANS ";$BB9="DEXT  ";$BB10="KLAAS ";$BB11="RALPH "
  140 $BB12="D.P.O ";$BB13="ANITA ";$BB14="ONB.  "
  150 FDIM%TT14,%LL14,%FF14;DIMHH14
  160 DIMN15;$N="TOECGMHJFDKRPAX"
  165 DIMV3;$V="- +";V=V+1
  170 P=#A000;Q=P;P.$21;[JSR#FFE3;STA#80;RTS
  180 ];P.$6
  190 F.I=0TO14;HHI=0;%FFI=0;%LLI=0;%TTI=0;N.;R.
  200 hK=-1;F.I=0TO14;IFN?I=R K=I;I=14
  220 N.;R.
  230 lLINKQ;R=?#80;R.
  300 t@=7;?#E1=0;P.$11
  305 T=0;P.'"?"$8
  310 DOGOS.l;GOS.h;U.K>-1
  320 P.$BBK" "O,O+T,T'$11
  330 GOS.l;IFR>47 IFR<58THENT=T*10+R-48;G.320
  340 IFR=32HHK=HHK+T;O=O+T;G.305
  345 IFR=13HHK=HHK+T;O=O+T;P.';?#E1=#80;R.
  347 IFR=127THENT=T/10;G.320
  350 L=K;GOS.h;IFK>-1;T=0;G.320
  360 K=L;P.$7;G.320
  400 sP.$12'"OUDE STAND";IN.O
  410 GOS.t;P."  "'"NIEUWE STAND"O'
  420 P."(O,C,U)?";GOS.l
  430 IFR=67;P.';G.410
  440 IFR=79;P.$12;F.I=0TO14;P.$BBI"  "HHI';N.;G.420
  450 IFR<>85P.$7;GOS.l;G.430
  455 T=0;F.I=0TO13;%FFI=%FFI+0.15*HHI;T=T+HHI;N.
  460 P.$12"GEEF TOTALE VASTE KOSTEN"';IN.V
  470 P.'"GETELDE TIKKEN "T
  480 P.'"GEMISTE TIKKEN "HH14
  485 P.'"TOTAAL  TIKKEN "T+HH14
  490 F.I=0TO13;%FFI=%FFI+%C;HHI=0;N.;HH14=0;R.
  500 oP.$12;F.I=0TO13;P.$BBI;%A=%FFI;GOS.a;N.;R.
  550 aP."  "$(V?SGN%A);%B=%A*SGN%A
  555  L=%(%B*20+0.5)*5;@=3;P.L/100"."
  557 W=W+L*SGN%A
  560 L=L%100;IFL>9@=2;P.L';R.
  570 @=1;P."0"L';R.
  615 bP."?"$8
  620 GOS.l;GOS.h
  630 IFK>-1A.K<12P.$BBK" ";FIN.%H;%LLK=%LLK+%H;G.b
  640 IFR<>13P.$7;G.620
  650 P." "'"(O,C,U)?";GOS.l
  660 IFR=67;P.';G.615
  670 IFR=79P.$12;F.I=0TO11;P.$BBI;%A=%LLI;GOS.a;N.;G.650
  672 R.
  675 fF.I=0TO11;%LLI=0;N.
  677 P.$12"INVOER FLATKAS"';GOS.b
  680 P.$12;%H=0;F.I=0TO11;%H=%H+%LLI;N.
  690 P."TOTAAL INGEKOCHT";%A=%H;GOS.a
  700 %H=%H/12;FP."PER PERSOON   "%H
  705 P.''"(RET)";LINK#FFE3
  706 P.$12;W=0;F.I=0TO11;P.$BBI;%A=-%LLI+%H;GOS.a;N.
  707 P."TOTAAL";%A=W/100;GOS.a
  750 F.I=0TO11;%FFI=%FFI-%LLI+%H;N.;R.
  800 kF.I=0TO11;%LLI=0;N.
  810 P.$12"INVOER KOFFIEKAS"';GOS.b
  820 P.$12;%H=0;F.I=0TO11;%H=%H+%LLI;N.
  830 P."TOTAAL INGEKOCHT";%A=%H;GOS.a
  840 %H=%H/11;FP."PER PERSOON   "%H
  850 P.''"(RET)";LINK#FFE3;P.$12
  860 F.I=0TO11;%LLI=-%LLI+%H;N.;%LL6=%LL6-%H;W=0
  870 F.I=0TO11;P.$BBI;%A=%LLI;GOS.a;%FFI=%FFI+%LLI;N.
  880 P."TOTAAL";%A=L/100;GOS.a;R.
  990 IN.L;DOP.&?L"->"$L';L=L+1;LINK#FFE3;U.0

Program `7-1`

   10 P.$12"FLAT,KOFFIE,TELEFOON";GOS.i
   40 P.'"(F,K,T,O,S)?";GOS.l
   50 IFR=84GOS.s;G.40
   51 IFR=70GOS.f;G.40
   52 IFR=75GOS.k;G.40
   53 IFR=79GOS.o;G.40
   54 IFR=83END
   55 P.$7;GOS.l;G.50
  100 iDIMBB14;F.I=0TO14;DIMK6;BBI=K;N.
  110 $BB0="TEUN  ";$BB1="OTTO  ";$BB2="ELISE ";$BB3="CASE  "
  120 $BB4="GERARD";$BB5="MIENT ";$BB6="HANS  ";$BB7="JOS   "
  130 $BB8="FRANS ";$BB9="DEXT  ";$BB10="KLAAS ";$BB11="RALPH "
  140 $BB12="D.P.O ";$BB13="ANITA ";$BB14="ONB.  "
  150 FDIM%TT14,%LL14,%FF14;DIMHH14
  160 DIMN15;$N="TOECGMHJFDKRPAX"
  165 DIMV3;$V="- +";V=V+1
  170 P=#A000;Q=P;P.$21;[JSR#FFE3;STA#80;RTS
  180 ];P.$6
  190 F.I=0TO14;HHI=0;%FFI=0;%LLI=0;%TTI=0;N.;R.
  200 hK=-1;F.I=0TO14;IFN?I=R K=I;I=14
  220 N.;R.
  230 lLINKQ;R=?#80;R.
  300 t@=7;?#E1=0;P.$11
  305 T=0;P.'"?"$8
  310 DOGOS.l;GOS.h;U.K>-1
  320 P.$BBK" "O,O+T,T'$11
  330 GOS.l;IFR>47 IFR<58THENT=T*10+R-48;G.320
  340 IFR=32HHK=HHK+T;O=O+T;G.305
  345 IFR=13HHK=HHK+T;O=O+T;P.';?#E1=#80;R.
  347 IFR=127THENT=T/10;G.320
  350 L=K;GOS.h;IFK>-1;T=0;G.320
  360 K=L;P.$7;G.320
  400 sP.$12'"OUDE STAND";IN.O
  410 GOS.t;P."  "'"NIEUWE STAND"O'
  420 P."(O,C,U)?";GOS.l
  430 IFR=67;P.';G.410
  440 IFR=79;P.$12;F.I=0TO14;P.$BBI"  "HHI';N.;G.420
  450 IFR<>85P.$7;GOS.l;G.430
  455 T=0;F.I=0TO13;%FFI=%FFI+0.15*HHI;T=T+HHI;N.
  460 P.$12"GEEF TOTALE VASTE KOSTEN"';FIN.%V
  470 P.'"GETELDE TIKKEN "T
  480 P.'"GEMISTE TIKKEN "HH14
  485 P.'"TOTAAL  TIKKEN "T+HH14'
  486 %C=%V/12;FP.'"VASTEN KOSTEN  PP "%C
  490 F.I=0TO11;%FFI=%FFI+%C;N.
  494 %C=.15*HH14/14;FP.'"GEMISTE TIKKEN PP "%C
  496 F.I=0TO13;%FFI=%FFI+%C;HHI=0;N.;HH14=0;R.
  500 oP.$12;F.I=0TO13;P.$BBI;%A=%FFI;GOS.a;N.;R.
  550 aP."  "$(V?SGN%A);%B=%A*SGN%A
  555  L=%(%B*20+0.5)*5;@=3;P.L/100"."
  557 W=W+L*SGN%A
  560 L=L%100;IFL>9@=2;P.L';R.
  570 @=1;P."0"L';R.
  615 bP."?"$8
  620 GOS.l;GOS.h
  630 IFK>-1A.K<12P.$BBK" ";FIN.%H;%LLK=%LLK+%H;G.b
  640 IFR<>13P.$7;G.620
  650 P." "'"(O,C,U)?";GOS.l
  660 IFR=67;P.';G.615
  670 IFR=79P.$12;F.I=0TO11;P.$BBI;%A=%LLI;GOS.a;N.;G.650
  672 R.
  675 fF.I=0TO11;%LLI=0;N.
  677 P.$12"INVOER FLATKAS"';GOS.b
  680 P.$12;%H=0;F.I=0TO11;%H=%H+%LLI;N.
  690 P."TOTAAL INGEKOCHT";%A=%H;GOS.a
  700 %H=%H/12;FP."PER PERSOON   "%H
  705 P.''"(RET)";LINK#FFE3
  706 P.$12;W=0;F.I=0TO11;P.$BBI;%A=-%LLI+%H;GOS.a;N.
  707 P."TOTAAL";%A=W/100;GOS.a
  750 F.I=0TO11;%FFI=%FFI-%LLI+%H;N.;R.
  800 kF.I=0TO11;%LLI=0;N.
  810 P.$12"INVOER KOFFIEKAS"';GOS.b
  820 P.$12;%H=0;F.I=0TO11;%H=%H+%LLI;N.
  830 P."TOTAAL INGEKOCHT";%A=%H;GOS.a
  832 P.'"GEEF (J/N) MEEREKENEN"
  834 K=0;F.I=0TO11;IFI=6;N.
  835 P.'$BBI" ?"
  836 GOS.l;IFR=74P."JA";HHI=1;K=K+1;G.839
  837 IFR=78;P."NEE";HHI=0;G.839
  838 P.$7;G.836
  839 N.;HH6=0
  840 %H=%H/K;FP.'"PER PERSOON   "%H
  850 P.'"(RET)";LINK#FFE3;P.$12
  860 F.I=0TO11;%LLI=-%LLI+%H*HHI;N.;W=0
  870 F.I=0TO11;P.$BBI;%A=%LLI;GOS.a;%FFI=%FFI+%LLI;N.
  880 P."TOTAAL";%A=W/100;GOS.a;R.
  990 IN.L;DOP.&?L"->"$L';L=L+1;LINK#FFE3;U.0

Program `B32`

   10 V=#20;W=#A0;P.$12
   20 IN."HOOGTE (<16)"G;F=G-1;E=1
   25 IN."BREEDTE(<32)"N;O=N-1;E=1
   30 DIMS9;$S="  +*#=- "
   40 IN."AANTAL"A;$(S+A+1)=" "
   41 ;P."SYMBOLEN ZIJN"$S'
   50 DIMDD10;F.I=1TOA;@=1;P."DD"I"=";IN.H;DDI=H;N.
   60 IN."BEGIN"H
   99 G.200
  100 dG.(110+D)
  110 X=(X+E)%G;R.
  111 Y=(Y+E)%N;R.
  112 X=(X+F)%G;R.
  113 Y=(Y+O)%N;R.
  120 mZ=P+X*Q+Y;R=?Z;?Z=#A0
  122 IFR=#A0;R.
  130 I=0;DOI=I+1;U.R=S?I;?Z=S?(I+1);D=(D+DDI)&3;R.
  200 P.$12;?#8000=#20;D=1
  210 X=G/2;Y=N/2;P=#8000;Q=32;P?(X*32+Y)=S?(H+1)
  220 DOGOS.d;GOS.m;U.0

Program `LIFE`

A program for simulating cellular automaton like Life for Conway. The program allowed you to define your own rules.

   10 IN."GEEF SYMBOOL"$#100
   20 V=?#100;IN."INVERTEER(0/1)"I
   30 IFI=1 V=V:#80
   40 P.$12$21;GOS.a;P.$6;GOS.l;GOS.r
  100 aP=#A000;DIMLL0;U=#A100
  110 [LDX@0;:LL0;LDA#8000,X;STA#8221,X;LDA#8100,X;STA#8321,X
  120 INX;BNELL0;LDX@#21;:LL0;DEX;LDA#8400,X;STA#8200,X
  130 LDA#8221,X;STA#8421,X;TXA;BNELL0
  140 ];F.B=#8200TO#8300S.#100
  150 [LDX@0;:LL0;LDY@0;LDA@V
  151 CMPB   ,X;BNEP+3;INY
  152 CMPB+ 1,X;BNEP+3;INY
  153 CMPB+ 2,X;BNEP+3;INY
  154 CMPB+32,X;BNEP+3;INY
  155 CMPB+34,X;BNEP+3;INY
  156 CMPB+64,X;BNEP+3;INY
  157 CMPB+65,X;BNEP+3;INY
  158 CMPB+66,X;BNEP+3;INY
  180 CMPB+33,X;BEQP+7;LDAU,Y;BNEP+5;LDAU+9,Y;STAB-#200,X
  190 INX;BNELL0
  200 ];N.;[RTS;:LL0;JSR#FFE3;STA#80;RTS
  210 ];R.
  300 lP.$12"INVOER MATRIX"''" 012345678"'" 012345678"'$11$11
  310 IN.$U;IN.$(U+9)
  320 F.I=0TO15;IFU?I<>#20 U?I=V
  330 N.;R.
  400 rP.$12;?#E1=0;P." ";P=#80F0
  410 k?P=(?P):#80;LINKLL0;?P=(?P):#80;R=?#80
  430 IFR=71 LINK#A000;G.k
  440 IFR=83 P=P-1;G.k
  445 IFR=72 DOLINK#A000;U.?#B001<>255;G.k
  450 IFR=69 P=P-32;G.k
  455 IFR=67 G.r
  460 IFR=68 P=P+1;G.k
  465 IFR=32 P?0=#20;G.k
  470 IFR=88 P=P+32;G.k
  475 IFR=76;GOS.l;G.r
  480 IFR<>82 P?0=V;G.k
  490 P.$12"GEEF PROCENTEN";IN.K;P.$12;?#E1=0;P." "
  500 F.I=#8000TO#81FF;IFK>A.R.%101 I?0=V
  510 N.;G.k

Program `FKEY.BAS`

   30 B=#8000;C=#8100;D=#A200;E=#A300
   31 DIMKK3
   40 DIMMM10
  100 DIMLL11;LL9=#A000
  110 F.I=1TO2;P=#A000
  120 ?P=#40;P?1=#BF;P=P+2
  130 [LDA@148;CMP#20A;BEQMM1;JMP#C558
  140 :MM0  LDA@0;STA#80;STA#82;STA#83;LDA@#A1;STA#81
  145 LDA@#D ;STA#A100
  150 :MM1
  160 LDA@#73;STA#20A
  161 LDA@#A0;STA#20B
  170 LDA@#3C;STA#21A
  171 LDA@#A0;STA#21B
  238 JSR#F7D1
  240 ];$P=" r";?P=12;P?3=10;P=P+4;[NOP;JMP#C2B2
  250 :MM2 CPY@0;BEQMM0
  260 CPY@2;BEQ KK1
  305 :KK2 LDA#B000;STA#86
  308 :KK1 LDA#86;LDX#B000;STA#B000;STX#86
  310 LDY@0;:KK0
  320 LDXB,Y;LDAD,Y;STAB,Y;TXA;STAD,Y
  330 LDXC,Y;LDAE,Y;STAC,Y;TXA;STAE,Y
  340 INY;BNE KK0;RTS
 1120 :LL10 STX#84;STY#85
 1130 :LL0 LDY#82;LDA(#80),Y
 1132 CMP@#D;BNE LL3
 1134 JSR#FE94
 1135 CMP@#D;BEQ LL4
 1137 CMP@27;BPL LL5
 1138 LDY@0
 1140 :LL1 CPY#83;BEQ LL2
 1145 CMP(#80),Y;BEQ LL3
 1146 JSR LL9;JMP LL1
 1150 :LL2 JSR#FE52;JMPLL0
 1160 :LL3 INY;LDA(#80),Y
 1164 CMP@#D;BEQ LL4
 1167 CMP@27;STY#82;BMILL2
 1170 :LL4 STY#82;LDX#84;LDY#85
 1171 STA#87;RTS
 1180 :LL5 CMP@126;BNE LL4
 1181 JSR#FE52
 1183 JSR#FE94;AND@#1F
 1186 LDY@0
 1190 :LL6 CPY#83;BEQ LL7
 1195 CMP(#80),Y;BEQ LL8
 1196 JSR LL9;JMP LL6
 1200 :LL7 STA(#80),Y
 1203 TYA;JSR LL9;STY#83
 1206 TAY
 1210 :LL8 JSR#FE94;INY
 1213 STA(#80),Y;JSR#FE52
 1214 CMP@127;BEQLL11
 1215 CMP@#D;BNE LL8
 1218 STY#82;JMPLL0
 1220 :LL11 DEY;DEY;JMPLL8
 1224 :LL9 TAX;TYA;CLC;ADC@#10
 1225 TAY;TXA;RTS
 1226 ];N.

Some data stored under the name`FKEY`

This is very likely the assembly code generated by the previous program. The hash symbol is used for a two digit hexadecimal representation of the byte.

 
@#BF#A9#94#CD#0A#02#F0#14LX#C5#A9#00#85#80#85#82#85#83#A9#A1#85#81#A9~#8D#00#A1#A9p#8D#0A#02#A9#A0#8D#0B#02#8D#1B#02#A99#8D#1A#02#A9#0C R#FEL#B2#C2#C0#00#F0#D1#C0#02#F0#05#AD#00#B0#85#86#A5#86#AE#00#B0#8D#00#B0#86#86#A0#00#BE#00#80#B9#00#A2#99#00#80#8A#99#00#A2#BE#00#81#B9#00#A3#99#00#81#8A#99#00#A3#C8#D0#E3`#86#84#84#85#A4#82#B1#80#C9~#D0! #94#FE#C9#0D#F0+
#C9#1B#100#A0#00#C4#83#F0#0A#D1#80#F0#0C #F8#A0L#87#A0 R#FELr#A0#C8#B1#80#84#82#C9#0D#F0#08
#C9#1B0#ED#C9~#F0#C6#84#82#A6#84#A4#85#85#87`#C9~#D0#F3 R#FE #94#FE R#FE)#1F#A0#00#C4#83#F0#0A#D1#80#F0#0F #F8#A0L#C6#A0#91#80#98 #F8#A0#84#83#A8 #94#FE#C8#91#80 R#FE#C9#7F#F0#09#C9~#D0#EF#84#82Lr#A0#88#88L#DD#A0#AA#98#18i#10#A8#8A`#A0#A0#89#8E#86#8F#A0#8F#96#85#92#A0#86#8B#85#99#A0#A0#A0#A0#A0#A0#A0#A0#A0#A0#A0#A0#A0#A0#A0#A0                                #06#0B#05#19 #09#13 #05#05#0E #14#0F#0F#0C#0B#09#14 #04#09#05 #08#05#14     #04#05#06#09#0E#09#0E#05#12#05#0E #16#01#0E #06#15#0E#03#14#09#05         #14#0F#05#13#14#05#0E #0D#0F#07
#05#0C#09#0A#0B #0D#01#01
#0B#14                                          #04#05#06#09#0E#05#12#05#0E #16#01#0E #05#05#0E #14#0F#05#14#13:          #13#08#09#06#14 #1E,#0C#05#14#14#05#12 (<>#0D)

Some data stored under the name `INFO`

I have absolutely no idea what this fragment is.

  #03#0F#0D#0D#01
#0E#04#0F, (#12#05#14)                                               -#13#08#15#140  #12#05#13#05#14 #01#0C#0C#05 #05#05#12#04#05#12#05              #04#05#06#09#0E#09#14#09#05#13              -#13#08#15#141  #16#05#12#01#0E#04#05#12 #16#01#0E #13#03#08#05#12#0D  
   -#13#08#15#142  #16#05#12#01#0E#04#05#12 #16#01#0E #13#03#08#05#12#0D  
           #05#0E #0D#0F#04
#05

Program `SKEY.BAS`

   30 B=#8000;C=#8100;D=#A200;E=#A300
   31 DIMKK3
   40 DIMMM10
  100 DIMLL11;LL9=#A000
  110 F.I=1TO2;P=#A000
  120 ?P=#00;P?1=#BF;P=P+2
  130 [LDA@148;CMP#20A;BEQMM1;JMP#C558
  140 :MM0  LDA@0;STA#80;STA#82;STA#83;LDA@#A1;STA#81
  145 LDA@126;STA#A100
  150 :MM1
  160 LDA@#6E;STA#20A
  161 LDA@#A0;STA#20B;STA#21B
  170 LDA@#37;STA#21A
  238 LDA@12;JSR#FE52
  240 JMP#C2B2
  250 :MM2 CPY@0;BEQMM0
  260 CPY@2;BEQ KK1
  305 :KK2 LDA#B000;STA#86
  308 :KK1 LDA#86;LDX#B000;STA#B000;STX#86
  310 LDY@0;:KK0
  320 LDXB,Y;LDAD,Y;STAB,Y;TXA;STAD,Y
  330 LDXC,Y;LDAE,Y;STAC,Y;TXA;STAE,Y
  340 INY;BNE KK0;RTS
 1120 :LL10 STX#84;STY#85
 1130 :LL0 LDY#82;LDA(#80),Y
 1132 CMP@126;BNE LL3
 1134 JSR#FE94
 1135 CMP@#D;BEQ LL4
 1137 CMP@27;BPL LL5
 1138 LDY@0
 1140 :LL1 CPY#83;BEQ LL2
 1145 CMP(#80),Y;BEQ LL3
 1146 JSR LL9;JMP LL1
 1150 :LL2 JSR#FE52;JMPLL0
 1160 :LL3 INY;LDA(#80),Y;STY#82
 1164 CMP@#D;BEQ LL4
 1167 CMP@27;BMILL2
 1168 CMP@126;BEQLL0
 1170 :LL4 STY#82;LDX#84;LDY#85
 1171 STA#87;RTS
 1180 :LL5 CMP@126;BNE LL4
 1181 JSR#FE52
 1183 JSR#FE94;JSR#FE52;AND@#1F
 1186 LDY@0
 1190 :LL6 CPY#83;BEQ LL7
 1195 CMP(#80),Y;BEQ LL8
 1196 JSR LL9;JMP LL6
 1200 :LL7 STA(#80),Y
 1203 TYA;JSR LL9;STY#83
 1206 TAY
 1210 :LL8 JSR#FE94;INY
 1213 STA(#80),Y;JSR#FE52
 1214 CMP@127;BEQLL11
 1215 CMP@126;BNE LL8
 1218 STY#82;JMPLL0
 1220 :LL11 DEY;DEY;JMPLL8
 1224 :LL9 TAX;TYA;CLC;ADC@#10
 1225 TAY;TXA;RTS
 1226 ];N.

Program `TELE`

   10 P.$12
  100 DIMBB14;F.I=0TO14;DIMK6;BBI=K;N.
  110 $BB0="TEUN  ";$BB1="ELISE ";$BB2="      ";$BB3="CASE  "
  120 $BB4="GERARD";$BB5="MIENT ";$BB6="HANS  ";$BB7="JOS   "
  130 $BB8="FRANS ";$BB9="DEXT  ";$BB10="KLAAS ";$BB11="RALPH "
  140 $BB12="D.P.O ";$BB13="ANITA ";$BB14="ONB.  "
  150 FDIM%TT14,%LL14,%FF14;DIMHH14
  160 DIMH15;$H="TE CGMHJFDKRPAX" 
  165 DIMV3;$V="- +";V=V+1
  167 DIMCC16,TT16;F.I=0TO16;CCI=-1;TTI=0;N.
  170 P=#A000;Q=P;P.$21;[JSR#FFE3;STA#80;RTS
  180 ];P.$6
  190 F.I=0TO14;HHI=0;%FFI=0;%LLI=0;%TTI=0;N.
  400 sP.$12'"OUDE STAND";IN.O
  410 GOS.t;P."  "'"NIEUWE STAND"O'
  420 P."(O,C,U)?";GOS.r
  430 IFR=67;P.';G.410
  440 IFR=79;P.$12;F.I=0TO14;P.$BBI"  "HHI';N.;G.420
  450 IFR<>85P.$7;GOS.r;G.430
  455 T=0;F.I=0TO13;%FFI=%FFI+0.15*HHI;T=T+HHI;N.
  460 P.$12"GEEF TOTALE VASTE KOSTEN"';FIN.%V
  470 P.'"GETELDE TIKKEN "T
  480 P.'"GEMISTE TIKKEN "HH14
  485 P.'"TOTAAL  TIKKEN "T+HH14'
  486 %C=%V/12;FP.'"VASTEN KOSTEN  PP "%C
  490 F.I=0TO11;%FFI=%FFI+%C;N.
  494 %C=.15*HH14/14;FP.'"GEMISTE TIKKEN PP "%C
  496 F.I=0TO13;%FFI=%FFI+%C;HHI=0;N.;HH14=0;R.
  500 oP.$12;F.I=0TO13;P.$BBI;%A=%FFI;GOS.a;N.;R.
  550 aP."  "$(V?SGN%A);%B=%A*SGN%A
  555  L=%(%B*20+0.5)*5;@=3;P.L/100"."
  557 W=W+L*SGN%A
  560 L=L%100;IFL>9@=2;P.L';R.
  570 @=1;P."0"L';R.
  615 bP."?"$8
  620 GOS.l;GOS.h
  630 IFK>-1A.K<12P.$BBK" ";FIN.%H;%LLK=%LLK+%H;G.b
  640 IFR<>13P.$7;G.620
  650 P." "'"(O,C,U)?";GOS.l
  660 IFR=67;P.';G.615
  670 IFR=79P.$12;F.I=0TO11;P.$BBI;%A=%LLI;GOS.a;N.;G.650
  672 R.
  800 tP.$12">"$8;C=0;@=7;?#E1=0
  810 GOS.r;IFR=94 GOS.u;G.810
  820 IFR=13;T=TTC;GOS.d;G.810
  830 IFR=42 GOS.v;G.870
  840 IFR=105 GOS.j;G.810
  850 IFR=100 GOS.e;G.810
  860 GOS.i;G.810
  870 IFCC0>-1;G.810
  880 ?#E1=#80;R.
  900 hK=-1;F.I=0TO14;IFH?I=R K=I;I=14
  920 N.;R.
  930 rLINKQ;R=?#80;R.
 1000 iT=TTC;IFR>48A.R<58A.T>0 G.1100
 1010 GOS.h;IFK=-1 R.
 1020 CCC=K;P.$158$BBCCC"                      "'$11
 1030 GOS.r;IFR>47A.R<58 G.1100
 1040 GOS.h;IFK>-1 G.1020
 1050 IFR=13 G.1150
 1060 P.$7;G.1030
 1100 T=R-48
 1110 P." "$BBCCC$158O,O+T,T'$11;GOS.r
 1115 IFR>47A.R<58;T=T*10+R-48;G.1110
 1120 IFR=127;T=T/10;G.1110
 1130 GOS.h;IFK>-1 G.1020
 1140 IFR<>13 P.$7;G.1110
 1150 IFT=0 P.$7$7;G.1030
 1160 P." "$BBCCC" "'$11
 1200 dIFCCC=-1 R.
 1210 P." ";O=O+T;C=C+1;IFC<16 G.1250
 1220 K=CC0;HHK=HHK+TT0;TT(C-1)=T
 1230 F.I=0TO14;CCI=CC(I+1);TTI=TT(I+1);N.
 1240 C=15;CCC=-1;TTC=0;G.1290
 1250 IFT=TT(C-1)O.CCC=-1 G.1290
 1270 I=C;N=O
 1280 DOP.'" "$BBCCI" "N,N+TTI,TTI;N=N+TTI;I=I+1;U.CCI=-1
 1285 P.$30;F.I=1TOC;P.';N.;P.$11
 1290 P.'$158$8;TT(C-1)=T;R.
 1300 uIFC=0 R.
 1310 C=C-1;O=O-TTC;P." "$8$11$158$8;R.
 1400 jIFCCC=-1O.C=15R.
 1410 P." ";I=C;DOI=I+1;P.';U.CCI=-1
 1420 IFI=15 I=I-1
 1430 DOCCI=CC(I-1);TTI=TT(I-1)
 1435  P." "$BBCCI"               "TTI,$11$11';I=I-1;U.I=C
 1440 P."                             "'$11
 1450 TTC=0;G.i
 1500 eIFCCC=-1 R.
 1510 I=C;N=O
 1520 CCI=CC(I+1);TTI=TT(I+1)
 1530 IFCCI=-1 G.1550
 1540 P." "$BBCCI" "N,N+TTI,TTI';I=I+1;G.1520
 1550 P."                             "
 1560 P.$30;F.I=0TOC;P.';N.;P.$11$158
 1600 vIFC=0 R.
 1610 P.$12;F.I=0TOC-1;K=CCI;HHK=HHK+TTI;N.;N=O;I=0
 1620 CCI=CC(I+C);TTI=TT(I+C);IFCCI=-1 G.1640
 1630 P." "$BBCCI" "N,N+TTI,TTI';N=N+TTI;I=I+1;G.1620
 1640 DOCCI=-1;TTI=0;I=I+1;U.I=16;P.$30$158$8;R.

B side of the tape

Program `7-1`

   10 P.$12"FLAT,KOFFIE,TELEFOON";GOS.i
   40 P.'"(F,K,T,O,S)?";GOS.l
   50 IFR=84GOS.s;G.40
   51 IFR=70GOS.f;G.40
   52 IFR=75GOS.k;G.40
   53 IFR=79GOS.o;G.40
   54 IFR=83END
   55 P.$7;GOS.l;G.50
  100 iDIMBB14;F.I=0TO14;DIMK6;BBI=K;N.
  110 $BB0="TEUN  ";$BB1="OTTO  ";$BB2="ELISE ";$BB3="CASE  "
  120 $BB4="GERARD";$BB5="MENT ";$BB6="HANS  ";$BB7="JOS   "
  130 $BB8="FRANS ";$BB9="DEXT  ";$BB10="KLAAS ";$BB11="RALPH "
  140 $BB12="ANITA ";$BB13="D.P.O.";$BB14="ONB.  "
  150 FDIM%TT14,%LL14,%FF14;DIMHH14
  160 DIMN15;$N="TOECGMHJFDKRAPX"
  165 DIMV3;$V="- +";V=V+1
  170 P=#A000;Q=P;P.$21;[JSR#FFE3;STA#80;RTS
  180 ];P.$6
  190 F.I=0TO14;HHI=0;%FFI=0;%LLI=0;%TTI=0;N.;R.
  200 hK=-1;F.I=0TO14;IFN?I=R K=I;I=14
  220 N.;R.
  230 lLINKQ;R=?#80;R.
  300 t@=7;?#E1=0;P.$11
  305 T=0;P.'"?"$8
  310 DOGOS.l;GOS.h;U.K>-1
  320 P.$BBK" "O,O+T,T'$11
  330 GOS.l;IFR>47 IFR<58THENT=T*10+R-48;G.320
  340 IFR=32HHK=HHK+T;O=O+T;G.305
  345 IFR=13HHK=HHK+T;O=O+T;P.';?#E1=#80;R.
  347 IFR=127THENT=T/10;G.320
  350 L=K;GOS.h;IFK>-1;T=0;G.320
  360 K=L;P.$7;G.320
  400 sP.$12'"OUDE STAND";IN.O
  410 GOS.t;P."  "'"NIEUWE STAND"O'
  420 P."(O,C,U)?";GOS.l
  430 IFR=67;P.';G.410
  440 IFR=79;P.$12;F.I=0TO14;P.$BBI"  "HHI';N.;G.420
  450 IFR<>85P.$7;GOS.l;G.430
  455 T=0;F.I=0TO13;%FFI=%FFI+0.15*HHI;T=T+HHI;N.
  460 P.$12"GEEF TOTALE VASTE KOSTEN"';FIN.%V
  470 P.'"GETELDE TIKKEN "T
  480 P.'"GEMISTE TIKKEN "HH14
  485 P.'"TOTAAL  TIKKEN "T+HH14'
  486 %C=%V/12;FP.'"VASTEN KOSTEN  PP "%C
  490 F.I=0TO11;%FFI=%FFI+%C;N.
  494 %C=.15*HH14/13;FP.'"GEMISTE TIKKEN PP "%C
  496 F.I=0TO12;%FFI=%FFI+%C;HHI=0;N.;HH13=0;HH14=0;R.
  500 oP.$12;F.I=0TO13;P.$BBI;%A=%FFI;GOS.a;N.;R.
  550 aP."  "$(V?SGN%A);%B=%A*SGN%A
  555  L=%(%B*20+0.5)*5;@=3;P.L/100"."
  557 W=W+L*SGN%A
  560 L=L%100;IFL>9@=2;P.L';R.
  570 @=1;P."0"L';R.
  615 bP."?"$8
  620 GOS.l;GOS.h
  630 IFK>-1A.K<12P.$BBK" ";FIN.%H;%LLK=%LLK+%H;G.b
  640 IFR<>13P.$7;G.620
  650 P." "'"(O,C,U)?";GOS.l
  660 IFR=67;P.';G.615
  670 IFR=79P.$12;F.I=0TO11;P.$BBI;%A=%LLI;GOS.a;N.;G.650
  672 R.
  675 fF.I=0TO11;%LLI=0;N.
  677 P.$12"INVOER FLATKAS"';GOS.b
  680 P.$12;%H=0;F.I=0TO11;%H=%H+%LLI;N.
  690 P."TOTAAL INGEKOCHT";%A=%H;GOS.a
  700 %H=%H/12;FP."PER PERSOON   "%H
  705 P.''"(RET)";LINK#FFE3
  706 P.$12;W=0;F.I=0TO11;P.$BBI;%A=-%LLI+%H;GOS.a;N.
  707 P."TOTAAL";%A=W/100;GOS.a
  750 F.I=0TO11;%FFI=%FFI-%LLI+%H;N.;R.
  800 kF.I=0TO11;%LLI=0;N.
  810 P.$12"INVOER KOFFIEKAS"';GOS.b
  820 P.$12;%H=0;F.I=0TO11;%H=%H+%LLI;N.
  830 P."TOTAAL INGEKOCHT";%A=%H;GOS.a
  832 P.'"GEEF (J/N) MEEREKENEN"
  834 K=0;F.I=0TO11;IFI=6;N.
  835 P.'$BBI" ?"
  836 GOS.l;IFR=74P."JA";HHI=1;K=K+1;G.839
  837 IFR=78;P."NEE";HHI=0;G.839
  838 P.$7;G.836
  839 N.;HH6=0
  840 %H=%H/K;FP.'"PER PERSOON   "%H
  850 P.'"(RET)";LINK#FFE3;P.$12
  860 F.I=0TO11;%LLI=-%LLI+%H*HHI;N.;W=0
  870 F.I=0TO11;P.$BBI;%A=%LLI;GOS.a;%FFI=%FFI+%LLI;N.
  880 P."TOTAAL";%A=W/100;GOS.a;R.
  990 IN.L;DOP.&?L"->"$L';L=L+1;LINK#FFE3;U.0

Program `COMPIL`

This a fragment of some kind of compiler. Both from the start and the end something is missing.

 3020  O=?A;A=A+1;G.3035 
 3025  IF((?A=CH">"A.A?1=?A)OR(?A=CH"<"A.A?1=?A)):1 R.
 3030  O=?A;A=A+2
 3035  U=O;GOS.u
 3040  GOS.f;GOS.v;U=V;GOS.v;O=V;GOS.v;L=V;GOS.l;IFU<=0G.3070
 3050  IFO=CH"+"[CLC;ADC U;]
 3055  IFO=CH"-"[SEC;SBC U;]
 3060  IFO=CH"!"[ORA U;]
 3065  IFO=CH"&"[AND U;]
 3068  G.3190
 3070  IFO=CH"+"[CLC;ADC @-U;]
 3075  IFO=CH"-"[SEC;SBC @-U;]
 3080  IFO=CH"&"[AND @-U;]
 3085  IFO=CH"!"[ORA @-U;]
 3160  IFO=CH"<"F.N=1TO-U;[ASL A;];N.
 3180  IFO=CH">"F.N=1TO-U;[LSR A;];N.
 3190  L=U;GOS.r;GOS.t;G.3015
 3200 pIFA?1=CH")"A=A+2;G.3230
 3220  GOS.f;GOS.v;L=V;GOS.l
 3230  GOS.v;[JSR V;];H=0;R.
 3600 fGOS.x;IFN=0G.3630
 3615  IF?A=CH"("G.3690
 3620  GOS.j;IF?A=CH"["G.3670
 3625  R.
 3630  GOS.c;IFN<>0R.
 3635  IF?A<>CH"("P.$6"NO (";G.o
 3640  A=A+1;GOS.e;GOS.b;IF?A<>CH")"P.$6"NO )";G.0
 3660  A=A+1;R.
 3670  A=A+1;GOS.e;IF?A<>CH"]"P.$6"NO ]";G.o
 3680  A=A+1;GOS.v;L=V;GOS.l;GOS.v;[TAX;LDA V,X;];G.t
 3690  GOS.h;GOS.u;GOS.p;G.t
 4000 qGOS.b;GOS.e;GOS.b;U=0;IF?A=CH"<"A=A+1;U=4
 4040  IF?A=CH">"A=A+1;U=U+1
 4050  IF?A=CH"="A=A+1;U=U+2
 4060  IFU=0ORU>6 P.$6"ILLEGAL TEST";G.o
 4070  GOS.u;GOS.e;GOS.v;M=V;GOS.v;U=V;GOS.v;L=V;GOS.l;
 4100  IFM>0[CMP M;]
 4110  IFM<0[CMP @-M;]
 4120 ...

Program `STANGEN`

    5  P.$12
    6  @=2
   10  N=0
   15  L=100;K=200
   20  %L=128/PI
   21  %M=92/PI
   30  G.162
  100  P."(A="A;IN.") :"A
  110  P."(B="B;IN.") :"B 
  120  P."(C="C;IN.") :"C
  130  P."(D="D;IN.") :"D 
  140  GOS.i
  160  P.$12
  162  P."KEUZE 1=BEWEGEN"'
  163  P."      2=HOEKEN"'
  164  P."      3=NIEUE WAARDEN"'
  165  P."      4=EXTRA PUNT ?"'
  166  P."      5=PUNT BAAN"'
  167  P."      6=ANDER SETTINGEN"'
  169  IN.I
  170  IF I=3 G.100
  175  IFI<1ORI>6G.160
  180  G.(I*100+100)
  200  GOS.q;IN."   SNELHEID:"W
  209  CLEAR4
  210  FORI=F TO G STEP H;GOS.d;N.
  220  G.160
  300  GOS.q;CLEAR4
  310  FORI=F TO G STEP H;GOS.e;N.
  320  DO U.?#B001<>255;G.160
  500  IN."SETTING ON:"N
  510  IN."X WAARDE  :"X
  520  IN."Y WAARDE  :"Y 
  530  G.160
  600  GOS.q;CLEAR4;FORI=F TO G STEP H;GOS.f;N.;G.320
  700  P."OORSPRONG(X="K;IN."):"K
  710  P."OORSPRONG(Y="L;IN."):"L 
  720  IN."LIJN(BIJ 5) :"Q
  730  Q=Q*8
  740  G.160
 1000 iE=C*C-B*B;R.
 1100 x%I=I*2*PI/360
 1110  %X=A*COS(%I)-D
 1120  %Y=A*SIN(%I)
 1130  %F=%X*%X+%Y*%Y
 1140  %G=(%F+E)/(2*%F)
 1150  %H=C*C/%F-%G*%G
 1160 FIF %H<0 R.
 1170  %H=SQR(%H)
 1180  R.
 1200 v%V=%G*%X-%H*%Y
 1210  %W=%G*%Y+%H*%X
 1220  R.
 1300 pPLOT 4,K,L
 1310  PLOT J,(K-D),L
 1320  PLOT J,%(K+%X),%(L+%Y)
 1330  PLOT J,%(K+%V),%(L+%W)
 1335  PLOT J,K,L
 1340  IFN GOS.g
 1350  R.
 1400 dGOS.x;GOS.v
 1410  FIF%H<0 R.
 1420  J=5;GOS.p
 1430  %H=-%H;GOS.v;GOS.p
 1435  FORM=1TOW;WAIT;N.
 1440  J=7;GOS.p
 1450  %H=-%H;GOS.v;GOS.p
 1460  R.
 1500 eGOS.x;FIF%H<0 R.
 1510  GOS.v;GOS.h
 1520  %H=-%H;GOS.v
 1530  GOS.h
 1540  R.
 1600 h%D=ACS(-%V/C)
 1610  FIF %W<0 %D=-%D
 1630  PLOT 13,%(%I*%L+128),%(%D*%M+92)
 1640  R.
 1700 fGOS.x;FIF%H<0 R.
 1705  J=5;GOS.v;GOS.g;%H=-%H
 1710  J=5+Q;GOS.v;GOS.g;R.
 1800 g%O=(%V-%X)/100
 1810  %P=(%Y-%W)/100
 1820  PLOT(J+8),%(K+%X+X*%O-Y*%P),%(L+%Y+X*%P+Y*%O)
 1830  R.
 2000 qIN."BEWEGEN VAN:"F
 2005  P. "             "G$11
 2010  IN."       NAAR:"G
 2020  IN."       STAP:"H
 2030  R.
 2040  O=(I-V)/4+1
 2100 N.;IFO<>0G=?(W+O);O=?(W+35+O);R=R+3;G.2170
 2110 H?2=#0D
 2120 IF$H="OR"O=#2038A;G.2160
 2130 IF$H="LD"O=#20586;G.2160
 2140 IF$H="ST"O=#20587;G.2160
 2150 G.9001
 2160 R=R+O/65536;G=(O/256)%256;O=O%256
 2170 GOS.v;GOS.r;GOS.s;D=16;G.(3000+G*100)
 3100 IFN=7O=O+#40;G.5000
 3110 IFN<>6G.9002
 3120 G.5000
 3200 IFN<>0G.3100
 3210 O=#C3-(O=#80)*64;G.5000
 3300 IFN<>8G.3100
 3310 O=#1A+2*(O=#84);G.5200
 3400 IFN=-1D=-64;G.5100
 3410 IFN=7O=O+#10;G.7700
 3420 IFN=6;G.7700
 3430 G.9002
 3500 IFN=-1G.9017
 3502 I=0;IFO=#87I=1
 3505 IFN=7O=O+#40;G.3580
 3510 IFN=6G.3580
 3515 IFO=#81O=#84
 3520 IFN=2N=1;?P=#10;P=P+1
 3525 IFN=1O=O+8;G.3580
 3530 IFO=#84G.3570
 3540 IFN=0O=O+#46;G.3580
 3545 IFN=4N=3;?P=#10;P=P+1
 3550 IFN=3O=O+#48;G.3580
 3560 G.9000
 3565 IFN<>0A.N<>3A.N<>4G.9000
 3570 ?P=#11-(N=0);P=P+1
 3575 O=#83+9*(N=4)
 3580 IFI G.5100
 3585 G.5000
 3600 G.7700
 3700 IFN<>-1G.9000
 3705 IFO=#8DG.5100
 3710 D=-64;G.5100
 3800 IFN<1A.N>4G.9000
 3805 IFN>2N=7-N
 3810 O=O+N;G.5300
 3900 IFN=-1GOS.s;GOS.v;GOS.r;IFN=-1G.9010
 3910 IF?R<>44G.9008
 3920 R=R+1;B=N;GOS.v;GOS.r
 3930 IFN=-1G.9010
 3940 IFN=10ORB=10G.9007
 3950 IFB>5B=B+2
 3960 IFN>5N=N+2
 3970 IF(N/8)<>(B/8)G.9014
 3980 ?P=O;P?1=B*16+N;P=P+2;R.
 4000 IF?R=51P?0=#11;P=P+1;G.4030
 4010 IF?R=50P?0=#10;P=P+1;G.4030
 4020 IF?R<>49G.9015
 4030 ?P=#3F;P=P+1;R.
 4100 IFN=3O=O+2;G.4120
 4110 IFN<>4G.9007
 4120 B=N;GOS.s;?P=O;P=P+1;O=0]
 4130 GOS.v;GOS.r
 4140 IFN=-1G.4180
 4150 IFN=0ORN=B ORN=10G.9007
 4160 O=O|?(V+#F6+N+(N<4));IF?R=44;R=R+1;G.4130
 4170 ?P=O;P=P+1;R.
 4180 IF$H="ALL   "A.O=0;O=#FF;G.4170
 4190 G.9010
 4200 N=0;F.I=1TO19;A=I+I+V+208
 4210 IF?A=?R A.A?1=R?1 N=I;I=19
 4220 N.;IFN=0G.9001
 4225 IFN=1P?0=#8D-#76*L;G.4270
 4230 FN=2P?0=#20-10*L;G.4270
 4240 IFN>17N=N-12
 4250 IFL P?0=#40;P=P+1
 4260 ?P=N+30
 4270 R=R+2;GOS.s;GOS.i;A=(I-P-2)
 4280 IFL=0A.(A>127ORA<-128)G/9016
 4290 A=A-L
 4300 G.(7420-10*L)
 4400 IF?R=#0D R.
 4410 GOS.v;IF?H=32G.9020
 4420 GOS.t;I?7=P/256;I?8=P%256;G.2005
 4500 N=6;G.5200
 5000 B=N;GOS.s;IF?R=#23R=R+1;GOS.i;G.7400
 5010 IF?R=#3CR=R+1;GOS.i;G.7600
 5020 IF?R=#3ER=R+1;GOS.i;G.7500
 5030 U=0
 5040 I=-1;DOI=I+1;U.R?I=#0DORR?I=#2C
 5050 M=0;IFR?I=#2CM=1
 5060 L=0;IF?R=#5BR=R+1;L=16
 5070 FM=0A.L=16;G.9902
 5075 IFM G.7000
 5080 IFU=1G.9006
 5090 GOS.i;IFC=I/256;G.7600
 5095 G.7500
 5100 GOS.s;IF?R=#23G.9003
 5110 G.5010
 5200  B=N;GOS.s;IF?R=#23R=R+1;GOS.i;G.7400
 5210 G.9004
 5300 GOS.s;IF?R=#23OR?R=#3COR?R=#3EG.9006
 5310 U=1;G.5040
 7000 ?P=O+32;P=P+1;A=0;B=0;GOS.h;IFI>-1 A=I;G.7090
 7020 GOS.v;GOS.r;IFN>-1G.7050
 7030 IF?H=32G./090
 7040 GOS.t;A=I?7*256+I?8;G.7090
 7050 IFN=6B=6;G.7090
 7060 IFN=7B=5;G.7090
 7070 IFN=0B=11;G.7090
 7080 G.9007
 7090 GOS.s;IF?R<>#2CG.9008
 7100 R=R+1;Q=0;IF?R<>#2DG.7120
 7110 Q=2;R=R+1;IF?R=#2DQ=3;R=R+1
 7120 GOS.v;GOS.r;N=N-1;IFN=-2G.9010
 7130 IFQ G.7160
 7140 Q=-1;IF?R<>#2BG.7160
 7150 Q=0;R=R+1;IF?R=#2BQ=1;R=R+1
 7160 IFN=9L=128+L;G.7230
 7170 IFN<0ORN>3G.9007
 7180 L=L+N*32+128
 7190 IFQ=-1G.7260
 7200 IFA<>0ORB<>0G.9011
 7210 IFL&16=16A.Q%2=0G.9012
 7220 ?P=L+Q;P=P+1;R.
 7230 IFB<>0ORQ<>-1G.9013
 7240 A=A-P-3;IFA>-129 A.A<128;?P=12+L;P?1=A;P=P+2;R.
 7250 A=(A-1)%65696;?P=13+L;G.7410
 7260 IFB<>0P?0=L+B;P=P+1;R.
 7270 IFA=0P?0=