home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
86xx
/
8605.d64
/
greatprint-demo
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
4KB
|
94 lines
1000 REM 'GREATPRINT' FUER C-64, VON MARTIN SPRAVE, MAI 1985
1010 A=53000:FORI=0TO247:READB:POKEA+I,B:P=P+B:NEXT
1020 IFP<>27293THENPRINT"PRUEFSUMMENFEHLER!":STOP
1030 DATA 169, 47,133, 0,169, 55,133, 1, 32,241,183,224, 22,176, 33,134
1040 DATA 3, 32,241,183,224, 37,176, 24,134, 4, 32,253,174, 32,158,173
1050 DATA 36, 13, 48, 6, 32,221,189, 32,135,180, 32,166,182,170,208, 3
1060 DATA 76, 72,178,134, 5,160, 0,120,177, 34,170, 10,201, 64,138,176
1070 DATA 6, 32, 22,231, 76,230,207,132, 96, 10,176, 12,201,192,144, 3
1080 DATA 41,190, 44, 41,126, 76,104,207,201,254,208, 2,169,188, 9,128
1090 DATA 133, 92,173, 24,208, 41, 2, 9, 52,166,199,240, 2, 9, 1, 6
1100 DATA 92, 42, 6, 92, 42,133, 93,166, 3, 24,189,240,236,101, 4,133
1110 DATA 88,133, 90,181,217, 41, 3,109,136, 2,133, 89, 41, 3, 9,216
1120 DATA 133, 91,160, 0,162, 0,169, 51,133, 1,161, 92,133, 94,230, 92
1130 DATA 161, 92,133, 95,230, 92,169, 55,133, 1,169, 0, 6, 94, 42, 6
1140 DATA 94, 42, 6, 95, 42, 6, 95, 42,170,189,240,207,145, 88,173,134
1150 DATA 2,145, 90,200,152, 41, 3,208,225, 24,152,105, 36,168,192,160
1160 DATA 144,194,165, 4,105, 3,133, 4,201, 37,176, 10,164, 96,200,196
1170 DATA 5,176, 3, 76, 63,207, 88, 96, 32,108,123, 98,124,225,255,254
1180 DATA 126,127, 97,252,226,251,236,160
2000 K$=CHR$(14):G$=CHR$(142):C$=CHR$(147):R$=CHR$(13)
2010 POKE53280,12:POKE53281,12:SYSA,0,0,K$+CHR$(8)+C$+"[155][199]REATPRINT"
2020 PRINT"[146][151][196]IESES [208]ROGRAMM ERLAUBT DIE GROSSFORMA-"
2030 PRINT"TIGE [196]ARSTELLUNG VON [218]EICHENKETTEN UND"
2040 PRINT"[215]ERTEN AUF DEM [212]EXT-[194]ILDSCHIRM. [196]IE"
2050 PRINT"[194]UCHSTABEN WERDEN MIT [200]ILFE VON SECHZEHN";
2060 PRINT"[199]RAPHIKZEICHEN, DER SOGENANNTEN [214]IERTEL-";
2070 PRINT"PUNKTGRAPHIK, AUFGEBAUT. [211]IE BESTEHEN"
2080 PRINT"AUS EINER [205]ATRIX VON VIER MAL VIER SOL-"
2090 PRINT"CHER [218]EICHEN. [196]A NICHT IN DEN HOCHAUF-"
2100 PRINT"LOESENDEN [205]ODUS GEGANGEN WIRD, LASSEN"
2110 PRINT"SICH NORMALE UND GROSSE [218]EICHEN MITEIN-"
2120 PRINT"ANDER MISCHEN. [196]IE [218]EICHEN WERDEN IN DER";
2130 PRINT"AKTUELLEN [195]URSORFARBE UND EVENTUELL AUCH";
2140 PRINT"INVERTIERT GEDRUCKT. [193]LS [218]EICHENSATZ"
2150 PRINT"WIRD DERJENIGE VERWENDET, DER BEIM [193]UF-"
2160 PRINT"RUF DER [210]OUTINE AKTIVIERT IST. [201]NSGESAMT";
2170 PRINT"KOENNEN AUF EINEM [194]ILDSCHIRM SECHS"
2180 PRINT"[210]EIHEN MIT JE ZEHN [218]EICHEN GESCHRIEBEN"
2190 PRINT"WERDEN.":GOSUB5230
3000 SYSA,0,0,C$+"[211]YNTAX:":PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
3010 PRINT"[211][217][211] 53000 , [218]EILE[146] , [211]PALTE[146] , [193]USDRUCK"
3020 PRINT: PRINT"[196]IE [218]EILE UND DIE [211]PALTE DEFINIEREN DIE"
3030 PRINT"LINKE, OBERE [197]CKE, AB DER DER [193]USDRUCK"
3040 PRINT"GESCHRIEBEN WERDEN SOLL. [194]EIDE DUERFEN"
3050 PRINT"ALS BELIEBIGE NUMERISCHE [212]ERME ANGEGEBEN";
3060 PRINT"WERDEN, SOFERN IHR [197]RGEBNIS SICH IM [194]E-"
3070 PRINT"REICH VON 0-21 FUER DIE [218]EILE UND 0-36"
3080 PRINT"FUER DIE [211]PALTE BEWEGT."
3090 PRINT"[196]ER '[193]USDRUCK' KANN SOWOHL EIN [211]TRING-"
3100 PRINT"ALS AUCH EIN NUMERISCHER [212]ERM SEIN."
3110 PRINT"[206]UMERISCHE [193]USDRUECKE WERDEN AUTOMATISCH";
3120 PRINT"IN EINE [218]EICHENKETTE GEWANDELT. [197]S WER-"
3130 PRINT"DEN SO VIELE [218]EICHEN AUSGEGEBEN, BIS DER";
3140 PRINT"RECHTE [210]AND ERREICHT , ODER DER [211]TRING"
3150 PRINT"ZU [197]NDE IST. [212]AUCHEN VOR [197]RREICHEN DES"
3160 PRINT"RECHTEN [210]ANDES [211]TEUERZEICHEN AUF,"
3170 GOSUB5230
4000 PRINTC$;"SO WERDEN DIESE AN DIE NORMALE [193]USGABE-"
4010 PRINT"ROUTINE WEITERGELEITET. [193]UF DIESE [215]EISE"
4020 PRINT"KOENNEN INNERHALB EINES [211]TRINGS Z.[194]."
4030 PRINT"VERSCHIEDENE [198]ARBEN ANGEWAEHLT, DER"
4040 PRINT"[210][197][214][197][210][211]-[205]ODUS EIN- UND AUSGESCHALTET,"
4050 PRINT"ODER DER [194]ILDSCHIRM GELOESCHT WERDEN."
4060 PRINT:PRINT"[197]S FOLGEN EINIGE [196]EMONSTRATIONEN, DIE"
4070 PRINT"JEWEILS MIT [210][197][212][213][210][206] UNTERBROCHEN WERDEN"
4080 PRINT"KOENNEN.":GOSUB5230
5000 PRINTC$;"[212]EXT:":SYSA,0,6,"[155]-64'ER-[146]":SYSA,5,14,"[151][196]AS":SYSA,9,6,"[205]AGAZIN"
5010 SYSA,13,12,"FUER":SYSA,17,2,"[195]OMPUTER-":SYSA,21,12,"[198]ANS"
5020 GOSUB5240:PRINTG$;C$;"UND GRAPHIK:"
5030 FORI=0TO59:Z%=I/10:SYSA,Z%*4+1,(I-10*Z%)*4,CHR$(192+I):NEXT:GOSUB5240
5040 SYSA,1,6,K$+C$+"NORMALE":SYSA,7,14,"UND"
5050 SYSA,13,4,"NEGATIVE":SYSA,19,4,"[211]CHRIFT![146]":GOSUB5240
5060 SYSA,0,2,C$+"VERSCHIE-":SYSA,4,12,"DENE":SYSA,8,6,"[198]ARBEN:"
5070 SYSA,13,0,"[144][166][166][166][166][166][166][159][166][166][156][166][166]"
5080 SYSA,17,0,"[166][166][166][166][158][166][166][129][166][166][149][166][166]"
5090 SYSA,21,0,"[150][166][166][151][166][166][153][166][166][154][166][166][155][166][166]":GOSUB5240
5100 SYSA,2,4,C$+"[151][211]TRINGS:":SYSA,14,4,"[218]AHLEN:"
5110 POKE198,0:SYSA,8,4,LEFT$(TI$,2)+":"+MID$(TI$,3,2)+":"+RIGHT$(TI$,2)
5120 SYSA,20,0,TI:GETW$:IFW$<>R$THEN5110
5130 SYSA,0,6,C$+"[210]IESEN-":SYSA,4,4,"GRAPHIK:"
5140 SYSA,9,12,G$+"[186][185][175]":SYSA,13,8,"-USA-[146][192][192]"
5150 SYSA,17,0,"[176][192][203]===[202][192][192][201]":SYSA,21,0,"[173][215][215][215][215][215][215][215][215][203]":GOSUB5240
5160 T$=" [204]ANGE [212]EXTE, DIE NICHT MEHR AUF DEN [194]ILDSCHIRM PASSEN, KOENNEN "
5170 T$=T$+"Z.[194]. DURCH EINE [204]AUFSCHRIFT (WIE DIESE HIER) DARGESTELLT WERDEN!"
5180 SYSA,1,10,K$+C$+"[204]AUF-":SYSA,6,4,"SCHRIFT:[155]"
5190 POKE198,0:SYSA,20,0,T$:T$=MID$(T$,2)+LEFT$(T$,1):FORI=1TO90:NEXT
5200 GETW$:IFW$<>R$THEN5190
5210 SYSA,3,12,C$+"[151][197]NDE":SYSA,10,14,"DEQ":SYSA,17,10,"[196]EMOS"
5220 END
5230 PRINT"[194]ITTE '[210][197][212][213][210][206]' DRUECKEN!";
5240 POKE198,0
5250 GETW$:IFW$<>R$THEN5250
5260 RETURN