|
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: 1838 (0x72e)
Types: COMAL_SAVE
└─⟦a1ade7893⟧ Bits:30000467 DOMUS disk image, Nakskov Gymnasium, RC-BASIC/COMAL
└─ ⟦deb6b7d0e⟧ »/PUNC1«
└─⟦this⟧
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 DIM IND$ ( 131 ) , BOG1$ ( 1 ) , BOG2$ ( 10 )
0070 OPEN FILE ( 0 , 3 ) "$PTP"
0080 INPUT "SKRIV DET QNSKEDE: " , IND$
0090 FOR Q = 1 TO LEN ( IND$ )
0100 FOR X = 1 TO 63
0110 READ BOG1$ , BOG2$
0120 IF IND$ ( Q ) = BOG1$ THEN
0130 WRITE FILE ( 0 ) BOG2$
0140 LET E = 0 ; X = 63
0150 ENDIF
0160 NEXT
0170 IF E THEN PRINT IND$ ( Q ) ; " FINDES IKKE I LISTEN"
0180 LET E = 1
0190 RESTORE 0000
0200 NEXT
0210 CLOSE FILE ( 0 )
0220 END «nul»
0230 DATA "<25>" , "<127><8><8><8><127>III6"
0240 DATA " " , "<0><0><0><0><0>"
0250 DATA "!" , "<0>_<0><0>"
0260 DATA "<34>" , "<0><7><0><7><0>"
0270 DATA "#" , "<20><127><20><127><20>"
0280 DATA "$" , "$*<127>*<18>"
0290 DATA "%" , "#<19><8>db"
0300 DATA "&" , "6IV P"
0310 DATA "'" , "<0><7><0><0>"
0320 DATA "(" , "<28><34>A<0><0>"
0330 DATA ")" , "<0><0>A<34><28>"
0340 DATA "*" , "<34><20><127><20><34>"
0350 DATA "+" , "<8><8>><8><8>"
0360 DATA "," , "<0><128>`<0><0>"
0370 DATA "-" , "<8><8><8><8><8>"
0380 DATA "." , "<0>@<0><0>"
0390 DATA "/" , " <16><8><4><2>"
0400 DATA "0" , ">QIE>"
0410 DATA "1" , "<0>B<127>@<0>"
0420 DATA "2" , "rIIIF"
0430 DATA "3" , "!AIM3"
0440 DATA "4" , "<24><20><18><127><16>"
0450 DATA "5" , "'EEE9"
0460 DATA "6" , "<60>JII1"
0470 DATA "7" , "A!<17><9><7>"
0480 DATA "8" , "6III6"
0490 DATA "9" , "FII)<30>"
0500 DATA ":" , "<0><0><20><0><0>"
0510 DATA ";" , "<0><128>h<0><0>"
0520 DATA "<60>" , "<8><20><34>A<0>"
0530 DATA "=" , "<20><20><20><20><20>"
0540 DATA ">" , "<0>A<34><20><8>"
0550 DATA "?" , "<2><1>Y<9><6>"
0560 DATA "@" , ">AÅYN"
0570 DATA "A" , "ø<18><17><18>ø"
0580 DATA "B" , "<127>III6"
0590 DATA "C" , ">AAA<34>"
0600 DATA "D" , "<127>AAA>"
0610 DATA "E" , "<127>IIIA"
0620 DATA "F" , "<127><9><9><9><1>"
0630 DATA "G" , ">AAQr"
0640 DATA "H" , "<127><8><8><8><127>"
0650 DATA "I" , "<0>A<127>A<0>"
0660 DATA "J" , " @@@?"
0670 DATA "K" , "<127><8><20><34>A"
0680 DATA "L" , "<127>@@@@"
0690 DATA "M" , "<127><2><12><2><127>"
0700 DATA "N" , "<127><4><8><16><127>"
0710 DATA "O" , ">AAA>"
0720 DATA "P" , "<127><9><9><9><6>"
0730 DATA "Q" , ">AQ!^"
0740 DATA "R" , "<127><9><25>)F"
0750 DATA "S" , "&III2"
0760 DATA "T" , "<3><1><127><1><3>"
0770 DATA "U" , "?@@@?"
0780 DATA "V" , "<7><24>`<24><7>"
0790 DATA "W" , "?@8@?"
0800 DATA "X" , "c<20><8><20>c"
0810 DATA "Y" , "<3><4>x<4><3>"
0820 DATA "Z" , "aQIEC"
0830 DATA "Æ" , "ø<10><9><127>II"
0840 DATA "Ø" , ">QIE>"
0850 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 = 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 = 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 0x0000 0x00
0x81 0xffff 0x00 E
0x82 0xffff 0x02 IND$
0x83 0xffff 0x02 BOG1$
0x84 0xffff 0x02 BOG2$
0x85 0xffff 0x00 Q
0x86 0xffff 0x00 X
.magic = 0x4e32 .u_pas = 0x02fd // Length of UPAS in words .u_das = 0x008b // Length of UDAS in words .u_dvs = 0x008b // Start på savede variabel indhold (word adr) .u_nds = 0x0000 // 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 = 0x0042 // ON ESE (word adr) .u_era = 0x0000 // ON ERR (word adr) .u_cas = 0xffff // CASE dybde .u_las = 0xffff // last (-1)