home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh7x / sh75b.d64 / 80-zeichen-demo (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  4KB  |  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.