home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 88
/
64er_Magazin_Sonderheft_88_19xx_Markt__Technik_de_Side_A.d64
/
device.gen
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
865b
|
47 lines
10 dimde$(20)
20 restore
30 z=0
40 readde$(z):ifde$(z)="*"goto100
50 z=z+1:goto40
100 poke53272,23
110 printchr$(147)chr$(14)chr$(8);
120 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
130 print" [197]ingabegeraet festlegen"
140 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";
150 print"a) [212]astatur"
160 print"b) [202]oystick"
170 print"c) [205]aus 1351"
180 rem print""
190 rem print""
200 rem print""
210 rem print""
220 rem print""
230 print"x) [197]xit"
300 poke198,0:wait198,1
310 geta$:ifa$="x"thenend
320 ifa$<"a"ora$>"c"goto300
330 de=asc(a$)-65
340 poke1265+de*80,122
500 open15,8,15
510 print#15,"s:ge4"
520 gosub10000
530 print#15,"c:ge4=ge."+de$(de)
540 gosub10000
550 :
560 print#15,"s:gp[202]"
570 gosub10000
580 print#15,"c:gp[202]=gp[202]."+de$(de)
590 gosub10000
600 close15:goto100
10000 input#15,a,a$,b,c
10010 ifa<10thenreturn
10020 print"";
10030 printa;a$;b;c;
10040 poke198,0:wait198,1:poke198,0
10050 fori=1984to2023:pokei,32:next
10060 return
50000 data "tastatur"
50010 data "joystick"
50020 data "maus 1351"
50999 data "*"