home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 147 / 147.d81 / b.rainbow (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  779b  |  22 lines
  1. 10 clr
  2. 20 dv=peek(186):ifdv<8thendv=8
  3. 30 poke2039,dv:rem copy of location 186
  4. 40 poke787,0:rem say music isn't loaded
  5. 50 poke53281,0:poke53280,0:print"[147]"
  6. 60 gosub60000
  7. 70 print"[144]load"chr$(34)"rainbow contest"chr$(34)","dv
  8. 80 print"run"
  9. 90 poke631,13:poke632,13:poke198,2:end
  10. 60000 print"[147]":z$=" [152]                                      ":poke214,11:print
  11. 60010 print" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]":fori=0to9:printz$:next
  12. 60020 print" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
  13. 60030 z$(0)="[210] [193] [201] [206] [194] [207] [215]    [195] [200] [193] [204] [204] [197] [206] [199] [197]":z$(1)="[194]y [204]ee [206]ovak"
  14. 60040 z$(3)=" ([195]) 1996 by [202] & [198] [208]ublishing, [201]nc."
  15. 60050 z$(5)="[212]his program is not shareware
  16. 60070 z$(6)[178]"or in the public domain."
  17. 60080 z$(8)[178]"1-800-594-3370 or 1-318-221-8718"
  18. 60090 [151]214,13:[153]
  19. 60100 [129]i[178]0[164]8:[153][163]20[171]([195](z$(i))[173]2))""z$(i):[130]:[142]
  20. 63998 [128]
  21. 63999 d[178][194](186):a$[178]"b.rainbow":[159]15,d,15,"s0:"[170]a$:[160]15:[148]a$,d:[128]
  22.