start tok64 d64-FpebXr 0 REM ***************************** 1 REM *** *** 2 REM *** peter kolossvary *** 3 REM *** in 1988 *** 4 REM *(released to public domain)* 5 REM *** 1989 *** 6 REM *** *** 7 REM ***************************** 10 fa=0:ft=0:fd=PEEK(832) 20 PRINT"{clear}{black}":POKE 53280,0:POKE 53281,12 30 PRINT"{blue}{cm i*39}" 40 PRINT"{space*14}{white}commodore 64" 50 PRINT"{red}{cm u*39}" 60 FOR ao= 1 TO 6:GOSUB 70:NEXT:GOTO 80 70 PRINT"{reverse on}{dark gray}{cm i*39}{reverse off}":RETURN 80 FOR ap= 1 TO 2:GOSUB 90:NEXT:PRINT:GOTO 100 90 PRINT"{reverse on}{dark gray}{space*39}{black}{reverse off}":RETURN 100 PRINT"{cm r}{sh asterisk*3}{cm r}{sh asterisk*3}{cm r}{sh asterisk*3}{cm r}{sh asterisk*3}{cm r}{sh asterisk*3}{cm r}{sh asterisk*3}{cm r}{sh asterisk*3}{cm r}{sh asterisk*3}{cm r}{sh asterisk*3}{cm r}{sh asterisk*2}" 110 PRINT"{sh -} 2 {sh -} 3 {sh -} 4 {sh -} 5 {sh -} 6 {sh -} 7 {sh -} 8 {sh -} 9 {sh -} 0 {sh -} {dark gray}{sh +}{black}" 120 PRINT"{cm e}{sh asterisk*2}{cm r}{cm e}{sh asterisk*2}{cm r}{cm e}{sh asterisk*2}{cm r}{cm e}{sh asterisk*2}{cm r}{cm e}{sh asterisk*2}{cm r}{cm e}{sh asterisk*2}{cm r}{cm e}{sh asterisk*2}{cm r}{cm e}{sh asterisk*2}{cm r}{cm e}{sh asterisk*2}{cm r}{cm e}{sh asterisk*2}" 130 PRINT" q {sh -} w {sh -} e {sh -} r {sh -} t {sh -} y {sh -} u {sh -} i {sh -} o {sh -} p " 140 PRINT"{cm r}{sh asterisk*2}{cm e}{cm r}{sh asterisk*2}{cm e}{cm r}{sh asterisk*2}{cm e}{cm r}{sh asterisk*2}{cm e}{cm r}{sh asterisk*2}{cm e}{cm r}{sh asterisk*2}{cm e}{cm r}{sh asterisk*2}{cm e}{cm r}{sh asterisk*2}{cm e}{cm r}{sh asterisk*2}{cm e}{cm r}{sh asterisk*2}" 150 PRINT"{sh -} a.{sh -} s.{sh -} d.{sh -} f.{sh -} g {sh -}.h {sh -}.j {sh -}.k {sh -}.l {sh -}{dark gray}[:{black}" 160 PRINT"{cm e}{cm r}{sh asterisk*2}{cm e}{cm r}{sh asterisk*2}{cm e}{cm r}{sh asterisk*2}{cm e}{cm r}{sh asterisk*2}{cm e}{cm r}{sh asterisk*2}{cm e}{cm r}{sh asterisk*2}{cm e}{cm r}{sh asterisk*2}{cm e}{cm r}{sh asterisk*2}{cm e}{cm r}{sh asterisk*2}{cm e}{cm r}{sh asterisk}" 170 PRINT" {sh -} z {sh -} x {sh -} c {sh -} v {sh -} b {sh -} n {sh -} m {sh -} {dark gray}<,{black}{sh -} {dark gray}>.{black}{sh -}{dark gray}?{black}" 180 PRINT"{sh asterisk}{cm e}{cm r}{sh asterisk*2}{cm e}{sh asterisk*3}{cm e}{sh asterisk*3}{cm e}{sh asterisk*3}{cm e}{sh asterisk*3}{cm e}{sh asterisk*3}{cm e}{sh asterisk*3}{cm e}{sh asterisk*3}{cm e}{sh asterisk*3}{cm e}{cm r}" 190 PRINT"{space*2}{sh -}{space*35}{sh -}" 200 PRINT"{space*2}J{sh asterisk*35}K" 205 IF fd= 14 THEN GOTO 210 206 POKE 211,0:POKE 214,23 207 PRINTTAB(3)"{up}{yellow}rekord:";PEEK(833);"n.s./min." 210 POKE 1103,98:POKE 55375,6 220 FOR ai=1143 TO 2023 STEP 40:POKE ai,224:POKE ai+54272,0:NEXT ai 229 FOR au=55858 TO 55894 STEP 4:POKE au,11:NEXT au 230 FOR au=56019 TO 56032 STEP 4:POKE au,1 :NEXT au 231 FOR au=56037 TO 56051 STEP 4:POKE au,1 :NEXT au 240 INPUT"{home}{yellow}{space*14}antal";b 250 IF b=0 THEN END 260 FOR tr= 1 TO 1000 : NEXT tr 270 REM . . 280 REM . . 290 FOR gh= 1 TO b 300 q=INT(RND(0)*26)+1 310 FOR v=1665 TO 1851:IF PEEK(v)=q THEN 330 320 NEXT v 330 POKE v+54272,1 :ti$="{0*6}" 340 GET d$:IF d$>CHR$(90) THEN 340 350 IF d$PEEK(833) THEN POKE 833,fan:POKE 832,0 410 POKE 211,0:PRINT:POKE 214,23 420 PRINTTAB(3)"{up}{yellow}rekord:";PEEK(833);"n.s./min. {white} ";fan;"n.s./min." 430 ft=0:ft=0:fan=0:GOTO 240 stop tok64 (bastext 1.0)