home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Digital Talk 4
/
Digital_Talk_04_1993-12-10_Digital_Talk_de_Side_B.d64
/
5. hsm-duotris
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
2KB
|
79 lines
10 dim hs$(31)
20 poke53280,11:poke53281,0:poke646,13:print"[147] ford prefect's highscoremaker"
30 print" written 1993 public domain software"
40 print"[156] spiel : [159]duotris"
50 print" [154] highscore:"
60 print" [183][183][183][183][183][183][183][183][183][183][153]"
70 :
80 : l$=">>>>duotris-high,p,r"
90 :
100 : open 1,8,2,l$
110 : get #1, no$, no$
120 : for l=0 to 31
130 : for r=0 to 15
140 : get #1, byte$
150 : if byte$="" then poke 49152+l*16+r,0:goto 180
160 : poke 49152+l*16+r,asc(byte$)
170 : hs$(l)=hs$(l)+byte$
180 : nextr
190 : nextl
200 : close 1
210 :
220 : poke 646,7
230 :
240 : forl=0to15
250 : printl+1,hs$(l)
260 : nextl
270 : print"[153] <weiter mit space> "
280 : get a$:ifa$<>" "then280
290 :
300 : poke 646,13
310 :
320 : forl=16to31
330 : printl+1,hs$(l)
340 : nextl
350 :
360 : print"[154] welche nummer soll geaendert werden ?"
370 : print" gib ein : 1 - 32 oder _ zum neustart"
380 : print" -0 zum beenden-"
390 : input" >>";a$
400 : ifa$="_"then run
410 : a=val(a$)
420 : if a < 0 or a > 32 then print"[145]";:goto390
430 : if a = 0 then end
440 :
450 : b= (a-1)
470 :
480 : print"[158] max. 16 zeichen !!!":print" [175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
490 : print"[153] ";hs$(b);"[159]"
500 : input"[145]";b$
510 :
520 : iflen(b$)>16thenprint"[145]";:goto500
530 : iflen(b$)<16thengosub700
540 : print" [158] aenderungen werden gespeichert !"
545 :
550 : forl=1to16
560 : a=asc(mid$(b$,l,1))
570 : poke49152+b*16+l-1,a
580 : nextl
590 :
600 : s$=">>>>duotris-high,p,w"
610 : open 15,8,15,"s:>>>>duotris-high":close15
620 :
630 : open 1,8,2,s$
640 : print#1,chr$(0);chr$(101);
650 : forl=49152to49152+511
660 : print#1,chr$(peek(l));
670 : nextl
680 : close 1
690 : run
700 : y=len(b$):foro=yto15:b$=b$+chr$(32):nexto:return
705 :
710 : ford prefect's highscoremaker
720 : hsm-duotris (w) 1993 by
730 :
740 : danny busch
750 : birkenallee 18
760 : 65549 limburg (germany)
770 : tel.: 06431/25866