Siehe:
http://www.cpcwiki.eu/forum/sp…-rote-rubin/msg98484/#new
[Blocked Image: http://forum.classic-computing.org/index.php?page=Attachment&attachmentID=8907&h=683f024a74c3cf8fc47c18e14fbac553c960d280]
[Blocked Image: http://forum.classic-computing.org/index.php?page=Attachment&attachmentID=8908&h=4f8b7a3f070e3da225e27728c6a3e384e898f609]
Hallo,
da hat sich der Fehlerteufel in Zeile 3040 versteckt. Dort muss "index" durch "ridex" ersetzt werden, dann klappt das auch wieder.
3040 FOR ix=1 TO iplay:ridex(ix)=iwa(ix,1)*5000+iwa(ix,2)*1000+iwa(ix,3)*400+iwa(ix,4)*200+iwa(ix,5)*40+iwa(ix,6)*15:FOR iy=1 TO 3:ridex(ix)=ridex(ix)+iha(iy)*ihp(iy):NEXTDanke für den Hinweis !
Für Tipfaule: ein neues Disk-Image im Anhang.
Die Cracks hier kriegen das sicher auch rasend schnell in Assembler hin - vielleicht mit den schnellen Grafik-Methoden aus "Softwareexperiment" ?
Cool
Ich bin ein Freund der "TEST"-Version. Funktioniert auf 464,664,6128 - ohne Kenntniss des Zeichensatzspeichers.
10 o%=0:REM 0 for screen and 8 for printer
20 c$="#": REM Symbol to be used for pixels
30 s$="CPC-Forum":REM print this string
40 DIM a$(8)
50 MODE 2
60 LOCATE 1,25:PRINT s$;:LOCATE 1,1
70 FOR i%=7 TO 0 STEP -1
80 FOR s%=0 TO LEN(s$)*8
90 b=TEST(s%,i%*2)
100 IF b=0 THEN a$(i%)=a$(i%)+" "
110 IF b=1 THEN a$(i%)=a$(i%)+c$
120 NEXT s%
130 PRINT#o%,a$(i%)
140 NEXT i%Sieht dann so aus wie im Anhang.[attachment=0]<!-- ia0 -->cpc.png<!-- ia0 -->[/attachment]
Hallo Bastler,
TurboPascal ist ewig her, daher weiss ich nicht, ob es bei der Version schon case gabe ? Dann brauchst Du kein inline-mc
case Token of
0 : Proc0;
1 : Proc1;
.....
end;trantor ?
ikari warrior ?
north & south ?
strego ?
Hallo zusammen,
in meiner aktiven CPC-Zeit hatte ich mir ein kleines Disk-Menu geschrieben, welches auf jeder Diskette als "Oberfläche" verfügbar war. (Und das heisst $ )
Auf dem Emulator funktioniert allerdings die - auf dem CPC ohne Mucken laufende - Einleseschleife für den MC-Code nicht :
Auszug:
10 DEFINT a-z:PEN 1:PAPER 0:MODE 2:INK 0,26:INK 1,0:a=4089:WHILE NOT EOF:READ b$:POKE a,VAL("&"+b$):a=a+1:WEND:CALL &1000:DATA cd,60
,bb,32,c2,b,c9,21,a,10,df,7,10,c9,d,c6,7,23,0,c8,0,1,1,a,0,3,0:PRINT"$CD 8/91":CAT
11 PRINT SPC(18);:CALL &BB9C:PRINT"f0-f6 RUN/CAT/USER/ERA/DRIVE/REN/TYPE @=CPM":CALL &BB9C:m=VPOS(#0)
12 LOCATE 1,m+1:IF NOT INKEY(0)THEN y=MAX(0,y-1) ELSE IF NOT INKEY(2)THEN y=MIN(y+1,m) ELSE IF NOT INKEY(8)THEN x=MAX(0,x-20) ELSE IF NOT INKEY(1)THEN x=MIN(60,x+20) ELSE IF NOT INKEY(15)THEN RUN n$ ELSE IF NOT INKEY(13)THEN RUN
13 IF NOT INKEY(14)THEN 15 ELSE IF NOT INKEY(26)THEN |CPM ELSE IF NOT INKEY(5)THEN |ERA,@n$:RUN ELSE IF NOT INKEY(20)THEN 17 ELSE IF
NOT INKEY(12)THEN 16 ELSE IF NOT INKEY(4)THEN OPENIN n$:CLS:WHILE NOT EOF:LINE INPUT#9,a$:PRINT a$:WEND:CALL &BB06:RUN
14 n$="":FOR c=1 TO 12:LOCATE x+c,y+5:CALL 4089:n$=n$+CHR$(PEEK(3010)):NEXT c:CALL &BB9C:LOCATE x+1,y+5:PRINT n$:CALL &BB18:CALL &BB
9C:LOCATE x+1,y+5:PRINT n$:GOTO 12
15 INPUT"0-FF";u:POKE &A701,u MOD 256:RUN
16 INPUT u$:|REN,@u$,@n$:RUN
17 d=PEEK(&A700):POKE &A700,d+1+3*(d>1):RUNSo liest er die DATA nicht ein und damit führt der CALL natürlich zum Absturz.
Für den Emulator musste ich das so umschreiben, damit es läuft:
10 DEFINT a-z:PEN 1:PAPER 0:MODE 2:INK 0,26:INK 1,0:a=4089:b$="o":WHILE b$<>"END":READ b$:POKE a,VAL("&"+b$):a=a+1:WEND:CALL 4090:DA
TA cd,60,bb,32,c2,b,c9,21,a,10,df,7,10,c9,d,c6,7,23,0,c8,0,1,1,a,0,3,0,END,END:PRINT"$CD 8/91":CAT
11 PRINT SPC(18);:CALL &BB9C:PRINT"f0-f6 RUN/CAT/USER/ERA/DRIVE/REN/TYPE @=CPM":CALL &BB9C:m=VPOS(#0)
12 LOCATE 1,m+1:IF NOT INKEY(0)THEN y=MAX(0,y-1) ELSE IF NOT INKEY(2)THEN y=MIN(y+1,m) ELSE IF NOT INKEY(8)THEN x=MAX(0,x-20) ELSE I
F NOT INKEY(1)THEN x=MIN(60,x+20) ELSE IF NOT INKEY(15)THEN RUN n$ ELSE IF NOT INKEY(13)THEN RUN
13 IF NOT INKEY(14)THEN 15 ELSE IF NOT INKEY(26)THEN |CPM ELSE IF NOT INKEY(5)THEN |ERA,@n$:RUN ELSE IF NOT INKEY(20)THEN 17 ELSE IF
NOT INKEY(12)THEN 16 ELSE IF NOT INKEY(4)THEN OPENIN n$:CLS:WHILE NOT EOF:LINE INPUT#9,a$:PRINT a$:WEND:CALL &BB06:RUN
14 n$="":FOR c=1 TO 12:LOCATE x+c,y+5:CALL 4089:n$=n$+CHR$(PEEK(3010)):NEXT c:CALL &BB9C:LOCATE x+1,y+5:PRINT n$:CALL &BB18:CALL &BB
9C:LOCATE x+1,y+5:PRINT n$:GOTO 12
15 INPUT"0-FF";u:POKE &A701,u MOD 256:RUN
16 INPUT u$:|REN,@u$,@n$:RUN
17 d=PEEK(&A700):POKE &A700,d+1+3*(d>1):RUNWie kommts ?
anzeigt ?
Wenn es nicht ganz so genau sein muss:
auf einem Original-CPC war eine Leer-Schleife ein guter Zeitnehmer
10 a=time
20 for i=0 to 5000:next
30 b=time
40 print "Wartezeit :";(b-a)/300Dafür darf i allerdings kein INT sein ... (mit i% braucht es kaum 2 Sekunden)
Alleine schon der Karaoke-Start-Screen ist Gold wert ... wie gerne habe cih das früher gespielt !
auf der Homepage des Entwicklers
<!-- m --><a class="postlink" href="http://www.carstendost.de/freizeit/landgraf.htm">http://www.carstendost.de/freizeit/landgraf.htm</a><!-- m -->
Bin ja ganz gerührt das das noch jemand kennt ...
