home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 37 / 037.d81 / color flipper (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  1.2 KB  |  34 lines
  1. 10 gosub60100
  2. 130 poke53086,0:poke53087,1:rem wht/blk
  3. 140 fory=1to37:readz:cs=cs+z:next:restore:ifcs<>6031thenprint"data error":stop
  4. 150 forj=53049to53085:readk:pokej,k:next
  5. 160 data173,094,207,077,095,207,141,096
  6. 170 data207,169,000,133,251,169,216,133
  7. 180 data252,162,004,160,000,177,251,077
  8. 190 data096,207,145,251,200,208,246,230
  9. 200 data252,202,208,239,096
  10. 300 print"[145][145]press f to flip color, space to return"
  11. 310 print"to loadstar.                          "
  12. 320 a=peek(203):ifa<>60anda<>21then320
  13. 330 ifa=21thensys53049:goto320
  14. 340 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  15. 350 ifer<>63thenend
  16. 360 load"hello connect",8
  17. 60100 poke53280,14:poke53281,14
  18. 60110 print"[147]"chr$(142)"[159][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]";
  19. 60120 fora=1to23:print"[221]"spc(38)"[221]";:next
  20. 60130 print"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203][157][148][192]"
  21. 60140 fora=217to242:pokea,peek(a)or128:next
  22. 60150 print"         loadstar presents:"
  23. 60160 print"                             "
  24. 60170 print"            color flipper     "
  25. 60180 print"                              "
  26. 60190 print"           by  richard miu    "
  27. 60200 print"                              "
  28. 60210 print"           copyright  1987    "
  29. 60220 print"                              "
  30. 60230 print"                              "
  31. 60240 print"        press space to continue."
  32. 60250 a=peek(203):ifa<>60then60250
  33. 60260 return
  34.