home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1989 September
/
64er_Magazin_89-09_1989_Markt__Technik_de_Side_A.d64
/
80-zeichen-demo
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
4KB
|
90 lines
1 print"[147])[191]e[146][218])?e[146][219]%[146][186]e[146][223]%[146][187]e[146][160]%[146][219][201][196]p[146]a[160])[146]f[165][223]e[146][223]p[146]b[166][146][160] [146]d1[146][223]e[146]";
2 print"bh1[146][223][176][164][146][198]b*[198]b*q[146][218]h[208][177][146]x%[146][218][169]ce[146][218])[146]dp[215][166][146][219]xp[210]":sys 256*peek(648):
3 remh/0c*@!"w!v9*4!"x*<h!v(,@,wk!@j&82x;4@ae@*@xr(ad*@a!@jau@j<tb2@[,are$@)n
4 rem@bztjr2q49zd$v2$439mx9vg42*j1!xh*<!"v(@4,v2$4@9evbb5bbdvv24p@9vw!@&$r"*d
5 rem)@$&wz*0:4@a9x)rv462)@b*a!@z+@7"j?#"@7*jn#fh4*3h#"@!+d4(bh#"d4*"<#ii@*08
6 [143]#i@/*@!"*!*:*:#&@@*^0#@k@v*2$s41?+@87b@+#@7"*e#*f4*ba#"h@+dz4j7k#d4(*2#&
7 remi@*^<#i+@* ;#@@'*)#"@@x<h.0ls )l!5r,)&2&@<a0zs2a<"r$&r*b@!?ihf0mbi?ubi?u
8 rem!?f(*1y"*y*+y?!&?(@p+h4(jc!.@+!y@bbubbav@$)[h/0c,?j*<)*edararrru!@,&)i*)
9 [143]a@$&)2n )?:*@!?*,@1e?,?zjc)-*lapbbbub!@y,)i**a@y$)2(0b$@0h100)*9r?!.*d@s
10 [143]se0a9)4\@9*tf))jzb!")$@!9))v*23k,@sle04da))[2:$ ]h/ 0(@0!v*f7!v;*p!"w*8:
11 [143]!x9!v,w;$v2$4>9ix4<c&$vi24>c9v4\=h100*2;!v*.j!wk*3!"x9vg,w$.v24p>9x$)x2"
12 [143]4$;c+h4(jc!.@+!y@bbubbav@(0p$v2$4>*n0!)k*3!.**@h!)**?!)y*c!.*z*pz*zdfx)b
13 [143]52h8$h2fx,@cj/x,2 , @j7;x2(h$d2b0,@c:ox,: 2"_4@1*_x$*zzp"2gz4@sl\02z'<p!
14 [143]2e< /2%x<.2fc4@#s\0g2#4(@s\102#9<v2fc<wp2d<$w2$9<x2j$4@#si0o2d4(@ss302$;
15 [143]<u2fd4@3sd0gsg9k)*d$a*c;!*s$e0)f)4a!))2&8<fan))j:b!"),@!1)nt)):.@!)+,@1e
16 rem**<h!*s$e0*f@!*j<a*ba!*jse0a*@!&*4a0*@!"*se00*8x!v*.@!vi$v2$4>9mv4=3*3!"
17 remv+h:4jck!@+&!@bubbbua@$&v24p>9v7)v8\4$<c*@!")!)+*3!"**8h!)*&c!*9se0a))2&
18 rem8$(#4a)f)2p($e)n):p(!))*):@z!)n$)):.j!)k,@1e*se@0))y2?$$@s'30))*zp!"))))
19 [143]z@!*)f)r)zj8!)$,@9*tse0a))!.v)*xj@!.v)v;4bnh*j9"v<@q,c)jvn:rj!vi,:1evd91
20 remfryb)!);$@9e*zbaivb]ivb]ivf\y)!*))))yv!.)*c[!*s$#0^x)@j*>!@*x)@jba!&@vx
100 :
110 sys 49152
120 poke 53280,15
130 poke 53281,15
135 poke 646,6
140 print"[147]"chr$(142)
150 print tab(27)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
160 print tab(27)"[221] 8o characters [221]"
170 print tab(27)"[221] [221]"
180 print tab(27)"[221] the ultimate program [221]"
190 print tab(27)"[221] [221]"
210 print tab(27)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
220 print:print
230 print chr$(14)"[196]ieses [208]rogramm ermoeglicht die [196]arstellung von 8[207]";
240 print " [218]eichen pro [218]eile auf"
250 print "dem [195]ommodore 64. [196]as [208]rogramm ist in [193]ssembler geschrieben,";
260 print " kann aber unter"
270 print "[194]asic geladen und mit '[210][213][206]' gestartet werden. [201]st die 8[207]-";
280 print "[218]eichen-[196]arstellung"
290 print "durch '[211][217][211] 49152' eingeschaltet worden, so werden fortan alle";
300 print " [218]eichen ver-"
310 print "kleinert ausgegeben."
320 print
330 print "[196]a das [208]rogramm problemlos mit [194]asic zusammenarbeitet, lassen sich";
340 print " mit geringem"
350 print "[193]ufwand ungeahnte [205]oeglichkeiten erzielen."
360 print""
380 print tab(26)"[194]itte eine [212]aste druecken![146]"
385 fori=1to150:next
390 print tab(26)"[145][194]itte eine [212]aste druecken![145]"
395 fori=1to150:next
400 get a$:ifa$=""then380
410 print "[147][198]olgende [196]arstellungsarten sind moeglich:"
420 print "[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
430 print ""
440 print chr$(142)"gross/grafik-zeichensatz:"
450 print "a b c d e f g h i j k l m n o p q r s t u v w x y z"
470 print "[165] [200] [202] [203] [204] [174] [173] [218] [216] [166] ^ [191] [161] [205] [218] [193]"
490 print "! # $ % & ' ( ) + - ?"
500 print ""chr$(14)"[199]ross/[203]leinbuchstaben-[218]eichensatz:"
510 print "a b c d e f g h i j k l m n o p q r s t u v w x y z"
530 print "[193] [194] [195] [196] [197] [198] [199] [200] [201] [202] [203] [204] [205] [206] [207] [208] [209] [210] [211] [212] [213] [214] [215] [216] [217] [218]"
540 print " ! # $ % & ' ( ) + - ?"
550 print " [213] n d n a t u e r l i c h d i e s a l l e s "
555 print " a u c h i n r e v e r s e r [196] a r s t e l l u n g ! "
560 print""
580 print tab(11)"[194]itte eine [212]aste druecken![146]"
585 fori=1to150:next
590 print tab(11)"[145][194]itte eine [212]aste druecken![145]"
595 fori=1to150:next
600 get a$:ifa$=""then580
610 for sc=0 to 15
620 poke 53281,sc
630 print "[147]"
632 for co=0 to 15
635 poke 646,co
640 print tab(10)"[218]eichen- und [200]intergrundfarbe koennen beliebig gewaehlt";
645 print " werden!"
650 next co
655 fori=1to1500:next
660 next sc
670 sys 49339
680 print "[147]"chr$(142)
690 fori=0to15
700 poke 646,i
710 print "es kann auch zurueckgeschaltet werden!"
720 next
800 fori=1to3000:next
1000 goto 110