015
07.11.2023, 07:42 Uhr
ThomasR
|
Ja und ja. Der Code ist leicht abgewandelt, ist am Programmende auch erwähnt) und das Programm muss noch mit den Bascoder-Routinen ergänzt werden, auch das steht im Beitrag. Das ist die Wirkungsweise von BasiCode: die Programme (ASCII) laufen auf vielen Computern, die Computer müssen jedoch dafür vorbereitet sein, also die Bascoder-Routinen, die computerspezifisch sind, müssen schon vorhanden sein.
Weil hier kein File-Upload möglich ist und ich die Textkästen nicht zu riesig werden lassen will, habe ich nur die universelle Hälfte hineingestellt.
In Beitrag 013 habe ich auf eine Quelle für den BIC-Bascoder und den MSX-Bascoder verwiesen, man kann auch das Programm aus 001 http://www.kc85emu.de/rt/kubusbic.asc herunterladen und von dort die Zeilen bis 950 ausschneiden und vor das Listing aus 011 setzen.
Immer noch zu ungeduldig? Hier wäre der (für dieses Programm gekürzte, aber ausreichende) Bascoder für den BIC:
Quellcode: | 10 COLOR6,0,0:SCREEN3:COLOR0:CLS:SCREEN0,,,,,1:KEYOFF:WINDOW:CLS:MAXFILES=4:CLEAR200:IFPEEK(&HFEBA)=201THENMAXFILES=2 11 DEFINTA-Z:DIMCC(3):M=VAL("&H"+HEX$(PEEK(&HFBB6)+256*PEEK(&HFBB7))):IFPEEK(&HFEFD)=201THENCLEAR200,M-455:POKE&HFEFD,0:GOTO11 12 O$(1)="01e5c521**650e990605db98e60220fa3ee0d399db981f30fbeda220f7c1e1c9db98e60428fac50e983e49d399ed69ed61c1c9d5c50e985fdb98e60220fa3e30d399db98e60220faed59c1d1c9fd0d350d770cc40b1b0b7b0ae5095609d0085208da0769070000000000000000 13 O$(2)="6ddb98e62020fadb98e62028fa3e13d39d0e9cafcbbfd39e060821**65f5ed782f772310f9f1cbffd39e060821**65edb33c20e03e12d39dc9eb46235e23560405c81afe613807fe7f3003d620121318ef 14 O$(3)="bdf637f5060021fd1bcd**01cd**202bf1383bd9cde100cde100cde100cde400d8d923a847d97ad9ee80cd**33cb6cd928ebd92b1139b9e3e3e3e31b7ab320f7cd**2078cd**332a**65cd**20c9db98e60428fa3e4cd3993e02d3983e04d398d3983eb0d399d9cdea00d923db981f30fbdb99cb6c2803781806 15 O$(4)="36ee80f5a847f1d9f5cded00f1d9cb6c28e02a**65cd**20afc3e30b23237ed6153004c60c30fcfe603804d60c18f80601fe0c380504d60c18f7876f260011**4d195e235621200005280dcb3acb1bcb3ccb1d10f630011319afcd93005a556c3cfe0420f5c9 16 O$(5)="9b3e80d3a82110800e9c3e13d39dafd39e0608edb33c20f73ea0d3a83e12d39dc9 17 BLOAD"ZS.ZG",Z:LOCATE4,10,0:PRINT"A U G E N B L I C K":FORO=1TO5:I=VAL("&H"+MID$(O$(O),1,2)):IFO>=4THENI=I+256 18 FORT=3TOLEN(O$(O))STEP2:D$=MID$(O$(O),T,2):D=VAL("&H"+D$):IFD$="**"THENF=-1ELSEIFNOTFTHENPOKEM+I,D:I=I+1ELSEPOKEM+I,255AND(M+D):POKEM+I+1,255ANDINT((M+D)/256):I=I+2:F=0 19 NEXTT,O:CLS:GOTO1000 20 ONERRORGOTO951:IFA<200THENA=200 21 CLEARA:COLOR6,0,0:DEFSNGA-Z:DEFINTO:O=VAL("&H"+HEX$(PEEK(&HFBB6)+256*PEEK(&HFBB7))):DEFUSR=O+&H6D:DEFUSR1=O+&HA5:DEFUSR2=O+&HBD:DEFUSR3=O+&HBE:DEFUSR4=O+&H151:DEFUSR5=O+&H19B:SV=RND(-TIME):SV=7:ONSTOPGOSUB950:STOPON:OPEN"GRP:"AS1:ONERRORGOTO951 22 OX=230:OY=200:OW=45:OS=5 23 OZ=40:OQ=2048 24 O=USR(OQ):CC(0)=7:CC(1)=0 25 LOCATE,0:HO=OZ-1:VE=24:HG=OX:VG=OY:GOTO1010 100 SCREEN0:CC(2)=CC(0):CC(3)=CC(1):GOSUB152:WINDOW0,24,0,39:CLS:RETURN 110 LOCATEVEAND255ANDVE>-1,HOAND255ANDHO>-1:GOSUB152:RETURN 120 HO=POS(0):VE=CSRLIN:RETURN 150 GOSUB152:PRINT" ";:O$=" "+SR$+" ":FORO=1TOLEN(O$):PRINTCHR$(128+ASC(MID$(O$,O)));:NEXT:PRINT" "; 151 COLORASC(MID$("094<:;>?",CC(2)+1,1))-48,ASC(MID$("01452367",CC(3)+1,1))-48:RETURN 152 COLORASC(MID$("094<:;>?",CC(0)+1,1))-48,ASC(MID$("01452367",CC(1)+1,1))-48:RETURN 200 IN=0:IN$=INKEY$:IFIN$=""THENRETURNELSEIN=ASC(IN$) 201 IFIN>27ANDIN<32THENIN=INXOR1 202 IFIN=8ORIN=127THENIN=127:IFPOS(0)THENIN$=CHR$(127)ELSEIN$="" 203 IFIN<>13ANDIN<28ORIN>127THENIN=-IN:IN$=CHR$(240) 204 IFIN>96ANDIN<127THENIN=IN-32:RETURNELSERETURN 210 TIME=0:LOCATE,,1 211 GOSUB200:IFIN=0THENIFTIME>18GOTO210ELSE211ELSELOCATE,,0 212 RETURN 220 IFHO<0ORVE<0ORHO>=OZORVE>24THENIN=0:RETURN 221 IN=VDEEK(VE*OZ+HO)AND127:IFIN<32THENIN=32 222 CN=0:IFIN>96ANDIN<127THENIN=IN-32:CN=32:RETURNELSERETURN 250 BEEP:RETURN 260 RV=RND(1):RETURN 270 FR=FRE(0)+FRE("")-50:RETURN 280 POKE&HFC09,0:POKE&HFA8D,FR:RETURN 950 CLEAR200:MAXFILES=1:GOSUB952:END 951 CLEAR200:MAXFILES=1:GOSUB952:O=INT(ERL/256):POKE&HF2E2,ERL-256*O:POKE&HF2E3,O:ERRORERR 952 COLOR6,0,0::DEFUSR=&H90:O=USR(0):O=USR5(0):KEYON:SCREEN0:WINDOW0,23,0,39:POKE&HFC09,0:POKE&HFA8D,0:CLS:RETURN |
Der Spielspaß wird die Umstände lohnen! -- Tot wie ein Dodo? viele Informationen zu BasiCode auf basicode.de
Cu via komputilo povas Esperanto? Jes, BasiCode! Dieser Beitrag wurde am 07.11.2023 um 07:59 Uhr von ThomasR editiert. |