home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1992 January & February / rerun-1992-01-02-side-a.d64 / calendar.hex (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  7KB  |  110 lines
  1. 0 rem this list 1 creates (and should not be called) calendar.ml
  2. 5 open 8,8,8,"calendar.ml,p,w"
  3. 6 ct=0:print"[147]"
  4. 10 read a$:if a$="-1" then close8:print:print"all done!":end
  5. 12 print"reading line "+str$(ct):ct=ct+1
  6. 15 if len(a$)<62 then 55
  7. 20 b$=mid$(a$,1,20)+mid$(a$,22,20)+mid$(a$,43,20)
  8. 25 for i=1 to 30
  9. 30 c$=mid$(b$,(i*2)-1,2):h$=left$(c$,1):l$=right$(c$,1)
  10. 35 h=val(h$):if h$>"9" then h=asc(h$)-55
  11. 40 l=val(l$):if l$>"9" then l=asc(l$)-55
  12. 45 by=h*16+l:print#8,chr$(by);
  13. 50 next:goto 10
  14. 55 if len(a$)<21 then b$=a$:goto 70
  15. 60 if len(a$)<42 then b$=left$(a$,20)+right$(a$,(len(a$)-21)):goto 70
  16. 65 b$=left$(a$,20)+mid$(a$,22,20)+right$(a$,len(a$)-42)
  17. 70 for i=1 to len(b$)/2
  18. 75 c$=mid$(b$,(i*2)-1,2):h$=left$(c$,1):l$=right$(c$,1)
  19. 80 h=val(h$):if h$>"9" then h=asc(h$)-55
  20. 85 l=val(l$):if l$>"9" then l=asc(l$)-55
  21. 90 by=h*16+l:print#8,chr$(by);
  22. 95 next:goto 10
  23. 100 rem hex data for calendar.ml
  24. 101 data 00804ca088a9188d18d0*a93b8d11d0a9c88d16d0*60a9158d18d0a91b8d11
  25. 102 data d0a9c88d16d0a99320d2*ff60a000a90199000499*fa0499f40599ee06c8c0
  26. 103 data fad0efa000a961991106*c8c012d0f8a000a92199*620699b20699da069902
  27. 104 data 07992a07995207997a07*c8c002d0e66020e4ffc9*00f0f960a90085fba920
  28. 105 data 85fca900a000a90091fb*c8d0f9e6fca5fcc940d0*ef60a9ff91fb18a5fb69
  29. 106 data 0885fba5fc690085fcca*d0ec6086fb84fca216a0*0760a248a02020a18020
  30. 107 data 8c80a288a02120a18020*8c80a208a02920a18020*8c80a208a03d20a18020
  31. 108 data 8c8060b1fb05fd91fbc8*c008d0f5a00018a5fb69*4085fba5fc690185fcca
  32. 109 data d0e360a90185fda94085*fba92085fca007a21820*d380a98085fda9f885fb
  33. 110 data a92085fca007a21820d3*80a90185fda91885fba9*2385fca206a00020d380
  34. 111 data 60a216a90885fba92e85*fca000b9f88891fbc8c0*08d0f618a5fb690885fb
  35. 112 data cad0ea60ad00048da802*8cab02a200a0001820f0*ffadab0220d2ffad0004
  36. 113 data 84fcaea8028e00040a26*fc0a26fc0a26fc85fb18*a5fc69d085fcad0edc29
  37. 114 data fe8d0edca50129fb8501*a000b1fb990089c8c008*d0f6a50109048501ad0e
  38. 115 data dc09018d0edc60204c81*a0008ca9028caa02a200*a9808da702b900892ca7
  39. 116 data 02d0154ea702e8e004d0*19ada9028daa02a9008d*a902f0e3ada9021d0889
  40. 117 data 8da9024cc381e008d0d3*98eaa8adaa0291a39818*6908a8ada90291a39838
  41. 118 data e908eaa8c8c008f00aa9*008da9028daa02f0a560*a90485fda9008dac02a9
  42. 119 data c885a3a93185a4a90485*fda5a385fba5a485fca0*04a20920d38018a5a369
  43. 120 data 1885a3a5a4690085a4ee*ac02adac02c908d0d660*a2d0a031208082a250a0
  44. 121 data 34208082a2d086fba03b*84fca007a214208c80a9*078d4c348dcc318dcf3b
  45. 122 data a9fc8df4348d74328d77*3c6086fb84fca004a214*208c80608497a9008dad
  46. 123 data 02a497b91089a8204c81*20a782e697ceaf02d0ed*60a000b1a319008991a3
  47. 124 data c8c008d0f418a5a36908*85a3a5a4690085a46084*97a9008dad02a497b910
  48. 125 data 89a820a98118a5a36910*85a3a5a4690085a4e697*ceaf02d0e360a98885a3
  49. 126 data a93085a4acbf02b96789*8daf02b95a89a820c382*60a9068db302a9008db0
  50. 127 data 02a9d08db102a9228db2*02a9288db402a9238db5*02acb002b967898daf02
  51. 128 data b95a89a8adb10285a3ad*b20285a4208c82acb302*b967898daf02b95a89a8
  52. 129 data adb40285a3adb50285a4*208c8218adb40269408d*b402adb50269018db502
  53. 130 data 18adb10269408db102ad*b20269018db202eeb302*eeb002adb002c906d09d
  54. 131 data 60a000b9738999d92199*593db9788999e1219961*3dc8c005d0e960a98885
  55. 132 data fba92185fcadbf02c906*301318a5fb695885fba5*fc690085fc38adbf02e9
  56. 133 data 06a8c818a5fb694085fb*a5fc690185fc88d0f0a0*00b1fb49ff91fbc8c058
  57. 134 data d0f560a228a000c8d0fd*cad0f860a9008dad02a9*1085a3a93385a4acad02
  58. 135 data b97d89a820a98118a5a3*691885a3a5a4690085a4*eead02adad02c907d0df
  59. 136 data 60a9018db902acbf02ad*c0028db802a9008dad02*206084eec302adc302c9
  60. 137 data 07d008a9008dc302eec4*02f818adb90269018db9*02d8eead02adad02cdb8
  61. 138 data 02d0d5a9008dc3028dc4*0260a93885a3a93485a4*acc402c8a940a20120ab
  62. 139 data 8488d0f6acc302c8a918*a20020ab8488d0f6adb9*024a4a4a4a186930c930
  63. 140 data d002a920a8204c8120a7*82adb902290f186930a8*204c8120a782601865a3
  64. 141 data 85a38a65a485a460a918*85a3a93185a4adc10220*cb84adc20220cb84608d
  65. 142 data ba024a4a4a4a20ec84a8*204c8120a782adba0229*0f20ec84a8204c8120a7
  66. 143 data 826018693060a9008dad*02acad02b9908985fbc8*b9908985fcc8b9908985
  67. 144 data fdc8a2028cad02a00020*d380adad02c912d0daa0*00a20ca9f085fba92c85
  68. 145 data fc208c8060a004b9a689*99702a99782a99802ab9*9e8999b82a99c02a99c8
  69. 146 data 2ab9ae8999882a99b02a*b9aa8999ac2b99b42b99*bc2bb9a28999f42b99fc
  70. 147 data 2b99042cb9b28999c42b*99ec2bc8c008d0b920f0*8460a900a00099403fc8
  71. 148 data c040d0f8a91b8d00d0a9*358d01d0a9fd8df807a9*058d27d0a9018d15d0a0
  72. 149 data 00a200b9ba899d403fe8*e8e8c8c008d0f26020df*83206880c991f01ac911
  73. 150 data f022c99df02ac91df03a*c90df007ad01dcc9efd0*df4c908638ad01d0e908
  74. 151 data 8d01d04cb08518ad01d0*69088d01d04cb08538ad*00d0e9088d00d0ad10d0
  75. 152 data e9008d10d04cb08518ad*00d069088d00d0ad10d0*69008d10d04cb085a901
  76. 153 data 8d21d0a9008d8602a912*20d2ffa92020d2ffa992*20d2ff206880c95fd003
  77. 154 data 4c6586203d864c2d8648*205a86a99d20d2ff6820*d2ffa91220d2ffa92020
  78. 155 data d2ffa99220d2ff60a99d*20d2ffa92020d2ff6020*5a86a9e785fba90785fc
  79. 156 data a000b1fbc920d01138a5*fbe90185fba5fce90085*fcc903d0e9e6fbd002e6
  80. 157 data fc6038ad00d0e9188dbb*02ad10d0e9008dbc02ad*bc02f0034cb085adbb02
  81. 158 data c948b0034cb085c9f890*034cb08538ad01d0e932*8dbc02adbc02c910b003
  82. 159 data 4cb085c94090034c0587*209d83a9008dad02adbb*02c9a09005a9068dad02
  83. 160 data adbc024a4a4aa8888898*186dad028dbf02a90160*209d83200d884cb085ad
  84. 161 data bc02a240a05020ee87ad*ad02d013a90460a9188d*18d0a93b8d11d0202880
  85. 162 data 4cb085adbb02a270a0d0*20ee87adad02d0034cb0*85a000a9008dad02adbb
  86. 163 data 02d9c2899008c8eead02*c005d0f0adad02c902d0*09201380a9008d15d060
  87. 164 data 20be8720df8320df8320*be87acad02c004d00320*9487c000d00320a987c0
  88. 165 data 01d00320a987c003d003*209487a90260200d884c*b085f818adc20279d189
  89. 166 data 8dc202adc10269008dc1*02d860f838adc202f9d1*898dc202adc102e9008d
  90. 167 data c102d860adad020aa8b9*c78985fbb9c88985fc18*a5fb694085fda5fc6901
  91. 168 data 85fea000b1fb49ff91fb*b1fd49ff91fdc8c010d0*ef6048a9008dad028ebd
  92. 169 data 028cbe0268cdbd02b001*60cdbe02900160a9018d*ad0260201d8820b68420
  93. 170 data e882202a8820198460a0*00a900998830c8c0b0d0*f860a99085fba93585fc
  94. 171 data a9008dad02a5fb85a3a5*fc85a4a200a000a90091*a3c8c010d0f918a5a369
  95. 172 data 1885a3a5a4690085a4e8*e007d0e318a5fb694085*fba5fc690185fceead02
  96. 173 data adad02c905d0c2a200a9*d085a3a93b85a4a000a9*00b9d68991a3c8c010d0
  97. 174 data f618a5a3691885a3a5a4*690085a4e8e007d0e060*a9038dc302a9008dc402
  98. 175 data a91f8dc002a9008dbf02*a9198dc102a9928dc202*20038020288020708020
  99. 176 data aa8020f180202b812010*82204c8220018320e882*208383209d8320ea8320
  100. 177 data 198420b684202b852078*854cb085201380603810*0808ff08103818183818
  101. 178 data 18187e00c0300c03c030*0c034a414e5541525946*454252554152594d4152
  102. 179 data 4348415052494c4d4159*4a554e454a554c594155*4755535453455054454d
  103. 180 data 4245524f43544f424552*4e4f56454d4245524445*43454d42455200070f14
  104. 181 data 191c20242a333a424a07*08050503040406090708*08010303030180c0c0c0
  105. 182 data 80534d54575446533229*32313231323231323132*682a01782a01902a80a8
  106. 183 data 2a01b82a01d02a800020*30383c38302000040c1c*3c1c0c04001818181818
  107. 184 data 1818f0e0f0980c060301*8090b0c0d0702a802a90*2ab02ac02a1001000110
  108. 185 data 00000000000000ff0000*0000000000ff00ff00ff*00ff00ff00ff00ff00ff
  109. 186 data -1
  110.