Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen angezeigt.

Link zu dieser Vergleichsansicht

Beide Seiten der vorigen Revision Vorhergehende Überarbeitung
z9001:basic [2021/05/25 05:44] – [BASIC-Varianten] volkerpz9001:basic [2026/07/15 09:23] (aktuell) – volkerp
Zeile 414: Zeile 414:
  
 10 A=0.1:!als erste Variable anlegen 10 A=0.1:!als erste Variable anlegen
 +50 INPUT "A=";A
 100 VI=DEEK(983):!ADR. VON A 100 VI=DEEK(983):!ADR. VON A
 1000 PRINT "A=";A;" "; 1000 PRINT "A=";A;" ";
-1010 PRINT PEEK(VI+2);" ";PEEK(VI+3);" ";PEEK(VI+4);" ";PEEK(VI+5) +1010 REM PRINT PEEK(VI+2);" ";PEEK(VI+3);" ";PEEK(VI+4);" ";PEEK(VI+5) 
- +1020 FOR J=2 TO 5 
 +1030 V=PEEK(VI+J):GOSUB 2010:PRINT H$;" "; 
 +1040 NEXT J 
 +1050 PRINT 
 +1060 GOTO 50 
 +1900 END 
 +2010 REM *** Subroutine zur Hex-Umwandlung *** 
 +2020 H$ = "" 
 +2030 FOR I = 1 TO 0 STEP -1 
 +2040 D = INT(V / 16) 
 +2050 R = V - (D * 16) 
 +2060 IF R < 10 THEN R$ = CHR$(R + 48):ELSE R$ = CHR$(R + 55) 
 +2070 H$ = R$ + H$ 
 +2080 V = D 
 +2090 NEXT I 
 +2100 RETURN
  
  
  • z9001/basic.txt
  • Zuletzt geändert: 2026/07/15 09:23
  • von volkerp