home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh3x
/
sh33b.d64
/
80-zeichen-modus
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
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"