Robotrontechnik-Forum
Registrieren || Einloggen || Hilfe/FAQ || Suche || Mitglieder || Home || Statistik || Kalender || Admins Willkommen Gast! RSS

Robotrontechnik-Forum » Technische Diskussionen » KC85-Farb-Bascoder ergänzen? » Themenansicht

Autor Thread - Seiten: -1-
000
30.03.2023, 12:56 Uhr
ThomasR

Avatar von ThomasR

Es gibt ein BasiCode-2-Programm von 1985, das beim Lösen des Zauberwürfels hilft. Eine eingedeutschte Fassung liegt hier https://joyce.de/basicode/diesunddas/kubus.htm (Download links unten).

Es stellt die Farben leider nur als Buchstaben dar, das wollte ich schon lange ändern.

Im Bild (zweites Teilbild) steht, dass ggf. durch die Cursor-Positionierung auch die Farben im Textbetrieb von BasiCode geändert werden können (soll nach Protokoll eigentlich nur beim Bildschirmlöschen funktionieren). Auf manchen Computern funktioniert es auch bei GOSUB 110, auf anderen mit einer kleinen Änderung im Bascoder-Teil.

Für das Programm "FARBTEST" habe ich vier Zeilen ergänzt (erstes Teilbild, die Zeilen, deren Nummern nicht auf 0 enden) und es klappt (ohne die Änderungen bleibt die Schrift weiß). Zum Glück wird es beim Einlesen nicht zurückgewiesen. Es verletzt eigentlich die BasiCode-Vorgaben, COLOR ist kein zugelassener Befehl. Die Änderung sollte schon im Bascoder-Teil stattfinden, um die Übertragbarkeit des Programms ab Zeile 1000 nicht einzuschränken.

Es läßt sich übrigens sehr gut mit diesem Projekt von Frank Ludwig arbeiten: http://www.kc85emu.de/Download/basicode@dfend.zip

Beim KC85 komme ich leider nicht in den Bascoder-Teil hinein (habe in Maschinencode-Programmierung zu wenig Übung), hatte jedoch ebenfalls Erfolg mit entsprechend eingefügten Befehlen im übertragbaren Teil des Kubus-Programms (siehe unten).

Sind die Autoren des Bascoders noch aktiv oder kann jemand anders den Bascoder entsprechend abändern?




Quellcode:
1000 a=500:GOTO 20:REM kubus
1010 DIM a(9,12):a$="":GOTO 3000
1020 IF ke$="H" THEN GOTO 1080
1030 IF ke$="O" THEN GOTO 1340
1040 IF ke$="L" THEN GOTO 1600
1050 IF ke$="U" THEN GOTO 1860
1060 IF ke$="R" THEN GOTO 2120
1070 IF ke$="V" THEN GOTO 2380
1080 l=a(4,10)
1090 a(4,10)=a(6,10)
1100 a(6,10)=a(6,12)
1110 a(6,12)=a(4,12)
1120 a(4,12)=l
1130 l=a(4,11)
1140 a(4,11)=a(5,10)
1150 a(5,10)=a(6,11)
1160 a(6,11)=a(5,12)
1170 a(5,12)=l
1180 l=a(1,4)
1190 a(1,4)=a(4,9)
1200 a(4,9)=a(9,6)
1210 a(9,6)=a(6,1)
1220 a(6,1)=l
1230 l=a(1,6)
1240 a(1,6)=a(6,9)
1250 a(6,9)=a(9,4)
1260 a(9,4)=a(4,1)
1270 a(4,1)=l
1280 l=a(1,5)
1290 a(1,5)=a(5,9)
1300 a(5,9)=a(9,5)
1310 a(9,5)=a(5,1)
1320 a(5,1)=l
1330 RETURN
1340 l=a(1,4)
1350 a(1,4)=a(3,4)
1360 a(3,4)=a(3,6)
1370 a(3,6)=a(1,6)
1380 a(1,6)=l
1390 l=a(1,5)
1400 a(1,5)=a(2,4)
1410 a(2,4)=a(3,5)
1420 a(3,5)=a(2,6)
1430 a(2,6)=l
1440 l=a(4,1)
1450 a(4,1)=a(4,4)
1460 a(4,4)=a(4,7)
1470 a(4,7)=a(4,10)
1480 a(4,10)=l
1490 l=a(4,2)
1500 a(4,2)=a(4,5)
1510 a(4,5)=a(4,8)
1520 a(4,8)=a(4,11)
1530 a(4,11)=l
1540 l=a(4,3)
1550 a(4,3)=a(4,6)
1560 a(4,6)=a(4,9)
1570 a(4,9)=a(4,12)
1580 a(4,12)=l
1590 RETURN
1600 l=a(4,1)
1610 a(4,1)=a(6,1)
1620 a(6,1)=a(6,3)
1630 a(6,3)=a(4,3)
1640 a(4,3)=l
1650 l=a(4,2)
1660 a(4,2)=a(5,1)
1670 a(5,1)=a(6,2)
1680 a(6,2)=a(5,3)
1690 a(5,3)=l
1700 l=a(1,4)
1710 a(1,4)=a(6,12)
1720 a(6,12)=a(7,4)
1730 a(7,4)=a(4,4)
1740 a(4,4)=l
1750 l=a(2,4)
1760 a(2,4)=a(5,12)
1770 a(5,12)=a(8,4)
1780 a(8,4)=a(5,4)
1790 a(5,4)=l
1800 l=a(3,4)
1810 a(3,4)=a(4,12)
1820 a(4,12)=a(9,4)
1830 a(9,4)=a(6,4)
1840 a(6,4)=l
1850 RETURN
1860 l=a(7,4)
1870 a(7,4)=a(9,4)
1880 a(9,4)=a(9,6)
1890 a(9,6)=a(7,6)
1900 a(7,6)=l
1910 l=a(7,5)
1920 a(7,5)=a(8,4)
1930 a(8,4)=a(9,5)
1940 a(9,5)=a(8,6)
1950 a(8,6)=l
1960 l=a(6,1)
1970 a(6,1)=a(6,10)
1980 a(6,10)=a(6,7)
1990 a(6,7)=a(6,4)
2000 a(6,4)=l
2010 l=a(6,2)
2020 a(6,2)=a(6,11)
2030 a(6,11)=a(6,8)
2040 a(6,8)=a(6,5)
2050 a(6,5)=l
2060 l=a(6,3)
2070 a(6,3)=a(6,12)
2080 a(6,12)=a(6,9)
2090 a(6,9)=a(6,6)
2100 a(6,6)=l
2110 RETURN
2120 l=a(4,7)
2130 a(4,7)=a(6,7)
2140 a(6,7)=a(6,9)
2150 a(6,9)=a(4,9)
2160 a(4,9)=l
2170 l=a(4,8)
2180 a(4,8)=a(5,7)
2190 a(5,7)=a(6,8)
2200 a(6,8)=a(5,9)
2210 a(5,9)=l
2220 l=a(1,6)
2230 a(1,6)=a(4,6)
2240 a(4,6)=a(7,6)
2250 a(7,6)=a(6,10)
2260 a(6,10)=l
2270 l=a(2,6)
2280 a(2,6)=a(5,6)
2290 a(5,6)=a(8,6)
2300 a(8,6)=a(5,10)
2310 a(5,10)=l
2320 l=a(3,6)
2330 a(3,6)=a(6,6)
2340 a(6,6)=a(9,6)
2350 a(9,6)=a(4,10)
2360 a(4,10)=l
2370 RETURN
2380 l=a(4,4)
2390 a(4,4)=a(6,4)
2400 a(6,4)=a(6,6)
2410 a(6,6)=a(4,6)
2420 a(4,6)=l
2430 l=a(4,5)
2440 a(4,5)=a(5,4)
2450 a(5,4)=a(6,5)
2460 a(6,5)=a(5,6)
2470 a(5,6)=l
2480 l=a(3,4)
2490 a(3,4)=a(6,3)
2500 a(6,3)=a(7,6)
2510 a(7,6)=a(4,7)
2520 a(4,7)=l
2530 l=a(3,5)
2540 a(3,5)=a(5,3)
2550 a(5,3)=a(7,5)
2560 a(7,5)=a(5,7)
2570 a(5,7)=l
2580 l=a(3,6)
2590 a(3,6)=a(4,3)
2600 a(4,3)=a(7,4)
2610 a(7,4)=a(6,7)
2620 a(6,7)=l
2630 RETURN
3000 GOSUB 100
3010 ve=0:ho=8:GOSUB 110:PRINT"WILLKOMMEN BEI 'KUBUS'!"
3020 ve=1:ho=8:GOSUB 110:PRINT"======================="
3030 PRINT:PRINT:PRINT"BITTE WAEHLEN SIE"
3040 ve=6:ho=4:GOSUB 110:PRINT"A  SELBST ETWAS PROBIEREN"
3050 ve=8:ho=4:GOSUB 110
3060 PRINT"B  ICH LOESE EINE STELLUNG AUF"
3070 ve=10:ho=4:GOSUB 110:PRINT"C  SCHOENE FIGUREN"
3080 ve=12:ho=4:GOSUB 110:PRINT"D  ERKLAERUNG"
3090 ve=14:ho=4:GOSUB 110:PRINT"E  ENDE"
3100 ve=16:ho=4:GOSUB 110:GOSUB 210:t$=in$
3110 IF t$="A" THEN 6550
3120 IF t$="B" THEN 4000
3130 IF t$="C" THEN 6990
3140 IF t$="D" THEN 6060
3150 IF t$<>"E" THEN 3000
3160 GOSUB 100:PRINT"**********************"
3170 PRINT"*                    *"
3180 PRINT"*       KUBUS!       *"
3190 PRINT"*                    *"
3200 PRINT"*    GEMAAKT DOOR    *"
3210 PRINT"*                    *"
3220 PRINT"*    JAN  BROECKX    *"
3230 PRINT"*                    *"
3240 PRINT"* KARMELIETENSTR. 66 *"
3250 PRINT"*                    *"
3260 PRINT"*    2600 BERCHEM    *"
3270 PRINT"*                    *"
3280 PRINT"*       BELGIE       *"
3290 PRINT"*                    *"
3300 PRINT"**********************"
3310 GOSUB 210:GOTO 950
4000 GOSUB 100
4010 PRINT"    1  2  3  4  5  6  7  8  9 10 11 12"
4020 PRINT:PRINT
4030 FOR i=1 TO 9:ho=0:ve=3+i:GOSUB 110
4040 PRINT i:NEXT i
4050 b=0:c=0:d=0:e=0:g=0:s=0:f=1:a=0
4060 ve=19:ho=0:GOSUB 110
4070 PRINT"GELB=Y / ROT=R / GRUEN=G / MAGENTA=O"
4080 ve=20:ho=0:GOSUB 110
4090 PRINT"WEISS=W / BLAU=B / FEHLER=F / MENU=M"
4100 ON f GOTO 4110,4120,4130,4140,4150,4160,4320
4110 i1=1:i2=3:j1=4:j2=6:GOTO 4170
4120 i1=4:i2=6:j1=1:j2=3:GOTO 4170
4130 i1=4:i2=6:j1=4:j2=6:GOTO 4170
4140 i1=4:i2=6:j1=7:j2=9:GOTO 4170
4150 i1=4:i2=6:j1=10:j2=12:GOTO 4170
4160 i1=7:i2=9:j1=4:j2=6
4170 aa=0:ff=0:FOR i=i1 TO i2:FOR j=j1 TO j2
4175 IF a<0 THEN gt=4000:GOTO 4312
4180 IF a$="F" THEN gt=4000:aa=1:GOTO 4312
4190 IF a$="M" THEN gt=3000:aa=1:GOTO 4312
4200 ho=j*3:ve=i+3:GOSUB 110:PRINT"??"
4210 ve=21:ho=0:GOSUB 110
4220 PRINT"WELCHE FARBE HAT DAS FELD (";i;",";j;")  ?";
4230 GOSUB 210:a$=in$:PRINT a$
4231 IF a$="Y" THEN TR=6
4232 IF a$="O" THEN TR=3
4233 IF a$="B" THEN TR=1
4234 IF a$="R" THEN TR=2
4235 IF a$="G" THEN TR=4
4236 IF a$="W" THEN TR=7
4240 ho=j*3:ve=i+3:GOSUB 110:COLOR TR:PRINT CHR$(132);CHR$(132):COLOR 7
4250 IF a$="F" THEN gt=4000:aa=1
4260 IF a$="M" THEN gt=3000:aa=1:GOTO 4312
4270 GOSUB 10000:IF a=0 THEN 4200
4280 IF a<0 THEN gt=4000:GOTO 4312
4290 a(i,j)=a
4300 ve=21:ho=35:GOSUB 110:PRINT"  "
4310 gt=4100:ff=1
4312 NEXT j:NEXT i:IF ff=1 THEN f=f+1:ff=0
4314 IF aa=1 THEN a$="":aa=0
4316 IF gt=3000 THEN GOTO 3000
4318 IF gt=4100 THEN GOTO 4100
4319 GOTO 4000
4320 REM
4330 REM juist zetten van rb
4340 po=a(2,5):p=a(5,5):GOSUB 10130:IF a<0 THEN 4000
4350 IF a>6 THEN 4380
4360 ON a GOSUB 10420,10430,10440,10450,10460,10470
4370 GOTO 4390
4380 ON a-6 GOSUB 10480,10490,10500,10510,10520,10530
4390 GOSUB 10540
4400 po=a(2,5):p=a(5,2):GOSUB 10130:IF a<0 THEN 4000
4410 IF a>6 THEN 4440
4420 ON a GOSUB 10670,10450,10680,1,10690,10700
4430 GOTO 4450
4440 ON a-6 GOSUB 10710,10720,10730,10740,10750,10760
4450 GOSUB 10540
4460 po=a(2,5):p=a(5,11):GOSUB 10130:IF a<0 THEN 4000
4470 IF a>6 THEN 4500
4480 ON a GOSUB 10450,1,10770,1,10780,10790
4490 GOTO 4510
4500 ON a-6 GOSUB 10800,10810,10820,10830,10840,10850
4510 GOSUB 10540
4520 po=a(2,5):p=a(5,8):GOSUB 10130:IF a<0 THEN 4000
4530 IF a>6 THEN 4560
4540 ON a GOSUB 1,1,10450,1,10860,10870
4550 GOTO 4570
4560 ON a-6 GOSUB 10880,10890,10900,10910,10920,10930
4570 GOSUB 10540
4580 po=a(5,2):p=a(5,11):GOSUB 10130:IF a<0 THEN 4000
4590 IF a>6 THEN 4620
4600 ON a GOSUB 1,1,1,1,10450,10940
4610 GOTO 4630
4620 ON a-6 GOSUB 10950,10960,10970,10980,10990,11000
4630 GOSUB 10540
4640 po=a(5,2):p=a(5,5):GOSUB 10130:IF a<0 THEN 4000
4650 IF a>6 THEN 4680
4660 ON a GOSUB 1,1,1,1,1,10450
4670 GOTO 4690
4680 ON a-6 GOSUB 11010,11020,11030,11040,11050,11060
4690 GOSUB 10540
4700 po=a(5,5):p=a(5,8):GOSUB 10130:IF a<0 THEN 4000
4710 IF a>6 THEN 4740
4720 ON a GOSUB 1,1,1,1,1,1
4730 GOTO 4750
4740 ON a-6 GOSUB 10450,11070,11080,11090,11100,11110
4750 GOSUB 10540
4760 po=a(5,8):p=a(5,11):GOSUB 10130:IF a<0 THEN 4000
4770 ON a GOSUB 1,1,1,1,1,1,1,10450,11120,11130,11140,11150
4780 GOSUB 10540
4790 po=a(8,5):p=a(5,5):GOSUB 10130:IF a<0 THEN 4000
4800 ON a GOSUB 1,1,1,1,1,1,1,1,10450,11160,11170,11180
4810 GOSUB 10540
4820 po=a(8,5):p=a(5,2):GOSUB 10130:IF a<0 THEN 4000
4830 ON a GOSUB 1,1,1,1,1,1,1,1,1,10450,11190,11200
4840 GOSUB 10540
4850 po=a(8,5):p=a(5,8):GOSUB 10130:IF a<0 THEN 4000
4860 ON a GOSUB 1,1,1,1,1,1,1,1,1,1,10450,11210
4870 GOSUB 10540
4880 REM juist orienteren van rb
4890 IF a(3,5)<>a(2,5) THEN a$="-VLV-LO-L-OL":GOSUB 10540
4900 IF a(2,4)<>a(2,5) THEN a$="-LHL-HO-H-OH":GOSUB 10540
4910 IF a(1,5)<>a(2,5) THEN a$="-HRH-RO-R-OR":GOSUB 10540
4920 IF a(2,6)<>a(2,5) THEN a$="-VOV-OR-O-RO":GOSUB 10540
4930 IF a(5,6)<>a(5,5) THEN a$="-UVU-VR-V-RV":GOSUB 10540
4940 IF a(6,8)<>a(5,8) THEN a$="-HUH-UR-U-RU":GOSUB 10540
4950 IF a(5,9)<>a(5,8) THEN a$="-URU-RH-R-HR":GOSUB 10540
4960 IF a(6,11)<>a(5,11) THEN a$="-LUL-UH-U-HU":GOSUB 10540
4970 IF a(5,12)<>a(5,11) THEN a$="-UHU-HL-H-LH":GOSUB 10540
4980 IF a(8,4)<>a(8,5) THEN a$="-VUV-UL-U-LU":GOSUB 10540
4990 IF a(5,4)<>a(5,5) THEN a$="-ULU-LV-L-VL":GOSUB 10540
5000 IF a(6,5)<>a(5,5) THEN 5360
5010 REM juist zetten van hb
5020 po=a(2,5):p=a(5,5):m=a(5,2):GOSUB 11220:IF a<0 THEN 4000
5030 IF a>4 THEN 5060
5040 ON a GOSUB 10450,11450,11460,11470
5050 GOTO 5070
5060 ON a-4 GOSUB 11480,11490,11500,11510
5070 GOSUB 10540
5080 po=a(2,5):p=a(5,8):m=a(5,5):GOSUB 11220:IF a<0 THEN 4000
5090 ON a GOSUB 1,10450,11520,11530,11540,11550,11560,11570
5100 GOSUB 10540
5110 po=a(2,5):p=a(5,2):m=a(5,11):GOSUB 11220:IF a<0 THEN 4000
5120 ON a GOSUB 1,1,10450,11580,11590,11600,11610,11620
5130 GOSUB 10540
5140 po=a(5,11):p=a(5,8):m=a(2,5):GOSUB 11220:IF a<0 THEN 4000
5150 ON a GOSUB 1,1,1,10450,11630,11640,11650,11660
5160 GOSUB 10540
5170 po=a(5,2):p=a(5,5):m=a(8,5):GOSUB 11220:IF a<0 THEN 4000
5180 ON a GOSUB 1,1,1,1,10450,11670,11680,11690
5190 GOSUB 10540
5200 po=a(5,5):p=a(5,8):m=a(8,5):GOSUB 11220:IF a<0 THEN 4000
5210 ON a GOSUB 1,1,1,1,1,10450,11700,11710
5220 GOSUB 10540
5230 po=a(5,2):p=a(8,5):m=a(5,11):GOSUB 11220:IF a<0 THEN 4000
5240 ON a GOSUB 1,1,1,1,1,1,10450,11160
5250 IF a$="O" THEN 5360
5260 REM juist orienteren van hb
5270 IF (a(3,4)<>a(2,5)) OR (a(4,4)<>a(5,5)) THEN 5300
5280 IF a(4,3)<>a(5,2) THEN 5300
5290 GOTO 5390
5300 IF (a(3,4)=a(4,4)) OR (a(3,4)=a(4,3)) THEN 5360
5310 IF a(4,4)=a(4,3) THEN 5360
5320 IF a(4,4)=a(2,5) THEN a$="O-H-O-L-HL-V-LHLOH-OV"
5330 IF a(4,4)=a(2,5) THEN GOSUB 10540:GOTO 5270
5340 IF a(4,3)=a(2,5) THEN a$="-VO-H-O-L-HLV-LHLOH-O"
5350 IF a(4,3)=a(2,5) THEN GOSUB 10540:GOTO 5270
5360 GOSUB 100:ve=21:ho=0:GOSUB 110
5370 PRINT"KEINE LOESUNG MOEGLICH!!"
5380 PRINT:PRINT"<RETURN> DRUECKEN";:INPUT T$:GOTO 3000
5390 IF a(3,6)<>a(2,5) OR a(4,7)<>a(5,8) THEN 5420
5400 IF a(4,6)<>a(5,5) THEN 5420
5410 GOTO 5490
5420 IF a(3,6)=a(4,7) OR a(3,6)=a(4,6) THEN 5360
5430 IF a(4,6)=a(4,7) THEN 5360
5440 IF a(4,7)=a(2,5) THEN a$="O-L-O-V-LV-R-VLVOL-OR"
5450 IF a(4,7)=a(2,5) THEN GOSUB 10540:GOTO 5390
5460 IF a(4,6)=a(2,5) THEN a$="-RO-L-O-V-LVR-VLVOL-O"
5470 IF a(4,6)=a(2,5) THEN GOSUB 10540:GOTO 5390
5480 GOTO 5360
5490 IF a(1,6)<>a(2,5) OR a(4,10)<>a(5,11) THEN 5520
5500 IF a(4,9)<>a(5,8) THEN 5520
5510 GOTO 5590
5520 IF a(1,6)=a(4,10) OR a(1,6)=a(4,9) THEN 5360
5530 IF a(4,10)=a(4,9) THEN 5360
5540 IF a(4,10)=a(2,5) THEN a$="O-V-O-R-VR-H-RVROV-OH"
5550 IF a(4,10)=a(2,5) THEN GOSUB 10540:GOTO 5490
5560 IF a(4,9)=a(2,5) THEN a$="-HO-V-O-R-VRH-RVROV-O"
5570 IF a(4,9)=a(2,5) THEN GOSUB 10540:GOTO 5490
5580 GOTO 5360
5590 IF a(1,4)<>a(2,5) OR a(4,1)<>a(5,2) THEN 5620
5600 IF a(4,12)<>a(5,11) THEN 5620
5610 GOTO 5690
5620 IF a(1,4)=a(4,1) OR a(1,4)=a(4,12) THEN 5360
5630 IF a(4,1)=a(4,12) THEN 5360
5640 IF a(4,12)=a(2,5) THEN a$="-HL-V-L-O-VOH-OVOLV-L"
5650 IF a(4,12)=a(2,5) THEN GOSUB 10540:GOTO 5590
5660 IF a(4,1)=a(2,5) THEN a$="L-V-L-O-VO-H-OVOLV-LH"
5670 IF a(4,1)=a(2,5) THEN GOSUB 10540:GOTO 5590
5680 GOTO 5360
5690 IF a(6,1)<>a(5,2) OR a(9,4)<>a(8,5) THEN 5720
5700 IF a(6,12)<>a(5,11) THEN 5720
5710 GOTO 5790
5720 IF a(6,1)=a(9,4) OR a(6,1)=a(6,12) THEN 5360
5730 IF a(9,4)=a(6,12) THEN 5360
5740 IF a(6,12)=a(8,5) THEN a$="U-V-U-L-VL-H-LVLUV-UH"
5750 IF a(6,12)=a(8,5) THEN GOSUB 10540:GOTO 5690
5760 IF a(6,1)=a(8,5) THEN a$="-HU-V-U-L-VLH-LVLUV-U"
5770 IF a(6,1)=a(8,5) THEN GOSUB 10540:GOTO 5690
5780 GOTO 5360
5790 IF a(9,6)<>a(8,5) OR a(6,9)<>a(5,8) THEN 5820
5800 IF a(6,10)<>a(5,11) THEN 5820
5810 GOTO 5890
5820 IF a(9,6)=a(6,9) OR a(9,6)=a(6,10) THEN 5360
5830 IF a(6,9)=a(6,10) THEN 5360
5840 IF a(6,9)=a(8,5) THEN a$="U-L-U-H-LH-R-HLHUL-UR"
5850 IF a(6,9)=a(8,5) THEN GOSUB 10540:GOTO 5790
5860 IF a(6,10)=a(8,5) THEN a$="-RU-L-U-H-LHR-HLHUL-U"
5870 IF a(6,10)=a(8,5) THEN GOSUB 10540:GOTO 5790
5880 GOTO 5360
5890 IF a(6,6)<>a(5,5) OR a(7,6)<>a(8,5) THEN 5920
5900 IF a(6,7)<>a(5,8) THEN 5920
5910 GOTO 5990
5920 IF a(6,6)=a(7,6) OR a(6,6)=a(6,7) THEN 5360
5930 IF a(7,6)=a(6,7) THEN 5360
5940 IF a(6,6)=a(8,5) THEN a$="=-H-U-R-HR-V-RHRUH-UV"
5950 IF a(6,6)=a(8,5) THEN GOSUB 10540:GOTO 5890
5960 IF a(6,7)=a(8,5) THEN a$="-VU-H-U-R-HRV-RHRUH-U"
5970 IF a(6,7)=a(8,5) THEN GOSUB 10540:GOTO 5890
5980 GOTO 5360
5990 IF a(6,3)<>a(5,2) OR a(6,4)<>a(5,5) THEN 5360
6000 IF a(7,4)<>a(8,5) THEN 5360
6010 ho=0:ve=20:GOSUB 110
6020 PRINT"                         "
6030 ho=0:ve=20:GOSUB 110:PRINT"VOILA!!":ho=0
6040 ve=22:GOSUB 110:PRINT"<RETURN> DRUECKEN";
6050 GOSUB 210:GOTO 3000
6060 REM uitleg
6070 GOSUB 100
6080 PRINT"IN DIESEM PROGRAMM WIRD DER WUERFEL"
6090 PRINT"WIE FOLGT ANGEZEIGT:":PRINT
6100 GOSUB 120:ho=ho+17:GOSUB 110:PRINT"OO":PRINT
6110 GOSUB 120:ho=ho+14:GOSUB 110:PRINT"LL VV RR HH":PRINT
6120 GOSUB 120:ho=ho+17:GOSUB 110:PRINT"UU"
6130 PRINT:PRINT"IN DER MITTE SEHEN SIE DIE IHNEN ZU-"
6140 PRINT"GEWANDTE SEITE (V), DARUEBER DIE OBER-"
6150 PRINT"SEITE (O) UND DARUNTER DIE UNTER-"
6160 PRINT"SEITE (U). 'L' UND 'R' STEHEN FUER"
6170 PRINT"LINKE UND RECHTE SEITE. DIE RUECK-"
6180 PRINT"SEITE (H) IST GANZ RECHTS.":PRINT
6190 PRINT"<RETURN> DRUECKEN";:GOSUB 210:GOSUB 100
6200 PRINT"WENN SIE Z.B. IN DIESEM PROGRAMM 'O'"
6210 PRINT"LESEN, HEISST DAS, DASS SIE DIE OBERE"
6220 PRINT"EBENE UM EINE VIERTELDREHUNG IM UHR-"
6230 PRINT"ZEIGERSINN DREHEN SOLLEN, '-O' GEGEN"
6240 PRINT"DEN UHRZEIGERSINN (JEWEILS AUF DIE"
6250 PRINT"BETREFFENDE SEITE GESEHEN). '-LV' BE-"
6260 PRINT"DEUTET, DIE LINKE EBENE UM 90 GRAD"
6270 PRINT"GEGEN DEN UHRZEIGERSINN UND DIE VORDERE"
6280 PRINT"EBENE IM UHRZEIGERSINN ZU DREHEN.":PRINT
6283 PRINT"BITTE BEACHTEN SIE, DASS SIE DIE"
6286 PRINT"POSITION DER MITTELFELDER DER"
6290 PRINT"WUERFELSEITEN NIE VERAENDERN!":PRINT
6300 PRINT"<RETURN> DRUECKEN";:GOSUB 210:GOSUB 100
6310 PRINT"WERDEN SIE NICHT UNRUHIG, WENN SIE"
6320 PRINT"LAENGERE ZEIT KEINE VERAENDERUNG"
6330 PRINT"SEHEN. DANN IST DER COMPUTER MIT"
6340 PRINT"AUFWENDIGEREN BERECHNUNGEN"
6343 PRINT"BESCHAEFTIGT (Z.B. BEI DEN"
6346 PRINT"'SCHOENEN FIGUREN')":PRINT
6350 PRINT"DIE FARBEN :":PRINT
6360 PRINT"R = ROT":PRINT"O = MAGENTA"
6370 PRINT"B = BLAU":PRINT"G = GRUEN"
6380 PRINT"Y = GELB":PRINT"W = WEISS"
6390 ve=20:ho=0:GOSUB 110:PRINT"<RETURN> DRUECKEN";
6400 GOSUB 210:GOTO 3000
6410 REM zelf wat proberen
6420 ho=0:ve=20:GOSUB 110
6430 PRINT"SIND SIE FERTIG ? (J/N)";:GOSUB 210
6440 t$=in$:ho=0:ve=20:GOSUB 110
6450 PRINT"                       "
6460 IF t$="N" THEN 6630
6470 IF t$<>"J" THEN 6420
6480 ho=0:ve=20:GOSUB 110
6490 PRINT"SOLL ICH LOESEN ? (J/N)";:GOSUB 210
6500 t$=in$:ho=0:ve=20:GOSUB 110
6510 PRINT"                             "
6520 IF t$="N" THEN 3000
6530 IF t$<>"J" THEN 6480
6540 GOTO 4320
6550 GOSUB 100:GOSUB 6570:GOSUB 6760
6560 GOTO 6630
6570 FOR i=1 TO 3:FOR j=4 TO 6:a(i,j)=1:NEXT j:NEXT i
6580 FOR i=4 TO 6:FOR j=1 TO 3:a(i,j)=2:NEXT j:NEXT i
6590 FOR i=4 TO 6:FOR j=4 TO 6:a(i,j)=3:NEXT j:NEXT i
6600 FOR i=4 TO 6:FOR j=7 TO 9:a(i,j)=4:NEXT j:NEXT i
6610 FOR i=4 TO 6:FOR j=10 TO 12:a(i,j)=5:NEXT j:NEXT i
6620 FOR i=7 TO 9:FOR j=4 TO 6:a(i,j)=6:NEXT j:NEXT i:RETURN
6630 ho=0:ve=20:GOSUB 110:PRINT"WELCHE EBENE ?";
6640 GOSUB 210:ke$=in$:PRINT ke$;
6650 IF ke$="-" THEN GOSUB 210:t$=in$:PRINT t$:ke$=ke$+t$
6660 IF ke$="H" OR ke$="O" OR ke$="L" THEN 6710
6670 IF ke$="U" OR ke$="R" OR ke$="V" THEN 6710
6680 IF ke$="-H" OR ke$="-O" OR ke$="-L" THEN 6710
6690 IF ke$="-U" OR ke$="-R" OR ke$="-V" THEN 6710
6700 GOTO 6630
6710 ho=0:ve=20:GOSUB 110:PRINT"                "
6720 IF left$(ke$,1)="-" THEN ke$=right$(ke$,1)
6730 FOR h=1 TO 3:GOSUB 1020:NEXT h
6740 GOSUB 6760:GOTO 6410
6750 GOSUB 1020:GOSUB 6760:GOTO 6410
6760 REM tekenroutine
6770 ve=0:ho=0:GOSUB 110
6780 PRINT"    1  2  3  4  5  6  7  8  9 10 11 12"
6790 PRINT:PRINT
6800 FOR i=1 TO 9:ho=0:ve=3+i:GOSUB 110:PRINT i:NEXT i
6810 FOR i=1 TO 6
6820 ON i GOTO 6830,6840,6850,6860,6870,6880
6830 b=1:c=3:d=4:e=6:GOTO 6890
6840 b=4:c=6:d=1:e=3:GOTO 6890
6850 b=4:c=6:d=4:e=6:GOTO 6890
6860 b=4:c=6:d=7:e=9:GOTO 6890
6870 b=4:c=6:d=10:e=12:GOTO 6890
6880 b=7:c=9:d=4:e=6
6890 FOR j=b TO c:FOR k=d TO e
6900 ho=k*3:ve=j+3:GOSUB 110
6910 ON a(j,k) GOTO 6920,6930,6940,6950,6960,6970
6920 TR=6:GOTO 6975
6930 TR=3:GOTO 6975
6940 TR=1:GOTO 6975
6950 TR=2:GOTO 6975
6960 TR=4:GOTO 6975
6970 TR=7
6975 GOSUB 110:COLOR TR:PRINT CHR$(132);CHR$(132):COLOR 7
6980 GOSUB 110:NEXT k:NEXT j:NEXT i:RETURN
6990 GOSUB 100:GOSUB 6570:ve=0:ho=11
7000 GOSUB 110:PRINT"SCHOENE FIGUREN!":ve=1:ho=11
7010 GOSUB 110:PRINT"================":PRINT
7020 PRINT"BITTE WAEHLEN SIE":PRINT
7030 GOSUB 11720:PRINT"A  BLOEMEN":PRINT
7040 GOSUB 11720:PRINT"B  4-STIP":PRINT
7050 GOSUB 11720:PRINT"C  6-STIP":PRINT
7060 GOSUB 11720:PRINT"D  GUIRLANDE":PRINT
7070 GOSUB 11720:PRINT"E  TTTT":PRINT
7080 GOSUB 11720:PRINT"F  TEMPELPOORTEN":PRINT
7090 GOSUB 11720:PRINT"G  SLANG":PRINT
7100 GOSUB 11720:PRINT"H  WORM":PRINT
7110 GOSUB 11720:PRINT"I  (WEITER)":PRINT
7120 GOSUB 11720:GOSUB 210:t$=in$:GOSUB 100
7130 IF t$="A" THEN a$="LLRROOUUVVHH":GOSUB 10540:GOTO 6990
7140 IF t$="B" THEN a$="O-URRLLO-UVVHH":GOSUB 10540:GOTO 6990
7150 IF t$="C" THEN a$="L-RO-UV-HL-R":GOSUB 10540:GOTO 6990
7160 IF t$="D" THEN a$="RLVHRLVHRLVH":GOSUB 10540:GOTO 6990
7170 IF t$="E" THEN a$="U-OVVHH-U-ORRLL-URRLLOORRLL-U"
7180 IF t$="E" THEN GOSUB 10540:GOTO 6990
7190 IF t$="F" THEN a$="U-OVVHH-U-ORRLL-URRLLOORRLL-UOO"
7200 IF t$="F" THEN GOSUB 10540:GOTO 6990
7210 IF t$="G" THEN a$="H-LR-URRUL-R-HRROHHU-ORR-U"
7220 IF t$="G" THEN GOSUB 10540:GOTO 6990
7230 IF t$="H" THEN a$="ROVV-U-LRV-H-U-V-"
7240 IF t$="H" THEN a1$="RVVROOVRR-V-R-O-VOOVR"
7250 IF t$="H" THEN a$=a$+a1$
7260 IF t$="H" THEN GOSUB 10540:GOTO 6990
7270 IF t$<>"I" THEN 6990
7280 GOSUB 100:PRINT"BITTE WAEHLEN SIE":PRINT
7290 GOSUB 11720:PRINT"A  DUBBELKUBUS":PRINT
7300 GOSUB 11720:PRINT"B  2-RINGEN":PRINT
7310 GOSUB 11720:PRINT"C  4-ZETTER":PRINT
7320 GOSUB 11720:PRINT"D  4-ZETPLUSSER":PRINT
7330 GOSUB 11720:PRINT"E  4-PLUSSER":PRINT
7340 GOSUB 11720:PRINT"F  6-PLUSSER":PRINT
7350 GOSUB 11720:PRINT"G  HAHAHAHAHAHA":PRINT
7360 GOSUB 11720:PRINT"H  12-ELLER":PRINT
7370 GOSUB 11720:PRINT"I  PUINHOOP":PRINT
7380 GOSUB 11720:PRINT"J  (WEITER)":PRINT
7390 GOSUB 11720:GOSUB 210:t$=in$:GOSUB 100
7400 IF t$="A" THEN a$="H-LUULU-VUUV-U-H-VR"
7410 IF t$="A" THEN a1$="OO-R-OHOO-HOV":a$=a$+a1$
7420 IF t$="A" THEN GOSUB 10540:GOTO 6990
7430 IF t$="B" THEN a$="H-LR-URRUL-R-HRROHHU-OHHLROO-L-RHH-U"
7440 IF t$="B" THEN GOSUB 10540:GOTO 6990
7450 IF t$="C" THEN a$="RLVHRLVHRLVHOOUU"
7460 IF t$="C" THEN GOSUB 10540:GOTO 6990
7470 IF t$="D" THEN a$="-R-LOU-R-LOU-R-LOUVVHH"
7480 IF t$="D" THEN GOSUB 10540:GOTO 6990
7490 IF t$="E" THEN a$="VHRLVHRLVHRRLLVHRLVHRLVH"
7500 IF t$="E" THEN GOSUB 10540:GOTO 6990
7510 IF t$="F" THEN a$="RVVHHRRLLOOVVHHRRLLUU-R"
7520 IF t$="F" THEN GOSUB 10540:GOTO 6990
7530 IF t$="G" THEN a$="RLVHOOUURRLLVH-R-L"
7540 IF t$="G" THEN GOSUB 10540:GOTO 6990
7550 IF t$="H" THEN a$="RLOU-V-HRL":GOSUB 10540:GOTO 6990
7560 IF t$="I" THEN a$="VVHHRRLLOO-UROLU"
7570 IF t$="I" THEN GOSUB 10540:GOTO 6990
7580 IF t$<>"J" THEN 7280
7590 GOSUB 100:PRINT"BITTE WAEHLEN SIE":PRINT
7600 GOSUB 11720:PRINT"A  MUILKORVEN":PRINT
7610 GOSUB 11720:PRINT"B  Y-ER":PRINT
7620 GOSUB 11720:PRINT"C  VLAGGEN":PRINT
7630 GOSUB 11720:PRINT"D  WIJZER":PRINT
7640 GOSUB 11720:PRINT"E  MENU":PRINT
7650 GOSUB 11720:GOSUB 210:t$=in$:GOSUB 100
7660 IF t$="A" THEN a$="LOORRUUOORRUU-L":GOSUB 10540:GOTO 6990
7670 IF t$="B" THEN a$="RRLLUURRLLVVHHUUVVHHUU"
7680 IF t$="B" THEN GOSUB 10540:GOTO 6990
7690 IF t$="C" THEN a$="RRVURR-URHH-RURR-U-VRR"
7700 IF t$="C" THEN a1$="LLHULL-ULVV-LULL-U-H"
7710 IF t$="C" THEN a2$="LLVVRRLLHHR"
7720 IF t$="C" THEN a$=a$+a1$+a2$
7730 IF t$="C" THEN GOSUB 10540:GOTO 6990
7740 IF t$="D" THEN a$="-RV-ULV-LUL-V-L-VRHHRU-R-"
7750 IF t$="D" THEN a1$="URU-R-U-OUR-U-RUR-U-ROHH"
7760 IF t$="D" THEN a$=a$+a1$:GOSUB 10540:GOTO 6990
7770 IF t$<>"E" THEN 7590
7780 GOTO 3000
10000 REM
10010 IF a$="Y" THEN a=1:b=b+1:GOTO 10080
10020 IF a$="B" THEN a=3:c=c+1:GOTO 10080
10030 IF a$="W" THEN a=6:d=d+1:GOTO 10080
10040 IF a$="R" THEN a=4:e=e+1:GOTO 10080
10050 IF a$="G" THEN a=5:g=g+1:GOTO 10080
10060 IF a$="O" THEN a=2:s=s+1:GOTO 10080
10070 a=0:RETURN
10080 IF b>9 OR c>9 OR d>9 THEN 10110
10090 IF e>9 OR g>9 OR s>9 THEN 10110
10100 RETURN
10110 PRINT"NICHT RICHTIG!! NEU ANFANGEN!!"
10120 FOR k=1 TO 1000:NEXT k:a=-1:RETURN
10130 REM zoeken rb
10140 s=0
10150 IF a(1,5)<>po THEN 10170
10160 IF a(4,11)=p THEN a=1:RETURN
10170 IF a(2,4)<>po THEN 10190
10180 IF a(4,2)=p THEN a=2:RETURN
10190 IF a(2,6)<>po THEN 10210
10200 IF a(4,8)=p THEN a=3:RETURN
10210 IF a(3,5)<>po THEN 10230
10220 IF a(4,5)=p THEN a=4:RETURN
10230 IF a(5,1)<>po THEN 10250
10240 IF a(5,12)=p THEN a=5:RETURN
10250 IF a(5,3)<>po THEN 10270
10260 IF a(5,4)=p THEN a=6:RETURN
10270 IF a(5,6)<>po THEN 10290
10280 IF a(5,7)=p THEN a=7:RETURN
10290 IF a(5,9)<>po THEN 10310
10300 IF a(5,10)=p THEN a=8:RETURN
10310 IF a(7,5)<>po THEN 10330
10320 IF a(6,5)=p THEN a=9:RETURN
10330 IF a(8,4)<>po THEN 10350
10340 IF a(6,2)=p THEN a=10:RETURN
10350 IF a(8,6)<>po THEN 10370
10360 IF a(6,8)=p THEN a=11:RETURN
10370 IF a(9,5)<>po THEN 10390
10380 IF a(6,11)=p THEN a=12:RETURN
10390 s=s+1:IF s=1 THEN a=po:po=p:p=a:GOTO 10150
10400 PRINT:PRINT"LEIDER FALSCH!! NOCH EINMAL!!"
10410 FOR k=1 TO 1500:NEXT k:a=-1:RETURN
10420 a$="OO":RETURN
10430 a$="-O":RETURN
10440 a$="O":RETURN
10450 a$="":RETURN
10460 a$="L-O":RETURN
10470 a$="V":RETURN
10480 a$="-V":RETURN
10490 a$="-RO":RETURN
10500 a$="VV":RETURN
10510 a$="-LV":RETURN
10520 a$="R-V":RETURN
10530 a$="UUVV":RETURN
10540 REM uitvoeren van a$
10550 IF LEN(a$)=0 THEN RETURN
10560 FOR n=1 TO LEN(a$)
10570 IF MID$(a$,n,1)="-" THEN ke$=MID$(a$,n+1,1)
10580 IF MID$(a$,n,1)="-" THEN FOR h=1 TO 3:GOSUB 1020
10590 IF MID$(a$,n,1)="-" THEN NEXT h
10600 IF MID$(a$,n,1)="-" THEN n=n+1:GOTO 10620
10610 IF MID$(a$,n,1)<>"-" THEN ke$=MID$(a$,n,1):GOSUB 1020
10620 NEXT n:ve=19:ho=0:GOSUB 110:FOR i=1 TO 4
10630 PRINT"                                    ":NEXT i
10640 ve=20:ho=0:GOSUB 110:PRINT a$:GOSUB 6760
10650 ve=22:ho=0:GOSUB 110:PRINT"<RETURN> DRUECKEN";
10660 GOSUB 210:RETURN
10670 a$="HL":RETURN
10680 a$="RHHL":RETURN
10690 a$="L":RETURN
10700 a$="-L":RETURN
10710 a$="-VOV":RETURN
10720 a$="HHL":RETURN
10730 a$="-ULL":RETURN
10740 a$="LL":RETURN
10750 a$="UULL":RETURN
10760 a$="-HL":RETURN
10770 a$="RH":RETURN
10780 a$="-H":RETURN
10790 a$="-O-LO":RETURN
10800 a$="OR-O":RETURN
10810 a$="H":RETURN
10820 a$="UUHH":RETURN
10830 a$="-UHH":RETURN
10840 a$="UHH":RETURN
10850 a$="HH":RETURN
10860 a$="-O-HO":RETURN
10870 a$="OV-O":RETURN
10880 a$="R":RETURN
10890 a$="-R":RETURN
10900 a$="URR":RETURN
10910 a$="UURR":RETURN
10920 a$="RR":RETURN
10930 a$="-URR":RETURN
10940 a$="-VHUUV-H":RETURN
10950 a$="VHUU-V-H":RETURN
10960 a$="RU-R-LUL":RETURN
10970 a$="-L-UL":RETURN
10980 a$="H-U-H":RETURN
10990 a$="HU-H":RETURN
11000 a$="-LUL":RETURN
11010 a$="-RLUU-LR":RETURN
11020 a$="RLUU-R-L":RETURN
11030 a$="L-U-L":RETURN
11040 a$="-VUV":RETURN
11050 a$="-V-UV":RETURN
11060 a$="LU-L":RETURN
11070 a$="V-HUUH-V":RETURN
11080 a$="-RUR":RETURN
11090 a$="VU-V":RETURN
11100 a$="V-U-V":RETURN
11110 a$="-R-UR":RETURN
11120 a$="RU-R":RETURN
11130 a$="-H-UH":RETURN
11140 a$="-HUH":RETURN
11150 a$="R-U-R":RETURN
11160 a$="U":RETURN
11170 a$="-U":RETURN
11180 a$="UU":RETURN
11190 a$="-R-H-R-URUV-U-VHR":RETURN
11200 a$="-R-URUV-U-V":RETURN
11210 a$="-V-UVUL-U-L":RETURN
11220 REM zoeken van hb
11230 s=0
11240 IF a(3,4)<>po OR a(4,4)<>p THEN 11260
11250 IF a(4,3)=m THEN a=1:RETURN
11260 IF a(3,6)<>po OR a(4,7)<>p THEN 11280
11270 IF a(4,6)=m THEN a=2:RETURN
11280 IF a(1,4)<>po OR a(4,1)<>p THEN 11300
11290 IF a(4,12)=m THEN a=3:RETURN
11300 IF a(1,6)<>po OR a(4,10)<>p THEN 11320
11310 IF a(4,9)=m THEN a=4:RETURN
11320 IF a(6,3)<>po OR a(6,4)<>p THEN 11340
11330 IF a(7,4)=m THEN a=5:RETURN
11340 IF a(6,6)<>po OR a(6,7)<>p THEN 11360
11350 IF a(7,6)=m THEN a=6:RETURN
11360 IF a(6,1)<>po OR a(9,4)<>p THEN 11380
11370 IF a(6,12)=m THEN a=7:RETURN
11380 IF a(6,9)<>po OR a(6,10)<>p THEN 11400
11390 IF a(9,6)=m THEN a=8:RETURN
11400 s=s+1:ON s GOTO 11410,11410,11420,11430,11430,11440
11410 a=po:po=p:p=m:m=a:GOTO 11240
11420 a=po:po=m:m=a:GOTO 11240
11430 a=po:po=p:p=m:m=a:GOTO 11240
11440 GOTO 10400
11450 a$="VR-V-LV-R-VL":RETURN
11460 a$="-HLV-LHL-V-L":RETURN
11470 a$="-LOR-OLO-R-O":RETURN
11480 a$="-LVR-VLV-R-V":RETURN
11490 a$="VO-V-UV-O-VU":RETURN
11500 a$="LV-L-HL-V-LH":RETURN
11510 a$="ULV-L-HL-V-LH-U":RETURN
11520 a$="OV-O-HO-V-OH":RETURN
11530 a$="-HOV-OHO-V-O":RETURN
11540 a$="-RVL-VRV-L-V":RETURN
11550 a$="VL-V-RV-L-VR":RETURN
11560 a$="U-RVL-VRV-L-V-U":RETURN
11570 a$="-ORU-ROR-U-R":RETURN
11580 a$="-OHU-HOH-U-H":RETURN
11590 a$="LO-L-UL-O-LU":RETURN
11600 a$="-ULO-L-UL-O-LUU":RETURN
11610 a$="-ULO-LUL-O-L":RETURN
11620 a$="-LHR-HLH-R-H":RETURN
11630 a$="U-HRV-RHR-V-R-U":RETURN
11640 a$="-HRV-RHR-V-R":RETURN
11650 a$="HO-H-UH-O-HU":RETURN
11660 a$="-UHO-HUH-O-H":RETURN
11670 a$="UR-U-LU-R-UL":RETURN
11680 a$="-LUR-ULU-R-U":RETURN
11690 a$="UV-U-HU-V-UH":RETURN
11700 a$="-RUL-URU-L-U":RETURN
11710 a$="UL-U-RU-L-UR":RETURN
11720 GOSUB 120:ho=4:GOSUB 110:RETURN
30000 REM ************************
30010 REM *        kubus!        *
30020 REM *     gemaakt door     *
30030 REM *     jan  broeckx     *
30040 REM *  karmelietenstr. 66  *
30050 REM *     2600 berchem     *
30060 REM *        belgie        *
30061 REM *    deutsch 2019,     *
30062 REM *     farbe 2023:      *
30063 REM *  thomas rademacher   *
30064 REM *  fr.-engels-str. 44  *
30065 REM *     99086 erfurt     *
30066 REM *     deutschland      *
30070 REM ************************
30080 REM
30090 REM copyright  nos hilversum


--
Tot wie ein Dodo?
viele Informationen zu BasiCode auf basicode.de

Cu via komputilo povas Esperanto?
Jes, BasiCode!
Seitenanfang Seitenende
Profil || Private Nachricht || Suche Zitatantwort || Editieren || Löschen
001
30.03.2023, 16:47 Uhr
ralle



 Meine letzte Version ist 1.5 für den /4.
--
Gruß Ralle

Wenn Sie dazu neigen, Bedienungsanleitungen zusammen mit dem Verpackungsmaterial wegzuwerfen, sehen Sie bitte von einem derart drastischen Schritt ab!...
... Nachdem Sie das Gerät eine Weile ausprobiert haben, machen Sie es sich am besten mit dieser Anleitung und ihrem Lieblingsgetränk ein oder zwei Stunden lang in Ihrem Sessel bequem. Dieser Zeitaufwand wird Sie dann später belohnen...

aus KENWOOD-Bedienungsanleitung TM-D700
Seitenanfang Seitenende
Profil || Private Nachricht || Suche Zitatantwort || Editieren || Löschen
002
30.03.2023, 19:40 Uhr
ThomasR

Avatar von ThomasR

Meine jüngste Version ebenfalls - doch ich hatte tatsächlich die Version 3 und nicht 3C benutzt (oberes Teilbild)...

Ironie des Schicksals: wenn es kein Namensvetter ist, habe ich mit R. Wenzel in einem Haus gewohnt, damals war ich mit Schichtarbeit und "Brutpflege" ausgelastet und ein Computer war finanziell nicht erreichbar - zu BasiCode kam ich erst Jahre später und war inzwischen umgezogen.

In der Farbversion klappt (im Textmodus) die farbige Schrift auf vorhandenem Untergrund, jedoch nicht der Wechsel der Hintergrundfarbe (vorletztes Teilbild im ersten Beitrag). Die Frage besteht also nur teilweise weiter, für das KUBUS-Programm reicht es so.



Hier ein weiteres Programm, das danach rief, auf Farbe umgestellt zu werden. So kann man die Kurven, anders als in der schwarz-weiß-Version, wenigstens der Beschriftung zuordnen.


Quellcode:
1000 A=500:GOTO 20:REM BIORITME
1010 GOSUB 2030
1020 REM
1030 REM       HOOFDPROGRAMMA
1040 REM
1050 DIM C(12),A(2),B(2),F(2)
1060 GOSUB 100:PRINT"Met dit programma kunt u zelf de "
1070 PRINT"stand van uw bioritme bepalen."
1080 HO=0:VE=6:GOSUB 110:PRINT"Hoe wilt u de biorythmische";
1090 PRINT" standen ?"
1100 HO=8:VE=9:GOSUB 110:PRINT"1 - In woorden"
1110 VE=11:GOSUB 110:PRINT"2 - Grafiek op het scherm"
1120 VE=13:GOSUB 110:PRINT"3 - Of wilt u een uitleg"
1130 VE=15:GOSUB 110:PRINT"4 - Of wilt u stoppen"
1140 HO=5:VE=21:GOSUB 110:PRINT"DRUK NA DE UITVOERING RETURN"
1150 HO=8:VE=17:GOSUB 110:INPUT Z
1160 IF Z=4 THEN 950:REM stoppen
1170 IF (Z<1) OR (Z>3) THEN GOSUB 1230
1180 ON Z GOSUB 3030,4030,2030
1190 GOTO 1060
1200 REM
1210 REM        FOUTE INVOER
1220 REM
1230 HO=8:VE=17:GOSUB 110:PRINT"Niet bekend!"
1240 SD=20:GOSUB 450:REM wacht 2 s
1250 HO=8:VE=17:GOSUB 110:PRINT"            ":RETURN
2000 REM
2010 REM         INLEIDING
2020 REM
2030 GOSUB 100
2040 PRINT TAB(10);"***************"
2050 PRINT TAB(10);"* BIORYTHMIEK *"
2060 PRINT TAB(10);"***************"
2070 PRINT:PRINT"Bij de BIORYTHMIEK gaat men er vanuit "
2080 PRINT"dat bij de geboorte van een mens drie"
2090 PRINT"ritmes van start gaan. Namelijk:"
2100 PRINT"- het LICHAAMSRITME."
2110 PRINT"(met een lengte van 23 dagen)"
2120 PRINT"- HET GEVOELSRITME."
2130 PRINT"(met een lengte van 28 dagen)"
2140 PRINT"- HET INTELLIGENTIERITME."
2150 PRINT"(met een lengte van 33 dagen)"
2160 PRINT"Vanaf de geboorte gaan alle drie de"
2170 PRINT"ritmes naar een optimale toestand "
2180 PRINT"(positief) waarna ze naar een minimum"
2190 PRINT"dalen. Telkens wanneer een ritme van"
2200 PRINT"positief naar negatief (of anders om)"
2210 PRINT"overgaat is het ritme KRITISCH."
2220 PRINT"DWZ. dat de persoon wat dat ritme "
2230 PRINT"betreft instabiel is."
2240 PRINT:PRINT TAB(25);"druk <RETURN>"
2250 GOSUB 200:IF IN<>13 THEN 2250
2260 RETURN
3000 REM
3010 REM     STAND IN WOORDEN
3020 REM
3030 GOSUB 5030
3040 GOSUB 100:PRINT"de bioritmische standen:"
3050 PRINT:PRINT"het lichaamsritme is ";
3060 E=INT((D/23-INT(D/23))*23+.5)
3070 IF (E=0) OR (E=1) OR (E=12) THEN PRINT"KRITISCH":GOTO 3100
3080 IF (E>1)AND(E<12) THEN PRINT"POSITIEF":GOTO 3100
3090 PRINT"NEGATIEF"
3100 PRINT:PRINT"het gevoelsritme is ";
3110 E=INT((D/28-INT(D/28))*28+.5)
3120 IF (E<2) OR (E=14) OR (E=15) THEN PRINT"KRITISCH":GOTO 3150
3130 IF (E>0)AND(E<14) THEN PRINT"POSITIEF":GOTO 3150
3140 PRINT"NEGATIEF"
3150 PRINT:PRINT"en het intelligentieritme is ";
3160 E=INT((D/33-INT(D/33))*33+.5)
3170 IF (E=0) OR (E=1) OR (E=17) THEN PRINT"KRITISCH":GOTO 3200
3180 IF (E>0)AND(E<17) THEN PRINT"POSITIEF":GOTO 3200
3190 PRINT"NEGATIEF"
3200 PRINT:PRINT:PRINT"Ieder mens heeft een dag waarop alle"
3210 PRINT"ritmes door het kritische punt gaan."
3220 PRINT:Z=21252-D:IF Z<0 THEN 3260
3230 PRINT"die dag is voor u op:"
3240 F(0)=B(0):F(1)=B(1):F(2)=B(2):GOSUB 5700
3250 PRINT:PRINT F(0);"-";F(1);"-";F(2)
3260 IF Z<0 THEN PRINT"Die dag heeft u al gehad"
3270 PRINT:PRINT TAB(25);"druk <RETURN>"
3280 GOSUB 200:IF IN<>13 THEN 3280
3290 FOR T=0 TO 2:A(T)=0:B(T)=0:F(T)=0:NEXT T
3300 RETURN
4000 REM
4010 REM   GRAFIEK
4020 REM
4030 GOSUB 5030:CC(1)=7:CC(0)=0
4040 GOSUB 600
4050 D=D-B(0):Z=C(B(1))
4060 HO=0:VE=10/191:CN=0:GOSUB 620
4070 HO=0:VE=180/191:CN=0:GOSUB 630
4080 HO=0:VE=100/191:CN=0:GOSUB 620
4090 HO=6*Z/191:VE=100/191:CN=0:GOSUB 630
4100 A$="1-":SR=B(1):GOSUB 300:A$=A$+SR$
4110 A$=A$+"-":SR=B(2):GOSUB 300:A$=A$+SR$:SR$=A$
4120 HO=6/191:VE=172/191:CN=0:GOSUB 650
4130 FOR T=0 TO 6*Z-6 STEP 6
4140 IF T/42<>INT(T/42) THEN 4170
4150 HO=T/191:VE=101/191:CN=0:GOSUB 620
4160 VE=104/191:GOSUB 630:GOTO 4190
4170 HO=T/191:VE=101/191:CN=0:GOSUB 620
4180 VE=102/191:GOSUB 620
4190 NEXT T
4210 CC(0)=4:CN=0:HO=80/191:VE=1/191:SR$="KOERPER"
4220 GOSUB 650
4230 CC(0)=4:HO=0:VE=100/191:GOSUB 620
4240 X=0:FOR T=D TO D+Z STEP .5
4250 Y=-SIN(T*2*3.1415927/23)*67
4260 Y=INT(Y+.5)
4270 HO=X/191:VE=(Y+100)/191:GOSUB 630
4280 X=X+3
4290 NEXT T
4300 CC(0)=2:CN=0:HO=80/191:VE=11/191:SR$="GEFUEHL"
4310 GOSUB 650
4320 HO=0:VE=85/191:GOSUB 620
4330 X=0:FOR T=D TO D+Z STEP .5
4340 Y=-SIN(T*2*3.1415927/28)*67
4350 Y=INT(Y+.5)
4360 HO=X/191:VE=(Y+100)/191:GOSUB 630
4370 X=X+3
4380 NEXT T
4390 CC(0)=1:CN=0:HO=80/191:VE=21/191:SR$="INTELLIGENZ"
4400 GOSUB 650
4410 HO=0:VE=85/191:GOSUB 620
4420 X=0:FOR T=D TO D+Z STEP .5
4430 Y=-SIN(T*2*3.1415927/33)*67
4440 Y=INT(Y+.5)
4450 HO=X/191:VE=(Y+100)/191:GOSUB 630
4460 X=X+3
4470 NEXT T
4480 CC(0)=7:CC(1)=0:GOSUB 200:IF IN<>13 THEN 4480
4490 FOR T=0 TO 2:A(T)=0:B(T)=0:F(T)=0:NEXT T
4500 RETURN
5000 REM
5010 REM  GEGEVENS INVOEREN
5020 REM
5030 GOSUB 100
5040 PRINT:PRINT"Wat is uw geboorte datum ?"
5050 PRINT:PRINT"Dag ";:INPUT A(0)
5060 PRINT"Maand ";:INPUT A(1)
5070 PRINT"Jaar ";:INPUT A(2)
5080 PRINT:PRINT A(0);"-";A(1);"-";A(2)
5090 PRINT:PRINT"Is dat goed (j/n)";:INPUT A$:PRINT
5100 IF (A(0)=0) OR (A(0)>31) THEN GOSUB 5310
5110 IF (A(1)>12) OR (A(1)=0) THEN GOSUB 5310
5120 IF (A$="n") OR (A$="N") THEN 5040
5130 PRINT:PRINT"Wat is de peildatum ?"
5140 PRINT:PRINT"Dag ";:INPUT B(0)
5150 PRINT"Maand ";:INPUT B(1)
5160 PRINT"Jaar ";:INPUT B(2)
5170 PRINT:PRINT B(0);"-";B(1);"-";B(2)
5180 PRINT:PRINT"Is dat goed (j/n)";:INPUT A$:PRINT
5190 IF (B(0)=0) OR (B(0)>31) THEN GOSUB 5310
5200 IF (B(1)>12) OR (B(1)=0) THEN GOSUB 5310
5210 IF (A$="n") OR (A$="N") THEN 5130
5220 GOSUB 5380
5230 GOSUB 100
5240 PRINT"Op ";B(0);"-";B(1);"-";B(2);
5250 PRINT" bent u ";D;" dagen oud"
5260 SD=20:GOSUB 450
5270 RETURN
5280 REM
5290 REM  FOUTE INVOER (2)
5300 REM
5310 FOR T=0 TO 2:A(T)=0:B(T)=0:F(T)=0:NEXT T
5320 IF (A$="N") OR (A$="n") THEN RETURN
5330 PRINT"Dat kan nooit goed zijn!"
5340 A$="n":RETURN
5350 REM
5360 REM  DAGEN TELLEN
5370 REM
5380 C(1)=31:C(3)=31:C(4)=30:C(5)=31:C(6)=30:C(7)=31:C(8)=31
5390 C(9)=30:C(10)=31:C(11)=30:C(12)=31
5400 GOSUB 5990
5410 D=C(A(1))-A(0)+1
5420 IF A(2)=B(2) THEN 5540
5430 IF (A(2)+1)=B(2) THEN 5600
5440 IF A(1)=12 THEN 5460
5450 FOR T=(A(1)+1) TO 12:D=D+C(T):NEXT T
5460 FOR T=(A(2)+1) TO (B(2)-1)
5470 GOSUB 6020
5480 NEXT T
5490 GOSUB 6050
5500 IF B(1)=1 THEN 5520
5510 FOR T=1 TO (B(1)-1):D=D+C(T):NEXT T
5520 D=D+B(0):RETURN
5530 REM       A(2)=B(2)
5540 GOSUB 5990
5550 IF A(1)=B(1) THEN D=(B(0)-A(0))+1:RETURN
5560 IF (A(1)+1)=B(1) THEN D=D+B(0):RETURN
5570 FOR T=(A(1)+1) TO (B(1)-1):D=D+C(T):NEXT T
5580 D=D+B(0):RETURN
5590 REM      A(2)+1=B(2)
5600 GOSUB 5990
5610 IF A(1)=12 THEN 5630
5620 FOR T=(A(1)+1) TO 12:D=D+C(T):NEXT T
5630 GOSUB 6050
5640 IF B(1)=1 THEN 5660
5650 FOR T=1 TO (B(1)-1):D=D+C(T):NEXT T
5660 D=D+B(0):RETURN
5670 REM
5680 REM  DATUM ZOEKEN
5690 REM
5700 C(1)=31:C(3)=31:C(4)=30:C(5)=31:C(6)=30:C(7)=31:C(8)=31
5710 C(9)=30:C(10)=31:C(11)=30:C(12)=31
5720 GOSUB 6080
5730 Z=Z-1:IF Z<C(F(1))-F(0) THEN 5910
5740 Z=Z-C(F(1))+F(0)-1:F(1)=F(1)+1:F(0)=1
5750 IF Z=0 THEN RETURN
5760 FOR T=F(1) TO 12
5770 IF Z>C(T) THEN Z=Z-C(T):F(1)=F(1)+1:GOTO 5790
5780 GOTO 5910
5790 NEXT T:F(1)=1:F(2)=F(2)+1
5800 G=365
5810 GOSUB 6110
5820 IF Z>=G THEN Z=Z-G:F(2)=F(2)+1:GOTO 5840
5830 GOTO 5910
5840 IF Z=0 THEN RETURN
5850 GOTO 5810
5860 GOSUB 6080
5870 IF Z>=C(F(1)) THEN Z=Z-C(F(1)):F(1)=F(1)+1:GOTO 5890
5880 GOTO 5910
5890 IF Z=0 THEN RETURN
5900 GOTO 5870
5910 IF Z>0 THEN Z=Z-1:F(0)=F(0)+1
5920 IF F(0)>C(F(1)) THEN F(1)=F(1)+1:F(0)=1
5930 IF F(1)>12 THEN F(2)=F(2)+1:F(1)=1:F(0)=1:GOTO 5860
5940 IF Z=0 THEN RETURN
5950 GOTO 5910
5960 REM
5970 REM SCHRIKKELJAAR ?
5980 REM
5990 IF (A(2)/4<>INT(A(2)/4)) THEN C(2)=28:RETURN
6000 IF (A(2)/100<>INT(A(2)/100)) THEN C(2)=29:RETURN
6010 C(2)=28:RETURN
6020 IF (T/4<>INT(T/4)) THEN D=D+365:RETURN
6030 IF (T/100<>INT(T/100)) THEN D=D+366:RETURN
6040 D=D+365:RETURN
6050 IF (B(2)/4<>INT(B(2)/4)) THEN C(2)=28:RETURN
6060 IF (B(2)/100<>INT(B(2)/100)) THEN C(2)=29:RETURN
6070 C(2)=28:RETURN
6080 IF (F(2)/4<>INT(F(2)/4)) THEN C(2)=28:RETURN
6090 IF (F(2)/100<>INT(F(2)/100)) THEN C(2)=29:RETURN
6100 C(2)=28:RETURN
6110 IF (F(2)/4<>INT(F(2)/4)) THEN G=365:RETURN
6120 IF (F(2)/100<>INT(F(2)/100)) THEN G=366:RETURN
6130 G=365:RETURN
32000 REM**************************
32010 REM*   door: M. Nitters     *
32020 REM*     Oud-Beyerland      *
32030 REM*     NEDERLAND          *
32040 REM**************************
32050 REM TROS-RADIO dd 871111
32060 REM Color: Thomas Rademacher Nov. 2019
32070 REM Erstausstrahlung: Radio DDR


--
Tot wie ein Dodo?
viele Informationen zu BasiCode auf basicode.de

Cu via komputilo povas Esperanto?
Jes, BasiCode!
Dieser Beitrag wurde am 30.03.2023 um 19:51 Uhr von ThomasR editiert.
Seitenanfang Seitenende
Profil || Private Nachricht || Suche Zitatantwort || Editieren || Löschen
003
30.03.2023, 19:50 Uhr
ThomasR

Avatar von ThomasR

Übrigens, hier findet man etliche BasiCode-Programme und kann sie auch sofort im Browser ausprobieren;

http://robhagemans.github.io/basicode/

Leider klappt dort diese zusätzliche Funktion auch nicht und ebenso nicht die Arbeit mit ergänzenden Dateien.

Klappt aber alles hiermit:

http://www.bbcbasic.uk/bbcwin/bbcwin.html

Zum freien Download steht nur eine Version mit Einschränkungen, aber die ist für die BasiCode-Zwecke allemal ausreichend. Das Basic ist irre schnell (gerade die Grafik) und sehr interessant, zum Beispiel ist ein komplettes Tetris als Einzeiler (!) im Paket enthalten.

Der passende Bascoder ist hier:


Quellcode:
    1 REM ***************
    2 REM BASICODE-3 for BBC BASIC for Windows. Version 0.8
    3 REM Based on the BSC3 code for BBC Acorn A/B of Peter Maathuis
    4 REM changes made by Victor Reijs, 2005
    5 REM No BASICODE audio format support,
    6 REM so no loading/saving
    7 REM of program or data files possible
    8 REM help provided by T. Rademacher
    9 REM ***************
   10 GOTO1000
   20 RV=RND(-TIME):CLEAR:MODE20:VDU4:HG=640:VG=400:HO=39:VE=24:SV=7:IN=0
   21 *ESC ON
   22 REM *FX15,0
   23 REM *PRINTERFONT Courier New
   24 DIM CC(2):DIM OC(8):CC(0)=7:CC(1)=0
   25 OC(0)=0:OC(1)=4:OC(2)=1:OC(3)=5:OC(4)=2:OC(5)=6:OC(6)=3:OC(7)=7
   26 GOSUB 90
   28 ONERRORREPORT:ER%=ERL:PRINT"/";ER%:GOTO 952
   29 GOTO1010
   90 REM CONFIGURE COLOR
   91 COLOUR OC(CC(0)): COLOUR OC(CC(1))+128
   92 RETURN
  100 MODE20:GOSUB90:CLS:VDU4:RETURN
  110 GOSUB 90:PRINTTAB(HO,VE);:RETURN
  120 GOSUB 90:HO=POS:VE=VPOS:RETURN
  150 GOSUB 90:PRINT" ";:COLOUR OC(CC(1)):COLOUR OC(CC(0))+128:PRINT "  ";SR$;"  ";:GOSUB 90:PRINT " ";:RETURN
  200 IN$=INKEY$(0):GOTO211
  210 IN$=GET$
  211 IN=ASCIN$:IFIN>135IN=IN-108:RETURN
  212 IFIN>144 AND IN<157 THEN IN=144-IN: RETURN
  213 IFIN=135IN=127:RETURN
  214 IFIN>128IN=32:RETURN
  215 IFIN<32ANDIN<>13IN=0:RETURN
  216 IFIN>95ANDIN<127IN=IN-32:RETURN
  217 RETURN
  220 IFHO<0ORHO>39ORVE<0ORVE>24IN=0:RETURN
  221 H%=POS:V%=VPOS:GOSUB110:A%=135:IN=((USR&FFF4)AND&FF00)DIV256:GOSUB212
  222 PRINTTAB(H%,V%);:RETURN
  250 SOUND 1,-13,190,5:RETURN
  260 RV=RND(1):RETURN
  270 FR=(?5-?3)*256+?4-?2:RETURN
  280 IFFR=1THEN *ESC OFF
  281 IFFR=0THEN *ESC ON
  282 RETURN
  300 SR$=STR$SR:RETURN
  310 @%=&1020000+CN*256+CT:SR$=STR$SR:IFVALSR$=0SR$=STR$0
  311 @%=0:IFCN<>0AND(MID$(SR$,LENSR$-CN,1)<>"."ORINSTR(SR$,"E"))SR$=STRING$(CT,"*"):RETURN
  312 IFCN=0SR$=LEFT$(SR$,LENSR$)
  313 IFLENSR$>CT SR$=STRING$(CT,"*")
  314 SR$=STRING$(CT-LENSR$," ")+SR$:RETURN
  330 IFSR$=""RETURN ELSEO$=SR$:SR$="":FORI%=1TOLENO$:A%=ASCMID$(O$,I%):IFA%>96ANDA%<127SR$=SR$+CHR$(A%-32)ELSESR$=SR$+CHR$A%
  331 NEXT:RETURN
  350 VDU2:VDU21
  351 PRINTSR$;:VDU6:VDU3
  352 RETURN
  360 VDU2:VDU21
  361 PRINT:VDU6:VDU3
  362 RETURN
  400 SOUND1,-SV,(SP-35)*4,SD*2:A%=TIME:REPEATUNTILTIME=A%+SD*10:RETURN
  450 TIME=0:REM *FX21,0
  451 IN$=INKEY$(SD*10):IFIN$=""SD=0:IN=0:RETURN ELSESD=(SD*10-TIME)/10:GOTO211
  500 IN=0
  505 IFNF MOD2=1C%=OPENOUTNF$ ELSEC%=OPENINNF$
  506 IF C%=0 THEN IN=-1: RETURN
  510 IFNF>5H%=C%ELSEIFNF>3G%=C%ELSEIFNF>1F%=C%ELSEE%=C%
  511 RETURN
  540 IN=0:IN$=""
  541 IFNF>5C%=H%ELSEIFNF>3C%=G%ELSEIFNF>1C%=F%ELSEC%=E%
  542 IFEOF#C%IN=1:RETURN
  543 INPUT#C%,IN$
  544 IFEOF#C%IN=1:RETURN ELSERETURN
  560 IN=0
  561 IFNF>5C%=H%ELSEIFNF>3C%=G%ELSEIFNF>1C%=F%ELSEC%=E%
  562 PRINT#C%,SR$:RETURN
  580 IN=0
  581 IFNF>5C%=H%ELSEIFNF>3C%=G%ELSEIFNF>1C%=F%ELSEC%=E%
  582 CLOSE#C%:RETURN
  600 MODE20:GOSUB 90:CLS:VDU5:RETURN
  620 GCOL 0,(-(CN=0)*OC(CC(0))-(CN=1)*OC(CC(1))):MOVE 1+HO*(HG*2-1),(VG*2-1)-VE*(VG*2-1):DRAW 1+HO*(HG*2-1),(VG*2-1)-VE*(VG*2-1)
  622 RETURN
  630 GCOL 0,(-(CN=0)*OC(CC(0))-(CN=1)*OC(CC(1))):DRAW 1+HO*(HG*2),(VG*2-1)-VE*(VG*2-1)
  642 RETURN
  650 GCOL 0,(-(CN=0)*OC(CC(0))-(CN=1)*OC(CC(1))):MOVE 1+HO*(HG*2-1),(VG*2-1)-VE*(VG*2-1):PRINTSR$;:MOVE1+HO*(HG*2-1),(VG*2-1)-VE*(VG*2-1)
  652 RETURN
  950 MODE20:VDU4
  952 *ESC ON
  954 REM *FX15,0
  955 END


--
Tot wie ein Dodo?
viele Informationen zu BasiCode auf basicode.de

Cu via komputilo povas Esperanto?
Jes, BasiCode!
Dieser Beitrag wurde am 30.03.2023 um 20:09 Uhr von ThomasR editiert.
Seitenanfang Seitenende
Profil || Private Nachricht || Suche Zitatantwort || Editieren || Löschen
004
30.03.2023, 19:57 Uhr
ralle



 Ich mache deswegen immer ein 2. Tab auf. mit dem wird hochgeladen, gegebenenfalls sogar XnViev zum verkleinern.
--
Gruß Ralle

Wenn Sie dazu neigen, Bedienungsanleitungen zusammen mit dem Verpackungsmaterial wegzuwerfen, sehen Sie bitte von einem derart drastischen Schritt ab!...
... Nachdem Sie das Gerät eine Weile ausprobiert haben, machen Sie es sich am besten mit dieser Anleitung und ihrem Lieblingsgetränk ein oder zwei Stunden lang in Ihrem Sessel bequem. Dieser Zeitaufwand wird Sie dann später belohnen...

aus KENWOOD-Bedienungsanleitung TM-D700
Seitenanfang Seitenende
Profil || Private Nachricht || Suche Zitatantwort || Editieren || Löschen
005
30.03.2023, 22:18 Uhr
FL



 Schau mal ob das so paßt: BAC4V15P.SSS

Gruß
Frank.
Seitenanfang Seitenende
Profil || Private Nachricht || Suche Zitatantwort || Editieren || Löschen
006
31.03.2023, 09:16 Uhr
ThomasR

Avatar von ThomasR

Danke für Deine Mühe, aber es bringt das selbe Ergebnis.



Oben siehst Du, Vordergrundfarbe klappt, Hintergrundfarbe nur die schwarze Textzeile und der Cursor eine Zeile tiefer. Das Kubus-Programm in Farbe haut aber hin, also bin ich zufrieden.

Nebenfrage, wie macht man den File-Upload (ist mir ja peinlich, dass ich so lange Textkästen reinstelle...)?

Deine SSS-Datei musste ich erst nach TAP konvertieren lassen. Um sicherzustellen, dass ich auch diese verwende, habe ich als versteckten Hinweis per Hexeditor eine Kopie erstellt, die in der Ausschrift -3c statt -3C zeigt (und das Original unangetastet gelassen). Beide Dateien haben identische Parameter (kleine Einblendung oben rechts).

Ich freue mich, dass auch andere BasiCode noch nicht vergessen haben. Deswegen möchte ich gleich noch ein Programm vorstellen, eigentlich ein Programmpaket: https://joyce.de/basicode/joyce/bc3logo.htm

Das kratzt nun wirklich an den Grenzen des von BasiCode Machbaren. Im Paket bc3logo.zip ist ein Programm, das Befehle für die LOGO-Turtle abarbeiten kann. Dafür muss der RAM groß genug und die Maschine schnell genug sein. Der KC hat dann leider zu wenig RAM (in Zeile 1000 werden per Zuweisung an A 5000 Bytes angefordert). Aber es ist noch ein Programm im Paket, das einzelne Bilder für eine Animation erstellen kann, und ein weiteres Programm, das diese Bilder dann als Animation ablaufen lassen kann (das Teilbild ganz unten kommt aber vom Atarti ST).

Im BBC Basic for Windows läuft es auch, im Browser-BasiCode leider nicht, weil dort keine Dateien nachgeladen werden können.



Meine beiden BasiCode-Lieblingsspiele sind Slider (hier mal unter einem DOS-Basic) und Othello (hier auf dem ZX Spectrum). Für Spielspaß, Freude am Knobeln, braucht es keine aufwändige Grafik.

Bei Slider ist durch den oben geschilderten Trick mit dem Einfügen von COLOR-Befehlen der Kistenschieber besser sichtbar und auch Othello spielt sich in der Farbversion angenehmer, man merkt sich rot eben leichter als "habe ich eigentlich X oder O?".
--
Tot wie ein Dodo?
viele Informationen zu BasiCode auf basicode.de

Cu via komputilo povas Esperanto?
Jes, BasiCode!
Dieser Beitrag wurde am 31.03.2023 um 14:29 Uhr von ThomasR editiert.
Seitenanfang Seitenende
Profil || Private Nachricht || Suche Zitatantwort || Editieren || Löschen
007
31.03.2023, 23:53 Uhr
FL



 Erstmal vielen Dank für die vorgestellten Programme!

Ein File-Upload geht hier im Forum nicht. Ich z.B. verlinke in einen Ordner bei uns auf der HP.

Für das SSS-Format hatte ich mich entschieden, falls jemand das Programm auf der echten Hardware
ausprobieren will. Der KC85EMU kann mit dem Format auch umgehen. Eigentlich hättest du die Datei nicht
konvertieren müssen.


Zitat:
ThomasR schrieb
Oben siehst Du, Vordergrundfarbe klappt, Hintergrundfarbe nur die schwarze Textzeile und der Cursor eine Zeile tiefer.


Der Grafik-Fehler kommt vom Basicode-Programm selbst. In der obersten Bildschirmzeile wird
schwarzer Text auf schwarzen Grund angezeigt.
Ich habe mal in den Zeilen 2020 und 2090 die Farbe, die gleich bleiben soll, von schwarz auf weiß geändert:
FARBDEMO.KCC (selbststartend)

Gruß
Frank.
Seitenanfang Seitenende
Profil || Private Nachricht || Suche Zitatantwort || Editieren || Löschen
008
01.04.2023, 12:41 Uhr
ThomasR

Avatar von ThomasR

Zuerst einmal danke an den Administrator für das Verkleinern meiner Riesen-Bilder!

Und an Frank danke für das Feedback, das habe ich in diesem Thema sonst statistisch nur etwa aller fünf Jahre mal...

unteres Teilbild:

Im Erläuterungsprogramm zu der Farbversion steht:

>> Bei Start des Programms werden diese Werte mit der Subroutine 100 uebernommen und die Farben entsprechend gesetzt.
Fuer das Programmieren in BASICODE-3C gilt:
- Subroutine 600 loescht den Schirm und zeigt die Farbe, die in CC(1) codiert ist. Sie gelten im Ablauf des Programms bis zu einer Aenderung und der naechstfolgenden GOSUB 100 Anweisung. <<

Somit ist ein Farbwechsel eigentlich nur über das Löschen des Bildschirms möglich. So verhält es sich tatsächlich auf dem ZX Spectrum: Das Programm FARBTEST läuft wie vorgesehen in Farbe sowohl im Text- als auch im Grafikmodus. Doch von OTHELLOC klappt nur der Text-Teil (Startbildschirm und Erklärungs-Seiten) betreffs der Farben, das Spiel (im Grafik-Teil findet in schwarz/weiß statt. Das Programm habe ich für den Speccy zu guter Letzt dahingehend umgeschrieben, dass ich (verbotenerweise) im Grafikbetrieb doch Befehle für den Textbetrieb verwende. Der Zweck heiligt die Mittel... https://forum.tlienhard.com/phpBB3/viewtopic.php?p=51110#p51110

Die Bascoder-Version BAC4V15F.TAP (der Bascoder mit dem roten Untergrund im Startbild) klappt, bei den anderen Farb-Bascodern ist das Verhalten ebenso wie auf dem Spectrum (zu dem der KC in dieser Hinsicht, Organisation der Farbdarstellung, wohl eine gewisse Ähnlichkeit hat).

obere Teilbilder:

Es gibt Fortschritte mit dem sehr langen LOGO-Programm. Im Völz-Buch habe ich den Hinweis gefunden, dass man die Programme durch Übersetzen nach BasiCode und zurück "eindampfen" kann, weil der KC keine Leerzeichen nach den Schlüsselwörtern braucht. Auch beim Zeilenwechsel ist dann nur noch ein Steuercode. Das alles reicht aus, das LOGO-Programm doch zum Laufen zu bringen.

Das Programm (siehe EDIT am Ende) wird mit *A aus dem BasiCode-Menü geladen.

Die Kommandos sind auf Niederländisch. Sie können auch mit Kleinbuchstaben eingegeben werden.

HELP und LIJST zeigen die verfügbaren Befehle.

PENOP (pen up) hebt den Stift an, der Grafikcursor kann an eine andere Stelle gebracht werden, ohne eine Spur zu ziehen.

PENNEER (pen down) setzt den Stift wieder auf, es kann gezeichnet werden.

LINKS und RECHTS (dann Leerzeichen und Gradzahl, rechter Winkel = 90) drehen die "Turtle" um den angegebenen Winkel.

VOORUIT und ACHTERUIT (Leerzeichen und Entfernung) ziehen eine Linie in oder gegen die Pfeilrichtung.

SCHOON löscht den Bildschirm.

EIND beendet das Programm (der Abbruch mit CTRL+C ist gesperrt).

Es gibt auch Befehle zum Laden und Speichern der Resultate, doch das klappt in der Emulation noch nicht, wenn ich mich nicht irre.

Ansonsten ist es wirklich ein super Arbeiten mit basicode@dfend!



EDIT: Ich will nicht schon wieder so einen riesigen Textkasten hier reinstellen, deswegen probiere ich einmal den Programm-Upload "durch die Hintertür".

Das hier



ist nicht wirklich ein Bild. Ladet es herunter und öffnet es mit einem Hex-Editor. Schneidet dann ab 90hex ein Stück der Länge 71FAhex heraus (Ihr seht dann schon, dass es ASCII ist), also von einschl. 90hex bis einschl. 7289hex und speichert das als BCO-Datei mit einem Namen Eurer Wahl ab. Das kann dann aus dem BasiCode-Menü als ASCII-Datei eingelesen und nach Basic umgewandelt werden.

Falls Ihr es gleich mit *L einlest, wird es nach dem Laden eine Fehlermeldung zeigen. Ihr könnt es trotzdem nach Basic übersetzen, es läuft. Wer in irgendeiner Verzweigung dann auf einen Fehler stößt, kann ihn hier gern vermelden und ich werde versuchen, ihn zu korrigieren und eine neue Version zu erstellen.
--
Tot wie ein Dodo?
viele Informationen zu BasiCode auf basicode.de

Cu via komputilo povas Esperanto?
Jes, BasiCode!
Dieser Beitrag wurde am 01.04.2023 um 22:09 Uhr von ThomasR editiert.
Seitenanfang Seitenende
Profil || Private Nachricht || Suche Zitatantwort || Editieren || Löschen
009
17.06.2023, 16:05 Uhr
ThomasR

Avatar von ThomasR

Im Zauberwürfel-Programm im riesigen Textkasten im ersten Beitrag ist ein Fehler, auf den mich Frank hinwies:


Quellcode:
...
5930 IF a(7,6)=a(6,7) THEN 5360
5940 IF a(6,6)=a(8,5) THEN a$="=-H-U-R-HR-V-RHRUH-UV":REM <--- erstes Zeichen von a$ falsch!
5950 IF a(6,6)=a(8,5) THEN GOSUB 10540:GOTO 5890
...



muss heißen


Quellcode:
...
5930 IF a(7,6)=a(6,7) THEN 5360
5940 IF a(6,6)=a(8,5) THEN a$="U-H-U-R-HR-V-RHRUH-UV"
5950 IF a(6,6)=a(8,5) THEN GOSUB 10540:GOTO 5890
...



Das ist mir selbst 2007 unterlaufen, als ich Leerzeichen nach den Schlüsselwörtern einfügte und dergleichen, um das Programm in ASCII-Form auch auf anderen Wegen übertragen zu können. Vele Computerbasics "pochen" auf diese Leerzeichen.

Nun sollten alle legalen Eingaben unter Menüpunkt B gelöst werden.


--
Tot wie ein Dodo?
viele Informationen zu BasiCode auf basicode.de

Cu via komputilo povas Esperanto?
Jes, BasiCode!
Seitenanfang Seitenende
Profil || Private Nachricht || Suche Zitatantwort || Editieren || Löschen
010
18.06.2023, 21:21 Uhr
FL



 KUBUS habe ich jetzt aktualisiert.
Hier die Fassung für den KC85/3..5 : kubusc.zip

Gruß
Frank.
Dieser Beitrag wurde am 18.06.2023 um 21:22 Uhr von FL editiert.
Seitenanfang Seitenende
Profil || Private Nachricht || Suche Zitatantwort || Editieren || Löschen
011
05.11.2023, 20:52 Uhr
ThomasR

Avatar von ThomasR

Malcolm Tyrrell schrieb 2003 für den ZX Spectrum MazezaM, ein schön kniffliges Programm, halb Sokoban, halb Labyrinth:



Inzwischen gibt es dieses Knobelspiel auf einigen anderen Computern wie auch für den Windows-PC:



2020 schrieb der Autor eine Version für BasiCode und das Programm läuft damit, den entsprechenden Bascoder vorausgesetzt, sowohl auf dem KC 85/3 als auch 4.



Die Version ist zwar nicht so farbenfroh wie die beiden vorgenannten Versionen, aber die Herausforderung der Rätsel ist unverändert. Obendrein bietet sie den Vorteil, dass die Zahl der Versuche nicht begrenzt ist und man auch einfach in den nächsten Level springen kann. Aufgabe ist, das Labyrinth zu durchqueren, wofür jeweils eine komplette Zeile von Hindernissen verschoben werden kann. Die Bedienung erfolgt mit den Cursortasten oder mit den Klein- oder Großbuchstaben i, j, k, l.



Wie gewohnt muss zunächst der Bascoder geladen und gestartet werden, dann kann das Programm hinzugeladen werden.

Viel Spaß damit!


Quellcode:
1000 A=194:GOTO 20:REM *** MAZEZAM ***
1010 DIM R$(11):DIM Y(11):HO=14:VE=14
1310 HO=HO+1:R=HO:GOSUB 110:GOSUB 120:IF R=HO THEN 1310
1610 VE=VE+1:S=VE:GOSUB 110:GOSUB 120:IF VE=S THEN 1610
1910 GOSUB 100:VE=6:HO=(R-7)/2:GOSUB 110:PRINT"MazezaM":VE=S-6
1920 HO=0:GOSUB 110:PRINT" MOVE ijkl":PRINT"RETRY r"
1930 PRINT" SKIP s":PRINT" QUIT q":GOSUB 210
1940 IF IN<>81 THEN 1960
1950 GOTO 950
1960 RESTORE:Z=0:N$="":T=0
2210 GOSUB 250:T=T+1:IF T=31 THEN 1910
2220 GOSUB 4910:N=W:GOSUB 4910:M=W:GOSUB 4910:P=W:GOSUB 4910:Q=W
2230 F=0:FOR C=0 TO N-1:R$(C)="":Y(C)=0:FOR D=0 TO M-1:A$="="
2240 IF F=0 THEN GOSUB 4910:F=6
2250 F=F-1:G=INT(W/2)*2:IF W=G THEN A$=" "
2260 R$(C)=R$(C)+A$:W=G/2:NEXT D:NEXT C:U=INT((R-M)/2)
2270 V=INT((S-N)/2)
2510 GOSUB 100
2810 VE=V-1:HO=U-1:W=P:X=0:GOSUB 4610:FOR I=0 TO N-1:Y(I)=0
2820 VE=VE+1:GOSUB 110:A$="#":B$=A$:IF I=P THEN A$=">"
2830 IF I=Q THEN B$=">"
2840 PRINT A$;:GOSUB 4010:PRINT B$:NEXT I:VE=VE+1:GOSUB 4610
2850 HO=HO+1
3110 GOSUB 210:D=W:E=X:IF (IN=73 OR IN=31) AND W>0 THEN D=W-1
3120 IF (IN=75 OR IN=30) AND W<N-1 THEN D=W+1
3130 IF (IN=74 OR IN=28) AND X>0 THEN E=X-1:F=1
3140 IF (IN=76 OR IN=29) AND X<M-1 THEN E=X+1:F=M
3150 IF (IN=76 OR IN=29) AND W=Q AND X=M-1 OR IN=83 THEN 2210
3160 IF IN=81 THEN 1910
3170 IF IN=82 THEN 2810
3180 I=D:GOSUB 4310
3190 IF MID$(J$,E+1,1)=" " THEN I=W:W=D:X=E:GOSUB 3710:GOTO 3410
3200 IF X<>E AND MID$(J$,F,1)=" " THEN Y(W)=Y(W)+E-X:X=E
3410 I=W:GOSUB 3710:GOTO 3110
3710 VE=V+I:GOSUB 110
4010 GOSUB 4310:IF I<>W THEN PRINT J$;:RETURN
4020 IF X>0 THEN PRINT LEFT$(J$,X);
4030 PRINT "@";:IF X<M-1 THEN PRINT RIGHT$(J$,M-X-1);
4040 REM B$="#":IF I=Q THEN B$=">"
4050 REM PRINT B$
4060 RETURN
4310 IF Y(I)=0 THEN J$=R$(I):RETURN
4320 IF Y(I)>0 THEN B=Y(I):C=M-B
4330 IF Y(I)<0 THEN C=-Y(I):B=M-C
4340 J$=RIGHT$(R$(I),B)+LEFT$(R$(I),C):RETURN
4610 GOSUB 110:PRINT LEFT$("#################",M+2):RETURN
4910 Z=Z+1:IF Z=LEN(N$)+1 THEN READ N$:Z=1
4920 B=ASC(MID$(N$,Z,1)):A=ASC("A"):G=ASC("a"):H=ASC("0")
4930 W=63:IF B>=A AND B<A+26 THEN W=B-A
4940 IF B>=G AND B<G+26 THEN W=B-G+26
4950 IF B>=H AND B<H+10 THEN W=B-H+52
4960 IF B=ASC("+") THEN W=62
4970 RETURN
25000 DATA "CFBAKBCHABykADHABmVZBDICBkTlKEFDDCtSCEHADq6oWCFHAE"
25010 DATA "cpQvKJDICCFQtdEHBCUspqDEOBD/2gZ20O4fCEHBB2UpDDGNAA"
25020 DATA "4D6zp7p8nLmqJFGDBCmW6EEICDcwOXKAGGAFUVUNN0EKACsy1Y"
25030 DATA "q7CEHADWk2hELFKAEtpocFlqJAEHCDKsRVOEPCAeeWbNavRzTF"
25040 DATA "ICC1sGq9gCELACuBzaerBAFIDBkjpuqJNEJDAiYP3QBHJGCyTa"
25050 DATA "6tJE3PEAGHAAy08CdPAKNHAAg8f6AT+l7MFZ63Ux5+DAAHJBEy"
25060 DATA "wq1w+0rJ6AKLAJAg+39oWA9/GuNYu+HAAHKAAaRdTF2OVZd0F"
30000 REM leicht abgeaendert Th. Rademacher JOYCE-User-AG e.V.
30010 REM Zeilen 4040 und 4050 fuer 8-bit-Atari aktivieren
32000 REM Autor: Malcohol (Malcolm Tyrrell) auf GitHub 2020


--
Tot wie ein Dodo?
viele Informationen zu BasiCode auf basicode.de

Cu via komputilo povas Esperanto?
Jes, BasiCode!
Dieser Beitrag wurde am 06.11.2023 um 14:02 Uhr von ThomasR editiert.
Seitenanfang Seitenende
Profil || Private Nachricht || Suche Zitatantwort || Editieren || Löschen
012
10.11.2023, 22:05 Uhr
ThomasR

Avatar von ThomasR

Aus einem anderem Thread, aber weil es thematisch besser hier reinpasst (da KC85-spezifisch):


Zitat:
ThomasR schrieb (...) Übrigens, ein kompletter 2er-Bascoder sollte mit nur-Basic-Befehlen unproblematisch hinzubekommen sein. (...)



Hier muss ich mich korrigieren. Ausnahme (die einzige? [für BasiCode-2]) ist


Quellcode:
280 Aus- bzw. Einschalten der STOP/BRK - Taste FR = 0 bzw. 1.



Im DDR-BasiCode-Buch steht:


Zitat:
S. 75 Absatz Hinweise für den Programmierer (...) Viele der nicht zugelassenen BASIC-Befehle wie LINE, LOCATE oder SOUND werden durch die "versteckten" Subroutinen realisiert. Dort finden Sie aber auch Funktionen, die der KC85/4 bislang weder in BASIC noch mit den Routinen seines Betriebssystems zu bieten hatte. Dazu gehören das Aus- bzw. Einschalten der STOP / BRK-Taste, (...)



Sonst könnte es klappen. Vielleicht setzt sich mal jemand dran, der das "wirklich nur gut" kann.

Frage an maleuma und FL: Würde es, neben dem Nachteil der schlechteren Performance, einen Vorteil bringen, die machbaren Befehle in Basic (und die anderen weiterhin in Maschinencode) umzusetzen, beispielsweise gewinnen von Speicherplatz für andere MC-Routinen?

Zum Beispiel hierfür:


Zitat:
maleuma schrieb (...) Mein Ziel ist es, den Bascoder so anzupassen, dass er auch mit den neuesten Erweiterungen vom KC85 läuft. Die Arbeitszellen des Bascoders kollidieren leider mit dem USB-Interrupt des M052. (...)


--
Tot wie ein Dodo?
viele Informationen zu BasiCode auf basicode.de

Cu via komputilo povas Esperanto?
Jes, BasiCode!
Dieser Beitrag wurde am 10.11.2023 um 22:10 Uhr von ThomasR editiert.
Seitenanfang Seitenende
Profil || Private Nachricht || Suche Zitatantwort || Editieren || Löschen
013
10.11.2023, 23:20 Uhr
FL



 Ich kann mir schon vorstellen, daß man den Bascoder um einige Bytes schrumpfen kann,
in dem man einzelne GOSUB's in Basic schreibt.
Man hätte dann mehr Platz für das eigentliche Programm.
Man müßte das aber für jedes einzelne Unterprogramm hinterfragen. Wieviel Bytes benötige ich
mit MC-Code und wieviel Bytes wenn ich Basic nehme.

Was GOSUB 280 angeht, glaube ich nicht das das heute ein Bascoder können muß.
Das UP war vermutlich als Programmschutz gedacht.
Heute liegen alle Basicode-Programme als ASCII-Text vor und es gibt Texteditoren.

Gruß
Frank.
Seitenanfang Seitenende
Profil || Private Nachricht || Suche Zitatantwort || Editieren || Löschen
014
10.11.2023, 23:57 Uhr
Dirk mit KC-4



 Thomas, das Programm Logo aus Posting #08, kannst du das hier posten?
--
Ich kann 2 Dinge wirklich nur gut, zum einen war es die Fallschirmjägerei und zum anderen Computer. Fragt man, was ich nun besser kann, würden einige sagen das eine, andere würden das andere sagen. Aber im Grunde ist beides gleich: ein großes Abenteuer
Seitenanfang Seitenende
Profil || Private Nachricht || Suche Zitatantwort || Editieren || Löschen
015
11.11.2023, 03:56 Uhr
ThomasR

Avatar von ThomasR


Zitat:
FL schrieb (...) Was GOSUB 280 angeht, glaube ich nicht das das heute ein Bascoder können muß.
Das UP war vermutlich als Programmschutz gedacht.
Heute liegen alle Basicode-Programme als ASCII-Text vor und es gibt Texteditoren. (...)



Nun, als Kopierschutz sicher nicht, denn laut BasiCode-Etikette waren die Programme für jedermann offen, der jeweilige Autor behielt sich nur vor, zu eventuellen Änderungen durch andere um Zustimmung gebeten zu werden und man durfte seinen Autorenvermerk nicht entfernen.

Doch bei jemandem las ich und halte es für plausibel, es solle als Schutz dienen, damit Schüler im Unterricht (schließlich gab es viele Bildungsprogramme) es nicht listen, analysieren und vielleicht ändern und sich damit vom Unterricht ablenken.
--
Tot wie ein Dodo?
viele Informationen zu BasiCode auf basicode.de

Cu via komputilo povas Esperanto?
Jes, BasiCode!
Dieser Beitrag wurde am 11.11.2023 um 06:49 Uhr von ThomasR editiert.
Seitenanfang Seitenende
Profil || Private Nachricht || Suche Zitatantwort || Editieren || Löschen
016
11.11.2023, 08:18 Uhr
ThomasR

Avatar von ThomasR


Zitat:
Dirk mit KC-4 schrieb
Thomas, das Programm Logo aus Posting #08, kannst du das hier posten?



@Rüdiger: Lässt sich in dieser Forumssoftware die Code-Box so einstellen, dass sie eine feste Größe hat und in ihrem Inneren längere Listings gescrollt werden können?


Ja Dirk, weil es hier nur im Textkasten geht, der so lang werden würde, dass ich es niemandem zumuten möchte, muss ich Dich mal zu einem anderen Forum schicken:

https://abbuc.de/forum/viewtopic.php?p=18449#p18449

Du musst nur im Basic Deiner Wahl den dort passenden Farb-Bascoder davorsetzen. Mein 2er Ansatz für den KC reicht leider nicht aus.

Zum Anschauen und praktischen Testen gibt es die ready-to-use-Windowsversion, die hier https://joyce.de/basicode/joyce/bc3logo.htm auch verlinkt ist oder zum Download angeboten wird.

Ob das extralange Programm unter BBC Basic for Windows läuft, habe ich momentan nicht auf dem Schirm, am Atari ST, dessen Emulation nebenbei bemerkt eine hervorragende Performance bietet, läuft es.

Viel Spaß damit!
--
Tot wie ein Dodo?
viele Informationen zu BasiCode auf basicode.de

Cu via komputilo povas Esperanto?
Jes, BasiCode!
Seitenanfang Seitenende
Profil || Private Nachricht || Suche Zitatantwort || Editieren || Löschen
017
11.11.2023, 10:15 Uhr
Bert
Zitat:
ThomasR schrieb
Würde es, neben dem Nachteil der schlechteren Performance, einen Vorteil bringen, die machbaren Befehle in Basic (und die anderen weiterhin in Maschinencode) umzusetzen, beispielsweise gewinnen von Speicherplatz für andere MC-Routinen?


Der einzige Vorteil von BASIC ist, das es jeder programmieren kann und der Quelltext einigermaßen lesbar ist.
Man spart nach meiner Erfahrung keinen Speicherplatz gegenüber MC-Programmen, da nur die Token komprimiert werden.

Viele Grüße,
Bert
Seitenanfang Seitenende
Profil || Private Nachricht || Suche Zitatantwort || Editieren || Löschen
018
11.11.2023, 11:54 Uhr
Rüdiger
Administrator
Zitat:
ThomasR schrieb
@Rüdiger: Lässt sich in dieser Forumssoftware die Code-Box so einstellen, dass sie eine feste Größe hat und in ihrem Inneren längere Listings gescrollt werden können?



Nein.
--
Kernel panic: Out of swap space.
Seitenanfang Seitenende
Profil || Private Nachricht || Suche Zitatantwort || Editieren || Löschen
019
11.11.2023, 14:19 Uhr
Dirk mit KC-4
Zitat:
Ja Dirk, weil es hier nur im Textkasten geht, der so lang werden würde, dass ich es niemandem zumuten möchte, muss ich Dich mal zu einem anderen Forum schicken:

https://abbuc.de/forum/viewtopic.php?p=18449#p18449



der link zu dem Forum geht bei mir nicht "Fehler gesicherte Verbindung". Kannst du das Programm als .txt .zip oder was du da hast hier hochladen:
https://1fichier.com/

und den download link hier reinstellen
--
Ich kann 2 Dinge wirklich nur gut, zum einen war es die Fallschirmjägerei und zum anderen Computer. Fragt man, was ich nun besser kann, würden einige sagen das eine, andere würden das andere sagen. Aber im Grunde ist beides gleich: ein großes Abenteuer
Seitenanfang Seitenende
Profil || Private Nachricht || Suche Zitatantwort || Editieren || Löschen
020
11.11.2023, 15:05 Uhr
ThomasR

Avatar von ThomasR

Dirk, nimms mir nicht übel, aber nun tut es mir leid. Versuche, ob ein Kumpel es für Dich herunterlädt, bei mir und offenbar bei den anderen Forumsmitgliedern klappt der Besuch dieses Forums ohne eine Fehlermeldung. Du kannst Dich auch über abbuc.de / Forum / Atari ST hinhangeln und den Thread Basicode für 16-bit-Atari suchen. Es ist für Gäste frei zugänglich und nicht an Registrierung und Einloggen geknüpft.

Am 8. schrieb ich Dir per PN:


Zitat:
Hallo Dirk,

hab Dir eine PDF gebastelt, aber an die PN lässt sich nix anhängen. Schick mir eine Mail an basicode@joyce.de, dann hab ich Deine Mailadresse und kann Dir die abfotografierten Seiten schicken.

Bis später,

Thomas



Wenn Du Gründe hast, aus Deiner eMail-Adresse ein Geheimnis zu machen, wirst Du wissen warum.

Ich weiß nicht, welcher Betreiber hinter Deinem Link steckt und möchte vermeiden, von einem Abmahnanwalt aufs Korn genommen zu werden, wenn ich fremder Leute Software in der Gegend herumschicke, habe also auch meine Gründe.

Auf die Etikette der BasiCode-Stiftung (frei verteilbar usw.) kann ich mich im Streitfall nicht berufen, weil diese Stiftung sich Anfang der 90er aufgelöst hat.

Ich akzeptiere Deine Bedeckungstaktik, also akzeptiere Du bitte auch meine Bedenken.


Zitat:
Dirk mit KC-4 schrieb
Thomas du bist schwierig, (...)



Ich würde sagen, von uns beiden bist Du der Schwierigere. Meine Frau hätte mir längst zur Antwort gegeben, ja, ich backe dir auch einen Kuchen mit Reißverschluss.
--
Tot wie ein Dodo?
viele Informationen zu BasiCode auf basicode.de

Cu via komputilo povas Esperanto?
Jes, BasiCode!
Seitenanfang Seitenende
Profil || Private Nachricht || Suche Zitatantwort || Editieren || Löschen
021
11.11.2023, 15:38 Uhr
ralle



 Bei mir geht es Problemlos, die Seite anzuzeigen. Nur zum Schreiben sollte man sich anmelden.
--
Gruß Ralle

Wenn Sie dazu neigen, Bedienungsanleitungen zusammen mit dem Verpackungsmaterial wegzuwerfen, sehen Sie bitte von einem derart drastischen Schritt ab!...
... Nachdem Sie das Gerät eine Weile ausprobiert haben, machen Sie es sich am besten mit dieser Anleitung und ihrem Lieblingsgetränk ein oder zwei Stunden lang in Ihrem Sessel bequem. Dieser Zeitaufwand wird Sie dann später belohnen...

aus KENWOOD-Bedienungsanleitung TM-D700
Seitenanfang Seitenende
Profil || Private Nachricht || Suche Zitatantwort || Editieren || Löschen
022
11.11.2023, 15:44 Uhr
maleuma
Zitat:
FL schrieb
Was GOSUB 280 angeht, glaube ich nicht das das heute ein Bascoder können muß.


Egal wofür das gedacht war, glaube auch ich, dass man heute darauf verzichten kann. Ein 280 RETURN ist dann ausreichend im BASIC-Teil des Bascoders.
Das würde auf alle Fälle Speicherplatz sparen. Für die Realisierung dieser Funktion wird die Tastaturtabelle KTAB in den RAM kopiert. Dann wird der Code für die Tasten modifiziert.
Das funktioniert bei Tastaturen am V.24- oder USB-Modul ohnehin nicht (weil diese Tastaturen die KTAB nicht verwenden).
Wenn ich diese Funktion heraus nehme, könnte ich vermutlich auch den Speicherplatz unangetastet lassen, welchen die USB-Tastatur benötigt.
--
Mario.
Seitenanfang Seitenende
Profil || Private Nachricht || Suche Zitatantwort || Editieren || Löschen
023
11.11.2023, 15:55 Uhr
Dirk mit KC-4
Zitat:
Bei mir geht es Problemlos, die Seite anzuzeigen. Nur zum Schreiben sollte man sich anmelden.


Ich vermute es liegt an meinem Browser. Diese (und viele andere Seiten) sind per 'moderner' Baukastensoftware erstellt worden. Alte Browser, wie meiner hier (ich benutzt hier noch XP) zeigen dann dann wie bei dem Link "Fehler gesicherte Verbindung", wenn die Seite zusätzlich 'Daten' von anderen Seiten hinzuzieht (es ist dann keine gesicherte Verbindung von einem zum anderen, oben im Browserlink durch das s hinter http und dem Schloss-Symbol erkennbar, sondern 'man in die moddle', neuere Browser hat man abgeändert, das die nicht meckern und das trotzdem anzeigen. Aber das führt hier alles zu weit.)
Ich hab noch ein modernes Linux-System, mal sehen ob damit die Seite geht..

Ganz schlimm ist übrigens die Software von wix.com
Die verkaufen so einen Webseiten-Builder, der Baukasten will nur aktuell Browser sonst steht da 'Browser wird nicht unterstützt' beim anzeigen der Webseite. Richtig schlimm, aber baukästensoftware wird leider immer beliebter..


Zitat:
Ich weiß nicht, welcher Betreiber hinter Deinem Link steckt und möchte vermeiden, von einem Abmahnanwalt aufs Korn genommen zu werden, wenn ich fremder Leute Software in der Gegend herumschicke, habe also auch meine Gründe.



Hinter der Seite steckt der Mossad der nur auf solche Gelegenheiten wartet, dass du fremder Leute Software dort hochläds um dich dann für den Dienst im Mossad verpflichten zu können. Hab ich Mossad geschrieben? Ich meinte natürlich der FSB steckt da hinter..

Thomas, du bist mir schon einer :-) Ob du die Listings hier im Forum postest, oder sonst wo hochläds, in beiden Fällen schickst du 'fremder Leute Software durch die Gegend'.. -- Völlig unwichtig, völlig egal, ich kann dir versichern es wird keinen stören, auch nicht dem Mossad, oder dem FSB oder dem japanischen Innen-Ministerium das außerirdische Aktivitäten untersucht
..und erst recht nicht bei Software von holländischen Computerfreaks aus Mitte der 80er Jahre..

Und Kuchen mit Reisverschluss ess ich nicht. Ich hab mir mal angewöhnt nichts zu essen was noch zappelt oder sich bewegt..
--
Ich kann 2 Dinge wirklich nur gut, zum einen war es die Fallschirmjägerei und zum anderen Computer. Fragt man, was ich nun besser kann, würden einige sagen das eine, andere würden das andere sagen. Aber im Grunde ist beides gleich: ein großes Abenteuer
Dieser Beitrag wurde am 11.11.2023 um 16:02 Uhr von Dirk mit KC-4 editiert.
Seitenanfang Seitenende
Profil || Private Nachricht || Suche Zitatantwort || Editieren || Löschen
024
11.11.2023, 16:16 Uhr
ThomasR

Avatar von ThomasR

Das wäre mein nächster Vorschlag gewesen, mit Linux wird es klappen.

Mich hat 2002 das Tschernobyl-Virus erwischt (der Master Boot Record wird überschrieben, daher wird nicht mehr erkannt, wie die Festplatte partitioniert ist), monatelange Arbeit war futsch - der Joyce-Bascoder war kurz vor der Fertigstellung.

Seitdem gehe ich prinzipiell nicht mehr mit MS Windows ins Internet, sondern kaufe aller paar Jahre eine Zeitschrift mit einer bootfähigen Linux-CD.

Halte Deinen eMail-Account weiter geheim, vielleicht hast Du ja nach Deiner militärischen Karriere beim BND oder MAD angeheuert und es ist Dir verboten.

Du brauchst Dich nicht lustig zu machen - unser Klub hatte tatsächlich Stress mit Anwälten des Leppin-Verlags, weil tief in Dateisystem ein Gruß eines Mitglieds abgelegt war, der ungünstigerweise ein Zitat aus einem Heinz-Erhardt-Gedicht enthielt.

Ich wünsche Dir Erfolg beim Downloaden.

Du kannst hier http://www.nostalgia8.nl/logo/bc3logo.zip auch das ursprüngliche Programmpaket herunterladen. Unter meinem gerade verwendeten Linux klappt es nicht, aber mit Android auf dem Smartphone, also probiere, was am besten ist. Sorry, geht doch nicht - wieder interessante Software im digitalen Nirwana verschwunden.

Bitte beschwere Dich nicht als nächstes bei mir, dass die Bedienung des Programms auf Niederländisch erfolgt.
--
Tot wie ein Dodo?
viele Informationen zu BasiCode auf basicode.de

Cu via komputilo povas Esperanto?
Jes, BasiCode!
Dieser Beitrag wurde am 11.11.2023 um 16:54 Uhr von ThomasR editiert.
Seitenanfang Seitenende
Profil || Private Nachricht || Suche Zitatantwort || Editieren || Löschen
025
11.11.2023, 17:13 Uhr
Dirk mit KC-4



 Hallo Thomas,

ich hab das Linux System geladen, funktioniert, komm ich mit rein..

Übrigens, das mit den Geheimdiensten war kein Witz. Diese Seite wix.com die Firma sitzt in Tel Aviv..
Und mir sind schon zig Seiten über den Weg gelaufen, wo dann steht "Ihr Browser wird nicht unterstützt.." dann schau ich mir den Quellcode der Webseite und dann steht da wix.com Websuite Builder
Das sind teilweise da Firmen, große Firmen. Da frag ich mich wirklich was da los ist, anstatt das die das eigene Firmenpersonal die Firmenwebseite machen lassen, nehmen die den Baukasten von wix.com und erstellen damit ihre Webseiten - und da laufen dann scripte ab, einige sind mir völlig unbekannt, wobei ich sicher bin, dass dabei automatisch ein Spiegel nach Tel Aviv statt findet, also dort protokolliert wird, wer wann von welcher ip was dort aufgerufen hat oder runtergeladen hat.
Da tun die Firmen und auch Privatleute alles um ihre Rechner sicher zu machen, benutzen dann aber solche Software. Ein Bekannter von mir arbeitet bei einer französischen Auto-HiTech Firma die über CAD alles mögliche machen, Abteilung Entwicklung für zukünftige Fahrzeuge. Als ich mal bei ihm war und er noch vor dem CAD Programm saß, speicherte er seine Arbeit - aber nicht auf seinem PC, sondern in der cloud des Software-Herstellers, also auf den Festplatten des Software-Herstellers. Der Hersteller hat also dort direkten Zugriff modernster HiTech Arbeiten von Firmen die diese Software benutzen. Mein Bekannter meinte das ist doch dort sicher, in nem eigenen Ordner. Die Reichweite hat er gar nicht verstanden..

Wäre ich Geheimdienstboss vom keine Ahnung Land, ich würde meine Leute einfach in die Software-Hersteller-Firmen schicken um neuste Technologie zu bekommen, denn heutzutage wird fast in jeder moderne Software an eigenen Daten (auch Handy Fotos und emails) in der Cloud des Herstellers gepeichert..

Naja, das wird zu off-topic
Bist du dort in dem Forum eigentlich der User BC-Tom ?
--
Ich kann 2 Dinge wirklich nur gut, zum einen war es die Fallschirmjägerei und zum anderen Computer. Fragt man, was ich nun besser kann, würden einige sagen das eine, andere würden das andere sagen. Aber im Grunde ist beides gleich: ein großes Abenteuer
Seitenanfang Seitenende
Profil || Private Nachricht || Suche Zitatantwort || Editieren || Löschen
026
11.11.2023, 17:28 Uhr
ThomasR

Avatar von ThomasR


Zitat:
Dirk mit KC-4 schrieb
Hallo Thomas,

ich hab das Linux System geladen, funktioniert, komm ich mit rein.. (...)



Geht doch, nun viel Freude damit! Nun haben wir endlich einen (Um-)Weg zum Übertragen von ASCII-Listings.


Zitat:
Naja, das wird zu off-topic



Das wird es tatsächlich.


Zitat:
Bist du dort in dem Forum eigentlich der User BC-Tom ?



Ich könnte es Dir verraten, aber dann müsste ich Dich töten. Wer sollte es denn sonst hineingestellt haben?
--
Tot wie ein Dodo?
viele Informationen zu BasiCode auf basicode.de

Cu via komputilo povas Esperanto?
Jes, BasiCode!
Seitenanfang Seitenende
Profil || Private Nachricht || Suche Zitatantwort || Editieren || Löschen
027
11.11.2023, 17:32 Uhr
Dirk mit KC-4
Zitat:
Du brauchst Dich nicht lustig zu machen - unser Klub hatte tatsächlich Stress mit Anwälten des Leppin-Verlags, weil tief in Dateisystem ein Gruß eines Mitglieds abgelegt war, der ungünstigerweise ein Zitat aus einem Heinz-Erhardt-Gedicht enthielt.



Thomas, dir fehlt einfach eine Spur Humor. Der Klub schreibt dem Anwalt dann, dass der Klub sich bedankt für die Information, denn Rechte nimmt der Klub sehr ernst. Leider muss der Klub aber bedauern mitzuteilen, dass wir in unseren Satzungen drin stehen haben, dass der Klub in keinster weise für Software, Veröffentlichungen jeglicher Art der Klubmitglieder verantwortlich ist. Aber der Klub helfe in diesem Falle gerne weiter, der Autor besagten Beitrags ist Kalle Katohyski. Herr Katohyski ist laut den Klub-Unterlagen vor einigen jahren nach Thailand, Bangkok ausgewandert, aber dort erreichbar. In unseren Unterlagen ist seine derzeitige aktuelle Adresse verzeichnet: Karl-Heinz Katohyski, Street.., Thailand, Bangkok, Telefonnummer (du suchst dir eine Adresse mit dortiger Telefonnumer aus dem Internet von einen Supermarkt oder Kaufhaus dort in Bangkok, die gibst du hier an. Die in Thailand freuen sich bestimmt, wenn dort Rechtsanwälte aus Deutschland anrufen und nach einem Katohyski fragen und dann mit einem Schwall Flüchen und Verwünschungen auf thailändisch geantwortet wird; Kathoeys sind in Thailand Transen..)
--
Ich kann 2 Dinge wirklich nur gut, zum einen war es die Fallschirmjägerei und zum anderen Computer. Fragt man, was ich nun besser kann, würden einige sagen das eine, andere würden das andere sagen. Aber im Grunde ist beides gleich: ein großes Abenteuer
Dieser Beitrag wurde am 11.11.2023 um 17:39 Uhr von Dirk mit KC-4 editiert.
Seitenanfang Seitenende
Profil || Private Nachricht || Suche Zitatantwort || Editieren || Löschen
028
11.11.2023, 17:54 Uhr
ThomasR

Avatar von ThomasR

Off Topic!

Mach Dich nur weiter lustig. Unsere Arten von Humor sind nur unterschiedlich.

Das mit diesen Gedichtzeilen... Wer trägt die finanziellen Konsequenzen? Ob nun die womöglich erfolgte Strafzahlung oder die Kosten des Anwalts auf unserer Seite? Der Vorstandsvorsitzende? Der Webmaster? Der Briefschreiber? Einfach aus den Mitgliedsbeiträgen? Dann würde sich aber die Mitgliederzahl reduzieren, wer will das?

Deinen scherzigen Vorschlag würde die Abmahn-Mafia (ich halte es tatsächlich für einen Wirtschaftszweig, ein Geschäftsmodell) eiskalt und aalglatt als Behinderung der Justiz zur Anzeige bringen (nachdem sie sich womöglich untereinander köstlich darüber amüsiert hätten) und wir hätten das nächste kostspielige Problem am Hals. In diesem Staat kannst du mit so etwas nicht vorsichtig genug sein.

Um zum Thema zurückzukehren - kommst Du mit Deinem eigenen KC85-Bascoder voran? Hilft Dir mein Ansatz? Mehr als


Zitat:
Dein Listing oben drüber, kreativ
(...)
haste aber Glück das kein GOSUB 500 in dem Maze-Spiel auftaucht.. (...) :-)



kam da noch nicht von Dir. Wenn Du hier anderer Leute Arbeit niedermachst, dann zeige auch, dass Du es gemäß Deiner Signatur besser kannst. Das meine ich ernst und nicht auf irgendeine Weise humorig.
--
Tot wie ein Dodo?
viele Informationen zu BasiCode auf basicode.de

Cu via komputilo povas Esperanto?
Jes, BasiCode!
Dieser Beitrag wurde am 11.11.2023 um 18:20 Uhr von ThomasR editiert.
Seitenanfang Seitenende
Profil || Private Nachricht || Suche Zitatantwort || Editieren || Löschen
029
11.11.2023, 18:09 Uhr
Dirk mit KC-4
Zitat:
Behinderung der Justiz



wie? Der Klub hilft doch gerne, hat er doch geschrieben. Und wenn da mal eine thailändische Adresse vertauscht wird, wo Datenbank-Schrott eingegeben wird, kommt halt hinterher Datenbank-Mist wieder raus..

Ernsthaft, diese ganze Abmahnwellen, ich halte es für eine Schweinerei vor dem Herrn. Wenn die Autoren noch leben würden könnt ichs noch verstehen, aber hier gehts um die Kassen der Erben und der ehemaligen Musikproduzenten (und deren Erben) des Künstlers. Jemand sagte mal zu mir, das er als Buchautor 7-9% je nach Verlag vom Verkaufspreis eines Buchs bekomme, der Rest versickert bei Verlagen, Vertriebsfirmen usw., die Raffierigen sitzen also dahinter und kassieren ab.

Aber zurück zu Basicom. Da du ja in dem Forum dort das Basicom programm für den Atari-ST erstellt hat, ich würde mich freuen wenn du das hier für den KC 85/3/4 vielleicht auch noch tust, wenn du mal Zeit hast. Dort in dem AtariST Forum haben die Leuten dann mit Basic-Routinen geholfen um das umzusetzen, würde hier bestimmt auch funktionieren.. :-)
--
Ich kann 2 Dinge wirklich nur gut, zum einen war es die Fallschirmjägerei und zum anderen Computer. Fragt man, was ich nun besser kann, würden einige sagen das eine, andere würden das andere sagen. Aber im Grunde ist beides gleich: ein großes Abenteuer
Seitenanfang Seitenende
Profil || Private Nachricht || Suche Zitatantwort || Editieren || Löschen
030
11.11.2023, 18:19 Uhr
ThomasR

Avatar von ThomasR


Zitat:
Dirk mit KC-4 schrieb (...)
ich würde mich freuen wenn du das hier für den KC 85/3/4 vielleicht auch noch tust, wenn du mal Zeit hast. Dort in dem AtariST Forum haben die Leuten dann mit Basic-Routinen geholfen um das umzusetzen, würde hier bestimmt auch funktionieren.. :-)



Mit Verlaub - Du bist pathologisch beratungsresistent. Es geht nicht. (Dein hartnäckiges Abstreiten der unumstößlichen Tatsache, daß auch andere Computer als der KC85 Bascoder-Routinen in Maschinencode gelöst haben) Oder es sind keine anderen Leute im Forum, die zu einem Thema eine Nacht lang das Internet leer saugen und sich am nächsten Tag als Koryphäen zu diesem Thema präsentieren.

Ein Vorschlag, erteile an ChatGPT (denn Du selbst willst Dich allzu deutlich erkennbar nicht selbst diesem Problem widmen) den Auftrag "Erstelle einen Farb-Bascoder für den DDR-Computer robotron KC85/4, ohne den Befehl CALL zu verwenden". Dann teste das Resultat und lache uns anschließend alle aus - oder eben nicht. Oder frage hier im Forum, wer Dir die Routine 650 erstellt, ohne Maschinencode zu verwenden.
--
Tot wie ein Dodo?
viele Informationen zu BasiCode auf basicode.de

Cu via komputilo povas Esperanto?
Jes, BasiCode!
Dieser Beitrag wurde am 12.11.2023 um 15:38 Uhr von ThomasR editiert.
Seitenanfang Seitenende
Profil || Private Nachricht || Suche Zitatantwort || Editieren || Löschen
031
11.11.2023, 18:34 Uhr
Dirk mit KC-4



 In der Zeile 650 wird ein String auf dem Bildschirmschirm ausgegeben wobei Übergabe der Position in den Variablen HO und VE und Übergabe des Strings in der Variablen SR$

Und das kann der KC 85/3/4 in Basic nicht, Strings auf dem Bildschirm ausgeben an x,y Positionen?
--
Ich kann 2 Dinge wirklich nur gut, zum einen war es die Fallschirmjägerei und zum anderen Computer. Fragt man, was ich nun besser kann, würden einige sagen das eine, andere würden das andere sagen. Aber im Grunde ist beides gleich: ein großes Abenteuer
Dieser Beitrag wurde am 11.11.2023 um 18:35 Uhr von Dirk mit KC-4 editiert.
Seitenanfang Seitenende
Profil || Private Nachricht || Suche Zitatantwort || Editieren || Löschen
032
11.11.2023, 18:59 Uhr
ThomasR

Avatar von ThomasR

Wir bieten Dir Hillfe an und Du nutzt sie nicht. Das BC3-Buch musst Du erst bei ebay finden, aber hast Du das Handbuch https://joyce.de/basicode/download/Man_BC3C.pdf heruntergeladen? Hast Du es gelesen? Wohl ebensowenig wie Du gelesen bzw. überhaupt darüber nachgedacht hast:


Zitat:
FL schrieb (...) Bestes Beispiel ist die Möglichkeit einen Text pixelgenau irgendwo auf dem Bildschirm zu platzieren (GOSUB 650),
und nicht wie bei PRINT ausgerichtet am Text-Raster. Rein mit Basic-Befehlen wird das nichts. (...)



Der KC85 (und die Mehrheit der anderenComputer) kann es in akkurat 63 bvon 64 Fällen, nämlich im Raster des Text-Modus.

Subroutine 650 soll es an jeder Pixelposition können und das ist der Punkt, der Maschinencode erfordert.

Ich gehe jetzt bis morgen offline, um nicht noch ausfallend zu werden.
--
Tot wie ein Dodo?
viele Informationen zu BasiCode auf basicode.de

Cu via komputilo povas Esperanto?
Jes, BasiCode!
Dieser Beitrag wurde am 12.11.2023 um 18:19 Uhr von ThomasR editiert.
Seitenanfang Seitenende
Profil || Private Nachricht || Suche Zitatantwort || Editieren || Löschen
033
11.11.2023, 19:14 Uhr
FL



 Ach mensch Leute. Ich bin seit einer gefühlten halben Stunde hier am lesen, um auf den
aktuellen Stand seit heute früh zu kommen, und das meiste hier ist weißes Rauschen.

Dirk, ThomasR hat es gerade beschieben: Es geht darum den Text pixelgenau , also in einem
320x256-Raster auf dem Bildschirm zu schreiben. PRINT macht das nur in einem Text-Raster
(beim KC 40 Spalten, 32 Zeilen). Das Problem ist, du mußt einen Teil des Zeichens in
Textspalte X und den anderen Teil in Textspalte X+1 anzeigen. Dabei mußt du beachten,
daß die Pixel links und rechts neben dem Zeichen nicht verändert werden. Das gleiche bei
den Zeilen. Der Bildrand muß auch beachtet werden. (Überlauf in die nächste Zeile z.B.)

ThomasR, zurück zu deinem Beitrag #015:
Weißt du mehr darüber wie Basicode in Holland benutzt wurde?
Bildungsprogramme? Unterricht? Haben die das echt in Schulen verwendet?

Gruß
Frank.
Seitenanfang Seitenende
Profil || Private Nachricht || Suche Zitatantwort || Editieren || Löschen
034
11.11.2023, 22:53 Uhr
maleuma



 Ich bin mir jetzt nicht sicher, in welchem der beiden Basicode-Beiträge ich diese Information veröffentlichen sollte. Ich habe mich entschieden, das hier zu tun - passt vielleicht noch am ehesten zum Titel.

Wer Interesse hat, kann sich hier meine aktuelle Version des angepassten Bascoders runterladen und ausprobieren. Er funktioniert jetzt auch mit der USB-Tastatur am M052.
Falls sich bei meinen Anpassungen Fehler eingeschlichen haben, gern eine Info per eMail an mich.
--
Mario.
Seitenanfang Seitenende
Profil || Private Nachricht || Suche Zitatantwort || Editieren || Löschen
035
12.11.2023, 17:07 Uhr
ThomasR

Avatar von ThomasR


Zitat:
FL schrieb (...) Es geht darum den Text pixelgenau , also in einem
320x256-Raster auf dem Bildschirm zu schreiben. (...) Der Bildrand muß auch beachtet werden. (Überlauf in die nächste Zeile z.B.) (...)



Interessant, so intensiv habe ich darüber noch nicht nachgedacht (ich habe nur sehr marginale Kenntnisse in Maschinencode-Programmierung).

Es kommen noch andere Details hinzu. Im Grafikbetrieb liegen die Koordinaten nicht als ganze Zahlen im Bereich von 0 bis 255 vor, sondern als Prozentsätze der x- oder y-Ausdehnung, also als Dezimalzahlen von (einschließlich) 0 bis (ausschließlich) 1. Weiterhin muss auch die Belegung der Variablen CN, CC(0) und CC(1) ausgewertet werden: soll gedruckt (Vordergrundfarbe) oder gelöscht (Hintergrundfarbe) werden, welche von acht Farben gilt gerade?


Zitat:
FL schrieb( ...) Weißt du mehr darüber wie Basicode in Holland benutzt wurde?
Bildungsprogramme? Unterricht? Haben die das echt in Schulen verwendet? (...)



Ich weiß da eigentlich auch nicht mehr, als in diesem langen hochinteressanten Artikel
https://www.researchgate.net/publication/254803550_Basicode_Co-Producing_a_microcomputer_esperanto zu finden ist. Es fällt nur auf, dass es sehr viele Programme dieser Kategorie gibt. Zu jener Zeit haben es vermutlich einige wenige Lehrer aus Eigeninitiative in ihren Unterricht eingebunden - schau mal in den neuen Thread "BasiCode-Programme vorgestellt".
--
Tot wie ein Dodo?
viele Informationen zu BasiCode auf basicode.de

Cu via komputilo povas Esperanto?
Jes, BasiCode!
Dieser Beitrag wurde am 12.11.2023 um 17:26 Uhr von ThomasR editiert.
Seitenanfang Seitenende
Profil || Private Nachricht || Suche Zitatantwort || Editieren || Löschen
036
12.11.2023, 17:10 Uhr
ThomasR

Avatar von ThomasR


Zitat:
maleuma schrieb Ich bin mir jetzt nicht sicher, in welchem der beiden Basicode-Beiträge ich diese Information veröffentlichen sollte. Ich habe mich entschieden, das hier zu tun - passt vielleicht noch am ehesten zum Titel. (...)



Ist hier genau richtig. Nun ist noch ein Thread hinzugekommen.

Schön zu hören, dass Du einen vorzeigefähigen Zwischenstand erreicht hast. Schade, dass ich es nicht testen kann, meine beiden KCs sind bis auf ein angelötetes Kabel für die Nutzung eines CPC-Monitors noch unverbastelt.
--
Tot wie ein Dodo?
viele Informationen zu BasiCode auf basicode.de

Cu via komputilo povas Esperanto?
Jes, BasiCode!
Dieser Beitrag wurde am 12.11.2023 um 17:22 Uhr von ThomasR editiert.
Seitenanfang Seitenende
Profil || Private Nachricht || Suche Zitatantwort || Editieren || Löschen
037
12.11.2023, 18:12 Uhr
ThomasR

Avatar von ThomasR


Zitat:
ThomasR schrieb

Zitat:
FL schrieb (...) Was GOSUB 280 angeht, glaube ich nicht das das heute ein Bascoder können muß.
Das UP war vermutlich als Programmschutz gedacht.
Heute liegen alle Basicode-Programme als ASCII-Text vor und es gibt Texteditoren. (...)


(...) Doch bei jemandem las ich und halte es für plausibel, es solle als Schutz dienen, damit Schüler im Unterricht (schließlich gab es viele Bildungsprogramme) es nicht listen, analysieren und vielleicht ändern und sich damit vom Unterricht ablenken.(...)



Habs gefunden - es stand im Begleitmaterial https://joyce.de/basicode/info/kurs.htm zum BasiCode-Rundfunk-Kurs:


Zitat:
(...) Zuweilen ist es notwendig, die Tastatur bezüglich Eingaben zu sperren, damit ein Programm ohne äußere Störung, z.B. auch in Schulen oder Arbeitsgemeinschaften, ablaufen kann. Im Gegensatz zu den meisten BASIC-Dialekten bietet auch hier BASICODE mit GOSUB 280 eine Lösung an, die das folgende Programm demonstriert. Ausgewertet wird hierbei die Variable FR. Sie muß vor dem Aufruf belegt werden:
FR=0 STOP/BRK-Taste ist wirksam
FR=1 STOP/BRK-Taste ist unwirksam (...)


--
Tot wie ein Dodo?
viele Informationen zu BasiCode auf basicode.de

Cu via komputilo povas Esperanto?
Jes, BasiCode!
Dieser Beitrag wurde am 12.11.2023 um 21:46 Uhr von ThomasR editiert.
Seitenanfang Seitenende
Profil || Private Nachricht || Suche Zitatantwort || Editieren || Löschen
038
12.11.2023, 22:06 Uhr
maleuma
Zitat:
ThomasR schrieb
Schön zu hören, dass Du einen vorzeigefähigen Zwischenstand erreicht hast. Schade, dass ich es nicht testen kann, meine beiden KCs sind bis auf ein angelötetes Kabel für die Nutzung eines CPC-Monitors noch unverbastelt.


Ich habe es selbst gerade einmal mit CAOS 4.2 und dem M052 (Software 3.1) ausprobiert. Da gibt es offensichtlich noch ein Problem...
EDIT: Ein Fehler ist bereits gefunden, ich arbeite an einem Update.
--
Mario.
Dieser Beitrag wurde am 13.11.2023 um 19:08 Uhr von maleuma editiert.
Seitenanfang Seitenende
Profil || Private Nachricht || Suche Zitatantwort || Editieren || Löschen
039
17.11.2023, 23:20 Uhr
ThomasR

Avatar von ThomasR

(falscher Thread) Zwei weitere Bilder des mit dem LOGO-Programm gezeichneten Programms aus 008 sind in 013 von "BasiCode-Programme vorgestellt" zu sehen.
--
Tot wie ein Dodo?
viele Informationen zu BasiCode auf basicode.de

Cu via komputilo povas Esperanto?
Jes, BasiCode!
Dieser Beitrag wurde am 17.11.2023 um 23:29 Uhr von ThomasR editiert.
Seitenanfang Seitenende
Profil || Private Nachricht || Suche Zitatantwort || Editieren || Löschen
040
22.11.2023, 22:00 Uhr
ThomasR

Avatar von ThomasR


Zitat:
ThomasR schrieb

Zitat:
Dirk mit KC-4 schrieb
Thomas, das Programm Logo aus Posting #08, kannst du das hier posten?

(...)

Ja Dirk, weil es hier nur im Textkasten geht, der so lang werden würde, dass ich es niemandem zumuten möchte, muss ich Dich mal zu einem anderen Forum schicken:

https://abbuc.de/forum/viewtopic.php?p=18449#p18449

(...)



In das Listing hatten sich leider zwei Fehler eingeschlichen, ich habe eine Korrektur gepostet.


--
Tot wie ein Dodo?
viele Informationen zu BasiCode auf basicode.de

Cu via komputilo povas Esperanto?
Jes, BasiCode!
Seitenanfang Seitenende
Profil || Private Nachricht || Suche Zitatantwort || Editieren || Löschen
041
04.03.2024, 21:25 Uhr
maleuma



 Da es keine weiteren Kommentare oder Fehlermeldungen zu den aktualisierten Bascodern gab, habe ich jetzt die Version 1.5d auf der KC-Club-Seite veröffentlicht.

Die Quelltexte findet ihr bei Bedarf auf Github.

Viel Spaß damit!
--
Mario.
Seitenanfang Seitenende
Profil || Private Nachricht || Suche Zitatantwort || Editieren || Löschen
042
05.03.2024, 07:24 Uhr
jute-tom



 Wenn das Repository jetzt noch eine kleine, informative Readme.md-Datei bekäme, wäre das Repository perfekt.
--
Viele Grüße,
Thomas
Seitenanfang Seitenende
Profil || Private Nachricht || Suche Zitatantwort || Editieren || Löschen
043
05.03.2024, 17:40 Uhr
maleuma



 Ich habe eine Liesmich.txt dazu geladen, den Dateinamen versteht Github aber anscheinend nicht. Habe denn den gleichen Text nochmals in die README.md kopiert. Ich hoffe, das passt jetzt ...
Die Liesmich.txt habe ich wieder gelöscht, war ja doppelt.
--
Mario.
Dieser Beitrag wurde am 05.03.2024 um 17:45 Uhr von maleuma editiert.
Seitenanfang Seitenende
Profil || Private Nachricht || Suche Zitatantwort || Editieren || Löschen
044
05.03.2024, 19:43 Uhr
jute-tom



 Sehr gut!
--
Viele Grüße,
Thomas
Seitenanfang Seitenende
Profil || Private Nachricht || Suche Zitatantwort || Editieren || Löschen
045
05.03.2024, 20:42 Uhr
ThomasR

Avatar von ThomasR

Hallo Mario,


natürlich dauert es eine Weile, sämtliche Feinheiten zu testen (nach Wochen Pause muss man sich auch erst wieder in die Bedienung des KCs und seiner Emulation hineinfinden), aber ich bin schon mal zufrieden: mein Anliegen aus dem Start-Beitrag


Zitat:
(...) dass ggf. durch die Cursor-Positionierung auch die Farben im Textbetrieb von BasiCode geändert werden können (...)



klappt auf alle Fälle.



Das obere Bild ist ein Screenshot aus dem Text-Modus, die anderen aus dem Grafik-Modus.

Vielen Dank!
--
Tot wie ein Dodo?
viele Informationen zu BasiCode auf basicode.de

Cu via komputilo povas Esperanto?
Jes, BasiCode!
Dieser Beitrag wurde am 05.03.2024 um 21:21 Uhr von ThomasR editiert.
Seitenanfang Seitenende
Profil || Private Nachricht || Suche Zitatantwort || Editieren || Löschen
046
06.03.2024, 15:29 Uhr
ThomasR

Avatar von ThomasR

Ich möchte noch einmal auf den LOGO-Interpreter unter BasiCode zurückkommen. Weil hier die Textkästen einfach zu lang werden, hatte ich in Beitrag 008 zum Posten einen Weg "durch die Hintertür" probiert, der aber nicht dauerhaft funktioniert.

Deswegen hatte ich in Beitrag 016 dorthin:
https://abbuc.de/forum/viewtopic.php?p=18449#p18449
verwiesen, wo das Programm auch veröffentlicht ist.

Dort sind nun zum zweiten Mal Korrekturen angegeben, die dann mit berücksichtigt werden sollten. Als i-Tüpfelchen gibt es dort noch eine kleine Änderung, mit der Gezeichnetes "radiert" werden kann, indem es mit Hintergrundfarbe [ KLEUR 0 ] noch einmal gezeichnet wird.




Natürlich schicke ich jedem das Programm (wie auch das komplette Paket [heute offenbar leider nicht mehr im www auffindbar] mit startfähigen DOS-Versionen der drei Programme) gern auch per Mail, einfach per PN oder Mail anfragen, gilt auch für Fragen zur Bedienung. Ein paar Eindrücke auch hier:
https://joyce.de/basicode/joyce/bc3logo.htm

Man muss sich nur ein wenig mit der niederländischen Bedienung vertraut machen, dann ist es eine sehr interessante Beschäftigung. Es kam damals zu früh - die Hardware der Heimcomputer war noch nicht so weit, es braucht viel RAM und viel Tempo, beides ist heute auch in Emulationen gut zu erreichen.
--
Tot wie ein Dodo?
viele Informationen zu BasiCode auf basicode.de

Cu via komputilo povas Esperanto?
Jes, BasiCode!
Dieser Beitrag wurde am 06.03.2024 um 17:18 Uhr von ThomasR editiert.
Seitenanfang Seitenende
Profil || Private Nachricht || Suche Zitatantwort || Editieren || Löschen
Seiten: -1-     [ Technische Diskussionen ]  



Robotrontechnik-Forum

powered by ThWboard 3 Beta 2.84-php5
© by Paul Baecher & Felix Gonschorek