|
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ÆTTE«
└─⟦d85593a46⟧ Bits:30000470 DOMUS disk image - User files
└─⟦this⟧
SAVE filename: "GÆT" 0001 REM LARS BENDSEN 26/11/81«nul» 0002 RANDOMIZE 0003 DIM SVAR$ ( 3 ) 0004 LET SVAR$ = "JA" 0005 LET I = 0 0006 WHILE SVAR$ = "JA" DO 0007 LET ANTG[T = 0 0008 LET TAL = INT ( 100 * RND ( I ) ) 0009 PRINT 0010 PRINT "<27><12>" 0011 PRINT "DU SKAL GÆTTE ET TAL MELLEM 1 OG 100" 0012 INPUT "INDTAST DET TAL DU GÆTTER PÅ OG TRYK PÅ RETURN " , G[T 0013 REPEAT 0014 IF ANTG[T <> 0 AND TAL <> G[T THEN 0015 INPUT G[T 0016 ENDIF 0017 LET ANTG[T = ANTG[T + 1 0018 IF TAL > G[T THEN 0019 PRINT 0020 PRINT "TALLET ER STØRRE" 0021 PRINT "INDTAST ET NYT GÆT OG TRYK PÅ RETURN" ; 0022 ELSE 0023 IF TAL < G[T THEN 0024 PRINT 0025 PRINT "TALLET ER MINDRE" 0026 PRINT "INDTAST ET NYT GÆT OG TRYK PÅ RETURN" ; 0027 ELSE 0028 PRINT 0029 PRINT "DU HAR GÆTTET RIGTIGT" 0030 PRINT 0031 PRINT 0032 PRINT 0033 ENDIF 0034 ENDIF 0035 UNTIL TAL = G[T 0036 PRINT 0037 LET I = I + 1 0038 PRINT "TÆNK PÅ ET TAL MELLEM 1 OG 100" 0039 DELAY = 5 0040 PRINT 0041 LET SVAR = 1 0042 LET MIN = 0 0043 LET MAX = 100 0044 LET GANG = 0 0045 LET TAL = 100 0046 LET UDE = 0 0047 REPEAT 0048 CASE SVAR OF 0049 PRINT "DU HAR TASTET FORKERT. OM IGEN" 0050 GOTO 0096 0051 WHEN 0 0052 PRINT 0053 IF GANG = 1 THEN 0054 PRINT "JEG GÆTTEDE TALLET PÅ 1. GANG" 0055 ELSE 0056 PRINT "JEG GÆTTEDE TALLLET PÅ " ; GANG ; " GANGE" 0057 ENDIF 0058 IF ANTG[T = 1 THEN 0059 PRINT "DU GÆTTEDE TALLET PÅ 1. GANG" 0060 ELSE 0061 PRINT "DU GÆTTEDE TALLET PÅ " ; ANTG[T ; " GANGE" 0062 ENDIF 0063 PRINT 0064 IF GANG < ANTG[T THEN 0065 PRINT "JEG VAR " ; ANTG[T - GANG ; " GANG(E) BEDRE END DIG" 0066 ELSE 0067 IF ANTG[T < GANG THEN 0068 PRINT "DU VAR " ; GANG - ANTG[T ; " GANGE BEDRE END MIG" 0069 ELSE 0070 PRINT "VI VAR LIGE GODE" 0071 ENDIF 0072 ENDIF 0073 FOR V = 1 TO 7 0074 PRINT 0075 NEXT 0076 INPUT "VIL DU PRØVE EN GANG TIL? " , SVAR$ 0077 IF SVAR$ = "JA" THEN 0078 GOTO 0007 0079 ELSE 0080 LET UDE = 1 0081 ENDIF 0082 WHEN 1 0083 LET MAX = TAL 0084 LET TAL = INT ( ( MAX - MIN ) / 2 + MIN ) 0085 WHEN 2 0086 LET MIN = TAL 0087 LET TAL = INT ( ( MAX - MIN ) / 2 + MIN ) 0088 ENDCASE «nul» 0089 IF SVAR = 1 OR SVAR = 2 THEN 0090 PRINT "JEG GÆTTER AT TALLET ER " ; TAL 0091 PRINT 0092 PRINT "HVIS TALLET DU TÆNKER PÅ ER: DET SAMME TAST 0" 0093 PRINT " MINDRE TAST 1" 0094 PRINT " STØRRE TAST 2" 0095 LET GANG = GANG + 1 0096 INPUT SVAR 0097 ENDIF 0098 UNTIL UDE = 1 0099 ENDWHILE 0100 FOR X = 1 TO 23 0101 PRINT 0102 NEXT 0103 PRINT "SPILLET ER SLUT" 0104 DELAY = 3 0105 FOR SKRIV = 1 TO 30 0106 PRINT 0107 NEXT 0108 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 = 0x0002
Var# = 0x0196
Loop Top = 0x0196
To Val = 0 (0x00000000)
Step Val = 0 (0x00000000)
Var# = 0x0000
Loop Top = 0x0001
To Val = 3.40724e-78 (0x00650000)
Step Val = 0 (0x00000000)
Var# = 0x0000
Loop Top = 0x0000
To Val = 5.14756e-85 (0x00000001)
Step Val = 0 (0x00000000)
Var# = 0x0001
Loop Top = 0x0000
To Val = 0 (0x00000000)
Step Val = 0 (0x00000000)
Var# = 0x008b
Loop Top = 0x0271
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 = 0x0396 // 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 = 0x0294 // Address på næste prog.sætning (word adr) .u_cps = 0x0282 // 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 = 0xe297 // 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)