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 >
Encoding:
Commodore BASIC  |  1989-01-01  |  3.6 KB  |  90 lines
  1. 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. 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. 3 remh/0c*@!"w!v9*4!"x*<h!v(,@,wk!@j&82x;4@ae@*@xr(ad*@a!@jau@j<tb2@[,are$@)n
  4. 4 rem@bztjr2q49zd$v2$439mx9vg42*j1!xh*<!"v(@4,v2$4@9evbb5bbdvv24p@9vw!@&$r"*d
  5. 5 rem)@$&wz*0:4@a9x)rv462)@b*a!@z+@7"j?#"@7*jn#fh4*3h#"@!+d4(bh#"d4*"<#ii@*08
  6. 6 [143]#i@/*@!"*!*:*:#&@@*^0#@k@v*2$s41?+@87b@+#@7"*e#*f4*ba#"h@+dz4j7k#d4(*2#&
  7. 7 remi@*^<#i+@* ;#@@'*)#"@@x<h.0ls )l!5r,)&2&@<a0zs2a<"r$&r*b@!?ihf0mbi?ubi?u
  8. 8 rem!?f(*1y"*y*+y?!&?(@p+h4(jc!.@+!y@bbubbav@$)[h/0c,?j*<)*edararrru!@,&)i*)
  9. 9 [143]a@$&)2n )?:*@!?*,@1e?,?zjc)-*lapbbbub!@y,)i**a@y$)2(0b$@0h100)*9r?!.*d@s
  10. 10 [143]se0a9)4\@9*tf))jzb!")$@!9))v*23k,@sle04da))[2:$ ]h/ 0(@0!v*f7!v;*p!"w*8:
  11. 11 [143]!x9!v,w;$v2$4>9ix4<c&$vi24>c9v4\=h100*2;!v*.j!wk*3!"x9vg,w$.v24p>9x$)x2"
  12. 12 [143]4$;c+h4(jc!.@+!y@bbubbav@(0p$v2$4>*n0!)k*3!.**@h!)**?!)y*c!.*z*pz*zdfx)b
  13. 13 [143]52h8$h2fx,@cj/x,2 , @j7;x2(h$d2b0,@c:ox,: 2"_4@1*_x$*zzp"2gz4@sl\02z'<p!
  14. 14 [143]2e< /2%x<.2fc4@#s\0g2#4(@s\102#9<v2fc<wp2d<$w2$9<x2j$4@#si0o2d4(@ss302$;
  15. 15 [143]<u2fd4@3sd0gsg9k)*d$a*c;!*s$e0)f)4a!))2&8<fan))j:b!"),@!1)nt)):.@!)+,@1e
  16. 16 rem**<h!*s$e0*f@!*j<a*ba!*jse0a*@!&*4a0*@!"*se00*8x!v*.@!vi$v2$4>9mv4=3*3!"
  17. 17 remv+h:4jck!@+&!@bubbbua@$&v24p>9v7)v8\4$<c*@!")!)+*3!"**8h!)*&c!*9se0a))2&
  18. 18 rem8$(#4a)f)2p($e)n):p(!))*):@z!)n$)):.j!)k,@1e*se@0))y2?$$@s'30))*zp!"))))
  19. 19 [143]z@!*)f)r)zj8!)$,@9*tse0a))!.v)*xj@!.v)v;4bnh*j9"v<@q,c)jvn:rj!vi,:1evd91
  20. 20 remfryb)!);$@9e*zbaivb]ivb]ivf\y)!*))))yv!.)*c[!*s$#0^x)@j*>!@*x)@jba!&@vx 
  21. 100 :
  22. 110 sys 49152
  23. 120 poke 53280,15
  24. 130 poke 53281,15
  25. 135 poke 646,6
  26. 140 print"[147]"chr$(142)
  27. 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]"
  28. 160 print tab(27)"[221]     8o characters    [221]"
  29. 170 print tab(27)"[221]                      [221]"
  30. 180 print tab(27)"[221] the ultimate program [221]"
  31. 190 print tab(27)"[221]                      [221]"
  32. 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]"
  33. 220 print:print
  34. 230 print chr$(14)"[196]ieses [208]rogramm ermoeglicht die [196]arstellung von 8[207]";
  35. 240 print " [218]eichen pro [218]eile auf"
  36. 250 print "dem [195]ommodore 64. [196]as [208]rogramm ist in [193]ssembler geschrieben,";
  37. 260 print " kann aber unter"
  38. 270 print "[194]asic geladen und mit '[210][213][206]' gestartet werden. [201]st die 8[207]-";
  39. 280 print "[218]eichen-[196]arstellung"
  40. 290 print "durch '[211][217][211] 49152' eingeschaltet worden, so werden fortan alle";
  41. 300 print " [218]eichen ver-"
  42. 310 print "kleinert ausgegeben."
  43. 320 print
  44. 330 print "[196]a das [208]rogramm problemlos mit [194]asic zusammenarbeitet, lassen sich";
  45. 340 print " mit geringem"
  46. 350 print "[193]ufwand ungeahnte [205]oeglichkeiten erzielen."
  47. 360 print""
  48. 380 print tab(26)"[194]itte eine [212]aste druecken![146]"
  49. 385 fori=1to150:next
  50. 390 print tab(26)"[145][194]itte eine [212]aste druecken![145]"
  51. 395 fori=1to150:next
  52. 400 get a$:ifa$=""then380
  53. 410 print "[147][198]olgende [196]arstellungsarten sind moeglich:"
  54. 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]"
  55. 430 print ""
  56. 440 print chr$(142)"gross/grafik-zeichensatz:"
  57. 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"
  58. 470 print "[165] [200] [202] [203] [204] [174] [173] [218] [216] [166] ^ [191] [161] [205] [218] [193]"
  59. 490 print "! # $ % & ' ( ) + - ?"
  60. 500 print ""chr$(14)"[199]ross/[203]leinbuchstaben-[218]eichensatz:"
  61. 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"
  62. 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]"
  63. 540 print " ! # $ % & ' ( ) + - ?"
  64. 550 print " [213] n d  n a t u e r l i c h  d i e s  a l l e s         "
  65. 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 ! "
  66. 560 print""
  67. 580 print tab(11)"[194]itte eine [212]aste druecken![146]"
  68. 585 fori=1to150:next
  69. 590 print tab(11)"[145][194]itte eine [212]aste druecken![145]"
  70. 595 fori=1to150:next
  71. 600 get a$:ifa$=""then580
  72. 610 for sc=0 to 15
  73. 620 poke 53281,sc
  74. 630 print "[147]"
  75. 632 for co=0 to 15
  76. 635 poke 646,co
  77. 640 print tab(10)"[218]eichen- und [200]intergrundfarbe koennen beliebig gewaehlt";
  78. 645 print " werden!"
  79. 650 next co
  80. 655 fori=1to1500:next
  81. 660 next sc
  82. 670 sys 49339
  83. 680 print "[147]"chr$(142)
  84. 690 fori=0to15
  85. 700 poke 646,i
  86. 710 print "es kann auch zurueckgeschaltet werden!"
  87. 720 next
  88. 800 fori=1to3000:next
  89. 1000 goto 110
  90.