DataMuseum.dk

Presents historical artifacts from the history of:

RegneCentralen RC3600/RC7000

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about RegneCentralen RC3600/RC7000

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦66abdcac4⟧ TextFile

    Length: 6656 (0x1a00)
    Types: TextFile
    Names: »B26«

Derivation

└─⟦6dbcc9c03⟧ Bits:30000463 DOMUS disk image
    └─ ⟦this⟧ »/B26«

TextFile

 0010 TEST=1
 0020 POINT,UNDSLUPPET=0
 0030 DIM A$(2)
 0040 A$=CHR(40)+CHR(36)
 0050 LET NY=11; NX=2
 0060 DIM LAB(70,25)
 0070 EXEC ERKLÆRLAB
 0080 PRINT CHR(12)
 0090 EXEC TEGNLABYRIN
 0100 GX=3
 0110 GY=12
 0120 EXEC XY(GX,GY)
 0130 PRINT "9F"
 0140 NX=GX; NY=GY
 0150 EXEC FLYTBRIK
 0160 EXEC XY(72,14)
 0170 PRINT "NU SLAP"
 0180 EXEC XY(72,15)
 0190 PRINT "DU "
 0200 EXEC XY(72,16)
 0210 PRINT "GENNEM"
 0220 EXEC XY(72,38)
 0230 PRINT "POINT"; CHR(128); ":"; CHR(132)
 0240 EXEC XY(72,39)
 0250 PRINT CHR(128); POINT; CHR(132)
 0260 EXEC XY(79,23)
 0270 K=KEY(0)
 0280 PRINT CHR(12)
 0290 STOP 
 0300 REM //----------------//
 0310 PROC ERKLÆRLAB
 0320   FOR J=1 TO 24
 0330     FOR I=1 TO 70
 0340       READ X
 0350       LAB(I,J)=X
 0360     NEXT I
 0370   NEXT J
 0380   DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
 0390   DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
 0400   DATA 1,1,1,1,1,1,1,1,0,0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,1,1,1,1,1,1,0,0,0,0,0
 0410   DATA 0,0,0,1,1,0,0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,1,1,0,0,0,0,0,0,1,1,1,1,1,1
 0420   DATA 1,1,1,1,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,1,1,0,0,0,0,1,1,1,1,0,0,1,1,1
 0430   DATA 1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,0,0,1,1,0,0,1,1,0,0,1,1,0,0,0,0,0,0,1,1
 0440   DATA 1,1,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,1,1,1,1,0,0,0,0,1
 0450   DATA 1,0,0,0,0,0,0,1,1,0,0,1,1,0,0,1,1,1,1,0,0,0,0,0,0,0,0,0,0,1,1,0,0,1,1
 0460   DATA 1,1,0,0,1,1,1,1,0,0,0,0,0,0,1,1,1,1,1,1,1,1,0,0,0,0,0,0,1,1,1,1,0,0,1
 0470   DATA 1,1,1,1,1,0,0,1,1,0,0,0,0,0,0,0,0,1,1,1,1,0,0,1,1,1,1,1,1,0,0,0,0,1,1
 0480   DATA 1,1,0,0,0,0,0,0,0,0,1,1,0,0,1,1,1,1,0,0,0,0,0,0,1,1,0,0,1,1,1,1,0,0,1
 0490   DATA 1,1,1,1,1,0,0,1,1,1,1,1,1,1,1,0,0,1,1,0,0,0,0,1,1,1,1,1,1,0,0,1,1,1,1
 0500   DATA 1,1,0,0,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,1,1,1,1,1,1,0,0,0,0,1,1,0,0,1
 0510   DATA 1,1,1,0,0,0,0,0,0,0,0,1,1,0,0,0,0,1,1,0,0,1,1,1,1,1,1,0,0,0,0,1,1,1,1
 0520   DATA 1,1,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,1,1,1,1,0,0,1,1,0,0,0
 0530   DATA 0,0,0,0,0,1,1,1,1,0,0,1,1,0,0,1,1,1,1,0,0,0,0,1,1,1,1,0,0,1,1,1,1,1,1
 0540   DATA 1,1,1,1,1,1,0,0,1,1,0,0,0,0,0,0,1,1,1,1,1,1,0,0,0,0,1,1,0,0,0,0,0,0,1
 0550   DATA 1,1,1,1,1,1,1,1,1,0,0,1,1,0,0,0,0,1,1,1,1,0,0,1,1,1,1,0,0,0,0,0,0,1,1
 0560   DATA 1,1,0,0,0,0,0,0,0,0,0,0,1,1,0,0,1,1,1,1,1,1,1,1,0,0,1,1,1,1,0,0,1,1,0
 0570   DATA 0,0,0,0,0,1,1,1,1,0,0,1,1,1,1,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,0,0,1,1
 0580   DATA 1,1,0,0,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,1,1,0,0,0,0,0,0,1,1,0,0,0,0,0
 0590   DATA 0,1,1,0,0,0,0,0,0,0,0,1,1,1,1,0,0,1,1,0,0,1,1,0,0,0,0,1,1,1,1,0,0,1,1
 0600   DATA 1,1,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0
 0610   DATA 0,1,1,1,1,1,1,0,0,1,1,1,1,1,1,0,0,1,1,0,0,1,1,1,1,0,0,1,1,1,1,0,0,0,1
 0620   DATA 1,1,0,0,1,1,0,0,0,0,0,0,0,0,0,0,1,1,0,0,1,1,0,0,1,1,0,0,0,0,0,0,1,1,0
 0630   DATA 0,1,1,1,1,0,0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,0,0,1,1,0,0,0,0,1,1,0,0,1,1
 0640   DATA 1,1,0,0,1,1,1,1,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,1,1,1,1,1,0,0,1,1,0
 0650   DATA 0,0,0,0,0,0,0,1,1,0,0,0,0,1,1,1,1,1,1,1,1,0,0,1,1,1,1,0,0,1,1,0,0,1,1
 0660   DATA 1,1,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,1,1,0,0,1,1,1,1,1,1,0,0,1,1,0
 0670   DATA 0,1,1,0,0,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,0,0,1,1,0,0,1,1
 0680   DATA 1,1,0,0,1,1,1,1,0,0,1,1,1,1,1,1,1,1,0,0,1,1,0,0,0,0,1,1,1,1,0,0,1,1,0
 0690   DATA 0,1,1,0,0,1,1,1,1,1,1,1,1,1,1,0,0,1,1,0,0,1,1,1,1,1,1,0,0,1,1,0,0,1,1
 0700   DATA 1,1,0,0,0,0,1,1,0,0,1,1,0,0,0,0,0,0,0,0,1,1,1,1,0,0,1,1,1,1,0,0,0,0,0
 0710   DATA 0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,1,1,0,0,1,1,0,0,1,1
 0720   DATA 1,1,1,1,0,0,1,1,0,0,1,1,0,0,1,1,1,1,1,1,1,1,1,1,0,0,0,0,1,1,1,1,1,1,0
 0730   DATA 0,1,1,1,1,1,1,1,1,1,1,0,0,1,1,1,1,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,1
 0740   DATA 1,1,1,1,0,0,0,0,0,0,1,1,0,0,0,0,0,0,1,1,1,1,1,1,1,1,0,0,0,0,0,0,1,1,0
 0750   DATA 0,1,1,0,0,0,0,0,0,1,1,0,0,1,1,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,1,1
 0760   DATA 1,1,0,0,0,0,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,1,1,1,1,1,1,0,0,1,1,0
 0770   DATA 0,1,1,0,0,1,1,0,0,0,0,0,0,1,1,0,0,1,1,1,1,1,1,1,1,1,1,0,0,1,1,1,1,1,1
 0780   DATA 1,1,0,0,1,1,1,1,0,0,0,0,0,0,1,1,1,1,0,0,1,1,0,0,1,1,0,0,0,0,0,0,1,1,0
 0790   DATA 0,1,1,0,0,1,1,1,1,1,1,1,1,1,1,0,0,1,1,1,1,0,0,0,0,0,0,0,0,1,1,1,1,1,1
 0800   DATA 1,1,0,0,1,1,0,0,0,0,1,1,0,0,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,1,1,1,1,1,0
 0810   DATA 0,0,0,0,0,1,1,1,1,1,1,0,0,0,0,0,0,1,1,1,1,0,0,1,1,1,1,0,0,0,0,1,1,1,1
 0820   DATA 1,1,0,0,0,0,0,0,1,1,1,1,1,1,0,0,0,0,0,0,1,1,0,0,0,0,0,0,1,1,1,1,1,1,0
 0830   DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1
 0840   DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
 0850   DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
 0860 ENDPROC 
 0870 REM //-------------------------//
 0880 PROC TEGNLABYRIN
 0890   EXEC XY(1,1)
 0900   PRINT CHR(132)
 0910   FOR I=1 TO 24
 0920     FOR J=2 TO 70
 0930       EXEC XY(J,I)
 0940       IF LAB(J,I)=0 THEN 
 0950         PRINT A$
 0960         J=J+1
 0970         EXEC XY(7,2)
 0980       ELSE 
 0990         PRINT CHR(127)
 1000         EXEC XY(75,2)
 1010       ENDIF 
 1020     NEXT J
 1030   NEXT I
 1040 ENDPROC 
 1050 REM //---------------------//
 1060 PROC FLYTBRIK
 1070   REPEAT 
 1080     K=KEY(0)
 1090     IF K=8 THEN LET NX=GX-2
 1100     IF K=24 THEN LET NX=GX+2
 1110     IF K=26 THEN LET NY=GY-1
 1120     IF K=10 THEN LET NY=GY+1
 1130     IF K=27 THEN STOP 
 1140     EXEC TESTFLYT(NX,NY,TEST)
 1150     IF TEST=1 OR TEST=2 THEN 
 1160       EXEC XY(NX,NY)
 1170       PRINT "9F"
 1180       EXEC XY(GX,GY)
 1190       PRINT "  "
 1200       LET GX=NX; GY=NY
 1210     ELSE 
 1220       OUT 28,1
 1230       NX=GX; NY=GY
 1240     ENDIF 
 1250   UNTIL UNDSLUPPET=1
 1260 ENDPROC 
 1270 REM //-------------------------------------//
 1280 PROC XY(XADR,YADR)
 1290   PRINT CHR(6); CHR(95+XADR-(XADR>32)*64-(XADR>64)*64); CHR(95+YADR); 
 1300 ENDPROC 
 1310 REM //---------------------------------------------//
 1320 PROC TESTFLYT(Z,U,T)
 1330   IF Z>70 THEN 
 1340     UNDSLUPPET=1
 1350     T=1
 1360   ELSE 
 1370     IF LAB(Z,U)=0 OR LAB(Z,U)=2 THEN 
 1380       IF LAB(Z,U)=0 THEN POINT=POINT+1
 1390       T=1
 1400       LAB(Z,U)=2
 1410     ENDIF 
 1420     IF LAB(Z,U)=1 THEN T=0
 1430   ENDIF 
 1440 ENDPROC 
«eof»