home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh5x
/
sh55a.d64
/
eingabegeraete
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
1KB
|
40 lines
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@@@,@@@