|
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: 2560 (0xa00)
Types: COMAL_SAVE
Names: »SPACE«
└─⟦a1ade7893⟧ Bits:30000467 DOMUS disk image, Nakskov Gymnasium, RC-BASIC/COMAL
└─⟦this⟧
└─⟦c136eefb5⟧ Bits:30000468 DOMUS disk image, Nakskov gymnasium, bruger filer
└─⟦this⟧
SAVE filename: "SPACE" 0010 REM «nul» 0020 REM ** LAVET AF HENRIK BENDSEN 80.12.03 **«nul»«nul» 0030 REM «nul» 0040 PAGE = 0 0050 PRINT "<27><12>" 0060 ON ESC THEN GOTO 0180 0070 DELAY = 1 0080 PRINT "<10><10><10><10><10><10>" 0090 PRINT TAB ( 32 ) ; "RUMKKRIG" 0100 PRINT "<10><10><10><10><10><10>" 0110 PRINT " SPILLET GAAR UD PAA AT SKYDE DET FJENDTLIGE RUMSKIB, DER " 0120 PRINT " KOMMER TIL SYNE SOM EN STREG I VENSTRE SIDE AF SKAERMEN." 0130 PRINT " DU 'FYRER' DIN MICROWAVE-HIGH DENSITY BEAM-GUN, VED AT" 0140 PRINT " TASTE 'ESCAPE'. <13><10><10>" 0150 PRINT " STRAALENS VINKEL MARKERES, MED DEN SIGTELINJE, DER SAETTES FORAN " 0160 PRINT " DIT RUMSKIB." 0170 DELAY = 5 0180 PRINT "<27><12>" 0190 DELAY = 1 0200 RANDOMIZE 0210 OPEN FILE ( 0 , 9 ) "STARS" 0220 DIM A$ ( 2000 ) 0230 INPUT FILE ( 0 ) A$ 0240 CLOSE 0250 PRINT A$ 0260 CALL "GRAPH" , 980 , 390 0270 FOR X = 980 TO 1000 STEP 2 0280 CALL "OUTVECT" , X , 390 0290 CALL "OUTVECT" , X , 370 0300 NEXT 0310 LET ABSCISSE = 40 TID = SYS ( 5 ) TOTAL = 0 0320 CALL "GRAPH" , 980 , 380 0330 CALL "OUTVECT" , 970 , 380 0340 CALL "GRAPH" , 940 , 400 0350 CALL "OUTVECT" , 940 , 360 0360 LET SIGTE = INT ( RND ( 4 ) * 25 ) + 370 0370 CALL "GRAPH" , 937 , SIGTE 0380 CALL "OUTVECT" , 943 , SIGTE 0390 CALL "GRAPH" , 5 , 40 0400 ON ESC THEN GOTO 0490 0410 LET Y = INT ( RND ( 6 ) * 50 ) + 30 0420 CALL "GRAPH" , 5 , 0 0430 LET SIZE1 = Y 0440 LET Y = Y + 20 0450 CALL "OUTVECT" , 5 , Y + 7 0460 CALL "OUTVECT" , 5 , Y - SIZE1 + 7 0470 IF Y < 820 THEN GOTO 0440 0480 GOTO 0410 0490 IF SIGTE = 380 THEN LET SIGTE = 381 0500 LET LINE = ( 935 / 30 ) * ( SIGTE - 380 ) + 380 0510 IF LINE < 0 THEN LET LINE = 0 0520 CALL "GRAPH" , 10 , LINE 0530 CALL "OUTVECT" , 0 , LINE 0540 IF ABS ( LINE - Y + 20 ) < 25 THEN 0550 PRINT "<7><7><7><7><7> <7><7><7><7><7> <7><7><7><7> <7><7><7><7><7> <7><7><7><7> <7><7><7><7> <7><7><7><7> <7><7><7><7> <7><7><7><7> " 0560 LET POINT = 16 - INT ( SIZE1 / 5 ) 0570 LET TOTAL = TOTAL + POINT 0580 FOR XX = 1 TO POINT 0590 CALL "GRAPH" , ABSCISSE , 10 0600 CALL "OUTVECT" , ABSCISSE , 0 0610 LET ABSCISSE = ABSCISSE + 10 0620 NEXT 0630 ELSE 0640 PRINT "<7><7><7><7><7>" 0650 ENDIF 0660 DELAY = 1 0670 IF SYS ( 5 ) - TID < 120 THEN GOTO 0360 0680 CALL "ALPHA" 0690 PRINT "<12>TIDEN ER UDL0BET. DU FIK" ; TOTAL ; "POINTS"
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 0x02 A$
0x82 0xffff 0x00 X
0x83 0xffff 0x00 ABSCISSE
0x84 0xffff 0x00 TID
0x85 0xffff 0x00 TOTAL
0x86 0xffff 0x00 SIGTE
0x87 0xffff 0x00 Y
0x88 0xffff 0x00 SIZE1
0x89 0xffff 0x00 LINE
0x8a 0xffff 0x00 POINT
0x8b 0xffff 0x00 XX
.magic = 0x4e32 .u_pas = 0x0355 // Length of UPAS in words .u_das = 0x00a4 // Length of UDAS in words .u_dvs = 0x00a4 // 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)