home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 76
/
Tiger_Disk_076_20xx_Tiger-Crew-Disk_de_Side_B.d64
/
basic-routine
(
.txt
)
next >
Wrap
Commodore BASIC
|
2023-02-26
|
959b
|
35 lines
10 print"[147]drucktest:":print"mit der routine, die nach tastendruck startet, wird"
20 print"a) der bildschirm mit den moeglichen 255 'poke-zeichen' beschrieben und"
30 print"b) anschliessend der bildschirm-inhalt gedruckt."
40 print"vor programmstart also unbedingt drucker einschalten ! [146]"
50 poke198,0:wait198,1:poke198,0
60 print"[147]":fort=1024to1664step320
70 foru=0to255
80 poket+u,u
90 nextu
100 nextt
110 print" dies ist ein test ! [146]";
120 gosub150
130 print"[147]":list150-
140 rem open4,4:forj=1024to2023step40
150 open4,4:forj=1024to1344step40
160 fork=0to39:a=peek(j+k)
180 ifa<32thena=a+64:goto280
190 ifa>32thenifa<64then280
200 ifa>63thenifa<96thena=a+32:goto280
210 ifa>95thenifa<128thena=a+64:goto280
220 ifa>127thenifa<160thena=a-64:goto300
230 ifa>159thenifa<192thena=a-128:goto290
240 rem ifa>191thenifa<224thena=a-96:goto300
250 ifa>191thenifa<255then300
260 rem ifa>223thena=a-64:goto300
270 ifa=255thena=a-64:goto300
280 a$=chr$(a):goto310
290 ifa=34thena=32
300 a$=chr$(18)+chr$(a)+chr$(146)
310 b$=b$+a$
320 nextk
330 print#4,b$:b$=""
350 nextj
360 print#4:close4:return