|
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: 2850 (0xb22)
Types: COMAL_SAVE
└─⟦d85593a46⟧ Bits:30000470 DOMUS disk image - User files
└─ ⟦17d9b780d⟧ »/SPACE.WW412«
└─⟦this⟧
SAVE filename: "WW412" 0003 REM ** JAN BODDUM LARSEN ** ** 2Z ** *82.01.21*«nul» 0005 PAGE = 120 0010 PRINT TAB ( 30 ) ; "ÆL" 0020 PRINT TAB ( 32 ) ; "." ; TAB ( 58 ) ; ".ÆMW" 0030 PRINT TAB ( 32 ) ; "Æ." ; TAB ( 57 ) ; "ÆMMMM" 0040 PRINT TAB ( 26 ) ; "YMMÅ..+MM." ; TAB ( 55 ) ; "ÆMMMMMMM" 0050 PRINT TAB ( 27 ) ; "MMMMF+IMMMÅ." ; TAB ( 53 ) ; "ÆMM,, ,W." 0060 PRINT TAB ( 27 ) ; "MMMM MMMMÅ.IMQÅ.... , ..++-, ,-." 0070 PRINT TAB ( 27 ) ; "MMMML" ; TAB ( 40 ) ; "....TMMMMML.F,, . ," 0080 PRINT TAB ( 26 ) ; ".MMMMM .ÅNFTTT,,ÆMMMMMMM .QMMÅ ." 0090 PRINT TAB ( 22 ) ; ".FT, ,TI ..ÆMMM.MMMMMMMF . ,CCCÅ.," 0100 PRINT TAB ( 20 ) ; "ÆT" ; TAB ( 32 ) ; "TTAA///I /A V. ,L TMF" 0110 PRINT TAB ( 18 ) ; "ÆT" ; TAB ( 33 ) ; "AF ÆNI A," ; TAB ( 54 ) ; "L I. ." 0120 PRINT TAB ( 16 ) ; ".T" ; TAB ( 35 ) ; "ÆN II" ; TAB ( 55 ) ; "I Å ." 0130 PRINT TAB ( 15 ) ; "/" ; TAB ( 34 ) ; "ÆN I" ; TAB ( 56 ) ; "L F L" 0140 PRINT TAB ( 34 ) ; "/ /" ; TAB ( 57 ) ; "I" ; TAB ( 68 ) ; "L" 0150 PRINT TAB ( 13 ) ; "/" ; TAB ( 39 ) ; "/" ; TAB ( 57 ) ; "V." ; TAB ( 69 ) ; "I" 0160 PRINT TAB ( 58 ) ; "V" ; TAB ( 70 ) ; "I" 0170 PRINT TAB ( 11 ) ; "." ; TAB ( 58 ) ; "I" ; TAB ( 67 ) ; ". I" 0180 PRINT TAB ( 36 ) ; "/" ; TAB ( 68 ) ; ", I" 0190 PRINT TAB ( 35 ) ; "F ." ; TAB ( 68 ) ; "I L" 0200 PRINT TAB ( 34 ) ; "Æ / ." ; TAB ( 68 ) ; "/ I" 0210 PRINT TAB ( 8 ) ; "/" ; TAB ( 33 ) ; "ÆM I T" ; TAB ( 55 ) ; "I" ; TAB ( 72 ) ; "Q" 0220 PRINT TAB ( 32 ) ; "ÆMI V ,I I IL" ; TAB ( 72 ) ; "P" 0230 PRINT TAB ( 7 ) ; "/" ; TAB ( 31 ) ; ".MMQ L VI H IM" ; TAB ( 71 ) ; "Æ" 0240 PRINT TAB ( 31 ) ; "MMMMQ VL W I ÆM I / F I" 0250 PRINT " ." ; TAB ( 30 ) ; "ÆMMMMM. V . M Æ ÆI / I" 0260 PRINT TAB ( 29 ) ; ".MMMMMMA= Y" ; TAB ( 53 ) ; "Æ /M ÆI /F" 0270 PRINT " ." ; TAB ( 29 ) ; "ÆMMMW" ; TAB ( 44 ) ; ",," ; TAB ( 51 ) ; "// //Æ ÆCM/ .Æ" ; TAB ( 75 ) ; "I" 0280 PRINT TAB ( 11 ) ; "." ; TAB ( 28 ) ; ".MMF," ; TAB ( 62 ) ; ". ÅMF" ; TAB ( 75 ) ; "I" 0290 PRINT " /" ; TAB ( 10 ) ; "/" ; TAB ( 28 ) ; "ÆM/" ; TAB ( 64 ) ; "WMMMM" 0300 PRINT TAB ( 9 ) ; "/." ; TAB ( 27 ) ; "/M/" ; TAB ( 64 ) ; "IMMMF" 0310 PRINT " /" ; TAB ( 9 ) ; "/" ; TAB ( 27 ) ; "ÆM" ; TAB ( 65 ) ; "MMM" ; TAB ( 76 ) ; "I" 0320 PRINT TAB ( 8 ) ; "/" ; TAB ( 23 ) ; ". IM" ; TAB ( 65 ) ; "MMM" 0330 PRINT "Æ" ; TAB ( 8 ) ; "L" ; TAB ( 22 ) ; ". M" ; TAB ( 65 ) ; "WMML A" ; TAB ( 76 ) ; "I" 0340 PRINT "M ÆI" ; TAB ( 22 ) ; ". Å ...." ; TAB ( 65 ) ; ",MMIÆM" ; TAB ( 76 ) ; "I" 0350 PRINT "N M" ; TAB ( 22 ) ; "I I , ,FÅ." ; TAB ( 59 ) ; ".ÅÅMMM MMÆM" 0360 PRINT "C. ÆM" ; TAB ( 21 ) ; "/I" ; TAB ( 41 ) ; ",FMMÅ" ; TAB ( 56 ) ; "ÅMM, ,MMMM" ; TAB ( 76 ) ; "I" 0370 PRINT "C. ÆMT" ; TAB ( 21 ) ; "CC" ; TAB ( 34 ) ; ",ÅÅMMMMMÅ ." ; TAB ( 54 ) ; ". ÅMMMMM. ÆMMM" 0380 PRINT "LL MM" ; TAB ( 20 ) ; "/CM" ; TAB ( 30 ) ; "." ; TAB ( 36 ) ; ". MMMÅ .." ; TAB ( 53 ) ; ".+ MMMMFMMMM" 0390 PRINT "MLLÆMT /" ; TAB ( 20 ) ; "CMM" ; TAB ( 30 ) ; ".." ; TAB ( 38 ) ; "-==MMF ... . +FFF, WMMM /"
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 0xffff 0x00
0x81 0xffff 0x00 TTAB
0x82 0xffff 0x00 AUTO70
.magic = 0x4e32 .u_pas = 0x050b // Length of UPAS in words .u_das = 0x0077 // Length of UDAS in words .u_dvs = 0x0077 // Start på savede variabel indhold (word adr) .u_nds = 0x050b // Address på næste prog.sætning (word adr) .u_cps = 0x04db // Address på curr prog.sætning (word adr) .u_tll = 0x0078 // 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)