1000 2204 0000 b ... 4-TAKT-OTTO 1
Monitoraufrufe:
keine:
Verwendete IO-Ports bzw. Hardware:
keine []
Zeichensatz UTF-8+Z1013()+CTRL()-ohne Umlaute(äöüß)

    1 O.12
    2 A=H.(EC20)
    3 GOS.3000
    4 B=RND(255)
   10 PO.A+70,3
   20 PO.A+72,3;PO.A+73,3;PO.A+40,244;PO.A+41,232;PO.A+104,241
   30 PO.A+105,170;PO.A+75,3;F.X=A+69TOA+549STEP32;PO.X,3;N.X
   40 PO.A+548,3;PO.A+547,3;PO.A+546,3
   45 F.X=A+545TOA+961STEP32;PO.X,3;N.X
   50 F.X=A+961TOA+976;PO.X,3;N.X
   55 PO.A+744,134
   56 PO.A+745,135
   57 PO.A+744+32,133;PO.A+745+32,132
   60 F.X=A+976TOA+560STEP-32
   70 PO.X,3;N.X
   80 PO.A+559,3;PO.A+558,3;PO.A+557,3
   90 F.X=A+556TOA+76STEP-32
  100 PO.X,3;N.X
  110 A=A+166;GOS.1000
  120 GOS.2000
  190 REM ROTATION
  195 A=H.(EC20)
  198 F.N=1TO2
  199 B=203
  200 GOS.2250;PO.A+617,B
  205 IFN=2PO.A+287,51
  206 IFN=2PO.A+135,144
  207 IFN=2PO.A+136,192
  208 IFN=2PO.A+138,145
  210 PO.A+223,76
  213 PO.A+31,79
  214 IFN=1PO.A+159,72;IFN=1PO.A+351,45
  215 A=A+166;GOS.1000
  216 PO.A+31,79
  217 PO.A+94,49
  218 IFN=1GOS.2000;IFN=1PO.A+287,49
  219 PO.A+617,238
  220 PO.A+618,B
  235 PO.A+94,50;PO.A+31,154
  254 A=A+166;GOS.1200
  255 A=A+198;GOS.1300
  256 PO.A+94,51
  257 PO.A+618,150
  258 PO.A+619,B
  259 PO.A+619,149
  260 PO.A+652,B
  275 PO.A+94,52
  276 A=A+198;GOS.1200
  277 A=A+166;A=A+64;GOS.1300
  278 PO.A+94,53
  279 PO.A+652,145
  280 PO.A+685,B
  290 PO.A+685,155
  295 PO.A+94,54
  300 PO.A+717,B
  315 PO.A+94,55
  316 A=A+166;A=A+64;GOS.1200
  317 A=A+166;A=A+96;GOS.1300
  319 PO.A+717,156
  320 PO.A+749,B
  335 PO.A+94,56;A=A+262;GOS.1200;A=A+294;GOS.1300
  339 PO.A+749,244
  340 PO.A+781,B
  355 PO.A+94,57;A=A+294;GOS.1200;A=A+166+96+64;GOS.1300
  358 PO.A+781,244
  360 PO.A+813,B
  365 PO.A+93,49;PO.A+94,48
  366 A=A+166+96+64;GOS.1200;A=A+166+96+64+32;GOS.1300
  370 PO.A+813,153
  375 PO.A+94,49
  380 PO.A+845,B
  385 A=A+358;GOS.1200;A=A+358+32;GOS.1300
  390 PO.A+845,152
  400 PO.A+876,B
  405 PO.A+94,50;A=A+358+32;GOS.1200;A=A+358+64;GOS.1300
  410 PO.A+876,144
  420 PO.A+907,B
  425 PO.A+94,51
  430 PO.A+907,147
  432 PO.A+94,53
  440 PO.A+906,B
  441 PO.A+94,54
  450 PO.A+906,146
  451 PO.A+94,55
  453 IFN=2PO.A+351,45
  455 IFN=2PO.A+135,32
  456 IFN=2PO.A+136,32
  457 IFN=2PO.A+138,32
  460 PO.A+905,B
  461 PO.A+94,56
  462 A=A+358+64;GOS.1200;A=A+358+96;GOS.1300
  463 PO.A+103,238
  464 PO.A+135,32
  465 PO.A+31,85;PO.A+159,76;IFN=1PO.A+287,50;IFN=1GOS.2050
  466 PO.A+94,51
  467 IFN=2GOS.2200
  468 IFN=2PO.A+287,52
  469 IFN=2PO.A+223,72
  470 PO.A+905,226
  500 PO.A+904,226;PO.A+94,57;PO.A+904,B
  510 PO.A+904,226
  520 PO.A+903,B;PO.A+94,48;PO.A+93,50;PO.A+31,157
  530 PO.A+903,149
  540 PO.A+902,B;PO.A+94,49
  550 PO.A+902,150
  560 PO.A+869,B;PO.A+94,50
  562 A=A+358+96;GOS.1400
  565 A=A+358+64;GOS.1000
  566 PO.A+94,51
  570 PO.A+869,145
  580 PO.A+836,B
  581 PO.A+94,52
  585 A=A+422;GOS.1400;A=A+422-32;GOS.1000
  590 PO.A+836,156
  600 PO.A+804,B;PO.A+94,53
  605 A=A+390;GOS.1400
  606 A=A+390-32;GOS.1000
  610 PO.A+804,155
  620 PO.A+772,B;PO.A+94,54
  625 A=A+358;GOS.1400
  626 A=A+358-32;GOS.1000
  630 PO.A+772,232
  640 PO.A+740,B
  642 PO.A+94,55
  644 A=A+358-32;GOS.1400
  646 A=A+358-64;GOS.1000
  650 PO.A+740,232
  660 PO.A+708,B;PO.A+94,56
  670 PO.A+708,152
  680 PO.A+676,B;PO.A+94,57
  685 A=A+358-64;GOS.1400
  686 A=A+358-96;GOS.1000
  690 PO.A+676,153
  700 PO.A+645,B
  701 PO.A+93,51;PO.A+94,48
  703 A=A+262;GOS.1400;A=A+262-32;GOS.1000
  704 PO.A+94,50
  705 PO.A+645,144
  710 PO.A+614,B
  712 PO.A+94,51
  714 A=A+230;GOS.1400;A=A+230-32;GOS.1000
  716 PO.A+614,146
  720 PO.A+615,B
  722 PO.A+94,52
  724 A=A+198;GOS.1400;A=A+198-32;GOS.1000
  726 PO.A+615,147
  730 PO.A+616,B
  732 PO.A+94,53
  734 PO.A+93,48;PO.A+94,48;PO.A+95,48
  736 GOS.4000
  750 PO.A+616,238
  760 PO.A+138,32
  790 N.N
  800 G.198
  900 STOP
 1000 PO.A,168;PO.A+5,169;F.X=A+1TOA+4;PO.X,160;N.X
 1010 PO.A+32,161;PO.A+37,161;PO.A+64,161;PO.A+69,161
 1020 PO.A+66,134;PO.A+67,135
 1030 PO.A+98,133;PO.A+99,132
 1033 A=H.(EC20)
 1035 RET.
 1040 REM DAS WAR DE KOLBEN
 1190 REM PO.32 KOLBEN
 1200 F.X=ATOA+5;PO.X,32;N.X
 1210 PO.A+66,32;PO.A+67,32
 1220 PO.A+98,32;PO.A+99,32
 1235 A=H.(EC20)
 1240 RET.
 1300 PO.A,168;PO.A+5,169;F.X=A+1TOA+4;PO.X,160;N.X
 1310 PO.A+66,134;PO.A+67,135;PO.A+98,133;PO.A+99,132
 1340 PO.A+64,161;PO.A+69,161
 1350 A=H.(EC20)
 1360 RET.
 1400 PO.A+98,32;PO.A+99,32
 1410 PO.A+64,32;PO.A+67,32
 1411 PO.A+66,32;PO.A+69,32
 1420 F.X=ATOA+5;PO.X,32;N.X
 1425 A=H.(EC20)
 1430 RET.
 2000 REM VENTIL E OFFEN
 2010 F.X=A+7TOA+103STEP32;PO.X,161;N.X;PO.A+135,238
 2020 RET.
 2050 REM VENT.E ZU
 2100 F.X=A+7TOA+71STEP32;PO.X,161;N.X;PO.A+103,238
 2110 RET.
 2190 REM V A OFFEN
 2200 F.X=A+10TOA+106STEP32
 2210 PO.X,161;N.X;PO.A+138,238
 2220 RET.
 2250 REM V A ZU
 2300 F.X=A+10TOA+74STEP32
 2310 PO.X,161;N.X;PO.A+106,238
 2320 RET.
 3000 TAB(15)
 3005 TAB(32)
 3010 PR."KOLBENSTAND  :   "
 3020 TAB(15)
 3030 PR."W IN GRAD    :000"
 3040 TAB(15)
 3050 PR."EINLASSVENTIL:   "
 3060 TAB(15)
 3070 PR."AUSLASSVENTIL:   "
 3080 TAB(15)
 3090 PR."TAKT         :   "
 3100 TAB(15)
 3110 PR."ZUENDUNG     :   "
 3115 TAB(149)
 3116 PR."4-TAKT-OTTO"
 3117 TAB(24)
 3118 PR."MOTOR"
 3119 TAB(24)
 3120 RET.
 4000 A=H.(EC20)
 4005 IFN=1PO.A+351,42
 4006 A=H.(EC20)
 4010 RET.