home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1988 April
/
64er_Magazin_88-04_1988_Markt__Technik_de_Side_A.d64
/
80-zeichen-modus
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
266b
|
13 lines
10 a$="":gosub80:a1=a:pokea1,5:poke785,181:poke786,170
20 b=15.0111411/5*10^19:gosub80
30 pokea1+1,peek(3):pokea1+2,peek(4):a$=a$+chr$(33)
40 sys(784)a$,
50 poke40,76:poke41,163:poke42,168:sys40
60 goto200
70 :
80 poke3,peek(71):poke4,peek(72)
90 a=peek(3)+peek(4)*256
100 return
200 print"[147]";
210 print"80 [218]eichen - [205]odus des [195]64"