|
DataMuseum.dkPresents historical artifacts from the history of: RegneCentralen RC3600/RC7000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RegneCentralen RC3600/RC7000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 6656 (0x1a00)
Names: »B51«
└─⟦6dbcc9c03⟧ Bits:30000463 DOMUS disk image
└─ ⟦this⟧ »/B51«
0x0000…0020 20 30 30 31 30 20 52 45 4d 20 2a 20 2a 20 2a 20 20 45 20 4e 20 41 20 52 20 4d 20 20 2a 20 2a 20 ┆ 0010 REM * * * E N A R M * * ┆
0x0020…0040 2a 0d 0a 20 30 30 32 30 20 52 45 4d 20 45 52 49 4b 20 52 41 53 4d 55 53 53 45 4e 2c 20 48 4a 41 ┆* 0020 REM ERIK RASMUSSEN, HJA┆
0x0040…0060 4c 4c 45 53 45 53 4b 4f 4c 45 4e 2c 20 31 35 2d 32 2d 38 31 0d 0a 20 30 30 33 30 20 44 49 4d 20 ┆LLESESKOLEN, 15-2-81 0030 DIM ┆
0x0060…0080 50 24 28 38 30 29 2c 53 24 28 33 31 29 2c 53 31 24 28 33 31 29 2c 53 32 24 28 33 31 29 2c 53 33 ┆P$(80),S$(31),S1$(31),S2$(31),S3┆
0x0080…00a0 24 28 33 31 29 2c 53 34 24 28 38 30 29 2c 53 35 24 28 31 36 30 29 2c 54 41 4c 28 31 30 30 29 0d ┆$(31),S4$(80),S5$(160),TAL(100) ┆
0x00a0…00c0 0a 20 30 30 34 30 20 44 49 4d 20 50 31 24 28 38 30 29 0d 0a 20 30 30 35 30 20 53 31 24 3d 22 20 ┆ 0040 DIM P1$(80) 0050 S1$=" ┆
0x00c0…00e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3b ┆ ";┆
0x00e0…0100 20 53 32 24 3d 22 20 20 20 20 20 20 20 20 20 22 0d 0a 20 30 30 36 30 20 46 4f 52 20 51 3d 31 20 ┆ S2$=" " 0060 FOR Q=1 ┆
0x0100…0120 54 4f 20 31 31 0d 0a 20 30 30 37 30 20 20 20 53 33 24 3d 53 33 24 2b 43 48 52 28 31 32 37 29 0d ┆TO 11 0070 S3$=S3$+CHR(127) ┆
0x0120…0140 0a 20 30 30 38 30 20 4e 45 58 54 20 51 0d 0a 20 30 30 39 30 20 52 41 4e 44 4f 4d 49 5a 45 20 0d ┆ 0080 NEXT Q 0090 RANDOMIZE ┆
0x0140…0160 0a 20 30 31 30 30 20 53 34 24 3d 22 4b 49 52 53 45 42 5b 52 20 20 2c 2c 42 41 52 2c 2c 20 20 42 ┆ 0100 S4$="KIRSEBÆR ,,BAR,, B┆
0x0160…0180 4c 4f 4d 4d 45 20 20 20 43 49 54 52 4f 4e 20 20 46 49 52 4b 4c 5c 56 45 52 41 50 50 45 4c 53 49 ┆LOMME CITRON FIRKLØVERAPPELSI┆
0x0180…01a0 4e 20 20 4b 4c 4f 4b 4b 45 20 20 22 0d 0a 20 30 31 31 30 20 44 45 46 20 46 4e 43 28 58 29 3d 39 ┆N KLOKKE " 0110 DEF FNC(X)=9┆
0x01a0…01c0 35 2b 58 2d 36 34 2a 28 58 3e 33 32 29 2d 36 34 2a 28 58 3e 36 34 29 0d 0a 20 30 31 32 30 20 50 ┆5+X-64*(X>32)-64*(X>64) 0120 P┆
0x01c0…01e0 52 4f 43 20 50 4c 4f 54 28 58 58 2c 59 59 2c 43 43 29 0d 0a 20 30 31 33 30 20 20 20 50 52 49 4e ┆ROC PLOT(XX,YY,CC) 0130 PRIN┆
0x01e0…0200 54 20 43 48 52 28 36 29 3b 20 43 48 52 28 46 4e 43 28 58 58 29 29 3b 20 43 48 52 28 46 4e 43 28 ┆T CHR(6); CHR(FNC(XX)); CHR(FNC(┆
0x0200…0220 59 59 29 29 3b 20 43 48 52 28 43 43 29 3b 20 50 24 3b 20 43 48 52 28 31 32 38 29 3b 20 0d 0a 20 ┆YY)); CHR(CC); P$; CHR(128); ┆
0x0220…0240 30 31 34 30 20 45 4e 44 50 52 4f 43 20 0d 0a 20 30 31 35 30 20 50 52 49 4e 54 20 43 48 52 28 31 ┆0140 ENDPROC 0150 PRINT CHR(1┆
0x0240…0260 32 29 3b 20 43 48 52 28 31 33 30 29 3b 20 22 20 20 20 20 20 20 24 20 24 20 24 20 24 20 24 20 20 ┆2); CHR(130); " $ $ $ $ $ ┆
0x0260…0280 22 3b 20 43 48 52 28 31 34 34 29 3b 20 0d 0a 20 30 31 36 30 20 50 52 49 4e 54 20 22 20 44 20 45 ┆"; CHR(144); 0160 PRINT " D E┆
0x0280…02a0 20 4e 20 20 20 45 20 4e 20 41 20 52 20 4d 20 45 20 44 20 45 20 20 20 54 20 59 20 56 20 45 20 4b ┆ N E N A R M E D E T Y V E K┆
0x02a0…02c0 20 4e 20 5b 20 47 20 54 20 22 3b 20 0d 0a 20 30 31 37 30 20 50 52 49 4e 54 20 43 48 52 28 31 33 ┆ N Æ G T "; 0170 PRINT CHR(13┆
0x02c0…02e0 30 29 3b 20 22 20 20 24 20 24 20 24 20 24 20 24 22 3b 20 43 48 52 28 31 32 38 29 0d 0a 20 30 31 ┆0); " $ $ $ $ $"; CHR(128) 01┆
0x02e0…0300 38 30 20 53 55 4d 3d 31 30 30 0d 0a 20 30 31 39 30 20 50 52 49 4e 54 20 0d 0a 20 30 32 30 30 20 ┆80 SUM=100 0190 PRINT 0200 ┆
0x0300…0320 50 52 49 4e 54 20 22 20 20 20 20 20 53 54 41 52 54 53 55 4d 4d 45 4e 20 45 52 20 31 30 30 20 4b ┆PRINT " STARTSUMMEN ER 100 K┆
0x0320…0340 52 2e 20 49 4e 44 53 41 54 53 45 4e 20 4b 41 4e 20 56 5b 52 45 20 46 52 41 20 31 20 54 49 4c 20 ┆R. INDSATSEN KAN VÆRE FRA 1 TIL ┆
0x0340…0360 39 20 4b 52 2e 22 0d 0a 20 30 32 31 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 45 4e 20 45 56 54 ┆9 KR." 0210 PRINT " EN EVT┆
0x0360…0380 2e 20 47 45 56 49 4e 53 54 20 47 41 4e 47 45 53 20 4d 45 44 20 49 4e 44 53 41 54 53 45 4e 2e 20 ┆. GEVINST GANGES MED INDSATSEN. ┆
0x0380…03a0 4d 45 4e 20 54 52 4f 20 49 4b 4b 45 2c 20 41 54 20 44 55 20 56 49 4e 44 45 52 22 0d 0a 20 30 32 ┆MEN TRO IKKE, AT DU VINDER" 02┆
0x03a0…03c0 32 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 53 54 4f 52 45 20 53 4c 41 4d 42 45 52 54 20 48 41 ┆20 PRINT " STORE SLAMBERT HA┆
0x03c0…03e0 52 20 4b 52 41 4d 4d 45 54 20 50 5d 20 44 49 47 2e 22 0d 0a 20 30 32 33 30 20 50 52 49 4e 54 20 ┆R KRAMMET PÅ DIG." 0230 PRINT ┆
0x03e0…0400 22 20 20 20 20 20 47 20 4f 20 44 20 20 20 46 20 4f 20 52 20 4e 20 5c 20 4a 20 45 20 4c 20 53 20 ┆" G O D F O R N Ø J E L S ┆
0x0400…0420 45 20 22 0d 0a 20 30 32 34 30 20 46 4f 52 20 51 3d 31 20 54 4f 20 31 30 30 0d 0a 20 30 32 35 30 ┆E " 0240 FOR Q=1 TO 100 0250┆
0x0420…0440 20 20 20 54 41 4c 28 51 29 3d 49 4e 54 28 52 4e 44 28 30 29 2a 37 29 0d 0a 20 30 32 36 30 20 4e ┆ TAL(Q)=INT(RND(0)*7) 0260 N┆
0x0440…0460 45 58 54 20 51 0d 0a 20 30 32 37 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 54 52 59 4b 20 3c 53 ┆EXT Q 0270 PRINT " TRYK <S┆
0x0460…0480 50 41 43 45 3e 20 4e 5d 52 20 44 55 20 45 52 20 4b 4c 41 52 20 22 0d 0a 20 30 32 38 30 20 5a 3d ┆PACE> NÅR DU ER KLAR " 0280 Z=┆
0x0480…04a0 4b 45 59 28 30 29 0d 0a 20 30 32 39 30 20 52 45 4d 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 4b 41 53 ┆KEY(0) 0290 REM ---------- KAS┆
0x04a0…04c0 53 45 4e 20 4c 41 56 45 53 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 20 30 33 30 30 20 4f 55 54 20 ┆SEN LAVES ---------- 0300 OUT ┆
0x04c0…04e0 31 2c 30 0d 0a 20 30 33 31 30 20 50 52 49 4e 54 20 43 48 52 28 31 32 29 0d 0a 20 30 33 32 30 20 ┆1,0 0310 PRINT CHR(12) 0320 ┆
0x04e0…0500 50 24 3d 53 31 24 0d 0a 20 30 33 33 30 20 46 4f 52 20 4c 3d 33 20 54 4f 20 31 38 0d 0a 20 30 33 ┆P$=S1$ 0330 FOR L=3 TO 18 03┆
0x0500…0520 34 30 20 20 20 45 58 45 43 20 50 4c 4f 54 28 32 34 2c 4c 2c 31 34 34 29 0d 0a 20 30 33 35 30 20 ┆40 EXEC PLOT(24,L,144) 0350 ┆
0x0520…0540 20 20 50 52 49 4e 54 20 0d 0a 20 30 33 36 30 20 4e 45 58 54 20 4c 0d 0a 20 30 33 37 30 20 52 45 ┆ PRINT 0360 NEXT L 0370 RE┆
0x0540…0560 4d 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 50 59 4e 54 20 46 4f 52 4f 56 45 4e 20 2d 2d 2d 2d 2d 2d ┆M ---------- PYNT FOROVEN ------┆
0x0560…0580 2d 2d 2d 2d 0d 0a 20 30 33 38 30 20 50 24 3d 22 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 22 ┆---- 0380 P$="###############"┆
0x0580…05a0 0d 0a 20 30 33 39 30 20 45 58 45 43 20 50 4c 4f 54 28 33 32 2c 32 2c 31 34 34 29 0d 0a 20 30 34 ┆ 0390 EXEC PLOT(32,2,144) 04┆
0x05a0…05c0 30 30 20 50 52 49 4e 54 20 0d 0a 20 30 34 31 30 20 52 45 4d 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 ┆00 PRINT 0410 REM ---------- ┆
0x05c0…05e0 53 50 49 4c 4c 45 48 55 4c 4c 45 52 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 20 30 34 32 30 20 50 ┆SPILLEHULLER ---------- 0420 P┆
0x05e0…0600 24 3d 43 48 52 28 31 32 37 29 2b 53 32 24 2b 43 48 52 28 31 32 37 29 2b 53 32 24 2b 43 48 52 28 ┆$=CHR(127)+S2$+CHR(127)+S2$+CHR(┆
0x0600…0620 31 32 37 29 2b 53 32 24 2b 43 48 52 28 31 32 37 29 0d 0a 20 30 34 33 30 20 45 58 45 43 20 50 4c ┆127)+S2$+CHR(127) 0430 EXEC PL┆
0x0620…0640 4f 54 28 32 34 2c 35 2c 31 33 32 29 0d 0a 20 30 34 34 30 20 50 52 49 4e 54 20 0d 0a 20 30 34 35 ┆OT(24,5,132) 0440 PRINT 045┆
0x0640…0660 30 20 52 45 4d 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 54 45 4b 53 54 20 53 4b 52 49 56 45 53 20 2d ┆0 REM ---------- TEKST SKRIVES -┆
0x0660…0680 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 20 30 34 36 30 20 50 24 3d 22 20 20 20 20 20 20 20 20 20 20 20 ┆--------- 0460 P$=" ┆
0x0680…06a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3e 3e 20 20 20 20 22 0d 0a 20 30 34 37 30 20 45 58 45 ┆ >> " 0470 EXE┆
0x06a0…06c0 43 20 50 4c 4f 54 28 32 34 2c 37 2c 31 34 34 29 0d 0a 20 30 34 38 30 20 50 24 3d 22 20 20 53 20 ┆C PLOT(24,7,144) 0480 P$=" S ┆
0x06c0…06e0 54 20 4f 20 52 20 45 20 20 20 53 20 4c 20 41 20 4d 20 42 20 45 20 52 20 54 20 20 22 0d 0a 20 30 ┆T O R E S L A M B E R T " 0┆
0x06e0…0700 34 39 30 20 50 52 49 4e 54 20 0d 0a 20 30 35 30 30 20 45 58 45 43 20 50 4c 4f 54 28 32 34 2c 39 ┆490 PRINT 0500 EXEC PLOT(24,9┆
0x0700…0720 2c 31 34 34 29 0d 0a 20 30 35 31 30 20 50 24 3d 22 20 20 20 20 20 20 20 20 20 4f 20 20 20 20 20 ┆,144) 0510 P$=" O ┆
0x0720…0740 4f 20 20 20 20 20 4f 20 20 20 20 20 20 20 20 20 22 0d 0a 20 30 35 32 30 20 45 58 45 43 20 50 4c ┆O O " 0520 EXEC PL┆
0x0740…0760 4f 54 28 32 34 2c 31 31 2c 31 34 36 29 0d 0a 20 30 35 33 30 20 50 52 49 4e 54 20 0d 0a 20 30 35 ┆OT(24,11,146) 0530 PRINT 05┆
0x0760…0780 34 30 20 50 24 3d 22 20 20 20 20 20 43 20 20 20 41 20 20 20 53 20 20 20 49 20 20 20 4e 20 20 20 ┆40 P$=" C A S I N ┆
0x0780…07a0 4f 20 20 20 20 20 50 50 50 22 0d 0a 20 30 35 35 30 20 45 58 45 43 20 50 4c 4f 54 28 32 34 2c 31 ┆O PPP" 0550 EXEC PLOT(24,1┆
0x07a0…07c0 33 2c 31 34 38 29 0d 0a 20 30 35 36 30 20 50 52 49 4e 54 20 0d 0a 20 30 35 37 30 20 52 45 4d 20 ┆3,148) 0560 PRINT 0570 REM ┆
0x07c0…07e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 47 45 56 49 4e 53 54 48 55 4c 4c 45 54 20 2d 2d 2d 2d 2d 2d 2d ┆---------- GEVINSTHULLET -------┆
0x07e0…0800 2d 2d 2d 0d 0a 20 30 35 38 30 20 50 24 3d 53 33 24 2b 53 32 24 2b 53 33 24 0d 0a 20 30 35 39 30 ┆--- 0580 P$=S3$+S2$+S3$ 0590┆
0x0800…0820 20 46 4f 52 20 4c 3d 31 36 20 54 4f 20 31 37 0d 0a 20 30 36 30 30 20 20 20 45 58 45 43 20 50 4c ┆ FOR L=16 TO 17 0600 EXEC PL┆
0x0820…0840 4f 54 28 32 34 2c 4c 2c 31 33 32 29 0d 0a 20 30 36 31 30 20 4e 45 58 54 20 4c 0d 0a 20 30 36 32 ┆OT(24,L,132) 0610 NEXT L 062┆
0x0840…0860 30 20 50 52 49 4e 54 20 0d 0a 20 30 36 33 30 20 52 45 4d 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 54 ┆0 PRINT 0630 REM ---------- T┆
0x0860…0880 52 5b 4b 2d 41 52 4d 45 4e 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 20 30 36 34 30 20 50 24 3d 43 ┆RÆK-ARMEN ---------- 0640 P$=C┆
0x0880…08a0 48 52 28 31 32 37 29 0d 0a 20 30 36 35 30 20 46 4f 52 20 4c 3d 31 32 20 54 4f 20 36 20 53 54 45 ┆HR(127) 0650 FOR L=12 TO 6 STE┆
0x08a0…08c0 50 20 2d 31 0d 0a 20 30 36 36 30 20 20 20 45 58 45 43 20 50 4c 4f 54 28 35 37 2c 4c 2c 31 33 32 ┆P -1 0660 EXEC PLOT(57,L,132┆
0x08c0…08e0 29 0d 0a 20 30 36 37 30 20 4e 45 58 54 20 4c 0d 0a 20 30 36 38 30 20 50 52 49 4e 54 20 0d 0a 20 ┆) 0670 NEXT L 0680 PRINT ┆
0x08e0…0900 30 36 39 30 20 52 45 4d 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 46 5c 44 44 45 52 4e 45 20 2d 2d 2d ┆0690 REM ---------- FØDDERNE ---┆
0x0900…0920 2d 2d 2d 2d 2d 2d 2d 0d 0a 20 30 37 30 30 20 50 24 3d 22 23 23 23 23 23 22 0d 0a 20 30 37 31 30 ┆------- 0700 P$="#####" 0710┆
0x0920…0940 20 46 4f 52 20 56 3d 32 34 20 54 4f 20 35 30 20 53 54 45 50 20 32 36 0d 0a 20 30 37 32 30 20 20 ┆ FOR V=24 TO 50 STEP 26 0720 ┆
0x0940…0960 20 45 58 45 43 20 50 4c 4f 54 28 56 2c 31 39 2c 31 34 34 29 0d 0a 20 30 37 33 30 20 4e 45 58 54 ┆ EXEC PLOT(V,19,144) 0730 NEXT┆
0x0960…0980 20 56 0d 0a 20 30 37 34 30 20 52 45 4d 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 42 4f 52 44 50 4c 41 ┆ V 0740 REM ---------- BORDPLA┆
0x0980…09a0 44 45 4e 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 20 30 37 35 30 20 50 24 3d 22 23 23 23 23 23 23 ┆DEN ---------- 0750 P$="######┆
0x09a0…09c0 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ┆################################┆
0x09c0…09e0 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 22 0d 0a 20 30 37 36 30 20 50 52 49 ┆####################" 0760 PRI┆
0x09e0…0a00 4e 54 20 0d 0a 20 30 37 37 30 20 45 58 45 43 20 50 4c 4f 54 28 31 30 2c 32 30 2c 31 33 32 29 0d ┆NT 0770 EXEC PLOT(10,20,132) ┆
0x0a00…0a20 0a 20 30 37 38 30 20 52 45 4d 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 53 50 49 4c 4c 45 54 20 53 54 ┆ 0780 REM ---------- SPILLET ST┆
0x0a20…0a40 41 52 54 45 52 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 20 30 37 39 30 20 47 45 56 3d 30 0d 0a 20 ┆ARTER ---------- 0790 GEV=0 ┆
0x0a40…0a60 30 38 30 30 20 52 45 50 45 41 54 20 0d 0a 20 30 38 31 30 20 20 20 43 43 3d 31 32 38 0d 0a 20 30 ┆0800 REPEAT 0810 CC=128 0┆
0x0a60…0a80 38 32 30 20 20 20 49 46 20 53 55 4d 3c 31 30 20 54 48 45 4e 20 43 43 3d 31 33 30 0d 0a 20 30 38 ┆820 IF SUM<10 THEN CC=130 08┆
0x0a80…0aa0 33 30 20 20 20 50 52 49 4e 54 20 43 48 52 28 36 29 3b 20 43 48 52 28 46 4e 43 28 32 34 29 29 3b ┆30 PRINT CHR(6); CHR(FNC(24));┆
0x0aa0…0ac0 20 43 48 52 28 46 4e 43 28 32 32 29 29 3b 20 43 48 52 28 43 43 29 3b 20 0d 0a 20 30 38 34 30 20 ┆ CHR(FNC(22)); CHR(CC); 0840 ┆
0x0ac0…0ae0 20 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 20 20 20 20 50 45 4e 47 45 42 45 48 4f 4c 44 4e 49 ┆ PRINT USING " PENGEBEHOLDNI┆
0x0ae0…0b00 4e 47 3a 20 23 23 23 23 23 23 20 20 20 20 22 20 3a 20 53 55 4d 3b 20 0d 0a 20 30 38 35 30 20 20 ┆NG: ###### " : SUM; 0850 ┆
0x0b00…0b20 20 50 52 49 4e 54 20 43 48 52 28 31 32 38 29 0d 0a 20 30 38 36 30 20 20 20 50 52 49 4e 54 20 43 ┆ PRINT CHR(128) 0860 PRINT C┆
0x0b20…0b40 48 52 28 36 29 3b 20 43 48 52 28 46 4e 43 28 32 34 29 29 3b 20 43 48 52 28 46 4e 43 28 32 34 29 ┆HR(6); CHR(FNC(24)); CHR(FNC(24)┆
0x0b40…0b60 29 3b 20 43 48 52 28 31 34 34 29 3b 20 0d 0a 20 30 38 37 30 20 20 20 50 52 49 4e 54 20 55 53 49 ┆); CHR(144); 0870 PRINT USI┆
0x0b60…0b80 4e 47 20 22 20 20 20 20 47 20 45 20 56 20 49 20 4e 20 53 20 54 20 20 3a 20 23 23 23 23 23 23 20 ┆NG " G E V I N S T : ###### ┆
0x0b80…0ba0 20 20 20 22 20 3a 20 47 45 56 3b 20 0d 0a 20 30 38 38 30 20 20 20 50 52 49 4e 54 20 43 48 52 28 ┆ " : GEV; 0880 PRINT CHR(┆
0x0ba0…0bc0 31 32 38 29 0d 0a 20 30 38 39 30 20 20 20 4f 55 54 20 31 2c 33 35 0d 0a 20 30 39 30 30 20 20 20 ┆128) 0890 OUT 1,35 0900 ┆
0x0bc0…0be0 52 45 50 45 41 54 20 0d 0a 20 30 39 31 30 20 20 20 20 20 50 24 3d 22 20 20 20 20 20 20 20 20 20 ┆REPEAT 0910 P$=" ┆
0x0be0…0c00 20 20 20 20 20 20 20 20 49 4e 44 53 41 54 53 20 3e 3e 20 20 20 20 22 0d 0a 20 30 39 32 30 20 20 ┆ INDSATS >> " 0920 ┆
0x0c00…0c20 20 20 20 45 58 45 43 20 50 4c 4f 54 28 32 34 2c 37 2c 31 34 34 29 0d 0a 20 30 39 33 30 20 20 20 ┆ EXEC PLOT(24,7,144) 0930 ┆
0x0c20…0c40 20 20 50 52 49 4e 54 20 43 48 52 28 36 29 3b 20 43 48 52 28 46 4e 43 28 35 32 29 29 3b 20 43 48 ┆ PRINT CHR(6); CHR(FNC(52)); CH┆
0x0c40…0c60 52 28 46 4e 43 28 37 29 29 3b 20 43 48 52 28 31 34 34 29 3b 20 0d 0a 20 30 39 34 30 20 20 20 20 ┆R(FNC(7)); CHR(144); 0940 ┆
0x0c60…0c80 20 49 3d 4b 45 59 28 30 29 2d 34 38 0d 0a 20 30 39 35 30 20 20 20 20 20 50 52 49 4e 54 20 43 48 ┆ I=KEY(0)-48 0950 PRINT CH┆
0x0c80…0ca0 52 28 38 29 3b 20 43 48 52 28 49 2b 34 38 29 0d 0a 20 30 39 36 30 20 20 20 55 4e 54 49 4c 20 49 ┆R(8); CHR(I+48) 0960 UNTIL I┆
0x0ca0…0cc0 3d 3e 31 20 41 4e 44 20 49 3c 3d 39 20 41 4e 44 20 49 3c 3d 53 55 4d 0d 0a 20 30 39 37 30 20 20 ┆=>1 AND I<=9 AND I<=SUM 0970 ┆
0x0cc0…0ce0 20 53 55 4d 3d 53 55 4d 2d 49 0d 0a 20 30 39 38 30 20 20 20 50 52 49 4e 54 20 43 48 52 28 36 29 ┆ SUM=SUM-I 0980 PRINT CHR(6)┆
0x0ce0…0d00 3b 20 43 48 52 28 46 4e 43 28 32 34 29 29 3b 20 43 48 52 28 46 4e 43 28 32 32 29 29 3b 20 43 48 ┆; CHR(FNC(24)); CHR(FNC(22)); CH┆
0x0d00…0d20 52 28 31 32 38 29 3b 20 0d 0a 20 30 39 39 30 20 20 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 20 ┆R(128); 0990 PRINT USING " ┆
0x0d20…0d40 20 20 20 50 45 4e 47 45 42 45 48 4f 4c 44 4e 49 4e 47 3a 20 23 23 23 23 23 23 20 20 20 20 22 20 ┆ PENGEBEHOLDNING: ###### " ┆
0x0d40…0d60 3a 20 53 55 4d 3b 20 0d 0a 20 31 30 30 30 20 20 20 50 52 49 4e 54 20 43 48 52 28 31 32 38 29 0d ┆: SUM; 1000 PRINT CHR(128) ┆
0x0d60…0d80 0a 20 31 30 31 30 20 20 20 52 45 4d 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 47 45 56 49 4e 53 54 48 ┆ 1010 REM ---------- GEVINSTH┆
0x0d80…0da0 55 4c 4c 45 54 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 20 31 30 32 30 20 20 20 50 24 3d 53 33 24 ┆ULLET ---------- 1020 P$=S3$┆
0x0da0…0dc0 2b 53 32 24 2b 53 33 24 0d 0a 20 31 30 33 30 20 20 20 46 4f 52 20 4c 3d 31 36 20 54 4f 20 31 37 ┆+S2$+S3$ 1030 FOR L=16 TO 17┆
0x0dc0…0de0 0d 0a 20 31 30 34 30 20 20 20 20 20 45 58 45 43 20 50 4c 4f 54 28 32 34 2c 4c 2c 31 33 32 29 0d ┆ 1040 EXEC PLOT(24,L,132) ┆
0x0de0…0e00 0a 20 31 30 35 30 20 20 20 4e 45 58 54 20 4c 0d 0a 20 31 30 36 30 20 20 20 50 52 49 4e 54 20 0d ┆ 1050 NEXT L 1060 PRINT ┆
0x0e00…0e20 0a 20 31 30 37 30 20 20 20 52 45 4d 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 54 52 5b 4b 2d 41 52 4d ┆ 1070 REM ---------- TRÆK-ARM┆
0x0e20…0e40 20 4e 45 44 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 20 31 30 38 30 20 20 20 50 24 3d 22 20 22 0d 0a ┆ NED --------- 1080 P$=" " ┆
0x0e40…0e60 20 31 30 39 30 20 20 20 46 4f 52 20 4c 3d 36 20 54 4f 20 31 32 0d 0a 20 31 31 30 30 20 20 20 20 ┆ 1090 FOR L=6 TO 12 1100 ┆
0x0e60…0e80 20 45 58 45 43 20 50 4c 4f 54 28 35 37 2c 4c 2c 31 32 38 29 0d 0a 20 31 31 31 30 20 20 20 4e 45 ┆ EXEC PLOT(57,L,128) 1110 NE┆
0x0e80…0ea0 58 54 20 4c 0d 0a 20 31 31 32 30 20 20 20 52 45 4d 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 53 50 49 ┆XT L 1120 REM ---------- SPI┆
0x0ea0…0ec0 4c 4c 45 48 4a 55 4c 45 4e 45 53 20 54 45 4b 53 54 20 55 44 56 5b 4c 47 45 53 20 54 49 4c 46 5b ┆LLEHJULENES TEKST UDVÆLGES TILFÆ┆
0x0ec0…0ee0 4c 44 49 47 54 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 20 31 31 33 30 20 20 20 54 41 4c 28 31 29 ┆LDIGT ---------- 1130 TAL(1)┆
0x0ee0…0f00 3d 49 4e 54 28 52 4e 44 28 30 29 2a 37 29 0d 0a 20 31 31 34 30 20 20 20 54 41 4c 28 32 29 3d 49 ┆=INT(RND(0)*7) 1140 TAL(2)=I┆
0x0f00…0f20 4e 54 28 52 4e 44 28 30 29 2a 37 29 0d 0a 20 31 31 35 30 20 20 20 54 41 4c 28 33 29 3d 49 4e 54 ┆NT(RND(0)*7) 1150 TAL(3)=INT┆
0x0f20…0f40 28 52 4e 44 28 30 29 2a 37 29 0d 0a 20 31 31 36 30 20 20 20 52 45 4d 20 2d 2d 2d 2d 2d 2d 2d 2d ┆(RND(0)*7) 1160 REM --------┆
0x0f40…0f60 2d 2d 20 54 52 5b 4b 2d 41 52 4d 20 4f 50 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 20 31 31 37 30 ┆-- TRÆK-ARM OP ---------- 1170┆
0x0f60…0f80 20 20 20 50 24 3d 43 48 52 28 31 32 37 29 0d 0a 20 31 31 38 30 20 20 20 46 4f 52 20 4c 3d 31 32 ┆ P$=CHR(127) 1180 FOR L=12┆
0x0f80…0fa0 20 54 4f 20 36 20 53 54 45 50 20 2d 31 0d 0a 20 31 31 39 30 20 20 20 20 20 45 58 45 43 20 50 4c ┆ TO 6 STEP -1 1190 EXEC PL┆
0x0fa0…0fc0 4f 54 28 35 37 2c 4c 2c 31 33 32 29 0d 0a 20 31 32 30 30 20 20 20 20 20 50 52 49 4e 54 20 0d 0a ┆OT(57,L,132) 1200 PRINT ┆
0x0fc0…0fe0 20 31 32 31 30 20 20 20 4e 45 58 54 20 4c 0d 0a 20 31 32 32 30 20 20 20 52 45 4d 20 2d 2d 2d 2d ┆ 1210 NEXT L 1220 REM ----┆
0x0fe0…1000 2d 2d 2d 2d 2d 2d 20 22 53 50 49 4c 4c 45 48 4a 55 4c 45 4e 45 22 20 52 55 4c 4c 45 52 20 2d 2d ┆------ "SPILLEHJULENE" RULLER --┆
0x1000…1020 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 20 31 32 33 30 20 20 20 46 4f 52 20 51 3d 39 34 20 54 4f 20 31 20 ┆-------- 1230 FOR Q=94 TO 1 ┆
0x1020…1040 53 54 45 50 20 2d 33 0d 0a 20 31 32 34 30 20 20 20 20 20 50 52 49 4e 54 20 43 48 52 28 36 29 3b ┆STEP -3 1240 PRINT CHR(6);┆
0x1040…1060 20 43 48 52 28 31 31 39 29 3b 20 43 48 52 28 31 30 30 29 3b 20 43 48 52 28 31 33 32 29 3b 20 0d ┆ CHR(119); CHR(100); CHR(132); ┆
0x1060…1080 0a 20 31 32 35 30 20 20 20 20 20 50 52 49 4e 54 20 43 48 52 28 31 32 37 29 3b 20 53 34 24 28 54 ┆ 1250 PRINT CHR(127); S4$(T┆
0x1080…10a0 41 4c 28 28 51 29 2a 28 51 3e 38 30 29 2b 31 29 2a 39 2b 31 20 3a 20 39 29 3b 20 0d 0a 20 31 32 ┆AL((Q)*(Q>80)+1)*9+1 : 9); 12┆
0x10a0…10c0 36 30 20 20 20 20 20 50 52 49 4e 54 20 43 48 52 28 31 32 37 29 3b 20 53 34 24 28 54 41 4c 28 28 ┆60 PRINT CHR(127); S4$(TAL((┆
0x10c0…10e0 51 2b 31 29 2a 28 51 3e 34 30 29 2b 32 29 2a 39 2b 31 20 3a 20 39 29 3b 20 0d 0a 20 31 32 37 30 ┆Q+1)*(Q>40)+2)*9+1 : 9); 1270┆
0x10e0…1100 20 20 20 20 20 50 52 49 4e 54 20 43 48 52 28 31 32 37 29 3b 20 53 34 24 28 54 41 4c 28 51 2b 32 ┆ PRINT CHR(127); S4$(TAL(Q+2┆
0x1100…1120 29 2a 39 2b 31 20 3a 20 39 29 3b 20 43 48 52 28 31 32 37 29 0d 0a 20 31 32 38 30 20 20 20 4e 45 ┆)*9+1 : 9); CHR(127) 1280 NE┆
0x1120…1140 58 54 20 51 0d 0a 20 31 32 39 30 20 20 20 47 45 56 3d 30 0d 0a 20 31 33 30 30 20 20 20 52 45 4d ┆XT Q 1290 GEV=0 1300 REM┆
0x1140…1160 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 47 45 56 49 4e 53 54 20 55 44 4d 5d 4c 49 4e 47 20 2d 2d 2d ┆ ---------- GEVINST UDMÅLING ---┆
0x1160…1180 2d 2d 2d 2d 2d 2d 2d 0d 0a 20 31 33 31 30 20 20 20 49 46 20 54 41 4c 28 31 29 3d 30 20 54 48 45 ┆------- 1310 IF TAL(1)=0 THE┆
0x1180…11a0 4e 20 0d 0a 20 31 33 32 30 20 20 20 20 20 50 31 24 3d 22 20 20 20 32 20 20 20 22 3b 20 53 55 4d ┆N 1320 P1$=" 2 "; SUM┆
0x11a0…11c0 3d 53 55 4d 2b 49 2a 32 3b 20 47 45 56 3d 49 2a 32 0d 0a 20 31 33 33 30 20 20 20 20 20 49 46 20 ┆=SUM+I*2; GEV=I*2 1330 IF ┆
0x11c0…11e0 54 41 4c 28 32 29 3d 30 20 54 48 45 4e 20 50 31 24 3d 22 20 20 20 35 20 20 20 22 3b 20 53 55 4d ┆TAL(2)=0 THEN P1$=" 5 "; SUM┆
0x11e0…1200 3d 53 55 4d 2b 49 2a 35 3b 20 47 45 56 3d 49 2a 35 0d 0a 20 31 33 34 30 20 20 20 45 4e 44 49 46 ┆=SUM+I*5; GEV=I*5 1340 ENDIF┆
0x1200…1220 20 0d 0a 20 31 33 35 30 20 20 20 49 46 20 54 41 4c 28 31 29 3d 54 41 4c 28 32 29 20 41 4e 44 20 ┆ 1350 IF TAL(1)=TAL(2) AND ┆
0x1220…1240 54 41 4c 28 32 29 3d 54 41 4c 28 33 29 20 54 48 45 4e 20 0d 0a 20 31 33 36 30 20 20 20 20 20 50 ┆TAL(2)=TAL(3) THEN 1360 P┆
0x1240…1260 31 24 3d 22 20 20 31 30 20 20 20 22 3b 20 53 55 4d 3d 53 55 4d 2b 49 2a 31 30 3b 20 47 45 56 3d ┆1$=" 10 "; SUM=SUM+I*10; GEV=┆
0x1260…1280 49 2a 31 30 0d 0a 20 31 33 37 30 20 20 20 20 20 49 46 20 54 41 4c 28 31 29 3d 31 20 54 48 45 4e ┆I*10 1370 IF TAL(1)=1 THEN┆
0x1280…12a0 20 50 31 24 3d 22 4a 41 43 4b 50 4f 54 22 3b 20 53 55 4d 3d 53 55 4d 2b 49 2a 31 30 30 3b 20 47 ┆ P1$="JACKPOT"; SUM=SUM+I*100; G┆
0x12a0…12c0 45 56 3d 49 2a 31 30 30 0d 0a 20 31 33 38 30 20 20 20 20 20 49 46 20 54 41 4c 28 31 29 3d 34 20 ┆EV=I*100 1380 IF TAL(1)=4 ┆
0x12c0…12e0 54 48 45 4e 20 50 31 24 3d 22 20 20 20 35 30 20 20 22 3b 20 53 55 4d 3d 53 55 4d 2b 49 2a 35 30 ┆THEN P1$=" 50 "; SUM=SUM+I*50┆
0x12e0…1300 3b 20 47 45 56 3d 49 2a 35 30 0d 0a 20 31 33 39 30 20 20 20 20 20 49 46 20 54 41 4c 28 31 29 3d ┆; GEV=I*50 1390 IF TAL(1)=┆
0x1300…1320 36 20 54 48 45 4e 20 50 31 24 3d 22 20 20 20 31 38 20 20 22 3b 20 53 55 4d 3d 53 55 4d 2b 49 2a ┆6 THEN P1$=" 18 "; SUM=SUM+I*┆
0x1320…1340 31 38 3b 20 47 45 56 3d 49 2a 31 38 0d 0a 20 31 34 30 30 20 20 20 20 20 49 46 20 54 41 4c 28 31 ┆18; GEV=I*18 1400 IF TAL(1┆
0x1340…1360 29 3d 33 20 54 48 45 4e 20 50 31 24 3d 22 20 20 20 31 32 20 20 22 3b 20 53 55 4d 3d 53 55 4d 2b ┆)=3 THEN P1$=" 12 "; SUM=SUM+┆
0x1360…1380 49 2a 31 32 3b 20 47 45 56 3d 49 2a 31 32 0d 0a 20 31 34 31 30 20 20 20 20 20 49 46 20 54 41 4c ┆I*12; GEV=I*12 1410 IF TAL┆
0x1380…13a0 28 31 29 3d 32 20 54 48 45 4e 20 50 31 24 3d 22 20 20 20 31 34 20 20 22 3b 20 53 55 4d 3d 53 55 ┆(1)=2 THEN P1$=" 14 "; SUM=SU┆
0x13a0…13c0 4d 2b 49 2a 31 34 3b 20 47 45 56 3d 49 2a 31 34 0d 0a 20 31 34 32 30 20 20 20 45 4e 44 49 46 20 ┆M+I*14; GEV=I*14 1420 ENDIF ┆
0x13c0…13e0 0d 0a 20 31 34 33 30 20 20 20 49 46 20 54 41 4c 28 33 29 3d 31 20 54 48 45 4e 20 0d 0a 20 31 34 ┆ 1430 IF TAL(3)=1 THEN 14┆
0x13e0…1400 34 30 20 20 20 20 20 49 46 20 54 41 4c 28 31 29 3d 54 41 4c 28 32 29 20 41 4e 44 20 54 41 4c 28 ┆40 IF TAL(1)=TAL(2) AND TAL(┆
0x1400…1420 31 29 3d 36 20 54 48 45 4e 20 0d 0a 20 31 34 35 30 20 20 20 20 20 20 20 50 31 24 3d 22 20 20 31 ┆1)=6 THEN 1450 P1$=" 1┆
0x1420…1440 30 20 20 20 22 3b 20 53 55 4d 3d 53 55 4d 2b 49 2a 31 30 3b 20 47 45 56 3d 49 2a 31 30 0d 0a 20 ┆0 "; SUM=SUM+I*10; GEV=I*10 ┆
0x1440…1460 31 34 36 30 20 20 20 20 20 45 4e 44 49 46 20 0d 0a 20 31 34 37 30 20 20 20 20 20 49 46 20 54 41 ┆1460 ENDIF 1470 IF TA┆
0x1460…1480 4c 28 31 29 3d 54 41 4c 28 32 29 20 41 4e 44 20 54 41 4c 28 31 29 3d 33 20 54 48 45 4e 20 0d 0a ┆L(1)=TAL(2) AND TAL(1)=3 THEN ┆
0x1480…14a0 20 31 34 38 30 20 20 20 20 20 20 20 50 31 24 3d 22 20 20 31 30 20 20 20 22 3b 20 53 55 4d 3d 53 ┆ 1480 P1$=" 10 "; SUM=S┆
0x14a0…14c0 55 4d 2b 49 2a 31 30 3b 20 47 45 56 3d 49 2a 31 30 0d 0a 20 31 34 39 30 20 20 20 20 20 45 4e 44 ┆UM+I*10; GEV=I*10 1490 END┆
0x14c0…14e0 49 46 20 0d 0a 20 31 35 30 30 20 20 20 45 4e 44 49 46 20 0d 0a 20 31 35 31 30 20 20 20 52 45 4d ┆IF 1500 ENDIF 1510 REM┆
0x14e0…1500 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 47 45 56 49 4e 53 54 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a ┆ ---------- GEVINST ---------- ┆
0x1500…1520 20 31 35 32 30 20 20 20 49 46 20 47 45 56 3e 30 20 54 48 45 4e 20 0d 0a 20 31 35 33 30 20 20 20 ┆ 1520 IF GEV>0 THEN 1530 ┆
0x1520…1540 20 20 47 45 56 49 3d 47 45 56 2f 49 0d 0a 20 31 35 34 30 20 20 20 20 20 46 4f 52 20 51 3d 31 20 ┆ GEVI=GEV/I 1540 FOR Q=1 ┆
0x1540…1560 54 4f 20 47 45 56 49 0d 0a 20 31 35 35 30 20 20 20 20 20 20 20 43 43 3d 43 52 54 28 37 29 0d 0a ┆TO GEVI 1550 CC=CRT(7) ┆
0x1560…1580 20 31 35 36 30 20 20 20 20 20 20 20 49 46 20 47 45 56 49 3c 35 20 54 48 45 4e 20 0d 0a 20 31 35 ┆ 1560 IF GEVI<5 THEN 15┆
0x1580…15a0 37 30 20 20 20 20 20 20 20 20 20 46 4f 52 20 4a 3d 31 20 54 4f 20 31 30 30 0d 0a 20 31 35 38 30 ┆70 FOR J=1 TO 100 1580┆
0x15a0…15c0 20 20 20 20 20 20 20 20 20 4e 45 58 54 20 4a 0d 0a 20 31 35 39 30 20 20 20 20 20 20 20 45 4c 53 ┆ NEXT J 1590 ELS┆
0x15c0…15e0 45 20 0d 0a 20 31 36 30 30 20 20 20 20 20 20 20 20 20 46 4f 52 20 4a 3d 31 20 54 4f 20 38 30 0d ┆E 1600 FOR J=1 TO 80 ┆
0x15e0…1600 0a 20 31 36 31 30 20 20 20 20 20 20 20 20 20 4e 45 58 54 20 4a 0d 0a 20 31 36 32 30 20 20 20 20 ┆ 1610 NEXT J 1620 ┆
0x1600…1620 20 20 20 45 4e 44 49 46 20 0d 0a 20 31 36 33 30 20 20 20 20 20 4e 45 58 54 20 51 0d 0a 20 31 36 ┆ ENDIF 1630 NEXT Q 16┆
0x1620…1640 34 30 20 20 20 20 20 50 52 49 4e 54 20 0d 0a 20 31 36 35 30 20 20 20 20 20 50 24 3d 22 47 45 56 ┆40 PRINT 1650 P$="GEV┆
0x1640…1660 49 4e 53 54 22 2b 43 48 52 28 31 33 32 29 2b 53 33 24 0d 0a 20 31 36 36 30 20 20 20 20 20 45 58 ┆INST"+CHR(132)+S3$ 1660 EX┆
0x1660…1680 45 43 20 50 4c 4f 54 28 33 36 2c 31 36 2c 31 33 34 29 0d 0a 20 31 36 37 30 20 20 20 20 20 50 24 ┆EC PLOT(36,16,134) 1670 P$┆
0x1680…16a0 3d 50 31 24 2b 43 48 52 28 31 33 32 29 2b 53 33 24 0d 0a 20 31 36 38 30 20 20 20 20 20 45 58 45 ┆=P1$+CHR(132)+S3$ 1680 EXE┆
0x16a0…16c0 43 20 50 4c 4f 54 28 33 36 2c 31 37 2c 31 32 38 29 0d 0a 20 31 36 39 30 20 20 20 45 4e 44 49 46 ┆C PLOT(36,17,128) 1690 ENDIF┆
0x16c0…16e0 20 0d 0a 20 31 37 30 30 20 55 4e 54 49 4c 20 53 55 4d 3c 3d 30 0d 0a 20 31 37 31 30 20 50 52 49 ┆ 1700 UNTIL SUM<=0 1710 PRI┆
0x16e0…1700 4e 54 20 43 48 52 28 31 32 29 0d 0a 20 31 37 32 30 20 50 52 49 4e 54 20 43 48 52 28 36 29 3b 20 ┆NT CHR(12) 1720 PRINT CHR(6); ┆
0x1700…1720 43 48 52 28 46 4e 43 28 32 34 29 29 3b 20 43 48 52 28 46 4e 43 28 31 32 29 29 3b 20 43 48 52 28 ┆CHR(FNC(24)); CHR(FNC(12)); CHR(┆
0x1720…1740 31 34 34 29 3b 20 0d 0a 20 31 37 33 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 54 41 4b 20 46 ┆144); 1730 PRINT " TAK F┆
0x1740…1760 4f 52 20 44 45 4e 4e 45 20 47 41 4e 47 21 20 20 20 20 20 20 22 3b 20 0d 0a 20 31 37 34 30 20 50 ┆OR DENNE GANG! "; 1740 P┆
0x1760…1780 52 49 4e 54 20 43 48 52 28 31 32 38 29 0d 0a 20 31 37 35 30 20 50 52 49 4e 54 20 43 48 52 28 36 ┆RINT CHR(128) 1750 PRINT CHR(6┆
0x1780…17a0 29 3b 20 43 48 52 28 46 4e 43 28 32 34 29 29 3b 20 43 48 52 28 46 4e 43 28 31 34 29 29 3b 20 43 ┆); CHR(FNC(24)); CHR(FNC(14)); C┆
0x17a0…17c0 48 52 28 31 34 34 29 3b 20 0d 0a 20 31 37 36 30 20 50 52 49 4e 54 20 22 20 20 20 20 48 49 4c 53 ┆HR(144); 1760 PRINT " HILS┆
0x17c0…17e0 45 4e 20 20 20 53 54 4f 52 45 20 53 4c 41 4d 42 45 52 54 20 20 20 20 22 3b 20 0d 0a 20 31 37 37 ┆EN STORE SLAMBERT "; 177┆
0x17e0…1800 30 20 50 52 49 4e 54 20 43 48 52 28 31 32 38 29 3b 20 0d 0a 20 31 37 38 30 20 43 48 41 49 4e 20 ┆0 PRINT CHR(128); 1780 CHAIN ┆
0x1800…1820 22 4c 4f 47 4f 4e 22 0d 0a 03 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆"LOGON" ┆
0x1820…1840 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 ┆ ┆
[…0xe…]