001
18.06.2023, 19:40 Uhr
Hagakure
|
Hier mal ein Einfaches Beispiel für MPC4-GRAFIK-Ausgaben
über PRINT ...
3 PUNKT und 3 LINIEN werden dargestellt.
10 REM --------------------------------------
11 REM MPC4 Beispiel NR.1 fuer Einfache GRAFIK
15 REM --------------------------------------
20 PRINT CHR$(12);
30 PRINT CHR$(29);
40 READ A: IF A=-1 THEN 30
50 IF A=-2 THEN 110
60 B=A
70 B=INT(B/32)
80 A=A-B*32
90 PRINT CHR$(B+32);CHR$(A+32);
100 GOTO 40
110 END
130 REM -----------
140 REM PUNKT SETZEN :-)
150 REM YStart=YEnde, XStart=XEnde
160 REM -----------
170 DATA -1
180 DATA 100,200,100,200
190 DATA -1
200 DATA 150,200,150,200
210 DATA -1
220 DATA 200,200,200,200
240 REM ------------
250 REM LINIE ZIEHEN
255 REM YStart,XStart,YEnde,XEnde
260 REM ------------
270 DATA -1
280 DATA 100,300,100,500
290 DATA -1
300 DATA 150,300,150,500
310 DATA -1
315 DATA 200,300,200,500
320 DATA -2
Beste Grüße Thomas
--
Komm schon TASK ! (Interstellar*) |
