/[projet1]/public/oric/games/Dungeon Demo/DOCS/sedoric/sectmap.txt
Defence Force logotype

Contents of /public/oric/games/Dungeon Demo/DOCS/sedoric/sectmap.txt

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1376 - (show annotations)
Mon Jul 25 19:48:05 2016 UTC (3 years, 3 months ago) by dbug
File MIME type: text/plain
File size: 1535 byte(s)
Added the complete (not cleaned up, pure legacy) source code and assets for the 1996 Dungeon Master tech demo.
To get that to actually work, you need (at least):
- A dos machine (or a Windows 95/Windows 98)
- The Wacom compiler
- The old version of the Oric Compiler toolchain (the OSDK ancestor)

1 100 REM
2 110 REM SECTOR MAP
3 120 REM
4 130 REM
5 140 REM initialisation
6 150 REM
7 160 TEXT:HIMEM #97FF
8 170 CLS:PAPER 0:INK 7
9 180 PRINT:PRINT TAB(10);"SECTOR MAP PROGRAM"
10 190 PRINT TAB(13);"VERSION 1.1"
11 200 S1$=" O":S2$=" ."
12 210 SECTMAP.BIN,N
13 220 PRINT
14 230 OPEN S,"SECTMAP.DAT",1
15 240 PRINT:TYPE 1:CLOSE 1:POKE #20C,#FF
16 250 GET A$:IF A$=CHR$(27) THEN END
17 260 IF A$="P" THEN PR SET:PR=TRUE:GOTO 290 ELSE PR OFF:PR=FALSE
18 270 IF A$<>"D" THEN 250
19 272 CLS
20 273 PRINT:PRINT:PRINT "Enter drive letter : ";
21 274 REPEAT
22 275 GET DR$
23 276 DR=ASC(DR$) AND #DF:DR$=CHR$(DR)
24 277 UNTIL DR$>="A" AND DR$<="D"
25 278 PRINT DR$
26 279 DR$=DR$+"-"
27 280 TKEN DR$
28 281 STRUN DR$
29 282 CALL #BB00
30 290 KEY OFF:ERR OFF
31 300 REM
32 310 REM read bit map
33 320 REM
34 330 REM
35 340 REM
36 350 TP=PEEK(#B406):SE=PEEK(#B407)
37 360 IF PEEK(#B409)<#80 THEN NS=0 ELSE NS=1
38 370 SS=TP*SE
39 380 REM
40 390 REM
41 400 FOR SI=0 TO NS
42 410 PRINT:PRINT"SIDE";SI
43 420 GOSUB 610
44 430 FOR P=0 TO TP-1
45 440 P$=STR$(P):IFLEN(P$)=2THENP$=" "+P$
46 450 PRINT P$;" ";
47 460 FOR S=1 TO SE
48 470 AS=SI*SS+P*SE+S-1
49 480 BS=INT(AS/8)
50 490 BB=AS-BS*8
51 500 IF BS<240 THEN B=PEEK(#B410+BS) ELSE B=PEEK(#B810+BS-240)
52 510 PP=2^BB:BP=B AND PP
53 520 IF BP=0 THEN PRINT S1$; ELSE PRINT S2$;
54 530 NEXT S
55 540 PRINT
56 550 NEXT P
57 560 NEXT SI
58 570 '
59 580 KEY SET
60 590 END
61 600 '
62 610 PRINT:PRINT SPC(18)"SECTOR"
63 620 PRINT" 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1"
64 630 PRINT" 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7"
65 640 PRINT"TRK"
66 650 RETURN

  ViewVC Help
Powered by ViewVC 1.1.26