Verwendete IO-Ports bzw. Hardware:
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.