home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh2x
/
sh24b.d64
/
hilbert
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
1KB
|
68 lines
1 DIMW%(7):DIMB%(7)
10 INPUT"TIEFE (1-7)";O%
20 IFO%<1ORO%>7THEN10
30 M%=2^(7-O%)
90 :
100 :
101 : REM HAUPTPROGRAMM
102 :
120 GOSUB10000:GOSUB200:POKE198,0:WAIT198,1:GOSUB14000:GOTO10
130 :
160 :
165 : REM HILBERT-PROZEDUR
170 :
200 IFO%=0THENO%=O%+B%:RETURN
205 W%=W%-W%(O%):O%=O%-B%:W%(O%)=-W%(O%+B%):GOSUB200
220 GOSUB11400:W%=W%+W%(O%):O%=O%-B%:W%(O%)=W%(O%+B%):GOSUB200
260 GOSUB11400:O%=O%-B%:W%(O%)=W%(O%+B%):GOSUB200
280 W%=W%+W%(O%):GOSUB11400:O%=O%-B%:W%(O%)=-W%(O%+B%):GOSUB200
290 W%=W%-W%(O%):O%=O%+B%:RETURN
900 :
910 :
10000 :
10001 : REM INITIALISIEREN
10002 :
10005 POKE56576,198:POKE56578,63
10020 POKE53272,120:POKE648,92
10030 POKE53265,187:I%=24576
10040 POKEI%,0
10045 I%=I%+1:IFI%<=32575GOTO10040
10047 I%=23552
10050 POKEI%,16
10052 I%=I%+1:IFI%<=24551GOTO10050
10055 W%=1:A%=4:B%=1:Y%=170:X%=60
10057 W%(O%)=1
10062 B%(7)=1:B%(6)=2:B%(5)=4:B%(4)=8:B%(3)=16:B%(2)=32:B%(1)=64:B%(0)=128
10070 RETURN
10075 :
10077 :
10078 : REM PLOT
10080 :
11000 J%=(X%AND504)+40*(Y%AND248)+(Y%AND7)+24576
11020 POKEJ%,PEEK(J%)ORB%(X%AND7):RETURN
11400 :
11401 :
11402 : REM MOVE
11403 :
11410 I%=M%
11420 ONW%AND3GOTO11520,11540,11560
11440 :
11500 X%=X%+1:GOSUB11000
11505 I%=I%-1:IFI%THEN11500
11510 RETURN
11520 Y%=Y%-1:GOSUB11000
11525 I%=I%-1:IFI%THEN11520
11530 RETURN
11540 X%=X%-1:GOSUB11000
11545 I%=I%-1:IFI%THEN11540
11550 RETURN
11560 Y%=Y%+1:GOSUB11000
11565 I%=I%-1:IFI%THEN11560
11570 RETURN
13140 :
13150 :
14000 POKE53265,27:POKE53272,21
14005 POKE648,4
14010 POKE56578,63:POKE56576,151
14020 RETURN