|
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: 12008 (0x2ee8)
Types: COMAL_SAVE
└─⟦d85593a46⟧ Bits:30000470 DOMUS disk image - User files
└─ ⟦57400d212⟧ »/JAMO.POLET«
└─⟦this⟧
SAVE filename: "POLET" 0005 PAGE = 120 0010 PRINT TAB ( 56 ) ; "+$$$$$$$$$$" 0020 PRINT TAB ( 54 ) ; "$$$$$$$$$$$$$$$" 0030 PRINT TAB ( 52 ) ; "$$$$$$$$$$$$$$$$$$$$" 0040 PRINT TAB ( 50 ) ; "$$$$$$$$$$$$$$$$$$$$$$$" 0050 PRINT TAB ( 48 ) ; "$$$$$$$$$$$$$$$$$$$$$$$$$$O" 0060 PRINT TAB ( 47 ) ; "$$$$$$$$$$$$$$$$$$$$$$$$$$$$$" 0070 PRINT TAB ( 46 ) ; "$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$O" 0080 PRINT TAB ( 45 ) ; "$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$" 0090 PRINT TAB ( 44 ) ; "$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$" 0100 PRINT TAB ( 43 ) ; "$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$" 0110 PRINT TAB ( 43 ) ; "$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$" 0120 PRINT TAB ( 43 ) ; "$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$" 0130 PRINT TAB ( 42 ) ; "$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$" 0140 PRINT TAB ( 42 ) ; "$$$$$$$$$$$$$$$$$$$$$$$$$$ $ $$$$$$$$$$$" 0150 PRINT TAB ( 41 ) ; "$+$$$$$$$$$$$$$$$$$$$$$+ +$$$$$$$+$$$$$$$" 0160 PRINT TAB ( 40 ) ; "$+$$$$$$$$$$ $$$$$ $$$$$ +$$$$$$$ ++$$$$$$" 0170 PRINT TAB ( 39 ) ; "$+$$$$$$$$$$$ +$$$$$ + $$$$$+ ++$$$$$$" 0180 PRINT TAB ( 39 ) ; "$+$$$$$$$$$$$ : : *** '+ .:++: **$$$$$$" 0190 PRINT TAB ( 38 ) ; "$*$$$$$$$$$$$$ . :-'$ :+$$$$$$" 0200 PRINT TAB ( 38 ) ; "$$$$$$$$$$$$$$ . . +'$ :+$$$$$$$" 0210 PRINT TAB ( 37 ) ; "$$$$$$$$$$$$$$$$ . :''$$' : :+$$$$$$$" 0220 PRINT TAB ( 38 ) ; "$$$$$$$$$$$$$$$ .: . : $$$$$$$$*" 0230 PRINT TAB ( 39 ) ; "$$$$$$$$$$$$$$$+ : -+$$$$$$+- : $$$$&$$$$*" 0240 PRINT TAB ( 40 ) ; "$$$$$$$$$$$$$$ . : :$$$$$: *$$$$$*$$$$*" 0250 PRINT TAB ( 41 ) ; "$$$$$$$$$$$$$$$+ :. . : : : $$$***$$*" 0260 PRINT TAB ( 42 ) ; "$$$$$$$$$$$$$$$+ .. + +$$$$$$$$$$$$$$" 0270 PRINT TAB ( 42 ) ; "$$$$$$$$$$$$$$ $$ +----*$ $$$??$$$$$$$$$" 0280 PRINT TAB ( 39 ) ; "$$$$$$$$$$$$$$$$$ $$$$$$ $$$??$$$$$$$$$$" 0290 PRINT TAB ( 38 ) ; "$$$$$$$$$$$$$$$$$ $$* + ++??$$$$$$$$$$$" 0300 PRINT TAB ( 36 ) ; "$$$$$$$$$$$$$$$$$$ $$$+ . : . .. : *$$$$$$$ $$" 0305 PRINT TAB ( 36 ) ; "$$$$$$$$$$$$$$$$$$ $$ + * + +*$ *$$$$$$$ $$" 0310 PRINT TAB ( 36 ) ; "$$$*** $$$$$ $$$$ + +* +*$$$$$**$$ $" 0320 PRINT TAB ( 36 ) ; "$$ ***** $ * * ** $$$$$$$$O $" 0330 PRINT TAB ( 36 ) ; "******* $$ $$$$$$* * * $$$$$$$O$ $" 0340 PRINT TAB ( 37 ) ; "******** $$$ $$$$$* * * *** $$$$$OO$$ $" 0350 PRINT TAB ( 36 ) ; "******** $$$$****** * $$$$$ * $$$$$O$$OO$ $$" 0360 PRINT TAB ( 36 ) ; "*******. $$$$$$$ .*******. . $$$$$$O$O $$$$$$$" 0370 PRINT TAB ( 35 ) ; "********* .*****. ** $$$$$$OOO OO$" 0380 PRINT TAB ( 35 ) ; "******** * ***. :****0$ $$$$$$$$" 0390 PRINT TAB ( 35 ) ; "********. $$$ .*****. ** :$$$$$ $$$$$$$$" 0400 PRINT TAB ( 34 ) ; "*********. . 0 .***: .**$$$ $ $$$$" 0410 PRINT TAB ( 34 ) ; "**$******. . 0* :**: $$$" 0420 PRINT TAB ( 33 ) ; "$********: . $$ :* * *" 0430 PRINT TAB ( 33 ) ; "$*********. . .*$* * *" 0440 PRINT TAB ( 33 ) ; "$********* : $$*$ * *:" 0450 PRINT TAB ( 34 ) ; "*********: . :$*$:, * *" 0460 PRINT TAB ( 34 ) ; "$*******0 . $$*$* : * *" 0470 PRINT TAB ( 35 ) ; "*$*****0:. $$0*:* : * *" 0480 PRINT TAB ( 36 ) ; "****0*0: . $&*0*:* : * *" 0500 PRINT TAB ( 36 ) ; "******: . $$$*$* $: *** * *" 0510 PRINT TAB ( 36 ) ; "$*****O: $&* * * $*$ :::***** * *" 0520 PRINT TAB ( 36 ) ; "$:::::; . $$$* *:*:$*$O: :***$** $ *" 0530 PRINT TAB ( 36 ) ; "$*****O: : $$** *$:$*$O:::: **** * *" 0540 PRINT TAB ( 36 ) ; "$****** : $$*$*O*O* 0 : : : * *O*. ***" 0550 PRINT TAB ( 36 ) ; "$*****O: $$$*$ O: : O : O :* .: *O**O ***" 0560 PRINT TAB ( 36 ) ; "$****** *: $$$*$O$O$$O$$O$$:* * .*****: **" 0570 PRINT TAB ( 36 ) ; "$*****O: . $$$$*$*:*$O$O$: * ****O:. '" 0580 PRINT TAB ( 36 ) ; "$*****: . $$$:$*:' ''' * *:''" 0590 PRINT TAB ( 36 ) ; "$******: . $$$$*$;$;$$: */*" 0600 PRINT TAB ( 36 ) ; "$*****: . $$$*:* .*$$. */ *" 0610 PRINT TAB ( 36 ) ; "$******: . $$$*' *& / *" 0620 PRINT TAB ( 36 ) ; "$*****: : .$$$$: *$. / *" 0630 PRINT TAB ( 36 ) ; "$$******: . *$$$ *$ /* *" 0640 PRINT TAB ( 35 ) ; "$*$********: ** * ** *" 0650 PRINT TAB ( 34 ) ; "***$$*******: O** /*O *" 0660 PRINT TAB ( 32 ) ; "***O $$********O:. * *** *" 0670 PRINT TAB ( 31 ) ; "$***O $$*******O:: * ;*** *" 0680 PRINT TAB ( 30 ) ; "$***:O .*$$*******;. * :O***O /" 0690 PRINT TAB ( 28 ) ; ",$***. * ****$$********. * O$*** *" 0700 PRINT TAB ( 27 ) ; "$**** *********$$$******;. $ .$** /" 0710 PRINT TAB ( 26 ) ; "$********* ******$$$*******: * &** $" 0720 PRINT TAB ( 25 ) ; "$**** **** *********$$********: * $** /" 0730 PRINT TAB ( 24 ) ; "$**** ****** *********$$$********* * $**O $" 0740 PRINT TAB ( 23 ) ; "$******* * *;************$$$$******: * $** *" 0750 PRINT TAB ( 22 ) ; "$************************$$$$$$*******; * $*** *" 0760 PRINT TAB ( 22 ) ; "****** *****************$$$$$$$$$$****** $*** *" 0770 PRINT TAB ( 21 ) ; "$******O**O*******************$$$$$$****** $$* *" 0780 PRINT TAB ( 20 ) ; "*****O**O *********** *O* * * * $$$$$******** $ *" 0790 PRINT TAB ( 20 ) ; "$*****O* * *O******** O*0*O* * $*****: :**" 0800 PRINT TAB ( 20 ) ; "$***O* *0* *O********O* * * : : $*****: *" 0810 PRINT TAB ( 20 ) ; "$****O* * *O**********O* *O* O. $***$$: :**" 0820 PRINT TAB ( 20 ) ; "*****O*O * *O***********O* * O. ***$$ ******," 0830 PRINT TAB ( 20 ) ; "*****O*O* * *O*************OO ; $$*$$$ ********$$$" 0840 PRINT TAB ( 21 ) ; "$****O*O* * *O*O*OO********O*O* ****$$ $ **** $" 0850 PRINT TAB ( 22 ) ; "$****O*O* *O* *O*************O*O. $***$O * O**. * *" 0860 PRINT TAB ( 23 ) ; "$****O*O* * *O*O************O*O* O ***$O $ $$ $$$ O* * *" 0870 PRINT TAB ( 24 ) ; "$*OO* * *O* *****************O *O. **$$ ;$ $$ ** * *" 0880 PRINT TAB ( 26 ) ; "$O** *O* * *O****************O*O O **$ $$ $$ $$ *** *" 0890 PRINT TAB ( 28 ) ; "$O**O**** *O*****************. * O $$ $$ $$ $$$$ ****.*" 0900 PRINT TAB ( 31 ) ; "$O *O* *O* ****************** *; O $$ $$$ $$ * * *" 0910 PRINT TAB ( 30 ) ; "****$O *O* * *O**************** ** O **$$ $$$ ********" 0920 PRINT TAB ( 29 ) ; "********$O *O* *O******************* ** O ** $ $ ******" 0930 PRINT TAB ( 28 ) ; "$***********$O * *O******************** ** *O: *** * *" 0940 PRINT TAB ( 28 ) ; "$O$************$O *O*************************O*. $******** *" 0950 PRINT TAB ( 30 ) ; "$OO************$* ***************************O. $******* *" 0960 PRINT TAB ( 33 ) ; "$ O$***********$************************* **O0O $*******" 0970 PRINT TAB ( 38 ) ; "$* $OO& $ $****************************O: $*****" 0980 PRINT TAB ( 38 ) ; "*** $OO$ $ $O O$***************************OO. $***" 0990 PRINT TAB ( 37 ) ; "**' $**OO' $****************************** ***" 1000 PRINT TAB ( 36 ) ; "$** $**** $***************************** * ** $" 1010 PRINT TAB ( 36 ) ; "*** *$**O $********************************" 1020 PRINT TAB ( 35 ) ; "$*** *&*O' *$$$**************************" 1030 PRINT TAB ( 35 ) ; "***' $****' $$$**********************" 1040 PRINT TAB ( 34 ) ; "$$** $**** $***********************" 1050 PRINT TAB ( 34 ) ; "$$$* *$*** $**$$ ********************" 1060 PRINT TAB ( 33 ) ; "0$$$$***$*********************************************************" 1070 PRINT TAB ( 33 ) ; "**$$$$*************************************$ *******************" 1080 PRINT TAB ( 33 ) ; "****$$$**** $***$ *******************" 1090 PRINT TAB ( 32 ) ; "$*** $$$*** $***$ *******************" 1100 PRINT TAB ( 32 ) ; "**** *$*** $***$ ********************" 1110 PRINT TAB ( 32 ) ; "**** $***** $***$ ******************0" 1120 PRINT TAB ( 31 ) ; "**** *$*** $**$********************0" 1130 PRINT TAB ( 30 ) ; "$**** *$*** $** ****************** /" 1140 PRINT TAB ( 30 ) ; "**** $****************************$**$ * *************** O" 1150 PRINT TAB ( 30 ) ; "**** $****************************$** * ****************" 1160 PRINT TAB ( 29 ) ; "$**** *$*** $**$ ** ************** /" 1170 PRINT TAB ( 29 ) ; "***** *$*** $$** ** ************** */" 1180 PRINT TAB ( 29 ) ; "**** $***** $**$* ***************" 1190 PRINT TAB ( 28 ) ; "$*$** $**** $*$ * ************* * /" 1200 PRINT TAB ( 28 ) ; "**$$* *$*** $*$$ * **************" 1210 PRINT TAB ( 27 ) ; "$**$$ *$*** $*$$ * * **************/" 1220 PRINT TAB ( 27 ) ; "***$$$ *$*** $**$$ * ************* **" 1230 PRINT TAB ( 27 ) ; "****$$ $***** $$*$$****$$ * *.*********** /***" 1240 PRINT TAB ( 26 ) ; "$****$$$ $**** $$*$$*****$$ *O***********O ****" 1250 PRINT TAB ( 26 ) ; "***** $$ *$*** $***$*******$$ * *O**********' *****" 1260 PRINT TAB ( 26 ) ; "***** $$$*$*** $$*$**$******$$ *OO*********O*O*****" 1270 PRINT TAB ( 25 ) ; "*******$$***************$***$*$*$*****$$ O *O********* *$$*****" 1280 PRINT TAB ( 25 ) ; "$*******$$***************$**** ********$$ *O*O******* **$$****" 1290 PRINT TAB ( 25 ) ; "**** ***** $*** *********$$ O *O*O****** ****$" 1300 PRINT TAB ( 25 ) ; "**** *$*** $************$$ * *:****** *****" 1310 PRINT TAB ( 24 ) ; "0**** *$*** $***********$$ O *O:::::::: $****0" 1320 PRINT TAB ( 24 ) ; "****' $**** $***********$$ OO******* * *****:" 1330 PRINT TAB ( 24 ) ; "**** $**** $************$$ O**********O *****$" 1340 PRINT TAB ( 23 ) ; "0***' *$*** $*************$$ *.****** **O $****." 1350 PRINT TAB ( 23 ) ; "**** *$*** $***** ********$$ ******* *** *****" 1360 PRINT TAB ( 23 ) ; "**** *$******************* * ******$$ *** *** **********$****" 1370 PRINT TAB ( 23 ) ; "**** *$*************$****** *****$$ * * ** **************" 1380 PRINT TAB ( 22 ) ; "$***7 $**** $****** *****$$ * * * * .*** $****" 1390 PRINT TAB ( 22 ) ; "**** $**** $**** * ****$$ * * ****** '**O ******" 1400 PRINT TAB ( 22 ) ; "***' *$**' $*********$$$**** ******* *** *****" 1410 PRINT TAB ( 21 ) ; "0*** *$** $$********$$$**** *** * *** *** $****" 1420 PRINT TAB ( 21 ) ; "$**' .**** $$$******$ $$$*** * ** *** O** O****," 1430 PRINT TAB ( 21 ) ; "*** $**** $$$$$$$$ $$***** ** *** **, *****" 1440 PRINT TAB ( 20 ) ; ",*** *$**O $$$$$ $$**** * **0 *****" 1450 PRINT TAB ( 20 ) ; "$** *$** $$$$$$$ $***** * ** *** *****" 1460 PRINT TAB ( 20 ) ; "$$* **** $$$$$$ $**** * ** $$* ****" 1470 PRINT TAB ( 31 ) ; "$*** $$$ ***** * ** ****." 1480 PRINT TAB ( 31 ) ; "*$** $*** * * $****" 1490 PRINT TAB ( 31 ) ; "*$** $******* *****" 1500 PRINT TAB ( 30 ) ; "0***7 $$****** ****." 1510 PRINT TAB ( 30 ) ; "$*** $$***** $$**0" 1520 PRINT TAB ( 30 ) ; "*$** $$***** ****" 1530 PRINT TAB ( 29 ) ; "0***' $***** ****" 1540 PRINT TAB ( 29 ) ; "0***' '**** ****" 1550 PRINT TAB ( 29 ) ; "$*** $***" 1560 PRINT TAB ( 28 ) ; "0$**' ****" 1570 PRINT TAB ( 28 ) ; "$*** ****" 1580 PRINT TAB ( 28 ) ; "$*** $***" 1590 PRINT TAB ( 28 ) ; "*$** ****" 1600 PRINT TAB ( 28 ) ; "*$** $***" 1610 PRINT TAB ( 28 ) ; "$$$$ '$$$$"
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
0x83 0xffff 0x00 COECT
0x84 0xffff 0x00 TAB43
0x85 0xffff 0x00 LISAT
.magic = 0x4e32 .u_pas = 0x16df // Length of UPAS in words .u_das = 0x0086 // Length of UDAS in words .u_dvs = 0x0086 // Start på savede variabel indhold (word adr) .u_nds = 0x0120 // Address på næste prog.sætning (word adr) .u_cps = 0x0105 // 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)