Grafikbeispiel für den C 16

10 rem *********************************
15 rem **                             **
20 rem ** 'blockgraphik' - wettbewerb **
25 rem **                             **
30 rem *********************************
35 rem **                             **
40 rem **    fuer  c 16/116 & c 64    **
45 rem **                             **
50 rem *********************************
55 rem ** joerg gerjets / 2980 norden **
60 rem **                             **
65 rem **     (c) by dps mcmlxxxv     **
70 rem *********************************
75 rem ** bei c 16/116 durch druecken **
80 rem **   der tasten '@','+','-'    **
85 rem **       & '*' bewegung        **
90 rem **        [esc] = ende         **
95 rem *********************************
100 print"{home}{home}":printchr$(142):color4,1:color0,2
110 print"{clr}";
120 print"{blk}{rvon}    {dblu}f 2 3 4{blk}  #########    ^ ^^ ^ {dblu}{rvon} 2 4 {blk}  "
130 print"{rvon}    {dblu}u  {brn}   {dblu} {rvof}{cyn}UCCCI{blk}UCCCCCI{blu}{CBM-POUND}{blk}{CBM-*}{rvon}U{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}I{dblu}{rvon}0{brn} B {dblu}6{blk}  "
140 print"{rvon}    {dblu}e 1{brn} U {dblu}5{rvof}{cyn}B{red}Q {grn}Q{cyn}B{blk}B{rvon}{orng} m-3 {rvof}{blk}B{brn}UI{blk}{rvon}{CBM-Q}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{CBM-W}{dblu}{rvon} {brn} W {dblu} {blk}  "
150 print"{rvon}    {dblu}l  {brn}  M{dblu} {rvof}{cyn}B {grn}Q{yel}Q{cyn}B{blk}JCCCCCK{brn}BB{blk}{rvon}{CBM-Q}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{CBM-W}{dblu}{rvon}ht{brn}  {dblu}8{blk}  "
160 print"{rvon}    {dblu}  0 7 6{rvof}{cyn}JCCCK{rvon}{red}{CBM-K}30.37{rvof}{CBM-K}{brn}JK{blk}{rvon}J{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}K{dblu}{rvon}  10 {blk}  "
170 print"{SHIFT-POUND}{orng}{CBM-D}{rvon}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{rvof}{CBM-F}{blk}{CBM-*}"
180 print"{orng} {rvon} {rvof}                 {rvon}  {rvof}    {blk}           . {orng}{rvon} "
190 print"{CBM-N}{rvon} {rvof}     {blk}{rvon}{CBM-*}{rvof}{orng}           {rvon}  {rvof}  {blk}     ,         {orng}{rvon} {rvof}{CBM-H}"
200 print"{CBM-L}{rvon} {rvof}    {blk} {rvon}  {CBM-Y}{CBM-Y}{CBM-T} {CBM-*}{rvof}{orng}     {rvon}  {rvof}             {orng}X   {orng}{rvon} {rvof}{CBM-J}"
210 print"{rvon}{CBM-K} {rvof}      {blk}{CBM-Y}{rvon}{CBM-F}{rvof}{CBM-U}{rvon}{CBM-F}{rvof}{CBM-U}{CBM-U}{orng}     {rvon}  {rvof}             {red}{rvon}{CBM-P}{rvof}   {orng}{rvon} {rvof}{CBM-K}"
220 print"{rvon}{CBM-K} {rvof}                 {rvon}  {rvof}    {blk}X        {red}{rvon}{CBM-P}{rvof}   {orng}{rvon} {rvof}{CBM-K}"
230 print"{CBM-L}{rvon} {rvof}             {blk}{CBM-@}{orng}   {rvon}  {rvof}   {blk}{rvon}{CBM-Y} {rvof}        {red}{rvon}{CBM-P}{rvof}   {orng}{rvon} {rvof}{CBM-J}"
240 print"{CBM-N}{rvon} {rvof}{brn}{CBM-O}{CBM-P}{CBM-O}{CBM-P}{CBM-@}  {dblu} {CBM-@} {CBM-@}  {blk}{CBM-*}{rvon}   {orng}  {blk}      {rvof}{SHIFT-POUND}{dblu} {CBM-@}  {brn}{CBM-O}{CBM-I}{rvon} {CBM-U}{rvof}{CBM-P} {orng}{rvon} {rvof}{CBM-H}"
250 print" {rvon} {dblu}                 {orng}  {dblu}                 {orng} "
260 print" {CBM-C}{rvon}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{rvof}{CBM-V}"
270 print" FFF {grn}{CBM-P}  {red}UCCCCI {blk}UCCCCCCCC{CBM-R}CCI -{dblu}radar{blk}- UCI"
280 print" WQW{grn}{SHIFT-@}{rvon}n{rvof}L {red}B{rvon}w  1{rvof}B{grn}<{blk}B{lblu}{rvon}{SHIFT-POUND} {CBM-@}  {CBM-@} {CBM-*}{rvof}{blk}B{red}QQ{blk}B {red}{rvon}{SHIFT-POUND}  B  {CBM-*}{rvof}{blk} {CBM-Q} {CBM-W}"
290 print"{blu} > {rvon}{grn}{SHIFT-POUND}   {CBM-*}{rvof}{red}JCC{CBM-R}C{CBM-E}I{blk}B{lblu}{rvon} {CBM-@}{CBM-@}  {CBM-@}{CBM-@} {rvof}{blk}B {orng}^{blk}B {red}{rvon}     N {rvof}{blk} {CBM-Q} {CBM-W}"
300 print" {grn}{CBM-P}{rvon}{SHIFT-POUND}     {CBM-*}{rvof}{CBM-P} {red}B{blu}{rvon}  {rvof}{red}B{blk}B{lblu}{rvon}  {CBM-@}  {CBM-@}  {rvof}{blk}B{grn}Q {blk}BU{red}{rvon}    N  {rvof}{blk}I{CBM-Q}{yel}{CBM-O}{blk}{CBM-W}"
310 print"{grn}{CBM-N}{rvon}w _CWC  e{rvof}{CBM-H}{red}B{blu}{rvon}  {rvof}{red}B{blk}B{lblu}{rvon}{CBM-P} {CBM-P}{SHIFT-@}L{CBM-P} {CBM-P}{rvof}{blk}B{dblu}Q {blk}BB{red}{rvon}C  W  C{rvof}{blk}B{CBM-Q}{yel}{rvon} {rvof}{blk}{CBM-W}"
320 print" {grn}{CBM-Y}{CBM-*}{rvon}     {rvof}{SHIFT-POUND}{CBM-Y} {red}JCCK{blk}B{rvon}{CBM-Y} {CBM-@}  {CBM-@} {CBM-Y}{rvof}B {yel}Q{blk}BJ{red}{rvon}       {rvof}{blk}K{CBM-Q}{yel}{rvon} {rvof}{blk}{CBM-W}"
330 print" {orng}{CBM-P} {grn}{CBM-*}{rvon}   {rvof}{SHIFT-POUND}{orng}_W {pur}dps{orng}-{blk}B{rvon} {CBM-@}{CBM-@}  {CBM-@}{CBM-@} {rvof}B{orng}W{cyn}+{blk}B {red}{rvon}       {rvof}{blk} {CBM-Q}{yel}{rvon} {rvof}{blk}{CBM-W}"
340 print"{orng}{CBM-N}{pur}Q{orng}{CBM-H} {grn}P{rvon}s{rvof}O{red}{CBM-A}CCCCCC{CBM-S}{blk}B{rvon}  {CBM-@}  {CBM-@}  {rvof}B {pur}Q{blk}B {red}{CBM-*}{rvon}  B  {rvof}{SHIFT-POUND}{blk} {CBM-Q}{yel}{rvon} {rvof}{blk}{CBM-W}"
350 print"{brn}{CBM-N}{rvon}#4{rvof}{CBM-H} {grn}{CBM-Y}{blk} {red}B{blk}>>~{dblu}X{blk}<<{red}B{blk}B{CBM-*}{rvon}      {rvof}{SHIFT-POUND}B{red}*{blk}*B   JCK   JCK    "
360 print"{rvon}{CBM-*}{rvof} DDDD {red}{CBM-Z}CCCCCC{CBM-X}{blk}JCCCCCCCC{CBM-E}CCK {lblu}W{blu}EEEEE{lblu}W{blk} _ ";:poke4071,233
370 rem
380 rem
390 rem
400 rem *******************************
410 rem ** bewegung - nur c 16/116 ! **
420 rem *******************************
430 do:getkeya$
440 ifa$="*"thenchar1,34,08,"{flon}{orng}X{blk}":char1,37,24,"{flon}{blk}_":char1,26,19,"{flon}{red}Z"
450 ifa$="+"thenchar1,13,3,"{flon}{grn}Q":char1,1,22,"{flon}{pur}Q"
460 ifa$="-"thenchar1,25,23,"{flon}{red}*":char1,23,1,"{flon}{pur}{CBM-POUND}"
470 ifa$="@"thenprint"{home}{rght}{rght}{down}{down}{down}{down}{down}{down}"chr$(27)"t"
480 ifa$="@"thenprint"{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{down}{down}{down}{down}"chr$(27)"b";:goto510
490 ifa$=chr$(27)then600
500 loop
510 fori=1to4:forj=1to1000:next:print:next:loop
600 print"{home}{home}{clr}{blk}{down}{down}{down}{down}    **  (c) by don't panic soft  **"
700 rem ********************************
710 rem ********************************
720 rem **   achtung : aenderungen    **
730 rem **         fuer c 64          **
740 rem ********************************
750 rem ** poke 4071,233 in zeile 360 **
760 rem **  muss durch poke 2023,233  **
770 rem **       ersetzt werden       **
780 rem ********************************
790 rem **   color 0,2 in zeile 100   **
800 rem **  muss durch poke 53281,1   **
810 rem **       ersetzt werden       **
820 rem ********************************
830 rem **   color 4,1 in zeile 100   **
840 rem **  muss durch poke 53280,0   **
850 rem **       ersetzt werden       **
860 rem ********************************
870 rem **   das steuerzeichen fuer   **
880 rem **    hellblau muss durch     **
890 rem **    normal-blau ersetzt     **
900 rem **    nur wichtig in zeile    **
910 rem **         280 - 310          **
920 rem ********************************
930 rem **  zeile 430 muss lauten :   **
940 rem **  430 geta$:ifa$=""then430  **
950 rem **  zeile 440 - 510 duerfen   **
960 rem **  nicht uebernommen werden  **
970 rem ********************************
980 rem ********************************