home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1989 May
/
64er_Magazin_89-05_1989_Markt__Technik_de.d64
/
demo
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
5KB
|
120 lines
1 rem *********************************
2 rem * d e m o f e n s t e r *
3 rem * *
4 rem * bertram hafner, grossaitingen *
5 rem *********************************
7 poke53280,2:poke53281,11:poke648,64:print"[147]":poke648,4:print"[147]";
8 poke52,90:poke56,90:clr
9 :
10 rem ____ fenster aktivieren ________
13 print"[154]loading"tab(15)"sprite-":printtab(16)"fenster":printtab(17)"[192][192][192][192][192][192][192]"
15 sys57812"spritefenster",8,1:poke780,0:sys65493
16 print,"[144] moment, ich lade":print," noch eine grafik"
17 sys57812"dgrafik",8,1:poke780,0:sys65493:rem demo-grafik ab 96*256
18 poke777,198:x%=136:y%=74:!bik(x%,y%):!col(5):!adr(4,1,62):!hik(112,24)
19 !pri(1):!fen(8,0,0,0):v=53248:c=56576:pokev+27,255
20 rem ____ textfenster _______________
21 k1$="textfenster im textschirm":gosub310:gosub320:fori=1to1000:next
22 print" ":print,"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
23 fori=1to11:print,"[221] [221]":next
24 print,"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
25 fori=0to500:next
26 fori=1to10:!bik(x%,y%):x%=x%-1:y%=y%-1:fork=1to50:next
27 !bik(x%,y%):x%=x%-1:y%=y%+1:fork=1to50:next
28 !bik(x%,y%):x%=x%+1:y%=y%+1:fork=1to50:next
29 !bik(x%,y%):x%=x%+1:y%=y%-1:fork=1to50:next
30 next
31 fori=1to32:y%=y%+2:x%=x%-6*cos(.0785*i+.4):!bik(x%,y%):next
32 !fen(8,1,1):!bik(113,131):fori=1to500:next
33 fori=1to3:!col(5,1,1):fork=1to300:next:!col(5):fork=1to300:next:next
34 !fen(8,1,1,1):fori=1to100:next
35 print" >>>>>>>>>>>bertram hafner"
36 print" grossaitingen <<<<<<<<<<<<":fori=1to300:next
37 !hik(c%,d%):c%=c%+1:ifc%=224thenc%=0
38 ifc%<>112then37
39 k$(0)="benutze joy 2 mit/ohne fire - f1 weiter"
40 !joy(3):k2$=k$(0):gosub320:poke198,0
41 geta$:ifa$=""ora$<>chr$(133)then41
42 !joy(0)
43 !adr(64,1):!fen(0,0,0):x%=193:y%=129:c%=0:d%=0:!bik(x%,y%):!hik(c%,d%)
45 poke648,64:print" spritefenster kann jeden speicher"
46 print"eden speicherbereich sehen - als text od"
47 print"- als text oder als grafik !":poke648,4
50 cx%=10:cy%=9:gosub300:print"[176][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][174] "
51 fori=1to5:cy%=9+i:gosub300:print"[194] [194] [146][144][194] ":next
52 cy%=15:gosub300:print"[171][192][192][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][192][192][179] "
53 fori=1to5:cy%=15+i:gosub300:print"[194] [146][144][194][158] [146][144][194] ":next
54 cy%=21:gosub300:print"[173][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][189] "
73 k2$="":gosub320:!fen(6)
74 fori=1to80:x%=x%-1:!bik(x%,y%):next
75 fori=0to215:c%=c%+1:!hik(c%,d%):next
77 c%=0:d%=d%+32:ifd%<72then75
80 !joy(3):k2$=k$(0):gosub320:poke198,0
81 geta$:ifa$=""ora$<>chr$(133)then81
82 !joy(0):!fen(0)
100 rem ____ grafikfenster ____________
101 k1$="grafikfenster im textschirm":gosub310
102 k2$="":gosub320
105 cx%=10:cy%=9:gosub300:print" [146] "
106 cy%=10:gosub300:print" [146][144] [170] [144] [146] "
107 cy%=11:gosub300:print" [146][216][144] [170] [216] [144] [146] "
108 cy%=12:gosub300:print" [146] [144] [170] [144] [146] "
109 cy%=13:gosub300:print" [146][216] [144] [170] x [144] [146] "
110 cy%=14:gosub300:print" [146] [144] [170] [144] [146] "
111 cy%=15:gosub300:print" [146][216] [144] [170][208] [216][144] [146] "
112 fori=1to5:cy%=15+i:gosub300:print" [146] [170] [146] ":next
116 cy%=21:gosub300:print" [146] "
120 !col(14):!adr(96,0):!bik(136,132):!joy(3):!fen(8,0,1)
121 fori=1to3:d%=35:c%=0
122 !hik(c%,d%):d%=d%-1:c%=c%+1:ifd%>0then122
123 next
125 d%=120:c%=0:!col(3):!fen(8,0,1,0):gosub127
126 !col(5):gosub127:!col(7):gosub127:!fen(0):goto150
127 fork=0to50:!hik(k,d%):next:return
150 rem ____ grafikschirm _____________
155 k1$="textfenster im grafikschirm":gosub310:gosub330:fori=0to2000:next
156 !adr(4,1,90):!col(3):!bik(50,80):d%=5:c%=0:!pri(0)
157 !hik(c%,d%):!fen(8,0,0):fori=0to2000:next
158 c%=c%+1:!hik(c%,d%):ifc%<131then158
159 fori=0to100:next:c%=0:!hik(c%,d%)
160 cx%=0:cy%=8:gosub300:print"benutze den ":print" joystick! "
161 print:print"weiter mit ":print" f1 "
164 !hik(c%,d%):d%=d%+1:ifd%<63then164
165 !joy(3):poke789,192
177 poke198,0:wait198,1:!fen(0)
200 k1$="input im grafikschirm":gosub310:gosub330
205 !joy(0):!col(3):!bik(50,80):d%=5:c%=0
210 !hik(c%,d%):!fen(8,0,0):fori=0to2000:next
215 c%=c%+1:!hik(c%,d%):ifc%<131then215
220 fori=0to100:next
225 cx%=0:cy%=8:gosub300:fori=0to4:print" ":next
230 gosub300:print"farbe (0-15)":!gra(2,5):!hik(0,56):inputa$:!gra(0)
235 ifa$=""or(val(a$)>15)then280
240 a=val(a$):fori=0to159:poke24112+i,a:next:goto225
280 !fen(0):gosub340:k2$="demo - ende":gosub320:poke198,0
290 print"[145][145][145][145][145][145]"
299 end
300 rem cursorposition
301 poke211,cx%:poke214,cy%:sys58640:return
310 rem kommentar 1
311 print"[144][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
312 printleft$("[144] demo: "+k1$+" ",42);"[146]";
313 :return
320 rem kommentar 2
321 cx%=0:cy%=22:gosub300
322 print"[144][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
323 printleft$("[144]"+k2$+" ",42);"[146]";
324 :return
330 rem grafikmodus/bank 1
331 pokec+2,(peek(c+2))or3:pokec,(peek(c)and252)or2:rem bank 1
332 pokev+24,(peek(v+24)and15)or112:rem bildschirm (=farbram) nach 92*256
333 pokev+24,peek(v+24)or8:rem hires nach 96*256
334 pokev+17,(peek(v+17))or32:rem bitmap-modus
335 return
340 rem textmodus/bank 0
341 pokec+2,(peek(c+2))or3:pokec,(peek(c))or3:rem bank 0
342 pokev+24,(peek(v+24)and15)or16:rem bildschirm nach 4*256
343 pokev+24,(peek(v+24)and241)or4:rem zeichen nach 208*256
344 pokev+17,(peek(v+17))and223:rem bitmap-aus
345 return