home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 77
/
64er_Magazin_Sonderheft_77_19xx_Markt__Technik_de_Side_B.d64
/
eingabegeraete
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
41 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 datalightpen,pen
440 data@@@,@@@