Commodore Computer VC-1520 Bedienungshandbuch Seite 45
Inhaltsverzeichnis
SCHACHBRETT
100 rem xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
110 rem xxx be I spiel 5 :
xxx
120 rem xxx Schachbrett
xxx
130 rem xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
140 open 1,6,1 : rem zeichnen
150 open 2,6,2 5 rem farbe
•
160 pr I nt #2,3
s rem
120 pr I nt #1, "m" ;40;-400
180 pr I nt #1," I "
190 b =400
.
200 prlnt#l, " J";0;b
210 pr lnt#l , '• J ' : b ; b
220 pr I nt #1," J " : b :0
230 print#l,"j' ;0;0
240 for z = l to 7
250 : pr int«l,"r"s 0 ;50xz
260 : pr I nt #1," J ';400; 50xz
220 : prmt #1 ,"r";50xz; 0
280 : pr I nt #1, " J "; 50xz; d 00
290 next z
300 for J=0 to 7
310 : a=J-2xmt Cj/2 J
320 :
for l=a to 7 step 2
330 :
for v=0 to 50
340 :
prInt #1 ,"r": 1X50
;jx50+v
350 :
prmt «1 , ' J"; f I +11x50; JX50+V
360 s
next v
370 s next
I .
380 next J
390 pr I nt #1, "m " :0;-500
400 close 1: close 2
410 end
ready ,
- 43 -
Inhaltsverzeichnis
