1 DEFINI A-Z
10 'BEISPIELPROGRAMM CRT4 IN BASIC
25 'DIESE BEISPIELE SIND IN MICROSOFT-BASIC GESCHRIEBEN
26 'IM WESENTLICHEN SIND JEDOCH NUR OUT UND WAIT-BEFEHLE 
28 'EINGESETZT, SOMIT LASSEN SICH DIESE BEISPIELE AUCH AUF 
30 'JEDE MASCHINENSPRACHE ÜBERTRAGEN
32 'ZUM VERSTANDNIS DES GERÄTES SCHLAGEN WIR VOR, DIE
34 'BEISPIELE TATSÄCHLICH EINZELN EINZUGEBEN UND AUCH MIT 
36 'VERSCHIEDENEN PARAMETERN AUSZUTESTEN
38 'LEDIGLICH DER WERT FUR DAS KOMMAND-REGISTER MUSS 
40 'ANGEPASST WERDEN. 
50 '
60 KDO=&H30			:'=48 DEZIMAL
70 CTRL1=KDO+1
80 CTRL2=KDO+2 
36 CSIZE=KDO+3
106 DELTAA=KDO+3 
110 DELTAY=KDO+7 
120 XH=KDO+8
130 XL=KDO+9
149 YH=KDO+10
150 YL=KDO+11
160 XLP=KDO+12 
170 YLP=KDO+13
180 '
190 '
1000 'ERSTES BEISPIEL: BILDSCHIRM UND ALLE REGISTER LÖSCHEN
1010 '-----------------------------------------------------
1020 '
1030 OUT KDO,&H7 		:'7 : CLEAR SCREEN, SET REG TO 0 
1040 WAIT KDO, 4		:'"4" ENTSPRICHT BIT 2:READY FOR NEW  COMMAND
1100 				'ZWEITES BEISPIEL: WARGRECHTE LINIE ZEICHNEN
1110 '-------------------------------------------
1120 '
1130 'HIER WIRD EIN VEKTORBEFEHL PARALLEL ZU EINER ACHSE ANGEWANDT
1140 '
1150 OUT CTRL1,S		:' PEN DOWN UND PEN ANWAHLEN 
1160 				:' HATTE MAN AUCH DURCH ZWEI KOMMANDOS 
1170 				:' 0 UND 2 MACHEN KoNNEN
1180 WAIT KDO,4
1190 '
1200 OUT DELTAX, 200 
1210 OUT KDO,&H10		:' &H10 IST BINAR 0001 0000, DAS HEISST VERTER 
1220				:' PARALLEL ZU EINER ACHSERKIEHTUNG, DELTAY=O 
1230				:' DELTAX=200
1240 WAIT KDO,4 
1250 '

1300 'DRITIES BEISPIELS SENKRECHTE LINIE ZEICHNEN
1320 ' 
1330 OUT DELTAY, 204
1340 OUT KDO,&HI2		:'&H12 IST BINAR 0001 6010, D.H. VERTOR PARALLEL
1350				:'ZU EINER ACHSE, DELTAX=0, DELTAY>O 
1380 WAIT KDO,4
1370 '
1400 'WIERTES BEISPIELS RECKTECK FERTIG ZEICKNEN
1410 '------------------------------------------
1420 OUT KDO,&HI6 		:'BINAR 0001 0110 BEDEUTET ? :............. 
1430 WAIT KDO,4
1440 '
1459 OUT KDO,&H14 		:'BINAR? .... .... BEDEUTET? .............. 
1460 WAIT KDO,4
1470 '
1560 'FURFTES BEISPIELS DIAGONALE ZEICHNEN
1510 '------------------------------------
1520 '
1536 'HIER WIRD EIN VEKTOR MIT BESORDERER RICHTUNGS- 
1540 'VORGABE ANGENANDT.
1550 '
1560 OUT KDO, &H19 		:'BINAR 0001 1001
1570 WAIT KDO,4
1580 '
1600 'TEXT AUSGEBEN
1510 '-------------
1620 '
1630 OUT CSIZE, &H33	:' GROSSE DER BUCHSTABEN 
1640 A$="VIERECK HIT CRT4A"
1650 FOR I= 1 TO LEN(A$)	:'MIT DIESER SCHLEIFE WIRD DER TEXT 
1655				:'BUCHSTABENNEISE ZERLST 
1660 B=ASC(MID$(A$,1,1)
1870 OUT KDO,5
1680 NEXT
1690 '
1700 'SECHSTES BEISPIEL: NEUEN X,Y-WERT EINGEBEN
1710 '------------------------------------------
1720 '
1730 'X UND Y STEHT RUN NACH DEN LETZTEN BUCHSTABEN ES TEXTES
1740 '
1250 OUT KDO,5			:'DIESES KOMMANDO SETIT X UND Y REG. ZU 0 
1760 WAIT KDO,4
1170 '
1780 '
1790 '
1800 'SIEBTES BEISPIELS VEKTOR LÖSCHEN
1810 '--------------------------------
1820 '
1830 'DIAGONALE SELL GELOSCHT WERDEN
1840 'AUSCABE WIE IN BEISPIEL 4, JEDÜCH MIT "ERASER"-FUNKTION 
1850 'DIESE "RADIER GUMMI-FUNKTION WIRD IM REGISTER CTRL1 ODER 
1860 'WIE HIER IM BEISPIEL, UBER DAS KOMMAND WORT EINGESTELLT 
1870 '
1880 OUT KDO,1			:'ERASER
1890 WAIT KDO,4

2000 'ACHIES BEISPIEL: GESCHWIRDIGKEITSDEMONSTRATION
2010 '----------------------------------------------
2015 '
2017 OUT KDO,7
2019 WAIT KDO,4			:'LÖSCHEN BILD
2020 '
2021 OUT CTRL1,3 
2030 'EIKE REIHE VON RECHTECKEN ZEICHNEN 
2040 FOR DX=1 TO 250 STEP 5
2042 OUT DELTAX,DX
2444 OUT DELTAY,DX
2070 '
2090 OUT KDO, &H10
2095 WAIT KDO,4
2100 OUT KDO,&H12
2110 WAIT KDO,4
2120 OUT KDO, &H16
2130 WAIT KDO,4
2140 OUT KDO, &H14
2150 WAIT KDO,4
2160 NEXT