|
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: 9566 (0x255e)
Types: COMAL_SAVE
└─⟦c136eefb5⟧ Bits:30000468 DOMUS disk image, Nakskov gymnasium, bruger filer
└─ ⟦540c5146f⟧ »/A.KASKE«
└─⟦this⟧
SAVE filename: "KASKE" 0010 PAGE = 100 0020 PRINT " **" 0030 PRINT " * ***" 0040 PRINT " * - ***" 0050 PRINT " * /- - -**" 0060 PRINT " * _/ _ _ ***" 0070 PRINT " * - / - - ****" 0080 PRINT " * _ -/_ / ***** /*********" 0090 PRINT " */ _ - -/ / - - ******** /******** *" 0100 PRINT " * /- - - / - - / ************ *" 0110 PRINT " * - / _ _ / - /- / /*** *" 0120 PRINT " * - / - - / -/ - / ****** *********" 0130 PRINT " * - /- - - -/ *** **** **" 0140 PRINT " * - - - / - - / **** ** **" 0150 PRINT " */ - - - / /- - *** ** *" 0160 PRINT " * /- - - / -/ - / ** *" 0170 PRINT " * -/ - - /*****- /- / ** *" 0180 PRINT " * - / - - ** ** - / ** *" 0190 PRINT " * - / - - * *** ****** / ** *" 0200 PRINT " * - - /- - * ** **** *** **** *" 0210 PRINT " * / - -/- ** **** ** ****** **" 0220 PRINT " * /- - - / * ****** **** ****" 0230 PRINT " * - - / - - /* ******* * ********" 0240 PRINT " * - - / - - * * *" 0250 PRINT " * - - / - - *** * *" 0260 PRINT " */- - /- *** * ** * *****" 0270 PRINT " * -/ - *** - * *** * *" 0280 PRINT " * /- ** / - ** ** ****** *" 0290 PRINT " ** -/ *** - / - *** ** *** * * **" 0300 PRINT " ********* - / *** **** * **" 0310 PRINT " * / - ***** *" 0320 PRINT " * / - ****** **" 0330 PRINT " ************ **" 0340 PRINT " *** *" 0350 PRINT " *** **" 0360 PRINT " *** *" 0370 PRINT " *** ********* *" 0380 PRINT " ** *** *" 0390 PRINT " * *** *" 0400 PRINT " * *** *" 0410 PRINT " * /******* **** *****" 0420 PRINT " * ** ** ****** **" 0430 PRINT " * ** ** * ***" 0440 PRINT " * ** ** ** ****" 0450 PRINT " * ** ** * ****" 0460 PRINT " * ** ** * *" 0470 PRINT " * ** ** * *" 0480 PRINT " * ** ** * /*" 0490 PRINT " * ** ** * ****" 0500 PRINT " * ** ** * ****" 0510 PRINT " * ** ** * ****" 0520 PRINT " * ************** * *" 0530 PRINT " * * * ** **" 0540 PRINT " * * * ****** *" 0550 PRINT " ** * * *" 0560 PRINT " ** * * * *" 0570 PRINT " * * * * *" 0580 PRINT " * * * * *" 0590 PRINT " * * * * *" 0600 PRINT " * ******* ************************ " 0610 PRINT " * ** * *" 0620 PRINT " * * * *" 0630 PRINT " * ** * *" 0640 PRINT " * ** * *" 0650 PRINT " * * * *" 0660 PRINT " * * * * *" 0670 PRINT " * * * * * *" 0680 PRINT " * * * * * **" 0690 PRINT " * * * * * **" 0700 PRINT " * * * * * ******" 0710 PRINT " * *** * * *" 0720 PRINT " * *** * * ******* ***" 0730 PRINT " ** *** ** * * **" 0740 PRINT " ** ** ** ***" 0750 PRINT " * ** *****" 0760 PRINT " * **" 0770 PRINT " * *" 0780 PRINT " * *" 0790 PRINT " * *" 0800 PRINT " * * *" 0810 PRINT " **** * *" 0820 PRINT " ***** * *" 0830 PRINT " ******* * * *" 0840 PRINT " ********* * * ****" 0850 PRINT " **************************************************" 0860 PRINT " *************************************************" 0870 PRINT " ************************************************* " 0880 PRINT " ************************************************ " 0890 PRINT " ************************************************" 0900 PRINT " **********************************************" 0910 PRINT " *********************************************" 0920 PRINT " ********************************************" 0930 PRINT " ******************************************" 0940 PRINT " ***************************************" 0950 PRINT " ***********************************" 0960 PRINT " *******************************" 0970 PRINT " *************************** " 0980 PRINT " ********** ****" 0990 PRINT " ********** ****" 1000 PRINT " ********** ****" 1010 PRINT " ********** ****" 1020 PRINT " ********** ****" 1030 PRINT " *********** ******************************" 1040 PRINT " *********** **** **" 1050 PRINT " *************************************** *" 1060 PRINT " ****** ********* ** **" 1070 PRINT " ***** * **" 1080 PRINT " **** * *" 1090 PRINT " ** ***" 1100 PRINT " ** **" 1110 PRINT " ** ****" 1120 PRINT " ** ***" 1130 PRINT " ****** ******************************** " 1140 PRINT " **************** *****" 1150 PRINT " **************" 1200 FOR I = 1 TO 20 1250 PRINT 1300 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 = 0 (0x00000000)
Var# = 0x0081
Loop Top = 0x121c
To Val = 20 (0x42140000)
Step Val = 1 (0x41100000)
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 0x0000 0x00 I
.magic = 0x4e32 .u_pas = 0x122c // Length of UPAS in words .u_das = 0x0074 // Length of UDAS in words .u_dvs = 0x0072 // Start på savede variabel indhold (word adr) .u_nds = 0x122c // Address på næste prog.sætning (word adr) .u_cps = 0x1229 // Address på curr prog.sætning (word adr) .u_tll = 0x0064 // 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)