home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 117 / 117.d81 / music contest (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1994-01-01  |  1.1 KB  |  39 lines
  1. 5 dv=peek(186):ifdv<8thendv=8
  2. 7 dimw$(300)
  3. 10 poke53281,0:poke53280,0:print""
  4. 12 sys57812"mcinp/cm ce00",dv,0:poke780,0:poke781,0:poke782,206:sys65493
  5. 16 sys52736,"contest form",dv
  6. 18 h=peek(252)*256+peek(251)
  7. 100 print"[147][158] [212] [200] [197]    [199] [210] [197] [193] [212]    [204] [207] [193] [196] [211] [212] [193] [210]
  8. 102 [153]"       (NULL) (NULL) (NULL) right$ len    len (NULL) (NULL) (NULL) val (NULL) (NULL)
  9. 103 print"            [207] [198]    1 9 9 4
  10. 104 [153]"      1  cont(NULL)rint contest entry form
  11. 106 print"      2  [154][210]eturn to [204][207][193][196][211][212][193][210]
  12. 110 [161]a$:[139]a$[179]"1"[176]a$[177]"2"[167]110
  13. 112 [139]a$[178]"2"[167]40000
  14. 120 [153]"open   (NULL)et your printer at the top of a
  15. 130 print"   page and press a key.
  16. 135 [161]a$:[139]a$[178]""[167]135
  17. 140 [159]4,4,7:[160]4
  18. 150 [139]st[178]0[167]200
  19. 160 [151]214,20:[153]:[153]"def (NULL)(NULL)(NULL)(NULL) (NULL)(NULL)(NULL)(NULL) (NULL)(NULL)right$(NULL)(NULL)val(NULL) (NULL)(NULL) and press a key."
  20. 170 [161]a$:[139]a$[178]""[167]170
  21. 180 [137]100
  22. 200 [159]4,4,7
  23. 210 [129]i[178]0[164]68
  24. 220 [152]4,"  "w$(i)
  25. 230 [130]:[160]4
  26. 240 [151]214,20:[153]:[153]"def   (NULL)ress a key to continue printing.  ":[151]198,0
  27. 250 [161]a$:[139]a$[178]""[167]250
  28. 300 [159]4,4,7
  29. 310 [129]i[178]69[164]h
  30. 320 [152]4,"  "w$(i)
  31. 330 [130]:[160]4
  32. 340 [137]100
  33. 10000 [159]15,8,15,"s0:music contest":[160]15:[148]"music contest",8:[128]
  34. 40000 a$[178]"hello connect":[129]i[178]8[164]9:[160]2:[159]2,i,2:[160]2:[139]st[167]40020
  35. 40010 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]40030
  36. 40020 [130]:[153]"load":[151]2048,0:[151]44,8:[151]53272,23:[151]186,dv:[128]
  37. 40030 [151]646,[194](53281):[153]"loadload"[199](34)a$[199](34)","i
  38. 40040 [153]"run":[151]631,13:[151]632,13:[151]198,2:[128]
  39.