|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 5056 (0x13c0)
Types: TextFile
Notes: Mikados_K
Names: »HESTSPIL.K«
└─⟦0ca3cf8fa⟧ Bits:30004600 DEMO1 - COMAL demoprogram
└─⟦this⟧ »HESTSPIL.K«
0100 REM -- H E S T E V Æ D D E L Ø B -- 0110 REM SPC/1 COMAL. STEEN OLSEN 20.02.80 0120 REM 0130 REM 0150 DIM HESTE(5),SVAR$(1) 0160 CLEAR 0170 CURSOR 20,3 0180 ; "H E S T E V Æ D D E L Ø B " 0190 CURSOR 20,4 0200 ; "-------------------------" 0210 CURSOR 5,20 0220 ; "I DETTE SPIL KAN DU SPILLER ET BELØB PÅ EN HEST, DER DELTAGER" 0230 CURSOR 5,21 0240 ; "I ET HESTEVÆDDELØB. UD FRA HESTENES SLUTPLACERING BEREGNES ODDS" 0250 CURSOR 5,22 0260 ; "OG DU TILDELES EVT. GEVINST." 0270 CURSOR 5,23 0280 INPUT "TAST RETURN, NÅR DU ER KLAR ",SVAR$ 0290 REPEAT 0300 KAPITAL=1E4 0310 REPEAT 0320 CLEAR 0330 ODDS,SLUT,FLYTTALLER=0 0340 FOR TAL=1 TO 5 0350 HESTE(TAL)=0 0360 EXEC SKRIVSTREG(TAL) 0370 EXEC SKRIVHEST(7,TAL) 0380 NEXT TAL 0390 FOR TAL1=1 TO 20 0400 CURSOR 79,TAL1 0410 ; "<S>!" 0420 NEXT TAL1 0430 CURSOR 5,22 0440 ; "KAPITAL TIL RÅDIGHED: ";KAPITAL;" KR." 0450 REPEAT 0460 CURSOR 5,23 0470 SPILHEST,INDSATS=0 0480 EDIT "HVILKEN HEST SPILLER DU PÅ: ",SPILHEST 0490 UNTIL SPILHEST>0 AND SPILHEST<6 AND SPILHEST=INT(SPILHEST) 0500 REPEAT 0510 CURSOR 40,23 0520 EDIT "HVOR MEGET (I KR.): ",INDSATS 0530 UNTIL INDSATS<=KAPITAL AND INDSATS>0 0540 KAPITAL=KAPITAL-INDSATS 0550 REPEAT ;KØR IGENNEM TIL VINDERHEST ER FUNDET 0560 TAL=0 0570 REPEAT 0580 FLYT=RND(0);TAL=TAL+1;FLYTTALLER=FLYTTALLER+1 0590 IF FLYT<.7 THEN 0600 HESTPOSITION=HESTE(TAL)+7 0610 EXEC SLETHEST(HESTPOSITION,TAL) 0620 HESTE(TAL)=HESTE(TAL)+1 0630 IF FLYTTALLER>50 THEN 0640 FLYT=RND(0) 0650 IF FLYT>.7 THEN FLYTTALLER=FLYTTALLER+1;HESTE(TAL)=HESTE(TAL)+1 0660 ENDIF 0670 HESTPOSISITION=HESTE(TAL)+7 0680 EXEC SKRIVHEST(HESTPOSITION,TAL) 0690 IF FLYTTALLER>300 THEN 0700 TAL1=1 0710 REPEAT 0720 IF HESTE(TAL1)=>70 THEN SLUT=1 0730 IF SLUT<>1 THEN TAL1=TAL1+1 0740 UNTIL TAL1>5 OR SLUT 0750 ENDIF 0760 ENDIF 0770 UNTIL TAL=>5 OR SLUT 0780 UNTIL SLUT 0790 TAL=70;OK=0 0800 REPEAT 0810 TAL=TAL-1;TAL2=0;OK=0 0820 REPEAT 0830 TAL2=TAL2+1 0840 IF TAL2<>TAL1 THEN IF HESTE(TAL2)=TAL THEN OK=1 0850 UNTIL OK=1 OR TAL2=>5 0860 UNTIL OK=1 0870 ODDS=INT(EXP(1/(HESTE(TAL2)-70))*20+1) 0880 IF SPILHEST=TAL1 THEN 0890 CURSOR 5,22 0900 ; "<S> " 0910 CURSOR 5,22 0920 ; "DIN HEST (NR.";TAL1;" VANDT";CHR(7);" MED ODDS: ";ODDS 0930 CURSOR 5,23 0940 ; "<S> " 0950 KAPITAL=KAPITAL+ODDS*INDSATS 0960 CURSOR 5,23 0970 ; "DU VANDT: ";ODDS*INDSATS;" KR., OG HAR NU : ";KAPITAL;" KR." 0980 ELSE 0990 CURSOR 5,22 1000 ; "<S> " 1010 CURSOR 5,22 1020 ; "DIN HEST VANDT IKKE";CHR(7);" ODDS BLEV: ";ODDS 1030 CURSOR 5,23 1040 ; "<S> " 1050 CURSOR 5,23 1060 ; "VINDER BLEV HEST NR.: ";TAL1;" DIN KAPITAL: ";KAPITAL;" KR." 1070 ENDIF 1080 IF KAPITAL>0 THEN 1090 CURSOR 5,24 1100 INPUT "VIL DU SPILLE IGEN ",SVAR$ 1110 ENDIF 1120 UNTIL SVAR$<>"J" AND SVAR$<>"j" OR KAPITAL=0 1130 CURSOR 5,24 1140 IF KAPITAL>0 THEN 1150 INPUT "VIL DU PRØVE FORFRA ",SVAR$ 1160 ELSE 1170 INPUT "SLUT MED PENGENE, VIL DU PRØVE FORFRA ",SVAR$ 1180 ENDIF 1190 UNTIL SVAR$<>"J" AND SVAR$<>"j" 1200 PROC SKRIVSTREG(I) 1210 CURSOR 1,I*4 1220 FOR J=1 TO 79 1230 ; "<S>-" 1240 NEXT J 1250 CURSOR 79,I*4-2 1260 ; I 1270 ENDPROC ;SKRIVSTREG(I) 1280 REM 1290 PROC SKRIVHEST(K,L) 1300 FOR M=1 TO 3 1310 CURSOR K-M,L*4-2 1320 ; "<S>=" 1330 NEXT M 1340 FOR M=2 TO 4 STEP 2 1350 CURSOR K-M,L*4-1 1360 ; "<S>/" 1370 NEXT M 1380 CURSOR K,L*4-3 1390 ; "<S>/" 1400 CURSOR K-4,L*4-2 1410 ; "<S>-" 1420 ENDPROC ;SKRIVHEST(K,L) 1430 REM 1440 PROC SLETHEST(N,O) 1450 FOR P=1 TO 3 1460 CURSOR N-6,O*4-P 1470 ; "<S> " 1480 NEXT P 1490 ENDPROC ;SLETHEST(N,O)
0x0000…002c Line {l1=0x2a, l2=»0100 REM -- H E S T E V Æ D D E L Ø B --«, l3=0x2a}
0x002c…0059 Line {l1=0x2b, l2=»0110 REM SPC/1 COMAL. STEEN OLSEN 20.02.80«, l3=0x2b}
0x0059…0064 Line {l1=0x09, l2=»0120 REM «, l3=0x09}
0x0064…006f Line {l1=0x09, l2=»0130 REM «, l3=0x09}
0x006f…008b Line {l1=0x1a, l2=»0150 DIM HESTE(5),SVAR$(1)«, l3=0x1a}
0x008b…0098 Line {l1=0x0b, l2=»0160 CLEAR «, l3=0x0b}
0x0098…00aa Line {l1=0x10, l2=»0170 CURSOR 20,3«, l3=0x10}
0x00aa…00d0 Line {l1=0x24, l2=»0180 ; "H E S T E V Æ D D E L Ø B "«, l3=0x24}
0x00d0…00e2 Line {l1=0x10, l2=»0190 CURSOR 20,4«, l3=0x10}
0x00e2…0106 Line {l1=0x22, l2=»0200 ; "-------------------------"«, l3=0x22}
0x0106…0118 Line {l1=0x10, l2=»0210 CURSOR 5,20«, l3=0x10}
0x0118…0160 Line {l1=0x46, l2=»0220 ; "I DETTE SPIL KAN DU SPILLER ET BELØB PÅ EN HEST, DER DELTAGER"«, l3=0x46}
0x0160…0172 Line {l1=0x10, l2=»0230 CURSOR 5,21«, l3=0x10}
0x0172…01bc Line {l1=0x48, l2=»0240 ; "I ET HESTEVÆDDELØB. UD FRA HESTENES SLUTPLACERING BEREGNES ODDS"«, l3=0x48}
0x01bc…01ce Line {l1=0x10, l2=»0250 CURSOR 5,22«, l3=0x10}
0x01ce…01f5 Line {l1=0x25, l2=»0260 ; "OG DU TILDELES EVT. GEVINST."«, l3=0x25}
0x01f5…0207 Line {l1=0x10, l2=»0270 CURSOR 5,23«, l3=0x10}
0x0207…0239 Line {l1=0x30, l2=»0280 INPUT "TAST RETURN, NÅR DU ER KLAR ",SVAR$«, l3=0x30}
0x0239…0247 Line {l1=0x0c, l2=»0290 REPEAT «, l3=0x0c}
0x0247…0259 Line {l1=0x10, l2=»0300 KAPITAL=1E4«, l3=0x10}
0x0259…0267 Line {l1=0x0c, l2=»0310 REPEAT «, l3=0x0c}
0x0267…0274 Line {l1=0x0b, l2=»0320 CLEAR «, l3=0x0b}
0x0274…0291 Line {l1=0x1b, l2=»0330 ODDS,SLUT,FLYTTALLER=0«, l3=0x1b}
0x0291…02a6 Line {l1=0x13, l2=»0340 FOR TAL=1 TO 5«, l3=0x13}
0x02a6…02b9 Line {l1=0x11, l2=»0350 HESTE(TAL)=0«, l3=0x11}
0x02b9…02d4 Line {l1=0x19, l2=»0360 EXEC SKRIVSTREG(TAL)«, l3=0x19}
0x02d4…02f0 Line {l1=0x1a, l2=»0370 EXEC SKRIVHEST(7,TAL)«, l3=0x1a}
0x02f0…02ff Line {l1=0x0d, l2=»0380 NEXT TAL«, l3=0x0d}
0x02ff…0316 Line {l1=0x15, l2=»0390 FOR TAL1=1 TO 20«, l3=0x15}
0x0316…032b Line {l1=0x13, l2=»0400 CURSOR 79,TAL1«, l3=0x13}
0x032b…033a Line {l1=0x0d, l2=»0410 ; "<S>!"«, l3=0x0d}
0x033a…034a Line {l1=0x0e, l2=»0420 NEXT TAL1«, l3=0x0e}
0x034a…035c Line {l1=0x10, l2=»0430 CURSOR 5,22«, l3=0x10}
0x035c…038d Line {l1=0x2f, l2=»0440 ; "KAPITAL TIL RÅDIGHED: ";KAPITAL;" KR."«, l3=0x2f}
0x038d…039b Line {l1=0x0c, l2=»0450 REPEAT «, l3=0x0c}
0x039b…03ad Line {l1=0x10, l2=»0460 CURSOR 5,23«, l3=0x10}
0x03ad…03c6 Line {l1=0x17, l2=»0470 SPILHEST,INDSATS=0«, l3=0x17}
0x03c6…03f9 Line {l1=0x31, l2=»0480 EDIT "HVILKEN HEST SPILLER DU PÅ: ",SPILHEST«, l3=0x31}
0x03f9…043a Line {l1=0x3f, l2=»0490 UNTIL SPILHEST>0 AND SPILHEST<6 AND SPILHEST=INT(SPILHEST)«, l3=0x3f}
0x043a…0448 Line {l1=0x0c, l2=»0500 REPEAT «, l3=0x0c}
0x0448…045b Line {l1=0x11, l2=»0510 CURSOR 40,23«, l3=0x11}
0x045b…0485 Line {l1=0x28, l2=»0520 EDIT "HVOR MEGET (I KR.): ",INDSATS«, l3=0x28}
0x0485…04b0 Line {l1=0x29, l2=»0530 UNTIL INDSATS<=KAPITAL AND INDSATS>0«, l3=0x29}
0x04b0…04ce Line {l1=0x1c, l2=»0540 KAPITAL=KAPITAL-INDSATS«, l3=0x1c}
0x04ce…0501 Line {l1=0x31, l2=»0550 REPEAT ;KØR IGENNEM TIL VINDERHEST ER FUNDET«, l3=0x31}
0x0501…050d Line {l1=0x0a, l2=»0560 TAL=0«, l3=0x0a}
0x050d…051b Line {l1=0x0c, l2=»0570 REPEAT «, l3=0x0c}
0x051b…054f Line {l1=0x32, l2=»0580 FLYT=RND(0);TAL=TAL+1;FLYTTALLER=FLYTTALLER+1«, l3=0x32}
0x054f…0566 Line {l1=0x15, l2=»0590 IF FLYT<.7 THEN «, l3=0x15}
0x0566…0586 Line {l1=0x1e, l2=»0600 HESTPOSITION=HESTE(TAL)+7«, l3=0x1e}
0x0586…05ac Line {l1=0x24, l2=»0610 EXEC SLETHEST(HESTPOSITION,TAL)«, l3=0x24}
0x05ac…05ca Line {l1=0x1c, l2=»0620 HESTE(TAL)=HESTE(TAL)+1«, l3=0x1c}
0x05ca…05e7 Line {l1=0x1b, l2=»0630 IF FLYTTALLER>50 THEN «, l3=0x1b}
0x05e7…05f9 Line {l1=0x10, l2=»0640 FLYT=RND(0)«, l3=0x10}
0x05f9…063f Line {l1=0x44, l2=»0650 IF FLYT>.7 THEN FLYTTALLER=FLYTTALLER+1;HESTE(TAL)=HESTE(TAL)+1«, l3=0x44}
0x063f…064c Line {l1=0x0b, l2=»0660 ENDIF «, l3=0x0b}
0x064c…066e Line {l1=0x20, l2=»0670 HESTPOSISITION=HESTE(TAL)+7«, l3=0x20}
0x066e…0695 Line {l1=0x25, l2=»0680 EXEC SKRIVHEST(HESTPOSITION,TAL)«, l3=0x25}
0x0695…06b3 Line {l1=0x1c, l2=»0690 IF FLYTTALLER>300 THEN «, l3=0x1c}
0x06b3…06c0 Line {l1=0x0b, l2=»0700 TAL1=1«, l3=0x0b}
0x06c0…06ce Line {l1=0x0c, l2=»0710 REPEAT «, l3=0x0c}
0x06ce…06f3 Line {l1=0x23, l2=»0720 IF HESTE(TAL1)=>70 THEN SLUT=1«, l3=0x23}
0x06f3…0715 Line {l1=0x20, l2=»0730 IF SLUT<>1 THEN TAL1=TAL1+1«, l3=0x20}
0x0715…0730 Line {l1=0x19, l2=»0740 UNTIL TAL1>5 OR SLUT«, l3=0x19}
0x0730…073d Line {l1=0x0b, l2=»0750 ENDIF «, l3=0x0b}
0x073d…074a Line {l1=0x0b, l2=»0760 ENDIF «, l3=0x0b}
0x074a…0765 Line {l1=0x19, l2=»0770 UNTIL TAL=>5 OR SLUT«, l3=0x19}
0x0765…0776 Line {l1=0x0f, l2=»0780 UNTIL SLUT«, l3=0x0f}
0x0776…0788 Line {l1=0x10, l2=»0790 TAL=70;OK=0«, l3=0x10}
0x0788…0796 Line {l1=0x0c, l2=»0800 REPEAT «, l3=0x0c}
0x0796…07b2 Line {l1=0x1a, l2=»0810 TAL=TAL-1;TAL2=0;OK=0«, l3=0x1a}
0x07b2…07c0 Line {l1=0x0c, l2=»0820 REPEAT «, l3=0x0c}
0x07c0…07d2 Line {l1=0x10, l2=»0830 TAL2=TAL2+1«, l3=0x10}
0x07d2…0808 Line {l1=0x34, l2=»0840 IF TAL2<>TAL1 THEN IF HESTE(TAL2)=TAL THEN OK=1«, l3=0x34}
0x0808…0824 Line {l1=0x1a, l2=»0850 UNTIL OK=1 OR TAL2=>5«, l3=0x1a}
0x0824…0835 Line {l1=0x0f, l2=»0860 UNTIL OK=1«, l3=0x0f}
0x0835…0862 Line {l1=0x2b, l2=»0870 ODDS=INT(EXP(1/(HESTE(TAL2)-70))*20+1)«, l3=0x2b}
0x0862…087f Line {l1=0x1b, l2=»0880 IF SPILHEST=TAL1 THEN «, l3=0x1b}
0x087f…0891 Line {l1=0x10, l2=»0890 CURSOR 5,22«, l3=0x10}
0x0891…08db Line {l1=0x48, l2=»0900 ; "<S> "«, l3=0x48}
0x08db…08ed Line {l1=0x10, l2=»0910 CURSOR 5,22«, l3=0x10}
0x08ed…092f Line {l1=0x40, l2=»0920 ; "DIN HEST (NR.";TAL1;" VANDT";CHR(7);" MED ODDS: ";ODDS«, l3=0x40}
0x092f…0941 Line {l1=0x10, l2=»0930 CURSOR 5,23«, l3=0x10}
0x0941…098b Line {l1=0x48, l2=»0940 ; "<S> "«, l3=0x48}
0x098b…09ae Line {l1=0x21, l2=»0950 KAPITAL=KAPITAL+ODDS*INDSATS«, l3=0x21}
0x09ae…09c0 Line {l1=0x10, l2=»0960 CURSOR 5,23«, l3=0x10}
0x09c0…0a09 Line {l1=0x47, l2=»0970 ; "DU VANDT: ";ODDS*INDSATS;" KR., OG HAR NU : ";KAPITAL;" KR."«, l3=0x47}
0x0a09…0a15 Line {l1=0x0a, l2=»0980 ELSE «, l3=0x0a}
0x0a15…0a27 Line {l1=0x10, l2=»0990 CURSOR 5,22«, l3=0x10}
0x0a27…0a6f Line {l1=0x46, l2=»1000 ; "<S> "«, l3=0x46}
0x0a6f…0a81 Line {l1=0x10, l2=»1010 CURSOR 5,22«, l3=0x10}
0x0a81…0abe Line {l1=0x3b, l2=»1020 ; "DIN HEST VANDT IKKE";CHR(7);" ODDS BLEV: ";ODDS«, l3=0x3b}
0x0abe…0ad0 Line {l1=0x10, l2=»1030 CURSOR 5,23«, l3=0x10}
0x0ad0…0b18 Line {l1=0x46, l2=»1040 ; "<S> "«, l3=0x46}
0x0b18…0b2a Line {l1=0x10, l2=»1050 CURSOR 5,23«, l3=0x10}
0x0b2a…0b73 Line {l1=0x47, l2=»1060 ; "VINDER BLEV HEST NR.: ";TAL1;" DIN KAPITAL: ";KAPITAL;" KR."«, l3=0x47}
0x0b73…0b80 Line {l1=0x0b, l2=»1070 ENDIF «, l3=0x0b}
0x0b80…0b99 Line {l1=0x17, l2=»1080 IF KAPITAL>0 THEN «, l3=0x17}
0x0b99…0bab Line {l1=0x10, l2=»1090 CURSOR 5,24«, l3=0x10}
0x0bab…0bd4 Line {l1=0x27, l2=»1100 INPUT "VIL DU SPILLE IGEN ",SVAR$«, l3=0x27}
0x0bd4…0be1 Line {l1=0x0b, l2=»1110 ENDIF «, l3=0x0b}
0x0be1…0c14 Line {l1=0x31, l2=»1120 UNTIL SVAR$<>"J" AND SVAR$<>"j" OR KAPITAL=0«, l3=0x31}
0x0c14…0c26 Line {l1=0x10, l2=»1130 CURSOR 5,24«, l3=0x10}
0x0c26…0c3f Line {l1=0x17, l2=»1140 IF KAPITAL>0 THEN «, l3=0x17}
0x0c3f…0c69 Line {l1=0x28, l2=»1150 INPUT "VIL DU PRØVE FORFRA ",SVAR$«, l3=0x28}
0x0c69…0c75 Line {l1=0x0a, l2=»1160 ELSE «, l3=0x0a}
0x0c75…0cb2 Line {l1=0x3b, l2=»1170 INPUT "SLUT MED PENGENE, VIL DU PRØVE FORFRA ",SVAR$«, l3=0x3b}
0x0cb2…0cbf Line {l1=0x0b, l2=»1180 ENDIF «, l3=0x0b}
0x0cbf…0ce5 Line {l1=0x24, l2=»1190 UNTIL SVAR$<>"J" AND SVAR$<>"j"«, l3=0x24}
0x0ce5…0cfe Line {l1=0x17, l2=»1200 PROC SKRIVSTREG(I)«, l3=0x17}
0x0cfe…0d11 Line {l1=0x11, l2=»1210 CURSOR 1,I*4«, l3=0x11}
0x0d11…0d25 Line {l1=0x12, l2=»1220 FOR J=1 TO 79«, l3=0x12}
0x0d25…0d34 Line {l1=0x0d, l2=»1230 ; "<S>-"«, l3=0x0d}
0x0d34…0d41 Line {l1=0x0b, l2=»1240 NEXT J«, l3=0x0b}
0x0d41…0d57 Line {l1=0x14, l2=»1250 CURSOR 79,I*4-2«, l3=0x14}
0x0d57…0d61 Line {l1=0x08, l2=»1260 ; I«, l3=0x08}
0x0d61…0d7e Line {l1=0x1b, l2=»1270 ENDPROC ;SKRIVSTREG(I)«, l3=0x1b}
0x0d7e…0d89 Line {l1=0x09, l2=»1280 REM «, l3=0x09}
0x0d89…0da3 Line {l1=0x18, l2=»1290 PROC SKRIVHEST(K,L)«, l3=0x18}
0x0da3…0db6 Line {l1=0x11, l2=»1300 FOR M=1 TO 3«, l3=0x11}
0x0db6…0dcd Line {l1=0x15, l2=»1310 CURSOR K-M,L*4-2«, l3=0x15}
0x0dcd…0ddc Line {l1=0x0d, l2=»1320 ; "<S>="«, l3=0x0d}
0x0ddc…0de9 Line {l1=0x0b, l2=»1330 NEXT M«, l3=0x0b}
0x0de9…0e03 Line {l1=0x18, l2=»1340 FOR M=2 TO 4 STEP 2«, l3=0x18}
0x0e03…0e1a Line {l1=0x15, l2=»1350 CURSOR K-M,L*4-1«, l3=0x15}
0x0e1a…0e29 Line {l1=0x0d, l2=»1360 ; "<S>/"«, l3=0x0d}
0x0e29…0e36 Line {l1=0x0b, l2=»1370 NEXT M«, l3=0x0b}
0x0e36…0e4b Line {l1=0x13, l2=»1380 CURSOR K,L*4-3«, l3=0x13}
0x0e4b…0e5a Line {l1=0x0d, l2=»1390 ; "<S>/"«, l3=0x0d}
0x0e5a…0e71 Line {l1=0x15, l2=»1400 CURSOR K-4,L*4-2«, l3=0x15}
0x0e71…0e80 Line {l1=0x0d, l2=»1410 ; "<S>-"«, l3=0x0d}
0x0e80…0e9e Line {l1=0x1c, l2=»1420 ENDPROC ;SKRIVHEST(K,L)«, l3=0x1c}
0x0e9e…0ea9 Line {l1=0x09, l2=»1430 REM «, l3=0x09}
0x0ea9…0ec2 Line {l1=0x17, l2=»1440 PROC SLETHEST(N,O)«, l3=0x17}
0x0ec2…0ed5 Line {l1=0x11, l2=»1450 FOR P=1 TO 3«, l3=0x11}
0x0ed5…0eec Line {l1=0x15, l2=»1460 CURSOR N-6,O*4-P«, l3=0x15}
0x0eec…0f02 Line {l1=0x14, l2=»1470 ; "<S> "«, l3=0x14}
0x0f02…0f0f Line {l1=0x0b, l2=»1480 NEXT P«, l3=0x0b}
0x0f0f…0f2c Line {l1=0x1b, l2=»1490 ENDPROC ;SLETHEST(N,O)«, l3=0x1b}
0x0f2c…0f40 00 00 3b 53 4c 45 54 48 45 53 54 28 4e 2c 4f 29 1b 00 00 28 ┆ ;SLETHEST(N,O) (┆
0x0f40…0f60 4e 2c 4f 29 17 11 31 35 31 30 20 46 4f 52 20 50 3d 31 20 54 4f 20 33 11 15 31 35 32 30 20 43 55 ┆N,O) 1510 FOR P=1 TO 3 1520 CU┆
0x0f60…0f80 52 53 4f 52 20 4e 2d 36 2c 4f 2a 34 2d 50 15 14 31 35 33 30 20 3b 20 22 3c 53 3e 20 20 20 20 20 ┆RSOR N-6,O*4-P 1530 ; "<S> ┆
0x0f80…0fa0 20 20 20 22 14 0b 31 35 34 30 20 4e 45 58 54 20 50 0b 1b 31 35 35 30 20 45 4e 44 50 52 4f 43 20 ┆ " 1540 NEXT P 1550 ENDPROC ┆
0x0fa0…0fc0 3b 53 4c 45 54 48 45 53 54 28 4e 2c 4f 29 1b 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆;SLETHEST(N,O) ┆
0x0fc0…0fe0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x1f…]