|
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: 2560 (0xa00)
Types: COMAL_SAVE
Names: »GÆT«
└─⟦c136eefb5⟧ Bits:30000468 DOMUS disk image, Nakskov gymnasium, bruger filer
└─⟦this⟧
SAVE filename: "GÆT" 0010 REM PETER JØRGENSEN«nul» 0020 RANDOMIZE 0030 DIM SVAR$ ( 3 ) 0040 LET SVAR$ = "JA" 0050 LET I = 0 0060 WHILE SVAR$ = "JA" DO 0070 LET ANTG[T = 0 0080 LET TAL = INT ( 100 * RND ( I ) ) 0090 PRINT 0100 PRINT "<27><12>" 0110 PRINT "DU SKAL GÆTTE ET TAL MELLEM 1 OG 100" 0120 INPUT "INDTAST DET TAL DU GÆTTER PÅ OG TRYK PÅ RETURN " , G[T 0130 REPEAT 0140 IF ANTG[T <> 0 AND TAL <> G[T THEN 0150 INPUT G[T 0160 ENDIF 0170 LET ANTG[T = ANTG[T + 1 0180 IF TAL > G[T THEN 0190 PRINT 0200 PRINT "TALLET ER STØRRE" 0210 PRINT "INDTAST ET NYT GÆT OG TRYK PÅ RETURN" ; 0220 ELSE 0230 IF TAL < G[T THEN 0240 PRINT 0250 PRINT "TALLET ER MINDRE" 0260 PRINT "INDTAST ET NYT GÆT OG TRYK PÅ RETURN" ; 0270 ELSE 0280 PRINT 0290 PRINT "DU HAR GÆTTET RIGTIGT" 0300 PRINT 0310 PRINT 0320 PRINT 0330 ENDIF 0340 ENDIF 0350 UNTIL TAL = G[T 0360 PRINT 0370 LET I = I + 1 0380 PRINT "TÆNK PÅ ET TAL MELLEM 1 OG 100" 0390 DELAY = 5 0400 PRINT 0410 LET SVAR = 1 0420 LET MIN = 0 0430 LET MAX = 100 0440 LET GANG = 0 0450 LET TAL = 100 0460 LET UDE = 0 0470 REPEAT 0480 CASE SVAR OF 0490 PRINT "DU HAR TASTET FORKERT. OM IGEN" 0500 GOTO 0960 0510 WHEN 0 0520 PRINT 0530 IF GANG = 1 THEN 0540 PRINT "JEG GÆTTEDE TALLET PÅ 1. GANG" 0550 ELSE 0560 PRINT "JEG GÆTTEDE TALLLET PÅ " ; GANG ; " GANGE" 0570 ENDIF 0580 IF ANTG[T = 1 THEN 0590 PRINT "DU GÆTTEDE TALLET PÅ 1. GANG" 0600 ELSE 0610 PRINT "DU GÆTTEDE TALLET PÅ " ; ANTG[T ; " GANGE" 0620 ENDIF 0630 PRINT 0640 IF GANG < ANTG[T THEN 0650 PRINT "JEG VAR " ; ANTG[T - GANG ; " GANGE BEDRE END DIG" 0660 ELSE 0670 IF ANTG[T < GANG THEN 0680 PRINT "DU VAR " ; GANG - ANTG[T ; " GANGE BEDRE END MIG" 0690 ELSE 0700 PRINT "VI VAR LIGE GODE" 0710 ENDIF 0720 ENDIF 0730 FOR V = 1 TO 7 0740 PRINT 0750 NEXT 0760 INPUT "VIL DU PRØVE EN GANG TIL? " , SVAR$ 0770 IF SVAR$ = "JA" THEN 0780 GOTO 0070 0790 ELSE 0800 LET UDE = 1 0810 ENDIF 0820 WHEN 1 0830 LET MAX = TAL 0840 LET TAL = INT ( ( MAX - MIN ) / 2 + MIN ) 0850 WHEN 2 0860 LET MIN = TAL 0870 LET TAL = INT ( ( MAX - MIN ) / 2 + MIN ) 0880 ENDCASE «nul» 0890 IF SVAR = 1 OR SVAR = 2 THEN 0900 PRINT "JEG GÆTTER AT TALLET ER " ; TAL 0910 PRINT 0920 PRINT "HVIS TALLET DU TÆNKER PÅ ER: DET SAMME TAST 0" 0930 PRINT " MINDRE TAST 1" 0940 PRINT " STØRRE TAST 2" 0950 LET GANG = GANG + 1 0960 INPUT SVAR 0970 ENDIF 0980 UNTIL UDE = 1 0990 ENDWHILE 1000 FOR X = 1 TO 23 1010 PRINT 1020 NEXT 1030 PRINT "SPILLET ER SLUT" 1040 DELAY = 3 1050 FOR SKRIV = 1 TO 30 1060 PRINT 1070 NEXT 1080 END «nul»
FNA definition = 0xffff
FNB definition = 0xffff
FNC definition = 0xffff
FND definition = 0xffff
FNE definition = 0xffff
FNF definition = 0xffff
FNG definition = 0xffff
FNH definition = 0xffff
FNI definition = 0xffff
FNJ definition = 0xffff
FNK definition = 0xffff
FNL definition = 0xffff
FNM definition = 0xffff
FNN definition = 0xffff
FNO definition = 0xffff
FNP definition = 0xffff
FNQ definition = 0xffff
FNR definition = 0xffff
FNS definition = 0xffff
FNT definition = 0xffff
FNU definition = 0xffff
FNV definition = 0xffff
FNW definition = 0xffff
FNX definition = 0xffff
FNY definition = 0xffff
FNZ definition = 0xffff
FN[ definition = 0xffff
FN\ definition = 0xffff
FN] definition = 0xffff
GOSUB-RETURN stack pointer = 0x0000
stack[0] = 0x0000
stack[1] = 0x0000
stack[2] = 0x0000
stack[3] = 0x0000
stack[4] = 0x0000
stack[5] = 0x0000
stack[6] = 0x0000
FOR-NEXT stack pointer = 0x0001
Var# = 0x0193
Loop Top = 0x0000
To Val = 0 (0x00000000)
Step Val = 0 (0x00000000)
Var# = 0x0000
Loop Top = 0x0001
To Val = 3.30603e-78 (0x00620000)
Step Val = 0 (0x00000000)
Var# = 0x0000
Loop Top = 0x0000
To Val = 5.14756e-85 (0x00000001)
Step Val = 0 (0x00000000)
Var# = 0x0000
Loop Top = 0x0000
To Val = 0 (0x00000000)
Step Val = 0 (0x00000000)
Var# = 0x008b
Loop Top = 0x0290
To Val = 7 (0x41700000)
Step Val = 1 (0x41100000)
Var# = 0x0000
Loop Top = 0x0000
To Val = 0 (0x00000000)
Step Val = 0 (0x00000000)
Var# = 0x0000
Loop Top = 0x0000
To Val = 0 (0x00000000)
Step Val = 0 (0x00000000)
REPEAT-UNTIL stack pointer = 0x0000
stack[0] = 0x0000
stack[1] = 0x0000
stack[2] = 0x0000
stack[3] = 0x0000
stack[4] = 0x0000
stack[5] = 0x0000
stack[6] = 0x0000
WHILE-ENDWHILE stack pointer = 0x0000
stack[0] = 0x0000
stack[1] = 0x0000
stack[2] = 0x0000
stack[3] = 0x0000
stack[4] = 0x0000
stack[5] = 0x0000
stack[6] = 0x0000
IF-ELSE stack pointer = 0x0000
stack[0] = 0x0000
stack[1] = 0x0000
stack[2] = 0x0000
stack[3] = 0x0000
stack[4] = 0x0000
stack[5] = 0x0000
stack[6] = 0x0000
Variables:
0x80 0xffff 0x00
0x81 0x0000 0x02 SVAR$
0x82 0x0005 0x00 I
0x83 0x0007 0x00 ANTG[T
0x84 0x0009 0x00 TAL
0x85 0x000b 0x00 G[T
0x86 0x000d 0x00 SVAR
0x87 0x000f 0x00 MIN
0x88 0x0011 0x00 MAX
0x89 0x0013 0x00 GANG
0x8a 0x0015 0x00 UDE
0x8b 0x0017 0x00 V
0x8c 0xffff 0x00 X
0x8d 0xffff 0x00 SKRIV
.magic = 0x4e32 .u_pas = 0x0392 // Length of UPAS in words .u_das = 0x00c7 // Length of UDAS in words .u_dvs = 0x00ae // Start på savede variabel indhold (word adr) .u_nds = 0x00b2 // Address på næste prog.sætning (word adr) .u_cps = 0x0000 // Address på curr prog.sætning (word adr) .u_tll = 0x0048 // Page størrelse .u_tts = 0x000e // TAP størrelse .u_ran = 0x0001 // Random tal .u_cdl = 0x0006 // Current DATA sætning ptr .u_cdb = 0xe250 // Current DATA byte ptr .u_esa = 0x0042 // ON ESE (word adr) .u_era = 0x0000 // ON ERR (word adr) .u_cas = 0xffff // CASE dybde .u_las = 0xffff // last (-1)