100 REM EINGABETREIBER INSTALLATIONS 110 REM PROGRAMM FUER AMICA PAINT 120 REM 130 REM WEITERE EINGABEGERAETE KOENNEN 140 REM IN DEN DATA-ZEILEN HINZUGEFUEGT 150 REM WERDEN (MAX.10) 155 REM 157 REM PROGRAMM UEBERARBEITET VON 158 REM NIKOLAUS HEUSLER 200789 190 : 200 READE$(DA),L$(DA) 210 IFE$(DA)<>"@@@"THENDA=DA+1:GOTO200 220 : 222 PRINT"[147]AMICA-PAINT: INSTALLATIONSPROGRAMM 224 [153]" FUER EINGABEGERAETE 226 PRINT"NEUE VERSION VON O.STILLER/N.HEUSLER 228 [153]"(C) MARKT & TECHNIK, SONDERHEFT 45 230 PRINT"VERFUEGBARE EINGABEGERAETE: 240 : 250 [129]T[178].[164]DA[171]1 260 [153]" "[199](65[170]T)" - "E$(T) 270 [130] 280 : 290 [153]"GEWUENSCHTES GERAET ? TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB( 300 POKE198,. 310 GETA$:IFA$=""THEN310 311 IFASC(A$)<65ORASC(A$)>DA+64THEN310 320 PRINT"INSTALLATION LAEUFT. BITTE WARTEN... 330 [159]1,8,15,"I0 340 PRINT#1,"S0:A.PAINT INPT 350 [152]1,"C0:A.PAINT INPT=INPUT."[170]L$([198](A$)[171]65) 355 [161]#1,A$:[153]A$;:[139]A$[179][177][199](13)[167]355 360 [160]1:[153]"FERTIG. 380 : 390 DATAJOYSTICK/TASTATUR,STICK 400 DATACOMMODORE MAUS 1351,MAUS 410 DATAMAUS 1351 MULTISPEED,MAUS LMS 420 DATANCE-MAUS MIT ADAPTER,MAUS NCE 430 DATA@@@,@@@