|
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 - metrics - download
Length: 2560 (0xa00)
Types: COMAL_SAVE
Names: »PUNC1«
└─⟦d85593a46⟧ Bits:30000470 DOMUS disk image - User files
└─⟦this⟧ »/JAMO.PUNC1«
SAVE filename: "PUNC1"
0010 REM (**HENRIK BENDSEN 19.11.79**)«nul»
0020 REM «nul»(
0030 REM (**PROGRAM, DER HULLER ASCII KARAKTERER PÅ $PTP**)«nul»
0040 REM «nul»(
0050 LET E = 1
0060 ON ERR THEN GOTO 0190
0070 DIM IND$ ( 131 ) , BOG1$ ( 1 ) , BOG2$ ( 10 )
0080 OPEN FILE ( 0 , 3 ) "$PTP"
0090 CALL "OUTANDIN" , "SKRIV DET ØNSKEDE: " , IND$
0100 FOR Q = 1 TO LEN ( IND$ )
0110 IF ORD ( IND$ ( Q ) ) > 64 THEN RESTORE 0600
0120 FOR X = 1 TO 63
0130 READ BOG1$ , BOG2$
0140 IF IND$ ( Q ) = BOG1$ THEN
0150 WRITE FILE ( 0 ) BOG2$
0160 LET E = 0 X = 63
0170 ENDIF
0180 NEXT
0190 IF E THEN PRINT IND$ ( Q ) ; " FINDES IKKE I LISTEN"
0200 ON ERR THEN GOTO 0190
0210 LET E = 1
0220 RESTORE 0000
0230 NEXT
0240 CLOSE FILE ( 0 )
0250 END «nul»
0260 DATA "<25>" , "<127><8><8><8><127>III6"
0270 DATA " " , "<0><0><0><0><0>"
0280 DATA "!" , "<0>_<0><0>"
0290 DATA "<34>" , "<0><7><0><7><0>"
0300 DATA "#" , "<20><127><20><127><20>"
0310 DATA "$" , "$*<127>*<18>"
0320 DATA "%" , "#<19><8>db"
0330 DATA "&" , "6IV P"
0340 DATA "'" , "<0><7><0><0>"
0350 DATA "(" , "<28><34>A<0><0>"
0360 DATA ")" , "<0><0>A<34><28>"
0370 DATA "*" , "<34><20><127><20><34>"
0380 DATA "+" , "<8><8>><8><8>"
0390 DATA "," , "<0><128>`<0><0>"
0400 DATA "-" , "<8><8><8><8><8>"
0410 DATA "." , "<0>@<0><0>"
0420 DATA "/" , " <16><8><4><2>"
0430 DATA "0" , ">QIE>"
0440 DATA "1" , "<0>B<127>@<0>"
0450 DATA "2" , "rIIIF"
0460 DATA "3" , "!AIM3"
0470 DATA "4" , "<24><20><18><127><16>"
0480 DATA "5" , "'EEE9"
0490 DATA "6" , "<60>JII1"
0500 DATA "7" , "A!<17><9><7>"
0510 DATA "8" , "6III6"
0520 DATA "9" , "FII)<30>"
0530 DATA ":" , "<0><0><20><0><0>"
0540 DATA ";" , "<0><128>h<0><0>"
0550 DATA "<60>" , "<8><20><34>A<0>"
0560 DATA "=" , "<20><20><20><20><20>"
0570 DATA ">" , "<0>A<34><20><8>"
0580 DATA "?" , "<2><1>Y<9><6>"
0590 DATA "@" , ">AÅYN"
0600 DATA "A" , "ø<18><17><18>ø"
0610 DATA "B" , "<127>III6"
0620 DATA "C" , ">AAA<34>"
0630 DATA "D" , "<127>AAA>"
0640 DATA "E" , "<127>IIIA"
0650 DATA "F" , "<127><9><9><9><1>"
0660 DATA "G" , ">AAQr"
0670 DATA "H" , "<127><8><8><8><127>"
0680 DATA "I" , "<0>A<127>A<0>"
0690 DATA "J" , " @@@?"
0700 DATA "K" , "<127><8><20><34>A"
0710 DATA "L" , "<127>@@@@"
0720 DATA "M" , "<127><2><12><2><127>"
0730 DATA "N" , "<127><4><8><16><127>"
0740 DATA "O" , ">AAA>"
0750 DATA "P" , "<127><9><9><9><6>"
0760 DATA "Q" , ">AQ!^"
0770 DATA "R" , "<127><9><25>)F"
0780 DATA "S" , "&III2"
0790 DATA "T" , "<3><1><127><1><3>"
0800 DATA "U" , "?@@@?"
0810 DATA "V" , "<7><24>`<24><7>"
0820 DATA "W" , "?@8@?"
0830 DATA "X" , "c<20><8><20>c"
0840 DATA "Y" , "<3><4>x<4><3>"
0850 DATA "Z" , "aQIEC"
0860 DATA "Æ" , "ø<10><9><127>II"
0870 DATA "Ø" , ">QIE>"
0880 DATA "Å" , "x<20><19><20>x"
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 = 6.17707e-84 (0x0000000c)
Var# = 0x0085
Loop Top = 0x031a
To Val = 14 (0x41e00000)
Step Val = 1 (0x41100000)
Var# = 0x0086
Loop Top = 0x031a
To Val = 63 (0x423f0000)
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 E
0x82 0x0002 0x02 IND$
0x83 0x0047 0x02 BOG1$
0x84 0x004b 0x02 BOG2$
0x85 0x0053 0x00 Q
0x86 0x0055 0x00 X
.magic = 0x4e32 .u_pas = 0x031a // Length of UPAS in words .u_das = 0x00e2 // Length of UDAS in words .u_dvs = 0x008b // Start på savede variabel indhold (word adr) .u_nds = 0x00bc // 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 = 0x0000 // Current DATA byte ptr .u_esa = 0x0289 // ON ESE (word adr) .u_era = 0xfff0 // ON ERR (word adr) .u_cas = 0xffff // CASE dybde .u_las = 0xffff // last (-1)