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