OctetView
0x000000…000200 (0, 0, 1) UnusedSector ┆ - END 0m X fB 0n 6 ü _ w h + VS3600 2 ; D _ 8 / @ V SYSTEM: *** BASIS END NOT FOUND,FILE: HARD ERROR ON DISC,STATE: z SIZE ERROR ILLEGAL BLOCK TYPE,FILE: CHECKSUM ERROR,FILE: END MEDIUM,FILE: ILLEGAL FILE TYPE,FILE: ; g @ gÆ g;f? @ gæ v ┆
0x000200…000400 (0, 0, 2) UnusedSector ┆ N Z Å a j o u ø 9 1 ib Pj a P e g P (z " R : B PæPz(Z Pø(^ HåHzU+U+( 0z Pz( ( (g 0 80# P @.(f 0 0: !0)( ( 0: !( 0) ( /0C Aa ^ AY " I IQ IL IK IJ )EIf) # 9 ; G I5 8 0å Z Y*1' Z 0z 1? I= 1= Q: å )3 0ø M 0C ! å ! 1 A A ! A ! @ø Å Lü ü L L (P! I ! å ┆
0x000400…000600 (0, 0, 3) UnusedSector ┆ ! A ! A A L Lü P@ (N ) 8 1" Hm å ø@æ(Z @ø8 0æS80øS00 ! 8c mY A " C ,Y Y " A "! ! A Å5 P C U 0Q 1 1 Q " 0c 1 Q * Z 8U : J @ Q Xr 0_ P @ @ 1 rg aH(L gI jI 8M 8L H+H,H- Xo o Hl(*Hm(m8l0O m l o R m l XoPm(+ , (- (. X/01& B : Z : + 0/ 01 3 01" Q8SZ 2 () ( 81(T (. / @/ Z+ 0m+ J + ┆
0x000600…000800 (0, 0, 4) UnusedSector ┆" 5" B B B oXo: : : : # B + J * " PB VB * # oXoHm(m # $ m oXpPsHu@t (W %Xy(X %Xx(Y %Xv@w !(x (y (a n (w (V (v j td ( 8b j@ t0s p P P P a 0h g@ 0U 0La 0i r Xq "8L 8M &8OXl(*Hm(m ' "8L 8M q m l l Xp p " + p" + p" + 8U p p PXs( (s (* P@sXn( (n (s ` Hm $(m ` f d b@(cLcg c+ j i F 0 ,X/ /t0 2 - 3TDOMXR 0107 `Ø S` `ü 9┆
0x000800…000a00 (0, 0, 5) UnusedSector ┆1 S := TRUE; CONNECT; GETENTRY; DUMP.ZKIND:= 30; MOVE(CATI U . (j(j . # L . (jUNIT DKP0 ) å P C INPUT M S _ _ INPUTER . BEGIN f ( F.ZBLOCK _ * AR + WINT3; WHILE WINT2 > 0 DO BEGIN WINT1:= 512; GETREC(F,WINT1); PUTREC(DUMP,WINT1); DUMP^:= F^; WINT2:= WINT2 - 1; END; GETNEXT; END; CLOSE(DUMP,TRUE); IF ┆
0x000a00…000c00 (0, 0, 6) UnusedSector ┆DISC = TRUE THEN FREECAT(DUMP); END UNTIL TRUE = FALSE; END; MT0 + + p Ø + ┆
0x000c00…000e00 (0, 0, 7) Index {count=0x0002, a000=Slice {count=0x0018, sector=0x0020}, a001=Slice {count=0x0018, sector=0x0866}}
0x000e00…001000 (0, 0, 8) Index {count=0x0001, a000=Slice {count=0x0002, sector=0x0008}}
0x001000…001200 (0, 0, 9) Kit {sys_slice_size=0x0018, slice_size=0x0006, sectors_on_unit=0x1308, free_sectors=0x12e8, first_data_sector=0x0020, top_data_sector=0x1308}
0x001200…001400 (0, 0, 10) UnusedSector ┆ @ < Ø ┆
0x001400…001600 (0, 0, 11) UnusedSector ┆ I 9 + ! ! J Q 9 # B # B # B # B # B # A # (c I A E ! B ! B ! * J " 8L 8Q % ) B B B P(P ! Q Z " ) ! I 9 Z P I ! 9 Z ) J ! B 0 IyIå Iz Iw Is Ip: ; 0V Qf(O )g Q PYbYj)b1 _1Ø 7d U ) 2 H W v9E M)A å G8 + 1p j)@ r ?Q81: QA p 1f99 O e9a1' R c Z +%V8g '),0R å F9$ &(SIJ9L! 9 Y E G B 1 .7>7F : / "ü K H$B" "ü $B9 $ r 9 ) w ) å 8I O ┆
0x001600…001800 (0, 0, 12) UnusedSector ┆ d D D d 1 DY S S l K)V 6f?1* 0)Z 1f?1& +1% ) # B (/ H/M (0M # B (N =! ! B (V9 K V! A " y d x Y I 0P 1 ) J (N ) 5 Q T Y ÅTTY OCP b hMT P nFD5 tKIT zMT0 P PTR P CDR P FD0 4` a ) f? VbÅgÅ ! bI! gI 8R bIgI e e 7d? 6bL( H H E 1 P 0,< * K Z Y ; 09* Z K 1 n: Z Z e l 0J8%(&S S 8% W S (Pj a @@ 0N 0ø ┆
0x001800…001a00 (0, 1, 1) UnusedSector ┆S q > K)V 6f?1* 0)Z 1f?1& +1% ) # B (/ H/M (0M # B (N =! ! B (V9 K V! A " y d x Y I 0P 1 ) J (N ) 5 Q T Y ÅTTY OCP b hMT P nFD5 tKIT zMT0 P PTR P CDR P FD0 4` a ) f? VbÅgÅ ! bI! gI 8R bIgI e e 7d? 6bL( H H E 1 P 0,< * K Z Y ; 09* Z K 1 n: Z Z e l 0J8%(&S S 8% W S (Pj a @@ 0N 0ø ┆
0x001a00…001c00 (0, 1, 2) UnusedSector ┆e 0 0å f 0 @ P 0Q 0m X fB 0n X Pf 0o å X f 0q w X e 0 T o e 0Q S .0 e Z 8 S : K * 2 e 0 2 0 7!R* ( M P @ @ N 0 Z B f 0 2" C * 2 g 0 B 0 2% N 6 " * 2 e 0 - Z g 0 ' gB - .e g & . (P (E " R : B P8(N P0 . # # + J 00) Y A " C FILENAMES DUMPED TO LOADED FROM USED MASK: COMMAND FILE DISC ERROR, NOT DUMPED DOES NOT EXIST NOT LOADED PROCESS EXI┆
0x001c00…001e00 (0, 1, 3) UnusedSector ┆STS *** ERROR ON FILE SYS, SEGMENT *** SYSTEM ERROR *** ERRONEOUS TERMINATION *** END OF JOB *** FCOPY DUMP $$$$$ $LPT MT0 STACO END 00015 CAT CAT $$$$$ CAT $LPT *I YDTST T T BG *8"2 SYS $ %8%8 p æ M %8 ┆
0x001e00…002000 (0, 1, 4) UnusedSector ┆ MTMT CAP8 LIST / CORE CAP8 END E 1 P 0,< * K Z Y ; 09* Z K 1 n: Z Z 2 2 220J8%(&S S 8% W S (Pj a @@ 0N 0ø e 0 0å f 0 @ P 0Q 0m X fB 0n X Pf 0o å X f 0q w X e 0 T o e 0Q S .0 e Z 8 S : K * 2 e 0 2 0 7!R* ( M P @ @ N 0 Z B f 0 2" C * 2 g 0 B 0 2% N 6 " * 2 e 0 - Z g 0 ' gB - .e g & . (P (E " R : B P8(N P0 . # # ┆
0x002000…002200 (0, 1, 5) UnusedSector ┆1 S := TRUE; CONNECT; GETENTRY; DUMP.ZKIND:= 30; MOVE(CATI U . (j(j . # L . (jUNIT DKP0 ) å P C INPUT M S _ _ INPUTER . BEGIN f ( F.ZBLOCK _ * AR + WINT3; WHILE WINT2 > 0 DO BEGIN WINT1:= 512; GETREC(F,WINT1); PUTREC(DUMP,WINT1); DUMP^:= F^; WINT2:= WINT2 - 1; END; GETNEXT; END; CLOSE(DUMP,TRUE); IF ┆
0x002200…002400 (0, 1, 6) UnusedSector ┆DISC = TRUE THEN FREECAT(DUMP); END UNTIL TRUE = FALSE; END; MT0 + + p Ø + ┆
0x002400…002600 (0, 1, 7) UnusedSector ┆- - END; GETNEXT; END; CLOSE(DUMP,TRUE); IF DISC = TRUE THEN FREECAT(DUMP); END UNTIL TRUE = FALSE; END; NEW DKP0 MT0 F F ┆
0x002600…002800 (0, 1, 8) UnusedSector ┆ 32); OUTBLOCK(DUMP); END ELSE BEGIN DISC:= TRUE; CONNECT; GETENTRY; DUMP.ZKIND:= 30; MOVE(ENTRY,0,DUMP.ZNAME,0,6); SETENTRY(DUMP,ENTRY); OPEN(DUMP,3); END; END; GETNEXT; WHILE FEOF = FALSE DO BEGIN F.ZBLOCK:= OPVAR + WINT3; WHILE WINT2 > 0 DO BEGIN WINT1:= 512; GETREC(F,WINT1); PUTREC(DUMP,WINT1); DUMP^:= F^; WINT2:= WI┆
0x002800…002a00 (0, 1, 9) UnusedSector ┆NT2 - 1; LPT G 0 0 p Ø 0 *** END OF JOB *** FILENAMES DUMPED TO MT0:001 USED MASK: $$$$$ B 0 Y "99 9 Z ! B@"*B+2+ PJ # 0 ", + P + + ! ü (- Q + 2Y 8 K RC ø(K 2) 8 + ø2)(S ) ) (P < >Y (c (I (W P (S @ P @ P @ T j7 k K B 1ü Eü I üM øMw zMv xMu v)qIo) ) # # %d m y j Ø %`=c0Q %Å=`0O %X=Æ0PIW-O -K 7 UH 4)M5D┆
0x002a00…002c00 (0, 1, 10) UnusedSector ┆ P -I EB EA F%@ #)7 I3 F P @=) Æ 0 B 1+! u: Y I+ I* I)1&9)# B # B # B -B PB R ! B A (P 8 ; # B # B # B Q ! ! 0 @S II IH II XAH )E å C )= ø 7)8 ø (RI8)2 øA6)3 å -!2 . . !.)* å ((RI')" øA%)" å !! ) ø A ) ! å ! ) 1 NB " (O B 0 $H$S $ $ / : I0 I/ I. I-1)* I,)6J * I) B B B B A&A&Q&(NJ )*J ) ø1 J % " E ! B A 9 + J + J + J $ S ; 3 CAT " (K B *Z Z : + ┆
0x002c00…002e00 (0, 1, 11) UnusedSector ┆ I 9 + ! ! J Q 9 # B # B # B # B # B # A # (c I A E ! B ! B ! * J " 8L 8Q % ) B B B P(P ! Q Z " ) ! I 9 Z P I ! 9 Z ) J ! B 0 IyIå Iz Iw Is Ip: ; 0V Qf(O )g Q PYbYj)b1 _1Ø 7d U ) 2 H W v9E M)A å G8 + 1p j)@ r ?Q81: QA p 1f99 O e9a1' R c Z +%V8g '),0R å F9$ &(SIJ9L! 9 Y E G B 1 .7>7F : / "ü K H$B" "ü $B9 $ r 9 ) w ) å 8I O ┆
0x002e00…003000 (0, 1, 12) UnusedSector ┆) ! J Æ) ! I ! S E A YSI 9 # Y A 3 x# (W # E ) 0N 0 # (c 2 + 8N A I Q *Y) * K * K * K !Y ) ø8c O8R Y ø(b I ! (S A (R1 P! I A Q 1 O '$B" 1 PY Q)I) Y(Q( PI'(RI&)! ø (c A ) ø ) Y ) ø 8b ) 1 ) 1 8S 7d" '7d T0 2 ) 0 8 ; # ; 0N ) Q OPDEV YES NO d7d 0003 *** PARAM I I 1 (, M 0 q I 8 ; # ; 0N ) Q ┆
0x003000…003200 (1, 0, 1) UnusedSector ┆S q > K)V 6f?1* 0)Z 1f?1& +1% ) # B (/ H/M (0M # B (N =! ! B (V9 K V! A " y d x Y I 0P 1 ) J (N ) 5 Q T Y ÅTTY OCP b hMT P nFD5 tKIT zMT0 P PTR P CDR P FD0 4` a ) f? VbÅgÅ ! bI! gI 8R bIgI e e 7d? 6bL( H H E 1 P 0,< * K Z Y ; 09* Z K 1 n: Z Z e l 0J8%(&S S 8% W S (Pj a @@ 0N 0ø ┆
0x003200…003400 (1, 0, 2) UnusedSector ┆e 0 0å f 0 @ P 0Q 0m X fB 0n X Pf 0o å X f 0q w X e 0 T o e 0Q S .0 e Z 8 S : K * 2 e 0 2 0 7!R* ( M P @ @ N 0 Z B f 0 2" C * 2 g 0 B 0 2% N 6 " * 2 e 0 - Z g 0 ' gB - .e g & . (P (E " R : B P8(N P0 . # # + J 00) Y A " C FILENAMES DUMPED TO LOADED FROM USED MASK: COMMAND FILE DISC ERROR, NOT DUMPED DOES NOT EXIST NOT LOADED PROCESS EXI┆
0x003400…003600 (1, 0, 3) UnusedSector ┆STS *** ERROR ON FILE SYS, SEGMENT *** SYSTEM ERROR *** ERRONEOUS TERMINATION *** END OF JOB *** FCOPY DUMP $$$$$ $LPT MT0 STACO END 00015 CAT CAT $$$$$ CAT $LPT *I YDTST T T BG *8"2 SYS $ %8%8 p æ M %8 ┆
0x003600…003800 (1, 0, 4) UnusedSector ┆ YDTST r $ ) ) p ' ' M ) 32); OUTBLOCK(DUMP); END ELSE BEGIN ┆
0x003800…003a00 (1, 0, 5) UnusedSector ┆1 S := TRUE; CONNECT; GETENTRY; DUMP.ZKIND:= 30; MOVE(CATI U . (j(j . # L . (jUNIT DKP0 ) å P C INPUT M S _ _ INPUTER . BEGIN f ( F.ZBLOCK _ * AR + WINT3; WHILE WINT2 > 0 DO BEGIN WINT1:= 512; GETREC(F,WINT1); PUTREC(DUMP,WINT1); DUMP^:= F^; WINT2:= WINT2 - 1; END; GETNEXT; END; CLOSE(DUMP,TRUE); IF ┆
0x003a00…003c00 (1, 0, 6) UnusedSector ┆DISC = TRUE THEN FREECAT(DUMP); END UNTIL TRUE = FALSE; END; MT0 + + p Ø + ┆
0x003c00…003e00 (1, 0, 7) UnusedSector ┆- - END; GETNEXT; END; CLOSE(DUMP,TRUE); IF DISC = TRUE THEN FREECAT(DUMP); END UNTIL TRUE = FALSE; END; NEW DKP0 MT0 F F ┆
0x003e00…004000 (1, 0, 8) UnusedSector ┆ 32); OUTBLOCK(DUMP); END ELSE BEGIN DISC:= TRUE; CONNECT; GETENTRY; DUMP.ZKIND:= 30; MOVE(ENTRY,0,DUMP.ZNAME,0,6); SETENTRY(DUMP,ENTRY); OPEN(DUMP,3); END; END; GETNEXT; WHILE FEOF = FALSE DO BEGIN F.ZBLOCK:= OPVAR + WINT3; WHILE WINT2 > 0 DO BEGIN WINT1:= 512; GETREC(F,WINT1); PUTREC(DUMP,WINT1); DUMP^:= F^; WINT2:= WI┆
0x004000…004020 (1, 0, 9) CatEnt {name=»PPX02«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0001, idxblk=0x0674, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x004020…004040 CatEnt {name=»GENOF«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x0006, idxblk=0x05a2, alloc=0x000b, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x004040…004060 CatEnt {name=»MD«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0008, idxblk=0x07ac, alloc=0x000b, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x004060…004080 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x004080…0040a0 CatEnt {name=»R5«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0003, idxblk=0x0e5a, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x0040a0…0040c0 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0xa…]
0x004200…004220 (1, 0, 10) CatEnt {name=»$CDR«, w3=0x0000, w4=0x0000, w5=0x0c05, attrib=0x0016, length=0xe3ff, idxblk=0x0cee, alloc=0x0000, w10=0x4344, w11=0x5200, w12=0x0000, w13=0x000a, w14=0x0009, w15=0x0101}
0x004220…004240 CatEnt {name=»GENON«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x000b, idxblk=0x05c0, alloc=0x000b, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x004240…004260 CatEnt {name=»YDBOP«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0001, idxblk=0x0728, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x004260…004280 CatEnt {name=»CMB00«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0003, idxblk=0x08ae, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x004280…0042a0 CatEnt {name=»ERCAL«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0002, idxblk=0x07b8, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x0042a0…0042c0 CatEnt {name=»SNOP6«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x000b, idxblk=0x0794, alloc=0x000b, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x0042c0…0042e0 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x0042e0…004300 CatEnt {name=»NBTEM«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0001, idxblk=0x0f92, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x004300…004320 CatEnt {name=»FDT«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0005, idxblk=0x0fe0, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x004320…004340 CatEnt {name=»BTEMP«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0001, idxblk=0x10e2, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x004340…004360 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0x5…]
0x004400…004420 (1, 0, 11) CatEnt {name=»SSYSP«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0058, length=0x0046, idxblk=0x0038, alloc=0x0047, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x004420…004440 CatEnt {name=»$LPT«, w3=0x0000, w4=0x0000, w5=0x0c05, attrib=0x0016, length=0xe3ff, idxblk=0x0cee, alloc=0x0000, w10=0x4c50, w11=0x5400, w12=0x0000, w13=0x0001, w14=0x0003, w15=0x0101}
0x004440…004460 CatEnt {name=»$MT0«, w3=0x0000, w4=0x0000, w5=0x0c05, attrib=0x0006, length=0xe3ff, idxblk=0x0cee, alloc=0x0000, w10=0x4d54, w11=0x3000, w12=0x0000, w13=0x000e, w14=0x0001, w15=0x0101}
0x004460…004480 CatEnt {name=»DUMP«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0016, idxblk=0x0086, alloc=0x0017, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x004480…0044a0 CatEnt {name=»CREAT«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x0006, idxblk=0x02c6, alloc=0x000b, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x0044a0…0044c0 CatEnt {name=»FLOFO«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x0012, idxblk=0x040a, alloc=0x0017, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x0044c0…0044e0 CatEnt {name=»XREF«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x0012, idxblk=0x044c, alloc=0x0017, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x0044e0…004500 CatEnt {name=»ACALL«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0027, idxblk=0x0a76, alloc=0x0029, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x004500…004520 CatEnt {name=»SVAN3«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0005, idxblk=0x021e, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x004520…004540 CatEnt {name=»NZTEM«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x005c, idxblk=0x097a, alloc=0x005f, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x004540…004560 CatEnt {name=»DTEST«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0008, idxblk=0x07e8, alloc=0x000b, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x004560…004580 CatEnt {name=»FDBOT«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x0005, idxblk=0x07f4, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x004580…0045a0 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x0045a0…0045c0 CatEnt {name=»PLAY«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x000b, idxblk=0x03d4, alloc=0x000b, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x0045c0…0045e0 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0x1…]
0x004600…004620 (1, 0, 12) CatEnt {name=»DISK«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x0004, idxblk=0x02de, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x004620…004640 CatEnt {name=»EDIT«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x001f, idxblk=0x02f0, alloc=0x0023, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x004640…004660 CatEnt {name=»GENER«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x000e, idxblk=0x033e, alloc=0x0011, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x004660…004680 CatEnt {name=»ORGAN«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0005, idxblk=0x0200, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x004680…0046a0 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x0046a0…0046c0 CatEnt {name=»NBPRU«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0004, idxblk=0x0e2a, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x0046c0…0046e0 CatEnt {name=»LOOP«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0001, idxblk=0x0818, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x0046e0…004700 CatEnt {name=»GAME«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x4010, length=0x0017, idxblk=0x06fe, alloc=0x0017, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x004700…004720 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0x7…]
0x004800…004820 (1, 1, 1) CatEnt {name=»$TTY«, w3=0x0000, w4=0x0000, w5=0x0c05, attrib=0x0016, length=0x0000, idxblk=0x0cee, alloc=0x0000, w10=0x5454, w11=0x5900, w12=0x0000, w13=0x0001, w14=0x0001, w15=0x0101}
0x004820…004840 CatEnt {name=»MUP«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x0003, idxblk=0x0110, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x004840…004860 CatEnt {name=»CATIX«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x0005, idxblk=0x019a, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x004860…004880 CatEnt {name=»M1«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0005, idxblk=0x01ca, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x004880…0048a0 CatEnt {name=»CAP2«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x0001, idxblk=0x00e0, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x0048a0…0048c0 CatEnt {name=»BASIC«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0001, idxblk=0x1256, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x0048c0…0048e0 CatEnt {name=»COMPA«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x000a, idxblk=0x02a2, alloc=0x000b, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x0048e0…004900 CatEnt {name=»STACO«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x0003, idxblk=0x03a4, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x004900…004920 CatEnt {name=»TIME«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x0003, idxblk=0x03c2, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x004920…004940 CatEnt {name=»LOGOF«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0001, idxblk=0x0d8e, alloc=0x0005, w10=0x01be, w11=0x0001, w12=0x2053, w13=0x0000, w14=0x0000, w15=0x0000}
0x004940…004960 CatEnt {name=»ZTEMP«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x005f, idxblk=0x0ecc, alloc=0x005f, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x004960…004980 CatEnt {name=»PHMAC«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0008, idxblk=0x0698, alloc=0x000b, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x004980…0049a0 CatEnt {name=»SSYSI«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0001, idxblk=0x066e, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x0049a0…0049c0 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0x1…]
0x0049e0…004a00 CatEnt {name=»EDITM«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x001d, idxblk=0x0848, alloc=0x001d, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x004a00…004a20 (1, 1, 2) CatEnt {name=»NRCAL«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0002, idxblk=0x0734, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x004a20…004a40 CatEnt {name=»JIMIN«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0005, idxblk=0x0224, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x004a40…004a60 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x004a60…004a80 CatEnt {name=»LIFE«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0008, idxblk=0x08c0, alloc=0x000b, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x004a80…004aa0 CatEnt {name=»LOGON«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0003, idxblk=0x0d46, alloc=0x0005, w10=0x013c, w11=0x0003, w12=0x2053, w13=0x0000, w14=0x0000, w15=0x0000}
0x004aa0…004ac0 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0xa…]
0x004c00…004c20 (1, 1, 3) CatEnt {name=»MUI«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x0002, idxblk=0x010a, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x004c20…004c40 CatEnt {name=»JUL«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0005, idxblk=0x0266, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x004c40…004c60 CatEnt {name=»P221«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x0002, idxblk=0x0260, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x004c60…004c80 CatEnt {name=»TYPE«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x000a, idxblk=0x03b6, alloc=0x000b, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x004c80…004ca0 CatEnt {name=»M3102«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0002, idxblk=0x0b00, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x004ca0…004cc0 CatEnt {name=»IOO«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0012, idxblk=0x10a0, alloc=0x0017, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x004cc0…004ce0 CatEnt {name=»END«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0001, idxblk=0x09f2, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x004ce0…004d00 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0x8…]
0x004e00…004e20 (1, 1, 4) CatEnt {name=»MAP«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x8010, length=0x0002, idxblk=0x0008, alloc=0x0002, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x004e20…004e40 CatEnt {name=»CATW«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x0002, idxblk=0x00e6, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x004e40…004e60 CatEnt {name=»TTY0«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x0004, idxblk=0x01c4, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x004e60…004e80 CatEnt {name=»SP«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x0002, idxblk=0x01fa, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x004e80…004ea0 CatEnt {name=»BACH«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x000b, idxblk=0x05f0, alloc=0x000b, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x004ea0…004ec0 CatEnt {name=»P222«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x0001, idxblk=0x025a, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x004ec0…004ee0 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x004ee0…004f00 CatEnt {name=»GENOP«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x0005, idxblk=0x05ae, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x004f00…004f20 CatEnt {name=».5«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0017, idxblk=0x0668, alloc=0x0017, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x004f20…004f40 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0x6…]
0x005000…005020 (1, 1, 5) CatEnt {name=»MUB«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x0003, idxblk=0x00f2, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x005020…005040 CatEnt {name=»CATX«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x000d, idxblk=0x0188, alloc=0x0011, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x005040…005060 CatEnt {name=»LPT«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x0002, idxblk=0x01f4, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x005060…005080 CatEnt {name=»FD0«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x0003, idxblk=0x0236, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x005080…0050a0 CatEnt {name=»CATLI«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x0013, idxblk=0x027e, alloc=0x0017, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x0050a0…0050c0 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x0050c0…0050e0 CatEnt {name=»MAST«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0014, idxblk=0x00b6, alloc=0x0017, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x0050e0…005100 CatEnt {name=»PALI«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0005, idxblk=0x01d0, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x005100…005120 CatEnt {name=»CWDD«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x0002, idxblk=0x0776, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x005120…005140 CatEnt {name=»AIR«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x000b, idxblk=0x0242, alloc=0x000b, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x005140…005160 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x005160…005180 CatEnt {name=»W«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0005, idxblk=0x096e, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x005180…0051a0 CatEnt {name=»PANEL«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0002, idxblk=0x0974, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x0051a0…0051c0 CatEnt {name=»BASGE«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0033, idxblk=0x09da, alloc=0x0035, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x0051c0…0051e0 CatEnt {name=»LPX01«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0001, idxblk=0x07be, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x0051e0…005200 CatEnt {name=»IO1«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x000c, idxblk=0x0986, alloc=0x0011, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x005200…005220 (1, 1, 6) CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x005220…005240 CatEnt {name=»REMOV«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x0009, idxblk=0x0380, alloc=0x000b, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x005240…005260 CatEnt {name=»BAPAR«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x001a, idxblk=0x055a, alloc=0x001d, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x005260…005280 CatEnt {name=»BTF«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x0017, idxblk=0x0632, alloc=0x0017, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x005280…0052a0 CatEnt {name=»NIM«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0006, idxblk=0x0914, alloc=0x000b, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x0052a0…0052c0 CatEnt {name=»MASTM«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x000b, idxblk=0x0920, alloc=0x000b, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x0052c0…0052e0 CatEnt {name=»TT009«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0004, idxblk=0x09b6, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x0052e0…005300 CatEnt {name=»KB001«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0001, idxblk=0x0e06, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x005300…005320 CatEnt {name=»RBBA1«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0004, idxblk=0x0d94, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x005320…005340 CatEnt {name=»SNOOP«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x000b, idxblk=0x09c8, alloc=0x000b, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x005340…005360 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0x5…]
0x005400…005420 (1, 1, 7) CatEnt {name=»S3600«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x0001, idxblk=0x1220, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x005420…005440 CatEnt {name=»MUR«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x0002, idxblk=0x00f8, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x005440…005460 CatEnt {name=»CAP8«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x0004, idxblk=0x01b2, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x005460…005480 CatEnt {name=»P218«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x0002, idxblk=0x024e, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x005480…0054a0 CatEnt {name=»FCOPY«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x0013, idxblk=0x0326, alloc=0x0017, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x0054a0…0054c0 CatEnt {name=»GEN«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x0018, idxblk=0x0578, alloc=0x001d, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x0054c0…0054e0 CatEnt {name=»ELISE«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0005, idxblk=0x01d6, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x0054e0…005500 CatEnt {name=»YHEAD«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0001, idxblk=0x10e8, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x005500…005520 CatEnt {name=»TEST«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x4010, length=0x0017, idxblk=0x0836, alloc=0x0017, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x005520…005540 CatEnt {name=»FSLIB«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0007, idxblk=0x08e4, alloc=0x000b, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x005540…005560 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x005560…005580 CatEnt {name=»CF305«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0005, idxblk=0x12aa, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x005580…0055a0 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0x1…]
0x0055c0…0055e0 CatEnt {name=»DEBUG«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x001d, idxblk=0x0ac4, alloc=0x001d, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x0055e0…005600 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x005600…005620 (1, 1, 8) CatEnt {name=»MUC«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x0001, idxblk=0x00fe, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x005620…005640 CatEnt {name=»FD1«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x0001, idxblk=0x023c, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x005640…005660 CatEnt {name=»P219«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x0002, idxblk=0x0254, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x005660…005680 CatEnt {name=»COPY«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x000a, idxblk=0x02ba, alloc=0x000b, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x005680…0056a0 CatEnt {name=»YLIFE«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0009, idxblk=0x08f0, alloc=0x000b, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x0056a0…0056c0 CatEnt {name=»RBREV«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0001, idxblk=0x0a1c, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x0056c0…0056e0 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0x5…]
0x005780…0057a0 CatEnt {name=»CODEP«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0035, idxblk=0x0b0c, alloc=0x0035, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x0057a0…0057c0 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0x1…]
0x0057e0…005800 CatEnt {name=»YMSNO«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x000b, idxblk=0x0b5a, alloc=0x000b, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x005800…005820 (1, 1, 9) CatEnt {name=»SYS«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x8010, length=0x0030, idxblk=0x0006, alloc=0x0030, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x005820…005840 CatEnt {name=»BARN«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0005, idxblk=0x022a, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x005840…005860 CatEnt {name=»PTP«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x0001, idxblk=0x020c, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x005860…005880 CatEnt {name=»SUBCA«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x000b, idxblk=0x03aa, alloc=0x000b, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x005880…0058a0 CatEnt {name=»DIA«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x0018, idxblk=0x03e6, alloc=0x001d, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x0058a0…0058c0 CatEnt {name=»LINK«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x0024, idxblk=0x0500, alloc=0x0029, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x0058c0…0058e0 CatEnt {name=»PALIN«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0005, idxblk=0x03e0, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x0058e0…005900 CatEnt {name=»KB002«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0001, idxblk=0x0e12, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x005900…005920 CatEnt {name=»MUSIK«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0001, idxblk=0x0eb4, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x005920…005940 CatEnt {name=»NBCAL«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0002, idxblk=0x083c, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x005940…005960 CatEnt {name=»I«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0001, idxblk=0x1040, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x005960…005980 CatEnt {name=»WTST6«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x000b, idxblk=0x0b90, alloc=0x000b, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x005980…0059a0 CatEnt {name=»AMXCO«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0001, idxblk=0x0ed2, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x0059a0…0059c0 CatEnt {name=»CODEX«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x003b, idxblk=0x0bc6, alloc=0x003b, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x0059c0…0059e0 CatEnt {name=»PH00B«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0004, idxblk=0x06aa, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x0059e0…005a00 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x005a00…005a20 (1, 1, 10) CatEnt {name=»DKP«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x0003, idxblk=0x01e2, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x005a20…005a40 CatEnt {name=»APPEN«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x000a, idxblk=0x0272, alloc=0x000b, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x005a40…005a60 CatEnt {name=»GENOR«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x0007, idxblk=0x05b4, alloc=0x000b, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x005a60…005a80 CatEnt {name=»AUTO«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0001, idxblk=0x0c14, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x005a80…005aa0 CatEnt {name=»YWTIM«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0002, idxblk=0x07a0, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x005aa0…005ac0 CatEnt {name=»RBNMA«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0005, idxblk=0x0c2c, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x005ac0…005ae0 CatEnt {name=»YLPX1«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0006, idxblk=0x07dc, alloc=0x000b, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x005ae0…005b00 CatEnt {name=»YIOO6«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0031, idxblk=0x11f6, alloc=0x0035, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x005b00…005b20 CatEnt {name=»CHECK«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0002, idxblk=0x08d2, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x005b20…005b40 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0x1…]
0x005b60…005b80 CatEnt {name=»CDUMP«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x000b, idxblk=0x0c5c, alloc=0x000b, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x005b80…005ba0 CatEnt {name=»WTEST«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x000b, idxblk=0x0c68, alloc=0x000b, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x005ba0…005bc0 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x005bc0…005be0 CatEnt {name=»MSN32«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0002, idxblk=0x0c7a, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x005be0…005c00 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x005c00…005c20 (1, 1, 11) CatEnt {name=»$PTP«, w3=0x0000, w4=0x0000, w5=0x0c05, attrib=0x0016, length=0x0217, idxblk=0x0cee, alloc=0x0000, w10=0x5054, w11=0x5000, w12=0x0000, w13=0x0001, w14=0x000b, w15=0x0101}
0x005c20…005c40 CatEnt {name=»DOMUQ«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x001e, idxblk=0x0140, alloc=0x0023, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x005c40…005c60 CatEnt {name=»PUNCH«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x0008, idxblk=0x0374, alloc=0x000b, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x005c60…005c80 CatEnt {name=»SYSG«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x000f, idxblk=0x05de, alloc=0x0011, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x005c80…005ca0 CatEnt {name=»DBD«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x0005, idxblk=0x05f6, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x005ca0…005cc0 CatEnt {name=»R14«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0010, idxblk=0x0c32, alloc=0x0011, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x005cc0…005ce0 CatEnt {name=»BASIN«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0001, idxblk=0x0662, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x005ce0…005d00 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0x1…]
0x005d20…005d40 CatEnt {name=»DEZ«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0005, idxblk=0x0c8c, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x005d40…005d60 CatEnt {name=»REPEA«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x000b, idxblk=0x0c92, alloc=0x000b, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x005d60…005d80 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0x1…]
0x005da0…005dc0 CatEnt {name=»YFS06«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0002, idxblk=0x0cb6, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x005dc0…005de0 CatEnt {name=»MTSTP«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x000b, idxblk=0x0cc2, alloc=0x000b, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x005de0…005e00 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x005e00…005e20 (1, 1, 12) CatEnt {name=»SSYSE«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0051, length=0x0010, idxblk=0x00c8, alloc=0x0011, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x005e20…005e40 CatEnt {name=»YCHEC«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0008, idxblk=0x08ba, alloc=0x000b, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x005e40…005e60 CatEnt {name=»YDBX3«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x007c, idxblk=0x06c2, alloc=0x007d, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x005e60…005e80 CatEnt {name=»COPSP«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x005f, idxblk=0x0944, alloc=0x005f, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x005e80…005ea0 CatEnt {name=»DOMPS«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x0024, idxblk=0x04ca, alloc=0x0029, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x005ea0…005ec0 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x005ec0…005ee0 CatEnt {name=»E1234«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0024, idxblk=0x0b7e, alloc=0x0029, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x005ee0…005f00 CatEnt {name=»MUSIL«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0019, length=0x0029, idxblk=0x0cda, alloc=0x0029, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x005f00…005f20 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0x2…]
0x005f60…005f80 CatEnt {name=»PIDEN«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0011, idxblk=0x0d16, alloc=0x0011, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x005f80…005fa0 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x005fa0…005fc0 CatEnt {name=»TIMEX«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x0005, idxblk=0x0d4c, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x005fc0…005fe0 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0x2…]
0x006020…006040 CatEnt {name=»$PTR«, w3=0x0000, w4=0x0000, w5=0x0c05, attrib=0x0016, length=0x0237, idxblk=0x0cee, alloc=0x0000, w10=0x5054, w11=0x5200, w12=0x0000, w13=0x0001, w14=0x0009, w15=0x0101}
0x006040…006060 CatEnt {name=»FL0«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x0007, idxblk=0x01e8, alloc=0x000b, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x006060…006080 CatEnt {name=»NODCO«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x000b, idxblk=0x0212, alloc=0x000b, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x006080…0060a0 CatEnt {name=»CHATR«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x0006, idxblk=0x0296, alloc=0x000b, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x0060a0…0060c0 CatEnt {name=»LIBE«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x000e, idxblk=0x0350, alloc=0x0011, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x0060c0…0060e0 CatEnt {name=»COMP«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x0026, idxblk=0x0422, alloc=0x0029, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x0060e0…006100 CatEnt {name=»MUPAR«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x001d, idxblk=0x0530, alloc=0x001d, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x006100…006120 CatEnt {name=»FDB«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x0004, idxblk=0x0608, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x006120…006140 CatEnt {name=»PTB«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x0003, idxblk=0x060e, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x006140…006160 CatEnt {name=»SS0«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x0007, idxblk=0x0710, alloc=0x000b, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x006160…006180 CatEnt {name=»RISE«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0011, idxblk=0x026c, alloc=0x0011, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x006180…0061a0 CatEnt {name=»YTTP«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0001, idxblk=0x078e, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x0061a0…0061c0 CatEnt {name=»MT«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0004, idxblk=0x07a6, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x0061c0…0061e0 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x0061e0…006200 CatEnt {name=»EBMAT«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x000f, idxblk=0x0d9a, alloc=0x0011, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x006200…006220 (2, 0, 2) CatEnt {name=»$SP«, w3=0x0000, w4=0x0000, w5=0x0c05, attrib=0x0016, length=0xe3ff, idxblk=0x0cee, alloc=0x0000, w10=0x5350, w11=0x0000, w12=0x0000, w13=0x0001, w14=0x0003, w15=0x0101}
0x006220…006240 CatEnt {name=»STERR«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x0016, idxblk=0x0170, alloc=0x0017, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x006240…006260 CatEnt {name=»DUMP3«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0015, idxblk=0x009e, alloc=0x0017, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x006260…006280 CatEnt {name=»FM0«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x0004, idxblk=0x0230, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x006280…0062a0 CatEnt {name=»DELET«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x0007, idxblk=0x02d2, alloc=0x000b, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x0062a0…0062c0 CatEnt {name=»EXEC«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x0010, idxblk=0x0314, alloc=0x0011, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x0062c0…0062e0 CatEnt {name=»RENAM«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x0006, idxblk=0x038c, alloc=0x000b, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x0062e0…006300 CatEnt {name=»BIPAR«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x0005, idxblk=0x052a, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x006300…006320 CatEnt {name=»GENOD«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x0010, idxblk=0x05cc, alloc=0x0011, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x006320…006340 CatEnt {name=»MAST1«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0011, idxblk=0x01a6, alloc=0x0011, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x006340…006360 CatEnt {name=»SHACH«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0029, idxblk=0x0614, alloc=0x0029, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x006360…006380 CatEnt {name=»SIZE«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x000b, idxblk=0x0d82, alloc=0x000b, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x006380…0063a0 CatEnt {name=»PH00S«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0009, idxblk=0x0692, alloc=0x000b, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x0063a0…0063c0 CatEnt {name=»YTT09«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0035, idxblk=0x073a, alloc=0x0035, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x0063c0…0063e0 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x0063e0…006400 CatEnt {name=»ITEST«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0005, idxblk=0x092c, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x006400…006420 (2, 0, 3) CatEnt {name=»$PTPN«, w3=0x0000, w4=0x0000, w5=0x0c05, attrib=0x0016, length=0x0217, idxblk=0x0cee, alloc=0x0000, w10=0x5054, w11=0x5000, w12=0x0000, w13=0x0001, w14=0x0003, w15=0x0101}
0x006420…006440 CatEnt {name=»MUM«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x0004, idxblk=0x00ec, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x006440…006460 CatEnt {name=»PTR«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x0002, idxblk=0x0206, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x006460…006480 CatEnt {name=»SET«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x0007, idxblk=0x0398, alloc=0x000b, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x006480…0064a0 CatEnt {name=»CMON«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x0005, idxblk=0x03c8, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x0064a0…0064c0 CatEnt {name=»ULIB«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x001e, idxblk=0x0464, alloc=0x0023, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x0064c0…0064e0 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0x5…]
0x006580…0065a0 CatEnt {name=»TDISC«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0041, idxblk=0x0dc4, alloc=0x0041, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x0065a0…0065c0 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0x2…]
0x006600…006620 (2, 0, 4) CatEnt {name=»SVAN1«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0005, idxblk=0x03ce, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x006620…006640 CatEnt {name=»MUU«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x0002, idxblk=0x0104, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x006640…006660 CatEnt {name=»Y3102«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0002, idxblk=0x1166, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x006660…006680 CatEnt {name=»DHEX«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0011, idxblk=0x0932, alloc=0x0011, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x006680…0066a0 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x0066a0…0066c0 CatEnt {name=»N1234«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0022, idxblk=0x0b06, alloc=0x0023, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x0066c0…0066e0 CatEnt {name=»R35«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0011, idxblk=0x0e48, alloc=0x0011, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x0066e0…006700 CatEnt {name=»R235«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x000c, idxblk=0x0e36, alloc=0x0011, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x006700…006720 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0x2…]
0x006760…006780 CatEnt {name=»GDATA«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x003a, idxblk=0x07c4, alloc=0x003b, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x006780…0067a0 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0x3…]
0x006800…006820 (2, 0, 5) CatEnt {name=»SYSSC«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0010, length=0x0010, idxblk=0x00ce, alloc=0x0011, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x006820…006840 CatEnt {name=»$PTRN«, w3=0x0000, w4=0x0000, w5=0x0c05, attrib=0x0016, length=0x0237, idxblk=0x0cee, alloc=0x0000, w10=0x5054, w11=0x5200, w12=0x0000, w13=0x0001, w14=0x0001, w15=0x0101}
0x006840…006860 CatEnt {name=»INT«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x0005, idxblk=0x0116, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x006860…006880 CatEnt {name=»DOMUS«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x001e, idxblk=0x011c, alloc=0x0023, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x006880…0068a0 CatEnt {name=»PRINT«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x000b, idxblk=0x0368, alloc=0x000b, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x0068a0…0068c0 CatEnt {name=»DOMXR«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x000a, idxblk=0x04be, alloc=0x000b, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x0068c0…0068e0 CatEnt {name=»DOMPM«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x0008, idxblk=0x04f4, alloc=0x000b, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x0068e0…006900 CatEnt {name=»DBF«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x0005, idxblk=0x05fc, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x006900…006920 CatEnt {name=»WTIME«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0002, idxblk=0x065c, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x006920…006940 CatEnt {name=»NBMAT«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x000e, idxblk=0x0e18, alloc=0x0011, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x006940…006960 CatEnt {name=»R2«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0004, idxblk=0x0e30, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x006960…006980 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x006980…0069a0 CatEnt {name=»YPPX2«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0008, idxblk=0x067a, alloc=0x000b, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x0069a0…0069c0 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x0069c0…0069e0 CatEnt {name=»EBTEM«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0001, idxblk=0x07ca, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x0069e0…006a00 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x006a00…006a20 (2, 0, 6) CatEnt {name=»CONFI«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x0009, idxblk=0x02ae, alloc=0x000b, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x006a20…006a40 CatEnt {name=»NEWCA«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x0005, idxblk=0x0362, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x006a40…006a60 CatEnt {name=»DOMAC«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x0034, idxblk=0x0488, alloc=0x0035, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x006a60…006a80 CatEnt {name=»MCPAR«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x000a, idxblk=0x054e, alloc=0x000b, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x006a80…006aa0 CatEnt {name=»GENOM«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x0009, idxblk=0x0596, alloc=0x000b, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x006aa0…006ac0 CatEnt {name=»SSA«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x0007, idxblk=0x071c, alloc=0x000b, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x006ac0…006ae0 CatEnt {name=»CPUSE«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0005, idxblk=0x0080, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x006ae0…006b00 CatEnt {name=»MUI12«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x0002, idxblk=0x0e7e, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x006b00…006b20 CatEnt {name=»EZTEM«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x005f, idxblk=0x081e, alloc=0x005f, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x006b20…006b40 CatEnt {name=»R3«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0003, idxblk=0x0af4, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x006b40…006b60 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x006b60…006b80 CatEnt {name=»BCOPY«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0007, idxblk=0x12da, alloc=0x000b, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x006b80…006ba0 CatEnt {name=»CDMPR«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x000b, idxblk=0x0ec0, alloc=0x000b, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x006ba0…006bc0 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x006bc0…006be0 CatEnt {name=»ATEMP«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0001, idxblk=0x08d8, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x006be0…006c00 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x006c00…006c20 (2, 0, 7) CatEnt {name=»FLOCO«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x0005, idxblk=0x0404, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x006c20…006c40 CatEnt {name=»CWFL«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x0001, idxblk=0x077c, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x006c40…006c60 CatEnt {name=»PAUSE«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0005, idxblk=0x01be, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x006c60…006c80 CatEnt {name=»KLASK«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0011, length=0x0005, idxblk=0x0ede, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x006c80…006ca0 CatEnt {name=»IO«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x000c, idxblk=0x0ee4, alloc=0x0011, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x006ca0…006cc0 CatEnt {name=»MSN64«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0002, idxblk=0x0ef6, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x006cc0…006ce0 CatEnt {name=»TPTR«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0001, idxblk=0x0efc, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x006ce0…006d00 CatEnt {name=»SVAN2«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0005, idxblk=0x01dc, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x006d00…006d20 CatEnt {name=»YPANE«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x000e, idxblk=0x0f0e, alloc=0x0011, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x006d20…006d40 CatEnt {name=»T«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0002, idxblk=0x0656, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x006d40…006d60 CatEnt {name=»YTMOV«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0008, idxblk=0x11de, alloc=0x000b, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x006d60…006d80 CatEnt {name=»R4«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0010, idxblk=0x0c1a, alloc=0x0011, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x006d80…006da0 CatEnt {name=»EBPRU«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0004, idxblk=0x0dac, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x006da0…006dc0 CatEnt {name=»MATH«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x4010, length=0x0017, idxblk=0x0aa0, alloc=0x0017, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x006dc0…006de0 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0x11…]
0x007000…007200 (2, 0, 9) Index {count=0x0001, a000=Slice {count=0x0047, sector=0x0039}}
0x007200…007400 (2, 0, 10) DataSector[»SSYSP«]
[…0x46…]
0x010000…010200 (5, 0, 9) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x0081}}
0x010200…010400 (5, 0, 10) DataSector[»CPUSE«]
[…0x4…]
0x010c00…010e00 (5, 1, 3) Index {count=0x0001, a000=Slice {count=0x0017, sector=0x0087}}
0x010e00…011000 (5, 1, 4) DataSector[»DUMP«]
[…0x16…]
0x013c00…013e00 (6, 1, 3) Index {count=0x0001, a000=Slice {count=0x0017, sector=0x009f}}
0x013e00…014000 (6, 1, 4) DataSector[»DUMP3«]
[…0x16…]
0x016c00…016e00 (7, 1, 3) Index {count=0x0002, a000=Slice {count=0x0011, sector=0x00b7}, a001=Slice {count=0x0006, sector=0x01a0}}
0x016e00…017000 (7, 1, 4) DataSector[»MAST«]
[…0x10…]
0x019000…019200 (8, 0, 9) Index {count=0x0002, a000=Slice {count=0x0005, sector=0x00c9}, a001=Slice {count=0x000c, sector=0x0164}}
0x019200…019400 (8, 0, 10) DataSector[»SSYSE«]
[…0x4…]
0x019c00…019e00 (8, 1, 3) Index {count=0x0001, a000=Slice {count=0x0011, sector=0x00cf}}
0x019e00…01a000 (8, 1, 4) DataSector[»SYSSC«]
[…0x10…]
0x01c000…01c200 (9, 0, 9) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x00e1}}
0x01c200…01c400 (9, 0, 10) DataSector[»CAP2«]
[…0x4…]
0x01cc00…01ce00 (9, 1, 3) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x00e7}}
0x01ce00…01d000 (9, 1, 4) DataSector[»CATW«]
[…0x4…]
0x01d800…01da00 (9, 1, 9) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x00ed}}
0x01da00…01dc00 (9, 1, 10) DataSector[»MUM«]
[…0x4…]
0x01e400…01e600 (10, 0, 3) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x00f3}}
0x01e600…01e800 (10, 0, 4) DataSector[»MUB«]
[…0x4…]
0x01f000…01f200 (10, 0, 9) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x00f9}}
0x01f200…01f400 (10, 0, 10) DataSector[»MUR«]
[…0x4…]
0x01fc00…01fe00 (10, 1, 3) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x00ff}}
0x01fe00…020000 (10, 1, 4) DataSector[»MUC«]
[…0x4…]
0x020800…020a00 (10, 1, 9) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x0105}}
0x020a00…020c00 (10, 1, 10) DataSector[»MUU«]
[…0x4…]
0x021400…021600 (11, 0, 3) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x010b}}
0x021600…021800 (11, 0, 4) DataSector[»MUI«]
[…0x4…]
0x022000…022200 (11, 0, 9) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x0111}}
0x022200…022400 (11, 0, 10) DataSector[»MUP«]
[…0x4…]
0x022c00…022e00 (11, 1, 3) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x0117}}
0x022e00…023000 (11, 1, 4) DataSector[»INT«]
[…0x4…]
0x023800…023a00 (11, 1, 9) Index {count=0x0001, a000=Slice {count=0x0023, sector=0x011d}}
0x023a00…023c00 (11, 1, 10) DataSector[»DOMUS«]
[…0x22…]
0x028000…028200 (13, 0, 9) Index {count=0x0001, a000=Slice {count=0x0023, sector=0x0141}}
0x028200…028400 (13, 0, 10) DataSector[»DOMUQ«]
[…0x22…]
0x02c800…02ca00 (14, 1, 9) DataSector[»SSYSE«]
[…0xb…]
0x02e000…02e200 (15, 0, 9) Index {count=0x0001, a000=Slice {count=0x0017, sector=0x0171}}
0x02e200…02e400 (15, 0, 10) DataSector[»STERR«]
[…0x16…]
0x031000…031200 (16, 0, 9) Index {count=0x0001, a000=Slice {count=0x0011, sector=0x0189}}
0x031200…031400 (16, 0, 10) DataSector[»CATX«]
[…0x10…]
0x033400…033600 (17, 0, 3) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x019b}}
0x033600…033800 (17, 0, 4) DataSector[»CATIX«]
[…0x4…]
0x034000…034200 (17, 0, 9) DataSector[»MAST«]
[…0x5…]
0x034c00…034e00 (17, 1, 3) Index {count=0x0002, a000=Slice {count=0x000b, sector=0x01a7}, a001=Slice {count=0x0006, sector=0x01b8}}
0x034e00…035000 (17, 1, 4) DataSector[»MAST1«]
[…0xa…]
0x036400…036600 (18, 0, 3) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x01b3}}
0x036600…036800 (18, 0, 4) DataSector[»CAP8«]
[…0x4…]
0x037000…037200 (18, 0, 9) DataSector[»MAST1«]
[…0x5…]
0x037c00…037e00 (18, 1, 3) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x01bf}}
0x037e00…038000 (18, 1, 4) DataSector[»PAUSE«]
[…0x4…]
0x038800…038a00 (18, 1, 9) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x01c5}}
0x038a00…038c00 (18, 1, 10) DataSector[»TTY0«]
[…0x4…]
0x039400…039600 (19, 0, 3) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x01cb}}
0x039600…039800 (19, 0, 4) DataSector[»M1«]
[…0x4…]
0x03a000…03a200 (19, 0, 9) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x01d1}}
0x03a200…03a400 (19, 0, 10) DataSector[»PALI«]
[…0x4…]
0x03ac00…03ae00 (19, 1, 3) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x01d7}}
0x03ae00…03b000 (19, 1, 4) DataSector[»ELISE«]
[…0x4…]
0x03b800…03ba00 (19, 1, 9) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x01dd}}
0x03ba00…03bc00 (19, 1, 10) DataSector[»SVAN2«]
[…0x4…]
0x03c400…03c600 (20, 0, 3) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x01e3}}
0x03c600…03c800 (20, 0, 4) DataSector[»DKP«]
[…0x4…]
0x03d000…03d200 (20, 0, 9) Index {count=0x0001, a000=Slice {count=0x000b, sector=0x01e9}}
0x03d200…03d400 (20, 0, 10) DataSector[»FL0«]
[…0xa…]
0x03e800…03ea00 (20, 1, 9) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x01f5}}
0x03ea00…03ec00 (20, 1, 10) DataSector[»LPT«]
[…0x4…]
0x03f400…03f600 (21, 0, 3) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x01fb}}
0x03f600…03f800 (21, 0, 4) DataSector[»SP«]
[…0x4…]
0x040000…040200 (21, 0, 9) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x0201}}
0x040200…040400 (21, 0, 10) DataSector[»ORGAN«]
[…0x4…]
0x040c00…040e00 (21, 1, 3) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x0207}}
0x040e00…041000 (21, 1, 4) DataSector[»PTR«]
[…0x4…]
0x041800…041a00 (21, 1, 9) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x020d}}
0x041a00…041c00 (21, 1, 10) DataSector[»PTP«]
[…0x4…]
0x042400…042600 (22, 0, 3) Index {count=0x0001, a000=Slice {count=0x000b, sector=0x0213}}
0x042600…042800 (22, 0, 4) DataSector[»NODCO«]
[…0xa…]
0x043c00…043e00 (22, 1, 3) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x021f}}
0x043e00…044000 (22, 1, 4) DataSector[»SVAN3«]
[…0x4…]
0x044800…044a00 (22, 1, 9) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x0225}}
0x044a00…044c00 (22, 1, 10) DataSector[»JIMIN«]
[…0x4…]
0x045400…045600 (23, 0, 3) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x022b}}
0x045600…045800 (23, 0, 4) DataSector[»BARN«]
[…0x4…]
0x046000…046200 (23, 0, 9) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x0231}}
0x046200…046400 (23, 0, 10) DataSector[»FM0«]
[…0x4…]
0x046c00…046e00 (23, 1, 3) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x0237}}
0x046e00…047000 (23, 1, 4) DataSector[»FD0«]
[…0x4…]
0x047800…047a00 (23, 1, 9) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x023d}}
0x047a00…047c00 (23, 1, 10) DataSector[»FD1«]
[…0x4…]
0x048400…048600 (24, 0, 3) Index {count=0x0001, a000=Slice {count=0x000b, sector=0x0243}}
0x048600…048800 (24, 0, 4) DataSector[»AIR«]
[…0xa…]
0x049c00…049e00 (24, 1, 3) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x024f}}
0x049e00…04a000 (24, 1, 4) DataSector[»P218«]
[…0x4…]
0x04a800…04aa00 (24, 1, 9) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x0255}}
0x04aa00…04ac00 (24, 1, 10) DataSector[»P219«]
[…0x4…]
0x04b400…04b600 (25, 0, 3) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x025b}}
0x04b600…04b800 (25, 0, 4) DataSector[»P222«]
[…0x4…]
0x04c000…04c200 (25, 0, 9) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x0261}}
0x04c200…04c400 (25, 0, 10) DataSector[»P221«]
[…0x4…]
0x04cc00…04ce00 (25, 1, 3) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x0267}}
0x04ce00…04d000 (25, 1, 4) DataSector[»JUL«]
[…0x4…]
0x04d800…04da00 (25, 1, 9) Index {count=0x0002, a000=Slice {count=0x0005, sector=0x026d}, a001=Slice {count=0x000c, sector=0x02e4}}
0x04da00…04dc00 (25, 1, 10) DataSector[»RISE«]
[…0x4…]
0x04e400…04e600 (26, 0, 3) Index {count=0x0001, a000=Slice {count=0x000b, sector=0x0273}}
0x04e600…04e800 (26, 0, 4) DataSector[»APPEN«]
[…0xa…]
0x04fc00…04fe00 (26, 1, 3) Index {count=0x0001, a000=Slice {count=0x0017, sector=0x027f}}
0x04fe00…050000 (26, 1, 4) DataSector[»CATLI«]
[…0x16…]
0x052c00…052e00 (27, 1, 3) Index {count=0x0001, a000=Slice {count=0x000b, sector=0x0297}}
0x052e00…053000 (27, 1, 4) DataSector[»CHATR«]
[…0xa…]
0x054400…054600 (28, 0, 3) Index {count=0x0001, a000=Slice {count=0x000b, sector=0x02a3}}
0x054600…054800 (28, 0, 4) DataSector[»COMPA«]
[…0xa…]
0x055c00…055e00 (28, 1, 3) Index {count=0x0001, a000=Slice {count=0x000b, sector=0x02af}}
0x055e00…056000 (28, 1, 4) DataSector[»CONFI«]
[…0xa…]
0x057400…057600 (29, 0, 3) Index {count=0x0001, a000=Slice {count=0x000b, sector=0x02bb}}
0x057600…057800 (29, 0, 4) DataSector[»COPY«]
[…0xa…]
0x058c00…058e00 (29, 1, 3) Index {count=0x0001, a000=Slice {count=0x000b, sector=0x02c7}}
0x058e00…059000 (29, 1, 4) DataSector[»CREAT«]
[…0xa…]
0x05a400…05a600 (30, 0, 3) Index {count=0x0001, a000=Slice {count=0x000b, sector=0x02d3}}
0x05a600…05a800 (30, 0, 4) DataSector[»DELET«]
[…0xa…]
0x05bc00…05be00 (30, 1, 3) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x02df}}
0x05be00…05c000 (30, 1, 4) DataSector[»DISK«]
[…0x4…]
0x05c800…05ca00 (30, 1, 9) DataSector[»RISE«]
[…0xb…]
0x05e000…05e200 (31, 0, 9) Index {count=0x0001, a000=Slice {count=0x0023, sector=0x02f1}}
0x05e200…05e400 (31, 0, 10) DataSector[»EDIT«]
[…0x22…]
0x062800…062a00 (32, 1, 9) Index {count=0x0001, a000=Slice {count=0x0011, sector=0x0315}}
0x062a00…062c00 (32, 1, 10) DataSector[»EXEC«]
[…0x10…]
0x064c00…064e00 (33, 1, 3) Index {count=0x0001, a000=Slice {count=0x0017, sector=0x0327}}
0x064e00…065000 (33, 1, 4) DataSector[»FCOPY«]
[…0x16…]
0x067c00…067e00 (34, 1, 3) Index {count=0x0001, a000=Slice {count=0x0011, sector=0x033f}}
0x067e00…068000 (34, 1, 4) DataSector[»GENER«]
[…0x10…]
0x06a000…06a200 (35, 0, 9) Index {count=0x0001, a000=Slice {count=0x0011, sector=0x0351}}
0x06a200…06a400 (35, 0, 10) DataSector[»LIBE«]
[…0x10…]
0x06c400…06c600 (36, 0, 3) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x0363}}
0x06c600…06c800 (36, 0, 4) DataSector[»NEWCA«]
[…0x4…]
0x06d000…06d200 (36, 0, 9) Index {count=0x0001, a000=Slice {count=0x000b, sector=0x0369}}
0x06d200…06d400 (36, 0, 10) DataSector[»PRINT«]
[…0xa…]
0x06e800…06ea00 (36, 1, 9) Index {count=0x0001, a000=Slice {count=0x000b, sector=0x0375}}
0x06ea00…06ec00 (36, 1, 10) DataSector[»PUNCH«]
[…0xa…]
0x070000…070200 (37, 0, 9) Index {count=0x0001, a000=Slice {count=0x000b, sector=0x0381}}
0x070200…070400 (37, 0, 10) DataSector[»REMOV«]
[…0xa…]
0x071800…071a00 (37, 1, 9) Index {count=0x0001, a000=Slice {count=0x000b, sector=0x038d}}
0x071a00…071c00 (37, 1, 10) DataSector[»RENAM«]
[…0xa…]
0x073000…073200 (38, 0, 9) Index {count=0x0001, a000=Slice {count=0x000b, sector=0x0399}}
0x073200…073400 (38, 0, 10) DataSector[»SET«]
[…0xa…]
0x074800…074a00 (38, 1, 9) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x03a5}}
0x074a00…074c00 (38, 1, 10) DataSector[»STACO«]
[…0x4…]
0x075400…075600 (39, 0, 3) Index {count=0x0001, a000=Slice {count=0x000b, sector=0x03ab}}
0x075600…075800 (39, 0, 4) DataSector[»SUBCA«]
[…0xa…]
0x076c00…076e00 (39, 1, 3) Index {count=0x0001, a000=Slice {count=0x000b, sector=0x03b7}}
0x076e00…077000 (39, 1, 4) DataSector[»TYPE«]
[…0xa…]
0x078400…078600 (40, 0, 3) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x03c3}}
0x078600…078800 (40, 0, 4) DataSector[»TIME«]
[…0x4…]
0x079000…079200 (40, 0, 9) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x03c9}}
0x079200…079400 (40, 0, 10) DataSector[»CMON«]
[…0x4…]
0x079c00…079e00 (40, 1, 3) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x03cf}}
0x079e00…07a000 (40, 1, 4) DataSector[»SVAN1«]
[…0x4…]
0x07a800…07aa00 (40, 1, 9) Index {count=0x0001, a000=Slice {count=0x000b, sector=0x03d5}}
0x07aa00…07ac00 (40, 1, 10) DataSector[»PLAY«]
[…0xa…]
0x07c000…07c200 (41, 0, 9) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x03e1}}
0x07c200…07c400 (41, 0, 10) DataSector[»PALIN«]
[…0x4…]
0x07cc00…07ce00 (41, 1, 3) Index {count=0x0001, a000=Slice {count=0x001d, sector=0x03e7}}
0x07ce00…07d000 (41, 1, 4) DataSector[»DIA«]
[…0x1c…]
0x080800…080a00 (42, 1, 9) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x0405}}
0x080a00…080c00 (42, 1, 10) DataSector[»FLOCO«]
[…0x4…]
0x081400…081600 (43, 0, 3) Index {count=0x0001, a000=Slice {count=0x0017, sector=0x040b}}
0x081600…081800 (43, 0, 4) DataSector[»FLOFO«]
[…0x16…]
0x084400…084600 (44, 0, 3) Index {count=0x0001, a000=Slice {count=0x0029, sector=0x0423}}
0x084600…084800 (44, 0, 4) DataSector[»COMP«]
[…0x28…]
0x089800…089a00 (45, 1, 9) Index {count=0x0001, a000=Slice {count=0x0017, sector=0x044d}}
0x089a00…089c00 (45, 1, 10) DataSector[»XREF«]
[…0x16…]
0x08c800…08ca00 (46, 1, 9) Index {count=0x0001, a000=Slice {count=0x0023, sector=0x0465}}
0x08ca00…08cc00 (46, 1, 10) DataSector[»ULIB«]
[…0x22…]
0x091000…091200 (48, 0, 9) Index {count=0x0001, a000=Slice {count=0x0035, sector=0x0489}}
0x091200…091400 (48, 0, 10) DataSector[»DOMAC«]
[…0x34…]
0x097c00…097e00 (50, 1, 3) Index {count=0x0001, a000=Slice {count=0x000b, sector=0x04bf}}
0x097e00…098000 (50, 1, 4) DataSector[»DOMXR«]
[…0xa…]
0x099400…099600 (51, 0, 3) Index {count=0x0001, a000=Slice {count=0x0029, sector=0x04cb}}
0x099600…099800 (51, 0, 4) DataSector[»DOMPS«]
[…0x28…]
0x09e800…09ea00 (52, 1, 9) Index {count=0x0001, a000=Slice {count=0x000b, sector=0x04f5}}
0x09ea00…09ec00 (52, 1, 10) DataSector[»DOMPM«]
[…0xa…]
0x0a0000…0a0200 (53, 0, 9) Index {count=0x0001, a000=Slice {count=0x0029, sector=0x0501}}
0x0a0200…0a0400 (53, 0, 10) DataSector[»LINK«]
[…0x28…]
0x0a5400…0a5600 (55, 0, 3) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x052b}}
0x0a5600…0a5800 (55, 0, 4) DataSector[»BIPAR«]
[…0x4…]
0x0a6000…0a6200 (55, 0, 9) Index {count=0x0001, a000=Slice {count=0x001d, sector=0x0531}}
0x0a6200…0a6400 (55, 0, 10) DataSector[»MUPAR«]
[…0x1c…]
0x0a9c00…0a9e00 (56, 1, 3) Index {count=0x0001, a000=Slice {count=0x000b, sector=0x054f}}
0x0a9e00…0aa000 (56, 1, 4) DataSector[»MCPAR«]
[…0xa…]
0x0ab400…0ab600 (57, 0, 3) Index {count=0x0001, a000=Slice {count=0x001d, sector=0x055b}}
0x0ab600…0ab800 (57, 0, 4) DataSector[»BAPAR«]
[…0x1c…]
0x0af000…0af200 (58, 0, 9) Index {count=0x0001, a000=Slice {count=0x001d, sector=0x0579}}
0x0af200…0af400 (58, 0, 10) DataSector[»GEN«]
[…0x1c…]
0x0b2c00…0b2e00 (59, 1, 3) Index {count=0x0001, a000=Slice {count=0x000b, sector=0x0597}}
0x0b2e00…0b3000 (59, 1, 4) DataSector[»GENOM«]
[…0xa…]
0x0b4400…0b4600 (60, 0, 3) Index {count=0x0001, a000=Slice {count=0x000b, sector=0x05a3}}
0x0b4600…0b4800 (60, 0, 4) DataSector[»GENOF«]
[…0xa…]
0x0b5c00…0b5e00 (60, 1, 3) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x05af}}
0x0b5e00…0b6000 (60, 1, 4) DataSector[»GENOP«]
[…0x4…]
0x0b6800…0b6a00 (60, 1, 9) Index {count=0x0001, a000=Slice {count=0x000b, sector=0x05b5}}
0x0b6a00…0b6c00 (60, 1, 10) DataSector[»GENOR«]
[…0xa…]
0x0b8000…0b8200 (61, 0, 9) Index {count=0x0001, a000=Slice {count=0x000b, sector=0x05c1}}
0x0b8200…0b8400 (61, 0, 10) DataSector[»GENON«]
[…0xa…]
0x0b9800…0b9a00 (61, 1, 9) Index {count=0x0001, a000=Slice {count=0x0011, sector=0x05cd}}
0x0b9a00…0b9c00 (61, 1, 10) DataSector[»GENOD«]
[…0x10…]
0x0bbc00…0bbe00 (62, 1, 3) Index {count=0x0001, a000=Slice {count=0x0011, sector=0x05df}}
0x0bbe00…0bc000 (62, 1, 4) DataSector[»SYSG«]
[…0x10…]
0x0be000…0be200 (63, 0, 9) Index {count=0x0002, a000=Slice {count=0x0005, sector=0x05f1}, a001=Slice {count=0x0006, sector=0x0602}}
0x0be200…0be400 (63, 0, 10) DataSector[»BACH«]
[…0x4…]
0x0bec00…0bee00 (63, 1, 3) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x05f7}}
0x0bee00…0bf000 (63, 1, 4) DataSector[»DBD«]
[…0x4…]
0x0bf800…0bfa00 (63, 1, 9) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x05fd}}
0x0bfa00…0bfc00 (63, 1, 10) DataSector[»DBF«]
[…0x4…]
0x0c0400…0c0600 (64, 0, 3) DataSector[»BACH«]
[…0x5…]
0x0c1000…0c1200 (64, 0, 9) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x0609}}
0x0c1200…0c1400 (64, 0, 10) DataSector[»FDB«]
[…0x4…]
0x0c1c00…0c1e00 (64, 1, 3) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x060f}}
0x0c1e00…0c2000 (64, 1, 4) DataSector[»PTB«]
[…0x4…]
0x0c2800…0c2a00 (64, 1, 9) Index {count=0x0002, a000=Slice {count=0x001d, sector=0x0615}, a001=Slice {count=0x000c, sector=0x064a}}
0x0c2a00…0c2c00 (64, 1, 10) DataSector[»SHACH«]
[…0x1c…]
0x0c6400…0c6600 (66, 0, 3) Index {count=0x0001, a000=Slice {count=0x0017, sector=0x0633}}
0x0c6600…0c6800 (66, 0, 4) DataSector[»BTF«]
[…0x16…]
0x0c9400…0c9600 (67, 0, 3) DataSector[»SHACH«]
[…0xb…]
0x0cac00…0cae00 (67, 1, 3) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x0657}}
0x0cae00…0cb000 (67, 1, 4) DataSector[»T«]
[…0x4…]
0x0cb800…0cba00 (67, 1, 9) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x065d}}
0x0cba00…0cbc00 (67, 1, 10) DataSector[»WTIME«]
[…0x4…]
0x0cc400…0cc600 (68, 0, 3) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x0663}}
0x0cc600…0cc800 (68, 0, 4) DataSector[»BASIN«]
[…0x4…]
0x0cd000…0cd200 (68, 0, 9) Index {count=0x0002, a000=Slice {count=0x0005, sector=0x0669}, a001=Slice {count=0x0012, sector=0x0680}}
0x0cd200…0cd400 (68, 0, 10) DataSector[».5«]
[…0x4…]
0x0cdc00…0cde00 (68, 1, 3) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x066f}}
0x0cde00…0ce000 (68, 1, 4) DataSector[»SSYSI«]
[…0x4…]
0x0ce800…0cea00 (68, 1, 9) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x0675}}
0x0cea00…0cec00 (68, 1, 10) DataSector[»PPX02«]
[…0x4…]
0x0cf400…0cf600 (69, 0, 3) Index {count=0x0002, a000=Slice {count=0x0005, sector=0x067b}, a001=Slice {count=0x0006, sector=0x0ea2}}
0x0cf600…0cf800 (69, 0, 4) DataSector[»YPPX2«]
[…0x4…]
0x0d0000…0d0200 (69, 0, 9) DataSector[».5«]
[…0x11…]
0x0d2400…0d2600 (70, 0, 3) Index {count=0x0002, a000=Slice {count=0x0005, sector=0x0693}, a001=Slice {count=0x0006, sector=0x06a4}}
0x0d2600…0d2800 (70, 0, 4) DataSector[»PH00S«]
[…0x4…]
0x0d3000…0d3200 (70, 0, 9) Index {count=0x0001, a000=Slice {count=0x000b, sector=0x0699}}
0x0d3200…0d3400 (70, 0, 10) DataSector[»PHMAC«]
[…0xa…]
0x0d4800…0d4a00 (70, 1, 9) DataSector[»PH00S«]
[…0x5…]
0x0d5400…0d5600 (71, 0, 3) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x06ab}}
0x0d5600…0d5800 (71, 0, 4) DataSector[»PH00B«]
[…0x4…]
0x0d6000…0d6200 (71, 0, 9) UnusedSector ┆ ^ ┆
0x0d6200…0d6400 (71, 0, 10) UnusedSector ┆ ) ) (P < > VAN3 SYS 0 0 TEST @ 6 TIME TT009 TTY0 TYPE W n WTST6 XREF L YDBOP ( YHEAD YLIFE YMSNO Z ZTEMP _ _ ┆
0x0d6400…0d6600 (71, 0, 11) UnusedSector ┆ G EA r æ `EA J EA P EA Px EA h fa EA Å EQ ┆
0x0d6600…0d6800 (71, 0, 12) UnusedSector ┆ EA p DA S EA J ( EA Iy`EA S?R EA , U EA ;@EA P EA z EA t l EA x EA l EA EA @ EQ EA EA EA ? @EA A z Æ`EA EA UÆ EA ┆
0x0d6800…0d6a00 (71, 1, 1) UnusedSector ┆ EA j å `EA EA ; V4 EA EA k EA > EA ? `EA C EA = 6C@EA EA J EA E Y ;`EA 1 ho EA 6 EA A EA 8 b< EA EA a `EA : @EA 9 J EA A EA < ┆
0x0d6a00…0d6c00 (71, 1, 2) UnusedSector ┆ 5 EA : EA UG EA $ 5 `EA G EA hoK EA 3 5 @EA z 9 EA J I EA F 5 EA J I EA B æf8 EA ┆
0x0d6c00…0d6e00 (71, 1, 3) UnusedSector ┆ J N EA > i M EA V B EA , i M EA I : DA ^ i EA Q i EA U c EA rN EAf? æ EA EA i g c DA EA b EA > # EA G M EA q EA d # EA H EA ! hoL EA z EA C@EA ( EA `EA X EA B ┆
0x0d6e00…0d7000 (71, 1, 4) UnusedSector ┆ B EA 3 z ? EA EA A ^L`EA v L EA BN EA U?p`EA J EA = EA " BN EA S v@EA ? N EA ┆
0x0d7000…0d7200 (71, 1, 5) UnusedSector ┆ EA & EA F E EA t Ui `EA K mM EA T EA f& @EA 6 EA a EA d EA U F EA a EA o F EA F EA F EA hoN EA EA F E ┆
0x0d7200…0d7400 (71, 1, 6) UnusedSector ┆ ! i N EA H EA Z v@`EA å t EA < ) EA 2 EA G J M EA ? J EA < U EA N Ws EA ) EA Y Y >`EA `EA rP EA $ EA Æ EA L EA W EA P h EA - ? E g N EA T P EA H EA O EA V EA EA EA K EA Q EA c D EA EA X ┆
0x0d7400…0d7600 (71, 1, 7) UnusedSector ┆ " EA N EA Ø EA Å EA EA F 0 EA R 7 EA ^ EA 4 EA Ø EA ` X EA S Y EA _ `EA EA b `EA N EA T H E c EA T EA C EA ; EA M EA L H= EA 0 Å EA J V EA EA EA U `EA & y DA a GS EA 5 @EA M ┆
0x0d7600…0d7800 (71, 1, 8) UnusedSector ┆ i EA X S : EA I PC@EA W EA ; EA w L EA f EA 0 Ø U EA P N EA ^ Åå E!d? a EA d EA X g N DA H z`EA , 6ü EA I EA l EA EA EA W # EA f N G EA ^ EA ┆
0x0d7800…0d7a00 (71, 1, 9) UnusedSector ┆ eÆ`EA rE `EA # W EA i C@EA M EA v EA - EA I - EA I i C@EA J Va EA " EA * A EA W EA V `EA t EA d EA e @EA 5 J @`EA D J @`EA @ ┆
0x0d7a00…0d7c00 (71, 1, 10) UnusedSector ┆ F EA EA V F EA ü EA f : DA j "L EA E p U? DA ^ > D8 z q EA 0 EA < E1 HMc DA `EA 8R EA B ┆
0x0d7c00…0d7e00 (71, 1, 11) UnusedSector ┆ U y EA EA EA y EA h U EA o EA W Æ`EA ` EA J EA I `EA ü l @`EA ø EA h @EA K ┆
0x0d7e00…0d8000 (71, 1, 12) UnusedSector ┆ EA F K@D8 EA N EA C z W`EA z EA EA O EA H EA E EA P EA G h E P u E EA EA A EA B K`D8 z 7 E!c? T EA EA : `EA D EA K eL EA Ø EA B Vsæ EA @EA L @EA C `EA B `EA M ┆
0x0d8000…0d8200 (72, 0, 1) UnusedSector ┆ z EAe N EA A EA U?æ EA T : EA v nE EA nF EA T z EA z EA UGæ EA Y `EA IV EA sb EA T : EA t EA O TN: DA a ┆
0x0d8200…0d8400 (72, 0, 2) UnusedSector ┆ EA Uo `EA @ EA 9 v EA u z`EA e T æ EA 6N EA U : EA 1 E æ t EA Saø EA M U : EA H EA q ( EA b ( EA H EA O EA `S EA / ( EA A ┆
0x0d8400…0d8600 (72, 0, 3) Index {count=0x0008, a000=Slice {count=0x003b, sector=0x06c3}, a001=Slice {count=0x0006, sector=0x0758}, a002=Slice {count=0x0006, sector=0x09c2}, a003=Slice {count=0x0012, sector=0x0d34}, a004=Slice {count=0x0006, sector=0x0d70}, a005=Slice {count=0x0006, sector=0x1142}, a006=Slice {count=0x0012, sector=0x12b6}, a007=Slice {count=0x0006, sector=0x12ec}}
0x0d8600…0d8800 (72, 0, 4) DataSector[»YDBX3«]
[…0x3a…]
0x0dfc00…0dfe00 (74, 1, 3) Index {count=0x0002, a000=Slice {count=0x0011, sector=0x06ff}, a001=Slice {count=0x0006, sector=0x07b2}}
0x0dfe00…0dfe20 (74, 1, 4) CatEnt {name=»FORTU«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x000a, idxblk=0x0f38, alloc=0x000b, w10=0x0088, w11=0x000a, w12=0x2053, w13=0x0000, w14=0x0000, w15=0x0000}
0x0dfe20…0dfe40 CatEnt {name=»CLUB«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0002, idxblk=0x0f7a, alloc=0x0005, w10=0x0084, w11=0x0002, w12=0x2053, w13=0x0000, w14=0x0000, w15=0x0000}
0x0dfe40…0dfe60 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0xd…]
0x0e0000…0e0020 (74, 1, 5) CatEnt {name=»A$«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x001a, idxblk=0x0f20, alloc=0x001d, w10=0x0080, w11=0x0068, w12=0x2052, w13=0x0000, w14=0x0000, w15=0x0000}
0x0e0020…0e0040 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0xe…]
0x0e0200…0e0220 (74, 1, 6) CatEnt {name=»XAND3«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0014, idxblk=0x10fa, alloc=0x0017, w10=0x007a, w11=0x0014, w12=0x2053, w13=0x0000, w14=0x0000, w15=0x0000}
0x0e0220…0e0240 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0xe…]
0x0e0400…0e0420 (74, 1, 7) CatEnt {name=»SKUD«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0004, idxblk=0x0a2e, alloc=0x0005, w10=0x00cc, w11=0x0004, w12=0x2053, w13=0x0000, w14=0x0000, w15=0x0000}
0x0e0420…0e0440 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0x1e…]
0x0e0800…0e0820 (74, 1, 9) CatEnt {name=»SKAT«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0014, idxblk=0x09d4, alloc=0x0017, w10=0x0112, w11=0x0014, w12=0x2053, w13=0x0000, w14=0x0000, w15=0x0000}
0x0e0820…0e0840 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0xe…]
0x0e0a00…0e0a20 (74, 1, 10) CatEnt {name=»MONEY«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0005, idxblk=0x0f32, alloc=0x0005, w10=0x0080, w11=0x0012, w12=0x2052, w13=0x0000, w14=0x0000, w15=0x0000}
0x0e0a20…0e0a40 CatEnt {name=»DDICE«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0001, idxblk=0x0d28, alloc=0x0005, w10=0x0080, w11=0x0002, w12=0x2052, w13=0x0000, w14=0x0000, w15=0x0000}
0x0e0a40…0e0a60 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0x2d…]
0x0e1000…0e1020 (75, 0, 1) CatEnt {name=»MASTM«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0008, idxblk=0x0d64, alloc=0x000b, w10=0x0124, w11=0x0008, w12=0x2053, w13=0x0000, w14=0x0000, w15=0x0000}
0x0e1020…0e1040 CatEnt {name=»PHANT«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0006, idxblk=0x08c6, alloc=0x000b, w10=0x01a8, w11=0x0006, w12=0x2053, w13=0x0000, w14=0x0000, w15=0x0000}
0x0e1040…0e1060 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0x2d…]
0x0e1600…0e1620 (75, 0, 4) CatEnt {name=»SYS«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x8010, length=0x0017, idxblk=0x06fe, alloc=0x0017, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x0e1620…0e1640 CatEnt {name=»LOGIC«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0006, idxblk=0x1004, alloc=0x000b, w10=0x005e, w11=0x0006, w12=0x2053, w13=0x0000, w14=0x0000, w15=0x0000}
0x0e1640…0e1660 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0xd…]
0x0e1800…0e1820 (75, 0, 5) CatEnt {name=»GEO«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0003, idxblk=0x1286, alloc=0x0005, w10=0x019c, w11=0x0003, w12=0x2053, w13=0x0000, w14=0x0000, w15=0x0000}
0x0e1820…0e1840 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0xe…]
0x0e1a00…0e1a20 (75, 0, 6) CatEnt {name=»ZOMBI«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x000b, idxblk=0x07e2, alloc=0x000b, w10=0x0194, w11=0x000b, w12=0x2053, w13=0x0000, w14=0x0000, w15=0x0000}
0x0e1a20…0e1a40 CatEnt {name=»UPSCO«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0018, idxblk=0x112a, alloc=0x001d, w10=0x011e, w11=0x0018, w12=0x2053, w13=0x0000, w14=0x0000, w15=0x0000}
0x0e1a40…0e1a60 CatEnt {name=»SCORE«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0006, idxblk=0x072e, alloc=0x000b, w10=0x001e, w11=0x0065, w12=0x2052, w13=0x0000, w14=0x0000, w15=0x0000}
0x0e1a60…0e1a80 CatEnt {name=»REVER«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x000b, idxblk=0x128c, alloc=0x000b, w10=0x012c, w11=0x000b, w12=0x2053, w13=0x0000, w14=0x0000, w15=0x0000}
0x0e1a80…0e1aa0 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0x2b…]
0x0e2000…0e2200 (75, 0, 9) Index {count=0x0001, a000=Slice {count=0x000b, sector=0x0711}}
0x0e2200…0e2400 (75, 0, 10) DataSector[»SS0«]
[…0xa…]
0x0e3800…0e3a00 (75, 1, 9) Index {count=0x0001, a000=Slice {count=0x000b, sector=0x071d}}
0x0e3a00…0e3c00 (75, 1, 10) DataSector[»SSA«]
[…0xa…]
0x0e5000…0e5200 (76, 0, 9) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x0729}}
0x0e5200…0e5400 (76, 0, 10) DataSector[»YDBOP«]
[…0x4…]
0x0e5c00…0e5e00 (76, 1, 3) UnusedSector ┆ / j ┆
0x0e5e00…0e6000 (76, 1, 4) UnusedSector ┆PJP @ @ XXXXX d XYZ ZYXZZ @ @ XXXXX d *V ********************************************************************* *V ********************************************************************* *V ** ** (*V ** PROGRAM NAME: SCOREUP. ** 2*V ** VERSION: 81.11.01. ┆
0x0e6000…0e6200 (76, 1, 5) UnusedSector ┆ ** <*V ** ** F&V ** THE PROGRAM LISTS ON DISPLAY AND/OR PRINTER THE CONTENTS OF THE ** P&V ** FILE "SCORE" (SCORE-TABLE FOR GAME "XANDO"). ** Z&V ** THE PROGRAM CAN ALSO PERFORM SELECTIVE UPDATING OF THE "SCORE" ** d&V ** FILE. ** n*V ** ** ┆
0x0e6200…0e6400 (76, 1, 6) UnusedSector ┆ x*V ** THIS PROGRAM WAS CREATED BY BQRGE E. LARSEN, RC COMPUTER. ** &V ** ** &V ********************************************************************* *V ********************************************************************* V V . @ W @ * Y @ @ @ @ @ Y @ Øn @ M O W @ C < 4 W L @1 @2 4 V ..1.......2..... L @3 @4 4 V┆
0x0e6400…0e6600 (76, 1, 7) UnusedSector ┆ ..3.......4..... L @5 @6 4 " V ..5.......6.... , ; @7 @Q @q 6 V .....7......'Q'.....'Q'..... @ Øn @ J O T%V ____________________________________________________________________ ^ V h 5 r Øn @ ø N XYADR @% @ Ø MENU N XYADR @% @ Ø ==== N XYADR @ @ Ø %1: LISTING OF MEMBERS IN SCORE-TABLE. Ø % Ø 32: LISTING WITH PRINTING OF MEMBERS IN SCORE-TABLE. Ø 3 Ø 73: INSERTION, UPDATING OR DELETION OF SELECTED MEMBERS. Ø 7 Ø 34: LISTING, UPDATING O┆
0x0e6600…0e6800 (76, 1, 8) UnusedSector ┆R DELETION, MEMBER BY MEMBER. Ø 3 Ø '5: CREATION OF NEW (EMPTY) SCORE-TABLE. Ø ' Ø )6: CHANGE LENGHT OF EXISTING SCORE-TABLE. Ø ) & Ø 7: EXIT FROM THE PROGRAM. 0 Ø : Ø D Ø -KEY IN THE NUMBER OF THE SELECTED OPERATION: I < s N N XYADR @/ @ O Øn @ P + @ X N IN Å ; @ C b 3 MENU l%V ____________________________________________________________________ v V *V PROCEDURE LIST FOR LISTING AND/OR PRINTING OF MEMBERS OF SCORE-TABLE. V 5 F @ @ SCORE ┆
0x0e6800…0e6a00 (76, 1, 9) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x0735}}
0x0e6a00…0e6c00 (76, 1, 10) DataSector[»NRCAL«]
[…0x4…]
0x0e7400…0e7600 (77, 0, 3) Index {count=0x0003, a000=Slice {count=0x001d, sector=0x073b}, a001=Slice {count=0x000c, sector=0x076a}, a002=Slice {count=0x000c, sector=0x0782}}
0x0e7600…0e7800 (77, 0, 4) DataSector[»YTT09«]
[…0x1c…]
0x0eb000…0eb200 (78, 0, 9) DataSector[»YDBX3«]
[…0x5…]
0x0ebc00…0ebe00 (78, 1, 3) UnusedSector ┆ N EA 7 EA G t EA 7 EA H 7 EA J G EA 7 EA I o EA EA EA 7 EA D i 9`EA R 7`EA F G`EA ay EA æ 7@EA E :b EA R EA ┆
0x0ebe00…0ec000 (78, 1, 4) UnusedSector ┆ b EA , S `EA ( f% `EA 5 EA ' i 8 EA O S b EA Sp EA Æ I E g EA Y `EA 9 @EA Z @EA Ø @EA 8 `EA Æ `EA Å ┆
0x0ec000…0ec200 (78, 1, 5) UnusedSector ┆ HF: DA H U EA - J E g i Æ EA P G EA EA u EA y I<;`EA @ G EA c DA G EA EA @EA Do EA % EA B i Æ`EA S G EA o EA ┆
0x0ec200…0ec400 (78, 1, 6) UnusedSector ┆ i : EA T J EA C J EA G z I EA` nFå EA I EA . ØK EA I/:@EA 4 D EA z EA D `EA x E U EA ┆
0x0ec400…0ec600 (78, 1, 7) UnusedSector ┆ V EA 2 EA g V4B`EA TP EA # l 8 EA v EA P> EA z N EA` EAv EA S G EA ┆
0x0ec600…0ec800 (78, 1, 8) UnusedSector ┆ O EA SA@EA c# EA . U@@`EA æ U? EA U? E L EA SA`EA Uo EA ? 6 @EA SA EA EA 2 2 EA J UD EA D8 b EA x D EA : EA c R`EA c SA EA `EA s ┆
0x0ec800…0eca00 (78, 1, 9) UnusedSector ┆ : EA T b EA EA > V4 EA EA EA @ os EA U@ EA q EA 6 EA V `EA = Oo9 EA 6 EA @EA W HFü DA < @EA < EA ? ┆
0x0eca00…0ecc00 (78, 1, 10) UnusedSector ┆ EA `EA E i > EA L ü EA T 8 EA @EA D B D8 p EA l Æ `EA K Ulb EA W EA EA a EA T EA S E EA L Oo8 EA E EA BN EA `EA TUc DA No EA G @EA U E E EA F ┆
0x0ecc00…0ece00 (78, 1, 11) UnusedSector ┆ E b EA ` x EA v @ E g@ G E P E _x EA G EA 4 i E EA EA a i EA 7 EA E E cI E!a? E K EA i q EA Y ┆
0x0ece00…0ed000 (78, 1, 12) UnusedSector ┆ EA E ` EA $ E V4 EA J y3 E E E P E J V&O@EA + y E EA F D8 N EA EA c E K b æ EA E E1@ ┆
0x0ed000…0ed200 (79, 0, 1) UnusedSector ┆ # EA @EA yB`EA $ E ` EA 4 = EA 0 Z EA TFN EA zM E EA y Z ` EA W$M EA _ = EA 1 z E Z E)e Z E)a z E z E Z EAvA EA / O EA Z E)c W EA ^ z E g: EA 2`EA C O EA b E EA 2 EA D EA ┆
0x0ed200…0ed400 (79, 0, 2) UnusedSector ┆ IC@EA U EA L q EA ü v EA æl EQ Æs E)b Æt E)d V: EA Z Æu E)f D EA ' UDN EA 8 a EA 6z EA Æ EA % ┆
0x0ed400…0ed600 (79, 0, 3) DataSector[»YTT09«]
[…0xb…]
0x0eec00…0eee00 (79, 1, 3) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x0777}}
0x0eee00…0ef000 (79, 1, 4) DataSector[»CWDD«]
[…0x4…]
0x0ef800…0efa00 (79, 1, 9) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x077d}}
0x0efa00…0efc00 (79, 1, 10) DataSector[»CWFL«]
[…0x4…]
0x0f0400…0f0600 (80, 0, 3) DataSector[»YTT09«]
[…0xb…]
0x0f1c00…0f1e00 (80, 1, 3) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x078f}}
0x0f1e00…0f2000 (80, 1, 4) DataSector[»YTTP«]
[…0x4…]
0x0f2800…0f2a00 (80, 1, 9) Index {count=0x0001, a000=Slice {count=0x000b, sector=0x0795}}
0x0f2a00…0f2c00 (80, 1, 10) DataSector[»SNOP6«]
[…0xa…]
0x0f4000…0f4200 (81, 0, 9) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x07a1}}
0x0f4200…0f4400 (81, 0, 10) DataSector[»YWTIM«]
[…0x4…]
0x0f4c00…0f4e00 (81, 1, 3) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x07a7}}
0x0f4e00…0f5000 (81, 1, 4) DataSector[»MT«]
[…0x4…]
0x0f5800…0f5a00 (81, 1, 9) Index {count=0x0002, a000=Slice {count=0x0005, sector=0x07ad}, a001=Slice {count=0x0006, sector=0x07d6}}
0x0f5a00…0f5c00 (81, 1, 10) DataSector[»MD«]
[…0x4…]
0x0f6400…0f6420 (82, 0, 3) CatEnt {name=»XANDO«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x000d, idxblk=0x0dbe, alloc=0x0011, w10=0x0158, w11=0x000d, w12=0x2053, w13=0x0000, w14=0x0000, w15=0x0000}
0x0f6420…0f6440 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0xf…]
0x0f6620…0f6640 CatEnt {name=»DICE«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0007, idxblk=0x0a22, alloc=0x000b, w10=0x01a6, w11=0x0007, w12=0x2053, w13=0x0000, w14=0x0000, w15=0x0000}
0x0f6640…0f6660 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0x1d…]
0x0f6a00…0f6a20 (82, 0, 6) CatEnt {name=»STARW«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0016, idxblk=0x1298, alloc=0x0017, w10=0x0176, w11=0x0016, w12=0x2053, w13=0x0000, w14=0x0000, w15=0x0000}
0x0f6a20…0f6a40 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0xe…]
0x0f6c00…0f6c20 (82, 0, 7) CatEnt {name=»MENUE«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0003, idxblk=0x0db8, alloc=0x0005, w10=0x00ec, w11=0x0003, w12=0x2053, w13=0x0000, w14=0x0000, w15=0x0000}
0x0f6c20…0f6c40 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0xe…]
0x0f6e00…0f6e20 (82, 0, 8) CatEnt {name=»BATTL«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0013, idxblk=0x0f3e, alloc=0x0017, w10=0x0126, w11=0x0013, w12=0x2053, w13=0x0000, w14=0x0000, w15=0x0000}
0x0f6e20…0f6e40 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0xe…]
0x0f7000…0f7200 (82, 0, 9) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x07b9}}
0x0f7200…0f7400 (82, 0, 10) DataSector[»ERCAL«]
[…0x4…]
0x0f7c00…0f7e00 (82, 1, 3) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x07bf}}
0x0f7e00…0f8000 (82, 1, 4) DataSector[»LPX01«]
[…0x4…]
0x0f8800…0f8a00 (82, 1, 9) Index {count=0x0007, a000=Slice {count=0x0005, sector=0x07c5}, a001=Slice {count=0x0006, sector=0x080c}, a002=Slice {count=0x0006, sector=0x082a}, a003=Slice {count=0x0006, sector=0x0842}, a004=Slice {count=0x0006, sector=0x09bc}, a005=Slice {count=0x0018, sector=0x0a52}, a006=Slice {count=0x0006, sector=0x0d5e}}
0x0f8a00…0f8c00 (82, 1, 10) DataSector[»GDATA«]
[…0x4…]
0x0f9400…0f9600 (83, 0, 3) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x07cb}}
0x0f9600…0f9800 (83, 0, 4) DataSector[»EBTEM«]
[…0x4…]
0x0fa000…0fa200 (83, 0, 9) UnusedSector ┆ eM`EA K EA S o`EA Ø, EQ @ EA Sa EA ! ü EA K@EA EA z K`EA b DA Z K EA G EA Ø EA - K EA G EA K EA @EA e K EA G EA o EA å `EA f ┆
0x0fa200…0fa400 (83, 0, 10) UnusedSector ┆ S n EA c DA : EA u : EA g : EA h : EA x : EA n Z EA ' Æy EA &: EA g : DA Z M p D8 EA E : EA p r o`EA % L`EA n EA B ┆
0x0fa400…0fa600 (83, 0, 11) UnusedSector ┆ O Q EA i EA K EA i EA S UDK EA z EA v EA EA ø X EA 9 I EA EA E S EA EA * EA m ┆
0x0fa600…0fa800 (83, 0, 12) UnusedSector ┆ EA - z EA : EA !ø EA EA 7 @EA H EA cn EA 8 EA L 6ü EA V i EA 8 EA K V i@EA hN EA 8@EA M V i`EA ! t EA N uN EA 6> EA ┆
0x0fa800…0faa00 (83, 1, 1) UnusedSector ┆ ! EA Q i N EA N EA R EA g EA S EA T EA N @EA O i N EA W `EA P ┆
0x0faa00…0fac00 (83, 1, 2) UnusedSector ┆ " EA P EA O EA R EA Q ┆
0x0fac00…0fae00 (83, 1, 3) DataSector[»MD«]
[…0x5…]
0x0fb800…0fba00 (83, 1, 9) Index {count=0x0002, a000=Slice {count=0x0005, sector=0x07dd}, a001=Slice {count=0x0006, sector=0x0e9c}}
0x0fba00…0fbc00 (83, 1, 10) DataSector[»YLPX1«]
[…0x4…]
0x0fc400…0fc600 (84, 0, 3) Index {count=0x0002, a000=Slice {count=0x0005, sector=0x07e3}, a001=Slice {count=0x0006, sector=0x0824}}
0x0fc600…0fc800 (84, 0, 4) DataSector[»ZOMBI«]
[…0x4…]
0x0fd000…0fd200 (84, 0, 9) Index {count=0x0001, a000=Slice {count=0x000b, sector=0x07e9}}
0x0fd200…0fd400 (84, 0, 10) DataSector[»DTEST«]
[…0xa…]
0x0fe800…0fea00 (84, 1, 9) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x07f5}}
0x0fea00…0fec00 (84, 1, 10) DataSector[»FDBOT«]
[…0x4…]
0x0ff400…0ff600 (85, 0, 3) UnusedSector ┆ # Z EA = ZE EA Z EA 5 ┆
0x0ff600…0ff800 (85, 0, 4) UnusedSector ┆$FD0 ?????? ?? FD0 $PTP PTP $PTPN PTP $PTR 7 PTR $PTRN 7 PTR $SP SP ATEMP BASIN b BCOPY BIPAR * CDFP1 V CDMPR CDUMP Ø CHATR CHECK CMON ┆
0x0ff800…0ffa00 (85, 0, 5) UnusedSector ┆COMP & " ) CONFI COPSP _ D _ CPUSE CWFL ø DBD DBF DELET DEZ DHEX 2 DOMAC 4 5 DOMPM DOMPS $ ) DOMUQ @ # DOMUS # DOMXR ┆
0x0ffa00…0ffc00 (85, 0, 6) UnusedSector ┆DUMP3 E1234 $ ü ) EBCAL EBMAT EBPRU EBTEM EXEC EZTEM _ _ FDB FL0 FLOCO FM0 0 GDATA : ; GENOD GENOM INT ┆
0x0ffc00…0ffe00 (85, 0, 7) UnusedSector ┆IO ITEST , ITMOV KLASK LIBE P LTEMP : MAST1 MATH @ MCPAR N MSN32 z MSN64 MSNOP P MT MTST MTSTP MUI12 ü ┆
0x0ffe00…100000 (85, 0, 8) UnusedSector ┆MUM MUPAR 0 MUSIL ) ) MUU N1234 " # NBMAT NEWCA b NODCO PAUSE PH00S PIDEN PRINT h PTB PTR PUNCH t R v ┆
0x100000…100200 (85, 0, 9) UnusedSector ┆ ┆
0x100200…100400 (85, 0, 10) UnusedSector ┆** ** .PUSH .NOCON ** .NOCON 1 ** ** FIX= -1 ** FLOAT= FIX-1 ** FADD= FLOAT-1 ** FSUB= FADD-1 ** FMPY= FSUB-1 ** FDIV= FMPY-1 ** IMPY= FDIV-1 ** IMPYA= IMPY-1 ** IDIV= IMPYA-1 ** IOERR= IDIV-1 ** ** .DO ==FIX LDA 3 U.S21,3 JSR@ +0,3 ** .ENDC OK ** ** .DO ==FLOAT LDA 3 U.S21,3 JSR@ +1,3 ** .ENDC OK ** ** .DO ==FADD LDA 3 U.S21,3 JSR@ +2,3 ** .ENDC OK ** ** .DO ==FSUB LDA 3 U.S21,3 JSR@ +3,3 ** .ENDC OK ** ** .DO ==FMPY LDA 3 ┆
0x100400…100600 (85, 0, 11) UnusedSector ┆ U.S21,3 JSR@ +4,3 ** .ENDC OK ** ** ** .DO ==FDIV LDA 3 U.S21,3 JSR@ +5,3 ** .ENDC OK ** ** .DO ==IMPY LDA 3 U.S21,3 JSR@ +6,3 ** .ENDC OK ** ** .DO ==IMPYA LDA 3 U.S21,3 JSR@ +7,3 ** .ENDC OK ** ** .DO ==IDIV LDA 3 U.S21,3 JSR@ +8,3 ** .ENDC OK ** ** .DO ==IOERR LDA 3 U.S21,3 JSR@ +9,3 ** .ENDC OK ** ** .PUSH .NOMAC ** .NOMAC 0 ** ;*************************************** ; ; ERROR, UNKNOWN: ; ;************┆
0x100600…100800 (85, 0, 12) UnusedSector ┆*************************** ** .NOMAC .POP **ÆOKÅ ** .NOCON .POP .TITL UCA01 ; USER-CODED SUBROUTINES 78.05.01 .NREL .RDX 10 ; RADIX 10 .TXTM 1 ; PACKED FROM LEFT TO RIGHT .TXTN 1 ; NO NULL-BYTES IF EVEN NUMBER OF BYTES PP00: ; PROGRAM START 1B0+1B15 ; DESCRIPTOR PP05 ; START 0 ; CHAIN PP10-PP00 ; SIZE ** .PUSH .NOCON ** .NOCON 1 ** .DO ' '=='RC' .TXT .RCALL. ; NAME ** .ENDC ELSE .TXT .UCALL. ; NAME ** ÆELSEÅ ** .NOCON .POP PP05: ; STOPPROCESS ; JMP PP05 ; ** .PUSH .NOCON┆
0x100800…100a00 (85, 1, 1) UnusedSector ┆ ** .NOCON 1 PP10: ; PROCESSDESCRIPTOR: 0 ; NEXT 0 ; PREV 0 ; CHAIN PP15-PP10 ; SIZE ** .DO ' '=='RC' .TXT .RCALL. ; NAME ** .ENDC ELSE .TXT .UCALL. ; NAME ** ÆELSEÅ .+0 ; FIRST EVENT .-1 ; LAST EVENT 0 ; BUFFE PP00 ; PROGRAM 0 ; STATE 0 ; TIMER 1 ; PRIORITY PP05 ; BREAK PP10 ; AC0 0 ; AC1 PP10 ; AC2 0 ; AC3 PP05*2 ; PSW 0 ; SAVE PP15: ; .END PP10 ** .NOCON .POP .PUSH .NOLOC .NOLOC 1 .IFE *** ; ILLEGAL NO OF BUFFERS ; *** .GOTO FIN .ENDC .PUSH .TXTM .TX┆
0x100a00…100c00 (85, 1, 2) UnusedSector ┆TM 1 .PUSH .TXTN .TXTN 0 .PUSH .RDX .RDX 8 .IFL .ARGCT-9. .PUSH 0 .ENDC ENDE .PUSH ÆENDEÅ .DO ' '=='U' .PUSH 0 .GOTO NEXT .ENDC .DO ' '=='UB' .PUSH 1 .GOTO NEXT .ENDC .DO ' '=='F' .PUSH 2 .GOTO NEXT .ENDC .DO ' '=='FB' .PUSH 3 .GOTO NEXT .ENDC .DO ' '=='V' .PUSH 4 .GOTO NEXT .ENDC .DO ' '=='VB' .PUSH 5 .GOTO NEXT .ENDC *** ; ILLEGAL RECORD FORMAT ; *** .GOTO FIN ÆNEXTÅ .IFL .ARGCT-8. .PUSH 0 .ENDC ENDE .PUSH ÆENDEÅ .IFL .ARGCT-7. .PUSH 177777 .ENDC ENDE .PUSH ÆENDEÅ .PUSH . .TXT ' ' ; Z┆
0x100c00…100e00 (85, 1, 3) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x0807}}
0x100e00…101000 (85, 1, 4) DataSector[»T2«]
[…0x4…]
0x101800…101a00 (85, 1, 9) DataSector[»GDATA«]
[…0x5…]
0x102400…102600 (86, 0, 3) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x0813}}
0x102600…102800 (86, 0, 4) DataSector[»T5«]
[…0x4…]
0x103000…103200 (86, 0, 9) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x0819}}
0x103200…103400 (86, 0, 10) DataSector[»LOOP«]
[…0x4…]
0x103c00…103e00 (86, 1, 3) Index {count=0x0009, a000=Slice {count=0x0005, sector=0x081f}, a001=Slice {count=0x000c, sector=0x0a94}, a002=Slice {count=0x0018, sector=0x0aac}, a003=Slice {count=0x0006, sector=0x0ae2}, a004=Slice {count=0x0006, sector=0x0afa}, a005=Slice {count=0x0006, sector=0x0b8a}, a006=Slice {count=0x0018, sector=0x0bae}, a007=Slice {count=0x0006, sector=0x0c4a}, a008=Slice {count=0x0006, sector=0x0f26}}
0x103e00…104000 (86, 1, 4) DataSector[»EZTEM«]
[…0x4…]
0x104800…104a00 (86, 1, 9) DataSector[»ZOMBI«]
[…0x5…]
0x105400…105600 (87, 0, 3) DataSector[»GDATA«]
[…0x5…]
0x106000…106200 (87, 0, 9) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x0831}}
0x106200…106400 (87, 0, 10) DataSector[»T6«]
[…0x4…]
0x106c00…106e00 (87, 1, 3) Index {count=0x0003, a000=Slice {count=0x0005, sector=0x0837}, a001=Slice {count=0x0006, sector=0x0884}, a002=Slice {count=0x000c, sector=0x0896}}
0x106e00…106e20 (87, 1, 4) CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0x1f…]
0x107200…107220 (87, 1, 6) CatEnt {name=»T1«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0002, idxblk=0x08a2, alloc=0x0005, w10=0x0044, w11=0x0002, w12=0x2053, w13=0x0000, w14=0x0000, w15=0x0000}
0x107220…107240 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0xe…]
0x107400…107420 (87, 1, 7) CatEnt {name=»T2«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0002, idxblk=0x0806, alloc=0x0005, w10=0x00d2, w11=0x0002, w12=0x2053, w13=0x0000, w14=0x0000, w15=0x0000}
0x107420…107440 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0xe…]
0x107600…107620 (87, 1, 8) CatEnt {name=»T3«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0003, idxblk=0x08a8, alloc=0x0005, w10=0x0082, w11=0x0003, w12=0x2053, w13=0x0000, w14=0x0000, w15=0x0000}
0x107620…107640 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0xe…]
0x107800…107a00 (87, 1, 9) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x083d}}
0x107a00…107c00 (87, 1, 10) DataSector[»NBCAL«]
[…0x4…]
0x108400…108600 (88, 0, 3) DataSector[»GDATA«]
[…0x5…]
0x109000…109200 (88, 0, 9) Index {count=0x0001, a000=Slice {count=0x001d, sector=0x0849}}
0x109200…109400 (88, 0, 10) DataSector[»EDITM«]
[…0x1c…]
0x10cc00…10cc20 (89, 1, 3) CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0x40…]
0x10d420…10d440 CatEnt {name=»MTST«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x000b, idxblk=0x088a, alloc=0x000b, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x10d440…10d460 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0x3d…]
0x10dc00…10dc20 (89, 1, 11) CatEnt {name=»R1234«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0022, idxblk=0x0ae8, alloc=0x0023, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x10dc20…10dc40 CatEnt {name=»TMOVE«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0001, idxblk=0x11d8, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x10dc40…10dc60 CatEnt {name=»EBCAL«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0002, idxblk=0x0db2, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x10dc60…10dc80 CatEnt {name=»LTEMP«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0001, idxblk=0x0a3a, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x10dc80…10dca0 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0x3b…]
0x10e400…10e420 (90, 0, 3) CatEnt {name=»WTSTM«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0005, idxblk=0x0c0e, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x10e420…10e440 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0x3e…]
0x10ec00…10ec20 (90, 0, 7) CatEnt {name=»R«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x000b, idxblk=0x0d76, alloc=0x000b, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x10ec20…10ec40 CatEnt {name=»MSNOP«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0002, idxblk=0x0f50, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x10ec40…10ec60 CatEnt {name=»CDFP1«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0001, idxblk=0x0f56, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x10ec60…10ec80 CatEnt {name=»YDTST«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x000f, idxblk=0x0f5c, alloc=0x0011, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x10ec80…10eca0 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0x1…]
0x10ecc0…10ece0 CatEnt {name=»$FD0«, w3=0x3f3f, w4=0x3f3f, w5=0x3f3f, attrib=0x0006, length=0xe7ff, idxblk=0x3f3f, alloc=0x0000, w10=0x4644, w11=0x3000, w12=0x0000, w13=0x000e, w14=0x0001, w15=0x0001}
0x10ece0…10ed00 CatEnt {name=»SLAG«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x000a, idxblk=0x127a, alloc=0x000b, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x10ed00…10ed20 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0x38…]
0x10f420…10f440 CatEnt {name=»WTST1«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x000b, idxblk=0x0e6c, alloc=0x000b, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x10f440…10f460 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0x1…]
0x10f480…10f4a0 CatEnt {name=»ITMOV«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0001, idxblk=0x11f0, alloc=0x0005, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x10f4a0…10f4c0 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0x3a…]
0x10fc00…10fe00 (90, 1, 3) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x087f}}
0x10fe00…110000 (90, 1, 4) DataSector[»T4«]
[…0x4…]
0x110800…110820 (90, 1, 9) CatEnt {name=»T4«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0002, idxblk=0x087e, alloc=0x0005, w10=0x0046, w11=0x0002, w12=0x2053, w13=0x0000, w14=0x0000, w15=0x0000}
0x110820…110840 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0xe…]
0x110a00…110a20 (90, 1, 10) CatEnt {name=»T5«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0002, idxblk=0x0812, alloc=0x0005, w10=0x019c, w11=0x0002, w12=0x2053, w13=0x0000, w14=0x0000, w15=0x0000}
0x110a20…110a40 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0xe…]
0x110c00…110c20 (90, 1, 11) CatEnt {name=»T6«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0002, idxblk=0x0830, alloc=0x0005, w10=0x0024, w11=0x0002, w12=0x2053, w13=0x0000, w14=0x0000, w15=0x0000}
0x110c20…110c40 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0x3e…]
0x111400…111600 (91, 0, 3) Index {count=0x0001, a000=Slice {count=0x000b, sector=0x088b}}
0x111600…111800 (91, 0, 4) DataSector[»MTST«]
[…0xa…]
0x112c00…112c20 (91, 1, 3) CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0xf…]
0x112e00…112e20 (91, 1, 4) CatEnt {name=»SYS«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x8010, length=0x0017, idxblk=0x0836, alloc=0x0017, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x112e20…112e40 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0xe…]
0x113000…113020 (91, 1, 5) CatEnt {name=»CDUMP«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0002, idxblk=0x0a34, alloc=0x0005, w10=0x0160, w11=0x0002, w12=0x2053, w13=0x0000, w14=0x0000, w15=0x0000}
0x113020…113040 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0x7f…]
0x114020…114040 CatEnt {name=»MENUE«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0002, idxblk=0x0d52, alloc=0x0005, w10=0x01a2, w11=0x0002, w12=0x2053, w13=0x0000, w14=0x0000, w15=0x0000}
0x114040…114060 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0x1d…]
0x114400…114600 (92, 0, 3) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x08a3}}
0x114600…114800 (92, 0, 4) DataSector[»T1«]
[…0x4…]
0x115000…115200 (92, 0, 9) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x08a9}}
0x115200…115400 (92, 0, 10) DataSector[»T3«]
[…0x4…]
0x115c00…115e00 (92, 1, 3) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x08af}}
0x115e00…116000 (92, 1, 4) DataSector[»CMB00«]
[…0x4…]
0x116800…116a00 (92, 1, 9) UnusedSector ┆NAME .IFN .-.POP-3 *** ; ILLEGAL NAME LENGTH ; *** .ENDC Z ; SIZE 0 ; ZMODE ; ZKIND .POP ; ZMASK ; ZGIVE 1 ; ZFILE 1 ; ZBLOCK .POP*2 ; ZCONV .+Z-ZBUFF ; ZBUFF /2+SSIZE ; ZSIZE .POP ; ZFORM .POP ; ZLENGTH .+Z+SSIZE-ZFIRS*2 ; ZFIRST .+Z+SSIZE-ZTOP*2 ; ZTOP .+Z-ZUSED ; ZUSED ; ZSHAREL 0 ; ZREM .BLK ZAUX ; Z0 .PUSH . .PUSH 1 .DO .NOLOC 0 .NOLOC 1 0 ; SOPER 0 ; SCOUNT 0 ; SADDR 0 ; SSPEC .IFN -.TOP .+SSIZE+( /2)-SNEXT ; SNEXT .ENDC ENDE .NOLO┆
0x116a00…116c00 (92, 1, 10) UnusedSector ┆C .POP ; DUMMY .POP ; SNEXT .PUSH -1 ÆENDEÅ 0 ; SSTAT .+1*2 ; SFIRS .BLK /2 ; BUFFER .PUSH .POP+1 .ENDC .NOLOC .POP ; DUMMY .RDX .POP .TXTN .POP .TXTM .POP ÆFINÅ .NOLOC .POP COM , AND , ADC , .PUSH .NOLOC .NOLOC 1 .PUSH .TXTM .TXTM 1 .PUSH .TXTN .TXTN 0 .+0 ; NEXT .-1 ; PREV 0 ; CHAIN 0 ; CARRY .PUSH . .TXT ' ' ; NAME .IFN .-.POP-3 *** ; ILLEGAL NAME LENGTH ; *** .ENDC .+0 ; EVENT .-1 ; EVENT ; BUFFER ; PROGRAM 1B0 ; STATE 0 ; TIMER ; PRIORITY ┆
0x116c00…116e00 (92, 1, 11) UnusedSector ┆ ; BREAK 0 ; AC0 0 ; AC1 .-AC2 ; AC2 0 ; AC3 *2 ; PSW 0 ; SAVE .TXTN .POP .TXTM .POP .NOLOC .POP .PUSH .NOLOC ; MESSAGE BUFFERS .NOLOC 1 .PUSH .RDX .RDX 10 .PUSH 1 .DO .IFE .TOP-(.TOP/4*4)-1 .IFN .TOP-1 .EJEC .ENDC .ENDC .NOLOC 0 .NOLOC 1 .+0 ; NEXT .-1 ; PREV .+BSIZE-CHAIN ; CHAIN BSIZE ; SIZE ; SENDER 0 ; RECEIVER 0 ; MESS0 0 ; MESS1 0 ; MESS2 0 ; MESS3 .PUSH .POP+1 .ENDC .NOLOC .POP .RDX .POP .NOLOC .POP ┆
0x116e00…117000 (92, 1, 12) UnusedSector ┆TPTR TT009 TTY0 TYPE ULIB d # W n WTEST h WTIME Ø WTST1 l WTST6 WTSTM XREF L Y3102 f YCHEC YDBOP ( YDBX3 ø å ┆
0x117000…117200 (93, 0, 1) UnusedSector ┆YDTST Ø YFS06 YHEAD YIOO6 1 5 YLIFE YLPX1 YMSNO Z YPANE YPPX2 z YTMOV YTT09 5 : 5 YTTP YWTIM ZTEMP _ _ ) ) (P < > DBX3 ø å ┆
0x117200…117400 (93, 0, 2) UnusedSector ┆TM 1 .PUSH .TXTN .TXTN 0 .PUSH .RDX .RDX 8 .IFL .ARGCT-9. .PUSH 0 .ENDC ENDE .PUSH ÆENDEÅ .DO ' '=='U' .PUSH 0 .GOTO NEXT .ENDC .DO ' '=='UB' .PUSH 1 .GOTO NEXT .ENDC .DO ' '=='F' .PUSH 2 .GOTO NEXT .ENDC .DO ' '=='FB' .PUSH 3 .GOTO NEXT .ENDC .DO ' '=='V' .PUSH 4 .GOTO NEXT .ENDC .DO ' '=='VB' .PUSH 5 .GOTO NEXT .ENDC *** ; ILLEGAL RECORD FORMAT ; *** .GOTO FIN ÆNEXTÅ .IFL .ARGCT-8. .PUSH 0 .ENDC ENDE .PUSH ÆENDEÅ .IFL .ARGCT-7. .PUSH 177777 .ENDC ENDE .PUSH ÆENDEÅ .PUSH . .TXT ' ' ; Z┆
0x117400…117600 (93, 0, 3) Index {count=0x0002, a000=Slice {count=0x0005, sector=0x08bb}, a001=Slice {count=0x0006, sector=0x08cc}}
0x117600…117800 (93, 0, 4) DataSector[»YCHEC«]
[…0x4…]
0x118000…118200 (93, 0, 9) Index {count=0x0002, a000=Slice {count=0x0005, sector=0x08c1}, a001=Slice {count=0x0006, sector=0x08de}}
0x118200…118400 (93, 0, 10) DataSector[»LIFE«]
[…0x4…]
0x118c00…118e00 (93, 1, 3) Index {count=0x0002, a000=Slice {count=0x0005, sector=0x08c7}, a001=Slice {count=0x0006, sector=0x125c}}
0x118e00…119000 (93, 1, 4) DataSector[»PHANT«]
[…0x4…]
0x119800…119a00 (93, 1, 9) DataSector[»YCHEC«]
[…0x5…]
0x11a400…11a600 (94, 0, 3) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x08d3}}
0x11a600…11a800 (94, 0, 4) DataSector[»CHECK«]
[…0x4…]
0x11b000…11b200 (94, 0, 9) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x08d9}}
0x11b200…11b400 (94, 0, 10) DataSector[»ATEMP«]
[…0x4…]
0x11bc00…11be00 (94, 1, 3) DataSector[»LIFE«]
[…0x5…]
0x11c800…11ca00 (94, 1, 9) Index {count=0x0001, a000=Slice {count=0x000b, sector=0x08e5}}
0x11ca00…11cc00 (94, 1, 10) DataSector[»FSLIB«]
[…0xa…]
0x11e000…11e200 (95, 0, 9) Index {count=0x0001, a000=Slice {count=0x000b, sector=0x08f1}}
0x11e200…11e400 (95, 0, 10) DataSector[»YLIFE«]
[…0xa…]
0x11f800…11fa00 (95, 1, 9) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x08fd}}
0x11fa00…11fc00 (95, 1, 10) DataSector[»OKTAL«]
[…0x4…]
0x120400…120600 (96, 0, 3) DataSector[»COPSP«]
[…0x11…]
0x122800…122a00 (96, 1, 9) Index {count=0x0001, a000=Slice {count=0x000b, sector=0x0915}}
0x122a00…122c00 (96, 1, 10) DataSector[»NIM«]
[…0xa…]
0x124000…124200 (97, 0, 9) Index {count=0x0001, a000=Slice {count=0x000b, sector=0x0921}}
0x124200…124400 (97, 0, 10) DataSector[»MASTM«]
[…0xa…]
0x125800…125a00 (97, 1, 9) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x092d}}
0x125a00…125c00 (97, 1, 10) DataSector[»ITEST«]
[…0x4…]
0x126400…126600 (98, 0, 3) Index {count=0x0001, a000=Slice {count=0x0011, sector=0x0933}}
0x126600…126800 (98, 0, 4) DataSector[»DHEX«]
[…0x10…]
0x128800…128a00 (98, 1, 9) Index {count=0x0004, a000=Slice {count=0x0029, sector=0x0945}, a001=Slice {count=0x0006, sector=0x0980}, a002=Slice {count=0x001e, sector=0x0998}, a003=Slice {count=0x0012, sector=0x0902}}
0x128a00…128c00 (98, 1, 10) DataSector[»COPSP«]
[…0x28…]
0x12dc00…12de00 (100, 1, 3) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x096f}}
0x12de00…12e000 (100, 1, 4) DataSector[»W«]
[…0x4…]
0x12e800…12ea00 (100, 1, 9) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x0975}}
0x12ea00…12ec00 (100, 1, 10) DataSector[»PANEL«]
[…0x4…]
0x12f400…12f600 (101, 0, 3) Index {count=0x0003, a000=Slice {count=0x0005, sector=0x097b}, a001=Slice {count=0x003c, sector=0x0fa4}, a002=Slice {count=0x001e, sector=0x0fe6}}
0x12f600…12f800 (101, 0, 4) DataSector[»NZTEM«]
[…0x4…]
0x130000…130200 (101, 0, 9) DataSector[»COPSP«]
[…0x5…]
0x130c00…130e00 (101, 1, 3) Index {count=0x0001, a000=Slice {count=0x0011, sector=0x0987}}
0x130e00…131000 (101, 1, 4) DataSector[»IO1«]
[…0x10…]
0x133000…133200 (102, 0, 9) DataSector[»COPSP«]
[…0x1d…]
0x136c00…136e00 (103, 1, 3) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x09b7}}
0x136e00…137000 (103, 1, 4) DataSector[»TT009«]
[…0x4…]
0x137800…137a00 (103, 1, 9) DataSector[»GDATA«]
[…0x5…]
0x138400…138600 (104, 0, 3) DataSector[»YDBX3«]
[…0x5…]
0x139000…139200 (104, 0, 9) Index {count=0x0001, a000=Slice {count=0x000b, sector=0x09c9}}
0x139200…139400 (104, 0, 10) DataSector[»SNOOP«]
[…0xa…]
0x13a800…13aa00 (104, 1, 9) Index {count=0x0002, a000=Slice {count=0x0005, sector=0x09d5}, a001=Slice {count=0x0012, sector=0x0b66}}
0x13aa00…13ac00 (104, 1, 10) DataSector[»SKAT«]
[…0x4…]
0x13b400…13b600 (105, 0, 3) Index {count=0x0002, a000=Slice {count=0x0011, sector=0x09db}, a001=Slice {count=0x0024, sector=0x09f8}}
0x13b600…13b800 (105, 0, 4) DataSector[»BASGE«]
[…0x10…]
0x13d800…13da00 (105, 1, 9) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x09ed}}
0x13da00…13dc00 (105, 1, 10) DataSector[»KURS«]
[…0x4…]
0x13e400…13e600 (106, 0, 3) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x09f3}}
0x13e600…13e800 (106, 0, 4) DataSector[»END«]
[…0x4…]
0x13f000…13f200 (106, 0, 9) DataSector[»BASGE«]
[…0x23…]
0x143800…143a00 (107, 1, 9) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x0a1d}}
0x143a00…143c00 (107, 1, 10) DataSector[»RBREV«]
[…0x4…]
0x144400…144600 (108, 0, 3) Index {count=0x0001, a000=Slice {count=0x000b, sector=0x0a23}}
0x144600…144800 (108, 0, 4) DataSector[»DICE«]
[…0xa…]
0x145c00…145e00 (108, 1, 3) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x0a2f}}
0x145e00…146000 (108, 1, 4) DataSector[»SKUD«]
[…0x4…]
0x146800…146a00 (108, 1, 9) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x0a35}}
0x146a00…146c00 (108, 1, 10) DataSector[»CDUMP«]
[…0x4…]
0x147400…147600 (109, 0, 3) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x0a3b}}
0x147600…147800 (109, 0, 4) DataSector[»LTEMP«]
[…0x4…]
0x148000…148200 (109, 0, 9) UnusedSector ┆NAME .IFN .-.POP-3 *** ; ILLEGAL NAME LENGTH ; *** .ENDC Z ; SIZE 0 ; ZMODE ; ZKIND .POP ; ZMASK ; ZGIVE 1 ; ZFILE 1 ; ZBLOCK .POP*2 ; ZCONV .+Z-ZBUFF ; ZBUFF /2+SSIZE ; ZSIZE .POP ; ZFORM .POP ; ZLENGTH .+Z+SSIZE-ZFIRS*2 ; ZFIRST .+Z+SSIZE-ZTOP*2 ; ZTOP .+Z-ZUSED ; ZUSED ; ZSHAREL 0 ; ZREM .BLK ZAUX ; Z0 .PUSH . .PUSH 1 .DO .NOLOC 0 .NOLOC 1 0 ; SOPER 0 ; SCOUNT 0 ; SADDR 0 ; SSPEC .IFN -.TOP .+SSIZE+( /2)-SNEXT ; SNEXT .ENDC ENDE .NOLO┆
0x148200…148400 (109, 0, 10) UnusedSector ┆C .POP ; DUMMY .POP ; SNEXT .PUSH -1 ÆENDEÅ 0 ; SSTAT .+1*2 ; SFIRS .BLK /2 ; BUFFER .PUSH .POP+1 .ENDC .NOLOC .POP ; DUMMY .RDX .POP .TXTN .POP .TXTM .POP ÆFINÅ .NOLOC .POP COM , AND , ADC , .PUSH .NOLOC .NOLOC 1 .PUSH .TXTM .TXTM 1 .PUSH .TXTN .TXTN 0 .+0 ; NEXT .-1 ; PREV 0 ; CHAIN 0 ; CARRY .PUSH . .TXT ' ' ; NAME .IFN .-.POP-3 *** ; ILLEGAL NAME LENGTH ; *** .ENDC .+0 ; EVENT .-1 ; EVENT ; BUFFER ; PROGRAM 1B0 ; STATE 0 ; TIMER ; PRIORITY ┆
0x148400…148600 (109, 0, 11) UnusedSector ┆ ; BREAK 0 ; AC0 0 ; AC1 .-AC2 ; AC2 0 ; AC3 *2 ; PSW 0 ; SAVE .TXTN .POP .TXTM .POP .NOLOC .POP .PUSH .NOLOC ; MESSAGE BUFFERS .NOLOC 1 .PUSH .RDX .RDX 10 .PUSH 1 .DO .IFE .TOP-(.TOP/4*4)-1 .IFN .TOP-1 .EJEC .ENDC .ENDC .NOLOC 0 .NOLOC 1 .+0 ; NEXT .-1 ; PREV .+BSIZE-CHAIN ; CHAIN BSIZE ; SIZE ; SENDER 0 ; RECEIVER 0 ; MESS0 0 ; MESS1 0 ; MESS2 0 ; MESS3 .PUSH .POP+1 .ENDC .NOLOC .POP .RDX .POP .NOLOC .POP .PUSH .NOLOC .NOLOC 1 .IFE *** ┆
0x148600…148800 (109, 0, 12) UnusedSector ┆; ILLEGAL NO OF BUFFERS ; *** .GOTO FIN .ENDC .PUSH .TXTM .TXTM 1 .PUSH .TXTN .TXTN 0 .PUSH .RDX .RDX 8 .IFL .ARGCT-9. .PUSH 0 .ENDC ENDE .PUSH ÆENDEÅ .DO ' '=='U' .PUSH 0 .GOTO NEXT .ENDC .DO ' '=='UB' .PUSH 1 .GOTO NEXT .ENDC .DO ' '=='F' .PUSH 2 .GOTO NEXT .ENDC .DO ' '=='FB' .PUSH 3 .GOTO NEXT .ENDC .DO ' '=='V' .PUSH 4 .GOTO NEXT .ENDC .DO ' '=='VB' .PUSH 5 .GOTO NEXT .ENDC *** ; ILLEGAL RECORD FORMAT ┆
0x148800…148a00 (109, 1, 1) UnusedSector ┆; *** .GOTO FIN ÆNEXTÅ .IFL .ARGCT-8. .PUSH 0 .ENDC ENDE .PUSH ÆENDEÅ .IFL .ARGCT-7. .PUSH 177777 .ENDC ENDE .PUSH ÆENDEÅ .PUSH . .TXT ' ' ; ZNAME .IFN .-.POP-3 *** ; ILLEGAL NAME LENGTH ; *** .ENDC Z ; SIZE 0 ; ZMODE ; ZKIND .POP ; ZMASK ; ZGIVE 1 ; ZFILE 1 ; ZBLOCK ┆
0x148a00…148c00 (109, 1, 2) UnusedSector ┆.POP*2 ; ZCONV .+Z-ZBUFF ; ZBUFF /2+SSIZE ; ZSIZE .POP ; ZFORM .POP ; ZLENGTH .+Z+SSIZE-ZFIRS*2 ; ZFIRST .+Z+SSIZE-ZTOP*2 ; ZTOP .+Z-ZUSED ; ZUSED ; ZSHAREL 0 ; ZREM .BLK ZAUX ; Z0 .PUSH . .PUSH 1 .DO .NOLOC 0 .NOLOC 1 0 ; SOPER 0 ; SCOUNT 0 ┆
0x148c00…148e00 (109, 1, 3) UnusedSector ┆ ; SADDR 0 ; SSPEC .IFN -.TOP .+SSIZE+( /2)-SNEXT ; SNEXT .ENDC ENDE .NOLOC .POP ; DUMMY .POP ; SNEXT .PUSH -1 ÆENDEÅ 0 ; SSTAT .+1*2 ; SFIRS .BLK /2 ; BUFFER .PUSH .POP+1 .ENDC .NOLOC .POP ; DUMMY .RDX .POP .TXTN .POP .TXTM .POP ÆFINÅ .NOLOC .POP .PUSH .NOLOC .NOLOC 1 .PUS┆
0x148e00…149000 (109, 1, 4) UnusedSector ┆H .TXTM .TXTM 1 .PUSH .TXTN .TXTN 0 .+0 ; NEXT .-1 ; PREV 0 ; CHAIN 0 ; CARRY .PUSH . .TXT ' ' ; NAME .IFN .-.POP-3 *** ; ILLEGAL NAME LENGTH ; *** .ENDC .+0 ; EVENT .-1 ; EVENT ; BUFFER ; PROGRAM 1B0 ; STATE 0 ; TIMER ; PRIORITY ; BREAK 0 ; AC0 0 ; AC1 .-┆
0x149000…149200 (109, 1, 5) UnusedSector ┆AC2 ; AC2 0 ; AC3 *2 ; PSW 0 ; SAVE .TXTN .POP .TXTM .POP .NOLOC .POP .PUSH .NOLOC ; MESSAGE BUFFERS .NOLOC 1 .PUSH .RDX .RDX 10 .PUSH 1 .DO -1 .IFE .TOP-(.TOP/4*4)-1 .IFN .TOP-1 .EJEC .ENDC .ENDC .NOLOC 0 .NOLOC 1 .+0 ; NEXT .-1 ; PREV .+BSIZE-CHAIN ; CHAIN BSIZE ; SIZE ; SENDER 0 ; RECEIVER 0 ; MESS0 0 ┆
0x149200…149400 (109, 1, 6) UnusedSector ┆ ; MESS1 0 ; MESS2 0 ; MESS3 .PUSH .POP+1 .ENDC .+0 ; NEXT .-1 ; PREV 0 ; CHAIN BSIZE ; SIZE ; SENDER 0 ; RECEIVER 0 ; MESS0 0 ; MESS1 0 ; MESS2 0 ; MESS3 .NOLOC .POP .RDX .POP .NOLOC .POP ┆
0x149400…149600 (109, 1, 7) UnusedSector ┆ ` i i(120) IS IT SITUATED ON THE NORTHERN HEMISPHERE ONLY ? h g(37) DOES THE COASTLINE BORDER ON THE ATLANTIC ? g0 g(9) IS IT SITUATED IN AFRICA ? g g(3) DOES IT BORDER ON BOLIVIA ? g g(1) IS IT URUGUAY ? ` i i(2) DOES THE NAME START WITH AN <A> ? g g(1) IS IT ARGENTINA ? ` i i(1) IS IT BRAZIL ? ┆
0x149600…149800 (109, 1, 8) UnusedSector ┆ ` i i(6) DOES IT BORDER ON ZAMBIA ? & g g(3) IS CAPETOWN IN THE COUNTRY ? g g(1) IS IT SOUTH AFRICA ? ` i i(2) IS THE CAPITOL CALLED LIBREVILLE ? " g$ g(1) IS IT GABON ? ` i i(1) IS IT ZAIRE ? ` i i(3) DOES THE NAME START WITH AN <A> ? ┆
0x149800…149a00 (109, 1, 9) UnusedSector ┆ M ┆
0x149a00…149c00 (109, 1, 10) UnusedSector ┆ F M N P P T V P X " X 2 Z Z > Ø < a d 8 f l g R h T i B j 4 k v L x æ n j N D F H J b ^ X Z d ` Ø f h v t ø ü % + G S _ i p q z æ ┆
0x149c00…149e00 (109, 1, 11) UnusedSector ┆F gH g(1) IS IT INDONESIA ? ` i i(1) IS THE FIJI ISLANDS ? ` i i(7) DOES THE COUNTRY BORDER ON PERU ? L gZ g(4) DOES THE NAME START WITH A <C> ? T gN g(2) DOES THE COUNTRY HAVE A COASTLINE ? P gR g(1) IS IT ECUADOR ? ` i i(1) IS IT BOLIVIA ? ` i i(2) IS THE COUNTRY KNOWN FOR┆
0x149e00…14a000 (109, 1, 12) UnusedSector ┆ IT'S COFFEE PRODUCTION ? X gV g(1) IS IT CHILLI ? ` i i(1) IS IT COLUMBIA ? ` i i(3) IS IT A CONTINENT OF ITSELF ? B gØ g(2) DOES THE COUNTRY HAVE A COASTLINE ? @ g^ g(1) IS IT PARAGUAY ? ` i i(1) IS IT PERU ? ` i i(1) IS IT AUSTRALIA ? ` i┆
0x14a000…14a200 (110, 0, 1) UnusedSector ┆ i(16) DOES THE COUNTRY BORDER ON TANZANIA ? F g h(7) DOES THE NAME START WITH LETTER LATER THAN <M> ? V gH g(4) DOES THE COUNTRY HAVE A COASTLINE ? P gJ g(2) IS IT SITUATED NEXT TO LAKE MALAWI ? N gL g(1) IS IT BURUNDI ? ` i i(1) IS IT MALAVI ? ` i i(2) IS THE CAPITOL NAMED NAIROBI ? T gR g(1) IS IT MOZAMBIQUE ? ┆
0x14a200…14a400 (110, 0, 2) UnusedSector ┆ ` i i(1) IS IT KENYA ? ` i i(3) IS THE COUNTRY SITUATED NEXT TO LAKE VICTORIA ? ^ gX g(2) DOES THE NAME START WITH A <Z> ? Ø gZ g(1) IS IT RWANDA ? ` i i(1) IS IT ZAMBIA ? ` i i(1) IS IT UGANDA ? ` i i(9) DOES THE NAME START WITH AN <M> OR AN <S> (YES/NO) ? h h┆
0x14a400…14a600 (110, 0, 3) DataSector[»GDATA«]
[…0x17…]
0x14d400…14d600 (111, 0, 3) UnusedSector ┆ k ┆
0x14d600…14d800 (111, 0, 4) UnusedSector ┆CLEAR LOAD PTR PPX02 LPX01 LOAD ERCAL CMB00 EBTEM EZTEM END ┆
0x14d800…14da00 (111, 0, 5) UnusedSector ┆ G EA r æ `EA J EA P EA Px EA h fa EA Å EQ ┆
0x14da00…14dc00 (111, 0, 6) UnusedSector ┆ EA p DA S EA J ( EA Iy`EA S?R EA , U EA ;@EA P EA z EA t l EA x EA l EA EA @ EQ EA EA EA ? @EA A z Æ`EA EA UÆ EA ┆
0x14dc00…14de00 (111, 0, 7) UnusedSector ┆ EA j å `EA EA ; V4 EA EA k EA > EA ? `EA C EA = 6C@EA EA J EA E Y ;`EA 1 ho EA 6 EA A EA 8 b< EA EA a `EA : @EA 9 J EA A EA < ┆
0x14de00…14e000 (111, 0, 8) UnusedSector ┆ 5 EA : EA UG EA $ 5 `EA G EA hoK EA 3 5 @EA z 9 EA J I EA F 5 EA J I EA B æf8 EA ┆
0x14e000…14e200 (111, 0, 9) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x0a71}}
0x14e200…14e400 (111, 0, 10) DataSector[»KREIS«]
[…0x4…]
0x14ec00…14ee00 (111, 1, 3) Index {count=0x0003, a000=Slice {count=0x001d, sector=0x0a77}, a001=Slice {count=0x0006, sector=0x0c44}, a002=Slice {count=0x0006, sector=0x0f2c}}
0x14ee00…14f000 (111, 1, 4) DataSector[»ACALL«]
[…0x1c…]
0x152800…152a00 (112, 1, 9) DataSector[»EZTEM«]
[…0xb…]
0x154000…154200 (113, 0, 9) Index {count=0x0003, a000=Slice {count=0x0005, sector=0x0aa1}, a001=Slice {count=0x000c, sector=0x0d04}, a002=Slice {count=0x0006, sector=0x0e66}}
0x154200…154220 (113, 0, 10) CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0x2f…]
0x154800…154820 (113, 1, 1) CatEnt {name=»FFT«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0008, idxblk=0x0f86, alloc=0x000b, w10=0x0046, w11=0x0008, w12=0x2053, w13=0x0000, w14=0x0000, w15=0x0000}
0x154820…154840 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0x1e…]
0x154c00…154e00 (113, 1, 3) UnusedSector ┆(4) DOES THE COUNTRY CONSIST OF ISLANDS ONLY ? h h(2) IS THE ISLAND ONE OF THE BIGGEST ONES IN THE WORLD ? h h(1) IS IT MAURITIUS ? ` i i(1) IS IT MALAGASY (MADAGASCAR) ? ` i i(2) IS THE COUNTRY SITUATED NEXT TO THE INDIAN OCEAN ? h h(1) IS IT SWAZILAND ? ` i i(1) IS IT SOMALIA ? ` i i(5) DOES THE COUNTRY BORDER ON MOZAM┆
0x154e00…155000 (113, 1, 4) UnusedSector ┆ ` i i(1) IS IT SOMALIA ? ` i i(5) DOES THE COUNTRY BORDER ON MOZAMBIQUE ? h h(2) IS THE COUNTRY SITUATED INSIDE ANOTHER COUNTRY ? h h(1) IS IT BOTSWANA ? ` i i(1) IS IT LESOTHO ? ` i i(2) DOES IT BORDER ON THE INDIAN OCEAN ? h i(1) IS IT TANZANIA ? ` i i(82) IS THE ┆
0x155000…155200 (113, 1, 5) UnusedSector ┆COUNTRY SITUATED IN ASIA ? G h h(45) DOES THE NAME START WITH A LETTER LATER THAN <J> ? ; h h(22) IS THE COUNTRY SITUATED IN AFRICA ? * h h(13) IS THE COUNTRY SITUATED ON AN ISLAND ? h h(6) DOES THE NAME START WITH EITHER A <B> OR A <C> (YES/NO) h h(3) IS THE NAME OF THE CAPITAL SANTO DOMINGO ? h h(2) ARE THERE TWO NATIONS ON THE ISLAND ? h h(1) IS IT JAMAICA ? ┆
0x155200…155400 (113, 1, 6) UnusedSector ┆ ` i i(1) IS IT HAITI ? ` i i(1) IS IT THE DOMINICAN REPUBLIC ? ` i i(3) IS THE CAPITAL HABANA ? h h(2) ARE THE ISLANDS SITUATED IN THE SMALL ANTILLES ? h h(1) IS IT BAHAMA ? ` i i(1) IS IT BARBADOS ? ` i i(1) IS IT CUBA ? ` i i(7) IS THE NAME ┆
0x155400…155600 (113, 1, 7) UnusedSector ┆SPLIT IN TWO PARTS ? % h h(4) IS IT SITUATED IN CENTRAL AMERICA ? " h h(2) IS IT FURTHER SOUTH ? ! h h(1) IS IT CANADA ? ` i i(1) IS IT GUAYANA ? ` i i(2) DOES IT BORDER ON MEXICO ? $ h# h(1) IS IT HONDURAS ? ` i i(1) IS IT GUATAMALA ? ┆
0x155600…155800 (113, 1, 8) UnusedSector ┆ ` i i(3) DOES THE COUNTRY BORDER ON THE PACIFIC OCEAN ? ' h& h(1) IS IT BRITISH HONDURAS ? ` i i(2) IS THE CAPITAL CALLED SAN SALVADOR ? ) h( h(1) IS IT COSTA RICA ? ` i i(1) IS IT EL SALVADOR ? ` i i(9) DOES THE NAME START WITH A <G> ? 4 h+ h(5) DOES THE COUNTRY HAVE A COASTLINE ? / h, h(2) DOES THE COUNTRY┆
0x155800…155a00 (113, 1, 9) DataSector[»EZTEM«]
[…0x17…]
0x158800…158a00 (114, 1, 9) Index {count=0x0001, a000=Slice {count=0x001d, sector=0x0ac5}}
0x158a00…158c00 (114, 1, 10) DataSector[»DEBUG«]
[…0x1c…]
0x15c400…15c600 (116, 0, 3) DataSector[»EZTEM«]
[…0x5…]
0x15d000…15d200 (116, 0, 9) Index {count=0x0003, a000=Slice {count=0x0005, sector=0x0ae9}, a001=Slice {count=0x0018, sector=0x0b42}, a002=Slice {count=0x0006, sector=0x0b78}}
0x15d200…15d400 (116, 0, 10) DataSector[»R1234«]
[…0x4…]
0x15dc00…15de00 (116, 1, 3) UnusedSector ┆ P ┆
0x15de00…15e000 (116, 1, 4) UnusedSector ┆ ` i i(2) IS THE COUNTRY SITUATED NEXT TO THE INDIAN OCEAN ? h h(1) IS IT SWAZILAND ? ` i i(1) IS IT SOMALIA ? ` i i(5) DOES THE COUNTRY BORDER ON MOZAMBIQUE ? h h(2) IS THE COUNTRY SITUATED INSIDE ANOTHER COUNTRY ? h h(1) IS IT BOTSWANA ? ` i i(1) IS IT LESOTHO ? ` i i(2) DOES IT BORDER O┆
0x15e000…15e200 (116, 1, 5) UnusedSector ┆N THE INDIAN OCEAN ? h i(1) IS IT TANZANIA ? ` i i(82) IS THE COUNTRY SITUATED IN ASIA ? G h h(45) DOES THE NAME START WITH A LETTER LATER THAN <J> ? ; h h(22) IS THE COUNTRY SITUATED IN AFRICA ? * h h(13) IS THE COUNTRY SITUATED ON AN ISLAND ? h h(6) DOES THE NAME START WITH EITHER A <B> OR A <C> (YES/NO) h h(3) IS THE NAME OF THE CAPITAL SANTO DOMINGO ? ┆
0x15e200…15e400 (116, 1, 6) UnusedSector ┆ h h(2) ARE THERE TWO NATIONS ON THE ISLAND ? h h(1) IS IT JAMAICA ? ` i i(1) IS IT HAITI ? ` i i(1) IS IT THE DOMINICAN REPUBLIC ? ` i i(3) IS THE CAPITAL HABANA ? h h(2) ARE THE ISLANDS SITUATED IN THE SMALL ANTILLES ? h h(1) IS IT BAHAMA ? ` i i(1) IS IT BARBADOS ? ┆
0x15e400…15e600 (116, 1, 7) UnusedSector ┆ ` i i(1) IS IT CUBA ? ` i i(7) IS THE NAME SPLIT IN TWO PARTS ? % h h(4) IS IT SITUATED IN CENTRAL AMERICA ? " h h(2) IS IT FURTHER SOUTH ? ! h h(1) IS IT CANADA ? ` i i(1) IS IT GUAYANA ? ` i i(2) DOES IT BORDER ON MEXICO ? ┆
0x15e600…15e800 (116, 1, 8) UnusedSector ┆$ h# h(1) IS IT HONDURAS ? ` i i(1) IS IT GUATAMALA ? ` i i(3) DOES THE COUNTRY BORDER ON THE PACIFIC OCEAN ? ' h& h(1) IS IT BRITISH HONDURAS ? ` i i(2) IS THE CAPITAL CALLED SAN SALVADOR ? ) h( h(1) IS IT COSTA RICA ? ` i i(1) IS IT EL SALVADOR ? ` i i(9) DOES THE NAME START WITH┆
0x15e800…15ea00 (116, 1, 9) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x0af5}}
0x15ea00…15ec00 (116, 1, 10) DataSector[»R3«]
[…0x4…]
0x15f400…15f600 (117, 0, 3) DataSector[»EZTEM«]
[…0x5…]
0x160000…160200 (117, 0, 9) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x0b01}}
0x160200…160400 (117, 0, 10) DataSector[»M3102«]
[…0x4…]
0x160c00…160e00 (117, 1, 3) Index {count=0x0005, a000=Slice {count=0x0005, sector=0x0b07}, a001=Slice {count=0x0006, sector=0x0c56}, a002=Slice {count=0x0006, sector=0x0c74}, a003=Slice {count=0x000c, sector=0x0c80}, a004=Slice {count=0x0006, sector=0x0c9e}}
0x160e00…161000 (117, 1, 4) DataSector[»N1234«]
[…0x4…]
0x161800…161a00 (117, 1, 9) Index {count=0x0001, a000=Slice {count=0x0035, sector=0x0b0d}}
0x161a00…161c00 (117, 1, 10) DataSector[»CODEP«]
[…0x34…]
0x168400…168600 (120, 0, 3) DataSector[»R1234«]
[…0x17…]
0x16b400…16b600 (121, 0, 3) Index {count=0x0001, a000=Slice {count=0x000b, sector=0x0b5b}}
0x16b600…16b800 (121, 0, 4) DataSector[»YMSNO«]
[…0xa…]
0x16cc00…16ce00 (121, 1, 3) DataSector[»SKAT«]
[…0x11…]
0x16f000…16f200 (122, 0, 9) DataSector[»R1234«]
[…0x5…]
0x16fc00…16fe00 (122, 1, 3) Index {count=0x0003, a000=Slice {count=0x000b, sector=0x0b7f}, a001=Slice {count=0x0012, sector=0x0b9c}, a002=Slice {count=0x000c, sector=0x0c02}}
0x16fe00…170000 (122, 1, 4) DataSector[»E1234«]
[…0xa…]
0x171400…171600 (123, 0, 3) DataSector[»EZTEM«]
[…0x5…]
0x172000…172200 (123, 0, 9) Index {count=0x0001, a000=Slice {count=0x000b, sector=0x0b91}}
0x172200…172400 (123, 0, 10) DataSector[»WTST6«]
[…0xa…]
0x173800…173a00 (123, 1, 9) DataSector[»E1234«]
[…0x11…]
0x175c00…175e00 (124, 1, 3) DataSector[»EZTEM«]
[…0x17…]
0x178c00…178e00 (125, 1, 3) Index {count=0x0001, a000=Slice {count=0x003b, sector=0x0bc7}}
0x178e00…179000 (125, 1, 4) DataSector[»CODEX«]
[…0x3a…]
0x180400…180600 (128, 0, 3) DataSector[»E1234«]
[…0xb…]
0x181c00…181e00 (128, 1, 3) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x0c0f}}
0x181e00…182000 (128, 1, 4) DataSector[»WTSTM«]
[…0x4…]
0x182800…182a00 (128, 1, 9) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x0c15}}
0x182a00…182c00 (128, 1, 10) DataSector[»AUTO«]
[…0x4…]
0x183400…183600 (129, 0, 3) Index {count=0x0001, a000=Slice {count=0x0011, sector=0x0c1b}}
0x183600…183800 (129, 0, 4) DataSector[»R4«]
[…0x10…]
0x185800…185a00 (129, 1, 9) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x0c2d}}
0x185a00…185c00 (129, 1, 10) DataSector[»RBNMA«]
[…0x4…]
0x186400…186600 (130, 0, 3) Index {count=0x0001, a000=Slice {count=0x0011, sector=0x0c33}}
0x186600…186800 (130, 0, 4) DataSector[»R14«]
[…0x10…]
0x188800…188a00 (130, 1, 9) DataSector[»ACALL«]
[…0x5…]
0x189400…189600 (131, 0, 3) DataSector[»EZTEM«]
[…0x5…]
0x18a000…18a200 (131, 0, 9) UnusedSector ┆ A <G> ? 4 h+ h(5) DOES THE COUNTRY HAVE A COASTLINE ? / h, h(2) DOES THE COUNTRY BORDER ON ZAIRE ? . h- h(1) IS IT CHAD ? ` i i(1) IS IT THE REPUBLIC OF CENTRAL AFRICA ? ` i i(4) IS THE COUNTRY SITUATED AT THE MEDITERRANEAN ? i0 h(3) DOES THE COUNTRY BORDER ON NIGERIA ? 2 h ` i(1) IS IT THE IVORY COAST ? ` i┆
0x18a200…18a400 (131, 0, 10) UnusedSector ┆ i(2) DOES IT START WITH A <D> ? i ` i(1) IS IT ALGIER ? ` i i(4) DOES THE NAME CONTAIN THE WORD <GUINEA> ? 8 h5 h(2) IS THE CAPITAL ACCRA ? 7 h6 h(1) IS IT GAMBIA ? ` i i(1) IS IT GHANA ? ` i i(2) DOES THE COUNTRY BORDER ON GUINEA ? : h9 h(1) IS IT GUINEA ? ┆
0x18a400…18a600 (131, 0, 11) UnusedSector ┆ ` i i(1) IS IT GUINEA BISSAU ? ` i i(23) IS THE COUNTRY SITUATED IN AMERICA ? < hG h(6) IS THE COUNTRY SITUATED AT THE PACIFIC OCEAN ? @ h= h(2) IS THE COUNTRY SITUATED ON AN ISLAND ONLY ? ? h> h(1) IS IT VENEZUELA ? ` i i(1) IS IT TRINIDAD AND TO TOBAGO ? ` i iIS THE COUNTRY SITUATED IN CENTRAL AMERICA ? D hA h┆
0x18a600…18a800 (131, 0, 12) UnusedSector ┆(2) IS IT A UNION OF STATES ? C hB h(1) IS IT MEXICO ? ` i i(1) IS IT THE UNITED STATES OF AMERICA ? ` i i(2) IS THERE A WELL KNOWN CANAL IN THE COUNTRY ? F hE h(1) IS IT NICARAQUA ? ` i i(1) IS IT PANAMA ? ` i i(18) IS THE COUNTRY SITUATED AT THE ATLANTIC ? W hH h(8) IS IT PLACED AT ANY SEA AT ALL ?┆
0x18a800…18aa00 (131, 1, 1) UnusedSector ┆ N hI h(3) DOES THE COUNTRY BORDER ON ALGERIA ? K hJ h(2) IS THE NAME OF THE COUNTRY IN TWO WORDS ? i- h(2) DOES THE NAME CONTAIN MORE THAN 4 LETTERS ? M hL h(1) IS IT NIGER ? ` i i(1) IS IT MALI ? ` i i(5) DOES THE NAME START WITH AN <A> OR AN <E> (YES/NO) T hO h(3) ARE THERE LESS THAN 7 CHARACTERS IN THE NAME ? Q hP h(1) ┆
0x18aa00…18ac00 (131, 1, 2) UnusedSector ┆IS IT TUNESIA ? ` i i(2) DOES THE NILE RUN THROUGH THE COUNTRY ? S hR h(1) IS IT LIBYA ? ` i i(1) IS IT SUDAN ? ` i i(2) IS IT SITUATED AT SUEZ ? V hU h(1) IS IT ETHIOPIA ? ` i i(1) IS IT EGYPT ? ` i i(10) ARE THERE 7 LETTERS IN THE NAME ? ┆
0x18ac00…18ae00 (131, 1, 3) DataSector[»N1234«]
[…0x5…]
0x18b800…18ba00 (131, 1, 9) Index {count=0x0001, a000=Slice {count=0x000b, sector=0x0c5d}}
0x18ba00…18bc00 (131, 1, 10) DataSector[»CDUMP«]
[…0xa…]
0x18d000…18d200 (132, 0, 9) Index {count=0x0001, a000=Slice {count=0x000b, sector=0x0c69}}
0x18d200…18d400 (132, 0, 10) DataSector[»WTEST«]
[…0xa…]
0x18e800…18ea00 (132, 1, 9) DataSector[»N1234«]
[…0x5…]
0x18f400…18f600 (133, 0, 3) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x0c7b}}
0x18f600…18f800 (133, 0, 4) DataSector[»MSN32«]
[…0x4…]
0x190000…190200 (133, 0, 9) DataSector[»N1234«]
[…0xb…]
0x191800…191a00 (133, 1, 9) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x0c8d}}
0x191a00…191c00 (133, 1, 10) DataSector[»DEZ«]
[…0x4…]
0x192400…192600 (134, 0, 3) Index {count=0x0001, a000=Slice {count=0x000b, sector=0x0c93}}
0x192600…192800 (134, 0, 4) DataSector[»REPEA«]
[…0xa…]
0x193c00…193e00 (134, 1, 3) DataSector[»N1234«]
[…0x5…]
0x194800…194a00 (134, 1, 9) UnusedSector ┆ @ hX h(5) IS THE NAME SPLIT IN TWO PARTS ? Æ hY h(2) IS THE COUNTRY CUT BY THE 20TH DEGREE OF LATITUDE ? Z h ` i(1) IS IT MAURITANIA ? ` i i(3) DOES THE COUNTRY BORDER ON MARROCCO ? _ hØ h(2) IS THE CAPITAL FREETOWN ? ^ hÅ h(1) IS IT EQUATORIAL GUINEA ? ` i i(1) IS IT SIERRA LEONE ? ` i i(1) IS I┆
0x194a00…194c00 (134, 1, 10) UnusedSector ┆T SPANNISH SAHARA ? ` i i(4) DOES THE COUNTRY BORDER ON CHAD ? F hA h(3) ARE THE INHIBITANTS ABLE TO SWIM IN THE MEDITERRENIAN ? E hB h(2) IS THE CAPITAL MONROVIA ? D hC h(1) IS IT SENEGAL ? ` i i(1) IS IT LIBERIA ? ` i i(1) IS IT MAROCCO ? ` i i(2) IS THE CAPITAL LAGOS ? ┆
0x194c00…194e00 (134, 1, 11) UnusedSector ┆ i ` i(37) DOES THE NAME START WITH A LETTER EARLIER THAN <L> ? ` iH h(19) DOES THE NAME START WITH AN <S> ? ^ hI h(13) IS THE COUNTRY SITUATED AT THE INDIAN OCEAN ? V hJ h(7) IS THE COUNTRY SITUATED AT ANY SEA AT ALL ? O hK h(3) IS THE HIGHEST MOUNTAIN IN THE WORLD SITUATED THERE ? N h ` i(1) IS IT LAOS ? ` i i(1) IS IT MONGOLIA ? ` i i(1) IS IT NE┆
0x194e00…195000 (134, 1, 12) UnusedSector ┆PAL ? ` i i(4) IS THE NAME SPLIT IN HALVES ? T hP h(3) IS IT AN ISLAND ? R hS h(1) IS IT LIBANON ? ` i i(1) IS IT TAIWAN ? ` i i(2) WAS THE NAME OF THE CAPITAL EARLIER CALLED SAIGON ? U hQ h(1) IS IT NORTHERN-KOREA ? ` i i(1) IS IT VIETNAM ? ┆
0x195000…195200 (135, 0, 1) UnusedSector ┆ ` i i(6) ARE THERE 8 LETTERS IN THE NAME ? Y hW h(3) IS THE COUNTRY CUT BY THE 20TH DEGREE OF LATITUDE ? iX h(2) DOES THE NAME OF THE COUNTRY START WITH A <Q> ? i ` i(3) DOES THE COUNTRY BORDER ON INDIA ? Å hZ h(2) WAS THE EARLIER NAME OF THE COUNTRY SIAM ? Ø hÆ h(1) IS IT MALAYSIA ? ` i i (1) ER DET T ` i i(1) IS IT THAILAND ? ` i i (2) HED HOVE ` i i(1) IS IT PAKIST┆
0x195200…195400 (135, 0, 2) UnusedSector ┆AN ? U hT h (1) ER DET N ` i i(7) IS THE NAME SPLIT IN HALVES ? i (1) ER DET V ` i_ h(3) IS IT AN ISLAND ? ` i i (5) ER DER 8 ` i i(1) IS IT SIKKIM ? Y hW h (2) BEGYNDER ` i i(1) IS IT SYRIA ? iX h (1) ER DET O ` i i(2) IS IT AN ISLAND ? ` i i (3) GRÆNSER i ` i(1) IS IT SAUDI ARABIA ? Å hZ h (2) HAR LAND i ` i(1) IS IT SRI LANKA ? h (1) ┆
0x195400…195600 (135, 0, 3) UnusedSector ┆ER DET M ` i i(1) IS IT SOUTH YEMEN ? ` i i (1) ER DET T ` i i (1) IS IT SOUTH KOREA ? ` i i (1) ER DET P ` i i(6) DOES IT HAVE A COASTLINE ? (7) ER NAVNE ` i i(2) DOES THE COUNTRY BORDER ON ISRAEL ? (3) ER DET E i ` i(1) IS IT AFGHANISTAN ? ) 0020 TA",F,BUF$,8 ` i i(1) IS IT JORDAN ? NT X,TEXT$; ` i i(4) DOES THE NAME START WITH A <K> ? 325 0040 i i(2) IS THE COUNTRY S┆
0x195600…195800 (135, 0, 4) UnusedSector ┆ITUATED ON THE ARABIAN PENINSULA ? ` i ` i(1) IS IT YEMEN ? ` i i (1) ER DET S ` i i(2) IS IT AN OPEC MEMBER ? ` i i i ` i(1) IS IT CHINA ? ` i i(1) IS IT KUWAIT ? ` i i(3) IS THE ISLAND LOCATED IN THE MEDITERRENIAN ? i i(2) IS THE CAPITAL TOKIO ? i ` i(1) IS IT THE PHILIPPINES ? ┆
0x195800…195a00 (135, 0, 5) UnusedSector ┆ ` i iWAIT A MINUTE.... ARE YOU PULLING MY LEG ????? CG,JGHJDFGJLÆGHJSGL (1) IS IT JAPAN ? ` i i(4) ARE THERE 4 LETTERS IN THE NAME ? ` i i(2) IS THE CAPITAL JERUSALEM ? ` i i(1) IS IT ISRAEL ? ` i i(1) IS IT INDIA ? ` i i(1) IS IT IRAN ? ┆
0x195a00…195c00 (135, 0, 6) UnusedSector ┆ ` i i(1) IS IT IRAQ ? ` i i(5) IS THE COUNTRY LOCATED ON AN ISLAND ? i i(3) IS THE NAME SPLIT IN HALVES ? ` i ` i(2) IS THE CAPITAL RANGOON ? i i(1) IS IT BURMA ? ` i i(1) IS IT BANGLA DESH ? ` i i(2) IS THE COUNTRY LOCATED ON BORNEO ? ┆
0x195c00…195e00 (135, 0, 7) UnusedSector ┆ i ` i(1) IS IT BAHREIN ? ` i i(1) IS IT BRUNEI ? ` i i0 1 2 3 4 5 6 7 8 9 ............ 0 1 2 3 4 5 6 7 8 9 ................... (1) IS IT SINGAPORE ? ` i i(2) IS THE CAPITAL DAMASCUS ? ` i i(1) IS IT CAMERUN ? ` i i(1) IS IT NIGERIA ? ┆
0x195e00…196000 (135, 0, 8) UnusedSector ┆ ` i i(1) IS IT TOGO ? ` i i YOU MIGHT HAVE DONE A MISTAKE !!!!!!!!!!!!!!!! ALL RIGHT !! (1) IS IT UPPER VOLTA ? ` i i(2) IS THE NAME OF THE COUNTRY ON 4 LETTERS ? L hM h(1) IS IT QATAR ? ` i i(4) DOES THE NAME CONTAIN A DIRECTION ? i┆
0x196000…196200 (135, 0, 9) UnusedSector ┆ i(1) IS IT ZIMBABWE ? (1) ER DET C ` i i0 1 2 3 4 5 6 7 8 9 .............................. ` i i(1) IS IT CYPRESS ? ` i i (1) ER DET T ` i i0 1 2 3 4 5 6 7 8 9 ................................. ERT (2) IS THE CAPITAL SEOUL ? RIGTIGT i ` i(9) DOES THE NAME START WITH AN <I> ? (1) ER DET Ø ` i ` i(9) IS IT LOCATED ON AN ISLAND ? i (2) ER LANDE ` i ` i(1) IS IT CAMBUCHIA ? L h┆
0x196200…196400 (135, 0, 10) UnusedSector ┆ WITH EITHER A <B> OR AN <I> (Y/N) ? ` i i(1) IS IT BHUTAN ? ` i i(2) IS THE LAST LETTER <Q> OR <K> (YES^/NO) i ` i(1) IS IT OMAN ? ` i i(2) IS THE CAPITAL ABEBA ? U h1 h(1) IS IT DAHOMEY ? ` i i0 1 2 3 4 5 6 7 8 9 ...............................FINISH ┆
0x196400…196600 (135, 0, 11) UnusedSector ┆ ```````````````````````````````````````````` 0010 ON ESC EXEC SLUTTE 0020 REM //----------------------------------------------// 0030 REM // PROGRAM : OTHELLO // 0040 REM // SKREVET AF : ERIK T. NIELSEN I RC700 COMAL // 0050 REM // STED : RISMØLLESKOLEN, RANDERS,┆
0x196600…196800 (135, 0, 12) UnusedSector ┆ DEN 8.5.80 // 0060 REM // DENNE VERSION ER AF : 22.12.80 // 0070 REM //----------------------------------------------// 0080 RANDOMIZE // START OF OTHELLO // 0090 EXEC START 0100 EXEC SPIL 0110 EXEC SLUT 0120 EXEC SLUTTE 0130 STOP // END OF OTHELLO // 0140 REM //----------------------------------------------// 0150 PROC START 0160 DIM BRÆT(10,10),X(8),Y(8),KRYDS$(1),T$(3) 0170 DIM VERTI(10),HORIZ(10),PLACERING$(2) 0180 FOR I=1 TO 8 0190 READ X(I),Y(I) ┆
0x196800…196a00 (135, 1, 1) UnusedSector ┆ 0200 NEXT I 0210 DATA 1,-1,1,0,1,1,0,-1,-1,-1,-1,0,-1,1,0,1 0220 PRINT CHR(12) 0230 EXEC CURSOR(1,21,32) 0240 REPEAT 0250 PRINT CHR(26); CHR(30); 0260 INPUT " YOUR CHOICE : X OR O : ",KRYDS$ 0270 IF KRYDS$="X" THEN KRYDS$="X" 0280 IF KRYDS$="O" THEN KRYDS$="O" 0290 UNTIL KRYDS$="X" OR KRYDS$="O" 0300 PRINT "IF YOU WAIVE YOUR CLAIM, THEN TYPE : RE" 0310 PRINT "IF YOU GIVE UP / QUIT, THEN TYPE : QT" 0320 R=1; RCVÆRDI=1+(KRYDS$="X"); MDVÆRDI=3-RCVÆ┆
0x196a00…196c00 (135, 1, 2) UnusedSector ┆RDI; T$=" XO" 0330 TRUE=1; FALSE=0; TOM,NUL=0 0340 BRC,BMD=2; PLACEREDE=4; AFSTÅET=0; BRÆT(5,5),BRÆT(6,6)=MDVÆRDI 0350 VERTI(5),VERTI(6),HORIZ(5),HORIZ(6)=2; BRÆT(5,6),BRÆT(6,5)=RCVÆRDI 0360 EXEC KANT 0370 FOR I=5 TO 6 0380 FOR J=5 TO 6 0390 EXEC BRIKPRINT(I,J) 0400 NEXT J 0410 NEXT I 0420 ENDPROC START 0430 REM //----------// 0440 PROC SPIL 0450 REPEAT 0460 EXEC MDBRIKPLACERING 0470 IF PLACERING$<>"QT" THEN EXEC RCBRIKPLACERING 0480 UNT┆
0x196c00…196e00 (135, 1, 3) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x0cb7}}
0x196e00…197000 (135, 1, 4) DataSector[»YFS06«]
[…0x4…]
0x197800…197a00 (135, 1, 9) UnusedSector ┆ ┆
0x197a00…197c00 (135, 1, 10) UnusedSector ┆M h (1) ER DET Q ` i i(2) IS THE CAPITAL CAIRO ? i V h3 h(18) DOES THE NAME START WITH EITHER A <B> OR AN <I> (Y/N) ? ` i i(1) IS IT BHUTAN ? ` i i(2) IS THE LAST LETTER <Q> OR <K> (YES^/NO) i ` i(1) IS IT OMAN ? ` i i(2) IS THE CAPITAL ABEBA ? U h1 h(1) IS IT DAHOMEY ? ` i i┆
0x197c00…197e00 (135, 1, 11) UnusedSector ┆0 1 2 3 4 5 6 7 8 9 ...............................FINISH ```````````````````````````````````````````` 0010 ON ESC EXEC SLUTTE 0020 REM //----------------------------------------------// 0030 REM // PROGRAM : OTHELLO ┆
0x197e00…198000 (135, 1, 12) UnusedSector ┆ // 0040 REM // SKREVET AF : ERIK T. NIELSEN I RC700 COMAL // 0050 REM // STED : RISMØLLESKOLEN, RANDERS, DEN 8.5.80 // 0060 REM // DENNE VERSION ER AF : 22.12.80 // 0070 REM //----------------------------------------------// 0080 RANDOMIZE // START OF OTHELLO // 0090 EXEC START 0100 EXEC SPIL 0110 EXEC SLUT 0120 EXEC SLUTTE 0130 STOP // END OF OTHELLO // 0140 REM //----------------------------------------------// 0150 PROC START 0160 DIM BRÆT(┆
0x198000…198200 (136, 0, 1) UnusedSector ┆10,10),X(8),Y(8),KRYDS$(1),T$(3) 0170 DIM VERTI(10),HORIZ(10),PLACERING$(2) 0180 FOR I=1 TO 8 0190 READ X(I),Y(I) 0200 NEXT I 0210 DATA 1,-1,1,0,1,1,0,-1,-1,-1,-1,0,-1,1,0,1 0220 PRINT CHR(12) 0230 EXEC CURSOR(1,21,32) 0240 REPEAT 0250 PRINT CHR(26); CHR(30); 0260 INPUT " YOUR CHOICE : X OR O : ",KRYDS$ 0270 IF KRYDS$="X" THEN KRYDS$="X" 0280 IF KRYDS$="O" THEN KRYDS$="O" 0290 UNTIL KRYDS$="X" OR KRYDS$="O" 0300 PRINT "IF YOU WAIVE YOUR CL┆
0x198200…198400 (136, 0, 2) UnusedSector ┆AIM, THEN TYPE : RE" 0310 PRINT "IF YOU GIVE UP / QUIT, THEN TYPE : QT" 0320 R=1; RCVÆRDI=1+(KRYDS$="X"); MDVÆRDI=3-RCVÆRDI; T$=" XO" 0330 TRUE=1; FALSE=0; TOM,NUL=0 0340 BRC,BMD=2; PLACEREDE=4; AFSTÅET=0; BRÆT(5,5),BRÆT(6,6)=MDVÆRDI 0350 VERTI(5),VERTI(6),HORIZ(5),HORIZ(6)=2; BRÆT(5,6),BRÆT(6,5)=RCVÆRDI 0360 EXEC KANT 0370 FOR I=5 TO 6 0380 FOR J=5 TO 6 0390 EXEC BRIKPRINT(I,J) 0400 NEXT J 0410 NEXT I 0420 ENDPROC START 0430 REM //----------// 0440 ┆
0x198400…198600 (136, 0, 3) Index {count=0x0001, a000=Slice {count=0x000b, sector=0x0cc3}}
0x198600…198800 (136, 0, 4) DataSector[»MTSTP«]
[…0xa…]
0x199c00…199e00 (136, 1, 3) UnusedSector ┆PROC SPIL 0450 REPEAT 0460 EXEC MDBRIKPLACERING 0470 IF PLACERING$<>"QT" THEN EXEC RCBRIKPLACERING 0480 UNTIL PLACEREDE=64 OR AFSTÅET=2 OR BMD=0 OR BRC=0 OR PLACERING$="QT" 0490 ENDPROC SPIL 0500 REM //----------// 0510 PROC MDBRIKPLACERING 0520 REPEAT 0530 REPEAT 0540 PRINT CHR(29); CHR(30); 0550 INPUT "INSERT POSITION : ",PLACERING$ 0560 EXEC CURSOR(1,2,32) 0570 FOR SLET=1 TO 15 0580 PRINT " " 0590 ┆
0x199e00…19a000 (136, 1, 4) UnusedSector ┆ NEXT SLET 0600 EXEC CURSOR(1,2,32) 0610 IF PLACERING$="RE" THEN AFSTÅET=AFSTÅET+1 0620 REM VERT (CIFFER -48) TIL J. 0630 REM HORZ (BOGSTAV-96) TIL I. 0640 IF ORD(PLACERING$(2 : 1))<58 THEN 0650 J=ORD(PLACERING$(2 : 1))-48; I=ORD(PLACERING$(1 : 1))-96 0660 ELSE 0670 J=ORD(PLACERING$(1 : 1))-48; I=ORD(PLACERING$(2 : 1))-96 0680 ENDIF 0690 PLACERE=(FALSE=(PLACERING$="RE" OR PLACERING$="QT")) 0700 UNTIL TRUE=(I>0 AND I┆
0x19a000…19a200 (136, 1, 5) UnusedSector ┆<9 AND J>0 AND J<9) OR PLACERE=FALSE 0710 IF PLACERE=FALSE THEN EXIT 0720 I=I+1; J=J+1; OKAY=FALSE 0730 IF BRÆT(I,J)<>TOM THEN 0740 PRINT "OCCUPIED FIELD !" 0750 ELSE 0760 EXEC OMLIGGENDE(I,J,RCVÆRDI) 0770 IF MULIG=FALSE THEN 0780 PRINT "????" 0790 ELSE 0800 EXEC OPTÆL(I,J,0,RCVÆRDI,MDVÆRDI) 0810 IF VENDBARE=FALSE THEN 0820 PRINT "NO ONE CAN BE TURNED !" 0830 ELSE *NOGEN KAN VENDES** 0840 ┆
0x19a200…19a400 (136, 1, 6) UnusedSector ┆ EXEC CURSOR(1,14,7) 0850 PRINT "YOU GOT"; VENDBARE; 0860 IF VENDBARE=1 THEN 0870 PRINT "PIECE" 0880 ELSE 0890 PRINT "PIECES." 0900 ENDIF 0910 AFSTÅET=0; OKAY=TRUE; BMD=BMD+VENDBARE+1; BRC=BRC-VENDBARE 0920 PLACEREDE=PLACEREDE+1; VERTI(I)=VERTI(I)+1; HORIZ(J)=HORIZ(J)+1 0930 EXEC OPTÆL(I,J,1,RCVÆRDI,MDVÆRDI) 0940 ENDIF 0950 ENDIF 0960 ENDIF 0970 UNTIL OKAY=T┆
0x19a400…19a600 (136, 1, 7) UnusedSector ┆RUE 0980 ENDPROC MDBRIKPLACERING 0990 REM //----------// 1000 PROC RCBRIKPLACERING 1010 IF AFSTÅET=2 OR PLACERING$="QT" THEN EXIT 1020 I,J=1 1030 REPEAT ** FIND THE TESTFIELDS LOWER LIMITS ** 1040 I=I+(VERTI(I)=0); J=J+(HORIZ(J)=0) 1050 UNTIL VERTI(I)<>0 AND HORIZ(J)<>0 1060 VI=I-1; VJ=J-1; I,J=10 1070 REPEAT ** FIND THE TESTFIELDS UPPER LIMITS ** 1080 I=I-(VERTI(I)=0); J=J-(HORIZ(J)=0) 1090 UNTIL VERTI(I)<>0 AND HORIZ(J)<>0 1100 WI=I+1; WJ=J+1; VI=VI+(VI=1┆
0x19a600…19a800 (136, 1, 8) UnusedSector ┆); VJ=VJ+(VJ=1) 1110 WI=WI-(WI=10); WJ=WJ-(WJ=10); MAX=-1 1120 FOR I=VI TO WI 1130 FOR J=VJ TO WJ 1140 IF BRÆT(I,J)=TOM THEN 1150 EXEC OMLIGGENDE(I,J,MDVÆRDI) 1160 IF MULIG=TRUE THEN 1170 EXEC OPTÆL(I,J,0,MDVÆRDI,RCVÆRDI) 1180 IF VENDBARE>0 THEN 1190 IF 0=((I-2)*(I-9)) THEN VENDBARE=VENDBARE+2 1200 IF 0=((J-2)*(J-9)) THEN VENDBARE=VENDBARE+2 1210 IF VENDBARE=>MAX THEN 1220 IF VENDB┆
0x19a800…19aa00 (136, 1, 9) UnusedSector ┆ARE=MAX THEN R=RND(0) 1230 IF R<.5 OR VENDBARE>MAX THEN MAX=VENDBARE; MI=I; MJ=J 1240 ENDIF ** BETTER POSITION ** 1250 ENDIF ** PIECES CAN BE TURNED ** 1260 ENDIF ** POSSIBLE POSITION OF PIECE ** 1270 ENDIF ** ATTEMPTFIELD = ZERO ** 1280 NEXT J 1290 NEXT I 1300 IF MAX<0 THEN 1310 EXEC CURSOR(1,10,7) 1320 PRINT "RC700 WAIVES IT'S CLAIM !" 1330 PRINT "YOUR TURN" 1340 AFSTÅET=AFSTÅET+1 1350 ELSE ** PIECES CAN┆
0x19aa00…19ac00 (136, 1, 10) UnusedSector ┆ BE TURNED ** 1360 EXEC CURSOR(1,10,7) 1370 PRINT "RC700 : ",CHR(MI+95); CHR(MJ+47) 1380 EXEC OPTÆL(MI,MJ,1,MDVÆRDI,RCVÆRDI) 1390 PLACEREDE=PLACEREDE+1; BRC=BRC+VENDBARE+1; BMD=BMD-VENDBARE 1400 VERTI(MI)=VERTI(MI)+1; HORIZ(MJ)=HORIZ(MJ)+1; AFSTÅET=0 1410 EXEC CURSOR(1,15,7) 1420 PRINT "RC700 GOT"; VENDBARE; 1430 IF VENDBARE=1 THEN 1440 PRINT "PIECE." 1450 ELSE 1460 PRINT "PIECES." 1470 ENDIF 1480 REM 1490 ENDIF 15┆
0x19ac00…19ae00 (136, 1, 11) UnusedSector ┆00 ENDPROC RCBRIKPLACERING 1510 REM //----------// 1520 PROC SLUT 1530 EXEC CURSOR(1,21,31) 1540 EXEC CURSOR(1,19,7) 1550 PRINT "YOU HAVE"; BMD; "PIECES." 1560 PRINT "RC700 HAS"; BRC; "PIECES." 1570 PRINT 1580 IF BRC=BMD THEN PRINT "TIE !" 1590 IF BRC>BMD THEN PRINT " I GOT YOU !" 1600 IF BRC<BMD THEN PRINT " THERE YOU GO ! (LUCKY ?)" 1610 ENDPROC SLUT 1620 REM //----------// 1630 PROC OPTÆL(IP,JP,VEND,MODSTBRIK,EGENBRIK) 1640 VENDBARE=0 1650 FOR RETNING┆
0x19ae00…19b000 (136, 1, 12) UnusedSector ┆=1 TO 8 1660 KX=X(RETNING); KY=Y(RETNING); N=IP+KX; M=JP+KY; DELVEND=0 1670 IF BRÆT(N,M)=MODSTBRIK THEN 1680 REPEAT ** SEEK YOUR OWN PIECE OR EMPTY BEHIND ADVERSERY. ** 1690 DELVEND=DELVEND+1; N=N+KX; M=M+KY 1700 UNTIL BRÆT(N,M)=0 OR BRÆT(N,M)=EGENBRIK 1710 IF BRÆT(N,M)=EGENBRIK THEN 1720 VENDBARE=VENDBARE+DELVEND 1730 IF VEND=1 THEN 1740 N=IP-KX; M=JP-KY 1750 FOR P=0 TO DELVEND 1760 N=N+KX; M=M+KY; BR┆
0x19b000…19b200 (137, 0, 1) UnusedSector ┆ÆT(N,M)=EGENBRIK 1770 EXEC BRIKPRINT(N,M) 1780 NEXT P 1790 ENDIF ** ONE ROW TURNED ** 1800 ENDIF ** OWN PIECE BEHIND ADVERSERY. ** 1810 ENDIF ** ADVERSERY NEXT TO RC-PIECE ** 1820 NEXT RETNING 1830 ENDPROC OPTÆL 1840 REM //----------// 1850 PROC OMLIGGENDE(Æ,Ø,TEST) 1860 FOR Z=1 TO 8 1870 IF BRÆT(Æ+X(Z),Ø+Y(Z))=TEST THEN EXIT 1880 NEXT Z 1890 MULIG=(Z<9) 1900 ENDPROC OMLIGGENDE 1910 REM //----------// 1920 PROC BRIKPRINT(C,┆
0x19b200…19b400 (137, 0, 2) UnusedSector ┆D) 1930 EXEC CURSOR(C*4+30,D*2,ORD(T$(BRÆT(C,D)+1 : 1))) 1940 ENDPROC BRIKPRINT 1950 REM //----------// 1960 PROC CURSOR(UD,NE,TS) 1970 PRINT CHR(6); CHR(95+UD-(UD>32)*64-(UD>64)*64); CHR(NE+95); CHR(TS) 1980 ENDPROC CURSOR 1990 REM //----------// 2000 PROC KANT 2010 PRINT CHR(29) 2020 EXEC BOGSTAVER 2030 FOR I=1 TO 8 2040 PRINT TAB(32); CHR(132); ",,N,,,N,,,N,,,N,,,N,,,N,,,N,,,N,,,N,,"; 2050 PRINT CHR(128) 2060 PRINT TAB(33); CHR(48+I); CHR(132); "J"; 2┆
0x19b400…19b600 (137, 0, 3) Index {count=0x0001, a000=Slice {count=0x0029, sector=0x0cdb}}
0x19b600…19b800 (137, 0, 4) DataSector[»MUSIL«]
[…0x28…]
0x1a0800…1a0820 (138, 1, 9) CatEnt {name=»DSTAT«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0002, idxblk=0x0eba, alloc=0x0005, w10=0x0178, w11=0x0002, w12=0x2053, w13=0x0000, w14=0x0000, w15=0x0000}
0x1a0820…1a0840 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0xe…]
0x1a0a00…1a0a20 (138, 1, 10) CatEnt {name=»FFT1«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x000a, idxblk=0x104c, alloc=0x000b, w10=0x0056, w11=0x000a, w12=0x2053, w13=0x0000, w14=0x0000, w15=0x0000}
0x1a0a20…1a0a40 CatEnt {name=»OKTAL«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0002, idxblk=0x08fc, alloc=0x0005, w10=0x005e, w11=0x0002, w12=0x2053, w13=0x0000, w14=0x0000, w15=0x0000}
0x1a0a40…1a0a60 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0x1d…]
0x1a0e00…1a0e20 (138, 1, 12) CatEnt {name=»KREIS«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0002, idxblk=0x0a70, alloc=0x0005, w10=0x019e, w11=0x0002, w12=0x2053, w13=0x0000, w14=0x0000, w15=0x0000}
0x1a0e20…1a0e40 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0xe…]
0x1a1000…1a1020 (139, 0, 1) CatEnt {name=»L9«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0002, idxblk=0x1046, alloc=0x0005, w10=0x00ca, w11=0x0002, w12=0x2053, w13=0x0000, w14=0x0000, w15=0x0000}
0x1a1020…1a1040 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0x2e…]
0x1a1600…1a1620 (139, 0, 4) CatEnt {name=»SYS«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x8010, length=0x0017, idxblk=0x0aa0, alloc=0x0017, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x1a1620…1a1640 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0x4e…]
0x1a2000…1a2200 (139, 0, 9) UnusedSector ┆070 FOR J=1 TO 8 2080 PRINT " J"; 2090 NEXT J 2100 PRINT CHR(128); CHR(48+I) 2110 NEXT I 2120 PRINT TAB(32); CHR(132); ",,N,,,N,,,N,,,N,,,N,,,N,,,N,,,N,,,N,,"; 2130 PRINT CHR(128) 2140 EXEC BOGSTAVER 2150 ENDPROC KANT 2160 REM //----------// 2170 PROC BOGSTAVER 2180 PRINT TAB(34); 2190 FOR I=1 TO 8 2200 PRINT CHR(132); "J"; CHR(128); CHR(96+I); 2210 NEXT I 2220 PRINT CHR(132); "J"; CHR(128) 2230 ENDPROC BOGSTAVER 2240 PROC SLUTTE ┆
0x1a2200…1a2400 (139, 0, 10) UnusedSector ┆ 2250 ON ESC EXEC SLUTTE 2260 CHAIN "MENUE" 2270 ENDPROC "J"; CHR(128) 2230 ENDPROC BOGSTAVER 2240 PROC SLUTTE 0010 ON ESC CHAIN "MENUE" 0020 RANDOMIZE 0030 REM (* THIS PROGRAM CAN PLAY MASTERMIND *) 0040 REM (* PROGRAMMER: OLE PLANNTHIN *) 0050 REM (* WRITTEN 08.10.80 *) 0060 DIM OPLÆG(6),FORS(6),ANVOPL(6),ANVFOR(6) 0070 DIM SVAR$(3),G$(6) 0080 REPEAT 0090 PRINT CHR(12) 0100 PRINT "THIS PROGRAM CAN PLAY MASTERMIND!" 0110 PRINT " " ┆
0x1a2400…1a2600 (139, 0, 11) UnusedSector ┆N 0210 PRINT CHR(7); TAB(LEN(TEXT$)+2); CHR(26); 0220 ENDIF 0230 UNTIL SVAR$="YES" OR SVAR$="NO" 0240 IF SVAR$="YES" THEN 0250 GET F,JA : TEXT$,JA,NEJ 0260 ELSE 0270 GET F,NEJ : TEXT$,JA,NEJ 0280 ENDIF 0290 LET LÆNGDE=LEN(TEXT$) 0300 IF JA=0 THEN PRINT CHR(10); CHR(10) 0310 PRINT TEXT$ 0320 TÆLLER=TÆLLER+1 0330 ENDWHILE 0340 PRINT 0350 IF TEXT$(1 : 1)<>"D" THEN 0360 PRINT 0370 PRINT 0380 ┆
0x1a2600…1a2800 (139, 0, 12) UnusedSector ┆ PRINT "THAT WAS DONE BY THE RC-700 ON THE"; TÆLLER-2; ". QUESTION !!" 0390 ENDIF 0400 PRINT 0410 REPEAT 0420 INPUT "WOULD YOU LIKE TO TRY AGAIN? : ",SVAR$ 0430 IF SVAR$="YES" THEN SVAR$="YES" 0440 IF SVAR$="NO" THEN SVAR$="NO" 0450 UNTIL SVAR$="YES" OR SVAR$="NO" 0460 UNTIL SVAR$="NO" 0470 PRINT "" 0480 PRINT " THAT WAS THE END OF 'COUNTRY' !!" 0490 PRINT " ================================" 0500 PRINT "" 0510 CLOSE F 0520 CHAIN "MENUE" 0530 PROC XY(XADR┆
0x1a2800…1a2a00 (139, 1, 1) UnusedSector ┆,YADR) 0540 PRINT CHR(6); CHR(95+XADR-(XADR>32)*64-(XADR>64)*64); CHR(95+YADR); 0550 ENDPROC ┆
0x1a2a00…1a2c00 (139, 1, 2) UnusedSector ┆ ! A ) 1 0 8 D % $ % 8 8AC T 8 S IKLLB D $$% 8SAAP q OCSP 8 8 : H H dN 8 8 8 8 bs D $ $R9 9 D $$) H 9 :X9t>"9 $E $$I $!9 X9X9 : z5 5 5 5 5 5 $I$I$I a/9 5 5R6 6 6 6X')(H(k( ( (-)_) $I$I$I @=9x) ) ) ) ) )7*J*a* * $I$I I K9å + +,+O+`+a+a+b+c+ O D $ $ Y9 1P " A " A ) 1 P g9 D D L g9 l9TT Y 8q9 r s L $ $ qu9.s Ls ** *┆
0x1a2c00…1a2e00 (139, 1, 3) Index {count=0x0001, a000=Slice {count=0x0011, sector=0x0d17}}
0x1a2e00…1a3000 (139, 1, 4) DataSector[»PIDEN«]
[…0x10…]
0x1a5000…1a5200 (140, 0, 9) UnusedSector ┆ ) ┆
0x1a5200…1a5400 (140, 0, 10) UnusedSector ┆^ REM // PROGRAM : LÆSNING I EN DATAFIL ***** 0030 DIM BUF$(128),NAVN$(10) 0040 PRINT CHR(12) 0050 INPUT "HVAD ER DATAL NAVN ? :",NAVN$ 0060 OPEN NAVN$,FV,BUF$,10 0070 FOR X=1 TO 200 0080 GET FV,X : X 0110 CLOSE FV 0120 STOP // HER SLUTTER PROGRAMMET // ┆
0x1a5400…1a5600 (140, 0, 11) UnusedSector ┆ : :' _<$9<<X9 ! A % ) 5 D $ $BV : U % EV - I E ) I D $ $ :Z Y X ) I ! EE O) = D $ $07 :L1 ! A ! A 1N( % h - D $ $ ; U J` JK( Å .! D $ $ ; B*! B*! B)! BP BQ B&! B D $ $ &; J * J * J * J " D $ $ 4; B ) 6 ) 2% E0 D ( $ B; TT Y ' $9 Y Q " B D $ $ P; " A ! B * T0 P C D $ $ D^; C A 1 " C D $ $ Vl; ! A A = D $ $I z; =┆
0x1a5600…1a5800 (140, 0, 12) UnusedSector ┆ O( B YT D $ $ ; R 9 ! ) M 0V 9 Z Æ Æ D $ $ ! ; S C Æ KrY 012lQq9j) D $ $ F ; o) n!K f!bAc!hA Sm! C D $ $ Æ ;Q b Z9J 00Z9*TI D $ $ ;Q!QAZ! RX! BP B S O! D $ $ e ; J J@! BJ) 9 C1 D $ $g ; A)88 B e g )Q 8 D $ $ 4 ; Z " )S ` @ R ( ` D $ $ ;3)=5 > (81 9 T A D $ $ , < * 8 E H % < u> B7@7C7 < L $ D "<Hx EG TOCSP┆
0x1a5800…1a5a00 (140, 1, 1) UnusedSector ┆ P 0 *,< `x D"% %L00<EG TOCSP P * :8<OCSP P : B D $ $_ >< 1 9 K 0 D $ $ ;L< ) ) ü 1 M M ) D D $ 3Z< U 8 L$TP PL T D ( $ h< ' ' D üv< P E $ $WE < ' P$RT TP D % $ ; < R ' ' D ^ < < E $ $;E < ' P$PT TP D % $ = < P ' ' D q^ < < E $ $2 < ' M$DC R CM D┆
0x1a5a00…1a5c00 (140, 1, 2) UnusedSector ┆ % $jI <RD ' ' D ^ < E $ $ b < & C$RD DC D % $ ; = R ' ' D ^ = P E $ $ @ = & T$YT TT D % $j4*= Y ' ' D Å8= E $ $ C= ' T$YT 1 TT D % $ 4Q=1Y ' ' D Å_= < E $ $ Ej= ' S$ P PS D % $ x= ' ' D Å = P E $ $ s = ' ┆
0x1a5c00…1a5e00 (140, 1, 3) UnusedSector ┆ / ┆
0x1a5e00…1a6000 (140, 1, 4) UnusedSector ┆ 0010 DIM TEXT$(60),BUF$(128),SVAR$(3) 0020 PRINT CHR(12) 0030 EXEC XY(25,12) 0040 PRINT "THINK OF AN INDEPENDANT NATION !" 0050 EXEC XY(50,22) 0060 INPUT "TYPE 'RETURN' WHEN READY",TEXT$ 0070 OPEN "GEODATA",F,BUF$,68 0080 REPEAT 0090 PRINT CHR(12) 0100 TÆLLER=2 0110 GET F,1 : TEXT$,JA,NEJ 0120 LET LÆNGDE=LEN(TEXT$) 0130 PRINT TEXT$ 0140 WHILE JA<>0 DO 0150 EXEC XY(LÆNGDE+2,TÆLLER) 0160 REPEAT 0165 PRINT CHR(31); 0170 INPUT SVAR$ 0180 ┆
0x1a6000…1a6200 (140, 1, 5) UnusedSector ┆ IF SVAR$="YES" THEN SVAR$="YES" 0190 IF SVAR$="NO" THEN SVAR$="NO" 0200 IF SVAR$<>"YES" AND SVAR$<>"NO" THEN 0210 PRINT CHR(7); TAB(LEN(TEXT$)+2); CHR(26); 0220 ENDIF 0230 UNTIL SVAR$="YES" OR SVAR$="NO" 0240 IF SVAR$="YES" THEN 0250 GET F,JA : TEXT$,JA,NEJ 0260 ELSE 0270 GET F,NEJ : TEXT$,JA,NEJ 0280 ENDIF 0290 LET LÆNGDE=LEN(TEXT$) 0300 IF JA=0 THEN PRINT CHR(10); CHR(10) 0310 PRINT TEXT$ 0320 TÆLL┆
0x1a6200…1a6400 (140, 1, 6) UnusedSector ┆ER=TÆLLER+1 0330 ENDWHILE 0340 PRINT 0350 IF TEXT$(1 : 1)<>"D" THEN 0360 PRINT 0370 PRINT 0380 PRINT "THAT WAS DONE BY THE RC-700 ON THE"; TÆLLER-2; ". QUESTION !!" 0390 ENDIF 0400 PRINT 0410 REPEAT 0420 INPUT "WOULD YOU LIKE TO TRY AGAIN? : ",SVAR$ 0430 IF SVAR$="YES" THEN SVAR$="YES" 0440 IF SVAR$="NO" THEN SVAR$="NO" 0450 UNTIL SVAR$="YES" OR SVAR$="NO" 0460 UNTIL SVAR$="NO" 0470 PRINT "" 0480 PRINT " THAT WAS THE END OF 'COUNT┆
0x1a6400…1a6600 (140, 1, 7) UnusedSector ┆RY' !!" 0490 PRINT " ================================" 0500 PRINT "" 0510 CLOSE F 0520 CHAIN "MENUE" 0530 PROC XY(XADR,YADR) 0540 PRINT CHR(6); CHR(95+XADR-(XADR>32)*64-(XADR>64)*64); CHR(95+YADR); 0550 ENDPROC ENUE" 0530 PROC XY(XADR 0010 ON ESC EXEC SLUT 0020 DIM SVAR$(5) 0030 REPEAT 0040 PRINT CHR(12) 0050 EXEC XY(24,12) 0060 INPUT "INSTRUCTIONS NEEDED (YES/NO) ? ",SVAR$ 0070 IF SVAR$="YES" OR SVAR$="YES" THEN EXEC INST 0080 UNTIL SVAR$="YES" OR SVAR$="YES" OR┆
0x1a6600…1a6800 (140, 1, 8) UnusedSector ┆IPTION MODULE /NOTE /NOTE ********************** SW 3102-1 RC BASIC COMAL PACKAGE ********************** MONITOR AND OPERATING SYSTEM MODULES /PROGRAM ZTEMP COPS ZTEMP RC BASIC/COMAL REV 02.XX APAR APAR APAR RCSL: 43-GL10149 PARAMETER MODULE (ASCII) BTEMP BPAR BTEMP PARAMETER MODULE (BINARY) CMB00 CMB00 CMB00 RCSL: 43-GL1540 BASIC CORUTINE MONITOR /NOTE DRIVER MODULES /PROGRAM /NOTE COMMAND FILES /PROGRAM /COMMAND ┆
0x1a6800…1a6a00 (140, 1, 9) DataSector[»YDBX3«]
[…0x11…]
0x1a8c00…1a8e00 (141, 1, 3) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x0d47}}
0x1a8e00…1a9000 (141, 1, 4) DataSector[»LOGON«]
[…0x4…]
0x1a9800…1a9a00 (141, 1, 9) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x0d4d}}
0x1a9a00…1a9c00 (141, 1, 10) DataSector[»TIMEX«]
[…0x4…]
0x1aa400…1aa600 (142, 0, 3) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x0d53}}
0x1aa600…1aa800 (142, 0, 4) DataSector[»MENUE«]
[…0x4…]
0x1ab000…1ab200 (142, 0, 9) UnusedSector ┆ Y ┆
0x1ab200…1ab400 (142, 0, 10) UnusedSector ┆B13 B18 x B22 B23 " # B25 ^ # B29 B38 B40 B42 B51 B57 p B58 v B59 ø B60 B61 B62 ┆
0x1ab400…1ab600 (142, 0, 11) UnusedSector ┆B63 B66 B67 B68 B7 . B8 BACH BAPAR Z BARN * BASGE 3 5 BASIC V BASIN b BB5 BIPAR * BTEMP BTF 2 ┆
0x1ab600…1ab800 (142, 0, 12) UnusedSector ┆ 0 0 D +0 0! 0 D 66 B67 B68 B7 . B8 BACH BAPAR Z BARN * BASGE 3 5 BASIC V BASIN b BB5 BIPAR * BTEMP BTF 2 ┆
0x1ab800…1aba00 (142, 1, 1) UnusedSector ┆EBMAT EBTEM EXEC EZTEM _ _ FDB FL0 FLOCO FM0 0 GDATA : ; GENOD GENOM GENOR I @ INT ITEST , KB002 ┆
0x1aba00…1abc00 (142, 1, 2) UnusedSector ┆LIBE P LINK $ ) MAST1 MCPAR N MSN32 z MT MTSTP MUI12 ü MUM MUPAR 0 MUSIK MUSIL ) ) MUU N1234 " # NBCAL < NBMAT ┆
0x1abc00…1abe00 (142, 1, 3) DataSector[»GDATA«]
[…0x5…]
0x1ac800…1aca00 (142, 1, 9) Index {count=0x0001, a000=Slice {count=0x000b, sector=0x0d65}}
0x1aca00…1acc00 (142, 1, 10) DataSector[»MASTM«]
[…0xa…]
0x1ae000…1ae200 (143, 0, 9) DataSector[»YDBX3«]
[…0x5…]
0x1aec00…1aee00 (143, 1, 3) Index {count=0x0001, a000=Slice {count=0x000b, sector=0x0d77}}
0x1aee00…1af000 (143, 1, 4) DataSector[»R«]
[…0xa…]
0x1b0400…1b0600 (144, 0, 3) Index {count=0x0001, a000=Slice {count=0x000b, sector=0x0d83}}
0x1b0600…1b0800 (144, 0, 4) DataSector[»SIZE«]
[…0xa…]
0x1b1c00…1b1e00 (144, 1, 3) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x0d8f}}
0x1b1e00…1b2000 (144, 1, 4) DataSector[»LOGOF«]
[…0x4…]
0x1b2800…1b2a00 (144, 1, 9) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x0d95}}
0x1b2a00…1b2c00 (144, 1, 10) DataSector[»RBBA1«]
[…0x4…]
0x1b3400…1b3600 (145, 0, 3) Index {count=0x0001, a000=Slice {count=0x0011, sector=0x0d9b}}
0x1b3600…1b3800 (145, 0, 4) DataSector[»EBMAT«]
[…0x10…]
0x1b5800…1b5a00 (145, 1, 9) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x0dad}}
0x1b5a00…1b5c00 (145, 1, 10) DataSector[»EBPRU«]
[…0x4…]
0x1b6400…1b6600 (146, 0, 3) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x0db3}}
0x1b6600…1b6800 (146, 0, 4) DataSector[»EBCAL«]
[…0x4…]
0x1b7000…1b7200 (146, 0, 9) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x0db9}}
0x1b7200…1b7400 (146, 0, 10) DataSector[»MENUE«]
[…0x4…]
0x1b7c00…1b7e00 (146, 1, 3) Index {count=0x0003, a000=Slice {count=0x0005, sector=0x0dbf}, a001=Slice {count=0x0006, sector=0x0e0c}, a002=Slice {count=0x0006, sector=0x0e60}}
0x1b7e00…1b8000 (146, 1, 4) DataSector[»XANDO«]
[…0x4…]
0x1b8800…1b8a00 (146, 1, 9) Index {count=0x0001, a000=Slice {count=0x0041, sector=0x0dc5}}
0x1b8a00…1b8c00 (146, 1, 10) DataSector[»TDISC«]
[…0x40…]
0x1c0c00…1c0e00 (149, 1, 3) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x0e07}}
0x1c0e00…1c1000 (149, 1, 4) DataSector[»KB001«]
[…0x4…]
0x1c1800…1c1a00 (149, 1, 9) DataSector[»XANDO«]
[…0x5…]
0x1c2400…1c2600 (150, 0, 3) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x0e13}}
0x1c2600…1c2800 (150, 0, 4) DataSector[»KB002«]
[…0x4…]
0x1c3000…1c3200 (150, 0, 9) Index {count=0x0001, a000=Slice {count=0x0011, sector=0x0e19}}
0x1c3200…1c3400 (150, 0, 10) DataSector[»NBMAT«]
[…0x10…]
0x1c5400…1c5600 (151, 0, 3) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x0e2b}}
0x1c5600…1c5800 (151, 0, 4) DataSector[»NBPRU«]
[…0x4…]
0x1c6000…1c6200 (151, 0, 9) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x0e31}}
0x1c6200…1c6400 (151, 0, 10) DataSector[»R2«]
[…0x4…]
0x1c6c00…1c6e00 (151, 1, 3) Index {count=0x0001, a000=Slice {count=0x0011, sector=0x0e37}}
0x1c6e00…1c7000 (151, 1, 4) DataSector[»R235«]
[…0x10…]
0x1c9000…1c9200 (152, 0, 9) Index {count=0x0001, a000=Slice {count=0x0011, sector=0x0e49}}
0x1c9200…1c9400 (152, 0, 10) DataSector[»R35«]
[…0x10…]
0x1cb400…1cb600 (153, 0, 3) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x0e5b}}
0x1cb600…1cb800 (153, 0, 4) DataSector[»R5«]
[…0x4…]
0x1cc000…1cc200 (153, 0, 9) DataSector[»XANDO«]
[…0x5…]
0x1ccc00…1ccc20 (153, 1, 3) CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0xf…]
0x1cce00…1cce20 (153, 1, 4) CatEnt {name=»KURS«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0002, idxblk=0x09ec, alloc=0x0005, w10=0x001e, w11=0x0002, w12=0x2053, w13=0x0000, w14=0x0000, w15=0x0000}
0x1cce20…1cce40 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0x2e…]
0x1cd400…1cd420 (153, 1, 7) CatEnt {name=»MENUE«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0002, idxblk=0x0f98, alloc=0x0005, w10=0x01b8, w11=0x0002, w12=0x2053, w13=0x0000, w14=0x0000, w15=0x0000}
0x1cd420…1cd440 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0xe…]
0x1cd600…1cd620 (153, 1, 8) CatEnt {name=»MATH«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x2053, w13=0x0000, w14=0x0000, w15=0x0000}
0x1cd620…1cd640 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0xe…]
0x1cd800…1cda00 (153, 1, 9) Index {count=0x0001, a000=Slice {count=0x000b, sector=0x0e6d}}
0x1cda00…1cdc00 (153, 1, 10) DataSector[»WTST1«]
[…0xa…]
0x1cf000…1cf200 (154, 0, 9) UnusedSector ┆ y ┆
0x1cf200…1cf400 (154, 0, 10) UnusedSector ┆ 0010 ON ESC CHAIN "MENUE" 0020 REM RUMKRIG, FGK 28/12/80. 0030 REM EFTER COMPUTING TODAY, OKT 1980. 0040 DIM SVAR$(3),KOM$(1),SKIB$(1),PARTI$(4),TYPE$(18) 0050 DIM X(20),Y(20),G(20),E(20),B(20),SLAGM$(31,33) 0060 RANDOMIZE 0070 DEF FNR(Z5)=INT(Z5*RND(0)) 0080 REPEAT 0090 REPEAT 0100 PRINT CHR(12); "WOULD YOU LIKE TO SEE THE RULES (YES/NO) : "; 0110 INPUT SVAR$ 0120 IF SVAR$="Y" OR SVAR$="YES" OR SVAR$="Y" THEN SVAR$="YES" 0130 IF SVAR$="N" OR SVAR$="NO" OR SVAR┆
0x1cf400…1cf600 (154, 0, 11) UnusedSector ┆$="N" THEN SVAR$="NO" 0140 UNTIL SVAR$="YES" OR SVAR$="NO" 0150 IF SVAR$="YES" THEN EXEC REGLER 0160 PRINT CHR(12) 0170 EXEC START 0180 EXEC DISPLAY 0190 REPEAT 0200 EXEC AFVIKLING 0210 UNTIL W9=0 OR B9=0 0220 REPEAT 0230 INPUT "NEW ROUND (YES/NO) : ",SVAR$ 0240 IF SVAR$="Y" OR SVAR$="Y" OR SVAR$="YES" THEN SVAR$="YES" 0250 IF SVAR$="N" OR SVAR$="N" OR SVAR$="NO" THEN SVAR$="NO" 0260 UNTIL SVAR$="YES" OR SVAR$="NO" 0270 UNTIL SVAR$="NO" 0280 ┆
0x1cf600…1cf800 (154, 0, 12) UnusedSector ┆END RUMKRIG 0290 REM //----------// 0300 PROC START 0310 TYPE$="ABCD><123WXYZ*#789"; TRUE=1; FALSE=0 0320 N=18; B9,W9=N/2; W=INT(RND(0)*2) 0330 SLAGM$(1)="000000000000000000000000000000000" 0340 FOR I=1 TO 31 0350 SLAGM$(I)=SLAGM$(1) 0360 NEXT I 0370 FOR I=1 TO INT(N/2) 0380 REPEAT 0390 X(I)=R(10-I+4); G(I)=1 0400 Y(I)=R(10-I+4); E(I)=500; B(I)=0 0410 UNTIL SLAGM$(X(I)+1,Y(I)+2 : 1)="0" 0420 EXEC SMARK(X(I),Y(I),1) 0430 IF I>4 THEN E┆
0x1cf800…1cfa00 (154, 1, 1) UnusedSector ┆(I)=300 0440 IF I>6 THEN B(I)=3 0450 NEXT I 0460 FOR I=INT(N/2)+1 TO N 0470 REPEAT 0480 X(I)=R(I/2)+22; G(I)=1 0490 Y(I)=R(I/1.5)+I; E(I)=500; B(I)=0 0500 UNTIL SLAGM$(X(I)+1,Y(I)+2 : 1)="0" 0510 EXEC SMARK(X(I),Y(I),1) 0520 IF I>INT(N/2)+4 THEN E(I)=300 0530 IF I>INT(N/2)+6 THEN B(I)=3 0540 NEXT I 0550 ENDPROC START 0560 REM //----------// 0570 PROC DISPLAY 0580 EXEC RAMME 0590 FOR I=1 TO N 0600 IF G(I)<>0 THEN EXEC TEGN(I┆
0x1cfa00…1cfc00 (154, 1, 2) UnusedSector ┆,FALSE) 0610 NEXT I 0620 ENDPROC DISPLAY 0630 REM //----------// 0640 PROC AFVIKLING 0650 REPEAT 0660 IF W=1 THEN 0670 PARTI$="WHITE"; P=1; Q=INT(N/2) 0680 ELSE 0690 PARTI$="BLACK"; P=INT(N/2)+1; Q=N 0700 ENDIF 0710 EXEC CUR(1,20) 0720 PRINT CHR(31); PARTI$; 0730 INPUT "! WHICH SPACECRAFT : ",KOM$ 0740 B1=0 0750 FOR I=P TO Q 0760 IF TYPE$(I : 1)=KOM$ AND G(I)=1 THEN A=I; B1=1 0770 NEXT I 0780 UNTIL B1=1 07┆
0x1cfc00…1cfe00 (154, 1, 3) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x0e7f}}
0x1cfe00…1d0000 (154, 1, 4) DataSector[»MUI12«]
[…0x4…]
0x1d0800…1d0a00 (154, 1, 9) UnusedSector ┆90 INPUT "COMMAND : ",KOM$ 0800 IF KOM$="M" OR KOM$="M" THEN EXEC FLYTTE 0810 IF KOM$="R" OR KOM$="R" THEN 0820 EXEC REGLER 0830 W=1-(W=1) 0840 EXEC DISPLAY 0850 ENDIF 0860 IF KOM$="L" OR KOM$="L" THEN EXEC LASER 0870 IF KOM$="S" OR KOM$="S" THEN EXEC STATUS 0880 IF KOM$="B" OR KOM$="B" THEN EXEC BOMBE 0890 IF W9=0 OR B9=0 THEN EXEC SEJR 0900 W=1-(W=1) 0910 ENDPROC AFVIKLING 0920 REM //----------// 0930 PROC FLYTTE 0940 FOR D1=1 TO 2 0950 ┆
0x1d0a00…1d0c00 (154, 1, 10) UnusedSector ┆ IF D1=1 THEN 0960 EXEC FLYT1 0970 ELSE 0980 IF W9*B9<>0 THEN 0990 REPEAT 1000 EXEC CUR(1,20) 1010 PRINT CHR(31); 1020 INPUT "DO YOU WISH TO MOVE ANOTHER SPACECRAFT (YES/NO) : ",SVAR$ 1030 IF SVAR$="Y" OR SVAR$="Y" OR SVAR$="YES" THEN SVAR$="YES" 1040 IF SVAR$="N" OR SVAR$="N" OR SVAR$="NO" THEN SVAR$="NO" 1050 UNTIL SVAR$="YES" OR SVAR$="NO" 1060 IF SVAR$="YES" THEN EXEC FLYT2 1070 E┆
0x1d0c00…1d0e00 (154, 1, 11) UnusedSector ┆NDIF 1080 ENDIF 1090 NEXT D1 1100 ENDPROC FLYTTE 1110 REM //----------// 1120 PROC FLYT1 1130 REPEAT 1140 VIDERE=FALSE 1150 EXEC CUR(1,21) 1160 INPUT "VECTORS (X Y) : ",S1,S2 1170 R1=SQR(S1*S1+S2*S2); B1=6 1180 IF A<P+6 THEN B1=10 1190 IF A<P+4 THEN B1=8 1200 IF R1>B1 THEN 1210 EXEC CUR(1,22) 1220 PRINT CHR(31); 1230 PRINT "OUT OF REACH!" 1240 ELSE 1250 IF B1=10 THEN B1=20 1260 IF E(A)-R1*(18-B1┆
0x1d0e00…1d1000 (154, 1, 12) UnusedSector ┆)<=0 THEN 1270 PRINT "THE ENERGY IS ONLY"; E(A); "TERA-JOULES!" 1280 ELSE 1290 VIDERE=TRUE 1300 ENDIF 1310 ENDIF 1320 UNTIL VIDERE=TRUE 1330 EXEC VISKUD(A) 1340 X(A)=X(A)+S1; Y(A)=Y(A)+S2 1350 IF X(A)<0 OR X(A)>30 OR Y(A)<0 OR Y(A)>30 THEN 1360 EXEC CUR(50,20) 1370 PRINT TYPE$(A : 1); " IS LOST IN OUTER SPACE!" 1380 EXEC PAUSE 1390 G(A)=0; W9=W9-(W=1); B9=B9-(W=0) 1400 ELSE 1410 EXEC TEGN(A,TRUE) 1420 E(A┆
0x1d1000…1d1200 (155, 0, 1) UnusedSector ┆)=E(A)-R1*(21-B1) 1430 ENDIF 1440 ENDPROC FLYT1 1450 REM //----------// 1460 PROC FLYT2 1470 REPEAT 1480 B1=0 1490 EXEC CUR(1,20) 1500 PRINT CHR(31); 1510 INPUT "WHICH SPACECRAFT : ",SKIB$ 1520 FOR I=P TO Q 1530 IF TYPE$(I : 1)=SKIB$ AND G(I)=1 THEN B1=I; I=Q 1540 NEXT I 1550 UNTIL B1<>0 1560 IF B1=A THEN 1570 PRINT "THIS SPACECRAFT HAS JUST BEEN MOVED!" 1580 EXEC PAUSE 1590 ELSE 1600 A=B1 1610 EXEC FLYT1 16┆
0x1d1200…1d1400 (155, 0, 2) UnusedSector ┆20 ENDIF 1630 ENDPROC FLYT2 1640 REM //----------// 1650 PROC LASER 1660 IF A<P+6 THEN 1670 REPEAT 1680 REPEAT 1690 EXEC CUR(1,20) 1700 PRINT CHR(31); 1710 C=0 1720 INPUT "WHICH SPACECRAFT IS THE TARGET : ",SKIB$ 1730 FOR I=1 TO N 1740 IF TYPE$(I : 1)=SKIB$ AND G(I)=1 THEN C=I; I=N 1750 NEXT I 1760 UNTIL C>0 1770 UNTIL G(C)<>0 1780 R1=SQR((X(A)-X(C))*(X(A)-X(C))+(Y(A)-Y(C))*(Y(A)-Y(C)))┆
0x1d1400…1d1600 (155, 0, 3) UnusedSector ┆ 1790 IF R1>12 THEN 1800 PRINT "OUT OF REACH!" 1810 ELSE 1820 PRINT "DISTANCE"; R1; ". "; 1830 INPUT "LASER-ENERGY : ",P8 1840 IF E(A)-P8<0 THEN 1850 PRINT "THE AVAILABLE ENERGY IS ONLY"; E(A); "TERA-JOULES!" 1860 ELSE 1870 EXEC LASERRESULTAT 1880 ENDIF 1890 ENDIF 1900 ELSE 1910 PRINT "NO LASER ON FIGHTERS!" 1920 ENDIF 1930 EXEC PAUSE 1940 ENDPROC LASER 1950 REM //----------// 1960 PROC LAS┆
0x1d1600…1d1800 (155, 0, 4) UnusedSector ┆ERRESULTAT 1970 P7=(P8/((R1*.7)+.05))*(200/(E(C)+1)) 1980 E(A)=E(A)-P8; FTAB=TRUE 1990 IF R(P7)<17 THEN 2000 FTAB=FALSE 2010 PRINT "LASERBEAM DEFLECTED!" 2020 L=R(5*P8/((R1*.8)+.05))+INT(100/((R1*.5)+1)) 2030 PRINT "ENERGYLOSS FOR THE TARGET:"; L; "TERAJOULES!" 2040 E(C)=E(C)-L 2050 IF E(C)<=0 THEN FTAB=TRUE 2060 ENDIF 2070 IF FTAB=TRUE THEN EXEC TAB(C) 2080 ENDPROC LASERRESULTAT 2090 REM //----------// 2100 PROC STATUS 2110 PRINT CHR(12) ┆
0x1d1800…1d1a00 (155, 0, 5) UnusedSector ┆ 2120 PRINT " "; PARTI$; " FLEET STATUS." 2130 PRINT " "; "_______________________" 2140 PRINT 2150 PRINT "SPACECRAFT","POSITION","ENERGY","BOMBS" 2160 PRINT "__________","________","______","_____" 2170 PRINT 2180 FOR I=P TO Q 2190 IF I=P THEN PRINT "BATTLESHIP" 2200 IF I=P+4 THEN PRINT "CRUISER" 2210 IF I=P+6 THEN PRINT "FIGHTER" 2220 IF G(I)>0 THEN 2230 PRINT TYPE$(I : 1),X(I); Y(I),E(I),B(I) 2240 ELSE ┆
0x1d1a00…1d1c00 (155, 0, 6) UnusedSector ┆2250 PRINT TYPE$(I : 1); " DESTROYED!" 2260 ENDIF 2270 NEXT I 2280 PRINT 2290 PRINT 2300 EXEC PAUSE 2310 IF W9<>0 AND B9<>0 THEN 2320 EXEC DISPLAY 2330 ENDIF 2340 ENDPROC STATUS 2350 REM //----------// 2360 PROC BOMBE 2370 IF B(A)>0 THEN 2380 EXEC CUR(1,20) 2390 PRINT CHR(31); 2400 INPUT "TARGET AREA (X Y) : ",S1,S2 2410 R1=SQR((X(A)-S1)*(X(A)-S1)+(Y(A)-S2)*(Y(A)-S2)) 2420 IF R1=0 THEN R1=1E-10 2430 S1=S1-X(A); S2┆
0x1d1c00…1d1e00 (155, 0, 7) UnusedSector ┆=S2-Y(A) 2440 PRINT "ESTIMATED TIME TILL THE TARGET IS"; R1/2; "SEK." 2450 INPUT "TYPE FIRE TO FIRE THE BOMB : ",KOM$ 2460 IF KOM$="F" OR KOM$="F" THEN EXEC BFLUGT 2470 ELSE 2480 PRINT "NO BOMBS ON THE SPACECRAFT!" 2490 EXEC PAUSE 2500 ENDIF 2510 ENDPROC BOMBE 2520 REM //----------// 2530 PROC BFLUGT 2540 PRINT "TYPE D-KEY, TO DETONATE THE BOMB!" 2550 I=1 2560 REPEAT 2570 I=I+1 2580 IN 16,TAST 2590 UNTIL TAST=ORD("D") OR TAST=ORD("D"┆
0x1d1e00…1d2000 (155, 0, 8) UnusedSector ┆) 2600 R2=I/43 2610 S1=INT(S1*(R2/R1)); S2=INT(S2*(R2/R1)) 2620 S1=S1+X(A); S2=S2+Y(A); B(A)=B(A)-1 2630 EXEC CUR(1,21) 2640 PRINT CHR(31); 2650 PRINT "THE CENTER OF THE EXPLOSION IS :"; S1; S2; CHR(7) 2660 F=0 2670 FOR I=1 TO N 2680 IF G(I)<>0 THEN 2690 B1=SQR((X(I)-S1)*(X(I)-S1)+(Y(I)-S2)*(Y(I)-S2)) 2700 IF B1<=2.25 THEN 2710 F=1 2720 IF R(10*B1)>4.5 THEN 2730 EXEC CUR(50,20) 2740 PRINT "SPACECRAFT "; TYP┆
0x1d2000…1d2200 (155, 0, 9) UnusedSector ┆E$(I : 1); " IS IN FIRE!" 2750 L=R(225/(B1+.05)) 2760 EXEC CUR(50,21) 2770 PRINT "ENERGYLOSS ON"; L; "TERAJOULES!" 2780 EXEC PAUSE 2790 E(I)=E(I)-L 2800 IF E(I)<0 THEN EXEC TAB(I) 2810 ELSE 2820 EXEC TAB(I) 2830 ENDIF 2840 ENDIF 2850 ENDIF 2860 NEXT I 2870 IF F=0 THEN 2880 PRINT "NO SPACECRAFTS INSIDE THE REACH OF EXPLOSION !!!!" 2890 EXEC PAUSE 2900 ENDIF 291┆
0x1d2200…1d2400 (155, 0, 10) UnusedSector ┆0 ENDPROC BFLUGT 2920 REM //----------// 2930 PROC TAB(UD) 2940 EXEC CUR(1,1) 2950 PRINT CHR(130) 2960 FOR TTID=1 TO 300 2970 NEXT TTID 2980 EXEC CUR(1,1) 2990 PRINT CHR(128) 3000 EXEC CUR(50,20) 3010 PRINT "SPACECRAFT "; TYPE$(UD : 1); " IS DESTROYED !" 3020 EXEC CUR(50,21) 3030 PRINT CHR(30) 3040 G(UD)=0 3050 EXEC VISKUD(UD) 3060 IF UD>INT(N/2) THEN B9=B9-1 3070 IF UD<=INT(N/2) THEN W9=W9-1 3080 EXEC PAUSE 3090 ENDPROC TAB 3100 REM //----┆
0x1d2400…1d2600 (155, 0, 11) UnusedSector ┆------// 3110 PROC SEJR 3120 PRINT CHR(12) 3130 PARTI$="WHITE"; P=1; Q=INT(N/2) 3140 IF W9=0 THEN PARTI$="BLACK"; P=INT(N/2)+1; Q=N 3150 PRINT " VICTORY FOR "; PARTI$; "!" 3160 FOR I=1 TO 10 3170 PRINT CHR(7); 3180 NEXT I 3190 PRINT 3200 REPEAT 3210 INPUT "DO YOU WISH TO SEE YOUR STATUS (YES/NO) : ",SVAR$ 3220 IF SVAR$="Y" OR SVAR$="Y" OR SVAR$="YES" THEN SVAR$="YES" 3230 IF SVAR$="N" OR SVAR$="N" OR SVAR$="NO" THEN SVAR$="NO" 3240 UNTIL SVAR$┆
0x1d2600…1d2800 (155, 0, 12) UnusedSector ┆="YES" OR SVAR$="NO" 3250 IF SVAR$="YES" THEN EXEC STATUS 3260 ENDPROC SEJR 3270 REM //----------// 3280 PROC PAUSE 3290 EXEC CUR(60,23) 3300 PRINT CHR(134); 3310 PRINT "PRESS RETURN "; CHR(128); 3320 INPUT SVAR$ 3330 EXEC CUR(60,24) 3340 PRINT CHR(128); " " 3350 ENDPROC PAUSE 3360 REM //-----------// 3370 PROC SMARK(Æ9,Ø9,MÆRKE) 3380 FOR PLADSER=1 TO 3 3390 SLAGM$(Æ9+1,Ø9+PLADSER : 1)=CHR(48+MÆRKE) 3400 NEXT PLADSER 3410 ENDPROC SMARK┆
0x1d2800…1d2a00 (155, 1, 1) UnusedSector ┆ 3420 PROC RAMME 3430 PRINT CHR(12) 3440 EXEC CUR(1,1) 3450 PRINT " 0 2 4 6 8 10 12 14"; 3460 PRINT " 16 18 20 22 24 26 28 30" 3470 FOR J=0 TO 15 3480 EXEC CUR(1,J+2) 3490 PRINT 2*J 3500 EXEC CUR(65,J+2) 3510 PRINT 2*J 3520 NEXT J 3530 PRINT " 0 2 4 6 8 10 12 14"; 3540 PRINT " 16 18 20 22 24 26 28 30" 3550 ENDPROC RAMME 3560 REM //----------// 3570 PROC VISKUD(GL) 3580 EXEC CUR(X(GL)*2+5,Y(GL)/2┆
0x1d2a00…1d2c00 (155, 1, 2) UnusedSector ┆+2) 3590 PRINT " " 3600 EXEC SMARK(X(GL),Y(GL),0) 3610 FOR PL=1 TO N 3620 IF G(PL)=1 THEN EXEC SMARK(X(PL),Y(PL),1) 3630 NEXT PL 3640 ENDPROC VISKUD 3650 REM //-----------// 3660 PROC TEGN(NY,SKTR) 3670 IF SKTR=TRUE THEN 3680 REPEAT 3690 IF SLAGM$(X(NY)+1,Y(NY)+2 : 1)="1" THEN 3700 IF X(NY)<15 THEN 3710 X(NY)=X(NY)+1 3720 ELSE 3730 X(NY)=X(NY)-1 3740 ENDIF 3750 ENDIF 3760 UNTIL SLAGM$(X(N┆
0x1d2c00…1d2e00 (155, 1, 3) UnusedSector ┆Y)+1,Y(NY)+2 : 1)="0" 3770 EXEC SMARK(X(NY),Y(NY),1) 3780 ENDIF 3790 EXEC CUR(X(NY)*2+5,Y(NY)/2+2) 3800 PRINT TYPE$(NY : 1) 3810 ENDPROC TEGN 3820 REM //----------// 3830 PROC CUR(Æ,Ø) 3840 PRINT CHR(6); CHR(Æ+95-(Æ>32)*64-(Æ>64)*64); CHR(Ø+95); 3850 ENDPROC CUR 3860 REM //----------// 3870 PROC REGLER 3880 PRINT CHR(12) 3890 PRINT "YOU ARE THE COMMANDER OF A FLEET OF SPACECRAFTS !" 3900 PRINT 3910 PRINT "POSSIBLE COMMANDS ARE : MOVE LASER STATUS BOMB ┆
0x1d2e00…1d3000 (155, 1, 4) UnusedSector ┆ RULES" 3920 PRINT " ---- ----- ------ ---- -----" 3930 PRINT "COMMANDS ARE GIVEN BY TYPING THE FIRST LETTER (M/L/S/B/R) " 3940 PRINT "YOU CAN MOVE 2 SPACECRAFTS OR ATTACK FROM 1 SPACECRAFT" 3950 PRINT 3960 PRINT "BLACK AND WHITE TAKE TURNS TO EITHER MOVE OR ATTACK." 3970 PRINT 3980 PRINT "SPACECRAFTS","MAX. MOVEMENT","ENERGY-STORAGE"," BOMBS ","LASER" 3990 PRINT "-----------","-------------","--------------"," ----- ","-----" 4000 PRINT "BATT┆
0x1d3000…1d3200 (155, 1, 5) UnusedSector ┆LESHIP "," 8 UNITS ","500 TERA-JOULES"," NONE ","YES" 4010 PRINT "(A,B,C,D,W,X,Y,Z)" 4020 PRINT "KRYDSER ","10 UNITS ","300 TERA-JOULES"," NONE ","YES" 4030 PRINT "(<,>,*,#)" 4040 PRINT "FIGHTER "," 6 UNITS ","300 TERA-JOULES"," 3 PCS","NONE" 4050 PRINT "(1,2,3,7,8,9)" 4060 PRINT 4070 PRINT "ENERGY CONSUMPSTION FOR MOVEMENT IS: FIGHTER>BATTLESHIP>CRUISER" 4080 PRINT 4090 PRINT "REACH OF LASER IS 12 UNITS. REACH OF BOMBS IS UNLIMMITED !" 4100 EXEC P┆
0x1d3200…1d3400 (155, 1, 6) UnusedSector ┆AUSE 4110 ENDPROC REGLER 4120 REM //----------// ┆
0x1d3400…1d3600 (155, 1, 7) UnusedSector ┆ EdD I.D $E $$I= -D dDdD E @ @ @ @ @ @ $I$I$I ;D @ A^A A A AX')(H(k( ( (-)_) $I$I$I 5IDx) ) ) ) ) )7*J*a* * $I$I I WDå + +,+O+`+a+a+b+c+ O D $ $ eD 1P " A " A ) 1 P sD D D LTYsD xDTT Y CåD * L $ $ : DF d ** *RWNO GAPAREMET R D $ $k DERIVISNO ** *ONP RAMATERE D $ $ D SOLDADE ** *AFLU TNOP GA D $ $ DNI GEDIVEC ** *ON TNEUOHG D $ $It DC RO E ,(F5 P MF)CMCM D $ % D ! ) 1 ! ) 1 E M UF ┆
0x1d3600…1d3800 (155, 1, 8) UnusedSector ┆ G D$I$I D P A A'B H)G*GwF E G C I$I$I* D E"G/ A ExF C E G @ @CBFBPB E $ HLD D C DABPS A ? DCRLA L H$I H A D ECULA L E E B B G C E Q eD "I $ d d EcD C E ? ,( 1 P D $ $;Æ E Q?" ) 0 - 5 Q D $ $4u)E 8 1@" ) 9 " C " C " C D $ $qE7E%" E&" E+" E," 8/C-";C E E." D $ $ KEE9C E E E ! E E " E E E$" E D $ $UtSE'" E ! E E A E#" E E " E A D $ $ aE ! 4C ! .C ! -C " E)" E ! D $ $c oE ,( 1 "O( E,( 1 ┆
0x1d3800…1d3a00 (155, 1, 9) DataSector[»YLPX1«]
[…0x5…]
0x1d4400…1d4600 (156, 0, 3) DataSector[»YPPX2«]
[…0x5…]
0x1d5000…1d5200 (156, 0, 9) UnusedSector ┆ ┆
0x1d5200…1d5400 (156, 0, 10) UnusedSector ┆ 0010 ON ESC EXEC SLUT 0020 DIM SVAR$(5) 0030 REPEAT 0040 PRINT CHR(12) 0050 EXEC XY(24,12) 0060 INPUT "INSTRUCTIONS NEEDED (YES/NO) ? ",SVAR$ 0070 IF SVAR$="YES" OR SVAR$="YES" THEN EXEC INST 0080 UNTIL SVAR$="YES" OR SVAR$="YES" OR SVAR$="NO" OR SVAR$="NO" 0090 FORSØG=1; PLET=0 0100 PRINT CHR(12); 0110 REPEAT 0120 RANDOMIZE 0130 HØJDE=INT(18*RND(0))+2 0140 EXEC XY(40,21) 0150 PRINT " I" 0160 EXEC XY(40,22) 0170 PRINT "(#)" 0180 RETNING=-1; POSITI┆
0x1d5400…1d5600 (156, 0, 11) UnusedSector ┆ON=80; MIDT=39 0190 IF RND(0)>.5 THEN LET RETNING=1; POSITION=1; MIDT=38 0200 RAMT=0; FORBI=0; SKUD=0; GRANAT=20 0210 REM 0220 SKUD=0 0230 REPEAT 0240 IN 16,X 0250 X=X MOD 128 0260 IF X=49 THEN EXEC SKYD 0270 POSITION=POSITION+RETNING 0280 EXEC XY(POSITION,HØJDE) 0290 IF RETNING=1 THEN 0300 PRINT " :-> " 0310 ELSE 0320 PRINT CHR(60); "-: " 0330 ENDIF 0340 IF SKUD=1 THEN 0350 GRANAT=GRANAT-1 0360 E┆
0x1d5600…1d5800 (156, 0, 12) UnusedSector ┆XEC XY(40,GRANAT) 0370 PRINT "^"; CHR(31) 0380 ENDIF 0390 IF ABS(POSITION-MIDT)<2 AND GRANAT=HØJDE THEN 0400 EXEC XY(37,HØJDE) 0410 PRINT "**BOOM**"; CHR(7) 0420 EXEC XY(1,1) 0430 PRINT " * YOU GOT IT *" 0440 RAMT=1; PLET=PLET+1 0450 ENDIF 0460 IF GRANAT=1 OR POSITION=1 OR POSITION=80 OR (GRANAT-HØJDE)<-4 THEN 0470 EXEC XY(1,1) 0480 PRINT " *** A MISS ***" 0490 FORBI=1 0500 ENDIF 0510 UNTIL RAMT=1 ┆
0x1d5800…1d5a00 (156, 1, 1) UnusedSector ┆OR FORBI=1 0520 EXEC SCORE 0530 EXEC XY(1,2) 0540 PRINT " PRESS 2 FOR CONTINUATION"; CHR(31); 0550 EXEC XY(1,1) 0560 PRINT 0570 LOOP 0580 IN 16,X 0590 X=X MOD 128 0600 IF X=50 OR X=115 THEN EXIT 0610 ENDLOOP 0620 EXEC XY(1,1) 0630 PRINT " " 0640 PRINT " " 0650 IF CHR(X)="S" THEN EXIT 0660 PROC SKYD 0670 SKUD=1 0680 ENDPROC 0690 FORSØG=FORSØG+1 0700 UNTIL 1=5 0710 EXEC SLUT 0┆
0x1d5a00…1d5c00 (156, 1, 2) UnusedSector ┆720 PROC INST 0730 PRINT CHR(12) 0740 PRINT TAB(12); "WITH A MISSIL YOU CAN GUN DOWN AN AIRCRAFT" 0750 PRINT 0760 PRINT TAB(12); "THE MISSIL IS FIRED BY PRESSING '1'. AFTER EACH SHOT." 0770 PRINT TAB(12); "YOU PRESS '2' FOR CONTINUATION, OR 'S' TO LAND " 0780 PRINT 0790 PRINT 0800 PRINT TAB(12); "PRESS"; CHR(128+2+16); 0810 PRINT "'SPACEBAR'"; CHR(128); " WHEN YOU ARE READY TO FIRE " 0820 REPEAT 0830 IN 16,X 0840 UNTIL X=32 0850 ENDPROC 0860 P┆
0x1d5c00…1d5e00 (156, 1, 3) UnusedSector ┆ROC SCORE 0870 EXEC XY(40,1) 0880 PRINT "YOU GOT"; PLET; "HITS OUT OF"; FORSØG; "SHOTS " 0890 ENDPROC 0900 PROC XY(XADR,YADR) 0910 PRINT CHR(6); CHR(95+XADR-(XADR>32)*64-(XADR>64)*64); CHR(95+YADR); 0920 ENDPROC 0930 PROC SLUT 0940 ON ESC EXEC SLUT 0950 EXEC SCORE 0960 CHAIN "MENUE" 64)*64); CHR(95+YADR); 0920 ENDPROC 0930 PROC SLUT 094 0020 REM // PROGRAM : LÆSNING I EN DATAFIL ***** 0030 DIM BUF$(128),NAVN$(10) 0040 PRINT CHR(12) 0050 INPUT "HVAD ER DATA┆
0x1d5e00…1d6000 (156, 1, 4) UnusedSector ┆M PROCEDURE MAP: DRAW THE BOARD 1030 REM 1040 PROC MAP 1050 PRINT CHR(12) 1060 EXEC XY(40,6) 1070 PRINT "COLUMNS" 1080 EXEC XY(17,8) 1090 PRINT " 1 2 3 4 1 2 3 4 1 2 3 4 1 2 3 4" 1100 PRINT 1110 FOR R=1 TO 4 1120 PRINT " ROWS "; R; " "; 1130 PRINT " ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '" 1140 NEXT R 1150 EXEC XY(18,15) 1160 PRINT "PLANE 1 PLANE 2 PLANE 3 PLANE 4" 1170 ENDPROC 1180 RE┆
0x1d6000…1d6200 (156, 1, 5) UnusedSector ┆M 1190 REM 1200 REM PROCEDURE LINES: FIND THE LINES ON WHICH THE CELL LIES 1210 REM 1220 PROC LINES 1230 FOR Q=1 TO 3 1240 EXEC PRIOR 1250 NEXT Q 1260 IF P=R AND P=C THEN Q=13 1270 IF P=R AND R=3-C THEN Q=10 1280 IF R=C AND R=3-P THEN Q=12 1290 IF P=C AND P=3-R THEN Q=11 1300 EXEC PRIOR 1310 IF P=R THEN 1320 Q=4 1330 EXEC PRIOR 1340 ENDIF 1350 IF R=C THEN 1360 Q=6 1370 EXEC PRIOR 1380 ENDIF 1390 IF P=C THEN 1400 ┆
0x1d6200…1d6400 (156, 1, 6) UnusedSector ┆ Q=5 1410 EXEC PRIOR 1420 ENDIF 1430 IF P=3-R THEN 1440 Q=7 1450 EXEC PRIOR 1460 ENDIF 1470 IF R=3-C THEN 1480 Q=9 1490 EXEC PRIOR 1500 ENDIF 1510 IF P=3-C THEN 1520 Q=8 1530 EXEC PRIOR 1540 ENDIF 1550 ENDPROC 1560 REM 1570 REM 1580 REM PROCEDURE HIGH: FIND THE CELL WITH HIGHEST PRIORITY 1590 PROC HIGH 1600 HV=-99999999 1610 FOR COUNT=1 TO 64 1620 IF M(COUNT)<2 THEN 1630 IF N(COUNT)>HV THEN ┆
0x1d6400…1d6600 (156, 1, 7) UnusedSector ┆ 1640 HV=N(COUNT) 1650 POINTER=1 1660 MAXPRIO(POINTER)=COUNT 1670 ELSE 1680 IF N(COUNT)=HV THEN 1690 POINTER=POINTER+1 1700 MAXPRIO(POINTER)=COUNT 1710 ENDIF 1720 ENDIF 1730 ENDIF 1740 NEXT COUNT 1750 POINTER=INT(RND(0)*POINTER)+1 1760 COUNT=MAXPRIO(POINTER)-1 1770 C=INT(COUNT/16) 1780 R=INT((COUNT-C*16)/4) 1790 P=COUNT-(R*4+C*16) 1800 ENDPROC 1810 REM 1820 REM PROCEDURE PRIOR: ┆
0x1d6600…1d6800 (156, 1, 8) UnusedSector ┆ADD PRIORITY VALUES TO PRIORITY MATRIX 1830 REM 1840 PROC PRIOR 1850 FOR T=0 TO 3 1860 P1=P; R1=R; C1=C 1870 IF Q>8 THEN 1880 IF Q>11 THEN 1890 IF Q=12 THEN 1900 P1=3-T; R1=T; C1=T 1910 ELSE 1920 P1=T; R1=T; C1=T 1930 ENDIF 1940 ELSE 1950 IF Q>10 THEN 1960 P1=T; R1=3-T; C1=T 1970 ELSE 1980 IF Q=10 THEN 1990 P1=T; R1=T; C1=3-T 2000 ELSE 2┆
0x1d6800…1d6a00 (156, 1, 9) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x0eb5}}
0x1d6a00…1d6c00 (156, 1, 10) DataSector[»MUSIK«]
[…0x4…]
0x1d7400…1d7600 (157, 0, 3) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x0ebb}}
0x1d7600…1d7800 (157, 0, 4) DataSector[»DSTAT«]
[…0x4…]
0x1d8000…1d8200 (157, 0, 9) Index {count=0x0001, a000=Slice {count=0x000b, sector=0x0ec1}}
0x1d8200…1d8400 (157, 0, 10) DataSector[»CDMPR«]
[…0xa…]
0x1d9800…1d9a00 (157, 1, 9) Index {count=0x0008, a000=Slice {count=0x0005, sector=0x0ecd}, a001=Slice {count=0x0018, sector=0x116c}, a002=Slice {count=0x0012, sector=0x1196}, a003=Slice {count=0x0012, sector=0x11ae}, a004=Slice {count=0x0006, sector=0x11cc}, a005=Slice {count=0x0006, sector=0x11fc}, a006=Slice {count=0x000c, sector=0x1208}, a007=Slice {count=0x0006, sector=0x1226}}
0x1d9a00…1d9c00 (157, 1, 10) DataSector[»ZTEMP«]
[…0x4…]
0x1da400…1da600 (158, 0, 3) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x0ed3}}
0x1da600…1da800 (158, 0, 4) DataSector[»AMXCO«]
[…0x4…]
0x1db000…1db200 (158, 0, 9) UnusedSector ┆ ┆
0x1db200…1db400 (158, 0, 10) UnusedSector ┆ 0010 ON ESC CHAIN "MENUE" 0020 REM PHANTNUM I RC 700 COMAL, FEB 80. 0030 REM COMAL PROGRAM VED ERIK T NIELSEN, TORBEN NIELSEN OG 0040 REM F G KNUDSEN, RISMØLLESKOLEN. L3-2-79. 0050 DIM SVAR$(10),FÆRDIG$(10),BOGSTAV$(10) 0060 DIM TAL(10) 0070 REPEAT 0080 PRINT CHR(12) 0090 PRINT 0100 PRINT 0110 INPUT " INSTRUCTIONS NEEDED (YES/NO) ? ",SVAR$ 0120 IF SVAR$="YES" THEN SVAR$="YES" 0130 IF SVAR$="NO" THEN SVAR$="NO" 0140 UNTIL SVAR$="YES" OR SVAR$="NO" 0150 IF SVAR$="Y┆
0x1db400…1db600 (158, 0, 11) UnusedSector ┆ES" THEN EXEC INSTR 0160 REPEAT 0170 FÆRDIG$=" "; GANG=0 0180 PRINT CHR(12) 0190 EXEC KODE 0200 REPEAT 0210 EXEC IND 0220 UNTIL FÆRDIG$="1111111111" 0230 REPEAT 0240 EXEC CUR(1,21) 0250 PRINT "THERE YOU GO ! "; 0260 INPUT "WOULD YOU LIKE TO TRY AGAIN ? (YES/NO) ? ",SVAR$ 0270 IF SVAR$="YES" THEN SVAR$="YES" 0280 IF SVAR$="NO" THEN SVAR$="NO" 0290 UNTIL SVAR$="YES" OR SVAR$="NO" 0300 UNTIL SVAR$="NO" 0310 CHAIN "MENUE" 03┆
0x1db600…1db800 (158, 0, 12) UnusedSector ┆20 END PHANTNUM 0330 REM //----------// 0340 PROC IND 0350 GANG=GANG+1 0360 EXEC PLADS 0370 EXEC CUR(SØJLE,RÆKKE) 0380 PRINT GANG; 0390 SØJLE=SØJLE+4 0400 EXEC CUR(SØJLE,RÆKKE) 0410 INPUT " : ",SVAR$ 0420 SØJLE=SØJLE+8 0430 EXEC CUR(SØJLE,RÆKKE) 0440 OK=1 0450 EXEC TEST 0460 IF OK=0 THEN PRINT "ERROR" 0470 ENDPROC IND 0480 REM //----------// 0490 PROC TEST 0500 IF LEN(SVAR$)>2 THEN 0510 IF SVAR$(2 : 1)="=" THEN 0520 IF SVAR$(3 : ┆
0x1db800…1dba00 (158, 1, 1) UnusedSector ┆1)>"/" AND SVAR$(3 : 1)<":" THEN 0530 EXEC SVARTAL 0540 ELSE 0550 OK=0 0560 ENDIF 0570 ENDIF 0580 IF SVAR$(2 : 1)="*" OR SVAR$(2 : 1)="+" OR SVAR$(2 : 1)="-" THEN 0590 EXEC UDREGN 0600 ELSE 0610 IF SVAR$(2 : 1)<>"=" THEN OK=0 0620 ENDIF 0630 ELSE 0640 OK=0 0650 ENDIF 0660 ENDPROC TEST 0670 REM //----------// 0680 PROC SVARTAL 0690 IF BOGSTAV$(ORD(SVAR$(3 : 1))-47 : 1)=SVAR$(1 : 1) THEN 0700 PR┆
0x1dba00…1dbc00 (158, 1, 2) UnusedSector ┆INT "YES" 0710 EXEC SKEMA 0720 FÆRDIG$(ORD(SVAR$(3 : 1))-47 : 1)="1" 0730 ELSE 0740 PRINT "NO" 0750 ENDIF 0760 ENDPROC SVARTAL 0770 REM //----------// 0780 PROC UDREGN 0790 FOR X=1 TO 3 STEP 2 0800 TAL(X)=-1 0810 FOR Y=1 TO 10 0820 IF SVAR$(X : 1)=BOGSTAV$(Y : 1) THEN TAL(X)=Y-1 0830 NEXT Y 0840 NEXT X 0850 IF TAL(1)=>0 AND TAL(3)=>0 THEN 0860 IF SVAR$(2 : 1)="*" THEN FACIT=TAL(1)*TAL(3) 0870 IF SVAR$(2 : 1)="+" THEN FACIT=┆
0x1dbc00…1dbe00 (158, 1, 3) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x0edf}}
0x1dbe00…1dc000 (158, 1, 4) DataSector[»KLASK«]
[…0x4…]
0x1dc800…1dca00 (158, 1, 9) Index {count=0x0001, a000=Slice {count=0x0011, sector=0x0ee5}}
0x1dca00…1dcc00 (158, 1, 10) DataSector[»IO«]
[…0x10…]
0x1dec00…1dee00 (159, 1, 3) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x0ef7}}
0x1dee00…1df000 (159, 1, 4) DataSector[»MSN64«]
[…0x4…]
0x1df800…1dfa00 (159, 1, 9) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x0efd}}
0x1dfa00…1dfc00 (159, 1, 10) DataSector[»TPTR«]
[…0x4…]
0x1e0400…1e0600 (160, 0, 3) UnusedSector ┆TAL(1)+TAL(3) 0880 IF SVAR$(2 : 1)="-" THEN 0890 FACIT=TAL(1)-TAL(3) 0900 IF FACIT<0 THEN FACIT=FACIT+10 0910 ENDIF 0920 FACIT=FACIT-10*INT(FACIT/10) 0930 PRINT BOGSTAV$(FACIT+1 : 1) 0940 ELSE 0950 OK=0 0960 ENDIF 0970 ENDPROC UDREGN 0980 REM //----------// 0990 PROC KODE 1000 RANDOMIZE 1010 BOGSTAV$=" " 1020 X=1 1030 REPEAT 1040 T=INT(RND(0)*10+1) 1050 IF BOGSTAV$(T : 1)=" " THEN 1060 BOGSTAV$(T ┆
0x1e0600…1e0800 (160, 0, 4) UnusedSector ┆: 1)=CHR(X+96); X=X+1 1070 ENDIF 1080 UNTIL X=11 1090 ENDPROC KODE 1100 REM //----------// 1110 PROC INSTR 1120 PRINT CHR(12) 1130 PRINT 1140 PRINT 1150 PRINT "THIS PROGRAM GIVES YOU A TEST, CALLED PHANTNUM." 1160 PRINT 1170 PRINT "THE PROGRAM GIVES THE LETTERS A B C D E F G H I J " 1180 PRINT "GIVEN THE VALUE FROM 0 TO 9, BUT IN A RANDOM SEQUENCE." 1190 PRINT 1200 PRINT "YOUR JOB IS NOW TO FIND EACH LETTERS VALUE BY ASKING" 1210 PRINT "QUESTIONS ┆
0x1e0800…1e0a00 (160, 0, 5) UnusedSector ┆LIKE THE FOLLOWING : A+B, A-B, A*B OR A=6." 1220 PRINT 1230 PRINT "THE ANSWER ON THE LAST KIND OF QUESTION WILL BE YES OR " 1240 PRINT "NO, WHILE THE ANSWER ON THE OTHER QUESTIONS, WILL BE THE LET-" 1250 PRINT "TER WHICH IS THE LAST DIGIT IN THE RESULT." 1260 PRINT "IF THE RESULT IS NEGARTIVE, THERE WILL ADDED 10 TO THE RESULT" 1270 PRINT "BEFORE THE ANSWER IS GIVEN." 1280 PRINT 1290 PRINT "TYPE"; CHR(128+2+16); "'SPACEBAR'"; CHR(128); 1300 PRINT "TO START."; CHR(26) ┆
0x1e0a00…1e0c00 (160, 0, 6) UnusedSector ┆ 1310 REPEAT 1320 IN 16,X 1330 UNTIL X=32 1340 PRINT CHR(12) 1350 ENDPROC INSTR 1360 REM //----------// 1370 PROC PLADS 1380 RÆKKE=GANG; SØJLE=3; KONTROL=GANG 1390 WHILE KONTROL>20 DO 1400 KONTROL=KONTROL-20; RÆKKE=KONTROL; SØJLE=SØJLE+20 1410 ENDWHILE 1420 ENDPROC 1430 REM //----------// 1440 PROC CUR(HEN,NED) 1450 PRINT CHR(6); 1460 PRINT CHR(95+HEN-(HEN>32)*64-(HEN>64)*64); 1470 PRINT CHR(95+NED-(NED>32)*64-(NED>64)*64); 1480 ENDPROC 1┆
0x1e0c00…1e0e00 (160, 0, 7) UnusedSector ┆490 REM //----------// 1500 PROC SKEMA 1510 EXEC CUR(6,22) 1520 PRINT "A B C D E F G H I J" 1530 INDRYK=(ORD(SVAR$(1 : 1))-96)*3+3 1540 EXEC CUR(INDRYK,23) 1550 PRINT SVAR$(3 : 1) 1560 ENDPROC SKEMA 1570 REM //----------// 1580 CHAIN "MENUE" 1540 EXEC CUR(INDRYK,23) 1550 PRINT SVAR$(3 : 1) 1560 ENDPROC SKEMA 1570 REM //----------/ b ┆
0x1e0e00…1e1000 (160, 0, 8) UnusedSector ┆ 2220 EXEC YX(3,30) 2230 PRINT "=============" 2240 IGET=1; IPUT=1 2250 REPEAT 2260 GET F,IGET : INIT$,PAS$,GAMES,WON,LOST 2270 IF INIT$="XXXXX" THEN 2280 PUT F,IPUT : INIT$,PAS$,GAMES,WON,LOST 2290 SS=0 2300 EXEC UPDMEMB(0,0,SS) 2310 PRINT 2320 ELSE 2330 EXEC UPDMEMB(IGET,IPUT,SS) 2340 IGET=IGET+1; IPUT=IPUT+1 2350 ENDIF 2360 UNTIL INIT$="XXXXX" 2370 ENDIF 2380 CLOSE F 23┆
0x1e1000…1e1200 (160, 0, 9) UnusedSector ┆ n ┆
0x1e1200…1e1400 (160, 0, 10) UnusedSector ┆ b 0010 REM 0020 REM ******* CONVERTED TO RC700 COMAL BY G.H.LAURSEN ******** 0030 REM ******* RC COMPUTER, EXPORT DIVISION ******** 0040 REM 0050 REM ******* VERSION 81.12.04 ******** 0060 REM 0070 REM SET UP BOARDS AND INITIALIZE VARIABLES 0080 REM 0090 PRINT CHR(12) 0100 EXEC INITDISPLAY 0110 RANDOMIZE 0120 DATA 2,10,3,1┆
0x1e1400…1e1600 (160, 0, 11) UnusedSector ┆4,4,98,9,100,8,900,27,10000,6,-24,18,-98,12,-100 0130 DIM BUF$(128),VAR$(1),NAMES$(5),INITIALS$(5),PASS$(5),CODE$(5) 0140 DIM M(64),N(64),A(9),B(9),MAXPRIO(64),STORE(4) 0150 DIM BINIT$(5),BPAS$(5),UPDINIT$(5),NEWPAS$(5) 0160 LET D=1; S=0; MC=0; NUL=0; ONE=1 0170 OLDX=13; OLDY=20; XX=3; YY=23 0180 FOR P=0 TO 3 0190 FOR R=0 TO 3 0200 FOR C=0 TO 3 0210 LET X=P+4*R+16*C+1 0220 LET N(X)=0; M(X)=1 0230 IF P=R AND P=C THEN 0240 N(X)=10 0250 ENDIF ┆
0x1e1600…1e1800 (160, 0, 12) UnusedSector ┆0260 IF P=C AND P=3-R THEN 0270 N(X)=10 0280 ENDIF 0290 IF P=3-C AND R=C THEN 0300 N(X)=10 0310 ENDIF 0320 IF P=R AND P=3-C THEN 0330 N(X)=10 0340 ENDIF 0350 NEXT C 0360 NEXT R 0370 NEXT P 0380 FOR X=1 TO 9 0390 READ A(X),B(X) 0400 NEXT X 0410 EXEC SCORE(0,1) 0420 EXEC MAP 0430 REPEAT 0440 REPEAT 0450 LET OK=1 0460 EXEC XY(45,18) 0470 PRINT " " 0480 EXEC XY(1┆
0x1e1800…1e1a00 (160, 1, 1) UnusedSector ┆,18) 0490 PRINT " INPUT YOUR MOVE (PLANE ROW COLUMN) : ",CHR(26) 0500 FOR C=1 TO 47 0510 J=CRT(24) 0520 NEXT C 0530 P=KEY(0)-49 0540 J=CRT(P+49) 0550 J=CRT(24) 0560 J=CRT(24) 0570 R=KEY(0)-49 0580 J=CRT(R+49) 0590 J=CRT(24) 0600 J=CRT(24) 0610 C=KEY(0)-49 0620 J=CRT(C+49) 0630 IF P>3 OR R>3 OR C>3 OR P<0 OR R<0 OR C<0 THEN 0640 LET OK=0 0650 ELSE 0660 IF M(P+4*R+16*C+1)>1 THEN 0670 ┆
0x1e1a00…1e1c00 (160, 1, 2) UnusedSector ┆ EXEC XY(1,18) 0680 PRINT " CELL OCCUPIED " 0690 FOR Z=0 TO 400 0700 NEXT Z 0710 LET OK=0 0720 ENDIF 0730 ENDIF 0740 UNTIL OK=1 0750 EXEC XY(XX,YY) 0760 PRINT CHR(128); "X" 0770 EXEC XY(2,23) 0780 PRINT " NUMBER OF MOVES :"; MC/2+1 0790 XX=P*14+C*3+18; YY=R+10 0800 EXEC XY(XX,YY) 0810 PRINT CHR(144); "X"; CHR(128) 0820 J=CRT(29) 0830 LET M(P+4*R+16*C+1)=3 08┆
0x1e1c00…1e1e00 (160, 1, 3) Index {count=0x0001, a000=Slice {count=0x0011, sector=0x0f0f}}
0x1e1e00…1e2000 (160, 1, 4) DataSector[»YPANE«]
[…0x10…]
0x1e4000…1e4200 (161, 0, 9) UnusedSector ┆ ! 0 ┆
0x1e4200…1e4400 (161, 0, 10) UnusedSector ┆DU STÅR UDEN FOR INDGANGEN TIL EN MYSTISK GROTTE. DER ER EN INDGANG 1 B43 : MOD SYD,OG HØJT OVER DIG ER TUNNELLEN OM HVILKEN GRANDALF SAGDE B52 @ B53 @0 AT DET ER EN HURTIGERE , MEN VANSKELIGERE OG FARLIGERE VEJ ! ! ! 62 @ B63 @ DU FLAKKER FORVILDET OM I SKOVEN. MÅSKE LEDER AP B72 #A / B73 A ┆
0x1e4400…1e4600 (161, 0, 11) UnusedSector ┆DU EFTER DEN INDGANG, SOM DU VAR SÅ UFORSIGTIG AT GÅ VÆK FRA ??? 45 > B48 ? JEG TROR EFTERHÅNDEN, AT DU SLET IKKE KAN FINDE INDGANGEN B61 @ B65 A TIL GROTTEN....ELLER OGSÅ TØR DU MÅSKE IKKE ? ! ? ! ? ! BQ 3 67 A0 DER ER HELLERISTNINGER AF JÆGERE OG VILDSVIN PÅ AP B72 #A / B73 A ┆
0x1e4600…1e4800 (161, 0, 12) UnusedSector ┆VÆGGEN. MOD NORD KAN MAN ANE ET SVAGT LYS... AS DESCRIBED ABOVE. CORE REQUIREMENT: 4254 BYTES. OTHER REQUIREMENTS: DU BEFINDER DIG I SAGNLANDET XANADU ! ! RC36-00555 PAGE 01 ! CONST DESCR=' IN<0><0><0><134> OUT<0><0><134> BLOCUNDER DIG BRUSER DEN HELLIGE FLOD 'ALPH' GENNEM ET 0 0 2 0 #, EMPTY=# 0 0 0 0 0 0 #, S=' S<0><0><0><0LANDSKAB AF UBESKRIVELIG SKØNHED..... 0100 *** CATALOG I/O ERROR, FILE <0>', LF= '<10>', FALSE= 0, TRUE= -1, INPUT= 1,┆
0x1e4800…1e4a00 (161, 1, 1) UnusedSector ┆DU STÅR VED FODEN AF EN SKRØBELIG VINDELTRAPPE, , CLOSEIN=4, CLOSEOU=5, REMOVE= 6; ! RC36-00555 PAGE 02 ! VDER SNOR SIG OP OG OP TIL TOPPEN AF EN ); IN: STRING(6); OUT: STRING(6); SIZE: INTEGER END; SAVEP: INTTROLDMANDS UHYGGELIGE TÅRN (!!) INTEGER; ACTION: INTEGER; LENGTH: INTEGER; FIFO: INTEGER; EOF: INTEGER; CHAR: INTEGERGULVET ER BESTRØET MED DE STINKENDE RESTER AF : FILE 'WORK', 62, 2, 128, U; GIVEUP IZONEERROR, 8'177777 OF STRING(128); O┆
0x1e4a00…1e4c00 (161, 1, 2) UnusedSector ┆ET STORT ROVDYRS MÅLTID ! STANKEN OVERVÆLDER DIG, OR, 8'177777 OF STRING(512); PROCEDURE GETPARAMS (S,S,S: STRING(1)); COOG DU TVINGES TIL AT FLYGTE I PANIK... (FILE F; I: INTEGER; S: STRING(1)); CODEBODY P0086; PROCEDURE FINIS (R: INTEGER); COGANGEN DREJER SKARPT, OG I GULVET ER DER EN N IF ERROR=0 THEN BEGIN EFILE:= IZONE.ZNAME; EOF:= TRUE; IFLILLE ÅBNING TIL EN SMAL OG UOPLYST TUNNEL... ELSE IF IZONE.Z0 AND 8'004000 <> 0 THEN ERROR:= 120 ELSE ERROR:= 2000; ┆
0x1e4c00…1e4e00 (161, 1, 3) DataSector[»EZTEM«]
[…0x5…]
0x1e5800…1e5a00 (161, 1, 9) DataSector[»ACALL«]
[…0x5…]
0x1e6400…1e6600 (162, 0, 3) UnusedSector ┆ 3 ┆
0x1e6600…1e6800 (162, 0, 4) UnusedSector ┆Qb 2 +2,2 ; BEGIN LDA 0 +0,2 ; LDA 1 +1,2 ; MOV 0,0 SZR ; IF STATE <> 0 THEN JMP OUT01 ; GOTO OUT01 MOV 1,1 SZR ; ELSE JMP OUT01 ; GOTO GRA01; JMP GRA01 ; ; ALPHA: 0 ; PROCEDURE ALPHA; LDA 2 CUR ; BEGIN LDA 0 COUT,3 ; LDA 1 ALP01 ; F.OCHAR ; OUTCHAR(ALPHA-SWITCH); JMP ERR ; RET1 ; END; ALP01: .TXT .<0><31>. ; (* ALPHA-MODE CHARACTER *) ┆
0x1e6800…1e6a00 (162, 0, 5) UnusedSector ┆GRA10: STA 0 U.S03,3 ; PROCEDURE GRA10 ; ( Z:REAL;I:INTEGER); MOV 1,2 ; BEGIN .IFN RCEXP LDA 0 +2,2 ; STA 0 U.WXP,3 ; .ENDC LDA 0 +0,2 ; LDA 1 +1,2 ; GET(Z); BCALL FIX ; FIX(Z); STA 1 U.S01,3 ; LDA 2 .32 ; BCALL IDIV ; LDA 0 .31 ; Z.HIGH:=Z DIV 32.+31. AND 0,1 ; ADD 0,1 ; LDA 0 COUT,3 ; LDA 2 CUR ; INC 1,1 ; F.OCHAR ; OUTC┆
0x1e6a00…1e6c00 (162, 0, 6) UnusedSector ┆HAR(Z.HIGH); RET0 ; ERRORRETURN; LDA 1 U.S01,3 ; LDA 0 .31 ; AND 0,1 ; LDA 0 U.S03,3 ; GET(I); ADD 0,1 ; Z.LOW:=Z MOD 32 + I; LDA 0 COUT,3 ; F.OCHAR ; OUTCHAR(Z.LOW); RET0 ; ERRORRETURN; RET1 ; END; .31: 31 ** .ENDC ** .IFN RCGRA+RCXY .96: 96 ERR: BCALL IOERR ; I/O-ERROR RET0 ** .ENDC ** .IFN RCINP OAIND: 2 ; PROCEDURE OUTANDIN STRING ; ( STR : STRIN┆
0x1e6c00…1e6e00 (162, 0, 7) UnusedSector ┆G; STRING+REFERENCE ; VAR TEXT : STRING); LDA 2 +0,2 ; LDA 1 +0,2 ; AC1 := BYTEADR(STR); STA 1 U.S03,3 ; S03 := BYTEADR LDA 0 +1,2 ; SNZ 0,0 ; JMP OAI2 ; STA 0 U.S01,3 ; S01 := NUMBER OF BYTES; LDA 0 +2,2 ; STA 0 U.S02,3 ; S02 := SEGMENTNUMBER; OAI1: LDA 0 U.S02,3 ; AC0 := SEGMENTNUMBER; LDA 2 CUR ; LDA 1 U.S03,3 ; A.GBYTE ; GETBYTE(STR); MOV 0,1 ; LDA 0 PIO┆
0x1e6e00…1e7000 (162, 0, 8) UnusedSector ┆,3 ; F.OCHAR ; OUTCHAR(BYTE); JMP ERR ; IF ERROR GOTO ERR; ISZ U.S03,3 ; INC(BYTEADR); DSZ U.S01,3 ; DECR(S01); IF S01=0 SKIP NXT INSTR; JMP OAI1 ; F.OBLOCK ; OUTBLOCK; JMP ERR ; OAI2: LDA 2 U.STK,3 ; LDA 2 +1,2 ; JMP INP01 ; INP: 1 ; PROCEDURE INPUT STRING+REFERENCE ; ( VARR TEXT:STRING); LDA 2 +0,2 ; INP01: LDA 0 +0,2 ; LDA 1 +1,2 ; STA 0 U.S04,3 ; S04┆
0x1e7000…1e7200 (162, 0, 9) Index {count=0x0002, a000=Slice {count=0x0005, sector=0x0f39}, a001=Slice {count=0x0006, sector=0x0f74}}
0x1e7200…1e7400 (162, 0, 10) DataSector[»FORTU«]
[…0x4…]
0x1e7c00…1e7e00 (162, 1, 3) Index {count=0x0002, a000=Slice {count=0x0011, sector=0x0f3f}, a001=Slice {count=0x0006, sector=0x0f80}}
0x1e7e00…1e8000 (162, 1, 4) DataSector[»BATTL«]
[…0x10…]
0x1ea000…1ea200 (163, 0, 9) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x0f51}}
0x1ea200…1ea400 (163, 0, 10) DataSector[»MSNOP«]
[…0x4…]
0x1eac00…1eae00 (163, 1, 3) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x0f57}}
0x1eae00…1eb000 (163, 1, 4) DataSector[»CDFP1«]
[…0x4…]
0x1eb800…1eba00 (163, 1, 9) Index {count=0x0001, a000=Slice {count=0x0011, sector=0x0f5d}}
0x1eba00…1ebc00 (163, 1, 10) DataSector[»YDTST«]
[…0x10…]
0x1edc00…1ede00 (164, 1, 3) UnusedSector ┆40 EXEC LINES 0850 EXEC HIGH 0860 EXEC XY(OLDX,OLDY) 0870 PRINT CHR(128); "O" 0880 OLDX=P*14+C*3+18; OLDY=R+10 0890 EXEC XY(OLDX,OLDY) 0900 PRINT CHR(144); "O"; CHR(128) 0910 EXEC XY(2,20) 0920 PRINT " MY MOVE WAS :"; P+1; R+1; C+1 0930 J=CRT(29) 0940 LET MC=MC+2 0950 M(P+4*R+16*C+1)=2 0960 EXEC LINES 0970 UNTIL MC=64 0980 EXEC XY(27,3) 0990 PRINT CHR(130); "THE GAME IS DRAWN - NO WINNER !!!"; CHR(128) 1000 EXEC SCORE(1,65) 1010 REM 1020 RE┆
0x1ede00…1ee000 (164, 1, 4) UnusedSector ┆M PROCEDURE MAP: DRAW THE BOARD 1030 REM 1040 PROC MAP 1050 PRINT CHR(12) 1060 EXEC XY(40,6) 1070 PRINT "COLUMNS" 1080 EXEC XY(17,8) 1090 PRINT " 1 2 3 4 1 2 3 4 1 2 3 4 1 2 3 4" 1100 PRINT 1110 FOR R=1 TO 4 1120 PRINT " ROWS "; R; " "; 1130 PRINT " ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '" 1140 NEXT R 1150 EXEC XY(18,15) 1160 PRINT "PLANE 1 PLANE 2 PLANE 3 PLANE 4" 1170 ENDPROC 1180 RE┆
0x1ee000…1ee200 (164, 1, 5) UnusedSector ┆M 1190 REM 1200 REM PROCEDURE LINES: FIND THE LINES ON WHICH THE CELL LIES 1210 REM 1220 PROC LINES 1230 FOR Q=1 TO 3 1240 EXEC PRIOR 1250 NEXT Q 1260 IF P=R AND P=C THEN Q=13 1270 IF P=R AND R=3-C THEN Q=10 1280 IF R=C AND R=3-P THEN Q=12 1290 IF P=C AND P=3-R THEN Q=11 1300 EXEC PRIOR 1310 IF P=R THEN 1320 Q=4 1330 EXEC PRIOR 1340 ENDIF 1350 IF R=C THEN 1360 Q=6 1370 EXEC PRIOR 1380 ENDIF 1390 IF P=C THEN 1400 ┆
0x1ee200…1ee400 (164, 1, 6) UnusedSector ┆ Q=5 1410 EXEC PRIOR 1420 ENDIF 1430 IF P=3-R THEN 1440 Q=7 1450 EXEC PRIOR 1460 ENDIF 1470 IF R=3-C THEN 1480 Q=9 1490 EXEC PRIOR 1500 ENDIF 1510 IF P=3-C THEN 1520 Q=8 1530 EXEC PRIOR 1540 ENDIF 1550 ENDPROC 1560 REM 1570 REM 1580 REM PROCEDURE HIGH: FIND THE CELL WITH HIGHEST PRIORITY 1590 PROC HIGH 1600 HV=-99999999 1610 FOR COUNT=1 TO 64 1620 IF M(COUNT)<2 THEN 1630 IF N(COUNT)>HV THEN ┆
0x1ee400…1ee600 (164, 1, 7) UnusedSector ┆ 1640 HV=N(COUNT) 1650 POINTER=1 1660 MAXPRIO(POINTER)=COUNT 1670 ELSE 1680 IF N(COUNT)=HV THEN 1690 POINTER=POINTER+1 1700 MAXPRIO(POINTER)=COUNT 1710 ENDIF 1720 ENDIF 1730 ENDIF 1740 NEXT COUNT 1750 POINTER=INT(RND(0)*POINTER)+1 1760 COUNT=MAXPRIO(POINTER)-1 1770 C=INT(COUNT/16) 1780 R=INT((COUNT-C*16)/4) 1790 P=COUNT-(R*4+C*16) 1800 ENDPROC 1810 REM 1820 REM PROCEDURE PRIOR: ┆
0x1ee600…1ee800 (164, 1, 8) UnusedSector ┆ADD PRIORITY VALUES TO PRIORITY MATRIX 1830 REM 1840 PROC PRIOR 1850 FOR T=0 TO 3 1860 P1=P; R1=R; C1=C 1870 IF Q>8 THEN 1880 IF Q>11 THEN 1890 IF Q=12 THEN 1900 P1=3-T; R1=T; C1=T 1910 ELSE 1920 P1=T; R1=T; C1=T 1930 ENDIF 1940 ELSE 1950 IF Q>10 THEN 1960 P1=T; R1=3-T; C1=T 1970 ELSE 1980 IF Q=10 THEN 1990 P1=T; R1=T; C1=3-T 2000 ELSE 2┆
0x1ee800…1eea00 (164, 1, 9) DataSector[»FORTU«]
[…0x5…]
0x1ef400…1ef600 (165, 0, 3) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x0f7b}}
0x1ef600…1ef800 (165, 0, 4) DataSector[»CLUB«]
[…0x4…]
0x1f0000…1f0200 (165, 0, 9) DataSector[»BATTL«]
[…0x5…]
0x1f0c00…1f0e00 (165, 1, 3) Index {count=0x0001, a000=Slice {count=0x000b, sector=0x0f87}}
0x1f0e00…1f1000 (165, 1, 4) DataSector[»FFT«]
[…0xa…]
0x1f2400…1f2600 (166, 0, 3) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x0f93}}
0x1f2600…1f2800 (166, 0, 4) DataSector[»NBTEM«]
[…0x4…]
0x1f3000…1f3200 (166, 0, 9) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x0f99}}
0x1f3200…1f3400 (166, 0, 10) DataSector[»MENUE«]
[…0x4…]
0x1f3c00…1f3e00 (166, 1, 3) UnusedSector ┆DU ER I EN UHYGGELIG LILLE UNDERLIG LABYRINT. HA HA !! DO BEGIN ERROR:= ERROR+1; LENGTH:= LENGTH SHIFT 1; DU SNUBLER OVER EN GAMMEL OG STØVET BOG, DER ER DATERET 1783. NE.Z0 <> 8'4400 THEN BEGIN IF IZONE.ZREM <> 0 THEN TITLEN ER : 'KAPTAJN KIDDS LOGBOG'. THEN EOF:=FALSE; ERROR:= 0; END; END; IF IZONE.ZREM = 0 THEN IZONE.ZREDU ER KOMMET IND I GNOMKONGENS HULE. HELDIGVIS ER HAN IKKE EDURE OZONEERROR; BEGIN IF ERROR = 0 THEN IF ACTION <> REM┆
0x1f3e00…1f4000 (166, 1, 4) UnusedSector ┆HJEMME I ØJEBLIKKET, MEN DU MÅ VIST HELLERE SE AT KOMME VÆK !!! ND 8'010000 <> 0 THEN ERROR:= 100 ELSE IF OZONE.Z0 AND 8'00UHYGGELIGE TING KAN SKE, HVIS HAN FINDER DIG I HANS HJEM... E.Z0:= OZONE.Z0 AND 8'163777; WHILE OZONE.Z0 > 0 DO BEGIN DU STÅR VED FODEN AF EN MEGET STEJL KLIPPE. PÅ VÆGGEN OVER DIG END; EOF:= TRUE; END; END; BEGIN ERROR :=STÅR SKREVET MED LYSENDE BOGSTAVER : S ( DESCR, INIT, VALUE ); IF VALUE.IN <> EMPTY THEN IF VALUE.OUT <> EMPTY THEN BEG┆
0x1f4000…1f4200 (166, 1, 5) UnusedSector ┆ < BILBO WAS HERE > ; ACTION := OPENIN; CONNECTFILE(IZONE,INPUT,VALUE.IN); SETPOSITION(IZONE,0,VALUE.SIZE);DU ER I KRYSTALDPALADSET . VÆGGENE GIVER GENLYD AF =FALSE; BINDEC(FNR,EFILE); MOVE(EFILE,3,VALUE.OUT,1,2); ÆREFRYGTINDGYDENDE MUSIK. DU MÅ VIDERE, FØR DU FALDER HEN. TFILE(OZONE,OUTPUT,VALUE.OUT); IF ERROR <> 0 THEN GOTO 1000;DU SIDDER FAST I EN MEGET UNDERLIG LILLE LABYRINT ...?? N. (LF); REPEAT FIFO:=0; PUTREC(OZONE,512); REPE┆
0x1f4200…1f4400 (166, 1, 6) UnusedSector ┆MOD VEST STÅR EN DØR PÅ KLEM. DERINDE FRA HØRES T ...?? AT MOVE(IZONE^,I,H,0,1); CHAR:=BYTE H; IF CHAR =MUSIKALSKE OG LOKKENDE STEMMER.... DE FRA HØRES EOF:=TRUE; CHAR:=25; SAVEP:=IZONE.ZBLOCK; DØREN SMÆKKER I ! ! MENS DU FORVIRRET SER DIG OMKRING, INSERT(CHAR,OZONE^,I+FIFO); I:=I+1 UNTIL I=127; DØR DE FALSKE SIRENERS STEMMER LANGSOMT BORT... MKRING, RUE; CLOSE(OZONE,1); SETPOSITION(IZONE,0,SAVEP); ┆
0x1f4400…1f4600 (166, 1, 7) UnusedSector ┆DU ER TRÆNGT IND I QUEST'S FORSØGS- OG UDVIKLINGSAFDELING, ! RC36-00555 PAGE 04 ! IF OZONE.ZMODE <> 0 THE ### ADGANG FORBUDT ### UDVIKLINGSAFDELING, IN IF ACTION > OPENOUT THEN IF OZONE.ZKIND SHIFT DU BEDES OMGÅENDE FORLADE LOKALET !!! REMOVE; REMOVEENTRY ( OZONE ) END; OZONE.ZNAME := S; OZONE.ZKIDU ER BLEVET ADVARET ! DU SKULLE STRAKS FORLADE LOKALET. ); OZONE.ZBLOCK := ERROR; GETREC ( OZONE, LENGTH ); ┆
0x1f4600…1f4800 (166, 1, 8) UnusedSector ┆VAGTERNE VED LABORATORIERNE VIL SKYDE PÅ ENHVER INDTRÆNGER !! EGIN INSERT ( 0, EFILE, 5 ); OPMESS ( EFILE ); OPMEDU HAR DET VARMT, FOR DU BEFINDER DIG PÅ BUNDEN AF EN VULKAN.. := TRUE; FINIS ( ACTION ) END; JORDEN SKÆLVER UNDER DIN FOD, OG DE STÆRKE SVOVLDAMPE SØNDERFLÅR DINE NÆSEBOR OG GØR DET UMULIGT AT ORIENTERE SIG.. PE SØNDERFLÅR ┆
0x1f4800…1f4a00 (166, 1, 9) DataSector[»NZTEM«]
[…0x3b…]
0x1fc000…1fc200 (169, 0, 9) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x0fe1}}
0x1fc200…1fc400 (169, 0, 10) DataSector[»FDT«]
[…0x4…]
0x1fcc00…1fce00 (169, 1, 3) DataSector[»NZTEM«]
[…0x1d…]
0x200800…200a00 (170, 1, 9) Index {count=0x0002, a000=Slice {count=0x0005, sector=0x1005}, a001=Slice {count=0x0006, sector=0x114e}}
0x200a00…200c00 (170, 1, 10) DataSector[»LOGIC«]
[…0x4…]
0x201400…201600 (171, 0, 3) UnusedSector ┆010 R1=T; C1=3-T 2020 ENDIF 2030 ENDIF 2040 ENDIF 2050 ELSE 2060 IF Q>4 THEN 2070 IF Q>6 THEN 2080 IF Q=7 THEN 2090 R1=3-T; P1=T 2100 ELSE 2110 P1=T; C1=3-T 2120 ENDIF 2130 ELSE 2140 IF Q=6 THEN 2150 R1=T; C1=T 2160 ELSE 2170 P1=T; C1=T 2180 ENDIF 2190 ENDIF 2200 ELSE 2210┆
0x201600…201800 (171, 0, 4) UnusedSector ┆ IF Q>2 THEN 2220 IF Q=3 THEN 2230 C1=T 2240 ELSE 2250 P1=T; R1=T 2260 ENDIF 2270 ELSE 2280 IF Q=1 THEN 2290 P1=T 2300 ELSE 2310 R1=T 2320 ENDIF 2330 ENDIF 2340 ENDIF 2350 ENDIF 2360 X1=P1+4*R1+16*C1+1 2370 STORE(T+1)=X1 2380 D=D*M(X1) 2390 NEXT T 2400 EXEC NEWP 2410 FOR T=1 TO 4 2420 N(STORE(T┆
0x201800…201a00 (171, 0, 5) UnusedSector ┆))=N(STORE(T))+S 2430 NEXT T 2440 ENDPROC 2450 REM 2460 REM PROCEDURE NEWP: FIND NEW PRIORITIES 2470 REM 2480 PROC NEWP 2490 S=0 2500 IF D=16 OR D=81 THEN 2510 IF D=16 THEN 2520 EXEC XY(XX,YY) 2530 PRINT CHR(128); "X" 2540 EXEC XY(35,3) 2550 PRINT CHR(146); " I WIN !!! "; CHR(128) 2560 ELSE 2570 EXEC XY(OLDX,OLDY) 2580 PRINT CHR(128); "O" 2590 EXEC XY(35,3) 2600 PRINT CHR(146); " YOU WIN !!! "; CHR(┆
0x201a00…201c00 (171, 0, 6) UnusedSector ┆128) 2610 ENDIF 2620 FOR T=1 TO 4 2630 COOR=STORE(T)-1 2640 C=INT(COOR/16) 2650 R=INT((COOR-C*16)/4) 2660 P=COOR-(C*16+R*4) 2670 EXEC XY(P*14+C*3+18,R+10) 2680 IF D=16 THEN 2690 PRINT CHR(144); "O"; CHR(128) 2700 ELSE 2710 PRINT CHR(144); "X"; CHR(128) 2720 ENDIF 2730 NEXT T 2740 IF D=16 THEN EXEC SCORE(1,16) 2750 IF D=81 THEN EXEC SCORE(1,81) 2760 ENDIF 2770 IF D=6 AND M(P+4*R+16*C┆
0x201c00…201e00 (171, 0, 7) UnusedSector ┆+1)=3 THEN 2780 S=0 2790 ELSE 2800 G=1 2810 REPEAT 2820 Y=B(G) 2830 IF D=A(G) THEN 2840 S=Y; G=9 2850 ENDIF 2860 G=G+1 2870 UNTIL G=10 2880 ENDIF 2890 IF D=8 THEN S=20000 2900 ENDIF 2910 D=1 2920 ENDPROC 2930 REM 2940 REM 2950 REM PRCEDURE POS(X,Y): CURSOR POSITIONONG 2960 REM 2970 PROC XY(XCOR,YCOR) 2980 PRINT CHR(6); CHR(95+XCOR-(XCOR>32)*64-(XCOR>64)*64); 2990 PRINT CHR(95+YCOR); 3000 END┆
0x201e00…202000 (171, 0, 8) UnusedSector ┆PROC 3010 PROC SCORE(RW,E) 3020 IF RW=0 THEN 3030 PRINT CHR(12) 3040 EXEC XY(10,7) 3050 INPUT "PLEASE ENTER YOUR INITIALS (MAX. 4 CHAR) : ",INITIALS$ 3060 INITIALS$(5 : 1)="." 3070 EXEC XY(10,11) 3080 PRINT "PLEASE NOTE, THAT IF YOU BREAK THE GAME AT ANY LATER MOMENT" 3090 PRINT "THAN NOW, THEN YOU WILL BE NOTED FOR A LOSS !!!!!!!" 3100 EXEC XY(10,17) 3110 PRINT "PLEASE ENTER YOUR PASSWORD (MAX. 5 CHAR) : " 3120 I=1 3130 CODE$┆
0x202000…202200 (171, 0, 9) UnusedSector ┆=" " 3140 REPEAT 3150 Y=KEY(0) 3160 IF Y=13 THEN EXIT 3170 CODE$(I : 1)=CHR(Y) 3180 I=I+1 3190 UNTIL Y=13 OR I=6 3200 PRINT CHR(12) 3210 OPEN "SCORE",FV,BUF$,22 3220 COUNTER=1 3230 REPEAT 3240 GET FV,COUNTER : NAMES$,PASS$,GAMES,WON,LOST 3250 COUNTER=COUNTER+1 3260 UNTIL NAMES$=INITIALS$ OR NAMES$="XXXXX" 3270 IF NAMES$="XXXXX" THEN 3280 IF COUNTER>GAMES+1 THEN 3290 PRINT CHR(12) 3300┆
0x202200…202400 (171, 0, 10) UnusedSector ┆ EXEC XY(1,10) 3310 PRINT "SCORE-TABLE FILLED UP!!!!" 3320 PRINT 3330 PRINT "NO ROOM FOR NEW INITIALS." 3340 PRINT 3350 PRINT "YOU MUST USE INITIALS ALREADY EXISTING IN SCORE-TABLE," 3360 PRINT "OR THE TABLE MUST BE EXTENDED (BY SPECIAL PROGRAM)." 3370 STOP 3380 ELSE 3390 UPDINIT$=INITIALS$ 3400 NEWPAS$=CODE$ 3410 EXEC INSERTNEW 3420 COUNTER=1 3430 REPEAT 3440 ┆
0x202400…202600 (171, 0, 11) UnusedSector ┆ GET FV,COUNTER : NAMES$,PASS$,GAMES,WON,LOST 3450 COUNTER=COUNTER+1 3460 UNTIL NAMES$=INITIALS$ 3470 ENDIF 3480 ELSE 3490 IF CODE$<>PASS$ THEN 3500 PRINT CHR(12) 3510 EXEC XY(10,12) 3520 PRINT "YOU HAVE NOT ENTERED THE CORRECT PASSWORD. YOU HAVE TO" 3530 EXEC XY(10,14) 3540 PRINT "START ALL OVER AGAIN, YOU MISERABLE CREATURE !!!" 3550 CLOSE FV 3560 STOP 3570 ENDIF 3580 END┆
0x202600…202800 (171, 0, 12) UnusedSector ┆IF 3590 ON ESC EXEC SCORE(1,16) 3600 GAMES1=GAMES+1; WON1=WON+1 3610 PUT FV,COUNTER-1 : NAMES$,PASS$,GAMES1,WON1,LOST 3620 CLOSE FV 3630 EXEC XY(10,8) 3640 PRINT "NUMBER OF GAMES PLAYED BY YOU UNTIL NOW: "; GAMES 3650 EXEC XY(10,12) 3660 PRINT "RC700 HAS WON :"; WON; " GAMES" 3670 EXEC XY(10,14) 3680 PRINT INITIALS$; " HAS WON :"; LOST; " GAMES" 3690 REPEAT 3700 EXEC XY(1,20) 3710 INPUT "PRESS CARRIAGE-RETURN KEY┆
0x202800…202a00 (171, 1, 1) UnusedSector ┆ TO CONTINUE ! ",VAR$ 3720 UNTIL ORD(VAR$)=255 3730 ELSE 3740 IF E=16 THEN WON=WON+1 3750 IF E=81 THEN LOST=LOST+1 3760 GAMES=GAMES+1 3770 OPEN "SCORE",FV,BUF$,22 3780 PUT FV,COUNTER-1 : INITIALS$,PASS$,GAMES,WON,LOST 3790 CLOSE FV 3800 EXEC XY(1,18) 3810 PRINT CHR(26); 3820 PRINT CHR(31); 3830 EXEC XY(15,20) 3840 PRINT CHR(130); 3850 PRINT " RC700 HAS NOW WON "; WON; " OUT OF "; GAMES; " GAMES" 3860 CHAIN "MENUE"┆
0x202a00…202c00 (171, 1, 2) UnusedSector ┆ 3870 ENDIF 3880 ENDPROC 3890 REM 3900 REM 3910 REM PROCEDURE INSERTNEW TO INSERT NEW MEMBER IN SCORE-TABLE 3920 REM IN ALPHABETICAL ORDER. 3930 REM 3940 PROC INSERTNEW 3950 IGET=0; IPUT=0 3960 REPEAT 3970 IGET=IGET+1; IPUT=IPUT+1 3980 GET FV,IGET : NAMES$,PASS$,GAMES,WON,LOST 3990 FOR I=1 TO 5 DO 4000 AA=ORD(NAMES$(I : 1)) 4010 BB=ORD(UPDINIT$(I : 1)) 4020 IF AA=255 THEN AA=0 4030 IF BB=255 THEN BB=0 4040 IF AA>95 TH┆
0x202c00…202e00 (171, 1, 3) UnusedSector ┆EN AA=AA-32.5 4050 IF BB>95 THEN BB=BB-32.5 4060 IF AA<>BB THEN EXIT 4070 NEXT I 4080 UNTIL BB<AA OR NAMES$="XXXXX" 4090 PUT FV,IPUT : UPDINIT$,NEWPAS$,NUL,NUL,NUL 4100 IGET=IGET+1; IPUT=IPUT+1 4110 IF NAMES$="XXXXX" THEN 4120 PUT FV,IPUT : NAMES$,PASS$,GAMES,NUL,NUL 4130 ELSE 4140 REPEAT 4150 GET FV,IGET : BINIT$,BPAS$,BGAMES,BWON,BLOST 4160 PUT FV,IPUT : NAMES$,PASS$,GAMES,WON,LOST 4170 IGET=IGET+1; IPUT=IPUT+1 4180 ┆
0x202e00…203000 (171, 1, 4) UnusedSector ┆IF BINIT$="XXXXX" THEN 4190 NAMES$=BINIT$ 4200 PASS$=BPAS$ 4210 GAMES=BGAMES 4220 EXIT 4230 ENDIF 4240 GET FV,IGET : NAMES$,PASS$,GAMES,WON,LOST 4250 PUT FV,IPUT : BINIT$,BPAS$,BGAMES,BWON,BLOST 4260 IGET=IGET+1; IPUT=IPUT+1 4270 UNTIL NAMES$="XXXXX" 4280 PUT FV,IPUT : NAMES$,PASS$,GAMES,WON,LOST 4290 ENDIF 4300 ENDPROC INSERTNEW 4310 REM ____________________________________________________________________ 4320┆
0x203000…203200 (171, 1, 5) UnusedSector ┆ REM INITIALIZE SCREEN BEHAVIOR 4330 PROC INITDISPLAY 4340 CURSOR=7; UNDERLINE=7 4350 REM CURSOR : 4,5,6,7. UNDER 5070 REM UNDERLINE 4360 REM 9: UNDERLINE UNDER PRINTING LINE 4370 COM=1; DAT=COM-1 4380 RESET=0 4390 START=32 4400 SCURSOR=8*16 4410 OUT COM,RESET 4420 OUT DAT,4*16+15 4430 OUT DAT,9*16+8 4440 OUT DAT,UNDERLINE*16+10 4450 OUT DAT,CURSOR*16+13 4460 OUT COM,START+3 4470 OUT COM,SCURSOR 4480 OUT DAT,0 4490 OUT DAT,0 4500 ENDPROC ┆
0x203200…203400 (171, 1, 6) UnusedSector ┆ OUT DAT,CURSOR*16+13 4460 OUT COM,START+3 4470 OUT COM,SCURSOR 4480 OUT DAT,0 4490 OUT DAT,0 4500 ENDPROC 0010 REM ********************************************************************* 0020 REM ********************************************************************* 0030 REM ** ** 0040 REM ** PROGRAM NAME: SCOREUP. ** 0050 REM ** VERSION: 81.11.┆
0x203400…203600 (171, 1, 7) UnusedSector ┆ / I(1( A)1%(- 1" : 1" 8O A Y # + 8c ) 1 (P g&9 U . A C5 P C U 0O 0/ P 1 / 0 :"# B/(- MD0 CAT CAT F Y Y =9S ` @ NEW 'x mØ 2 2 Jg . < s Y 6 s DKP0 MT0 p Y H; E Y # ^CAP8 " @ CAP CAP8 DKP FL0 FM┆
0x203600…203800 (171, 1, 8) UnusedSector ┆0 DISK END QB4 A0 "4 J # :5+A D AdD D1 GDP u S WDf v*5 # P p P DZ4 = P R + VF- -(Q % NB7"6:7(U ( 7 # 0 Z :-# */ PZ-B. -C C C C NC "6*7J Z :. :/ P å* 0 Z 2+ 8b ! ! d Rrw æ @ ; B (Y 0 B6J5 0 N*+J' + !Ø 0 8AZ PB0B5 J1JEJ4"-B3 # # M JA 0 8AZ -B0┆
0x203800…203a00 (171, 1, 9) UnusedSector ┆ # ┆
0x203a00…203c00 (171, 1, 10) UnusedSector ┆ 0010 REM ********************************************************************* 0020 REM ********************************************************************* 0030 REM ** ** 0040 REM ** PROGRAM NAME: SCOREUP. ** 0050 REM ** VERSION: 81.11.01. ** 0060 REM ** ┆
0x203c00…203e00 (171, 1, 11) UnusedSector ┆ ** 0070 REM ** THE PROGRAM LISTS ON DISPLAY AND/OR PRINTER THE CONTENTS OF THE ** 0080 REM ** FILE "SCORE" (SCORE-TABLE FOR GAME "XANDO"). ** 0090 REM ** THE PROGRAM CAN ALSO PERFORM SELECTIVE UPDATING OF THE "SCORE" ** 0100 REM ** FILE. ** 0110 REM ** ** 0120 REM ** THIS PROGRAM WAS CREATED BY BQRGE E. LARSEN, RC COMPUTER. ┆
0x203e00…204000 (171, 1, 12) UnusedSector ┆** 0130 REM ** ** 0140 REM ********************************************************************* 0150 REM ********************************************************************* 0160 REM 0170 REM 0180 NUL=0 0190 DIM BUF$(128),BBUF$(128),INIT$(5),BINIT$(5),UPDINIT$(5),PAS$(5),BPAS$(5) 0200 DIM NEWPAS$(5) 0210 ON ESC STOP 0220 REPEAT 0230 EXEC MENU(S) 0240 IF S=49 OR S=50 THEN EXEC LIST(S) 0250 RE┆
0x204000…204200 (172, 0, 1) UnusedSector ┆M ..1.......2..... 0260 IF S=51 OR S=52 THEN EXEC UPDAT(S) 0270 REM ..3.......4..... 0280 IF S=53 OR S=54 THEN EXEC SCORMOD(S) 0290 REM ..5.......6.... 0300 UNTIL S=55 OR S=81 OR S=113 0310 REM .....7......'Q'.....'Q'..... 0320 PRINT CHR(12) 0330 STOP 0340 REM ____________________________________________________________________ 0350 REM 0360 PROC MENU(SS) 0370 PRINT CHR(12) 0380 EXEC YX(2,37) 0390 PRINT "MENU" 0400 EXEC YX(3,37) 0410 PRINT "====" 0420 ┆
0x204200…204400 (172, 0, 2) UnusedSector ┆EXEC YX(6,1) 0430 PRINT "1: LISTING OF MEMBERS IN SCORE-TABLE." 0440 PRINT 0450 PRINT "2: LISTING WITH PRINTING OF MEMBERS IN SCORE-TABLE." 0460 PRINT 0470 PRINT "3: INSERTION, UPDATING OR DELETION OF SELECTED MEMBERS." 0480 PRINT 0490 PRINT "4: LISTING, UPDATING OR DELETION, MEMBER BY MEMBER." 0500 PRINT 0510 PRINT "5: CREATION OF NEW (EMPTY) SCORE-TABLE." 0520 PRINT 0530 PRINT "6: CHANGE LENGHT OF EXISTING SCORE-TABLE." 0540 PRINT 0550 PRINT "7: EX┆
0x204400…204600 (172, 0, 3) UnusedSector ┆IT FROM THE PROGRAM." 0560 PRINT 0570 PRINT 0580 PRINT "KEY IN THE NUMBER OF THE SELECTED OPERATION: " 0590 EXEC YX(21,47) 0600 S=KEY(0) 0610 ENDPROC MENU 0620 REM ____________________________________________________________________ 0630 REM 0640 REM PROCEDURE LIST FOR LISTING AND/OR PRINTING OF MEMBERS OF SCORE-TABLE. 0650 REM 0660 PROC LIST(SS) 0670 OPEN "SCORE",F,BUF$,22 0680 REPEAT 0690 REPEAT 0700 PRINT CHR(12) 0710 EXEC YX(8,1┆
0x204600…204800 (172, 0, 4) UnusedSector ┆) 0720 PRINT "TO LIST, PRESS DOWN THE SPACE BAR." 0730 PRINT 0740 PRINT 0750 PRINT "TO EXIT, KEY IN 'Q'." 0760 EXEC YX(16,1) 0770 PRINT "ENTER YOUR COMMAND: " 0780 EXEC YX(16,22) 0790 Y=KEY(0) 0800 UNTIL Y=32 OR Y=81 OR Y=113 0810 REM ...<SP>.....'Q'.....'Q'... 0820 IF Y=32 THEN 0830 I=1; J=4 0840 IF SS=50 THEN EXEC INITPRT 0850 PRINT CHR(12) 0860 EXEC YX(1,10) 0870 PRINT "INITIALS: ┆
0x204800…204a00 (172, 0, 5) UnusedSector ┆ PASSWORD: GAMES: WON: LOST:" 0880 EXEC YX(2,10) 0890 PRINT "========= ========= ====== ==== =====" 0900 REPEAT 0910 GET F,I : INIT$,PAS$,GAMES,WON,LOST 0920 EXEC YX(J,12) 0930 PRINT INIT$; TAB(12); PAS$; TAB(22); 0940 PRINT USING "#### #### ####" : GAMES,LOST,WON 0950 J=J+(J<24)*1 0960 IF J=24 THEN 0970 J=J-1 0980 PRINT CHR(10) 0990 EXEC YX(1,10) 1000 PR┆
0x204a00…204c00 (172, 0, 6) UnusedSector ┆INT "INITIALS: PASSWORD: GAMES: WON: LOST:" 1010 EXEC YX(2,10) 1020 PRINT "========= ========= ====== ==== =====" 1030 ENDIF 1040 IF SS=50 THEN 1050 OUTPUT P 1060 PRINT TAB(12); INIT$; TAB(24); PAS$; TAB(34); 1070 PRINT USING "#### #### ####" : GAMES,LOST,WON 1080 OUTPUT C 1090 ENDIF 1100 I=I+1 1110 Z=KEY(0) 1120 UNTIL Z<>32 OR INIT$="XXXXX" 1130 ┆
0x204c00…204e00 (172, 0, 7) UnusedSector ┆ PRINT TAB(9); "=============================================" 1140 IF SS=50 THEN 1150 OUTPUT P 1160 PRINT 1170 PRINT TAB(10); "=============================================" 1180 OUTPUT C 1190 ENDIF 1200 ENDIF 1210 UNTIL Y=81 OR Y=113 1220 CLOSE F 1230 ENDPROC LIST 1240 REM ____________________________________________________________________ 1250 REM 1260 REM PROCEDURE UPDAT FOR UPDATING OF ONE OR MORE MEMBERS OF 1270 REM ┆
0x204e00…205000 (172, 0, 8) UnusedSector ┆SCORE-TABLE. 1280 REM 1290 PROC UPDAT(SS) 1300 SIZEFLAG=0 1310 OPEN "SCORE",F,BUF$,22 1320 IF SS=51 THEN 1330 PRINT CHR(12) 1340 EXEC YX(3,22) 1350 PRINT "UPDATING OR INSERTION OF MEMBER(S)." 1360 EXEC YX(4,22) 1370 PRINT "===================================" 1380 LOOP 1390 REPEAT 1400 EXEC YX(7,0) 1410 PRINT CHR(31) 1420 EXEC YX(10,1) 1430 PRINT "SELECT FUNCTION:" 1440 PRINT 1450 PRI┆
0x205000…205200 (172, 0, 9) UnusedSector ┆NT " 'SPACE': UPDATE OR DELETE MEMBER." 1460 PRINT 1470 PRINT " I : INSERT NEW MEMBER." 1480 PRINT 1490 PRINT " Q : EXIT." 1500 PRINT 1510 PRINT 1520 PRINT "INPUT THE SELECTED FUNCTION CODE: " 1530 EXEC YX(19,35) 1540 Y=KEY(0) 1550 UNTIL Y=32 OR Y=73 OR Y=105 OR Y=81 OR Y=113 1560 REM ...'SP'....'I'......'I'.....'Q'......'Q'.... 1570 IF Y=81 OR Y=113 THEN EXIT 1580 ┆
0x205200…205400 (172, 0, 10) UnusedSector ┆ EXEC YX(6,2) 1590 REPEAT 1600 PRINT CHR(31) 1610 EXEC YX(12,2) 1620 PRINT "INPUT INITIALS FOR THE MEMBER" 1630 INPUT " WHICH IS TO BE UPDATED, DELETED OR INSERTED: ",UPDINIT$ 1640 IF UPDINIT$="XXXXX" THEN 1650 EXEC YX(8,10) 1660 PRINT "'XXXXX' NOT ALLOWED AS INITIALS!!!" 1670 ENDIF 1680 UNTIL UPDINIT$<>"XXXXX" 1690 IGET=0; IPUT=0 1700 REPEAT 1710 IGET=IGET+1; IPUT=IPUT+1 1720┆
0x205400…205600 (172, 0, 11) UnusedSector ┆ GET F,IGET : INIT$,PAS$,GAMES,WON,LOST 1730 UNTIL INIT$=UPDINIT$ OR INIT$="XXXXX" 1740 IF INIT$="XXXXX" THEN 1750 IF Y=73 OR Y=105 THEN 1760 SIZEFLAG=((IGET+1)>GAMES+1) 1770 IF SIZEFLAG=1 THEN 1780 EXEC YX(7,0) 1790 PRINT CHR(31) 1800 EXEC YX(10,10) 1810 PRINT "NO MORE SPACE IN SCORE-TABLE!!!!" 1820 EXEC YX(12,10) 1830 PRINT "BEFORE INSERTION OF NEW MEMBER," 184┆
0x205600…205800 (172, 0, 12) UnusedSector ┆0 EXEC YX(13,10) 1850 PRINT "THE LENGHT OF SCORE-TABLE SHOULD BE EXTENDED." 1860 EXEC YX(15,10) 1870 PRINT "THE PRESENT LENGHT OF SCORE-TABLE IS"; GAMES; "MEMBERS." 1880 EXEC YX(20,5) 1890 PRINT "TO GET A NEW MENU, PRESS ANY KEY: " 1900 EXEC YX(20,39) 1910 Y=KEY(0) 1920 EXIT 1930 ENDIF 1940 REPEAT 1950 EXEC YX(7,1) 1960 PRINT CHR(3┆
0x205800…205a00 (172, 1, 1) UnusedSector ┆1) 1970 PRINT "INSERT NEW MEMBER '"; UPDINIT$; "' ? (Y/N): " 1980 EXEC YX(8,35) 1990 Z=KEY(0) 2000 UNTIL Z=89 OR Z=121 OR Z=78 OR Z=110 2010 REM ...'Y'......'Y'.....'N'......'N'..... 2020 IF Z=78 OR Z=110 THEN EXIT 2030 EXEC YX(12,1) 2040 INPUT "INPUT PASSWORD FOR NEW MEMBER: ",NEWPAS$ 2050 EXEC INSERTNEW 2060 ELSE 2070 EXEC YX(6,2) 2080 IF UPDINIT$<>"XXXXX" T┆
0x205a00…205c00 (172, 1, 2) UnusedSector ┆HEN PRINT "MEMBER NOT FOUND!!!" 2090 ENDIF 2100 IF SIZEFLAG=1 THEN EXIT 2110 ELSE 2120 EXEC UPDMEMB(IGET,IPUT,SS) 2130 ENDIF 2140 IF SIZEFLAG=1 THEN EXIT 2150 EXEC YX(6,0) 2160 PRINT CHR(31) 2170 ENDLOOP 2180 ELSE 2190 PRINT CHR(12) 2200 EXEC YX(2,30) 2210 PRINT "UPDATE MEMBER" 2220 EXEC YX(3,30) 2230 PRINT "=============" 2240 IGET=1; IPUT=1 2250 REPEAT 2260 GET F,IGET :┆
0x205c00…205e00 (172, 1, 3) UnusedSector ┆ INIT$,PAS$,GAMES,WON,LOST 2270 IF INIT$="XXXXX" THEN 2280 PUT F,IPUT : INIT$,PAS$,GAMES,WON,LOST 2290 SS=0 2300 EXEC UPDMEMB(0,0,SS) 2310 PRINT 2320 ELSE 2330 EXEC UPDMEMB(IGET,IPUT,SS) 2340 IGET=IGET+1; IPUT=IPUT+1 2350 ENDIF 2360 UNTIL INIT$="XXXXX" 2370 ENDIF 2380 CLOSE F 2390 ENDPROC UPDAT 2400 REM ____________________________________________________________________ 2410 REM 2420 REM PROCEDUR┆
0x205e00…206000 (172, 1, 4) UnusedSector ┆E UPDMEMB FOR UPDATING OF A SELECTED MEMBER. 2430 REM 2440 PROC UPDMEMB(IIGET,IIPUT,SSS) 2450 EXEC YX(4,0) 2460 PRINT CHR(31) 2470 EXEC YX(7,1) 2480 PRINT "MEMBER DATA:" 2490 EXEC YX(9,10) 2500 PRINT "INITIALS: PASSWORD: GAMES: WON: LOST:" 2510 EXEC YX(10,10) 2520 PRINT "========= ========= ====== ==== =====" 2530 PRINT 2540 PRINT TAB(11); INIT$; TAB(23); PAS$; TAB(33); 2550 PRINT USING "#### #### ####" : GAMES,LOST,WON 2560 PRINT ┆
0x206000…206200 (172, 1, 5) UnusedSector ┆ 2570 IF SSS=0 AND IGET=1 THEN 2580 PRINT 2590 PRINT 2600 PRINT 2610 PRINT "NO MEMBERS IN SCORE-TABLE" 2620 PRINT " (- EXCEPT FOR THE SYSTEM RECORD XXXXX) !!!" 2630 PRINT 2640 PRINT 2650 PRINT "- TO GET THE MENU, PRESS ANY KEY." 2660 Y=KEY(0) 2670 ENDIF 2680 IF SSS=0 THEN EXIT 2690 PRINT 2700 PRINT "PLEASE SELECT OPERATION: " 2710 PRINT 2720 PRINT " 'SPACE': NO CHANGE OF MEMBER DATA." 2730 PRINT 2740 PRI┆
0x206200…206400 (172, 1, 6) UnusedSector ┆NT " 'D' : DELETE MEMBER." 2750 PRINT 2760 PRINT " 'P' : CHANGE PASSWORD." 2770 REPEAT 2780 EXEC YX(23,2) 2790 PRINT "OPERATION: " 2800 EXEC YX(23,15) 2810 Y=KEY(0) 2820 UNTIL Y=32 OR Y=68 OR Y=100 OR Y=80 OR Y=112 2830 REM ..."SP"...."D"......"D"....."P"......"P".... 2840 IF Y=80 OR Y=112 THEN 2850 EXEC YX(12,1) 2860 PRINT CHR(31) 2870 EXEC YX(17,1) 2880 INPUT "KEY IN NEW PASSWORD (MAX. 5 CHAR.): ",PAS$ 2890 PUT F,┆
0x206400…206600 (172, 1, 7) UnusedSector ┆IIPUT : INIT$,PAS$,GAMES,WON,LOST 2900 ENDIF 2910 IF Y=68 OR Y=100 THEN 2920 IIPUT=IIPUT-1 2930 IF SSS=51 THEN 2940 REPEAT 2950 IIGET=IIGET+1; IIPUT=IIPUT+1 2960 GET F,IIGET : INIT$,PAS$,GAMES,WON,LOST 2970 PUT F,IIPUT : INIT$,PAS$,GAMES,WON,LOST 2980 UNTIL INIT$="XXXXX" 2990 ENDIF 3000 ENDIF 3010 ENDPROC UPDMEMB 3020 REM ____________________________________________________________________ 3030 REM 3040 REM PROCEDURE ┆
0x206600…206800 (172, 1, 8) UnusedSector ┆INSERTNEW FOR INSERTING OF NEW MEMBER IN 3050 REM ALPHABETICAL ORDER. 3060 REM 3070 PROC INSERTNEW 3080 IGET=0; IPUT=0 3090 REPEAT 3100 IGET=IGET+1; IPUT=IPUT+1 3110 GET F,IGET : INIT$,PAS$,GAMES,WON,LOST 3120 FOR I=1 TO 5 DO 3130 A=ORD(INIT$(I : 1)) 3140 B=ORD(UPDINIT$(I : 1)) 3150 IF A=255 THEN A=32 3160 IF B=255 THEN B=32 3170 IF A>95 THEN A=A-32.5 3180 IF B>95 THEN B=B-32.5 3190 IF A<>B THEN EXIT 3200 NEXT ┆
0x206800…206a00 (172, 1, 9) UnusedSector ┆I 3210 UNTIL B<A OR INIT$="XXXXX" 3220 PUT F,IPUT : UPDINIT$,NEWPAS$,NUL,NUL,NUL 3230 IGET=IGET+1; IPUT=IPUT+1 3240 IF INIT$="XXXXX" THEN 3250 PUT F,IPUT : INIT$,PAS$,GAMES,NUL,NUL 3260 ELSE 3270 REPEAT 3280 GET F,IGET : BINIT$,BPAS$,BGAMES,BWON,BLOST 3290 PUT F,IPUT : INIT$,PAS$,GAMES,WON,LOST 3300 IGET=IGET+1; IPUT=IPUT+1 3310 IF BINIT$="XXXXX" THEN 3320 INIT$=BINIT$ 3330 PAS$=BPAS$ 3340 GAMES=BGAMES 3350 ┆
0x206a00…206c00 (172, 1, 10) UnusedSector ┆ EXIT 3360 ENDIF 3370 GET F,IGET : INIT$,PAS$,GAMES,WON,LOST 3380 PUT F,IPUT : BINIT$,BPAS$,BGAMES,BWON,BLOST 3390 IGET=IGET+1; IPUT=IPUT+1 3400 UNTIL INIT$="XXXXX" 3410 PUT F,IPUT : INIT$,PAS$,GAMES,NUL,NUL 3420 ENDIF 3430 ENDPROC INSERTNEW 3440 REM ____________________________________________________________________ 3450 REM 3460 REM PROCEDURE SCORMOD(SS) FOR CREATING NEW "SCORE" TABLE OR 3470 REM FOR EXTENDING LENGHT OF EXISTING TABLE. ┆
0x206c00…206e00 (172, 1, 11) UnusedSector ┆ 3480 REM 3490 PROC SCORMOD(SS) 3500 PRINT CHR(12) 3510 EXEC YX(5,20) 3520 IF SS=53 THEN 3530 PRINT "CREATION OF NEW (EMPTY) SCORE-TABLE." 3540 EXEC YX(6,20) 3550 PRINT "====================================" 3560 EXEC YX(8,10) 3570 PRINT "ANY EXISTING SCORE-FILE MUST BE DELETED BEFORE" 3580 EXEC YX(9,10) 3590 PRINT "A NEW SCORE-FILE CAN BE CREATED!!!" 3600 EXEC YX(12,5) 3610 PRINT "SELECT OPERATION:" 3620 PRINT 3630 PRINT " ┆
0x206e00…207000 (172, 1, 12) UnusedSector ┆ D: DELETE EXISTING SCORE-FILE AND CREATE A NEW ONE." 3640 PRINT 3650 PRINT " N: CREATE NEW SCORE-FILE. NO FILE WITH NAME 'SCORE'" 3660 PRINT " EXISTS ON THE DISKETTE." 3670 PRINT 3680 PRINT " Q: EXIT." 3690 PRINT 3700 PRINT 3710 PRINT " INPUT THE SELECTED OPERATION: " 3720 REPEAT 3730 EXEC YX(22,37) 3740 Y=KEY(0) 3750 UNTIL Y=68 OR Y=100 OR Y=78 OR Y=110 OR Y=81 OR Y=113 3760 REM ...'┆
0x207000…207200 (173, 0, 1) UnusedSector ┆D'......'D'.....'N'......'N'.....'Q'......'Q'... 3770 IF Y=81 OR Y=113 THEN EXIT 3780 IF Y=68 OR Y=100 THEN DELETE "SCORE" 3790 EXEC YX(8,1) 3800 PRINT CHR(31) 3810 EXEC MEMBSINP(MEMBS) 3820 PRINT "CREATING NEW SCORE-TABLE WITH"; MEMBS; "MEMBERS." 3830 RECS=MEMBS+1 3840 CREATE "SCORE",F,BUF$,22,RECS 3850 INIT$="XXXXX" 3860 PAS$=" " 3870 PUT F,1 : INIT$,PAS$,MEMBS,NUL,NUL 3880 ELSE 3890 PRINT "CHANGE OF LENGHT OF SCORE-TABLE." ┆
0x207200…207400 (173, 0, 2) UnusedSector ┆ 3900 EXEC YX(6,20) 3910 PRINT "================================" 3920 EXEC MEMBSINP(MEMBS) 3930 PRINT "CHANGING SCORE-TABLE TO ALLOW A MAXIMUM OF"; MEMBS; "MEMBERS." 3940 RECS=MEMBS+1 3950 OPEN "SCORE",F,BUF$,22 3960 CREATE "INTER",FF,BBUF$,22,RECS 3970 COUNT=1 3980 REPEAT 3990 GET F,COUNT : INIT$,PAS$,GAMES,WON,LOST 4000 PUT FF,COUNT : INIT$,PAS$,GAMES,WON,LOST 4010 COUNT=COUNT+1 4020 UNTIL INIT$="XXXXX" OR COUNT>RECS 40┆
0x207400…207600 (173, 0, 3) UnusedSector ┆30 CLOSE F 4040 DELETE "SCORE" 4050 CREATE "SCORE",F,BUF$,22,RECS 4060 COUNT=0 4070 REPEAT 4080 COUNT=COUNT+1 4090 GET FF,COUNT : INIT$,PAS$,GAMES,WON,LOST 4100 PUT F,COUNT : INIT$,PAS$,GAMES,WON,LOST 4110 UNTIL INIT$="XXXXX" OR COUNT=>RECS 4120 INIT$="XXXXX" 4130 PAS$=" " 4140 PUT F,COUNT : INIT$,PAS$,MEMBS,NUL,NUL 4150 CLOSE FF 4160 DELETE "INTER" 4170 ENDIF 4180 CLOSE F 4190 ENDPROC SCORMOD 4200 REM ┆
0x207600…207800 (173, 0, 4) UnusedSector ┆____________________________________________________________________ 4210 REM 4220 REM PROCEDURE MEMBSINP FOR INPUT AND CHECK OF MAX. NO. OF 4230 REM MEMBERS IN SCORE-TABLE. 4240 REM 4250 PROC MEMBSINP(MMEMBS) 4260 REPEAT 4270 EXEC YX(12,10) 4280 INPUT "INPUT MAX. NUMBER OF MEMBERS IN NEW SCORE-TABLE: ",MMEMBS 4290 EXEC YX(12,0) 4300 PRINT CHR(31) 4310 IF MMEMBS<1 THEN 4320 EXEC YX(15,10) 4330 PRINT "NUMBER TOO LOW!!! (1 IS LOWEST ALLOWABLE┆
0x207800…207a00 (173, 0, 5) UnusedSector ┆ VALUE)." 4340 ENDIF 4350 IF MMEMBS>1000 THEN 4360 EXEC YX(15,10) 4370 PRINT "NUMBER TOO HIGH!!! (1000 IS HIGHEST ALLOWABLE VALUE)." 4380 ENDIF 4390 UNTIL MMEMBS>0 AND MMEMBS<1001 4400 EXEC YX(12,10) 4410 PRINT CHR(31) 4420 ENDPROC MEMBSINP 4430 REM ____________________________________________________________________ 4440 REM 4450 REM PROCEDURE INITPRT FOR INITIALIZING THE PRINTER 4460 REM 4470 PROC INITPRT 4480 OUTPUT P 4490 FOR K=┆
0x207a00…207c00 (173, 0, 6) UnusedSector ┆1 TO 10 4500 PRINT 4510 NEXT K 4520 PRINT " INITIALS: PASSWORD: GAMES: WON: LOST:" 4530 PRINT " ========= ========= ====== ==== =====" 4540 PRINT 4550 OUTPUT C 4560 ENDPROC INITPRT 4570 REM ____________________________________________________________________ 4580 REM 4590 REM PROCEDURE YX(LINE-NO.,CHAR.-POS) FOR CURSOR POSITIONING 4600 REM 4610 PROC YX(YCOR,XCOR) 4620 DUMMY=CRT(6)+CRT(95+XCOR-(XCOR>32)*64-(XCOR>64)*64)+CRT(95+YC┆
0x207c00…207e00 (173, 0, 7) UnusedSector ┆OR) 4630 ENDPROC YX 4640 REM 4650 REM ********************************************************************** 4660 REM ********************************************************************** *********************************** 46XXXXX H g NNN . b b XXXXX d ┆
0x207e00…208000 (173, 0, 8) UnusedSector ┆ D $ $RY O FFL NI E D $ $ UBYS ,NUTII S D $ $B ERIWDNNI G N IOESR CERO D D $ $ EP D $ $ W IRETL CO K D $ $ u LIELAG,LD VECI EER D $ $ ESVRDE E FO D $ $ÅW LBCO KELGNHTE RRRO D $ $ * D TA AALET D $ $ * APIRYTE RRRO D $ $ 8 E TO D $ $9 F OPISITNOE RRRO D $ $ :┆
0x208000…208200 (173, 0, 9) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x1041}}
0x208200…208400 (173, 0, 10) DataSector[»I«]
[…0x4…]
0x208c00…208e00 (173, 1, 3) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x1047}}
0x208e00…209000 (173, 1, 4) DataSector[»L9«]
[…0x4…]
0x209800…209a00 (173, 1, 9) Index {count=0x0002, a000=Slice {count=0x0005, sector=0x104d}, a001=Slice {count=0x0006, sector=0x10dc}}
0x209a00…209c00 (173, 1, 10) DataSector[»FFT1«]
[…0x4…]
0x20a400…20a600 (174, 0, 3) UnusedSector ┆ S ┆
0x20a600…20a800 (174, 0, 4) UnusedSector ┆ 0010 REM KOSTBEREGNING AF JENS DØSSING OG PETER B YDE 0020 REM VERSION FRA 26/5/78 0030 REM RC 701 VERSION AF F G KNUDSEN, RISMØLLESKOLEN 0040 REM FEBRUAR 80. 0050 REM MINDRE MODIFIKATIONEN VED ERLING SCHMIDT 0055 ON ESC CHAIN "MENU" 0060 DIM BUFFER$(128),BILLED$(7),SVAR$(1) 0070 DIM STIP$(75),LINIE$(75) 0080 D=15; MR=5; MI=6; L=18 0090 STIP$="..................:......:......:......:......:" 0100 STIP$=STIP$+"......:......:......:......:" 0110 LINIE$="---------------------------------┆
0x20a800…20aa00 (174, 0, 5) UnusedSector ┆-----" 0120 LINIE$=LINIE$+"-------------------------------------" 0130 DIM RNAVN$(MR,L),X$(L),SUM(6,D),V(D) 0140 DIM VARE(MR,MI),MÆNGDE(MR,MI),SUMMÆNG(MR) 0150 DIM INGR(MI),GEM(MR*MI,D) 0160 DIM VNAVN$(MI*MR,L) 0170 OPEN "DATKOST",IND,BUFFER$,20 0180 EXEC TALIND 0190 EXEC FILFIND 0200 EXEC UDSKRIFT 0210 EXEC VURDER 0220 END KOSTBEREGNING 0230 REM //----------// 0240 PROC TALIND 0250 PRINT CHR(12) 0260 REPEAT 0270 INPUT " ANTAL RETTER : ",RET 0280 IF RET>MR THE┆
0x20aa00…20ac00 (174, 0, 6) UnusedSector ┆N 0290 PRINT "DER MÅ HØJST ANGIVES"; MR; "RETTER." 0300 ENDIF 0310 PRINT 0320 UNTIL RET<=MR 0330 FOR T=1 TO RET 0340 PRINT 0350 PRINT " HVAD HEDDER RET NR.:"; T; 0360 INPUT RNAVN$(T) 0370 REPEAT 0380 INPUT " HVOR MANGE INGREDIENSER ER DER I RETTEN: ",INGR(T) 0390 IF INGR(T)>MI THEN 0400 PRINT "DER MÅ HØJST VÆRE"; MI; "INGREDIENSER." 0410 ENDIF 0420 PRINT 0430 UNTIL INGR(T)<=MI 0440 IF T=1 THE┆
0x20ac00…20ae00 (174, 0, 7) UnusedSector ┆N 0450 PRINT " NU SKAL DU ANGIVE FØDEVARENUMMER IFØLGE FØDEVARE-" 0460 PRINT " LISTEN SAMT DEN ANVENDTE MÆNGDE AF HVER VARE." 0470 ELSE 0480 PRINT " FØDEVARENUMMER OG MÆNGDE ANGIVES." 0490 ENDIF 0500 PRINT 0510 FOR Z=1 TO INGR(T) 0520 INPUT " FØDEVARE NR.: ",VARE(T,Z) 0530 IF VARE(T,Z)<1 OR VARE(T,Z)>205 THEN GO TO 0520 0540 GET IND,VARE(T,Z)*4-2 : VNAVN$(1) 0550 PRINT VNAVN$(1), 0560 INPUT "OK? ",VNAVN$(2) 057┆
0x20ae00…20b000 (174, 0, 8) UnusedSector ┆0 IF VNAVN$(2)<>"" AND VNAVN$(2)<>"JA" THEN GO TO 0520 0580 INPUT " ANTAL GRAM : ",MÆNGDE(T,Z) 0590 SUMMÆNG(T)=SUMMÆNG(T)+MÆNGDE(T,Z) 0600 NEXT Z 0610 MAX1=MAX1+SUMMÆNG(T) 0620 PRINT 0630 NEXT T 0640 ENDPROC TALIND 0650 REM //----------// 0660 PROC FILFIND 0670 FOR T=1 TO RET 0680 FOR Z=1 TO INGR(T) 0690 Z1=VARE(T,Z)*4-2 0700 Z2=(T-1)*MI+Z 0710 GET IND,Z1 : VNAVN$(Z2) 0720 GET IND,Z1+1 : V(1),V(2),V(3),V(4),V(5) ┆
0x20b000…20b200 (174, 0, 9) UnusedSector ┆ 0730 GET IND,Z1+2 : V(6),V(7),V(8),V(9),V(10) 0740 GET IND,Z1+3 : V(11),V(12),V(13),V(14),V(15) 0750 FOR Y=1 TO D 0760 P=V(Y)*MÆNGDE(T,Z)/100 0770 SUM(T,Y)=SUM(T,Y)+P 0780 SUM(6,Y)=SUM(6,Y)+P 0790 GEM((T-1)*MI+Z,Y)=P 0800 NEXT Y 0810 NEXT Z 0820 NEXT T 0830 CLOSE IND 0840 ENDPROC FILFIND 0850 REM //----------// 0860 PROC UDSKRIFT 0870 FOR T=1 TO RET 0880 EXEC FORTSÆT 0890 VKOL=2; HKOL=7 0900 PRIN┆
0x20b200…20b400 (174, 0, 10) UnusedSector ┆T " "; RNAVN$(T) 0910 PRINT 0920 EXEC ENERGI 0930 EXEC TALUD 0940 EXEC FORTSÆT 0950 PRINT " "; RNAVN$(T) 0960 VKOL=8; HKOL=15 0970 EXEC VITAMINERAL 0980 EXEC TALUD 0990 NEXT T 1000 EXEC FORTSÆT 1010 T=6 1020 ENDPROC UDSKRIFT 1030 REM //----------// 1040 PROC TALUD 1050 Z=0 1060 REPEAT 1070 Z=Z+1 1080 PRINT VNAVN$((T-1)*MI+Z); TAB(18); ":"; 1090 IF VKOL=2 THEN 1100 UD=MÆNGDE(T,Z) 1110 EXEC USIN┆
0x20b400…20b600 (174, 0, 11) UnusedSector ┆(UD) 1120 UD=GEM((T-1)*MI+Z,1) 1130 EXEC USIN(UD) 1140 ENDIF 1150 FOR Y=VKOL TO HKOL 1160 UD=GEM((T-1)*MI+Z,Y) 1170 EXEC USIN(UD) 1180 NEXT Y 1190 PRINT 1200 UNTIL Z=INGR(T) 1210 PRINT STIP$ 1220 PRINT "INDHOLD IALT"; TAB(18); ":"; 1230 EXEC SUMMEN 1240 IF VKOL=2 THEN EXEC PROCENT 1250 PRINT LINIE$ 1260 ENDPROC TALUD 1270 REM //----------// 1280 PROC ENERGI 1290 PRINT TAB(18); ": : : FEDTSTOF : KULHYDR┆
0x20b600…20b800 (174, 0, 12) UnusedSector ┆AT :"; 1300 PRINT " PROTEIN :" 1310 PRINT TAB(18); ":NETTO :KILO- : IALT :POLY- : IALT :"; 1320 PRINT "SLAG- : IALT :ESSENT:" 1330 PRINT TAB(18); ": :JOULE : :UMÆTT.: :"; 1340 PRINT "GER : :AMINOS:" 1350 IF T<=5 THEN 1360 PRINT "FØDEVARENAVN"; 1370 ELSE 1380 PRINT "RET"; 1390 ENDIF 1400 PRINT TAB(18); ": GRAM : KJ : GRAM : GRAM : GRAM :"; 1410 PRINT " GRAM : GRAM : GRAM :" 1420 PRINT LINIE$ 1430 ENDPROC ENERGI ┆
0x20b800…20ba00 (174, 1, 1) UnusedSector ┆1440 REM //----------// 1450 PROC VITAMINERAL 1460 PRINT TAB(18); ":"; TAB(35); "VITAMINER"; 1470 PRINT TAB(60); ": MINERALER :" 1480 PRINT TAB(18); ": A : D : E : C : B1 :"; 1490 PRINT " B2 : CA : FE :" 1500 PRINT TAB(18); ":MIKRO-:MIKRO-:MILLI-:MILLI-:"; 1510 PRINT "MIKRO-:MIKRO-:MILLI-:MILLI-:" 1520 IF T<=5 THEN 1530 PRINT "FØDEVARENAVN"; 1540 ELSE 1550 PRINT "RET"; 1560 ENDIF 1570 PRINT TAB(18); ": GRAM : GRAM : GRAM : G┆
0x20ba00…20bc00 (174, 1, 2) UnusedSector ┆RAM :"; 1580 PRINT " GRAM : GRAM : GRAM : GRAM :" 1590 PRINT LINIE$ 1600 ENDPROC VITAMINERAL 1610 REM //----------// 1620 PROC SUMMEN 1630 IF VKOL=2 THEN 1640 UD=SUMMÆNG(T) 1650 EXEC USIN(UD) 1660 UD=SUM(T,1) 1670 EXEC USIN(UD) 1680 ENDIF 1690 FOR Y=VKOL TO HKOL 1700 UD=SUM(T,Y) 1710 EXEC USIN(UD) 1720 NEXT Y 1730 PRINT 1740 ENDPROC SUMMEN 1750 REM //----------// 1760 PROC PROCENT 1770 PRINT "ENERGI-PROCENT"; TAB(32); ":"; ┆
0x20bc00…20be00 (174, 1, 3) UnusedSector ┆ 1780 F=100/(SUM(T,2)*9.3+(SUM(T,4)+SUM(T,6))*4.1) 1790 FOR Y=VKOL TO HKOL 1800 IF Y<4 THEN 1810 PRO=SUM(T,Y)*9.3*F 1820 ELSE 1830 PRO=SUM(T,Y)*4.1*F 1840 ENDIF 1850 EXEC USIN(PRO) 1860 NEXT Y 1870 PRINT 1880 ENDPROC PROCENT 1890 REM //----------// 1900 PROC VURDER 1910 PRINT CHR(12) 1920 VKOL=2; HKOL=7 1930 PRINT " S A M L E T V U R D E R I N G" 1940 PRINT 1950 FOR Q=1 TO 2 1960 IF VKOL=2 THEN EXEC ENERGI 1970 ┆
0x20be00…20c000 (174, 1, 4) UnusedSector ┆ IF VKOL=8 THEN EXEC VITAMINERAL 1980 FOR T=1 TO RET 1990 PRINT RNAVN$(T); TAB(18); ":"; 2000 EXEC SUMMEN 2010 NEXT T 2020 T=6 2030 PRINT STIP$ 2040 PRINT "INDHOLD IALT :"; 2050 IF VKOL=2 THEN 2060 UD=MAX1 2070 EXEC USIN(UD) 2080 UD=SUM(6,1) 2090 EXEC USIN(UD) 2100 ENDIF 2110 FOR Y=VKOL TO HKOL 2120 UD=SUM(6,Y) 2130 EXEC USIN(UD) 2140 NEXT Y 2150 PRINT 2160 PRINT "IN┆
0x20c000…20c200 (174, 1, 5) UnusedSector ┆DHOLD/1000 KJ :"; 2170 F=1000/SUM(6,1) 2180 IF VKOL=2 THEN 2190 UD=MAX1*F 2200 EXEC USIN(UD) 2210 PRINT " 1000:"; 2220 ENDIF 2230 FOR Y=VKOL TO HKOL 2240 UD=SUM(6,Y)*F 2250 EXEC USIN(UD) 2260 NEXT Y 2270 PRINT 2280 PRINT "NORMER /1000 KJ :"; 2290 IF VKOL=2 THEN 2300 PRINT " : 1000: 8.5: 1.0:"; 2310 PRINT " 33.0: 1.0: 7.0: 2.0:" 2320 PRINT STIP$ 2330 EXEC PROCE┆
0x20c200…20c400 (174, 1, 6) UnusedSector ┆NT 2340 ELSE 2350 PRINT " 100.0: 1.3: 1.3: 6.0:"; 2360 PRINT " 140.0: 170.0: 100.0: 1.7:" 2370 ENDIF 2380 PRINT LINIE$ 2390 IF Q=1 THEN EXEC FORTSÆT 2400 VKOL=8; HKOL=15 2410 NEXT Q 2420 ENDPROC VURDER 2430 REM //----------// 2440 PROC FORTSÆT 2450 PRINT 2460 INPUT " TRYK RETURN FOR AT FORTSÆTTE : ",SVAR$ 2470 PRINT CHR(12) 2480 ENDPROC FORTSÆTTE 2490 REM //----------// 2500 PROC USIN(UTAL) 2510 REM 6 PLADSER + STREG ┆
0x20c400…20c600 (174, 1, 7) UnusedSector ┆ 2520 BILLED$=" :" 2530 UHEL=0 2540 IF UTAL<1000000 AND UTAL=INT(UTAL) THEN UHEL=1 2550 UTAL=INT(UTAL*10+.5)/10 2560 IF UTAL<10000 OR UHEL=1 THEN 2570 UX=6 2580 IF UHEL=0 THEN 2590 UDEL=(UTAL-INT(UTAL))*10; UTAL=UTAL-UDEL/10 2600 BILLED$(5 : 2)="."+CHR(UDEL+48) 2610 UX=4 2620 ENDIF 2630 WHILE UTAL>0 DO 2640 UDEL=UTAL-INT(UTAL/10)*10; UTAL=INT(UTAL/10) 2650 BILLED$(UX : 1)=CHR(UDEL+48) 2660 UX=UX-1 2670 ┆
0x20c600…20c800 (174, 1, 8) UnusedSector ┆ENDWHILE 2680 IF BILLED$(4 : 2)=" ." THEN BILLED$(4 : 1)="0" 2690 ELSE 2700 BILLED$="??????:" 2710 ENDIF 2720 PRINT BILLED$; 2730 ENDPROC THEN BILLED$(4 : 1)="0" 2690 ELSE 2700 BILLED$="??????:" 2710 ENDIF AGURK fL ^ &FFaL ` yz`L Å4 f L ^ d eH eH e `ANANAS SYLTET H iL Å 8 e yz_L _ e @ c g e c yz_AND Q@ j yzeL _ eL c4 h iH h d┆
0x20c800…20ca00 (174, 1, 9) UnusedSector ┆ e ┆
0x20ca00…20cc00 (174, 1, 10) UnusedSector ┆ AGURK fL ^ &FFaL ` yz`L Å4 f L ^ d eH eH e `ANANAS SYLTET H iL Å 8 e yz_L _ e @ c g e c yz_AND Q@ j yzeL _ eL c4 h iH h d FFbANGMAGSSAK,LOD. 1` i@ b FFFd * g b b eZ hR h bAPPELSIN > h yz_ d ` a yz_P d yz`Ø f g f f `APPELSINJUICE R hL Å 1yzdL ÅL `L ^@ c L Å f g e dL _ASIER ┆
0x20cc00…20ce00 (174, 1, 11) UnusedSector ┆ F hL Å T dL _L ^ e L Å c d dH eL ^ASPARGES * gL ^L Å9yzbFFF`S33a yz`@ c yz_ dØ g4 g e aAVOCADO P j< e9yzbYyzbFFFaS33a yz` f P d g h d yz`BACON Z kH f)yzc d 33c yz_ jH h@ cL aBANAN ;` iL ^ ( eFFF` aL _ g yz` d fH f c yz`BAY.,PØLSER k&FFeL a NFFdIyzc L Å H gP g g yzbBIHONNING k !yzg L _┆
0x20ce00…20d000 (174, 1, 12) UnusedSector ┆ , : *1 : D % $ I , : *1 : ( H d ( A A D ( %Q 0 '.: H ( ( H d E , !0 * 0 0 ( E d D H. !0 $ ø 6 D h % < * @ , @ D D (" J * < D , $J X 0 %6 . . D d , of * % % E D l =t / !0 0 E - D T 0 $ ┆
0x20d000…20d200 (175, 0, 1) UnusedSector ┆ " 0 % L e d J % % !0 6 H ( ( > %D E % d @ ( !0 b ! M D d 0 d * 0 p 8 D ( e b > % E E E@> K ( !0 L - E J !0 V !0 R E d E ! !0 N * E % D 0 A A % ( H ( ijx -0 * 0 : E E (7z !: ) 2 H ( E+w* ┆
0x20d200…20d400 (175, 0, 2) UnusedSector ┆ * 2M - % 8 0 : -: ; F E ( d 7F % ( !0 Z V H d l./T !0 Z d !0 ^ d E % e .b F % ( -0 H E % pp w j ü j E - ( Rü %( ( -0 ü H E ( ^ ü %P ( E ( e 1 !0 D %z % % % E , E J % %P % % !0 < E ( e2 v % ( " E h ( / ! - - H ( ( < ┆
0x20d400…20d600 (175, 0, 3) UnusedSector ┆ k ┆
0x20d600…20d800 (175, 0, 4) UnusedSector ┆ yz`BAY.,PØLSER k&FFeL a NFFdIyzc L Å H gP g g yzbBIHONNING k !yzg L _ b@ bH f c&FFaBLODPØLSE F j0 d a e yz_ d FFcP d L ^ g f g@ dBLOMKÅL Z gL _ yz_YyzbFFF` bFFF` d L ^ g4 gH gH e yz`BOGHVEDEGRYN 2 kL a g333a yzd9yzb L Å C iH g@ d bBROCCOLI hL ^L Å c&FFaS33b a ` i cF g> gR hH g&FFaBYGGRYN 7 k@ a┆
0x20d800…20da00 (175, 0, 5) UnusedSector ┆ yz` 33g333` dFFFb yz_ hH gP e bBØNNER, GRØNNE h yz_L ^ c333a yzbFFF`H g yz_P d4 gØ gP fL `BØNNER, VOKS Z g yz_L ^ c333a b333` d ` e gZ g4 f aCHAMPIGNON R gL ^L ^9yzbFFF`333b yz` b c4 g j c aCHOKOLADE l 33f aZ fL _ yzd@ b d L _ 4 gC iØ hFFFbCITRON L 4 gC iØ hFFFbCITRON h yz`L ^C33cFFF`CORNFLAKES 2 kL `L _ FFg yz`Ø c@ b f ┆
0x20da00…20dc00 (175, 0, 6) UnusedSector ┆ ( H - E5C ( !0 * % E ( % _ (p (! E E E Q , L e E 0 %0 % . U D e % " , % % ) . E $ $&j, b U 9 0 Z % L H E6!: % U ( ( !0 * E - EW<H L # !0 $ T % !0 L ( E CV $ B U b A D ( ) d 8 ) 8 I % E r d E i ( u * @ @ " 1 ┆
0x20dc00…20de00 (175, 0, 7) UnusedSector ┆ 1 D h % * @ " @ D E D9E z v H , E 0 L %p % ) "E E ( t L (v L E E (z_ U L E ( ( ( L L D E ( ( L H e eI %p % +L (p ( E $ E (! L B 8 I ( E d 8 ( H % (I % & D % % ( 0 6 (! ┆
0x20de00…20e000 (175, 0, 8) UnusedSector ┆ H ( E 6 (d 8 .. E E ( D @ E ( De R : 8 2 E E % #` 2 ) g ( 2 n 8 E D ( n 8 8 D ( ( ø E I E^ ) 8 ) ( D ( (^ " H2% %X ( * H E ( _ 7 7 ( E ( E" (ü ( 8 D ( (Tv ) ( D E H┆
0x20e000…20e200 (175, 0, 9) UnusedSector ┆ q ┆
0x20e200…20e400 (175, 0, 10) UnusedSector ┆ L 4 gC iØ hFFFbCITRON h yz`L ^C33cFFF`CORNFLAKES 2 kL `L _ FFg yz`Ø c@ b f P dP f cS33aCREME FRAICHE 18% P j e `Yyzb 9yzb@ a hL ^L _ f* h> gL ÅDILD R h yz` ` d a@ b k Yyza g> hW iF h aDIÆTMARGARINE D@ l& g f ` L _L ^A j&FFa f c eP d EDDIKE H f @ d `FARS, SVINE Ø jH d aIyzc P d┆
0x20e400…20e600 (175, 0, 11) UnusedSector ┆6FFcH e ` yz_ aØ hW hØ f FFbFERSKEN, SYLTET '` iL Å eL _L _L Å h #33c@ b d e d yz_FIGEN, TØRRET @ k&FFa V fVFFc@ b a e c* gØ gH hS33bFISKEFARS > iL _ 33b1yzdL Å)yzd 33c yz_ a gP gH g333`FJELDØRRED 6` j d0 c333` ( e d H d gH hP e cFLUTE "` k a yz` g yz_0 dFFFb L _ K i jF h cFLØDE 18% F j e yz` 33c @ b@ a% hL ^L _ f* h> g┆
0x20e600…20e800 (175, 0, 12) UnusedSector 0x00[512]
[…0x2…]
0x20ec00…20ee00 (175, 1, 3) UnusedSector ┆ w ┆
0x20ee00…20f000 (175, 1, 4) UnusedSector ┆L ÅFLØDEERSTATNING p l f XFFf FFc yzb FLØDEOST 60% kFFFeL ` b 333d6FFcØ h yz_ yz` fH hH g yz_FRANSKBRØD @ k c aGyzf yz_ d333b ` 4 iY` iH hYyzbFRANSKBRØD, HJEMM. k333c&FFaK33fL ^ d@ bØ fL ^ yz_ 6` iW` i hYyzbFRUGTSAFT, SØDET K j ?yzf a c cP d d yz_FRUGTYOGHURT 1` iFFFbL Å, dL ÅFFFbL aH eL ÅL ` c f hH gL ÅFÅREKØD F j e┆
0x20f000…20f200 (175, 1, 5) UnusedSector ┆ yz` yz_ eS33c4 f a* h i d 33bGRAHAMSBRØD V@ j a `@ f a FFd9yzb d yz_ @ jP iH h cGRAHAMSMEL 2 k b a yzg b;33d 33c f 333a aA j jP h@ cGRAPEFRUGT 9 hL ^L Å d yz_333`L ^@ b yz_4 fH f f f yz_GRØNKÅL > hFFF`333`#33cYyza yzc@ a_ j , c9 h h iR hS33aGULEROD hL Å Iyzc a a yz_( k yz`@ cH f4 f f333`GÆR Ø i yza VFFc yze9yzc L ^┆
0x20f200…20f400 (175, 1, 6) UnusedSector ┆ CURSOR POSITIONING 4600 REM 4610 PROC YX(YCOR,XCOR) 4620 DUMMY=CRT(6)+CRT(95+XCOR-(XCOR>32)*64-(XCOR>64)*64)+CRT(95+YCOR) 4630 ENDPROC YX 4640 REM 4650 REM ********************************************************************** 4660 REM ********************************************************************** ┆
0x20f400…20f600 (175, 1, 7) UnusedSector ┆ H D E Øx b E % ( c d d H ) Exl 0 E ( (S E E %zæ H H ( ` 0 7% 0 @ E $ E 0 c D E % c c D $ Ee @ 0 E % D c 0 0 H E D B 0 E E (; ( 0 ┆
0x20f600…20f800 (175, 1, 8) UnusedSector ┆ H % D Y H D ( p. 9 7 E ( DX>< D D Y H D ( üJ Y 0 D ( E lX d d E ( ) ^f j n 0 D ( ( t å L 7l E E D k D ) ("w 0 L H D J 7 D $ $5a J J J ! 0 D $ $ ; J J " c( *å D $ V "c( *å ┆
0x20f800…20fa00 (175, 1, 9) UnusedSector ┆ å ┆
0x20fa00…20fc00 (175, 1, 10) UnusedSector ┆L ^@ b yz_4 fH f f f yz_GRØNKÅL > hFFF`333`#33cYyza yzc@ a_ j , c9 h h iR hS33aGULEROD hL Å Iyzc a a yz_( k yz`@ cH f4 f f333`GÆR Ø i yza VFFc yze9yzc L ^ K i/ kP d cHARE Z i@ b 0 e yzd 4 gP f d yzbHASSELNØD ( lW33f dIyzdFFFb^FFd333c c ( e cH iH hZ gS33bHAVREGRYN L@ kP c9yzb g333a@ dFFFb L ` _ iØ g h┆
0x20fc00…20fe00 (175, 1, 11) UnusedSector ┆ cHELLEFISK, RØGET K j@ d L _ 33e@ c f&FFa P f hP e@ bHESTEKØD F i, b yz` yz` $ e 33d e L ^ a h i d FFcHORNFISK Ø i, b a eS33c d Yyza b d* gH e aHVALKØD, NARHVAL @ j@ b `L Å MyzeK33d f a fØ iP dP eHVALROSKØD P i@ a ` H e( dP e P gØ i eP dHVEDEKLID "` k FFc 33bL f( d e c c b "` j_ i4 fFFFbHVEDEMEL / k@ a┆
0x20fe00…210000 (175, 1, 12) UnusedSector ┆FFF` g yz_0 dFFFb L _ "` j jU h cHVIDKÅL R gL ^L Å FFc@ a333aL _ d L ÅH fH fH fH f `HVIDTØL h &FFc L ^ cH e d HYBEN 1` i yz_ e8 e a P i T` jP f g h333`HYTTEOST '` i ` a e FFd d 4 f i hL _HØNSEKØD @ j0 c yza e yzd d L Å h* h@ cFFFaIS R j;33d yz_!yze Yyzb b h ┆
0x210000…210200 (176, 0, 1) UnusedSector ┆ fZ h hL ÅJORDBÆR % hL _L ^ d333aFFF`L ^ d L _ g eP e eFFF`KAKAOMÆLK i 33bL Å dL ÅFFFbFFFa d f* hP g yz_KAKAOPULVER K kD e ` yzf6FFc FFe6FFc d L ^ H g hR gH dKALKUN K jØ d yz`L _ e d h hH e cKALVEKØD @ j, cL ^ $ e d S33bL Å Z g* h d yzbKALVELEVER @ j yzc ` 33c yze d$ nS33b a fP h;` l c)yzdKALVENYRE ┆
0x210200…210400 (176, 0, 2) UnusedSector ┆ EXEC XY(1,18) 0680 PRINT " CELL OCCUPIED " 0690 FOR Z=0 TO 0010 ON ESC CHAIN "MENUE" 0020 REM PHANTNUM I RC 700 COMAL, FEB 80. 0030 REM COMAL PROGRAM VED ERIK T NIELSEN, TORBEN NIELSEN OG 0040 REM F G KNUDSEN, RISMØLLESKOLEN. L3-2-79. 0050 DIM SVAR$(10),FÆRDIG$(10),BOGSTAV$(10) 0060 DIM TAL(10) 0070 REPEAT 0080 PRINT CHR(12) 0090 PRINT 0100 PRINT 0110 INPUT " INSTRUCTIONS NEEDED (YES/NO) ? ",SVAR$ 0120 ┆
0x210400…210600 (176, 0, 3) UnusedSector ┆ ┆
0x210600…210800 (176, 0, 4) UnusedSector ┆ jL c `L ` yzeIyzc> g L ^P d9 i l d8 dKALVETUNGE jFFFcL Å eL c L Å h i@ c@ bKANIN "` jS33cL ^ yz` &FFe FFd d F g hP d@ bKARSE > h333a a 33c yza FFc333a @ j FFFb f4 hH h g aKARTOFFELMEL / kL Å & gL Å yz`L ^ c H eFFFaKARTOFLER, GAMLE 1` iL Å eL `S33a yz` L ÅP d g g cFFF`KARTOFLER, NYE '` iL Å eL `FFFa┆
0x210800…210a00 (176, 0, 5) UnusedSector ┆M //----------// 0490 PROC TEST 0500 IF LEN(SVAR$)>2 THEN 0510 IF SVAR$(2 : 1)="=" THEN 0520 IF SVAR$(3 : 1)>"/" AND SVAR$(3 : 1)<":" THEN 0530 EXEC SVARTAL 0540 ELSE 0550 OK=0 0560 ENDIF 0570 ENDIF 0580 IF SVAR$(2 : 1)="*" OR SVAR$(2 : 1)="+" OR SVAR$(2 : 1)="-" THEN 0590 EXEC UDREGN 0600 ELSE 0610 IF SVAR$(2 : 1)<>"=" THEN OK=0 0620 ENDIF 0630 ELSE 0640 OK=0 0650 ENDIF 0660 ENDPROC TE┆
0x210a00…210c00 (176, 0, 6) UnusedSector ┆ST 0670 REM //----------// 0680 PROC SVARTAL 0690 IF BOGSTAV$(ORD(SVAR$(3 : 1))-47 : 1)=SVAR$(1 : 1) THEN 0700 PRINT "YES" 0710 EXEC SKEMA 0720 FÆRDIG$(ORD(SVAR$(3 : 1))-47 : 1)="1" 0730 ELSE 0740 PRINT "NO" 0750 ENDIF 0760 ENDPROC SVARTAL 0770 REM //----------// 0780 PROC UDREGN 0790 FOR X=1 TO 3 STEP 2 0800 TAL(X)=-1 0810 FOR Y=1 TO 10 0820 IF SVAR$(X : 1)=BOGSTAV$(Y : 1) THEN TAL(X)=Y-1 0830 NEXT Y 0840 NEXT X 0850 IF ┆
0x210c00…210e00 (176, 0, 7) UnusedSector ┆TAL(1)=>0 AND TAL(3)=>0 THEN 0860 IF SVAR$(2 : 1)="*" THEN FACIT=TAL(1)*TAL(3) 0870 IF SVAR$(2 : 1)="+" THEN FACIT=TAL(1)+TAL(3) 0880 IF SVAR$(2 : 1)="-" THEN 0890 FACIT=TAL(1)-TAL(3) 0900 IF FACIT<0 THEN FACIT=FACIT+10 0910 ENDIF 0920 FACIT=FACIT-10*INT(FACIT/10) 0930 PRINT BOGSTAV$(FACIT+1 : 1) 0940 ELSE 0950 OK=0 0960 ENDIF 0970 ENDPROC UDREGN 0980 REM //----------// 0990 PROC KODE 1000 RANDOMIZE 1010 BOGSTAV$=" ┆
0x210e00…211000 (176, 0, 8) UnusedSector ┆ " 1020 X=1 1030 REPEAT 1040 T=INT(RND(0)*10+1) 1050 IF BOGSTAV$(T : 1)=" " THEN 1060 BOGSTAV$(T : 1)=CHR(X+96); X=X+1 1070 ENDIF 1080 UNTIL X=11 1090 ENDPROC KODE 1100 REM //----------// 1110 PROC INSTR 1120 PRINT CHR(12) 1130 PRINT 1140 PRINT 1150 PRINT "THIS PROGRAM GIVES YOU A TEST, CALLED PHANTNUM." 1160 PRINT 1170 PRINT "THE PROGRAM GIVES THE LETTERS A B C D E F G H I J " 1180 PRINT "GIVEN THE VALUE FROM 0 TO 9, BUT IN A RA┆
0x211000…211200 (176, 0, 9) UnusedSector ┆ ┆
0x211200…211400 (176, 0, 10) UnusedSector ┆FFFaKARTOFLER, GAMLE 1` iL Å eL `S33a yz` L ÅP d g g cFFF`KARTOFLER, NYE '` iL Å eL `FFFa yz` L ÅP e g g cFFF`KARTFL.CHIPS FR. @ l!yzf eIyzfL a yzc@ a P dR h g fFFFaKIKS V@ k0 dFFFa gFFF`VFFc 33b L _ H hA iF h cKLIDBRØD @ k b yz`Myzf FFb6FFd c c @ a H i j4 hFFFbKLIDKIKS K k eL bH f#33c0 dFFFb% hL ^ yzb M` iK iP gYyzbKNÆKBRØD < k333a┆
0x211400…211600 (176, 0, 11) UnusedSector ┆L ` FFg b!yzdL b L _ i h g FFcKRABBE i b yze d yzb b g4 gH h bKVARK 5% i ` b X dØ c d 4 f i hL _KVARK 45% ` j4 d yz_Yyzb 33d cA hL Å yz` 4 f i h yz_KYLLING R jH d@ b eP c d L ^ b h4 h dFFFaKYLLINGELEVER @ j FFc@ a yza 0 e$ d3 n yz_H e i @ l eL cKÆRNEMÆLK h yz` c YyzbYyza d ┆
0x211600…211800 (176, 0, 12) UnusedSector ┆ P e hF gL ÅKØDPÅLÆG MAGERT @ j c ` e 33d L Å jH h d bLAKS R jYyzdFFFc 33e FFdP d e a F hH g e aLAMMEKØD Ø jP d ` yz_ eS33c4 f 333` 4 h i e bLETMÆLK H hYyza FFc @ bFFFaH fL _ f gP gL ÅLEVERPOSTEJ 9 k FFf9yzb c d c;` lFFF`L ^ d h( k gYyzcLOMVIE Z i cL `L Å @ e$ dR h@ a Ø i"` k e cLØG ┆
0x211800…211a00 (176, 1, 1) UnusedSector ┆ Ø1 " C I ; $ A #H A )* . 1 $ H H 1 & $ * Y # 1 e OLDA : NI GNUTIO FF LAST LOC. BI J (NARY LOADER OK SWITCHES: STA Z RTADDR MISERABLE TIMING h Y j A Y 9C g yJ` g z yH` 1 E1 eK ?f g ! e?a AH`J` 2 ,Q K I 1 9 $9 1 K U ?f $ g aJ`@ @ J` I )Y 1 ! : R * Z ) <P Y I 1 U┆
0x211a00…211c00 (176, 1, 2) UnusedSector ┆ 1 U 1 U U& # ) P . * $ X X ; e , ( ! % U g X ! " $ ' ( * + - . 0 3 5 6 9 : : < ? A B D G H J K M N P S U V Y Z Z Ø _ A B D G H j K M N P S U V Y z Z W ; E O Y LPT TABLE Y 9 L 3 ) 9 " C </ 1 : . : ) M e ┆
0x211c00…211e00 (176, 1, 3) UnusedSector ┆ ┆
0x211e00…212000 (176, 1, 4) UnusedSector ┆FFFc 33e FFdP d e a F hH g e aLAMMEKØD Ø jP d ` yz_ eS33c4 f 333` 4 h i e bLETMÆLK H hYyza FFc @ bFFFaH fL _ f gP gL ÅLEVERPOSTEJ 9 k FFf9yzb c d c;` lFFF`L ^ d h( k gYyzcLOMVIE Z i cL `L Å @ e$ dR h@ a Ø i"` k e cLØG > h yz_L Å yzdL `&FFa yz_ c L Å c fH e f `MAJSSTIVELSE 4 k -33gL ÅL _L Å ┆
0x212000…212200 (176, 1, 5) UnusedSector ┆ d d `MAJSKOLBE R i yza333` yzeL `S33b333a d hP g c yz`MAJSOLIE K lH gJ f g e P d&FFaMAKARONI A k9yzbFFFa gL _P d cP f L ^ h g e FFbMAKREL ;` j8 d#33c FFe yzdØ g&FFa&FFa h/ iP d aMAKREL, RØGET K jP dVFFc 0 e dØ g@ aL a h/ i e yzaMANDLER #P lXFFf4 d eS33b FFeC33c e Ø h j h 33cMARGARINE ┆
0x212200…212400 (176, 1, 6) UnusedSector ┆ IF PASS = 1 THEN BEGIN CLOSE(ZONE,1); OPMESS(ZTX9); GOTO 1; END; CFILE:=FFILE; END; SETPOSITION(ZONE,CFILE,CBLOCK); END; END; END; PROCEDURE GETIN; BEGIN ZONE.ZMODE:=CMODE; ZONE.ZREM:=0; GETREC(ZONE,A); IF SQ AND 64 <> 0 THEN ! LENGTHCHECK ! IF ZONE.ZSHAREL <> A THEN LENGTHERR; END; PROCEDURE RPOSITION; BEGIN ! CX:=RANDOM((RX MOD (ENDX-FX)+FX)); ! IF SQ AND 512 <> 0 THEN ! RANDOM FILE ! BEGIN RANDOM(RFILE);┆
0x212400…212600 (176, 1, 7) UnusedSector ┆ RFILE:=RFILE AND 8'77777; CFILE:=RFILE/(ENDFILE-FFILE); CFILE:=(RFILE-CFILE*(ENDFILE-FFILE))+FFILE; END; IF SQ AND 1024 <> 0 THEN ! RANDOM BLOCK ! BEGIN RANDOM(RBLOCK); RBLOCK:=RBLOCK AND 8'77777; CBLOCK:=RBLOCK/(ENDBLOCK-FBLOCK); CBLOCK:=(RBLOCK-CBLOCK*(ENDBLOCK-FBLOCK))+FBLOCK; END; SETPOSITION(ZONE,CFILE,CBLOCK); END; PROCEDURE PUTOUT; BEGIN ZONE.ZMODE:=MODE; PUTREC(ZONE,ZONE.ZSHAREL); IF SQ AND 32 <> 0 THEN SETRANDOM ! RANDOM ! EL┆
0x212600…212800 (176, 1, 8) UnusedSector ┆SE IF FIRSTTIME > 0 THEN SETBUFFER; END; PROCEDURE MESSAGE; BEGIN MOVE(OPSTR,1,ZONE.ZNAME,0,OPLENGTH-2); MOVE(TM,0,HELP2,0,6); Z:=0; REPEAT INSERT(Z+48,HELP2,1); OPMESS(HELP2); STRIN; IF BYTE OPSTR = 94 THEN TAKEADDRESS(ZDATA,X) ELSE ISOLATE; MOVE(HELP,4,MES.MALL,Z*2,2); ! MES.MESX:=X ! Z:=Z+1 UNTIL Z = 4; SENDMESSAGE(MES.MES0,ZONE.ZNAME,BUF); IF BUF > 0 THEN BEGIN TIME:=3000; ! WAIT MAX 60 SEC ! WAITTA(MES.MES0,BUF,T┆
0x212800…212a00 (176, 1, 9) UnusedSector ┆ ┆
0x212a00…212c00 (176, 1, 10) UnusedSector ┆ A l# g@ d yz` `L ^A j&FFaFFFc c e d MARCIPANBRØD @ lD eVFFcT f a d c d @ b Ø gØ h h bMARMELADE Z jL Å LFFf yz`L _L Å d L ^ eP d e e yz`MAYONNAISE Q@ l/FFgK33fL ^ b aH h bS33c P eØ f d aMATTAQ, NARHVAL kVFFd&FFb b D e$ dC j P eH i* h e@ dMEDISTERPØLSE A kVFFe@ b 33d P dIyzc e333`L Å M` i% iP f bMINARINE ;` k f e ┆
0x212c00…212e00 (176, 1, 11) UnusedSector ┆BYTE OPSTR <> 13 THEN MODE:= X; IF SQ AND 16 <> 0 THEN ! READ AFTER WRITE ! BEGIN OPMESS(R); SETMODE; END; OPMESS(ZTX3); ! KIND ! STRIN; ISOLATE; IF BYTE OPSTR <> 13 THEN ZONE.ZKIND:=X; OPMESS(ZTX7); ! DELAY ! STRIN; ISOLATE; IF BYTE OPSTR <> 13 THEN DTIME:=X; OPMESS(ZTX4); ! FILE ! STRIN; IF BYTE OPSTR = 64 THEN ! RANDOMPOSITION ! BEGIN OPOINTER:=1; SQ:=SQ+512; END; ISOLATE; FFILE:=X; ENDFILE:=X┆
0x212e00…213000 (176, 1, 12) UnusedSector ┆+1; IF Y <> 0 THEN ! VAR FILE ! BEGIN SQ:=SQ+1; ENDFILE:=Y+1; END; OPOINTER:=0; OPMESS(ZTX5); ! BLOCK ! STRIN; IF BYTE OPSTR = 64 THEN ! RANDOMPOSITION ! BEGIN OPOINTER:=1; SQ:=SQ+1024; END; ISOLATE; FBLOCK:=X; ENDBLOCK:=X+1; IF Y <> 0 THEN BEGIN SQ:=SQ+2; ! VAR BLOCKLENGTH ! ENDBLOCK:=Y+1; END; ! PASS ! IF SQ AND 1536 = 0 THEN ! NOT RANDOMPOS ! IF SQ AND 3 <> 0 THEN ! BUT VAR POS ! ┆
0x213000…213200 (177, 0, 1) UnusedSector ┆ BEGIN OPMESS(ZTX8); STRIN; ISOLATE; IF BYTE OPSTR <> 13 THEN PASS:=X+1; END; OPMESS(ZTX6); ! CONV ! STRIN; MOVE(NULL,0,OPSTR,OPLENGTH-1,5); CHANGETABLE(ZONE,OPSTR); END; BEGIN OPMESS(HEAD); OPIN(LINE); SQ:=196; MODE:=3; ZONE.ZKIND:=1; DTIME:=0; PASS:=0; 1:REPEAT OPMESS(NOCHAR); OPCOM; DECBIN(HELP1,LENGTH); IF LENGTH < 1 THEN GOTO 1 UNTIL LENGTH <= MAXL-32; 2:REPEAT ERRCOUNT:=0; MASK:=8'163777; ┆
0x213200…213400 (177, 0, 2) UnusedSector ┆ MOVE(NULL,0,ZONE.ZNAME,0,6); OPMESS(ZNAME); STRIN; OPOINTER:=0; REPEAT MOVE(OPSTR,OPOINTER,HELP,0,1); IF BYTE HELP = 58 THEN ! : FOR UNIT ! BEGIN MOVE(OPSTR,OPOINTER+1,HELP1,0,OPLENGTH-OPOINTER-1); DECBIN(HELP1,X); INSERT(X,ZONE.ZNAME,5); OPLENGTH:=OPOINTER+1; END; OPOINTER:=OPOINTER+1 UNTIL OPOINTER = OPLENGTH; OPOINTER:=0; IF BYTE OPSTR = 64 THEN MESSAGE; ! @ FOR SENDM,WAITA ! IF BYTE OPSTR = 47 THEN SETZONE ┆
0x213400…213600 (177, 0, 3) UnusedSector ┆ ┆
0x213600…213800 (177, 0, 4) UnusedSector ┆ Ø gØ h h bMARMELADE Z jL Å LFFf yz`L _L Å d L ^ eP d e e yz`MAYONNAISE Q@ l/FFgK33fL ^ b aH h bS33c P eØ f d aMATTAQ, NARHVAL kVFFd&FFb b D e$ dC j P eH i* h e@ dMEDISTERPØLSE A kVFFe@ b 33d P dIyzc e333`L Å M` i% iP f bMINARINE ;` k f e A j&FFaP d c MÅGE @ k#33e dL _ yze dF lIyzc ` j"` kH f&FFaOKSEKØD, FED┆
0x213800…213a00 (177, 0, 5) UnusedSector ┆T ,` kEyzeL ` FFeIyzc d FFF` g h c bOKSEKØD, MAGERT P jÆ33d ` FFe d L ^ > g> h c333bOKSEKØD, MIDLF. @ k-yze333` eØ c c L _ * g/ h c&FFbOST 10% F j0 cL ^L Å f FFe f L Å P f iH j `OST 30% kVFFdL _L Å D eD d hL ÅL _ Ø f"` iH j `OST 45% 4 kRFFe333`L Å MyzeNFFdA h yz_ yz` H f i@` j `PEBERFRUGT R gL ^L Å FFc b yza┆
0x213a00…213c00 (177, 0, 6) UnusedSector ┆ yz_H g @ a h fH f dL `PERSILLE Z h `L _ d@ a cYyza"` k , b4 hP g iR h dPILSNERØL,LAGERØL h b yz_ cH f c PISKEFLØDE A k f a@ b 33b yza/ iL _L ` H e* h gL ÅPISKESKUM 7 lP f yz_Æ33e FFFc@ b% h P f i4 f `PLANTEMARGARINE A l$ g8 e yz` ` yz_A j&FFa d cH eP d POMMES FRITES !@ j cL Å@ e yza@ b a c e% h g e┆
0x213c00…213e00 (177, 0, 7) UnusedSector ┆&FFaPORRE, HVID DEL h yz_L ÅIyzc&FFa b d yz`H e gH gH e aPURLØG R hL _ yz_ FFd 33bFFFb Z j L a fØ gH h gP dPÆRE F hL Å T dS33a `L Å e 333` c dP e d yz_RABARBER * gL Å c yz` yz` H e L _ dP e f h yz`RADISE gL Å @ b333` a c P e e f f@ aREJER H i bFFF` yze dP dS33b c@ bP f4 fØ g bRENSDYRKØD 6` jL c┆
0x213e00…214000 (177, 0, 8) UnusedSector ┆L ÅL ^ X e9yzd c H h@` jP f dRIBS hL ^L ÅØ c yzc a c L ` fH e e fFFF`RIS, BRUNE 7 k bFFF` g333`L cFFFb L Å M i4 gH e&FFbRIS, POLEREDE 7 k yz`L ^ FFgL ^@ c9yzb L Å R h f d yz`ROSENKÅL R hL _ yz_C33c@ a c&FFa g FFF`H gP g h f aROSINER kL Å FFg@ c 33bL _ c * gP e g, bRUGBRØD Q@ j333aL `=yzf@ aS33c yzb L ^┆
0x214000…214200 (177, 0, 9) Index {count=0x0002, a000=Slice {count=0x0011, sector=0x10a1}, a001=Slice {count=0x0006, sector=0x11a8}}
0x214200…214400 (177, 0, 10) DataSector[»IOO«]
[…0x10…]
0x216400…216600 (178, 0, 3) UnusedSector ┆ ┆
0x216600…216800 (178, 0, 4) UnusedSector ┆ 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┆
0x216800…216a00 (178, 0, 5) UnusedSector ┆(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┆
0x216a00…216c00 (178, 0, 6) UnusedSector ┆,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┆
0x216c00…216e00 (178, 0, 7) UnusedSector ┆,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┆
0x216e00…217000 (178, 0, 8) UnusedSector ┆,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┆
0x217000…217200 (178, 0, 9) UnusedSector ┆,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┆
0x217200…217400 (178, 0, 10) UnusedSector ┆,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 ┆
0x217400…217600 (178, 0, 11) UnusedSector ┆ 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 ┆
0x217600…217800 (178, 0, 12) UnusedSector ┆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┆
0x217800…217a00 (178, 1, 1) UnusedSector ┆,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+┆
0x217a00…217c00 (178, 1, 2) UnusedSector ┆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=┆
0x217c00…217e00 (178, 1, 3) UnusedSector ┆ 9 h hF hYyzbRULLEPØLSE ;` kP eS33b 8 eYyzc H j ` i eS33bRUNDSTYKKE A kFFFcFFFa g yz_4 dS33bP dL ^ ` F i jR h cRYGEOST 5% ` i ` @ b X dØ c d 4 fA i h yz_RYPE F i yzaL ^ yz_ D e( d e jT` k fP dRØDBEDE hL Å S33c a@ aL _ L Å dH e4 fP eFFF`RØDBEDER, SYLTEDE i yz_ L d `L `L ^ c d eP dL _RØDSPÆTTE ┆
0x217e00…218000 (178, 1, 4) UnusedSector ┆ ;` i 33b a eL c L ` R hR h4 fFFF`SALATHOVED g yz_L ÅYyza333`L a333` i yz_ d gH gH g yz`SANDKAGE lD e yzcV fL ÅVFFcYyzb4 i b yzb 4 h i* g bSELLERI % h yz_L ^L c yzaYyza ` c L ` dH f h f `SIGTEBRØD Z j&FFaL `E33f aØ c&FFb yz_ i_ h> hL bSILD, FED V@ j FFeØ c FFeL c f eFFFa P fH hH f aSILD, MAGER "` j 33dS33b e┆
0x218000…218200 (178, 1, 5) UnusedSector ┆Yyzc f dFFFa P fH hH f yzaSILD, MARINERET R j@ d9yzc FFeØ c4 fP d a P eH hP f aSILD, RØGET K jQyzdIyzc .FFe FFd fP d a fH hH f aSKUMMETMÆLK hL Å yzc @ bFFFa f* hP gL ÅSKUMMETMÆLKSPULVER 2 k a @ f f yze d H iT` k"` kL `SMØR F l( g&FFb yz` ` yz_ j yz` 33b c fP dL ÅSMÅKAGE lD e cR f&FFaFFFc 33b iFFF`333a P h ` iØ g┆
0x218200…218400 (178, 1, 6) UnusedSector ┆ bSNAPS 45% k SOLBÆR > hL Å &FFd6FFc a H e FFb hH eH eP fFFF`SOYAKØD (TVP) ,` k aL ^ f@ bH f yzeH e 2 k/ i i!yzdSOYAOLIE K lGFFgP f 333d SPEGEPØLSE Q@ k 33f&FFb b "FFe 33d L Å ` iF h e333bSPINAT H gL _ yz_ yzb yz` b aZ j 9yzbH f> gP h hS33cSUKKER P k ┆
0x218400…218600 (178, 1, 7) UnusedSector ┆ H g SVINEFEDT K lGFFgP c L Å d L _ L ÅSVINEHJERTER P i yzcL `L _ 33eYyzc d L ^@ bK i k c, bSVINEKØD, FEDT X k f yzc P d)yzc L _ jH h cYyzaSVINEKØD, MAGERT 1` j d a e 33d L Å jH h@ c 33bSVINEKØD, MIDD.FED k e b yzeYyzc yz_ jH h@ c bSVINELEVER @ j6FFcL a a e 33d n bL ^┆
0x218600…218800 (178, 1, 8) UnusedSector ┆ SUBL# 1,0 SNC ; IF CHAR < 32 THEN JMP DA72 ; BEGIN LDA 1 +0,3 ; MASK:= 0.SETADDR; MOVZR 0,2 SNC ; IF EVEN(CHAR) THEN MASK:= 1.SETADDR; LDA 1 +1,3 ; LDA 3 BIT,2 ; TEST:= 1 SHIFT (CHAR//2); LDA 2 CUR ; AND 1,3 SNR ; DA72: ISZ DASV3,2 ; IF TEST AND MASK=0 THEN RETURN+1; JMP@ DASV3,2 ; END ELSE RETURN+1; ;RETURN+0; ;PR┆
0x218800…218a00 (178, 1, 9) UnusedSector ┆ ┆
0x218a00…218c00 (178, 1, 10) UnusedSector ┆DD.FED k e b yzeYyzc yz_ jH h@ c bSVINELEVER @ j6FFcL a a e 33d n bL ^H e iG@ l d0 eSVINESPÆK T` l1yzgS33c 33bFFF` yz_ H f g c yz_SÆLHJERTE F iFFFa ` < e( dP d i ` k e dSÆLKØD, REMMESÆL V@ jS33d a yz` @ e dP g@ b g iP dP dSÆLKØD, RINGSÆL @ j9yzb aL Å P e.FFd h hP i d eSÆLLEVER, REMM. @ j c b FFb :FFe┆
0x218c00…218e00 (178, 1, 11) UnusedSector ┆( dJ@ qØ e d i l eX eSÆLSPÆK A l> g yzf &FFa ` kS33b P e f SØDE MINER.VAND h d c SØDMÆLK i@ bL Å 33c YyzbYyzaP e L Å f> hP g aTOMAT gL ^L ÅS33bL ` aL ^P g a e fP e d `TOMATKETCHUP @ jL _ P eL _ 33bL _P g d fH fH e yz`TOMATPUREE % h `L Å@ cL _ bL _H i 33b dH gH f e┆
0x218e00…219000 (178, 1, 12) UnusedSector ┆L `TORSK i yz`L _ eIyzc ` H f fP d `TORSKELEVER lH f e $ d@ b @ mZ g e cH g j d cTORSKEROGN, DÅSE @ j yzc, bL ` e 33dØ f b d eP j @ j dFFFaTUNFISK k'33e#33d >FFe d4 iH e H fP f d yzaTVEBAKKER Q@ kYyzc b FFg yz_D d 33cP dL ^FFF` Z i @ jF h yzcVIN, BORD Z h L ^ L Å d d yz`VIN, HED '` j ┆
0x219000…219200 (179, 0, 1) UnusedSector ┆NTIL DECR(INT.TIME) = 0; JMP DA52 ; DSZ DASV1,2 ; RETURN(+0); JMP@ DASV1,2 ; ;PROCEDURE RETURNTIMEOUTS ; ; CALL RETURN ; AC0 - DEST. ; AC1 - DEST. ; AC2 CUR CUR ; AC3 LINK DEST. ; DA60: DSZ DATIME,2 ; RETURNTIMEOUTS: JMP +0,3 ; IF DECR(TIME) = 0 THEN STA 3 RESERVER,2 ; BEGIN LDA 3 DAIQ,2 ┆
0x219200…219400 (179, 0, 2) UnusedSector ┆ ; CBUF:= HEAD:= INPUTQUEUE; DA62: LDA 3 NEXT,3 ; REPEAT DA63: LDA 1 DAIQ,2 ; CBUF:= NEXT.CBUF; SUB 3,1 SNR ; JMP DA64 ; LDA 1 BUF,2 ; SUB 3,1 SNR ; IF CBUF<> BUF.CUR THEN JMP DA62 ; DSZ MESS3,3 ; IF DECR(MESS3.BUF) = 0 THEN JMP DA62 ; LDA 0 MESS0,3 ; MOV 0,0 SNR ; ┆
0x219400…219600 (179, 0, 3) UnusedSector ┆ ┆
0x219600…219800 (179, 0, 4) UnusedSector ┆ Z i @ jF h yzcVIN, BORD Z h L ^ L Å d d yz`VIN, HED '` j @ d yz_ d d `VINDRUER ` iL Å eFFF`333`L Å c L _ c4 f dP d `VITAMINERAL, TABL. ;` kP d d g;` l;` l eWIENERBRØD @ l f6FFc yzfL Å6FFc b g yz` a / h iR gFFFaYMER iYyzbL Å c P cS33b e L Å 4 fF hF gL ÅYMER, MAGER ┆
0x219800…219a00 (179, 0, 5) UnusedSector ┆HEN SVAR$="NEJ" 0150 UNTIL SVAR$="JA" OR SVAR$="NEJ" 0160 PRINT CHR(12) 0170 IF SVAR$="NEJ" THEN 0180 REPEAT (* UDSKRIV REGLER *) 0190 PRINT "SPILLEREGLER" 0200 PRINT " " 0210 PRINT "DATAMASKINEN VÆLGER ET TAL MED 4 CIFRE. DER VIL" 0220 PRINT "ALDRIG FOREKOMME CIFRE, DER ER STØRRE END SVÆR-" 0230 PRINT "HEDSGRADEN. SPILLEREN VÆLGER SVÆRHEDSGRADEN." 0240 PRINT " " 0250 PRINT "SPILLEREN SKAL NU PRØVE AT GÆTTE, HVILKET TAL" 0260 PRINT "DATAMASKINEN HAR┆
0x219a00…219c00 (179, 0, 6) UnusedSector ┆ VALGT. SPILLEREN GÆTTER PÅ ET" 0270 PRINT "TAL. DATAMASKINEN UDSKRIVER ANTAL RIGTIGE CIFRE" 0280 PRINT "PLACERET PÅ KORREKT PLADS OG ANTAL RIGTIGE CIFRE" 0290 PRINT "PLACERET PÅ FORKERT PLADS. SPILLEREN KAN HEREFTER" 0300 PRINT "GÆTTE PÅ ET NYT TAL. DETTE GENTAGES INDTIL SPILLE-" 0310 PRINT "REN GÆTTER DET RIGTIGE TAL." 0320 PRINT " " 0330 PRINT "EKSEMPEL: DATAMASKINEN HAR VALGT 3522." 0340 PRINT " SPILLEREN GÆTTER PÅ 4232." 0350 PRINT " ┆
0x219c00…219e00 (179, 0, 7) UnusedSector ┆ HER ER 1 CIFFER PÅ RIGTIG PLADS" 0360 PRINT " OG 2 CIFRE PÅ FORKERT PLADS." 0370 PRINT " " 0390 INPUT "HAR DU FORSTÅET REGLERNE? ",SVAR$ 0400 IF SVAR$="JA" THEN SVAR$="JA" 0410 IF SVAR$="NEJ" THEN SVAR$="NEJ" 0420 IF SVAR$="NEJ" THEN 0430 PRINT "LÆS REGLERNE LANGSOMT EN GANG TIL!" 0440 PRINT " " 0450 ENDIF 0460 UNTIL SVAR$="JA" 0470 ENDIF 0480 LET N=4 0490 PRINT CHR(12) 0500 PRINT "VALG AF SVÆRHEDSGRAD" 0510 PRINT " " 0┆
0x219e00…21a000 (179, 0, 8) UnusedSector ┆520 PRINT "PROGRAMMET KAN ARBEJDE MED FORSKELLIGE" 0530 PRINT "SVÆRHEDSGRADER - DEFINERET VED TAL FRA 1 TIL 9." 0540 PRINT "HVIS SVÆRHEDSGRADEN F.EKS. ER LIG 5, VIL " 0550 PRINT "MASKINEN KUN ANVENDE CIFRENE FRA 0 TIL 5" 0560 PRINT "I OPLÆGET." 0570 PRINT "SPILLET STARTER MED OPLÆG PÅ 4 CIFRE. DETTE" 0580 PRINT "KAN SENERE ÆNDRES, SÅ DER ANVENDES OP TIL" 0590 PRINT "6 CIFRE I OPLÆGET." 0600 PRINT " " 0610 PRINT " " 0620 REPEAT 0630 INPUT "INDTAST SVÆRHEDSGRAD: ",SVGR 0640 UNTIL SV┆
0x21a000…21a200 (179, 0, 9) UnusedSector ┆ ┆
0x21a200…21a400 (179, 0, 10) UnusedSector ┆ b g yz` a / h iR gFFFaYMER iYyzbL Å c P cS33b e L Å 4 fF hF gL ÅYMER, MAGER F h yza c P cS33bP d 4 fF hF gL ÅYMERDRYS A k a yz`) gL `6FFcS33a L Å h> gØ h bYOGHURT, NATUREL iYyzbL Å 33c YyzbYyzaH e L Å f4 hF gL ÅYOGHURTMÆLK i@ a $ d @ b@ aP d L Å c f hH gL ÅÆBLE R hL Å Ayzd a yz_L ÅP d yz` d eH e c┆
0x21a400…21a600 (179, 0, 11) UnusedSector ┆L _ÆBLEMOST 9 h 333d a c d cL ÅÆGGEBLOMME 7 k_33e 33c yz_ eVFFcA jP d)yzc Ø hH iH gFFFcÆGGEHVIDE R hL ^ 333` 1yzd< c A i cL ^ÆG, HELE "` j333dYyza ` NFFdYyzc i cFFFa gW i f FFbÆRTER, GRØNNE ;` i ` yz_^FFdS33aVFFcL ^Ø g H e i hP eS33aÆRT, GUL U. SKAL 7 k333aFFF`R f333a733e FFd c aM j4 h f&FFcØRRED - FOREL H i FFb┆
0x21a600…21a800 (179, 0, 12) UnusedSector ┆FFF` e d4 f 333` g h e aØSTERS ` i yza yzc d 33cP fL Å a c gH hØ f9yzcÅL kL eVFFc K33d0 cA kP g d h i f yz`ÅL, RØGET 0@ kS33eØ c yze dA kP gP c h iØ f333` 0080 REM SATELLITTER, FGK, 15-2-80 0100 REM //----------// 0120 DIM UBILLED$(10),SVAR$(1) 0140 REM HER MANGLER PRINT USIN┆
0x21a800…21aa00 (179, 1, 1) UnusedSector ┆L N>0 AND N<=6 1330 ENDIF 1340 GO TO 0620 1350 ELSE 1360 GO TO 0650 1370 ENDIF 1380 ENDIF 1390 CHAIN "LOGON" ┆
0x21aa00…21ac00 (179, 1, 2) UnusedSector ┆e 0 0å f 0 @ P 0Q 0m X fB 0n X Pf 0o å X f 0q w X e 0 T o e 0Q S .0 e Z 8 S : K * 2 e 0 2 0 7!R* ( M P @ @ N 0 Z B f 0 2" C * 2 g 0 B 0 2% N 6 " * 2 e 0 - Z g 0 ' gB - .e g & . (P (E " R : B P8(N P0 . # # + J 00) Y A " C FILENAMES DUMPED TO LOADED FROM USED MASK: COMMAND FILE DISC ERROR, NOT DUMPED DOES NOT EXIST NOT LOADED PROCESS EXI┆
0x21ac00…21ae00 (179, 1, 3) UnusedSector ┆ ┆
0x21ae00…21b000 (179, 1, 4) UnusedSector ┆ 0010 DIM VNAVN$(205,18),BUF$(128),V(205,15) 0020 OPEN "DATKOST",FV,BUF$,20 0030 FOR I=1 TO 205 0035 LET N=I*4-2 0040 GET FV,N : VNAVN$(I) 0050 GET FV,N+1 : V(I,1),V(I,2),V(I,3),V(I,4),V(I,5) 0060 GET FV,N+2 : V(I,6),V(I,7),V(I,8),V(I,9),V(I,10) 0070 GET FV,N+3 : V(I,11),V(I,12),V(I,13),V(I,14),V(I,15) 0080 NEXT I 0090 CLOSE FV 0100 OUTPUT P 0120 FOR I=1 TO 205 0130 LET N=I*4-2 0140 PRINT I,VNAVN$(I) 0150 PRINT V(I,1),V(I,2),V(I,3),V(I,4),V(I,5) 0160 PRINT V(I┆
0x21b000…21b200 (179, 1, 5) UnusedSector ┆,6),V(I,7),V(I,8),V(I,9),V(I,10) 0170 PRINT V(I,11),V(I,12),V(I,13),V(I,14),V(I,15) 0180 NEXT I (I,5) 0160 PRINT V(I ┆
0x21b200…21b400 (179, 1, 6) UnusedSector ┆ D$% $ %P +J $: T ü #@ C # D $ $/ ^ D( "(* ) $I $ $ 4l p 0 "&B + !*BD H $ $Æ,z æ &ZÆ $: ; "Z #$2 B K D $ $k * 0.J + P (J &" $" D $ $1 : ; # B K 0&B 0+Z D $ $ ": # P C #J + J ;c $2 D $ $Æs * : B 0å 1 + ": ! D $ $ G B m J D $ $> K .) S!Sg( T( 3 D $ $ 2$SP P !) 9 ; 0"Z*ZU! D $ $ , 'B!: # K( +K $: K D┆
0x21b400…21b600 (179, 1, 7) UnusedSector ┆ % $ !: #J( N * U p $: S # D $ $ 8!0 M . - "JQ L ' " C D $ $ Z*""B!: #O( L( "2 * D $ $ " Z 0": # ": #I( J( O( D $$I (0 (J &" w H $ $U > 2 V 8"; S 2 S K 0' P D $ $ L ": C C C!B k !: # m . B D $ $gbZ ": # P ` + #J!JÆ I $ $G h 0 +Z": # ) J!: : D $ $ v ; # ) " " + !Z": D $ $ + w 0+Z":!2 S ) # C " C * D $ $ T K * K 3J Z 0+ 0+Z": ; " D $ $ ┆
0x21b600…21b800 (179, 1, 8) UnusedSector ┆ + B!J #g( # K": + K D $ $ # ) #" + 3 #B": C D $ $ + @ i N( D $ $Å !* K + !J K ) D H $0 A 3 #K( E( D $ $' S S M( E( S 8 D $ $ "; S 2 S K + C ; + D $ $ ; 8"; * K Z 0$: # D $ $ " C Z&Z 0":' 0+Z 9 ": ; D $ $ J b8 9 ; $: # D $ $ , 1 ":+ ` ) E # + J ! D $ $7 : <g( # 8 g( # 4% #Z D $ $.8H +ø I(┆
0x21b800…21ba00 (179, 1, 9) DataSector[»FFT1«]
[…0x5…]
0x21c400…21c600 (180, 0, 3) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x10e3}}
0x21c600…21c800 (180, 0, 4) DataSector[»BTEMP«]
[…0x4…]
0x21d000…21d200 (180, 0, 9) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x10e9}}
0x21d200…21d400 (180, 0, 10) DataSector[»YHEAD«]
[…0x4…]
0x21dc00…21de00 (180, 1, 3) UnusedSector ┆ ┆
0x21de00…21e000 (180, 1, 4) UnusedSector ┆9yzcÅL kL eVFFc K33d0 cA kP g d h i f yz`ÅL, RØGET 0@ kS33eØ c yze dA kP gP c h iØ f333` 0080 REM SATELLITTER, FGK, 15-2-80 0100 REM //----------// 0120 DIM UBILLED$(10),SVAR$(1) 0140 REM HER MANGLER PRINT USING 0160 DTID=10; PLANETRADIUS=6.37E6 0180 PI=3.141593; G=6.66E-11; M=5.97E24 0200 KRAFT=G*M 0220 REM //----------// 024┆
0x21e000…21e200 (180, 1, 5) UnusedSector ┆0 REPEAT 0250 PRINT CHR(12) 0260 NY=0 0280 EXEC INDSKRIV 0300 EXEC HOVED 0320 EXEC NULSTIL 0340 EXEC BEREGN 0360 REPEAT 0380 IF STYRT=0 THEN INPUT "FORTSÆTTE : ",SVAR$ 0440 IF SVAR$="J" OR SVAR$="J" THEN 0460 INPUT "SAMME TIDSINTERVAL : ",SVAR$ 0480 IF SVAR$="J" OR SVAR$="J" THEN 0500 EXEC BEREGN 0520 ELSE 0540 EXEC NYUDTID 0560 EXEC BEREGN 0580 ENDIF 0600 ELSE 0620 INPUT "NY RUNDE : ",┆
0x21e200…21e400 (180, 1, 6) UnusedSector ┆SVAR$ 0640 IF SVAR$="J" OR SVAR$="J" THEN 0660 NY=1 0680 ELSE 0700 STOP 0720 ENDIF 0740 ENDIF 0760 UNTIL NY=1 0780 UNTIL 1=0 0800 REM //----------// 0820 PROC INDSKRIV 0840 EXEC AFSTAND 0860 REPEAT 0880 INPUT "SATELLITTENS STARTHØJDE (KM) : ",HØJDE 0890 HØJDE=HØJDE*1000 0900 UNTIL HØJDE>0 0920 REPEAT 0940 INPUT "STARTHASTIGHED I M/S : ",XHAST 0960 UNTIL XHAST>0 0980 EXEC NYUDTID 1000 ┆
0x21e400…21e600 (180, 1, 7) UnusedSector ┆ EXEC AFSTAND 1020 ENDPROC INDSKRIV 1040 REM //----------// 1060 PROC AFSTAND 1080 FOR AFS=1 TO 5 1100 PRINT 1120 NEXT AFS 1140 ENDPROC AFSTAND 1160 REM //----------// 1180 PROC NYUDTID 1200 REPEAT 1220 PRINT "HVOR MANGE SEKUNDER MELLEM" 1240 PRINT "HVER UDSKRIFT (DELELIG MED"; DTID; 1260 INPUT ") : ",UDTID 1280 UNTIL ABS(UDTID/DTID)=INT(UDTID/DTID) 1300 ENDPROC NYUDTID 1320 REM //----------// 1340 PROC HOVED 1360 PRINT " TID ┆
0x21e600…21e800 (180, 1, 8) UnusedSector ┆ HØJDE HASTIGHED"; 1365 PRINT " VINKEL" 1380 SUMTID=0; VINKEL=0; HAST=XHAST; LINIER=-1 1400 EXEC TRYKNING 1420 ENDPROC HOVED 1440 REM //-----------// 1460 PROC NULSTIL 1480 X=0; Y=HØJDE+PLANETRADIUS; RADIUS=Y 1500 VINKEL=0; SUMTID=0 1520 YHAST=-KRAFT/RADIUS/RADIUS/2*DTID 1540 ENDPROC NULSTIL 1560 REM //----------// 1580 PROC BEREGN 1600 LINIER=0; DTRIN=0; STYRT=0 1620 REPEAT 1640 REPEAT 1660 DX=XHAST*DTID; X=X+DX 1680 DY┆
0x21e800…21ea00 (180, 1, 9) UnusedSector ┆=YHAST*DTID; Y=Y+DY 1700 GAXHAST=XHAST; GAYHAST=YHAST 1720 RADIUS=SQR(X^2+Y^2); HØJDE=RADIUS-PLANETRADIUS 1740 VINKEL=ATN(X/Y) 1760 IF Y>0 THEN 1780 IF X<=0 THEN VINKEL=VINKEL+2*PI 1800 ELSE 1820 VINKEL=VINKEL+PI 1840 ENDIF 1860 IF HØJDE>0 THEN 1880 TKRAFT=-KRAFT/RADIUS/RADIUS/RADIUS 1900 XACC=TKRAFT*X; YACC=TKRAFT*Y 1920 XHAST=XHAST+XACC*DTID; YHAST=YHAST+YACC*DTID 1940 MXHAST=(XHAST+GAXH┆
0x21ea00…21ec00 (180, 1, 10) UnusedSector ┆AST)/2; MYHAST=(YHAST+GAYHAST)/2 1960 HAST=SQR(MXHAST^2+MYHAST^2) 1980 SUMTID=SUMTID+DTID; DTRIN=DTRIN+1 2000 ELSE 2020 EXEC AFSTAND 2040 PRINT "NEDSTYRTNING! VINKEL="; 2060 PRINT INT(VINKEL*1800/PI+.5)/10; "GRADER." 2080 PRINT "TID ="; SUMTID+DTID; "SEKUNDER." 2100 EXEC AFSTAND 2120 STYRT=1; SVAR$="N" 2140 ENDIF 2160 UNTIL STYRT=1 OR DTRIN*DTID=>UDTID 2180 IF STYRT=0 THEN EXEC TRYKNING 2200 UN┆
0x21ec00…21ee00 (180, 1, 11) UnusedSector ┆TIL STYRT=1 OR LINIER=5 2220 ENDPROC BEREGN 2240 REM //----------// 2260 PROC TRYKNING 2280 TIMER=INT(SUMTID/3600) 2300 MINUTTER=INT((SUMTID-3600*TIMER)/60) 2320 SEKUNDER=SUMTID-3600*TIMER-60*MINUTTER 2330 HAST=INT(HAST*10)/10 2340 KM=INT(HØJDE/100+.5)/10; GRADER=INT(VINKEL*1800/PI+.5)/10 2360 EXEC USIN(TIMER,0,3) 2365 PRINT " T "; 2380 EXEC USIN(MINUTTER,0,3) 2385 PRINT " MIN"; 2400 EXEC USIN(SEKUNDER,0,3) 2405 PRINT " SEK "; 2420 EXEC USIN(KM,0,7)┆
0x21ee00…21f000 (180, 1, 12) UnusedSector ┆ 2425 PRINT " KM "; 2430 EXEC USIN(HAST,0,7) 2435 PRINT " M/S "; 2440 EXEC USIN(GRADER,0,5) 2445 PRINT " GRADER" 2480 LINIER=LINIER+1; DTRIN=0 2500 ENDPROC TRYKNING 2520 REM //----------// 9000 PROC USIN(UTAL,UDEC,UCIFRE) 9010 UP=UCIFRE+(UDEC>0)*1; UBILLED$="" 9030 IF UTAL*10^UDEC<10^UCIFRE THEN 9040 UBILLED$(1 : UP)=" "; UOK=0 9045 IF UTAL=INT(UTAL) THEN UBILLED$(UP : 1)="0"; UOK=1 9050 IF UDEC>0 THEN 9060 UREST=INT(UTAL┆
0x21f000…21f200 (181, 0, 1) UnusedSector ┆*10^UDEC+.5)-INT(UTAL)*10^UDEC 9070 UTAL=INT(UTAL) 9080 EXEC UPLADS(UREST) 9085 IF UOK=1 THEN UP=UP-1 9090 UBILLED$(UP : 1)="."; UP=UP-1 9100 ENDIF 9110 EXEC UPLADS(UTAL) 9120 ELSE 9130 UBILLED$(1 : UP)="***************" 9140 ENDIF 9150 PRINT UBILLED$; 9160 ENDPROC 9170 REM //----------// 9180 PROC UPLADS(UPTAL) 9190 WHILE UPTAL>0 DO 9200 UPDEL=INT(UPTAL-INT(UPTAL/10)*10); UPTAL=INT(UPTAL/10) 9210 UBILLED$(UP : 1)=CHR(┆
0x21f200…21f400 (181, 0, 2) UnusedSector ┆UPDEL+48); UP=UP-1 9220 ENDWHILE 9230 ENDPROC -INT(UPTAL/10)*10); UPTAL=INT(UPTAL/10) 9210 UBILLED$(UP : 1)=CHR( 0010 REM ******** TORBEN GRAVESEN 3U BOX388 ******* 0020 PRINT CHR(12) 0030 DEF FNC(Ø)=95+Ø-((Ø-1) DIV 32)*64 0040 DEF FIX(ØØ)=INT(ØØ*10)/10 0100 PRINT " DIMMENTIONERING OG STYRING AF EN REAKTOR" 0110 PRINT 0120 PRINT "DETTE POGRAM ER BEREGNET TIL BRUG SAMMEN MED FINN@S ELLER ØLGAARD@S" 0130 PRINT "NOTER I REAKTORFYSIK PROGRAMMET GIVER MULIGHED FOR AT" 0140 P┆
0x21f400…21f600 (181, 0, 3) Index {count=0x0002, a000=Slice {count=0x0011, sector=0x10fb}, a001=Slice {count=0x0006, sector=0x1124}}
0x21f600…21f800 (181, 0, 4) DataSector[»XAND3«]
[…0x10…]
0x221800…221a00 (181, 1, 9) UnusedSector ┆ ┆
0x221a00…221c00 (181, 1, 10) UnusedSector ┆ 0010 REM ******** TORBEN GRAVESEN 3U BOX388 ******* 0020 PRINT CHR(12) 0030 DEF FNC(Ø)=95+Ø-((Ø-1) DIV 32)*64 0040 DEF FIX(ØØ)=INT(ØØ*10)/10 0100 PRINT " DIMMENTIONERING OG STYRING AF EN REAKTOR" 0110 PRINT 0120 PRINT "DETTE POGRAM ER BEREGNET TIL BRUG SAMMEN MED FINN@S ELLER ØLGAARD@S" 0130 PRINT "NOTER I REAKTORFYSIK PROGRAMMET GIVER MULIGHED FOR AT" 0140 PRINT "DIMMENTIONERE OG STYRE EN HOMOGEN REAKTOR,HVOR DER BENYTTES U(235)" 0150 PRINT "SOM BRÆNDSELS MATERIALE (1) ELLER DU KA┆
0x221c00…221e00 (181, 1, 11) UnusedSector ┆N VÆLGE EN FÆRTIG" 0160 PRINT "REAKTOR OG BLOT STYRE DEN (2)" 0170 INPUT " VÆLG 1 ELLER 2 ",VALG 0200 IF VALG=2 THEN 0210 R=2.33; ALFA=2000; S=1.3529; EP=1; P=.9; LM=.05; TAU=.035; AM=.0045 0215 V=2.47; AF=582; AA=683; AU=2.75; MMM=12; MFM=1.65 0220 ETA=(V*AF)/(AA+(R*AU)) 0225 B=3*((3.141593/S)^2); V=S*S*S 0230 PF=EXP(-B*TAU) 0280 GO TO 0450 0300 ENDIF 0410 EXEC N 0420 EXEC TU 0430 EXEC NEUTRON 0440 EXEC SILON 0450 EXEC FIREFAKTOR 0460 EXEC STYR 0470 GO TO 045┆
0x221e00…222000 (181, 1, 12) UnusedSector ┆0 0480 END 2000 PROC MASSEBEREGN 2002 IF V=0 THEN 2004 PRINT " DET KAN IKKE OPLYSES,DA DU HAR VALGT EN UENDELIG STOR REAKTOR" 2005 PRINT 2006 ENDPROC 2007 PRINT 2008 ENDIF 2010 MILFOR238=R*1.02766 2020 MILFORMOD=ALFA*MMM*18.65/(MFM*235) 2030 FORHOLD=MILFOR238+1+MILFORMOD 2040 VOLUME235=V/FORHOLD 2050 VOLUME238=MILFOR238*V/FORHOLD 2060 VOLUMEMOD=MILFORMOD*V/FORHOLD 2070 REM 2080 MASSE235=18.86*VOLUME235 2090 MASSE238=18.65*VOLUME238 2100 MASSEMOD=MFM*V┆
0x222000…222200 (182, 0, 1) UnusedSector ┆OLUMEMOD 2102 PRINT "FØLGENDE MÆNGDE BRÆNDSELS OG MODERATOR MATERIALE" 2104 PRINT 2110 PRINT "VOLUME AF URAN(235) ER"; VOLUME235; "KUBIKMETER DET VEJER"; 2120 PRINT FIX(MASSE235*1000); "KG" 2130 PRINT "VOLUME AF URAN(238) ER"; VOLUME238; "KUBIKMETER DET VEJER"; 2140 PRINT FIX(MASSE238*1000); "KG" 2150 PRINT "VOLUMEN AF MODERATOR ER"; VOLUMEMOD; "KUBIKMETER DET VEJER"; 2160 PRINT FIX(MASSEMOD*1000); "KG" 2165 PRINT 2170 ENDPROC MASSEBEREGN 5000 PROC N 5004 PRINT " START MED A┆
0x222200…222400 (182, 0, 2) UnusedSector ┆T VÆLGE DIN " 5006 INPUT " BERIGNINGSGRAD I % : ",R 5007 R=(100-R)/R 5008 PRINT 5010 PRINT " ETA ER DEFINERET SOM ANTALLET AF FISSIONS NEUTRONER" 5020 PRINT " DER UDSENDES PR TERMISK NEUTRON ABSORBERET I URANSTAVENE" 5025 PRINT 5030 V=2.47; AF=582; AA=683; AU=2.75; TAU=0.081 5040 REM SIGMA(F)(235)=AF SIGMS(A)(235)=AA SIGMA(A)(238)=AU 5050 ETA=(V*AF)/(AA+(R*AU)) 5060 PRINT " ANTAL FISSIONS NEUTRONER (ETA) : "; ETA 5070 ENDPROC 6000 PROC TU 6004 PRINT ┆
0x222400…222600 (182, 0, 3) UnusedSector ┆ 6006 PRINT 6010 PRINT " F ER DEN TERMISKE UDNYTTELSESFAKTOR " 6015 PRINT 6020 PRINT " N(235)*SIGMA(A)(235)+N(238)*SIGMA(A)(238)" 6030 PRINT " F= -------------------------------------------" 6040 PRINT " SIGMA(A)(235)+R*SIGMA(A)(238)+ALFA*SIGMA(A)(M)" 6045 PRINT 6048 PRINT " VÆLG MODERATOR MATERIALE DER ER 5 MULIGHEDER " 6050 PRINT " 1 ALM. VAND H2O" 6052 PRINT " 2 TUNGT VAND D2O" 6054 PRINT " 3 GRAFIT C" 6056 PRINT " 4 BERYL┆
0x222600…222800 (182, 0, 4) UnusedSector ┆LIUM BE" 6058 PRINT " 5 ANDET" 6060 INPUT " VÆLG (1-5): ",VALG 6062 IF VALG=1 THEN LM=.0288; TAU=.0033; AM=.66; MMM=18; MFM=1 6064 IF VALG=2 THEN LM=.1; TAU=.012; AM=.0026; MMM=20; MFM=1.10 6066 IF VALG=3 THEN LM=.05; TAU=.035; AM=.0045; MMM=12; MFM=1.65 6068 IF VALG=4 THEN LM=.024; TAU=.0098; AM=.009; MMM=9; MFM=1.85 6070 IF VALG=5 THEN 6072 INPUT " SKRIV TAU , LM , SIGMA(A)(M) :",TAU,LM,AM 6074 ENDIF 6076 PRINT 6079 INPUT " ALFA=N(M)/N(235) SKRIV┆
0x222800…222a00 (182, 0, 5) UnusedSector ┆ ALFA ! (F.EKS 2000) : ",ALFA 6080 F=(AA+R*AU)/(AA+R*AU+ALFA*AM) 6090 PRINT " F = "; F 6100 PRINT 6110 ENDPROC TU 7000 PROC SILON 7010 PRINT 7020 PRINT 7030 PRINT " FIREFAKTORFORMEL : K=ETA*EPSILON*P*F*PF*PT " 7040 PRINT 7050 INPUT " VÆLG EPSILON MELLEM 1 OG 1.04 : ",EP 7060 INPUT " OG VÆLG P MELLEM 0.75 OG 0.9 : ",P 7062 ENDPROC SILON 7068 PROC FIREFAKTOR 7070 F=(AA+R*AU)/(AA+R*AU+ALFA*AM); L=LM*LM*(1-F); PT=1/(1+B*L) 7080 K=ETA*EP*F*P*PF*PT 7┆
0x222a00…222c00 (182, 0, 6) UnusedSector ┆090 PRINT " K = ",K 7100 PRINT 7110 IF K<1 THEN 7120 PRINT " DENNE REAKTOR VIL ALDRIG KOMME I GANG " 7125 GO TO 7200 7130 ENDIF 7140 IF K>1.1 THEN 7150 PRINT " DENNE REAKTOR VIL NEDSMELTE ILØBET AF KORT TID (KINASYNDROMET ! )" 7155 GO TO 7200 7160 ENDIF 7170 PRINT " DENNE REAKTOR HAR GODE FREMTIDS MULIGHEDER " 7180 INPUT " ØNSKER DU AT FORBEDRE REAKTOREN?JA=1 NEJ=2 ",VALG 7185 IF VALG=2 THEN GO TO 7450 7190 GO TO 7210 7200 PRINT "┆
0x222c00…222e00 (182, 0, 7) UnusedSector ┆ JEG VIL RÅDE DIG TIL AT ÆNDRE DIN REAKTOR" 7210 PRINT " DU KAN VÆLGE AT ÆNDRE PÅ FØLGENDE OMRÅDER" 7220 PRINT " 1 HELE DIMENTIONERINGEN (STARTE FORFRA)" 7230 PRINT " 2 BERIGNINGSGRADEN" 7240 PRINT " 3 DEN TERMISKEUDNYTTELSES FAKTOR F OG MODERATOR MATERIALE" 7250 PRINT " 4 REAKTORENS STØRRELSE OG FORM" 7260 PRINT " 5 EPSILON OG P" 7270 PRINT " 6 INGEN ÆNDRING" 7280 REM 7290 INPUT " DIT VALG (1-6) : ",VALG 7300 ON VALG GO TO 73┆
0x222e00…223000 (182, 0, 8) UnusedSector ┆10,7350,7370,7400,7420,7450 7310 EXEC N 7320 EXEC TU 7325 EXEC SILON 7330 EXEC NEUTRON 7340 GO TO 7070 7350 EXEC N 7360 GO TO 7070 7370 EXEC TU 7380 L=LM*LM*(1-F); PT=1/(1+B*L) 7390 GO TO 7070 7400 EXEC NEUTRON 7410 GO TO 7070 7420 EXEC SILON 7430 GO TO 7070 7450 ENDPROC FIREFAKTOR 8000 PROC NEUTRON 8010 PRINT 8020 PRINT " DENNE DEL AF PROGRAMMET UDREGNER FORSKELLIGE VÆRDIER " 8030 PRINT " FOR PF OG PT AFHÆNGIGT AF REAKTORENS FORM" 8┆
0x223000…223200 (182, 0, 9) UnusedSector ┆035 PRINT " DU STARTER MED AT VÆLGE REAKTORENS FORM, DER ER 4 MULIGHEDER " 8040 PRINT " 1 SFÆRISK REAKTOR MED RADIUS R " 8050 PRINT " 2 CYLINDRISK REAKTOR MED HØJDEN H OG RADIUS R" 8060 PRINT " 3 KUBISK REAKTOR MED KANTLÆNGDEN S" 8065 PRINT " 4 UENDELIG STOR REAKTOR PF OG PT ER LIG 1" 8070 INPUT " VÆLG REAKTOR FORM 1,2,3 ELLER 4 : ",VALG 8080 ON VALG GO TO 8100,8200,8300,8250 8100 PRINT 8110 INPUT " SKRIV RADIUS R : ",R 8120 B=(3.141593/R)^2; V=4*3.14159*R*R*R/3 ┆
0x223200…223400 (182, 0, 10) UnusedSector ┆ 8130 GO TO 8400 8200 PRINT 8210 INPUT " SKRIV HØJDEN H ",H," OG RADIUS R ",R 8220 B=(2.405/R)^2+(3.141593/H)^2 8230 GO TO 8400 8250 PF,PT=1; B=0; V=0 8260 GO TO 8570 8300 PRINT 8310 INPUT " SKRIV KANTLÆNGDEN S : ",S 8320 B=3*((3.141593/S)^2); V=S*S*S 8400 PF=EXP(-B*TAU); L=LM*LM*(1-F); PT=1/(1+B*L) 8430 PRINT 8440 PRINT " PF= "; PF; " PT= "; PT 8450 PRINT 8570 ENDPROC NEUTRON 9000 PROC STYR 9001 PRINT 9002 INPUT " ØNSKER D┆
0x223400…223600 (182, 0, 11) UnusedSector ┆U AT FÅ OPLYST BRÆNSELS MÆNGDE? JA=1",VALG 9004 IF VALG=1 THEN EXEC MASSEBEREGN 9005 Z=100; TID=0; DT=.2; ALF=.02; TAV=.081 9010 PRINT " DU HAR NU DIMENTIONERET DIN REAKTOR OG SKAL VÆLGE MATERIALE " 9020 PRINT " TIL DINE STYRINGS KONTROL STÆNGER ! " 9030 PRINT 9040 PRINT " DU HAR FØLGENDE VALG MULIGHEDER :" 9050 PRINT " 1 BOR (B)" 9060 PRINT " 2 CADMIUM (CD)" 9070 PRINT " 3 EUROPIUM (EU)" 9080 PRINT " 4 ANDET MATERIALE" 9090 INPUT " DIT VALG !(1,2,3 ELLER 4)┆
0x223600…223800 (182, 0, 12) UnusedSector ┆ : ",VALG 9100 IF VALG=1 THEN SIGMAS=755 9110 IF VALG=2 THEN SIGMAS=2450 9120 IF VALG=3 THEN SIGMAS=4300 9130 IF VALG=>4 THEN 9140 INPUT " SKRIV ABS.TVÆRSNITTET FOR DIT MATERIALE : ",SIGMAS 9150 ENDIF 9160 PRINT " DU KAN NU STARTE REAKTOREN OP,MEN FØRST SKAL DU OPLYSE" 9170 PRINT " HVOR MANGE PROCENT AF DINE KOMTROLSTÆNGER DU VIL HAVE " 9180 INPUT " I REAKTOREN : ",PRC 9190 ALFAS=PRC*ALF/100 9300 PRINT " DU KAN NU STYRE DIN REAKTOR VED AT FLYTTE STÆNGERNE OP O┆
0x223800…223a00 (182, 1, 1) UnusedSector ┆G NED " 9310 PRINT " MENS REAKTOREN KØRE DETTE GØRES FRA TASTATURET " 9320 PRINT " TASTES '1' FLYTTES OPAD OG BLIVER VED MED DET INDTIL DU " 9330 PRINT " TASTER '2' FOR STOP ELLER '3' FOR NED " 9340 F=(AA+R*AU)/(AA+R*AU+ALFA*AM+ALFAS*SIGMAS); L=LM*LM*(1-F); PT=1/(1+B*L) 9345 K=ETA*EP*F*P*PF*PT 9350 DN=EXP((K-1)/TAV) 9360 PRINT " NEUTRONERNE FORØGES NU MED FAKTOREN PR SEK : "; DN; " K="; K 9370 INPUT " VIL DU STARTE ? (JA=1 NEJ=2 OMDIMENTIONERING=3 ) ",VALG 9375 PRINT ┆
0x223a00…223c00 (182, 1, 2) UnusedSector ┆ 9378 IF VALG=3 THEN GO TO 9900 9380 IF VALG<>1 THEN GO TO 9160 9390 PRINT CHR(12) 9400 REPEAT KØRSEL 9405 TID=TID+DT 9410 IN 132,OPNED 9412 IF OPNED=177 AND PRC>0 THEN PRC=PRC-1 9414 IF OPNED=179 AND PRC<100 THEN PRC=PRC+1 9416 IF CHR(OPNED)="H" THEN PRC=100 9418 IF OPNED=177 AND PRC<0 THEN PRC=0 9420 ALFAS=ALF*PRC/100 9450 F=(AA+R*AU)/(AA+R*AU+ALFA*AM+ALFAS*SIGMAS); L=LM*LM*(1-F); PT=1/(1+B*L) 9500 K=ETA*EP*F*P*PF*PT 9535 Z=Z*EXP((K┆
0x223c00…223e00 (182, 1, 3) UnusedSector ┆-1)*DT/TAV) 9540 EXEC CURSOR(5,10) 9550 PRINT " DU HAR NU "; INT(Z-100); " PROCENT FLERE NEUTRONER " 9570 EXEC CURSOR(5,3) 9580 PRINT " TID(SEK) : "; INT(TID*10)/10 9582 PRINT 9584 PRINT " PRCENT AF KONTROLST. I REAKTOREN : "; PRC 9586 PRINT 9588 PRINT " K : "; K 9800 UNTIL CHR(OPNED)="S" OR INT(Z)<=0 OR INT(Z)>200 9810 PRINT CHR(12) 9900 ENDPROC STYR 9910 PROC CURSOR(X,Y) 9920 PRINT CHR(6); CHR(FNC(X)); CHR(FNC(Y)) 9930 ENDPROC CURSOR┆
0x223e00…224000 (182, 1, 4) UnusedSector ┆ INT CHR(12) 9900 ENDPROC STYR 9910 PROC CURSOR(X,Y) 9920 PRINT CHR(6); CHR(FNC(X)); CHR(FNC(Y)) 9930 ENDPROC CURSOR 0010 REM FIL-NAVN "HANGMAN" 0020 PRINT CHR(12) 0030 DIM BJ$(1) 0040 PRINT TAB(26); "HANGMAN" 0050 PRINT 0060 PRINT "MASKINEN VÆLGER ET ORD SOM DEN GEMMER." 0070 PRINT "DU FÅR KUN AT VIDE HVOR MANGE BOGSTAVER DER INDGÅR I ORDET" 0080 PRINT "HVIS DU GÆTTER RIGTIG FORTÆLLER MASKINEN DIG" 0090 PRINT "HVOR I ORDET BOGSTAVET INDGÅR." 0100 PRINT "EFTER HVER FEJLSLAGEN ┆
0x224000…224200 (182, 1, 5) UnusedSector ┆EOKTAL; BEGIN OPMESS(OKTAL); BINOCT(A,HELP3); INSERT(0,HELP3,6); OPMESS(HELP3); END; PROCEDURE RCOM; BEGIN OPCOM; IF HELP1 = CHAR THEN GOTO 3; IF HELP1 = STOP THEN BEGIN CLOSE(ZONE,1); GOTO 1; END; IF HELP1 = DON THEN ! SWITCH DATACHECK ON ! IF SQ AND 128 = 0 THEN SQ:=SQ+128; IF HELP1 = DOFF THEN ! SWITCH DATACHECK OFF ! IF SQ AND 128 <> 0 THEN SQ:=SQ-128; IF BYTE HELP1 = 80 THEN ! P FOR PRINT CUR RECORD ! BEGIN IF HELP1 = PP ┆
0x224200…224400 (182, 1, 6) UnusedSector ┆THEN WRITEPOSITION ELSE BEGIN BINDEC(ZONE.ZLENGTH-ZONE.ZREM,HELP2); OPMESS(HELP2); OPMESS(LF); B:=0; INSERT(0,HELP,1); REPEAT IF OPTEST <> 0 THEN ! ESCAPE ! BEGIN OPCOM; GOTO 100; END; MOVE(ZONE^,B,HELP,0,1); IF HELP1 = PO THEN BEGIN A:=BYTE HELP; WRITEOKTAL; IF B AND 7 = 7 THEN OPMESS(LF); END ELSE OPMESS(HELP); B:=B+1 UNTIL B >= ZONE.ZLENGTH-ZONE.ZREM; ┆
0x224400…224600 (182, 1, 7) UnusedSector ┆ END; 100: OPMESS(LF); END; END; PROCEDURE WRITEINTEGER; BEGIN BINDEC(A,HELP1); OPMESS(HELP1); END; PROCEDURE DATAERR; BEGIN FIRSTTIME:=NOOFSHARES; OPMESS(DATA); OPMESS(ERR); A:=BPOINTER; WRITEINTEGER; OPMESS(W); A:=OLDXN AND 255; WRITEINTEGER; OPMESS(R); A:= BYTE HELP; WRITEINTEGER; WRITEPOSITION; IF ERRCOUNT = 0 THEN BEGIN OPMESS(Q); RCOM; IF HELP1 = OFF THEN BEGIN SQ:=SQ-128; ! STOP DATACHECK ! GOT┆
0x224600…224800 (182, 1, 8) UnusedSector ┆O 1002; END; IF HELP1 = START THEN GOTO 1002; IF BYTE HELP1 < 58 THEN ! PRINT ERRORS ! IF BYTE HELP1 > 48 THEN DECBIN(HELP1,ERRCOUNT); END ELSE ERRCOUNT:=ERRCOUNT-1; END; PROCEDURE LENGTHERR; BEGIN OPMESS(LEN); OPMESS(ERR); OPMESS(W); WRITEINTEGER; OPMESS(R); A:=ZONE.ZSHAREL; WRITEINTEGER; WRITEPOSITION; OPMESS(Q); RCOM; IF HELP1 = OFF THEN SQ:=SQ-64; ! STOP LENGTHCHECK ! END; PROCEDURE ZONEERR; BEGIN IF MASK AND ZONE.Z0 <> 0 THEN BEGI┆
0x224800…224a00 (182, 1, 9) DataSector[»XAND3«]
[…0x5…]
0x225400…225600 (183, 0, 3) Index {count=0x0003, a000=Slice {count=0x0005, sector=0x112b}, a001=Slice {count=0x0006, sector=0x1148}, a002=Slice {count=0x0012, sector=0x1154}}
0x225600…225800 (183, 0, 4) DataSector[»UPSCO«]
[…0x4…]
0x226000…226200 (183, 0, 9) UnusedSector ┆MOD VEST ANES EN TYND RØGSTRIBE. T ORIENTERE SIG.. 0179 NEXT A 0180 FOR A=40 TO 52 0181 KORTSTAK(A)=KVART20(A-39) DU BEFINDER DIG MIDT PÅ TRAPPEN. TRINDENE KAN NÆSTEN IKKE EM ******************** NULSTILOVER ******************** 0186 REM BÆRE DIN VÆGT..... MEN DU DRAGES VIDERE... AN NÆSTEN IKKE 0190 B=B+4 0191 OVER(A)=B 0192 NEXT A 0193 ENDPROC OP OP OP OP .... . MEN DU DRAGES VIDERE... ************ SPIL ******************** 0196 REM 0197 PROC SPIL 0198 SPOINT=0┆
0x226200…226400 (183, 0, 10) UnusedSector ┆DU KLAMRER DIG FAST TIL EN MÆGTIG STALAKIT. DET ER NEMT 99 EXEC GIVETKORT(SKORT,ANTALSKORT) 0200 EXEC TEKST6 0201 EXECNOK AT KRAVLE NED AD DEN, MEN DET BLIVER T. DET ER NEMT INT(SKORT,SPOINT) 0204 FØRSTEPOINT=SKORT 0205 EXEC INDSATS 020MEGET, MEGET SVÆRT AT KOMME OP IGEN... R NSKES FLERE KORT (J/N)?: ",SVAR$ 0208 IF SVAR$="J" THEN 0209 REPEAT 0210 DU ER I GUILLOTINE-RUMMET. DA DU SER OP, OPDAGER DU, AT DER OVER ORT) 0212 EXEC AJOUROVER(SKORT) 0213 EXEC POINT┆
0x226400…226600 (183, 0, 11) UnusedSector ┆DIG HÆNGER ET GIGANTISK KNIVSBLAD, SOM SVINGER FARETRUENDE, MENS C POSITION(1,24) 0216 INPUT "ØNSKES FLERE KORT (J/N)?DET FLAKKENDE SKÆR FRA DIN FAKKEL FUNKLER I DEN SKARPTSLEBNE ÆG ! OVERFLOW(SPOINT)=1) OR (ANTALSKORT=5) 0219 ENDIF 0220 DETTE ER KÆMPENS HULE. DU KAN HØRE HANS TUNGE SKRIDT OG EKKO FRA USTERING=4 0223 REPEAT 0224 EXEC GIVETKORT(MKORHANS STØNNEN. HAN NÆRMER SIG !!! FLYGT ! ! ! ! OG EKKO FRA OUROVER(MKORT) 0227 EXEC POINT(MKORT,MPOINT) 0228 ┆
0x226600…226800 (183, 0, 12) UnusedSector ┆DU STÅR VED SYDSIDEN AF EN DYB, MØRK KLØFT, MEN DEN ER FOR BRED VERFLOW(MPOINT)=1) OR (ANTALMKORT=5) 0230 ELSE 0231 ETIL AT SPRINGE OVER. ET UHYGGELIGT EKKO ER INDIKATION FOR BRED IF (FNOVERFLOW(SPOINT)=0) AND (FNOVERFLOW(MPOINT)=0) THEN 02AF EN UFATTELIG DYBDE. DU KASTER EN STEN NED,MEN KAN INTET HØRE.. NTALSKORT<5) AND (ANTALMKORT<5) THEN 0237 IF MPOINTDU ER I EN UBEGRIBELIG OG FARLIG LILLE LABYRINT... N INTET HØRE.. MASKINVINDER 0240 ELSE 0241 EXEC TEKST9┆
0x226800…226a00 (183, 1, 1) UnusedSector ┆DU ER HAVNET I SPEJLSALEN - I BOGSTAVELIGSTE FORSTAND- TROLDMANDEN MERLINS FORTRYLLEDE SPEJLE KASTER DIT ANSIGTS BILLEDE TILBAGE I TUSINDVIS AF FORVRÆNGEDE FORMER. UNDERKASTET DENNE MAGT- FULDE TROLDMANDS MAGI, ER DU IKKE SELV HERRE OVER DINE SKRIDT... - ┆
0x226a00…226c00 (183, 1, 2) UnusedSector ┆PÅ VÆGGENE SES GAMLE HELLIGE SKRIFTTEGN.MOD NORD ANES ET SVAGT LY 4 <P B47 ? DU STÅR PÅ TOPPEN AF EN STEJL KLIPPE. UNDER DIG SIGER EN SVAGT LY 4 @P B57 @ MEDDELELSE PÅ VÆGGEN : STEJL KLIPPE. UNDER DIG SIGER EN B67 A0 B70 Ap 'BILBO WAS HERE' : BTC p BTF BTM ┆
0x226c00…226e00 (183, 1, 3) UnusedSector ┆DEN SMALLE GANG OPLYSES AF ET SVAGT SKÆR FRA SELVLYSENDE B44 <P B47 ? FOSFORFORBINDELSER, DER DRIVER NED AF VÆGGENE. LVLYSENDE B54 @P B57 @ DU ER HAVNET I EN YDERST MYSTISK LABYRINT... . A B67 A0 B70 Ap DU VAR OVERMODIG OG KOM FOR TÆT PÅ KANTEN AF EN STEJL SKRÆNT, BTF BTM ┆
0x226e00…227000 (183, 1, 4) UnusedSector ┆OG DU KURER NU HJÆLPELØST NEDAD !!! ANTEN AF EN STEJL SKRÆNT, A AT TRÆKKE, TAST DA : AF" 0310 PRINT "HVIS DU VIL GIVE OP / DU BEFINDER DIG I EN SORT SKAKT, HVOR DU STYRTER NEDAD MED ); MDVÆRDI=3-RCVÆRDI; T$=" XO" 0330 TRUE=1; FALSE=0; TOM,NUL=0 UFATTELIG HASTIGHED, NED NED NED NED .!!!! YRTER NEDAD MED 6)=MDVÆRDI 0350 VERTI(5),VERTI(6),HORIZ(5),HORIZ(6)=2; BRÆT(5,6),DU STÅR PLUDSELIG I ET TOTALT SORT HUL.TYNGDEKRAFTEN ER OVERVÆLDEND FOR J=5 TO 6 0390 EXEC BRIKPRINT(I,J) 0400 N┆
0x227000…227200 (183, 1, 5) UnusedSector ┆DER ER BULDRENDE MØRKT MOD VEST, OG DER BLIVER DU LIGESOM ERVÆLDEND 0440 PROC SPIL 0450 REPEAT 0460 EXEC MDBRIKPLATRUKKET HEN. DU PRØVER AT STRITTE IMOD, MEN ... U LIGESOM ERING 0480 UNTIL PLACEREDE=64 OR AFSTÅET=2 OR BMD=0 OR BRC=0 OR PLDU BEFINDER DIG I TROLDMANDEN MERLINS TÅRNKAMMER. -------// 0510 PROC MDBRIKPLACERING 0520 REPEAT 0530 REPEAT 05I DET HALVMØRKE VÆRRELSE SES HANS UHYGGELIGE REMEDIER... KPLACERING : ",PLACERING$ 0560 EXEC CURSOR(1,2,32) 0570 ┆
0x227200…227400 (183, 1, 6) UnusedSector ┆DETTE ER DE MØRKE KATAKOMBER. DET ER ABSOLUT IKKE ER... " 0590 NEXT SLET 0600 EXEC CURSOR(1,2,32) 0610 TILRÅDELIGT AT FORTSÆTTE MOD ØST...(!) BSOLUT IKKE REM VERT (CIFFER -48) TIL J. 0630 REM HORZ (BOGSTAV-96) TIL I.DU VAR FOR OVERMODIG !!. DU LYTTEDE IKKE TIL ET GODT RÅD, J=ORD(PLACERING$(2 : 1))-48; I=ORD(PLACERING$(1 : 1))-96 0660 OG DET KOSTEDE DIG TO FINGRE OG 5 POINT...!! ET GODT RÅD, ORD(PLACERING$(2 : 1))-96 0680 ENDIF 0690 PLACERE=(FA┆
0x227400…227600 (183, 1, 7) UnusedSector ┆TROR DU, AT DU ER EN FUGL ???. DU KAN DA IKKE FLYVE! TÆNK LIDT =(I>0 AND I<9 AND J>0 AND J<9) OR PLACERE=FALSE 0710 IF PLAOVER DET, MENS DU STYRTER MOD JORDEN LANGT UNDE DIG. TÆNK LIDT 0 IF BRÆT(I,J)<>TOM THEN 0740 PRINT "OPTAGET FELT !"DET VANVITTIGE FORSØG KOSTER DIG ET BRÆKKET BEN OG 5 POINT !!! 770 IF MULIG=FALSE THEN 0780 PRINT "????" 0790DU SÅ DIG IKKE FOR, OG ER SKVATTET I EN FÆLDE AF KVIKSAND. !!! 0810 IF VENDBARE=FALSE THEN 0820 PRINT "ING┆
0x227600…227800 (183, 1, 8) UnusedSector ┆MED STORT BESVÆRD KOMMER DU OP, MEN DET HAR KOSTET DIG 2 POINT EXEC CURSOR(1,14,7) 0850 PRINT "DU TOG"; VEDU STÅR PÅ EN STEJL SKRÅNING.UNDER DIG ER JORDEN RØD, 2 POINT PRINT "BRIK." 0880 ELSE 0890 PRINT "SOM OM DEN GLØDER. MOD ØST ER DER EN BJERGRYG. N RØD, TÅET=0; OKAY=TRUE; BMD=BMD+VENDBARE+1; BRC=BRC-VENDBARE 0920 PDU BEVÆGER DIG PÅ EN SMAL OG FARLIG STI. DET GÅR STEJLT NED 1 0930 EXEC OPTÆL(I,J,1,RCVÆRDI,MDVÆRDI) 0940 ┆
0x227800…227a00 (183, 1, 9) UnusedSector ┆MOD SYD. MOD NORD ER DER EN HULE. G STI. DET GÅR STEJLT NED OKAY=TRUE 0980 ENDPROC MDBRIKPLACERING 0990 REM //----------// DU STÅR I EN SVAGT OPLYST HULE. DER ER GANGE MOD SYD, ØST, ING$="ST" THEN EXIT 1020 I,J=1 1030 REPEAT ** FIND TESTFELTEVEST OG MEGET HØJT TIL LOFTET; MEN KUN EN VEJ ER DEN RIGTIGE ! 0) 1050 UNTIL VERTI(I)<>0 AND HORIZ(J)<>0 1060 VI=I-1; VJDU STÅR PÅ EN SMAL AFSATS. MOD NORD SKIMTES ET SVAGT RIGTIGE ! 080 I=I-(VERTI(I)=0); J=J-(HORIZ(J)=0) 1090 UNTIL VERTI(I┆
0x227a00…227c00 (183, 1, 10) UnusedSector ┆LYS. MOD SYD ER DER EN STEJL SKRÆNT. KIMTES ET SVAGT VI=1); VJ=VJ+(VJ=1) 1110 WI=WI-(WI=10); WJ=WJ-(WJ=10); MAX=-1 1120 DU STÅR VED INDGANGEN TIL EN TUNNEL. DU ER MODIG AT IF BRÆT(I,J)=TOM THEN 1150 EXEC OMLIGGENDE(I,J,MDVÆRDI) 1160 PRØVE DENNE VEJ ANGEN TIL EN TUNNEL. DU ER MODIG AT ÆL(I,J,0,MDVÆRDI,RCVÆRDI) 1180 IF VENDBARE>0 THEN 1190 DU BEFINDER DIG PÅ EN BJÆRGSIDE, DET ER VANSKELIGT AT BEVÆGE IF 0=((J-2)*(J-9)) THEN VENDBARE=VENDBARE+2 1210 ┆
0x227c00…227e00 (183, 1, 11) UnusedSector ┆SIG HER ! OVER DIG ER INDGANGEN TIL EN TUNNEL. UNDER DIG ER AX THEN R=RND(0) 1230 IF R<.5 OR VENDBARE>MAX THEN DER SKOV. ER DIG ER INDGANGEN TIL EN TUNNEL. UNDER DIG ER POSITION ** 1250 ENDIF ** BRIKKER KAN VENDES ** 1260 DU STÅR NU PÅ TOPPEN AF EN VULKAN.. EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE VINDEN BLAESER DIG BORT , DU TABER ORIENTERING. 0 PRINT "RC700 AFSTÅR!" 1330 PRINT "DIN TUR" 1340 AFSTÅET=AFSTÅ┆
0x227e00…228000 (183, 1, 12) UnusedSector ┆SSYSP X F 8 G STACO STARW v S STERR p SUBCA SVAN1 SVAN3 SYS 0 0 SYSG SYSSC TDISC A A TEST @ 6 TIME TIMEX L TT009 TTY0 ┆
0x228000…228200 (184, 0, 1) UnusedSector ┆TYPE ULIB d # W n WTEST h WTIME Ø WTST6 XREF L YDBOP ( YDBX3 ø å YFS06 YMSNO Z YPPX1 YSNOP X Y YTT09 5 : 5 YTTP YWTIM ┆
0x228200…228400 (184, 0, 2) UnusedSector ┆ LIB d # W n WTEST h WTIME Ø WTST6 XREF L YDBOP ( YDBX3 ø å YFS06 YMSNO Z YPPX1 YSNOP X Y YTT09 5 : 5 YTTP YWTIM ┆
0x228400…228600 (184, 0, 3) DataSector[»YDBX3«]
[…0x5…]
0x229000…229200 (184, 0, 9) DataSector[»UPSCO«]
[…0x5…]
0x229c00…229e00 (184, 1, 3) DataSector[»LOGIC«]
[…0x5…]
0x22a800…22aa00 (184, 1, 9) DataSector[»UPSCO«]
[…0x11…]
0x22cc00…22ce00 (185, 1, 3) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x1167}}
0x22ce00…22d000 (185, 1, 4) DataSector[»Y3102«]
[…0x4…]
0x22d800…22da00 (185, 1, 9) DataSector[»ZTEMP«]
[…0x17…]
0x230800…230a00 (186, 1, 9) UnusedSector ┆ ┆
0x230a00…230c00 (186, 1, 10) UnusedSector ┆ 0010 REM FIL-NAVN "HANGMAN" 0020 PRINT CHR(12) 0030 DIM BJ$(1) 0040 PRINT TAB(26); "HANGMAN" 0050 PRINT 0060 PRINT "MASKINEN VÆLGER ET ORD SOM DEN GEMMER." 0070 PRINT "DU FÅR KUN AT VIDE HVOR MANGE BOGSTAVER DER INDGÅR I ORDET" 0080 PRINT "HVIS DU GÆTTER RIGTIG FORTÆLLER MASKINEN DIG" 0090 PRINT "HVOR I ORDET BOGSTAVET INDGÅR." 0100 PRINT "EFTER HVER FEJLSLAGEN FORSØG HÆNGER MASKINEN DIG EN LILLE SMULE." 0110 PRINT "DU HAR 10 FORSØG INDEN DU ER HÆNGT H E L T." 0120 PRINT 0130 PRIN┆
0x230c00…230e00 (186, 1, 11) UnusedSector ┆T "SAMTLIGE ORD ER STAVET MED STORT." 0140 PRINT 0150 PRINT "NÅR/HVIS DU GÆTTER ET BOGSTAV RIGTIG FÅR DU MULIGHED" 0160 PRINT "FOR AT GÆTTE HELE ORDET. HVIS DU FEJLER HER, TÆLLER" 0170 PRINT "DET IKKE MED I REGNSKABET." 0180 PRINT 0190 INPUT "NÅR DU HAR LÆST DETTE TAST RETURN",BJ$ 0200 DIM ORD$(20),P$(144,1),D$(20,1),N$(26,1),U(50),H$(3,4) 0210 DIM BOGS$(1),L$(26),G$(1),B$(20),W$(3),T$(3),TOM$(1) 0220 TOM$(1 : 1)=" " 0230 NN=50; C=1 0240 PRINT CHR(12) 0250 FOR I=1 TO 20 0260 D$┆
0x230e00…231000 (186, 1, 12) UnusedSector ┆(I)="-" 0270 NEXT I 0280 M=0 0290 FOR I=1 TO 26 0300 N$(I)="" 0310 NEXT I 0320 FOR I=1 TO 144 0330 P$(I)=" " 0340 NEXT I 0350 FOR I=1 TO 144 STEP 12 0360 P$(I)="X" 0370 NEXT I 0380 FOR I=2 TO 7 0390 P$(I)="X" 0400 NEXT I 0410 P$(19)="X" 0420 IF C<NN THEN GO TO 0450 0430 PRINT "DU HAR GÆTTET ALLE ORDERNE" 0440 GO TO 2240 0450 RANDOMIZE 3 0460 Q=INT(NN*RND(0))+1 0470 IF U(Q)=1 THEN GO TO 0450 0480 U(Q)=1; C=C+1; T1=0 0490 PRINT CHR(6); CHR(125); CHR(103); ┆
0x231000…231200 (187, 0, 1) UnusedSector ┆ 0500 PRINT "JEG GØR LIGE KLAR" 0510 RR=1 0520 PRINT CHR(6); CHR(96); CHR(99); 0530 EXEC SAMELINE 0540 FOR I=RR TO RR+11 0550 PRINT P$(I); 0560 NEXT I 0570 RR=RR+12 0580 IF RR<>145 THEN 0590 PRINT 0600 GO TO 0540 0610 ENDIF 0620 RESTORE 0630 FOR I=1 TO Q 0640 READ ORD$ 0650 NEXT I 0660 ANTAL=0 0670 FOR I=1 TO 20 0680 BOGS$(1 : 1)=ORD$(I : 1) 0690 IF BOGS$=" " THEN EXIT 0700 L$(I : 1)=BOGS$(1 : 1) 0710 ANTAL=ANTAL+1 0720 NEXT I 0730 D$(AN┆
0x231200…231400 (187, 0, 2) UnusedSector ┆TAL+1)=" " 0740 PRINT CHR(6); CHR(96); CHR(111); 0750 PRINT "HER ER DE BOGSTAVER DU HAR VALGT:" 0760 FOR I=1 TO 26 0770 PRINT N$(I); 0780 IF N$(I+1)="" THEN EXIT 0790 PRINT ","; 0800 NEXT I 0810 PRINT CHR(6); CHR(96); CHR(113); 0820 FOR I=1 TO ANTAL 0830 PRINT D$(I); 0840 NEXT I 0850 PRINT 0860 PRINT 0870 PRINT " " 0880 EXEC SAMELINE 0890 INPUT "HVAD ER DIT GÆT: ",G$(1 : 1) 0900 EXEC UPPERCASE(G$) 0910 Z=0┆
0x231400…231600 (187, 0, 3) UnusedSector ┆; Q=3 0920 FOR I=1 TO 26 0930 IF N$(I)="" THEN 0940 Q=2 0950 ELSE 0960 IF G$=N$(I) THEN 0970 PRINT CHR(6); CHR(125); CHR(103); 0980 PRINT "DU HAR GÆTTET DETTE BOGSTAV FØR" 0990 Q=1 1000 ENDIF 1010 ENDIF 1020 IF Q<>3 THEN EXIT 1030 NEXT I 1040 IF Q=3 THEN GO TO 1070 1050 IF Q=2 THEN GO TO 1090 1060 IF Q=1 THEN GO TO 0740 1070 PRINT "PROGRAM FEJL -- START FORFRA" 1080 GO TO 2240 1090 N$(I)=G$(1 : 1) 1100 T1=T1+1 1110 FOR I=1 ┆
0x231600…231800 (187, 0, 4) UnusedSector ┆TO ANTAL 1120 IF L$(I : 1)=G$(1 : 1) THEN 1130 D$(I)=G$ 1140 Z=Z+1 1150 ENDIF 1160 NEXT I 1170 PRINT CHR(6); CHR(96); CHR(96); 1180 PRINT " " 1190 PRINT " " 1200 IF Z=0 THEN GO TO 1530 1210 GO TO 1220 1220 FOR I=1 TO ANTAL+1 1230 IF D$(I)="-" THEN 1240 EXIT 1250 ELSE 1260 IF D$(I)=" " THEN 1270 GO TO 1500 1280 ENDIF 1290 ENDIF 1300 NEX┆
0x231800…231a00 (187, 0, 5) UnusedSector ┆T I 1310 PRINT CHR(6); CHR(125); CHR(103); 1320 PRINT " " 1330 PRINT CHR(6); CHR(96); CHR(113); 1340 FOR I=1 TO ANTAL 1350 PRINT D$(I); 1360 NEXT I 1370 PRINT 1380 PRINT 1390 INPUT "HVAD ER DIT GÆT PÅ HELE ORDET : ",B$ 1400 EXEC UPPERCASE(B$) 1410 IF B$+TOM$=ORD$ THEN GO TO 1450 1420 PRINT CHR(6); CHR(125); CHR(103); 1430 PRINT "FORKERT. PRØV ET ANDET BOGSTAV" 1440 GO TO 0740 1450 PRINT "KORREKT !!! DET TOG DIG"; T1; "GÆT" 14┆
0x231a00…231c00 (187, 0, 6) UnusedSector ┆60 INPUT "ØNSKER DU ET ANDET ORD(JA/NEJ)",W$ 1470 IF W$="JA" OR W$="JA" THEN GO TO 0240 1480 PRINT "DET HAR VÆRET MORSOMT ! - FARVEL FOR NU -" 1490 GO TO 2240 1500 PRINT "DU FANDT ORDET----- "; 1510 PRINT ORD$ 1520 GO TO 1460 1530 M=M+1 1540 PRINT 1550 PRINT CHR(6); CHR(96); CHR(96); 1560 PRINT "BEKLAGER DETTE BOGSTAV INDGÅR IKKE I ORDET" 1570 ON M GO TO 1580,1600,1620,1640,1660,1680,1700,1720,1740,1760 1580 PRINT "FØRST TEGNER VI HOVEDET" 1590 GO TO 1770 1600 PRINT "NU TEGNER┆
0x231c00…231e00 (187, 0, 7) UnusedSector ┆ VI KROPPEN" 1610 GO TO 1770 1620 PRINT "DET NÆSTE VI TEGNER ER EN ARM" 1630 GO TO 1770 1640 PRINT "NU ER DET TID FOR DEN ANDEN ARM" 1650 GO TO 1770 1660 PRINT "LAD OS NU TEGNE DET HØJRE BEN" 1670 GO TO 1770 1680 PRINT "DENNE GANG TEGNER VI DET VENSTRE BEN" 1690 GO TO 1770 1700 PRINT "NU SÆTTER VI DEN ENE HÅND PÅ" 1710 GO TO 1770 1720 PRINT "DET NÆSTE ER DEN ANDEN HÅND" 1730 GO TO 1770 1740 PRINT "NU TEGNER VI DEN ENE FOD" 1750 GO TO 1770 1760 PRINT "HER ER DEN ANDEN FOD -- D┆
0x231e00…232000 (187, 0, 8) UnusedSector ┆U ER HÆNGT --" 1770 ON M GO TO 1780,1810,1830,1850,1870,1890,1910,1930,1950,1970 1780 P$(30)="-"; P$(31)="-"; P$(32)="-"; P$(41)="("; P$(42)="." 1790 P$(44)="."; P$(45)=")"; P$(54)="-"; P$(55)="-"; P$(56)="-" 1800 GO TO 1980 1810 P$(67)="X"; P$(79)="X"; P$(91)="X"; P$(103)="X" 1820 GO TO 1980 1830 P$(39)="'"; P$(52)="'"; P$(65)="'"; P$(78)="'" 1840 GO TO 1980 1850 P$(47)="'"; P$(58)="'"; P$(69)="'"; P$(80)="'" 1860 GO TO 1980 1870 P$(114)="'"; P$(125)="'" 1880 GO TO 1980 1890 P$(11┆
0x232000…232200 (187, 0, 9) UnusedSector ┆6)="'"; P$(129)="'" 1900 GO TO 1980 1910 P$(27)="O" 1920 GO TO 1980 1930 P$(35)="O" 1940 GO TO 1980 1950 P$(136)="O"; P$(137)="O" 1960 GO TO 1980 1970 P$(141)="O"; P$(142)="O" 1980 R=0; RR=0 1990 FOR I=1 TO 3 2000 H$(I)=P$(I+R)+P$(I+1+R)+P$(I+2+R)+P$(I+3+R) 2010 R=R+3 2020 NEXT I 2030 PRINT H$(1)+H$(2)+H$(3) 2040 RR=RR+12; R=RR 2050 IF R<>144 THEN GO TO 1990 2060 PRINT CHR(6); CHR(125); CHR(103); 2070 PRINT " " 2080 IF M<>10┆
0x232200…232400 (187, 0, 10) UnusedSector ┆ THEN GO TO 0740 2090 PRINT CHR(6); CHR(96); CHR(115); 2100 PRINT "BEKLAGER - DU TABTE - ORDET VAR ---"; ORD$; "---" 2110 PRINT "DET SVIPSEDE DENNE GANG GJORDE DET IKKE" 2120 GO TO 1460 2130 INPUT "TAST JA ELLER NEJ",T$ 2140 IF T$="JA" OR T$="JA" THEN GO TO 0250 2150 DATA "FIN ","GIK ","SOL ","SNE ","LYS ","BIL ","TUD " 2160 DATA "FISK ","SLUT ","GRÆS ","PIBE ","KÆLK ","SNUE ","TABE " 2170 DATA "LAMPE ","HÆNGT ","RC700 ","GALGE ","BOMBE ","FLINT ","LIKØR " 2180 DATA "BLOMST ","SENNEP ",┆
0x232400…232600 (187, 0, 11) UnusedSector ┆"GARAGE ","POTENS ","GRATIS ","INDMAD " 2190 DATA "TELEFON ","RYGEOST ","TRAKTAT ","VIKLERS","XYLOFON ","YNDLING " 2200 DATA "SKÆRSILD ","ØRKESLØS ","VÆRTSHUS ","VILDMAND ","SVÆRVÆGT " 2210 DATA "FOTOGRAFI ","SENSATION ","ÆGTESTAND ","UNDERSKÅL ","TRÆDEPUDE " 2220 DATA "VIDTLØFTIG ","UNDERMÅLER ","TRYKKABINER ","INDKASSERE " 2230 DATA "TRANSMISSION ","ELEKTRICITET ","VIOLINBYGGER " 2240 STOP 2250 PROC SAMELINE 2260 PRINT CHR(13); CHR(26); CHR(11); 2270 ENDPROC 2280 PROC UPPERCASE(E)┆
0x232600…232800 (187, 0, 12) UnusedSector ┆ 2290 FOR TÆL=1 TO LEN(E$) 2300 IF E$(TÆL : 1)<=CHR(125) AND E$(TÆL : 1)=>CHR(97) THEN 2310 E$(TÆL : 1)=CHR(ORD(E$(TÆL : 1))-32) 2320 ENDIF 2330 NEXT TÆL 2340 ENDPROC UPPERCASE 2350 REM //----------------------------------------------// 2) 2320 ENDIF 2330 NEXT TÆL 2340 ENDPROC UPPERCASE 2350 REM //---------------------------------- 0010 PRINT CHR(12) 0020 PRINT CHR(132) 0030 PRINT " "; CHR(192); CHR(200); CHR(200); CHR(200); CHR(200); 0040 PR┆
0x232800…232a00 (187, 1, 1) UnusedSector ┆ A:=BYTE HELP; WRITEOKTAL; IF B AND 7 = 7 THEN OPMESS(LF); END ELSE OPMESS(HELP); B:=B+1 UNTIL B >= ZONE.ZLENGTH-ZONE.ZREM; END; 100: OPMESS(LF); END; END; PROCEDURE WRITEINTEGER; BEGIN BINDEC(A,HELP1); OPMESS(HELP1); END; PROCEDURE DATAERR; BEGIN FIRSTTIME:=NOOFSHARES; OPMESS(DATA); OPMESS(ERR); A:=BPOINTER; WRITEINTEGER; OPMESS(W); A:=OLDXN AND 255; WRITEINTEGER; OPMESS(R); A:= BYTE HELP; WRITEINTEGER; ┆
0x232a00…232c00 (187, 1, 2) UnusedSector ┆ WRITEPOSITION; IF ERRCOUNT = 0 THEN BEGIN OPMESS(Q); RCOM; IF HELP1 = OFF THEN BEGIN SQ:=SQ-128; ! STOP DATACHECK ! GOTO 1002; END; IF HELP1 = START THEN GOTO 1002; IF BYTE HELP1 < 58 THEN ! PRINT ERRORS ! IF BYTE HELP1 > 48 THEN DECBIN(HELP1,ERRCOUNT); END ELSE ERRCOUNT:=ERRCOUNT-1; END; PROCEDURE LENGTHERR; BEGIN OPMESS(LEN); OPMESS(ERR); OPMESS(W); WRITEINTEGER; OPMESS(R); A:=ZONE.ZSHAREL; WRITEINTEGER; WRI┆
0x232c00…232e00 (187, 1, 3) DataSector[»ZTEMP«]
[…0x11…]
0x235000…235200 (188, 0, 9) DataSector[»IOO«]
[…0x5…]
0x235c00…235e00 (188, 1, 3) DataSector[»ZTEMP«]
[…0x11…]
0x238000…238200 (189, 0, 9) UnusedSector ┆ ┆
0x238200…238400 (189, 0, 10) UnusedSector ┆,S$ 0012 PRINT 0013 IF S$="J" OR S$="J" THEN EXEC INSTRUKTION 0014 PRINT 0015 INPUT "VIL DU SPECIFICERE HUNDENE (JA/NEJ): ",S$ 0016 IF S$<>"J" AND S$<>"J" THEN 0017 H(1,1)=16; H(1,2)=12 0018 H(2,1)=18; H(2,2)=3 0019 H(3,1)=21; H(3,2)=1.5 0020 ELSE 0021 PRINT CHR(12) 0022 FOR I=1 TO 3 0023 PRINT " HUND "; I; ": "; 0024 INPUT " HANDICAP: ",H(I,1) 0025 INPUT " OG ODDS : ",H(I,2) 0026 PRINT 0027 NEXT I 0028 ENDIF ┆
0x238400…238600 (189, 0, 11) UnusedSector ┆ 0029 PRINT CHR(12) 0030 INPUT "ANTAL SPILLERE : ",AE 0040 DIM NAVNE$(AE,30) 0050 FOR TÆLLER=1 TO AE 0060 PRINT "HVAD HEDDER "; TÆLLER; ". SPILLER : "; 0070 INPUT NAVNE$(TÆLLER) 0080 NEXT TÆLLER 0100 RANDOMIZE 0110 DEF FNC(X)=95+X-(X>32)*64-(X>64)*64 0120 PROC CUR(XK,YK) 0130 PRINT CHR(6); CHR(FNC(XK)); CHR(FNC(YK)); 0140 ENDPROC 0180 PROC INSTRUKTION 0190 PRINT "HUNDEVÆDDELØB MED 3 HUNDE. VINDER HUND NR. 1, FÅR MAN SIN" 0200 PRINT "INDSATS TILBAGE 12 GANGE. VINDE┆
0x238600…238800 (189, 0, 12) UnusedSector ┆R HUND 2 FÅR MAN SIN INDSATS" 0210 PRINT "TILBAGE 3 GANGE. VINDER HUND 3 FÅR MAN 1.5 GANGE SIN INDSATS." 0220 PRINT "HVER SPILLER STARTER MED 1000 KR. OG MASKINEN FØRER REGNSKAB," 0230 PRINT "OGSÅ FOR TOTALISATOREN. " 0235 ENDPROC 0240 LH$(1)=CHR(132)+" PPPX,"+CHR(128) 0250 LH$(2)=CHR(132)+" PPX,"+CHR(128) 0260 LH$(3)=CHR(132)+" PPPX$"+CHR(128) 0270 LH$(4)=" //((" 0280 LH$(5)=" ((//" 0290 X=3 0300 PRINT CHR(12); CHR(10) 0460 PRINT " OK - SÅ ER VI KLAR TIL "; 0470 PRI┆
0x238800…238a00 (189, 1, 1) UnusedSector ┆NT CHR(128+16); "AT BEGYNDE."; CHR(128) 0480 SUM=0 0490 FOR I=1 TO 3 0500 SUM=SUM+H(I,1) 0510 NEXT I 0520 DIM A(AE,3),N$(12),HAN(SUM) 0530 FOR I=1 TO SUM 0540 IF I<=H(1,1) THEN HAN(I)=1 0550 IF I>H(1,1) AND I<=H(2,1)+H(1,1) THEN HAN(I)=2 0560 IF I>H(2,1)+H(1,1) THEN HAN(I)=3 0570 NEXT I 0580 FOR I=1 TO AE 0590 A(I,1)=1000 0600 NEXT I 0610 BOOK=0 0620 FOR I=1 TO AE 0630 PRINT CHR(12) 0640 PRINT 0650 PRINT 0660 PRINT 0670 IND=0 0680 PRINT " ┆
0x238a00…238c00 (189, 1, 2) UnusedSector ┆ "; NAVNE$(I); " SALDO: "; A(I,1); " KR" 0690 IF A(I,1)>0 THEN EXEC SATS 0700 NEXT I 0710 PROC SATS 0720 PRINT 0730 PRINT 0740 INPUT " HVOR MEGET SPILLER DU FOR (HELE KR.): ",A(I,2) 0750 IF A(I,2)>A(I,1) THEN PRINT " FJOLS - SÅ MEGET HAR DU IKKE!" 0760 IF A(I,2)<>INT(A(I,2)) THEN PRINT " JEG SAGDE HELE KRONER!!!" 0770 IF A(I,2)>A(I,1) OR A(I,2)<>INT(A(I,2)) THEN GO TO 0740 0780 IF A(I,2)<>0 THEN 0790 REPEAT 0800 INPUT "┆
0x238c00…238e00 (189, 1, 3) UnusedSector ┆ HVILKEN HUND SPILLER DU PÅ: ",A(I,3) 0810 UNTIL A(I,3)>0 AND A(I,3)<=X 0820 ENDIF 0830 BOOK=BOOK+A(I,2) 0840 ENDPROC 0850 REPEAT 0860 FOR I=1 TO 3 0870 H(I,3)=6 0880 NEXT I 0890 PRINT CHR(12) 0900 FOR I=1 TO 14 0910 EXEC CUR(65,I+3) 0920 PRINT "MÅL" 0930 NEXT I 0940 PRINT CHR(29) 0950 PRINT CHR(10); CHR(10); CHR(10); CHR(10); CHR(10); "1:"; CHR(13) 0960 PRINT CHR(10); CHR(10); CHR(10); "2:"; CHR(10); CHR(10); CHR(13) 0970 P┆
0x238e00…239000 (189, 1, 4) UnusedSector ┆RINT CHR(10); "3:" 0980 FOR V=1 TO 3 0990 Y=(V)*4+2; X=5 1000 FOR I=1 TO 2 1010 EXEC CUR(X,Y+I-1) 1020 IF I=1 THEN PRINT LH$(V) 1030 IF I=2 THEN PRINT LH$(4) 1040 NEXT I 1050 NEXT V 1060 FOR I=1 TO 100 1070 NEXT I 1080 PRINT CHR(7); 1090 REPEAT 1100 V=HAN(INT(RND(8)*SUM+1)); Y=(V)*4+1 1110 FOR I=1 TO 2 1120 EXEC CUR(H(V,3),Y+I) 1130 IF I=1 THEN PRINT LH$(V) 1140 IF I=2 THEN PRINT LH$(3+I) 1150 NEXT ┆
0x239000…239200 (189, 1, 5) UnusedSector ┆I 1160 H(V,3)=H(V,3)+2 1170 UNTIL H(V,3)=>60 1180 EXEC CUR(15,20) 1190 PRINT " VINDER BLEV HUND NR.: "; CHR(128+2); V; CHR(128); 1200 INPUT " TRYK RETURN ",N$ 1210 FALLERET=0 1220 FOR I=1 TO AE 1230 PRINT CHR(12) 1240 GEVINST=0 1250 IF A(I,1)=0 THEN LET FALLERET=FALLERET+1 1260 IF A(I,1)=0 THEN GO TO 1380 1270 PRINT " "; NAVNE$(I) 1280 PRINT USING " GAMMEL SALDO: ##########.## KR." : A(I,1) 1290 PRINT USING " ┆
0x239200…239400 (189, 1, 6) UnusedSector ┆ HÆVET: ##########.## KR." : A(I,2) 1300 IF A(I,3)=V THEN GEVINST=A(I,2)*H(V,2) 1310 PRINT USING " GEVINST: ##########.## KR." : GEVINST 1320 PRINT "_____________________________________________" 1330 A(I,1)=A(I,1)-A(I,2)+GEVINST 1340 IF A(I,1)=0 THEN LET FALLERET=FALLERET+1 1350 PRINT USING " NY SALDO: ##########.## KR." : A(I,1) 1360 IF A(I,1)=0 THEN EXEC FALLIT 1370 IF A(I,1)>0 THEN EXEC SATS 1380 BOOK=BOOK-GEVI┆
0x239400…239600 (189, 1, 7) UnusedSector ┆NST 1390 IF I=AE THEN 1400 PRINT CHR(12) 1410 PRINT 1420 PRINT 1430 PRINT USING " SALDO FOR TOTALISATOR: ######### KR" : BOOK; 1440 INPUT " (TRYK RETURN) ",N$ 1450 ENDIF 1460 NEXT I 1470 UNTIL FALLERET=>AE 1480 PRINT CHR(12) 1490 EXEC CUR(23,12) 1500 PRINT "ALLE SPILLERE ER GÅET FALLIT" 1510 PRINT TAB(27); "BANEN LUKKER NU." 1520 CHAIN "LOGON" 1530 PROC FALLIT 1540 PRINT CHR(10); CHR(10); CHR(10) 1550 PRINT "DU┆
0x239600…239800 (189, 1, 8) UnusedSector ┆ HAR IKKE FLERE PENGE - VÆR VENLIG AT FORLADE BANEN !!!!!!!" 1560 FOR VENT=1 TO 900 1570 NEXT VENT 1580 ENDPROC ┆
0x239800…239a00 (189, 1, 9) DataSector[»ZTEMP«]
[…0x5…]
0x23a400…23a600 (190, 0, 3) UnusedSector ┆ ┆
0x23a600…23a800 (190, 0, 4) UnusedSector ┆ 0040 OUT 1,0 0050 REM //----OVERSKRIFT OG INSTRUKTION----// 0060 PRINT CHR(12) 0070 PRINT " "; CHR(130); "< < < <"; CHR(144); " M E M O R Y "; 0080 PRINT CHR(139); "> > > >"; CHR(128) 0090 PRINT 0100 PRINT "UNDER HVERT BOGSTAV GEMMER DER SIG ET TAL, SOM DU KAN FÅ AT SE," 0110 PRINT "NÅR DU TASTER BOGSTAVET IND." 0120 PRINT "DU MÅ SE 2 TAL AD GANGEN, OG HVIS DE TILSAMMEN GIVER DEN VALGTE" 0130 PRINT "SUM, FÅR DU 2 POINT OG MÅ PRØVE IGEN, MODPARTEN FÅR ET MINUS POINT." 014┆
0x23a800…23aa00 (190, 0, 5) UnusedSector ┆0 PRINT 0150 DEF FNC(X)=95+X-64*(X>32)-64*(X>64) 0160 DIM T$(70),P$(21),S$(10),MV(16),ML(16),PV(2),PL(2),NR(2),PT(2),TAL(16) 0170 DIM BESAT(16) 0180 T$="ABCDEFGHIJKLMNOP" 0190 PROC PLOT(XX,YY,CC) 0200 PRINT CHR(6); CHR(FNC(XX)); CHR(FNC(YY)); CHR(CC); P$; CHR(128); 0210 ENDPROC 0220 ON ESC GO TO 1460 0230 OUT 1,35 0240 REPEAT 0250 REPEAT 0260 INPUT "INDTAST SUMMEN (2-999): ",SUM 0270 UNTIL SUM=>2 AND SUM<=999 0290 FOR Q=1 TO 16 0300 BESAT(Q)=0 0310 TA┆
0x23aa00…23ac00 (190, 0, 6) UnusedSector ┆L(Q)=0 0320 NEXT Q 0330 REM //----TALLENE UDVÆLGES----// 0340 RANDOMIZE 0350 FOR Q=1 TO 8 0360 T1=INT(RND(0)*SUM)+1; T2=SUM-T1 0370 REPEAT 0380 P1=INT(RND(0)*16)+1; P2=INT(RND(0)*16)+1 0390 UNTIL TAL(P1)=0 AND TAL(P2)=0 AND P1<>P2 0400 TAL(P1)=T1; TAL(P2)=T2 0410 NEXT Q 0420 REM //----SPILLEPLADEN LAVES----// 0425 OUT 1,0 0430 PRINT CHR(12) 0440 K=144; Q=0 0450 FOR L=2 TO 11 STEP 3 0460 FOR V=20 TO 50 STEP 10 0470 Q=Q+1;┆
0x23ac00…23ae00 (190, 0, 7) UnusedSector ┆ ML(Q)=L; MV(Q)=V 0480 P$=" "+T$(Q : 1)+" " 0490 EXEC PLOT(V,L,K) 0500 PRINT 0510 NEXT V 0520 NEXT L 0530 REM //----LINIEN MED SUMMEN----// 0540 V=28; L=13; K=132; P$=",,,,,,,,,,,,,,,,,,,,," 0550 EXEC PLOT(V,L,K) 0560 V=28; L=14; K=128; P$="S U M M E N E R" 0570 EXEC PLOT(V,L,K) 0580 PRINT SUM 0590 V=28; L=15; K=132; P$=",,,,,,,,,,,,,,,,,,,,," 0600 EXEC PLOT(V,L,K) 0610 REM //----LINIEN MED SPILLER NR----// 0620 V=12; L=18; K=14┆
0x23ae00…23b000 (190, 0, 8) UnusedSector ┆4; P$="SPILLER NR:" 0630 FOR Q=1 TO 2 0640 V=V*Q*Q 0650 EXEC PLOT(V,L,K) 0660 PRINT CHR(144); Q; CHR(128) 0670 NEXT Q 0680 REM //----LINIEN MED POINT----// 0690 L=22; V=12; K=144; P$=" P O I N T:" 0700 FOR Q=1 TO 2 0710 V=V*Q*Q 0720 EXEC PLOT(V,L,K) 0730 PRINT CHR(144); PT(Q); CHR(128) 0740 NEXT Q 0750 R=0 0760 REM //----CURSEREN FJERNES----// 0770 OUT 1,0 0780 OUT 0,79 0790 OUT 0,152 0800 OUT 0,186 0810 OUT 0,125 0820┆
0x23b000…23b200 (190, 0, 9) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x11d9}}
0x23b200…23b400 (190, 0, 10) DataSector[»TMOVE«]
[…0x4…]
0x23bc00…23be00 (190, 1, 3) Index {count=0x0001, a000=Slice {count=0x000b, sector=0x11df}}
0x23be00…23c000 (190, 1, 4) DataSector[»YTMOV«]
[…0xa…]
0x23d400…23d600 (191, 0, 3) UnusedSector ┆ OUT 1,35 0830 OUT 1,128 0840 OUT 0,0 0850 OUT 0,0 0860 REM //----PLADEN ER FÆRDIG OG SPILLET STARTER----// 0870 REPEAT 0880 FOR V=21 TO 57 STEP 36 0890 FOR G=1 TO 2 0900 L=20; K=130; P$="G Æ T" 0910 REM //----INPUT----// 0920 REPEAT 0930 EXEC PLOT(V-3,L,K) 0940 PRINT 0950 S$=CHR(KEY(0)) 0960 Z=0 0970 FOR Q=1 TO 16 0980 IF S$=CHR(96+Q) THEN S$=CHR(64+Q) 0990 ┆
0x23d600…23d800 (191, 0, 4) UnusedSector ┆ IF T$(Q : 1)=S$(1 : 1) AND BESAT(Q)=1 THEN Z=1 1000 NEXT Q 1010 UNTIL S$=>"A" AND S$<="P" AND Z=0 1020 REM //----DEN UDVALGTE BRIK VENDES----// 1030 P$=" "; K=128 1040 EXEC PLOT(V-3,L,K) 1050 P$=" " 1060 FOR Q=1 TO 16 1070 IF T$(Q : 1)=S$(1 : 1) THEN 1080 EXEC PLOT(MV(Q)-1,ML(Q),K) 1090 PV(G)=MV(Q); PL(G)=ML(Q); NR(G)=Q 1100 PRINT CHR(130); TAL(Q) 1110 ENDIF┆
0x23d800…23da00 (191, 0, 5) UnusedSector ┆ 1120 NEXT Q 1130 NEXT G 1140 REM //----CHECK FOR SUM----// 1150 IF TAL(NR(1))+TAL(NR(2))<>SUM THEN 1160 FOR Q=1 TO 500 1170 NEXT Q 1180 REM //----BRIKKEN VENDES IGEN----// 1190 FOR Q=1 TO 2 1200 K=144; P$=" "+T$(NR(Q) : 1)+" " 1210 EXEC PLOT(PV(Q),PL(Q),K) 1220 PRINT 1230 NEXT Q 1240 ELSE //----POINT FOR RIGTIG SUM----// 1250 FOR Q=1 TO 2 1260 EXEC PLO┆
0x23da00…23dc00 (191, 0, 6) UnusedSector ┆T(PV(Q)-1,PL(Q),K) 1270 PRINT CHR(128); TAL(NR(Q)) 1280 NEXT Q 1290 PT((V+15)/36)=PT((V+15)/36)+3; PT(1)=PT(1)-1; PT(2)=PT(2)-1 1300 R=R+1; L=22; VV=12; K=144; P$=" P O I N T:" 1310 BESAT(NR(1))=1; BESAT(NR(2))=1 1320 IF V=21 OR R=8 THEN 1330 V=58 1340 ELSE 1350 V=21 1360 ENDIF 1370 FOR Q=1 TO 2 1380 VV=VV*Q*Q 1390 EXEC PLOT(VV,L,K) 1400 PRINT CHR(144); P┆
0x23dc00…23de00 (191, 0, 7) UnusedSector ┆T(Q); CHR(128) 1410 NEXT Q 1420 ENDIF 1430 NEXT V 1440 UNTIL R=8 1450 PRINT 1460 REM //----CURSEREN SÆTTES IGEN SOM STREG----// 1465 ON ESC CHAIN "LOGON" 1470 OUT 1,0 1480 OUT 0,79 1490 OUT 0,152 1500 OUT 0,122 1510 OUT 0,93 1520 OUT 1,35 1530 OUT 1,128 1540 OUT 0,0 1550 OUT 0,0 1560 INPUT "VIL I SPILLE IGEN? ",S$ 1565 IF S$(1 : 1)="N" OR S$(1 : 1)="N" THEN CHAIN "LOGON" 1570 UNTIL S$(1 : 1)="N" OR S$(1 : 1)="N" ┆
0x23de00…23e000 (191, 0, 8) UnusedSector ┆ i EA X S : EA I PC@EA W EA ; EA w L EA f EA 0 Ø U EA P DA % & N EA ^ Åå E!d? a EA d EA X g N DA H z`EA , 6ü EA I EA l EA EA EA W # EA f N G EA ^ EA ┆
0x23e000…23e200 (191, 0, 9) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x11f1}}
0x23e200…23e400 (191, 0, 10) DataSector[»ITMOV«]
[…0x4…]
0x23ec00…23ee00 (191, 1, 3) Index {count=0x0003, a000=Slice {count=0x0005, sector=0x11f7}, a001=Slice {count=0x0006, sector=0x1202}, a002=Slice {count=0x002a, sector=0x122c}}
0x23ee00…23f000 (191, 1, 4) DataSector[»YIOO6«]
[…0x4…]
0x23f800…23fa00 (191, 1, 9) DataSector[»ZTEMP«]
[…0x5…]
0x240400…240600 (192, 0, 3) DataSector[»YIOO6«]
[…0x5…]
0x241000…241200 (192, 0, 9) DataSector[»ZTEMP«]
[…0xb…]
0x242800…242a00 (192, 1, 9) UnusedSector ┆ ┆
0x242a00…242c00 (192, 1, 10) UnusedSector ┆ 0001 ON ESC CHAIN "LOGON" 0010 REM 0020 REM . NEDSKYD 0030 REM 0040 REM COPYRIGHT: CARSTEN D. BECH. 0050 REM 0060 REM 0070 REM 4-6-1981 0080 DIM SVAR$(1),H$(80),KK(24),J$(80),VÆ(24),FF(3),TO(3),NÅ(24),LS$(2) 0090 DIM BU$(128) 0100 RANDOMIZE 0110 DEF FNQ(X)=95+X-((X-1) DIV 32)*64 0120 PRINT CHR(12) 0200 EXEC FREM 0210 OPEN "2/SCORE",MMO,BU$,10 0225 NY=0 0230 REPEAT 0240 PRINT CHR(12) 0250 PRINT "HVILKEN SVÆRHEDSGRAD VIL I BRUGE?" 0260 PRINT TAB(3┆
0x242c00…242e00 (192, 1, 11) UnusedSector ┆5); "1. FOR ELITE-SPILLERE" 0270 PRINT TAB(35); "2. FOR SÆRLIG GODE SPILLERE" 0280 PRINT TAB(35); "3. FOR GODE SPILLERE" 0290 PRINT TAB(35); "4. FOR ALMINDELIGE SPILLERE" 0300 PRINT TAB(35); "5. FOR DÅRLIGE SPILERE/NYBEGYNDERE" 0302 PRINT 0304 PRINT " BRUG <ESC> NÅR DU VIL SKYDE!" 0306 PRINT 0310 REPEAT 0320 INPUT "SVÆRHEDSGRAD NR. ",SVÆR 0330 UNTIL SVÆR=INT(SVÆR) AND SVÆR>0 AND SVÆR<6 0340 SVÆRH=SVÆR 0350 SVÆR=INT(12+((SVÆR-1)*(SVÆR-2))) 0360 ┆
0x242e00…243000 (192, 1, 12) UnusedSector ┆IF SVÆRH=1 THEN SVÆR=10 0370 REM EXEC VÆK 0380 EXEC KØR 0390 IF POIU>HIGH THEN LET HIGH=POIU; NY=1 0395 ON ESC G1=1 0400 EXEC CUR(19,14) 0405 ON ESC G1=1 0410 PRINT CHR(144); "HØJESTE SCORE PÅ DENNE COMPUTER:"; HIGH; CHR(128) 0420 FOR A=1 TO 200 0430 ON ESC G1=0 0440 NEXT A 0450 EXEC FREM 0460 EXEC CUR(1,18) 0470 INPUT "VIL I PRØVE IGEN? ",SVAR$ 0480 UNTIL SVAR$="N" OR SVAR$="N" 0490 IF NY=1 THEN PUT MMO,1 : HIGH 0500 CLOSE MMO 0510 CHAIN "LOGON"┆
0x243000…243200 (193, 0, 1) UnusedSector ┆ 0520 GO TO 0010 0530 PROC CUR(X,Y) 0540 PRINT CHR(6); CHR(FNQ(X)); CHR(FNQ(Y)); 0550 ENDPROC 0560 PROC ØER 0570 TO(1)=1; TO(3)=24; GANG=20.5; IALT=24; SKUD=0; TRÆF=0 0580 TTT=INT(RND(0)*10)+1 0590 FOR A=1 TO TTT 0600 B=RND(0) 0610 NEXT A 0620 PRINT CHR(12); CHR(6); CHR(42); CHR(107); "REST" 0630 FOR A=1 TO 24 0640 PRINT CHR(6); CHR(96); CHR(95+A); CHR(141) 0650 KK(A)=INT(RND(0)*9)+1; NÅ(A)=1; VÆ(A)=INT(RND(0)*SVÆR)+2 0660 PRINT CHR(6); CHR(35); ┆
0x243200…243400 (193, 0, 2) UnusedSector ┆CHR(95+A); CHR(128); 0670 IF A=1 OR A=24 THEN LET VÆ(A)=INT(VÆ(A)*1.5) 0680 PRINT USING "###" : VÆ(A) 0690 FOR C=1 TO KK(A) 0700 PRINT CHR(6); CHR(FNQ(31-C)); CHR(95+A); CHR(127) 0710 NEXT C 0720 NEXT A 0730 H$=CHR(127)+CHR(61); J$=""; LS$=H$ 0740 FOR A=1 TO 8 0750 IF A<4 THEN 0760 H$=H$+"$$$$$$$$$$" 0770 ELSE 0780 H$=H$+" $ $ $ $ $" 0790 ENDIF 0800 J$=J$+" " 0810 NEXT A 0820 ENDPROC 0830 PROC SKYD(Æ) ┆
0x243400…243600 (193, 0, 3) UnusedSector ┆ 0840 ON ESC G1=1 0850 IF Æ>0 AND Æ<25 THEN 0860 ON ESC G1=1 0870 A=KK(Æ); SKUD=SKUD+1 0880 PRINT CHR(6); CHR(97); CHR(95+STÅ); " " 0890 ON ESC G1=1 0900 IF A<=0 THEN LET A=-40; NÅ(Æ)=NÅ(Æ)-1 0910 ON ESC G1=1 0920 PRINT CHR(6); CHR(97); CHR(95+Æ); H$(1 : 30-A) 0930 ON ESC G1=1 0940 PRINT CHR(6); CHR(97); CHR(95+Æ); J$(1 : 30-A) 0950 ON ESC G1=1 0960 KK(Æ)=KK(Æ)-1; GANG=GANG-1 0970 ON ESC G1=1 0980 IF NÅ(Æ)>-1 THEN LET TRÆF┆
0x243600…243800 (193, 0, 4) UnusedSector ┆=TRÆF+1 0990 ON ESC G1=1 1000 IF NÅ(Æ)=0 THEN LET GANG=GANG+VÆ(Æ); IALT=IALT-1 1010 ON ESC G1=1 1020 IF NÅ(Æ)>-1 THEN PRINT CHR(6); CHR(42); CHR(96) 1030 ON ESC G1=1 1040 PRINT CHR(6); CHR(39); CHR(108); CHR(128); 1050 ON ESC G1=1 1060 PRINT USING "####.#" : GANG 1070 ENDIF 1080 ENDPROC 1090 PROC KØR 1100 EXEC ØER 1110 RET=INT(RND(0)*2); Ø=2; GG=0 1120 IF RET=0 THEN RET=-1 1130 REPEAT 1140 RET=-RET; GANG=GANG-0.5; FR=TO(2-RET)┆
0x243800…243a00 (193, 0, 5) UnusedSector ┆+RET; TI=TO(2+RET) 1150 PRINT CHR(6); CHR(40); CHR(108); 1160 PRINT USING "####.#" : GANG 1170 FOR STÅ=FR TO TI STEP RET 1180 ON ESC EXEC SKYD(Ø) 1190 PRINT CHR(6); CHR(97); CHR(95+Ø); " " 1200 ON ESC EXEC SKYD(Ø) 1210 Ø=STÅ 1220 PRINT CHR(6); CHR(97); CHR(95+STÅ); CHR(127); CHR(61) 1230 ON ESC EXEC SKYD(STÅ) 1240 IF GANG<=0 OR IALT=0 THEN STÅ=TI 1250 NEXT STÅ 1260 UNTIL GANG<=0 OR IALT=0 1270 PRINT CHR(12); "DU NÅEDE ┆
0x243a00…243c00 (193, 0, 6) UnusedSector ┆AT AFFYRE"; SKUD; "SKUD INDEN"; 1280 ON ESC G1=1 1290 QWE=INT((TRÆF*100)/SKUD) 1300 POIU=INT(((TRÆF*QWE)/10)*(1+((5-SVÆRH)*.4))) 1310 ON ESC G1=1 1320 IF IALT=0 THEN 1330 PRINT " DU HAVDE NEDSKUDT ALLE POINTENE." 1340 EXEC CUR(25,10) 1350 ON ESC G1=1 1360 PRINT CHR(130); "B R A V O"; CHR(128); " (SIKKE HELDIGT)" 1370 ON ESC G1=1 1380 POIU=INT(POIU*1.5) 1390 ELSE 1400 PRINT " DU "; CHR(34); "LØB TØR FOR ENERGI"; CHR(34); "." 1405 ON E┆
0x243c00…243e00 (193, 0, 7) UnusedSector ┆SC G1=1 1410 ENDIF 1420 EXEC CUR(1,5) 1430 ON ESC G1=1 1440 PRINT "DU HAVDE EN TRÆF-SIKKERHED PÅ"; QWE; "%" 1445 ON ESC G1=1 1450 EXEC CUR(1,7) 1455 ON ESC G1=1 1460 PRINT "DU FIK"; CHR(130); POIU; CHR(128); "POINT" 1470 ENDPROC 1480 END 1490 PROC VÆK 1500 OUT 1,0 1510 OUT 0,79 1520 OUT 0,152 1530 OUT 0,186 1540 OUT 0,125 1550 OUT 1,35 1560 OUT 1,128 1570 OUT 0,0 1580 OUT 0,0 1590 ENDPROC 1600 PROC FREM 1610 OUT 1,0 1620┆
0x243e00…244000 (193, 0, 8) UnusedSector ┆ OUT 0,79 1630 OUT 0,152 1640 OUT 0,122 1650 OUT 0,93 1660 OUT 1,35 1670 OUT 1,128 1680 OUT 0,0 1690 OUT 0,0 1700 ENDPROC ┆
0x244000…244200 (193, 0, 9) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x1221}}
0x244200…244400 (193, 0, 10) DataSector[»S3600«]
[…0x4…]
0x244c00…244e00 (193, 1, 3) DataSector[»ZTEMP«]
[…0x5…]
0x245800…245a00 (193, 1, 9) DataSector[»YIOO6«]
[…0x29…]
0x24ac00…24ae00 (195, 1, 3) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x1257}}
0x24ae00…24b000 (195, 1, 4) DataSector[»BASIC«]
[…0x4…]
0x24b800…24ba00 (195, 1, 9) DataSector[»PHANT«]
[…0x5…]
0x24c400…24c600 (196, 0, 3) UnusedSector ┆ c ┆
0x24c600…24c800 (196, 0, 4) UnusedSector ┆EM DENNE UDFORMNING ER LAVET AF: 0050 REM // F G KNUDSEN 0060 REM // KOLLERUPVEJ 17 0070 REM // 8900 RANDERS TLF.: 06 43 49 04 0080 REM //----------// 0090 REM VERSION 1.1, 9/1/81. 0100 REM //----------// 0110 DIM INFIX$(20),POST$(20),STAK$(20),H$(3),SVAR$(1) 0120 DIM TALSTAK(10),NAVN$(6),ABSTED(2),TAL(3) 0130 REM //----------// 0140 REM PROGRAM TALTUR 0150 EXEC FORKLARING 0160 REPEAT 0170 EXEC START 0180 REPEAT 0190 EXEC TALSÆT 0200 ┆
0x24c800…24ca00 (196, 0, 5) UnusedSector ┆ EXEC MODTAGSVAR 0210 IF DIVNUL=FALSE THEN EXEC BEDØMMELSE 0220 UNTIL FÆRDIG=TRUE 0230 EXEC CUR(8,24) 0240 INPUT "IGEN (JA/NEJ) : ",SVAR$ 0250 UNTIL SVAR$="N" OR SVAR$="N" 0255 CHAIN "LOGON" 0260 END PROGRAM TALTUR 0280 REM //-----------// 0290 PROC START 0300 TRUE=1; FALSE=0 0310 ABSTED(1),ABSTED(2)=0; FÆRDIG=FALSE; SPILLER=1 0320 RANDOMIZE 0330 NAVN$=CHR(130)+"A"+CHR(128)+CHR(130)+"B"+CHR(128) 0340 PRINT CHR(12) 0350 EXEC VEJNET 0360 ENDPROC START ┆
0x24ca00…24cc00 (196, 0, 6) UnusedSector ┆0370 REM //----------// 0380 PROC VEJNET 0390 PRINT CHR(12) 0400 PRINT "START 1 2 3 4 5 6 7 8 9 10" 0410 PRINT " "; NAVN$(4 : 3); NAVN$(1 : 3); 0420 PRINT "O---*---*---*---*---*---*---*---*---O" 0430 PRINT "KRI- X>>13 I VO-" 0440 PRINT "STRUP 20 >>X 12 I RUP" 0450 PRINT " O---*---*---*---*---*---*---*---*---*" 0460 PRINT " I RAN-" 0470 PRINT " ┆
0x24cc00…24ce00 (196, 0, 7) UnusedSector ┆ I 25 30 DERS" 0480 PRINT " *---*---*---*---*---*---*---*---*---O" 0490 PRINT " L I" 0500 PRINT "LEM 40 36 I" 0510 PRINT " O---*---*---*---*---*---*---*---*---*" 0520 PRINT " I GIM-" 0530 PRINT " I 50 MING" 0540 PRINT " *---*---*---*---*---*---*---*---*---O" 0550 PRINT "TJÆR┆
0x24ce00…24d000 (196, 0, 8) UnusedSector ┆- X>>54 I" 0560 PRINT "BY 60 >>X I" 0570 PRINT " O---*---*---*---*---*---*---*---*---*" 0580 PRINT " I" 0590 PRINT " I 70" 0600 PRINT " *---*---*---*---*---*---*---*---*---O" 0610 PRINT " DRONNINGBORG" 0620 EXEC CUR(60,3) 0630 PRINT "TAL 1 (1-3):" 0640 EXEC CUR(60,5) 0650 PRINT "TAL 2 (0-4):" 0660 EXEC CUR(6┆
0x24d000…24d200 (196, 0, 9) UnusedSector ┆0,7) 0670 PRINT "TAL 3 (1-8):" 0680 ENDPROC VEJNET 0690 REM //----------/ 0700 PROC TALSÆT 0710 TAL(1)=INT(RND(0)*3+1); TAL(2)=INT(RND(0)*5) 0720 TAL(3)=INT(RND(0)*8+1) 0730 FOR NR=1 TO 3 0740 EXEC CUR(72,(2*NR+1)) 0750 PRINT TAL(NR) 0760 NEXT NR 0770 ENDPROC TALSÆT 0780 REM //-----------// 0790 PROC MODTAGSVAR 0800 SVAROK=FALSE 0810 REPEAT 0820 EXEC CUR(60,11) 0830 PRINT NAVN$(SPILLER*3-1 : 1); ", DIT" 0840 EXEC CUR(60,12) 0850 PR┆
0x24d200…24d400 (196, 0, 10) UnusedSector ┆INT CHR(30); 0860 INPUT "STYKKE : ",INFIX$ 0870 FOR LINNR=13 TO 22 0880 EXEC CUR(60,LINNR) 0890 PRINT CHR(30) 0900 NEXT LINNR 0910 EXEC TESTSVAR 0920 IF SVAROK=TRUE THEN EXEC OVERSÆT 0930 IF SVAROK=FALSE THEN 0940 EXEC CUR(60,13) 0950 PRINT "FEJL I INPUT!" 0960 ENDIF 0970 UNTIL SVAROK=TRUE 0980 EXEC TALVÆRDI 0990 ENDPROC MODTAGSVAR 1000 REM //----------// 1010 PROC TESTSVAR 1020 LÆNGDE=LEN(INFIX$); VENSTRE,HØJRE=0┆
0x24d400…24d600 (196, 0, 11) UnusedSector ┆ 1030 IF LÆNGDE>0 THEN 1040 I=0 1050 REPEAT 1060 I=I+1 1070 IF INFIX$(I : 1)=" " THEN 1080 INFIX$(I : LÆNGDE-I)=INFIX$(I+1 : LÆNGDE-I) 1090 INFIX$=INFIX$(1 : LÆNGDE-1) 1100 LÆNGDE=LÆNGDE-1 1110 ELSE 1120 IF INFIX$(I : 1)="(" THEN VENSTRE=VENSTRE+1 1130 IF INFIX$(I : 1)=")" THEN HØJRE=HØJRE+1 1140 ENDIF 1150 UNTIL I=>LÆNGDE 1160 ENDIF 1170 IF VENSTRE=HØJRE AND LEN(INFIX$)-2*HØJRE=5 THEN 11┆
0x24d600…24d800 (196, 0, 12) UnusedSector ┆80 SVAROK=TRUE; N=0 1190 FOR I=1 TO LEN(INFIX$) 1200 IF INFIX$(I : 1)<":" AND INFIX$(I : 1)>"/" THEN 1210 N=N+1 1220 IF N>3 THEN 1230 SVAROK=FALSE 1240 ELSE 1250 IF ORD(INFIX$(I : 1))-48<>TAL(N) THEN SVAROK=FALSE 1260 ENDIF 1270 ENDIF 1280 NEXT I 1290 ENDIF 1300 INFIX$=INFIX$+" " 1310 ENDPROC TESTSVAR 1320 REM //----------// 1330 PROC OVERSÆT 1340 K,N=0; I=1; POST$=""; STAK$="" 1350 WH┆
0x24d800…24da00 (196, 1, 1) UnusedSector ┆ILE INFIX$(I : 1)<>" " DO 1360 H$=INFIX$(I : 1) 1370 EXEC LEV 1380 IF LEVEL<>-1 THEN 1390 IF LEVEL=6 THEN 1400 K=K+1; POST$(K : 1)=INFIX$(I : 1) 1410 ELSE IKKE KONSTANT 1420 IF LEVEL=1 THEN 1430 N=N+1; STAK$(N : 1)=INFIX$(I : 1) 1440 ELSE IKKE VENSTREPARANTES 1450 IF LEVEL=0 THEN 1460 EXEC HØJREPARANTES 1470 ELSE 1480 EXEC ANDET 1490 ENDIF 1500 ENDIF ┆
0x24da00…24dc00 (196, 1, 2) UnusedSector ┆ 1510 ENDIF 1520 ENDIF 1530 I=I+1 1540 ENDWHILE 1550 EXEC FÆRDIGAFSTAK 1560 ENDPROC OVERSÆT 1570 REM //----------// 1580 PROC LEV 1590 LEVEL=-1 1600 IF H$=")" THEN LEVEL=0 1610 IF H$="(" THEN LEVEL=1 1620 IF H$="+" OR H$="-" THEN LEVEL=3 1630 IF H$="*" OR H$="/" THEN LEVEL=4 1640 IF H$="^" THEN LEVEL=5 1650 IF H$<":" AND H$>"/" THEN LEVEL=6 1660 IF LEVEL=-1 THEN SVAROK=FALSE 1670 ENDPROC LEV 1680 REM //----------// 1690 PROC HØJREPARAN┆
0x24dc00…24de00 (196, 1, 3) UnusedSector ┆TES 1700 WHILE STAK$(N : 1)<>"(" DO 1710 K=K+1; POST$(K : 1)=STAK$(N : 1); N=N-1 1720 ENDWHILE 1730 N=N-1 1740 ENDPROC HØJREPARANTES 1750 REM //----------// 1760 PROC ANDET 1770 UD=FALSE 1780 WHILE N<>0 AND UD=FALSE DO 1790 INLEVEL=LEVEL; H$=STAK$(N : 1) 1800 EXEC LEV 1810 IF INLEVEL<=LEVEL THEN 1820 K=K+1; POST$(K : 1)=STAK$(N : 1); N=N-1 1830 ELSE 1840 UD=TRUE 1850 ENDIF 1860 ENDWHILE 1870 N=N+1; STAK$(N : 1)=INFI┆
0x24de00…24e000 (196, 1, 4) UnusedSector ┆X$(I : 1) 1880 ENDPROC ANDET 1890 REM //----------// 1900 PROC FÆRDIGAFSTAK 1910 WHILE N<>0 DO 1920 K=K+1; POST$(K : 1)=STAK$(N : 1); N=N-1 1930 ENDWHILE 1940 ENDPROC FÆRDIGAFSTAK 1950 REM //----------// 1960 PROC TALVÆRDI 1970 I,N=0; DIVNUL=FALSE 1980 REPEAT 1990 I=I+1; H$=POST$(I : 1) 2000 IF H$<":" AND H$>"/" THEN 2010 N=N+1; TALSTAK(N)=ORD(H$)-48 2020 ELSE 2030 IF H$="+" THEN TALSTAK(N-1)=TALSTAK(N-1)+TALSTAK(N) 2040 IF H$=┆
0x24e000…24e200 (196, 1, 5) UnusedSector ┆"-" THEN TALSTAK(N-1)=TALSTAK(N-1)-TALSTAK(N) 2050 IF H$="*" THEN TALSTAK(N-1)=TALSTAK(N-1)*TALSTAK(N) 2060 IF H$="/" THEN 2070 IF TALSTAK(N)<>0 THEN 2080 TALSTAK(N-1)=TALSTAK(N-1)/TALSTAK(N) 2090 ELSE 2100 DIVNUL=TRUE 2110 ENDIF 2120 ENDIF 2130 IF H$="^" THEN TALSTAK(N-1)=TALSTAK(N-1)^TALSTAK(N) 2140 N=N-1 2150 ENDIF 2160 UNTIL I=LEN(POST$) OR DIVNUL=TRUE 2170 IF DIVNUL=FALSE THEN 2180 I┆
0x24e200…24e400 (196, 1, 6) UnusedSector ┆NDTAL=INT(TALSTAK(1)+.5) 2190 EXEC CUR(60,15) 2200 PRINT CHR(30); "TALVÆRDI :",INDTAL 2210 ELSE 2220 EXEC CUR(60,18) 2230 PRINT "DU DIVIDERER MED 0!" 2240 SPILLER=3-SPILLER 2250 EXEC VINDER 2260 ENDIF 2270 ENDPROC TALVÆRDI 2280 REM //----------// 2290 PROC BEDØMMELSE 2300 FRA=ABSTED(SPILLER); MÅL=ABSTED(SPILLER)+INDTAL 2310 IF MÅL=70 OR MÅL=60 THEN 2320 MÅL=70 2330 EXEC VINDER 2340 ELSE 2350 IF MÅL MOD 10=0 THEN MÅL=MÅL+10 ┆
0x24e400…24e600 (196, 1, 7) UnusedSector ┆ 2360 ENDIF 2370 IF MÅL=4 THEN MÅL=13 2380 IF MÅL=25 THEN MÅL=36 2390 IF MÅL=41 THEN MÅL=54 2400 ABSTED(SPILLER)=MÅL 2410 IF ABSTED(3-SPILLER)=MÅL AND MÅL MOD 10>0 THEN 2420 EXEC FLYT((MÅL),(INT(MÅL/10)*10),(3-SPILLER)) 2430 ABSTED(3-SPILLER)=INT(MÅL/10)*10 2440 EXEC CUR(60,21) 2450 PRINT NAVN$((3-SPILLER)*3-1 : 1); ", TILBAGE TIL :"; INT(MÅL/10)*10 2460 ENDIF 2470 IF MÅL<1 OR MÅL>70 THEN 2480 EXEC CUR(60,18) 2490 PRINT NAVN$(SPILLER*3-1 ┆
0x24e600…24e800 (196, 1, 8) UnusedSector ┆: 1); " UDEN FOR VEJEN!" 2500 SPILLER=3-SPILLER 2510 EXEC VINDER 2520 ELSE 2530 EXEC CUR(60,18) 2540 PRINT "DU RYKKER TIL:"; MÅL 2550 EXEC FLYT((FRA),(MÅL),(SPILLER)) 2560 SPILLER=3-SPILLER 2570 ENDIF 2580 ENDPROC BEDØMMELSE 2590 REM //----------// 2600 PROC FLYT(F1,F2,F3) 2610 EXEC STED((F1),(F3)) 2620 EXEC CUR(PLADS,LINIE) 2630 PRINT H$ 2640 EXEC STED((F2),(F3)) 2650 EXEC CUR(PLADS,LINIE) 2660 PRINT NAVN$(F3*F3 : 3) 2670 ENDPROC┆
0x24e800…24ea00 (196, 1, 9) UnusedSector ┆ FLYT 2680 REM //----------// 2690 PROC STED(G1,G2) 2700 LINIE=INT((G1-1)/10+1)*3+3*(G1=0) 2710 PLADS=((G1-1) MOD 10)*4+7+4*(G1=0) 2720 IF ((G1-1) DIV 10) MOD 2=1 THEN PLADS=50-PLADS 2730 IF G1 MOD 10=0 THEN 2740 PLADS=PLADS+G2*3-1 2750 IF G1 MOD 20=0 THEN PLADS=PLADS-(G2*3-1)*2 2760 H$=" " 2770 ELSE 2780 H$="-*-" 2790 IF PLADS=7 AND LINIE=3 THEN H$=" O-" 2800 ENDIF 2810 ENDPROC STED 2820 REM //----------// 2830 PROC VINDER 2840 EXEC C┆
0x24ea00…24ec00 (196, 1, 10) UnusedSector ┆UR(60,19) 2850 PRINT NAVN$(SPILLER*3-1 : 1); " HAR VUNDET!" 2860 FÆRDIG=TRUE 2870 ENDPROC VINDER 2880 REM //----------// 2890 PROC CUR(Æ,Ø) 2900 PRINT CHR(6); CHR(95+Æ-(Æ>32)*64-(Æ>64)*64); CHR(95+Ø); 2910 ENDPROC CUR 2920 REM //----------// 2930 PROC FORKLARING 2940 PRINT CHR(12) 2950 PRINT 2960 PRINT 2970 PRINT " T A L T U R" 2980 PRINT 2990 PRINT " DETTE PROGRAM ER ET TRÆNINGSPROGRAM TIL REGNING." 3000 PRINT " TO PERSONER, A OG B, SPILLER M┆
0x24ec00…24ee00 (196, 1, 11) UnusedSector ┆OD HINANDEN, OG DET GÆLDER OM" 3010 PRINT " FØRST AT NÅ TIL DRONNINGBORG." 3020 PRINT " I ØVERSTE HØJRE HJØRNE AF SKÆRMEN KOMMER TRE TAL. VED HJÆLP AF" 3030 PRINT " DISSE SKAL DER OPSTILLES ET ARITMETISK UDTRYK, SOM RC700 SÅ UD-" 3040 PRINT " REGNER, OG MAN RYKKER SÅ DET ANTAL PLADSER FREM, SOM UDTRYKKET" 3050 PRINT " GIVER SOM RESULTAT." 3060 PRINT " MAN KAN BRUGE ALLE REGNINGSARTER INCL. POTENSOPLØFTNING OG DER" 3070 PRINT " KAN OGSÅ BRUGES PARENTESER. TALLENE SKAL ANVENDES I D┆
0x24ee00…24f000 (196, 1, 12) UnusedSector ┆EN RÆKKE-" 3080 PRINT " FØLGE, SOM DE STÅR I. " 3090 PRINT " MAN SKAL RAMME DRONNINGBORG PRÆCIST (70), OG DET ER FORBUDT AT DIVI-" 3100 PRINT " DERE MED NUL. UNDERVEJS ER DER GENVEJE, SOM KAN BENYTTES, HVIS MAN" 3110 PRINT " RAMMER GENVEJENS START. MAN KAN OGSÅ SLÅ MODSTANDEREN TILBAGE." 3120 PRINT 3130 INPUT " GOD FORNØJELSE!! (TRYK PÅ RETURN FOR START) ",SVAR$ 3140 ENDPROC ┆
0x24f000…24f200 (197, 0, 1) UnusedSector ┆S q > K)V 6f?1* 0)Z 1f?1& +1% ) # B (/ H/M (0M # B (N =! ! B (V9 K V! A " y d x Y I 0P 1 ) J (N ) 5 Q T Y ÅTTY OCP b hMT P nFD5 tKIT zMT0 P PTR P CDR P FD0 4` a ) f? VbÅgÅ ! bI! gI 8R bIgI e e 7d? 6bL( H H E 1 P 0,< * K Z Y ; 09* Z K 1 n: Z Z e l 0J8%(&S S 8% W S (Pj a @@ 0N 0ø ┆
0x24f200…24f400 (197, 0, 2) UnusedSector ┆e 0 0å f 0 @ P 0Q 0m X fB 0n X Pf 0o å X f 0q w X e 0 T o e 0Q S .0 e Z 8 S : K * 2 e 0 2 0 7!R* ( M P @ @ N 0 Z B f 0 2" C * 2 g 0 B 0 2% N 6 " * 2 e 0 - Z g 0 ' gB - .e g & . (P (E " R : B P8(N P0 . # # + J 00) Y A " C FILENAMES DUMPED TO LOADED FROM USED MASK: COMMAND FILE DISC ERROR, NOT DUMPED DOES NOT EXIST NOT LOADED PROCESS EXI┆
0x24f400…24f600 (197, 0, 3) Index {count=0x0001, a000=Slice {count=0x000b, sector=0x127b}}
0x24f600…24f800 (197, 0, 4) DataSector[»SLAG«]
[…0xa…]
0x250c00…250e00 (197, 1, 3) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x1287}}
0x250e00…251000 (197, 1, 4) DataSector[»GEO«]
[…0x4…]
0x251800…251a00 (197, 1, 9) Index {count=0x0001, a000=Slice {count=0x000b, sector=0x128d}}
0x251a00…251c00 (197, 1, 10) DataSector[»REVER«]
[…0xa…]
0x253000…253200 (198, 0, 9) Index {count=0x0002, a000=Slice {count=0x0011, sector=0x1299}, a001=Slice {count=0x0006, sector=0x12b0}}
0x253200…253400 (198, 0, 10) DataSector[»STARW«]
[…0x10…]
0x255400…255600 (199, 0, 3) Index {count=0x0001, a000=Slice {count=0x0005, sector=0x12ab}}
0x255600…255800 (199, 0, 4) DataSector[»CF305«]
[…0x4…]
0x256000…256200 (199, 0, 9) DataSector[»STARW«]
[…0x5…]
0x256c00…256e00 (199, 1, 3) DataSector[»YDBX3«]
[…0x11…]
0x259000…259200 (200, 0, 9) UnusedSector ┆ ┆
0x259200…259400 (200, 0, 10) UnusedSector ┆ 0010 REM * * * E N A R M * * * 0020 REM ERIK RASMUSSEN, HJALLESESKOLEN, 15-2-81 0030 DIM P$(80),S$(31),S1$(31),S2$(31),S3$(31),S4$(80),S5$(160),TAL(100) 0040 DIM P1$(80) 0050 S1$=" "; S2$=" " 0060 FOR Q=1 TO 11 0070 S3$=S3$+CHR(127) 0080 NEXT Q 0090 RANDOMIZE 0100 S4$="KIRSEBÆR ,,BAR,, BLOMME CITRON FIRKLØVERAPPELSIN KLOKKE " 0110 DEF FNC(X)=95+X-64*(X>32)-64*(X>64) 0120 PROC PLOT(XX,YY,CC) 0130 PRINT CHR(6); CHR(FNC(XX)); CHR(FNC(┆
0x259400…259600 (200, 0, 11) UnusedSector ┆YY)); CHR(CC); P$; CHR(128); 0140 ENDPROC 0150 PRINT CHR(12); CHR(130); " $ $ $ $ $ "; CHR(144); 0160 PRINT " D E N E N A R M E D E T Y V E K N Æ G T "; 0170 PRINT CHR(130); " $ $ $ $ $"; CHR(128) 0180 SUM=100 0190 PRINT 0200 PRINT " STARTSUMMEN ER 100 KR. INDSATSEN KAN VÆRE FRA 1 TIL 9 KR." 0210 PRINT " EN EVT. GEVINST GANGES MED INDSATSEN. MEN TRO IKKE, AT DU VINDER" 0220 PRINT " STORE SLAMBERT HAR KRAMMET PÅ DIG." 0230 PRINT " G O D F O R N Ø J E L S ┆
0x259600…259800 (200, 0, 12) UnusedSector ┆E " 0240 FOR Q=1 TO 100 0250 TAL(Q)=INT(RND(0)*7) 0260 NEXT Q 0270 PRINT " TRYK <SPACE> NÅR DU ER KLAR " 0280 Z=KEY(0) 0290 REM ---------- KASSEN LAVES ---------- 0300 OUT 1,0 0310 PRINT CHR(12) 0320 P$=S1$ 0330 FOR L=3 TO 18 0340 EXEC PLOT(24,L,144) 0350 PRINT 0360 NEXT L 0370 REM ---------- PYNT FOROVEN ---------- 0380 P$="###############" 0390 EXEC PLOT(32,2,144) 0400 PRINT 0410 REM ---------- SPILLEHULLER ---------- 0420 P$=CHR(127)+S2$+CHR(127)+S2$+CHR(┆
0x259800…259a00 (200, 1, 1) UnusedSector ┆127)+S2$+CHR(127) 0430 EXEC PLOT(24,5,132) 0440 PRINT 0450 REM ---------- TEKST SKRIVES ---------- 0460 P$=" >> " 0470 EXEC PLOT(24,7,144) 0480 P$=" S T O R E S L A M B E R T " 0490 PRINT 0500 EXEC PLOT(24,9,144) 0510 P$=" O O O " 0520 EXEC PLOT(24,11,146) 0530 PRINT 0540 P$=" C A S I N O PPP" 0550 EXEC PLOT(24,13,148) 0560 PRINT 0570 REM ---------- GEVINSTHULLET ---------- 0580 P$=S3$+S2$+S3$ 0590┆
0x259a00…259c00 (200, 1, 2) UnusedSector ┆ FOR L=16 TO 17 0600 EXEC PLOT(24,L,132) 0610 NEXT L 0620 PRINT 0630 REM ---------- TRÆK-ARMEN ---------- 0640 P$=CHR(127) 0650 FOR L=12 TO 6 STEP -1 0660 EXEC PLOT(57,L,132) 0670 NEXT L 0680 PRINT 0690 REM ---------- FØDDERNE ---------- 0700 P$="#####" 0710 FOR V=24 TO 50 STEP 26 0720 EXEC PLOT(V,19,144) 0730 NEXT V 0740 REM ---------- BORDPLADEN ---------- 0750 P$="##########################################################" 0760 PRINT 0770 EXEC PLOT(10,20,132) ┆
0x259c00…259e00 (200, 1, 3) UnusedSector ┆ 0780 REM ---------- SPILLET STARTER ---------- 0790 GEV=0 0800 REPEAT 0810 CC=128 0820 IF SUM<10 THEN CC=130 0830 PRINT CHR(6); CHR(FNC(24)); CHR(FNC(22)); CHR(CC); 0840 PRINT USING " PENGEBEHOLDNING: ###### " : SUM; 0850 PRINT CHR(128) 0860 PRINT CHR(6); CHR(FNC(24)); CHR(FNC(24)); CHR(144); 0870 PRINT USING " G E V I N S T : ###### " : GEV; 0880 PRINT CHR(128) 0890 OUT 1,35 0900 REPEAT 0910 P$=" INDSATS >> " 0920 ┆
0x259e00…25a000 (200, 1, 4) UnusedSector ┆ EXEC PLOT(24,7,144) 0930 PRINT CHR(6); CHR(FNC(52)); CHR(FNC(7)); CHR(144); 0940 I=KEY(0)-48 0950 PRINT CHR(8); CHR(I+48) 0960 UNTIL I=>1 AND I<=9 AND I<=SUM 0970 SUM=SUM-I 0980 PRINT CHR(6); CHR(FNC(24)); CHR(FNC(22)); CHR(128); 0990 PRINT USING " PENGEBEHOLDNING: ###### " : SUM; 1000 PRINT CHR(128) 1010 REM ---------- GEVINSTHULLET ---------- 1020 P$=S3$+S2$+S3$ 1030 FOR L=16 TO 17 1040 EXEC PLOT(24,L,132) 1050 NEXT L 1060 PRINT ┆
0x25a000…25a200 (200, 1, 5) UnusedSector ┆ 1070 REM ---------- TRÆK-ARM NED --------- 1080 P$=" " 1090 FOR L=6 TO 12 1100 EXEC PLOT(57,L,128) 1110 NEXT L 1120 REM ---------- SPILLEHJULENES TEKST UDVÆLGES TILFÆLDIGT ---------- 1130 TAL(1)=INT(RND(0)*7) 1140 TAL(2)=INT(RND(0)*7) 1150 TAL(3)=INT(RND(0)*7) 1160 REM ---------- TRÆK-ARM OP ---------- 1170 P$=CHR(127) 1180 FOR L=12 TO 6 STEP -1 1190 EXEC PLOT(57,L,132) 1200 PRINT 1210 NEXT L 1220 REM ---------- "SPILLEHJULENE" RULLER --┆
0x25a200…25a400 (200, 1, 6) UnusedSector ┆-------- 1230 FOR Q=94 TO 1 STEP -3 1240 PRINT CHR(6); CHR(119); CHR(100); CHR(132); 1250 PRINT CHR(127); S4$(TAL((Q)*(Q>80)+1)*9+1 : 9); 1260 PRINT CHR(127); S4$(TAL((Q+1)*(Q>40)+2)*9+1 : 9); 1270 PRINT CHR(127); S4$(TAL(Q+2)*9+1 : 9); CHR(127) 1280 NEXT Q 1290 GEV=0 1300 REM ---------- GEVINST UDMÅLING ---------- 1310 IF TAL(1)=0 THEN 1320 P1$=" 2 "; SUM=SUM+I*2; GEV=I*2 1330 IF TAL(2)=0 THEN P1$=" 5 "; SUM=SUM+I*5; GEV=I*5 1340 ENDIF┆
0x25a400…25a600 (200, 1, 7) UnusedSector ┆ 1350 IF TAL(1)=TAL(2) AND TAL(2)=TAL(3) THEN 1360 P1$=" 10 "; SUM=SUM+I*10; GEV=I*10 1370 IF TAL(1)=1 THEN P1$="JACKPOT"; SUM=SUM+I*100; GEV=I*100 1380 IF TAL(1)=4 THEN P1$=" 50 "; SUM=SUM+I*50; GEV=I*50 1390 IF TAL(1)=6 THEN P1$=" 18 "; SUM=SUM+I*18; GEV=I*18 1400 IF TAL(1)=3 THEN P1$=" 12 "; SUM=SUM+I*12; GEV=I*12 1410 IF TAL(1)=2 THEN P1$=" 14 "; SUM=SUM+I*14; GEV=I*14 1420 ENDIF 1430 IF TAL(3)=1 THEN 1440 IF TAL(1)=TAL(2) AND TAL(┆
0x25a600…25a800 (200, 1, 8) UnusedSector ┆1)=6 THEN 1450 P1$=" 10 "; SUM=SUM+I*10; GEV=I*10 1460 ENDIF 1470 IF TAL(1)=TAL(2) AND TAL(1)=3 THEN 1480 P1$=" 10 "; SUM=SUM+I*10; GEV=I*10 1490 ENDIF 1500 ENDIF 1510 REM ---------- GEVINST ---------- 1520 IF GEV>0 THEN 1530 GEVI=GEV/I 1540 FOR Q=1 TO GEVI 1550 CC=CRT(7) 1560 IF GEVI<5 THEN 1570 FOR J=1 TO 100 1580 NEXT J 1590 ELSE 1600 FOR J=1 TO 80 1610 NEXT J 1620 ┆
0x25a800…25aa00 (200, 1, 9) UnusedSector ┆ ENDIF 1630 NEXT Q 1640 PRINT 1650 P$="GEVINST"+CHR(132)+S3$ 1660 EXEC PLOT(36,16,134) 1670 P$=P1$+CHR(132)+S3$ 1680 EXEC PLOT(36,17,128) 1690 ENDIF 1700 UNTIL SUM<=0 1710 PRINT CHR(12) 1720 PRINT CHR(6); CHR(FNC(24)); CHR(FNC(12)); CHR(144); 1730 PRINT " TAK FOR DENNE GANG! "; 1740 PRINT CHR(128) 1750 PRINT CHR(6); CHR(FNC(24)); CHR(FNC(14)); CHR(144); 1760 PRINT " HILSEN STORE SLAMBERT "; 1770 PRINT CHR(128); 1780 CHAIN ┆
0x25aa00…25ac00 (200, 1, 10) UnusedSector ┆"LOGON" ┆
0x25ac00…25ae00 (200, 1, 11) UnusedSector ┆ I 9 + ! ! J Q 9 # B # B # B # B # B # A # (c I A E ! B ! B ! * J " 8L 8Q % ) B B B P(P ! Q Z " ) ! I 9 Z P I ! 9 Z ) J ! B 0 IyIå Iz Iw Is Ip: ; 0V Qf(O )g Q PYbYj)b1 _1Ø 7d U ) 2 H W v9E M)A å G8 + 1p j)@ r ?Q81: QA p 1f99 O e9a1' R c Z +%V8g '),0R å F9$ &(SIJ9L! 9 Y E G B 1 .7>7F : / "ü K H$B" "ü $B9 $ r 9 ) w ) å 8I O ┆
0x25ae00…25b000 (200, 1, 12) UnusedSector ┆) ! J Æ) ! I ! S E A YSI 9 # Y A 3 x# (W # E ) 0N 0 # (c 2 + 8N A I Q *Y) * K * K * K !Y ) ø8c O8R Y ø(b I ! (S A (R1 P! I A Q 1 O '$B" 1 PY Q)I) Y(Q( PI'(RI&)! ø (c A ) ø ) Y ) ø 8b ) 1 ) 1 8S 7d" '7d T0 2 ) 0 8 ; # ; 0N ) Q OPDEV YES NO d7d 0003 *** PARAM I I 1 (, M 0 q I 8 ; # ; 0N ) Q ┆
0x25b000…25b200 (201, 0, 1) UnusedSector ┆S q > K)V 6f?1* 0)Z 1f?1& +1% ) # B (/ H/M (0M # B (N =! ! B (V9 K V! A " y d x Y I 0P 1 ) J (N ) 5 Q T Y ÅTTY OCP b hMT P nFD5 tKIT zMT0 P PTR P CDR P FD0 4` a ) f? VbÅgÅ ! bI! gI 8R bIgI e e 7d? 6bL( H H E 1 P 0,< * K Z Y ; 09* Z K 1 n: Z Z e l 0J8%(&S S 8% W S (Pj a @@ 0N 0ø ┆
0x25b200…25b400 (201, 0, 2) UnusedSector ┆e 0 0å f 0 @ P 0Q 0m X fB 0n X Pf 0o å X f 0q w X e 0 T o e 0Q S .0 e Z 8 S : K * 2 e 0 2 0 7!R* ( M P @ @ N 0 Z B f 0 2" C * 2 g 0 B 0 2% N 6 " * 2 e 0 - Z g 0 ' gB - .e g & . (P (E " R : B P8(N P0 . # # + J 00) Y A " C FILENAMES DUMPED TO LOADED FROM USED MASK: COMMAND FILE DISC ERROR, NOT DUMPED DOES NOT EXIST NOT LOADED PROCESS EXI┆
0x25b400…25b600 (201, 0, 3) Index {count=0x0001, a000=Slice {count=0x000b, sector=0x12db}}
0x25b600…25b800 (201, 0, 4) DataSector[»BCOPY«]
[…0xa…]
0x25cc00…25ce00 (201, 1, 3) UnusedSector ┆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 PR┆
0x25ce00…25d000 (201, 1, 4) UnusedSector ┆OC 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 1390 T=1 1400 LAB(Z,U)=2 1410 ENDIF 1420 0010 ON ESC EXEC SLUT 0020 DIM SVAR$(5) 0030 REPEAT 0040 PRINT CHR(12) 0050 EXEC XY(24,12) 0060 INPUT "ØNSKES ┆
0x25d000…25d200 (201, 1, 5) UnusedSector ┆ B2 4 B24 @ B26 B27 R B3 @ B33 B34 B36 $ B4 B45 Ø B46 b B5 B55 d B62 B63 ┆
0x25d200…25d400 (201, 1, 6) UnusedSector ┆B64 24 @ B26 B27 R B3 @ B33 B34 B36 $ B4 B45 Ø B46 b B5 B55 d B62 B63 ┆
0x25d400…25d600 (201, 1, 7) UnusedSector ┆- - END; GETNEXT; END; CLOSE(DUMP,TRUE); IF DISC = TRUE THEN FREECAT(DUMP); END UNTIL TRUE = FALSE; END; NEW DKP0 MT0 F F ┆
0x25d600…25d800 (201, 1, 8) UnusedSector ┆ 32); OUTBLOCK(DUMP); END ELSE BEGIN DISC:= TRUE; CONNECT; GETENTRY; DUMP.ZKIND:= 30; MOVE(ENTRY,0,DUMP.ZNAME,0,6); SETENTRY(DUMP,ENTRY); OPEN(DUMP,3); END; END; GETNEXT; WHILE FEOF = FALSE DO BEGIN F.ZBLOCK:= OPVAR + WINT3; WHILE WINT2 > 0 DO BEGIN WINT1:= 512; GETREC(F,WINT1); PUTREC(DUMP,WINT1); DUMP^:= F^; WINT2:= WI┆
0x25d800…25da00 (201, 1, 9) DataSector[»YDBX3«]
[…0x5…]
0x25e400…25e600 (202, 0, 3) UnusedSector ┆NEWCA b NODCO PALIN PAUSE PIDEN PRINT h PTB PTP PTR PUNCH t R14 2 R2 0 R235 6 R3 R35 H RBNMA , ┆
0x25e600…25e800 (202, 0, 4) UnusedSector ┆RENAM REPEA RISE l SET SHACH ) ) SIZE SS0 SSA SSYSE Q STERR p SUBCA SVAN1 SYS 0 0 SYSG SYSSC TDISC A A ┆
0x25e800…25ea00 (202, 0, 5) UnusedSector ┆TIMEX L ULIB d # WTEST h WTIME Ø WTST6 Y3102 f YCHEC YDBX3 ø å YFS06 YIOO6 1 5 YLPX1 YMSNO Z YPPX2 z YTT09 5 : 5 YTTP YWTIM ┆
0x25ea00…25ec00 (202, 0, 6) UnusedSector ┆ 0 0 D +0 0! 0 D LIB d # WTEST h WTIME Ø WTST6 Y3102 f YCHEC YDBX3 ø å YFS06 YIOO6 1 5 YLPX1 YMSNO Z YPPX2 z YTT09 5 : 5 YTTP YWTIM ┆
0x25ec00…25ee00 (202, 0, 7) UnusedSector ┆LTEMP : MATH @ MSN64 MSNOP P MTST R v R1234 " # R4 SLAG z SVAN2 T V TMOVE TPTR WTST1 l WTSTM YDTST Ø ┆
0x25ee00…25f000 (202, 0, 8) UnusedSector ┆YPANE YTMOV 0 0 D +0 0! 0 D SNOP P MTST R v R1234 " # R4 SLAG z SVAN2 T V TMOVE TPTR WTST1 l WTSTM YDTST Ø ┆
0x25f000…25f200 (202, 0, 9) UnusedSector ┆ ┆
0x25f200…25f400 (202, 0, 10) UnusedSector ┆B26 B27 R B28 B3 @ B30 B4 B46 b B5 B55 d B56 j B64 B65 BCOPY B5 TMOV 0 0 D +0 0! 0 D ┆
0x25f400…25f600 (202, 0, 11) UnusedSector ┆B57 p B58 v B59 ø B60 B61 B62 B66 B67 B68 B7 . B8 BACH BAPAR Z BASGE 3 5 BASIC V BB5 ┆
0x25f600…25f800 (202, 0, 12) UnusedSector ┆BTEMP BTF 2 CAP2 CAP8 CATIX CATLI ü CATW CATX CF305 CMB00 CODEP 5 5 COMPA COPY CREAT CWDD v DEBUG ┆
0x25f800…25fa00 (202, 1, 1) UnusedSector ┆DISK DTEST DUMP EDIT # EDITM H ELISE END ERCAL FCOPY & FD0 6 FD1 < FDBOT FDT FLOFO FSLIB GAME @ ┆
0x25fa00…25fc00 (202, 1, 2) UnusedSector ┆GEN x GENER > GENOF GENON GENOP IO1 IOO JIMIN $ JUL f KB001 LIFE LOGOF S LOGON F < S LOOP LPT LPX01 ┆
0x25fc00…25fe00 (202, 1, 3) UnusedSector ┆M1 M3102 MAP MAST MASTM MD MUB MUC MUI MUP MUR NBPRU * NBTEM NIM NRCAL 4 NZTEM Ø z _ ┆
0x25fe00…260000 (202, 1, 4) UnusedSector ┆ORGAN P218 N P219 T P221 ` P222 Z PALI PANEL t PLAY PPX02 t R5 Z RBBA1 RBREV REMOV S3600 SNOOP SNOP6 ┆
0x260000…260200 (202, 1, 5) UnusedSector ┆SP SSYSI n SSYSP X F 8 G STACO SVAN3 TEST @ 6 TIME TT009 TTY0 TYPE W n XREF L YDBOP ( YHEAD YLIFE ZTEMP _ _ ┆
0x260200…260400 (202, 1, 6) UnusedSector ┆ 0 0 D +0 0! 0 D $FD0 ?????? ?? FD0 B27 R B28 B30 B56 j B65 CDFP1 V EBCAL EBPRU IO ITMOV KLASK LTEMP : MATH @ MSN64 ┆
0x260400…260600 (202, 1, 7) UnusedSector ┆MSNOP P MTST R v R1234 " # R4 SLAG z SVAN2 T V TMOVE TPTR WTST1 l WTSTM YDTST Ø YPANE YTMOV 0 0 D +0 0! 0 D ┆
0x260600…260800 (202, 1, 8) UnusedSector ┆ SNOP P MTST R v R1234 " # R4 SLAG z SVAN2 T V TMOVE TPTR WTST1 l WTSTM YDTST Ø YPANE YTMOV 0 0 D +0 0! 0 D ┆
0x260800…260a00 (202, 1, 9) UnusedSector ┆NT2 - 1; LPT G 0 0 p Ø 0 *** END OF JOB *** FILENAMES DUMPED TO MT0:001 USED MASK: $$$$$ B 0 Y "99 9 Z ! B@"*B+2+ PJ # 0 ", + P + + ! ü (- Q + 2Y 8 K RC ø(K 2) 8 + ø2)(S ) ) (P < >Y (c (I (W P (S @ P @ P @ T j7 k K B 1ü Eü I üM øMw zMv xMu v)qIo) ) # # %d m y j Ø %`=c0Q %Å=`0O %X=Æ0PIW-O -K 7 UH 4)M5D┆
0x260a00…260c00 (202, 1, 10) UnusedSector ┆ P -I EB EA F%@ #)7 I3 F P @=) Æ 0 B 1+! u: Y I+ I* I)1&9)# B # B # B -B PB R ! B A (P 8 ; # B # B # B Q ! ! 0 @S II IH II XAH )E å C )= ø 7)8 ø (RI8)2 øA6)3 å -!2 . . !.)* å ((RI')" øA%)" å !! ) ø A ) ! å ! ) 1 NB " (O B 0 $H$S $ $ / : I0 I/ I. I-1)* I,)6J * I) B B B B A&A&Q&(NJ )*J ) ø1 J % " E ! B A 9 + J + J + J $ S ; 3 CAT " (K B *Z Z : + ┆
0x260c00…260e00 (202, 1, 11) UnusedSector ┆ I 9 + ! ! J Q 9 # B # B # B # B # B # A # (c I A E ! B ! B ! * J " 8L 8Q % ) B B B P(P ! Q Z " ) ! I 9 Z P I ! 9 Z ) J ! B 0 IyIå Iz Iw Is Ip: ; 0V Qf(O )g Q PYbYj)b1 _1Ø 7d U ) 2 H W v9E M)A å G8 + 1p j)@ r ?Q81: QA p 1f99 O e9a1' R c Z +%V8g '),0R å F9$ &(SIJ9L! 9 Y E G B 1 .7>7F : / "ü K H$B" "ü $B9 $ r 9 ) w ) å 8I O ┆
0x260e00…261000 (202, 1, 12) UnusedSector ┆) ! J Æ) ! I ! S E A YSI 9 # Y A 3 x# (W # E ) 0N 0 # (c 2 + 8N A I Q *Y) * K * K * K !Y ) ø8c O8R Y ø(b I ! (S A (R1 P! I A Q 1 O '$B" 1 PY Q)I) Y(Q( PI'(RI&)! ø (c A ) ø ) Y ) ø 8b ) 1 ) 1 8S 7d" '7d T0 2 ) 0 8 ; # ; 0N ) Q OPDEV YES NO d7d 0003 *** PARAM I I 1 (, M 0 q I 8 ; # ; 0N ) Q ┆