home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 163 / 163.d81 / b.universe (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  61 lines
  1. 5 poke55,.:poke56,56:clr
  2. 10 dv=peek(186):ifdv<8thendv=8
  3. 12 poke53371,0
  4. 15 print"[147]":poke53280,0:poke53281,0
  5. 17 tq=ti
  6. 18 gosub60000
  7. 20 sys57812"universe font",dv,0:poke780,.:poke781,.:poke782,56:sys65493
  8. 25 poke53272,31
  9. 26 sys57812"universe sfx",dv,0:poke780,.:poke781,.:poke782,192:sys65493
  10. 27 ifti<tq+100then27
  11. 28 ad=49152:poke53371,0:dv=peek(186):ifdv<8thendv=8
  12. 29 sysad:sysad+12
  13. 40 print"[147][154]       [204][207][193][196][211][212][193][210] [208][210][207][213][196][204][217] [208][210][197][211][197][206][212][211]"
  14. 42 print"[129]   [176][192][192][192][174][176][192][192][192][174][176][192][192][192][174][174]@[176][192][189][174]@@@[176]@[176]@[176][192][192][192][174]
  15. 44 [153]"   (NULL)@@@@(NULL)@@@(NULL)-tan=tanexp-tan<@@/tan=tanexp@@@/tantantan^
  16. 46 print"   [173][192][192][192][189][173][192][192][192][189][189]@[173][192][189][189]@[173][192][174]@@[177]@@@@@[173][192][192][192][189]
  17. 50 [153]" ^@@@orortan^@or@=@^@@@orortantantan^ortantantan^ortantantan^ortantantan^
  18. 52 print" [221]@@@[221][221]@[221]@[221]@[221]@[173][174]@[176][189][171][192][192][179]@[171][192][178][192][189][173][192][192][192][174][171][192][192][179]
  19. 54 [153]" /tantantanexpexp@/tanexp@>@@/tanexp@/tantantanexpexp@/tanexp/tantantanexp/tantantanexp
  20. 56 print"[155]  [193]stronomy [208]rograms by [195][207][210][203][217] [195][207][195][200][210][193][206]
  21. 60 [153]"         1  (NULL)(NULL)(NULL)atn(NULL) (NULL)(NULL)lenatn(NULL)(NULL)(NULL)
  22. 62 print"         2  [195][210][193][212][197][210] [205][193][203][197][210]
  23. 64 [153]"         3  (NULL)(NULL)(NULL)(NULL)(NULL) - (NULL)(NULL)(NULL)str$(NULL)(NULL)(NULL)
  24. 66 print"         4  [211][200][207][207][212][201][206][199] [211][212][193][210][211]
  25. 68 [153]"         5  (NULL)left$val val(NULL)(NULL)atn(NULL)str$right$(NULL)chr$ len(NULL)(NULL)(NULL)(NULL)(NULL)
  26. 70 print"         6  [194][193][195][203] [212][207] [204][207][193][196][211][212][193][210]
  27. 80 [151]198,0
  28. 82 [161]a$:[139]a$[179]"1"[176]a$[177]"6"[167]82
  29. 90 [145][197](a$)[137]100,102,104,106,108,40000
  30. 100 f$[178]"lunar locator":[137]110
  31. 102 f$[178]"crater maker":[137]110
  32. 104 f$[178]"sunup-down":[137]110
  33. 106 f$[178]"shooting stars":[137]110
  34. 108 f$[178]"expanding"
  35. 110 [158]ad[170]15
  36. 146 [153]"loadstopload"[199](34)f$[199](34)","dv
  37. 148 [153]"run"
  38. 150 [151]631,13:[151]632,13:[151]198,2:[128]
  39. 10000 d[178][194](186):n$[178]"b.universe":[159]15,d,15,"s0:"[170]n$:[160]15:[148]n$,d:[128]
  40. 40000 [158]ad[170]15
  41. 40002 [129]i[178]8[164]29:[151]820[170]i,i:[130]:[139]dv[177]8[175]dv[179]30[167][151]828,dv:[151]820[170]dv,8
  42. 40010 a$[178]"presenter":[141]40030:a$[178]"hello connect":[141]40030
  43. 40020 [153]"load":[151]53272,23:[151]186,8:[151]2048,0:[151]44,8:[151]43,1:[128]
  44. 40030 [129]j[178]8[164]29:i[178][194](820[170]j):[139]i[178]14[167][130]
  45. 40040 [160]2:[159]2,i,2:[160]2:[139]st[167]40060
  46. 40050 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]40070
  47. 40060 [130]:[142]
  48. 40070 a$[178]"hello connect":q$[178][199](34):[151]646,[194](53281):[153]"load":[151]53272,23
  49. 40080 [153]"loadp(NULL)2048,0:p(NULL)44,8:p(NULL)43,1:p(NULL)56,160:p(NULL)55,0:clr:l(NULL)"q$a$q$","i
  50. 40090 [153]"run:":[151]631,13:[151]632,13:[151]198,2:[128]
  51. 60000 [153]"load":z$[178]" print#                                      ":[151]214,10:[153]
  52. 60010 [153]" listfrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefre":[129]i[178]0[164]11:[153]z$:[130]
  53. 60020 [153]" pokeposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposprint#"
  54. 60030 z$(0)[178]"len(NULL)(NULL)(NULL)(NULL)'(NULL) (NULL)(NULL)right$(NULL)val(NULL)(NULL)val
  55. 60040 z$(2)="by [195]orky [195]ochran
  56. 60050 z$(4)[178]"(c) 1998 by mid$ & asc (NULL)ublishing, right$nc."
  57. 60060 z$(6)[178]"(NULL)his program is not shareware
  58. 60070 z$(7)="or in the public domain."
  59. 60080 z$(9)="1-800-594-3370 or 1-318-221-8718
  60. 60090 [151]214,12:[153]:[129]i[178]0[164]9:[153][163]20[171]([195](z$(i))[173]2))""z$(i):[130]:[142]
  61.