home *** CD-ROM | disk | FTP | other *** search
- 10 ifa=0thena=1:load"ruling b*",8,1
- 20 sys 49152
- 30 poke53280,0:poke53281,11:poke646,0
- 40 :
- 50 print "[147]@@@@@@@@@@@@@@@@@@@@********************";
- 60 print "********************@@@@@@@@@@@@@@@@@@@@";
- 70 print "____________ruling balls demo___________";
- 80 print " (w) 1993 by ford prefect/public domain"
- 90 print " written for digital talk"
- 100 print" _@@@@@@@@@@@@@@_************_
- 110 [153]" ^ \greenhorn, ^
- 120 print" ^greetings to: \big boost, ^
- 130 [153]" ^ \ ^
- 140 print" ^little john, \ and all ^
- 150 [153]" ^cf im cf, \ other ^
- 160 print" ^morgan, \ cool guyz ^
- 170 [153]" ^smiling guru, \ of dt&cf ! ^
- 180 print" ^dr. zoom(hi), \ ^
- 190 [153]" _**************_@@@@@@@@@@@@_
- 200 print"";
- 210 print" _@@@@@@@@@@@@@@@@@@@@@@@@@@@_
- 220 [153]" ^ bitte space druecken, \
- 230 print" ^um die charsets zu swappen!\
- 240 [153]" _***************************_
- 250 get a$:if a$<>" "then250
- 260 if g=0then g=1:poke53272,21:goto250
- 270 if g=1then g=0:poke53272,29:goto250
-