|
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: 2702 (0xa8e)
Types: COMAL_SAVE
└─⟦d85593a46⟧ Bits:30000470 DOMUS disk image - User files
└─ ⟦645a60537⟧ »/STORM.ORD«
└─⟦this⟧
SAVE filename: "ORD" 0010 PRINT "<27><12><10><10><10><10><10><10><10><10><7><7><7><7><7><7><7><7><7><7><7><7><7><7>" 0012 DELAY = 1 0015 PRINT TAB ( 20 ) ; 0016 PRINT " DATO : ##/## ##" , SYS ( 1 ) , SYS ( 2 ) , SYS ( 3 ) 0020 PRINT "ALLAN'S ALFABETISKE ORD ORDNER" 0030 PRINT "------------------------------<10><10><10>" 0040 INPUT "HVOR MANGE ORD ? " , T 0045 INPUT "<27><12>" , X 0050 DIM O$ ( T , 72 ) , GEM$ ( 72 ) 0060 FOR X = 1 TO T 0070 INPUT O$ ( X ) 0080 NEXT 0090 FOR OMG = 1 TO T - 1 0100 FOR X = 1 TO T - 1 0110 IF O$ ( X ) > O$ ( X + 1 ) THEN LET GEM$ = O$ ( X ) ; O$ ( X ) = O$ ( X + 1 ) ; O$ ( X + 1 ) = GEM$ 0120 NEXT 0130 NEXT 0140 PRINT "<10><10><7><7><7><7><7><7><7><7><7><7><7><7><7><7><7><7><7><7><7><7><7><7><7><7><7><7><7><7><7><7><7><7><7><7><7>" 0150 FOR OMG = 1 TO T 0160 PRINT O$ ( OMG ) 0170 NEXT
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 = 0x0000
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)
Var# = 0x0000
Loop Top = 0x0000
To Val = 0 (0x00000000)
Step Val = 0 (0x00000000)
Var# = 0x0000
Loop Top = 0x0000
To Val = 0 (0x00000000)
Step Val = 3.08853e-84 (0x00000006)
Var# = 0x0088
Loop Top = 0x0121
To Val = 21 (0x42150000)
Step Val = 1 (0x41100000)
Var# = 0x0083
Loop Top = 0x00dd
To Val = 20 (0x42140000)
Step Val = 1 (0x41100000)
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 0x00 T
0x82 0xffff 0x00 TAL
0x83 0x0002 0x00 X
0x84 0xffff 0x00 Z
0x85 0xffff 0x00 XX
0x86 0xffff 0x00 B
0x87 0xffff 0x00 GEM
0x88 0x0361 0x00 OMG
0x89 0x0004 0x03 O$
0x8a 0x033a 0x02 GEM$
0x8b 0xffff 0x00 LISTT
.magic = 0x4e32 .u_pas = 0x0131 // Length of UPAS in words .u_das = 0x0407 // Length of UDAS in words .u_dvs = 0x00a4 // Start på savede variabel indhold (word adr) .u_nds = 0x012e // Address på næste prog.sætning (word adr) .u_cps = 0x0129 // 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 = 0x0000 // 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)