home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CS / CSCD036B.D64 / b.basics (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  2.1 KB  |  64 lines
  1. 2 BA$="[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]"
  2. 3 A$="[221][157][221][157][221][157][221][157][221][157][221][157][221][157]":FORI=1TO6:BD$=BD$+A$:NEXT
  3. 5 POKE198,0:POKE53280,0:POKE53281,0:PRINT"[147]
  4. 6 C(1)[178]15:C(2)[178]12:C(3)[178]11:C(4)[178]12
  5. 7 BX[178]4:BY[178]6:EX[178]36:BD[178]1:BC[178]4::[141]10
  6. 8 [129]I[178]1[164]3:BX[178]BX[171]1:BY[178]BY[171]1:EX[178]EX[170]1:BD[178]BD[170]2:BC[178]BC[170]1:[141]10:[130]:[137]18
  7. 10 OC[178][194](646):[151]646,BC:RV$[178]"":[139]RV[167]RV$[178]""
  8. 11 [151]211,BX:[151]214,BY:[158]58732:[153]RV$"OR"[200](BA$,EX[171]BX[171]2)"^CMD";
  9. 12 [153]RV$[200](BD$,BD[172]3):[153]RV$[166]BX)"ON/"[200](BA$,EX[171]BX[171]2)"EXP"
  10. 13 [151]211,BX:[151]214,BY[170]1:[158]58732:[153]RV$[200](BD$,BD[172]3)"":[151]646,OC:RV[178]0
  11. 14 [142]
  12. 16 BX[178]BX[171]1:BY[178]BY[171]1:EX[178]EX[170]1:BD[178]BD[170]2:[142]
  13. 17 BX[178]BX[170]1:BY[178]BY[170]1:EX[178]EX[171]1:BD[178]BD[171]2:[142]
  14. 18 [151]214,15:[153]:[153]"LIST (null)HIS ALGORITHM BY MID$EFF MID$ONES. "
  15. 19 [153]"   (null)SE IT AND RIGHT$'LL LOVE YOU.  "
  16. 20 RV[178]1:EX[178]36:BY[178]17:BD[178]2:BX[178]4:BC[178]15:[141]10
  17. 21 [129]I[178]1[164]3:RV[178]1:[141]16:BC[178]C(I):[141]10:[130]:[151]198,0
  18. 22 [161]A$
  19. 23 C[178]C[170].3:[151]646,C(C):[153]""[166]5)"(null)RESS (null)(null)ATNLENVAL TO SEE BOX DEMO..."
  20. 24 [139]C[177]4[167]C[178]1
  21. 25 [139]A$[179][177]" "[167]22
  22. 26 EX[178]39:BY[178]1:BD[178]21:BX[178]1:BC[178]15:[141]10
  23. 27 [129]I[178]1[164]10:C[178]C[170]1:[139]C[177]4[167]C[178]1
  24. 28 BC[178]C(C):[141]17:[141]10:[130]
  25. 29 BX[178]18:BY[178]1:EX[178]22:BD[178]21:BC[178]14:[141]10
  26. 30 [129]I[178]1[164]17:BX[178]BX[171]1:EX[178]EX[170]1:[141]10:[130]
  27. 31 BX[178]1:BY[178]11:EX[178]39:BD[178]2:BC[178]C(1):[141]10
  28. 32 [129]I[178]1[164]9:RV[178]1:BY[178]BY[171]1:BD[178]BD[170]2:[141]10:C[178]C[170]1:[139]C[177]4[167]C[178]1
  29. 33 BC[178]C(C):[130]:BY[178]BY[171]1:RV[178]1:BD[178]BD[170]1:[141]10
  30. 34 RV[178]1:BX[178]2:BY[178]11:EX[178]38:BD[178]1:BC[178]6:[141]10
  31. 35 [151]214,11:[153]:[153]"CONT                                  "
  32. 36 [141]58
  33. 37 BX[178]0:BY[178]1:EX[178]4:BD[178]3:BC[178]C(4)
  34. 38 [129]II[178]1[164]4:[129]I[178]1[164]5:RV[178]1:BX[178]BX[170]6:EX[178]EX[170]6:[141]10:[130]:C[178]C[170]1:[139]C[177]4[167]C[178]1
  35. 39 BC[178]C(C):BY[178]BY[170]5
  36. 40 BX[178]0:EX[178]4:[130]:[141]55:C3[178]1
  37. 41 EX[178]39:BY[178]1:BD[178]21:BX[178]1
  38. 42 [129]I[178]1[164]10:C[178]C[170]1:[139]C[177]4[167]C[178]1
  39. 43 [139]C3[179]1[167]RV[178]1
  40. 44 [139][194](197)[178]62[167]62
  41. 45 [139][194](197)[178]60[167][138]
  42. 46 BC[178]C(C):[141]17:[141]10:[141]50:[130]
  43. 47 OF[178]OF[170]1:[139]OF[177]4[167]OF[178]1
  44. 48 C[178]OF:C3[178]C3[170]1:[139]C3[177]7[167]C3[178][171]C3
  45. 49 [137]41
  46. 50 C1[178]C1[170]1:[139]C1[177]4[167]C1[178]1
  47. 51 C2[178]C2[171]1:[139]C2[179]1[167]C2[178]4
  48. 52 [151]646,C(C1):[153]"     (null)RESS (null) TO RETURN TO (null)(null)ATNSTR$(null)(null)ATN(null)"
  49. 53 [151]646,C(C2):[151]214,23:[153]:[153][166]8)"(null)RESS (null)(null)ATNLENVALCLOSETO (null)(null)(null)CLOSEAGAIN"
  50. 54 [142]
  51. 55 EX[178]39:BY[178]1:BD[178]21:BX[178]1:BC[178][194](53281):[141]10
  52. 56 [129]I[178]1[164]10
  53. 57 [141]17:[141]10:[130]:[153]"LOAD":[142]
  54. 58 EX[178]39:BY[178]1:BD[178]21:BX[178]1:BC[178][194](53281):[141]10
  55. 59 [129]I[178]1[164]18
  56. 60 EX[178]EX[171]1:BX[178]BX[170]1:[141]10:[130]:[153]"LOAD":[142]
  57. 61 [144]
  58. 62 [159]15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":[132]15,ER:[160]15
  59. 63 [139] ER[179][177]63 [167] [153]"LOAD":[128]
  60. 64 A$[178]"HELLO CONNECT":Q$[178][199](34):[151]53281,7:[151]53280,7:[153]"LOAD"
  61. 65 [153]"SYSLOAD"Q$A$Q$",8"
  62. 66 [153]"RUN":[151]631,13:[151]632,13:[151]198,2:[128]
  63. 10000 D[178][194](186):N$[178]"B.BASICS":[159]15,D,15,"S0:"[170]N$:[160]15:[148]N$,D:[128]
  64.