home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 69
/
64er_Magazin_Sonderheft_69_19xx_Markt__Technik_de_Side_B.d64
/
get.sys
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
242b
|
13 lines
1 rem get mit der systemroutine
2 rem $ffe4 (65508)
4 rem ---eingabe---
10 sys65508
13 ifpeek(780)=17orpeek(780)=145orpeek(780)=19thenpoke780,0
18 ifpeek(780)=0then10
20 ifpeek(780)=13then50
22 printchr$(peek(780));
25 eg$=eg$+chr$(peek(780))
40 goto10
49 rem ---ausgabe---
50 print:printeg$