|
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: 8310 (0x2076)
Types: COMAL_SAVE
Notes: LABY , LIB::LABY
Names: »LABY«
└─⟦43f2224a3⟧ Bits:30007878 (Demostrations diskette af 1981 Frederikshavn Gymnasium Område : LIB Nøgle : 1)
└─⟦this⟧
SAVE filename: "LABY" 0010 DIM SK[RM ( 80 , 23 ) , SVAR$ ( 4 ) , FORHIND$ ( 20 ) , STED ( 2 ) 0020 DIM STEPS$ ( 5 ) , XY$ ( 80 ) , CHAMP$ ( 30 ) 0030 LET ANTAL = 0 M]L = 0 OK = 1 0040 LET XY$ = "`abcdefghij" 0050 LET XY$ = XY$ , "klmnopqrst" 0060 LET XY$ = XY$ , "uvwxyzæøå~" 0070 LET XY$ = XY$ , "<127>" 0080 LET XY$ = XY$ , "@ABCDEFGHIJKLMNOPQRSTUVWXYZÆØÅ^_" 0090 LET XY$ = XY$ , " !<34>#$%&'()*+,-./" 0100 REM ------------------------------------------------------------------------- DATA FOR READ«nul»«nul» 0110 REM «nul» 0120 DATA "******" , 10 , 7 , "********" , 22 , 4 , "****" , 73 , 18 , "**" , 12 , 20 , "***" , 27 , 9 0130 DATA "**" , 27 , 6 , "***" , 43 , 20 , "****" , 48 , 15 , "**" , 25 , 15 , "**" , 31 , 15 0140 DATA "****" , 62 , 19 , "******" , 63 , 8 , "****" , 70 , 12 , "***" , 62 , 2 , "***" , 44 , 12 0150 DATA "*******" , 55 , 1 , "**" , 64 , 18 , "III" , 13 , 1 0160 REM «nul» 0170 REM DATA TIL VANDRETTE LÆHEGN«nul» 0180 DATA "*****LÆHEGN******" , 9 , 17 , "*****" , 29 , 17 , "***" , 13 , 14 0190 DATA "****" , 6 , 5 , "***" , 1 , 5 , "****" , 27 , 4 , "***" , 45 , 8 , "****" , 50 , 10 , "*" , 53 , 9 0200 DATA "****" , 17 , 23 , "***" , 13 , 20 , "***" , 17 , 13 , "*********" , 32 , 6 , "****" , 17 , 4 0210 DATA "*************" , 54 , 17 , "******" , 71 , 12 , "********" , 61 , 6 , "***" , 67 , 10 0220 DATA "******" , 75 , 15 , "******" , 1 , 18 0230 REM «nul» 0240 REM DATA TIL VANDHUL OG BAR(MÅL) OG STYREBOX«nul» 0250 DATA "######" , 30 , 23 , "######" , 30 , 20 , "#VAND#" , 30 , 21 , "#-HUL#" , 30 , 22 0260 DATA " " , 1 , 1 , " " , 1 , 2 0270 DATA "I-----I" , 73 , 1 , "I-----I" , 73 , 3 , "I BAR I" , 73 , 2 , "------------I" , 1 , 3 0280 REM «nul»«bel» 0290 REM «nul» 0300 PROC UDL[G 0310 MAT SK[RM = ZER 0320 RESTORE 0000 0330 PRINT "<140>" 0340 REM UDLÆGNING AF LODRETTE LINIER«nul» 0350 REPEAT 0360 READ FORHIND$ , X , Y 0370 FOR I = 0 TO LEN ( FORHIND$ ) - 1 0380 PRINT "<134>" ; XY$ ( X ) ; XY$ ( Y + I ) ; FORHIND$ ( I + 1 ) ; 0390 LET SK[RM ( X , Y + I ) = 1 0400 NEXT 0410 UNTIL FORHIND$ = "III" 0420 REPEAT 0430 REM UDLÆGNING AF VANDRETTE LINIER«nul»I 0440 READ FORHIND$ , X , Y 0450 FOR I = 0 TO LEN ( FORHIND$ ) - 1 0460 LET SK[RM ( X + I , Y ) = 1 0470 NEXT 0480 PRINT "<134>" ; XY$ ( X ) ; XY$ ( Y ) ; FORHIND$ ; 0490 UNTIL FORHIND$ = "------------I" 0500 FOR I = 1 TO 10 0510 REPEAT 0520 REPEAT 0530 RANDOMIZE 0540 LET X = INT ( RND ( 8 ) * 80 ) 0550 UNTIL X < 81 AND X > 0 0560 REPEAT 0570 RANDOMIZE 0580 LET Y = INT ( RND ( X ) * 25 ) 0590 UNTIL Y > 0 AND Y < 24 0600 UNTIL NOT SK[RM ( X , Y ) 0610 PRINT "<134>" ; XY$ ( X ) ; XY$ ( Y ) ; "*" ; 0620 LET SK[RM ( X , Y ) = 1 0630 LET OK = 1 0640 NEXT 0650 ENDPROC DLÆG«nul»«nul» 0660 REM «nul» 0670 PROC GAME 0680 PRINT "<134>" ; XY$ ( 14 ) ; XY$ ( 1 ) ; "_STYREBOX" 0690 PRINT "<134>" ; XY$ ( 3 ) ; XY$ ( 22 ) ; "?" 0700 PRINT "<134>" ; XY$ ( 3 ) ; XY$ ( 23 ) ; "^ DIG" 0710 PRINT "<134>" ; XY$ ( 1 ) ; XY$ ( 1 ) ; "NÆSTE KOOR-" 0720 PRINT "<134>" ; XY$ ( 1 ) ; XY$ ( 2 ) ; "DINAT: " 0730 DELAY = 2 0740 PRINT "<134>" ; XY$ ( 14 ) ; XY$ ( 1 ) ; " " 0750 PRINT "<134>" ; XY$ ( 3 ) ; XY$ ( 23 ) ; "<7> " 0760 LET STED ( 1 ) = 3 STED ( 2 ) = 22 SK[RM ( 3 , 22 ) = 2 OK = 1 ANTAL = 0 FEJL = 0 M]L = 0 0770 LET HH1 = SYS ( 11 ) MM1 = SYS ( 12 ) SS1 = SYS ( 13 ) 0780 REPEAT 0790 REPEAT 0800 REPEAT 0810 ON ERR THEN EXEC RAMME 0820 LET ANTAL = ANTAL + 1 0830 IF NOT OK THEN 0840 LET FEJL = FEJL + 1 0850 PRINT "<134>" ; XY$ ( 1 ) ; XY$ ( 23 ) ; "<7>" 0860 ENDIF 0870 PRINT "<134>" ; XY$ ( 7 ) ; XY$ ( 2 ) ; " " 0880 PRINT "<134>" ; XY$ ( 7 ) ; XY$ ( 2 ) ; 0890 INPUT "" , STEPS$ 0900 CASE LEN ( STEPS$ ) OF 0910 LET OK = 0 0920 WHEN 2 0930 CASE STEPS$ ( 1 ) OF 0940 LET OK = 0 0950 WHEN "O" , "N" , "F" , "T" 0960 IF STEPS$ ( 2 ) <= "9" AND STEPS$ ( 2 ) > "0" THEN 0970 LET OK = 1 0980 ENDIF 0990 ENDCASE «nul» 1000 WHEN 3 1010 CASE STEPS$ ( 1 ) OF 1020 LET OK = 0 1030 WHEN "O" , "N" , "F" , "T" 1040 IF STEPS$ ( 2 ) >= "1" AND STEPS$ ( 2 ) <= "8" AND STEPS$ ( 3 ) >= "0" AND STEPS$ ( 3 ) <= "9" THEN 1050 LET OK = 1 1060 ELSE 1070 LET OK = 0 1080 ENDIF 1090 ENDCASE «nul» 1100 ENDCASE «nul» 1110 UNTIL OK 1120 LET STEPS = 0 1130 CASE LEN ( STEPS$ ) OF 1140 WHEN 2 1150 LET STEPS = ORD ( STEPS$ ( 2 ) ) - 48 1160 WHEN 3 1170 LET STEPS = ( ORD ( STEPS$ ( 2 ) ) - 48 ) * 10 + ( ORD ( STEPS$ ( 3 ) ) - 48 ) 1180 ENDCASE «nul» 1190 CASE STEPS$ ( 1 ) OF 1200 LET KONSTX = 0 RETNG = 1 1210 WHEN "T" 1220 LET KONSTX = 0 RETNG = - 1 1230 WHEN "O" 1240 LET KONSTX = 1 RETNG = - 1 1250 WHEN "N" 1260 LET KONSTX = 1 RETNG = 1 1270 ENDCASE «nul» 1280 IF KONSTX THEN 1290 FOR Y = STED ( 2 ) + RETNG TO ( STED ( 2 ) + ( RETNG * STEPS ) ) STEP RETNG 1300 IF SK[RM ( STED ( 1 ) , Y ) THEN 1310 LET OK = 0 Y = STED ( 2 ) + ( RETNG * STEPS ) 1320 ENDIF 1330 NEXT 1340 ELSE 1350 FOR X = STED ( 1 ) + RETNG TO ( STED ( 1 ) + ( RETNG * STEPS ) ) STEP RETNG 1360 IF SK[RM ( X , STED ( 2 ) ) THEN 1370 LET OK = 0 X = STED ( 1 ) + ( RETNG * STEPS ) 1380 ENDIF 1390 NEXT 1400 ENDIF 1410 IF OK THEN 1420 IF KONSTX THEN 1430 FOR Y = STED ( 2 ) TO ( STED ( 2 ) + ( RETNG * STEPS ) ) STEP RETNG 1440 PRINT "<134>" ; XY$ ( STED ( 1 ) ) ; XY$ ( Y ) ; "?" ; 1450 LET SK[RM ( STED ( 1 ) , Y ) = 2 1460 NEXT 1470 LET STED ( 2 ) = Y 1480 ELSE 1490 FOR X = STED ( 1 ) TO ( STED ( 1 ) + ( RETNG * STEPS ) ) STEP RETNG 1500 PRINT "<134>" ; XY$ ( X ) ; XY$ ( STED ( 2 ) ) ; "?" ; 1510 LET SK[RM ( X , STED ( 2 ) ) = 2 1520 NEXT 1530 LET STED ( 1 ) = X 1540 ENDIF 1550 ENDIF 1560 UNTIL OK 1570 FOR X = 72 TO 80 1580 FOR Y = 1 TO 4 1590 IF STED ( 1 ) = X AND STED ( 2 ) = Y THEN 1600 LET M]L = 1 X = 80 Y = 4 1610 ENDIF 1620 NEXT 1630 NEXT 1640 UNTIL M]L 1650 LET HH2 = SYS ( 11 ) MM2 = SYS ( 12 ) SS2 = SYS ( 13 ) 1660 ENDPROC AME«nul» 1670 REM «nul» 1680 PROC RESULTAT 1690 REM INDLÆSNING AF DEN HIDTIDIGE CHAMP.«nul» 1700 CONNECT "LIB" , 1 1710 OPEN FILE ( 1 , 1 ) "POINT" 1720 READ FILE ( 1 ) REFANTAL , REFEJL , REFSCORE , REFTID , CHAMP$ 1730 CLOSE FILE ( 1 ) 1740 IF ABS ( HH1 - HH2 ) < 2 THEN 1750 IF HH2 = HH1 + 1 THEN 1760 LET SUMTID = ( MM2 * 60 ) + SS2 1770 LET SUMTID = SUMTID + ( 60 * ( 60 - MM1 ) + ( 60 - SS1 ) ) 1780 ELSE 1790 LET SUMTID = INT ( 60 * ( MM2 - MM1 ) ) + INT ( SS2 - SS1 ) 1800 ENDIF 1810 ELSE 1820 LET SUMTID = 0 OVERFLOW = 1 1830 ENDIF 1840 CASE FEJL OF 1850 LET BONUS = 1000 1860 WHEN 0 1870 LET BONUS = 0 1880 WHEN 1 1890 LET BONUS = 200 1900 WHEN 2 1910 LET BONUS = 500 1920 WHEN 3 1930 LET BONUS = 750 1940 ENDCASE «nul» 1950 LET SCORE = 10100 - SUMTID - ANTAL - ( 4 * FEJL ) - BONUS 1960 PRINT "<140><134>" ; XY$ ( 34 ) ; XY$ ( 1 ) ; "LABY-BAR OPGØRELSE" 1970 PRINT "<134>" ; XY$ ( 33 ) ; XY$ ( 2 ) ; "---------------------" 1980 PRINT "<134>" ; XY$ ( 15 ) ; XY$ ( 5 ) ; "DU VAR" ; SUMTID ; "SEKUNDER OM AT TAGE DE" ; ANTAL ; "SKRIDT" 1990 PRINT "<134>" ; XY$ ( 15 ) ; XY$ ( 7 ) ; "(INCL." ; FEJL ; "FEJLKOORDINATER) DER FØRTE DIG TIL BAREN" 2000 PRINT "<134>" ; XY$ ( 15 ) ; XY$ ( 9 ) ; "DENNE BEDRIFT BELØNNES MED" ; SCORE ; "POINT" 2010 IF SCORE >= REFSCORE THEN 2020 PRINT "<134>" ; XY$ ( 15 ) ; XY$ ( 11 ) ; "VORES FORRIGE CHAMP. " ; CHAMP$ 2030 PRINT "<134>" ; XY$ ( 15 ) ; XY$ ( 12 ) ; "SCOREDE KUN" ; REFSCORE ; "POINT" 2040 PRINT "<134>" ; XY$ ( 15 ) ; XY$ ( 13 ) ; "VED AT NÅ BAREN PÅ" ; REFANTAL ; "SKRIDT I TIDEN" ; REFTID ; "SEKUNDER" 2050 DELAY = 2 2060 PRINT "<134>" ; XY$ ( 15 ) ; XY$ ( 16 ) ; "EFTERSOM DU HAR SLÅET REKORDEN, ER DU HERMED NY CHAMPINON," 2070 PRINT "<134>" ; XY$ ( 15 ) ; XY$ ( 18 ) ; "OG DU BEDES VENLIGST SKRIVE DIT NAVN." 2080 PRINT "<134>" ; XY$ ( 15 ) ; XY$ ( 20 ) ; 2090 INPUT "NAVN : " , CHAMP$ 2100 OPEN FILE ( 1 , 3 ) "POINT" 2110 WRITE FILE ( 1 ) ANTAL , FEJL , SCORE , SUMTID , CHAMP$ 2120 CLOSE FILE ( 1 ) 2130 ELSE 2140 PRINT "<134>" ; XY$ ( 15 ) ; XY$ ( 11 ) ; "VORES CHAMP. " ; CHAMP$ 2150 PRINT "<134>" ; XY$ ( 15 ) ; XY$ ( 13 ) ; "REKORDEN MED" ; REFSCORE ; "POINT" 2160 PRINT "<134>" ; XY$ ( 15 ) ; XY$ ( 15 ) ; "DETTE BLEV KLARET PÅ" ; REFTID ; "SEKUNDER, VED" ; REFANTAL ; "SKRIDT" 2170 PRINT "<134>" ; XY$ ( 20 ) ; XY$ ( 20 ) ; "TAST 'RETURN' NÅR DU ER KLAR" 2180 INPUT "" , SVAR$ 2190 ENDIF 2200 PRINT "<134>" ; XY$ ( 1 ) ; XY$ ( 3 ) ; "<31>" 2210 PRINT "<134>" ; XY$ ( 1 ) ; XY$ ( 42 ) ; "<30>" 2220 PRINT "<134>" ; XY$ ( 2 ) ; XY$ ( 43 ) ; "<30>" 2230 ENDPROC ESULTAT«nul» 2240 PROC RAMME 2250 ON ERR THEN EXEC RAMME 2260 CASE SYS ( 7 ) OF 2270 REM «nul» 2280 WHEN 31 2290 LET OK = 0 Y = STED ( 2 ) + ( RETNG * STEPS ) X = STED ( 1 ) + ( RETNG * STEPS ) 2300 WHEN 100 2310 CREATE "POINT" , 2 2320 OPEN FILE ( 1 , 3 ) "POINT" 2330 WRITE FILE ( 1 ) 100 , 100 , 0 , 2000 , "KULI JØRGENSEN" 2340 CLOSE 2350 OPEN FILE ( 1 , 1 ) "POINT" 2360 ENDCASE «nul» 2370 ENDPROC 2380 REM ///------------------------------------///«nul»E 2390 REM «nul» 2400 PROC INSTRUK 2410 PRINT "<134>" ; XY$ ( 1 ) ; XY$ ( 3 ) ; "<31>" 2420 PRINT " IDEEN I DETTE SPIL ER, AT DU ER MEGET, MEGET TØRSTIG." 2430 PRINT " DET ENESTE DU TÆNKER PÅ, ER AT FÅ ET MEGET STORT" 2440 PRINT " KRUS KOLDT FADØL." 2450 DELAY = 1 2460 PRINT 2470 PRINT " FIDUSEN ER SÅ, AT DU ER PLACERET NEDE I SKÆRMENS VENSTRE" 2480 PRINT " HJØRNE, OG I DET MODSATTE HJØRNE LIGGER DER EN BAR, DER" 2490 PRINT " KAN OPFYLDE ALLE DINE ØL-ØNSKER." 2500 PRINT 2510 DELAY = 1 2520 PRINT " FOR AT KOMME TIL BAREN, MÅ DU STYRE DIN VEJ GENNEM" 2530 PRINT " LABYRINTEN MED KODER." 2540 PRINT " KODERNE BESTÅR AF FORKORTELSEN FOR EN AF" 2550 PRINT " DE FIRE RETNINGER :" 2560 PRINT " OP=O, NED=N, FREM=F, TILBAGE=T, EFTERFULGT AF ET TAL" 2570 PRINT " DER ANGIVER HVOR MANGE SKRIDT DU ØNSKER AT KOMME I DEN RETNING." 2580 PRINT " EKS. PÅ KODE : F12" 2590 PRINT " DER VIL FØRE DIG 12 SKRIDT FREM." 2600 DELAY = 1 2610 PRINT 2620 PRINT " DU SKAL PASSE PÅ IKKE AT RAMME IND I FORHINDRINGERNE, ELLER" 2630 PRINT " UDKANTEN AF BILLEDET, DA DU SÅ VIL FÅ FEJLPOINT." 2640 PRINT "<134>" ; XY$ ( 20 ) ; XY$ ( 23 ) ; "TAST 'RETURN' NÅR DU ER KLAR" ; 2650 INPUT "" , SVAR$ 2660 ENDPROC NSTRUK«nul» 2670 REM «nul» 2680 IF SYS ( 4 ) = 32 THEN 2690 PAGE = 0 2700 REPEAT 2710 PRINT "<140><134>" ; XY$ ( 32 ) ; XY$ ( 1 ) ; "LABY-BAR" 2720 PRINT "<134>" ; XY$ ( 31 ) ; XY$ ( 2 ) ; "----------" 2730 PRINT "<134>" ; XY$ ( 15 ) ; XY$ ( 8 ) ; "PROGRAMMET UDFØRER SPILLET 'LABY-BAR'" 2740 REPEAT 2750 PRINT "<134>" ; XY$ ( 15 ) ; XY$ ( 10 ) ; "ØNSKER DU FORKLARING (JA/NEJ) : " ; 2760 INPUT "<30>" , SVAR$ 2770 UNTIL SVAR$ = "JA" OR SVAR$ = "NEJ" 2780 IF SVAR$ = "JA" THEN EXEC INSTRUK 2790 EXEC UDL[G 2800 PRINT "<29>" 2810 EXEC GAME 2820 EXEC RESULTAT 2830 PRINT "<134>" ; XY$ ( 15 ) ; XY$ ( 5 ) ; "VIL DU PRØVE IGEN (JA/NEJ) : " ; 2840 INPUT "" , SVAR$ 2850 UNTIL SVAR$ <> "JA" 2860 PAGE = 80 2870 ELSE 2880 PRINT "DETTE SPIL KAN KUN BENYTTES FRA SKÆRMTERMINALEN !<7>" 2890 ENDIF 2900 CHAIN "LOOKUP"
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] = 0x0e9d
stack[1] = 0x077c
stack[2] = 0x0a7f
stack[3] = 0x0a7f
stack[4] = 0x0a7f
stack[5] = 0x0a7f
stack[6] = 0x0a7f
FOR-NEXT stack pointer = 0x0000
Var# = 0x008c
Loop Top = 0x0787
To Val = 80 (0x42500000)
Step Val = 1 (0x41100000)
Var# = 0x008d
Loop Top = 0x0791
To Val = 4 (0x41400000)
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)
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] = 0x0e0c
stack[1] = 0x0516
stack[2] = 0x0519
stack[3] = 0x051c
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] = 0x0001
stack[3] = 0x0000
stack[4] = 0x0000
stack[5] = 0x0000
stack[6] = 0x0000
Variables:
0x80 0xffff 0x00
0x81 0xffff 0x00 SK[RM
0x82 0xffff 0x02 SVAR$
0x83 0xffff 0x02 FORHIND$
0x84 0xffff 0x00 STED
0x85 0xffff 0x02 STEPS$
0x86 0xffff 0x02 XY$
0x87 0xffff 0x02 CHAMP$
0x88 0xffff 0x00 F[RSTEG
0x89 0xffff 0x00 ANTAL
0x8a 0xffff 0x00 OVERFLOW
0x8b 0xffff 0x00 UDL[G
0x8c 0xffff 0x00 X
0x8d 0xffff 0x00 Y
0x8e 0xffff 0x00 I
0x8f 0xffff 0x00 GAME
0x90 0xffff 0x00 HH1
0x91 0xffff 0x00 MM1
0x92 0xffff 0x00 SS1
0x93 0xffff 0x00 OK
0x94 0xffff 0x00 FEJL
0x95 0xffff 0x00 STEPS
0x96 0xffff 0x00 KONSTX
0x97 0xffff 0x00 RETNG
0x98 0xffff 0x00 M]L
0x99 0xffff 0x00 HH2
0x9a 0xffff 0x00 MM2
0x9b 0xffff 0x00 SS2
0x9c 0xffff 0x00 RESULTAT
0x9d 0xffff 0x00 REFANTAL
0x9e 0xffff 0x00 REFEJL
0x9f 0xffff 0x00 REFSCORE
0xa0 0xffff 0x00 REFTID
0xa1 0xffff 0x00 SUMTID
0xa2 0xffff 0x00 BONUS
0xa3 0xffff 0x00 SCORE
0xa4 0xffff 0x02 XT$
0xa5 0xffff 0x00 INSTRUK
0xa6 0xffff 0x00 RAMME
0xa7 0xffff 0x00 LISST
0xa8 0xffff 0x00 J
.magic = 0x5356 .u_pas = 0x0ef7 // Length of UPAS in words .u_das = 0x0135 // Length of UDAS in words .u_dvs = 0x0135 // Start på savede variabel indhold (word adr) .u_nds = 0x0042 // Address på næste prog.sætning (word adr) .u_cps = 0x0000 // Address på curr prog.sætning (word adr) .u_tll = 0x0050 // Page størrelse .u_tts = 0x0001 // TAP størrelse .u_ran = 0x0000 // Random tal .u_cdl = 0x0042 // Current DATA sætning ptr .u_cdb = 0x0000 // Current DATA byte ptr .u_esa = 0xffff // ON ESE (word adr) .u_era = 0xffff // ON ERR (word adr) .u_cas = 0x0000 // CASE dybde .u_las = 0xffff // last (-1)