100 REM EINGABETREIBER INSTALLATIONS
110 REM PROGRAMM FUER AMICA PAINT V1.1
120 REM
130 REM WEITERE EINGABEGERAETE KOENNEN
140 REM IN DEN DATA-ZEILEN HINZUGEFUEGT
150 REM WERDEN
160 :
170 DA=0
180 DIM E$(20),L$(20)
190 :
200 READ E$(DA),L$(DA)
210 IF E$(DA)<>"@@@" THEN DA=DA+1:GOTO200
220 :
230 PRINT"[147]VERFUEGBARE EINGABEGERAETE:"
240 :
250 FOR T=0 TO DA-1
260 PRINTCHR$(65+T);" - ";E$(T)
270 NEXT T
280 :
290 PRINT"GEWUENSCHTES GERAET ?"
300 :
310 GET A$:IF A$="" THEN 310
311 IF ASC(A$)<65 OR ASC(A$)>DA+64 THEN 310
320 :
330 OPEN 1,8,15
340 PRINT#1,"S:A.PAINT INPT"
350 PRINT#1,"C:A.PAINT INPT=INPUT."+L$(ASC(A$)-65)
360 CLOSE 1
370 END
380 :
390 DATA "JOYSTICK/TASTATUR","STICK"
400 DATA "COMMODORE MAUS 1351","MAUS"
63999 DATA "@@@","@@@"