home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1985 July
/
64er_Magazin_85-07_1985_Markt__Technik_de.d64
/
fenster.c16
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
2KB
|
82 lines
10 rem *********************************
20 rem * *
30 rem * fenster fuer c 16 & 116 *
40 rem * *
50 rem * christian quirin spitzner *
60 rem * gruberstrasse 53 *
70 rem * 8011 poing *
80 rem * *
90 rem *********************************
100 :
110 :
120 rem *** speicher begrenzen ***
130 :
140 poke 53,255 : poke 54,62 : poke 55,255 : poke 56,62 : clr
150 :
160 rem *** erklaerung ***
170 :
180 print"[147]"tab(12)"*** [130]fenster[132][144] ***"
190 print" format:
200 [153]" clrfenster az,as,ez,esstop
210 print" az = anfangszeile
220 [153]" as = anfangsspalte
230 print" ez = endzeile
240 [153]" es = endspalte
250 print" nicht im direktmodus !
260 :
270 [143] data's einlesen ***
280 :
290 [129] i[178]16128 [164] 16383
300 : [135] p
310 : z[178]z[170]p
320 : [151] i,p
330 [130] i
340 [139] z [179][177] 30097 [167] [153]" nextdata errorinput#":[128]
350 :
360 [143] *** initialisieren ***
370 :
380 [158] 16128
390 :
400 [143] *** fenster-befehl aufrufen ***
410 :
420 fenster 4,1,25,40
430 :
440 [143] *** basic-loader loeschen ***
450 :
460 [162]
470 :
480 [143] *** data's ***
490 :
500 [131] 169,024,141,008,003,169,063,141
510 [131] 009,003,162,000,189,205,063,032
520 [131] 210,255,232,224,043,208,245,096
530 [131] 162,000,032,115,004,221,209,063
540 [131] 208,007,232,224,007,208,243,240
550 [131] 006,032,121,004,076,217,139,032
560 [131] 183,251,032,115,004,032,132,157
570 [131] 142,249,063,032,145,148,032,132
580 [131] 157,142,250,063,032,145,148,032
590 [131] 132,157,142,251,063,032,145,148
600 [131] 032,132,157,142,252,063,174,249
610 [131] 063,224,000,208,003,076,161,148
620 [131] 224,024,016,249,174,251,063,224
630 [131] 026,016,242,236,249,063,048,237
640 [131] 174,250,063,224,000,240,230,224
650 [131] 041,016,226,172,252,063,224,041
660 [131] 016,219,236,250,063,048,214,162
670 [131] 000,222,249,063,232,224,004,208
680 [131] 248,173,249,063,133,205,173,250
690 [131] 063,133,202,169,027,032,210,255
700 [131] 169,084,032,210,255,173,251,063
710 [131] 133,205,173,252,063,133,202,169
720 [131] 027,032,210,255,169,066,032,210
730 [131] 255,169,019,032,210,255,032,193
740 [131] 251,032,121,004,076,217,139,000
750 [131] 000,000,000,000,000,147,013,032
760 [131] 130,070,069,078,083,084,069,082
770 [131] 132,032,040,067,041,032,067,072
780 [131] 082,073,083,084,073,065,078,032
790 [131] 081,085,073,082,073,078,032,083
800 [131] 080,073,084,090,078,069,082,013
810 [131] 013,000,000,000,000,000,000,000