home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 56
/
64er_Magazin_Sonderheft_56_19xx_Markt__Technik_de_Side_A.d64
/
vereinsverw.
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
35 lines
10 rem startroutine zum vereinprgramm
20 rem c/o sandra gallitz
30 rem waldstr. 5
40 rem 5206 neunkirchen seelscheid 1
50 rem
60 rem im programmteil start wird die
70 rem sortierroutine -h- , der
80 rem deutsche zeichensatz -character
90 rem ram- und das hauptprogramm
100 rem -m- eingeladen
110 rem hinweise zu dem zeichensatz
120 rem siehe sonderheft 4/85 zeichen-
130 rem editor fuer c-64
140 rem dem hauptprogramm -m- liegt
150 rem das programm -instring- aus
160 rem heft 1/88 vor
170 rem
200 ifa=1then230
210 ifa=0thena=1:load"h",8,1
220 rem aufruf des hauptprogramms -m-
230 printchr$(147)chr$(14)chr$(142):poke646,0
240 poke198,0:poke631,147:poke632,76:poke633,207:poke634,34:poke635,77
250 poke636,34:poke637,44:poke638,56:poke639,58:poke640,131
260 poke198,10
400 rem aufruf des zeichensatzes
500 fori=828to900:readx:pokei,x:next
510 data162,8,160,1,32,186,255,169,13,162,115,160,3,32
520 data189,255,169,0,32,213,255,120,169,51,133,1,169,0
530 data133,95,133,90,133,88,169,144,133,96,169,240,133,89
540 data169,160,133,91,32,191,163,169,55,133,1,88,96,67
550 data72,65,82,65,67,84,69,82,32,82,65,77,0,0
560 data0,0,0
600 poke56,144:clr:sys828:poke56,160:clr
610 poke53272,8:poke56576,peek(56576)and252:poke648,192