home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 60 / 060.d81 / mugshots (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  89 lines
  1. 10 poke55,0:poke56,56:clr:a$=""
  2. 20 ip=828:un=51456:hg=51459:cm=49784:v=53248
  3. 30 cl$="                                      "
  4. 40 dimg$(100):t=rnd(-ti)
  5. 50 fori=0to2:poke49152+2040+i,i:next
  6. 60 fori=0to5:readc%(i):next
  7. 70 data4,2,1,2,4,0
  8. 80 fori=0to2:forj=0to5:readd%(i,j):next:next
  9. 90 data160,128,160,128,160,128,94,128,94,128,94,128,98,68,98,68,98,68
  10. 100 fori=0to2:pokev+39+i,1:next:pokev+16,0
  11. 110 sys57812"input any.o",8,0:poke780,0:poke781,60:poke782,3:sys65493
  12. 120 gosub580:rem title screen
  13. 130 gosub830:rem  read screen
  14. 140 ifw=0thenprint"          [204]oading picture data":goto170
  15. 150 poke214,22:print:print"        [211][208][193][195][197] [150]- [208]age through text"
  16. 160 print" ([198][150])ender   ([202][150])eff   ([211][150])cott   ([209][150])uit"
  17. 170 z=0:print""tab(28)"   [157][157][157]"p"[159]"
  18. 180 forj=etoe+19
  19. 190 print""g$(j)
  20. 200 next
  21. 210 ifw=0thenw=1:gosub760:goto150
  22. 220 geta$:ifa$=""then220
  23. 230 ifa$<>" "then270
  24. 240 p=p+1:e=e+19:ifp>ptthenp=1:e=1
  25. 250 print"[145][145]":fork=1to20:printcl$"[145][145]":next
  26. 260 goto170
  27. 270 z=0:ifa$="f"thenx=84:z=1:bc=0:goto320
  28. 280 ifa$="j"thenx=104:bc=15:goto320
  29. 290 ifa$="s"thenx=124:bc=11:goto320
  30. 300 ifa$="q"then480
  31. 310 goto220
  32. 320 syscm,x*256,16384,4864
  33. 330 poke249,224:poke250,204
  34. 340 poke251,0:poke252,64
  35. 350 poke253,0:poke254,0
  36. 360 print"[147]";:sysun:syshg:poke53280,bc
  37. 370 poke198,0
  38. 380 ifz=0then460
  39. 390 ifrnd(1)>.01then460
  40. 400 fori=0to2:pokev+39+i,1:poke49152+1016+3*1024+i,i:next:pokev+16,0
  41. 410 fori=0to2:forj=0to5:pokev+j,d%(i,j):next
  42. 420 fork=0to5:pokev+21,c%(k):fort=0to60:next:next:qq=0
  43. 430 qq=qq+1:geta$:ifa$<>""theni=2:next:goto470
  44. 440 ifqq<200then430
  45. 450 next
  46. 460 geta$:ifa$=""then380
  47. 470 syshg:gosub830:goto140
  48. 480 poke214,22:print:printcl$:printcl$"[145][145]"
  49. 490 print"        [209]uit[150] to [204][207][193][196][211][212][193][210]  (y[150]/n[150])"
  50. 500 geta$:ifa$<>"y"anda$<>"n"then500
  51. 510 ifa$="n"then140
  52. 520 open15,8,15,"r0:hello connect=hello connect":input#15,er%:close15
  53. 530 ifer%<>63thenprint"[147]":end
  54. 540 print"[147][151]load"chr$(34)"hello connect"chr$(34)",8"
  55. 550 print"run"
  56. 560 poke631,13:poke632,13:poke198,2:end
  57. 570 print"[147]":poke53281,0:poke53280,0
  58. 580 poke53281,0:poke53280,0:print"[147]"
  59. 590 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]"
  60. 600 print"  [152]                                    "
  61. 610 print"           [205] [213] [199]    [211] [200] [207] [212] [211]         "
  62. 620 print"                                      "
  63. 630 print"          [193] [204][207][193][196][211][212][193][210] [205]enagerie        "
  64. 640 print"                                      "
  65. 650 print"      [215]herein the [204][207][193][196][211][212][193][210] [199]eneral    "
  66. 660 print"           [211]taff [194]ares [201]ts [193]ll        "
  67. 670 print"                                      "
  68. 680 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]"
  69. 690 p=1:pt=0:e=1
  70. 700 open3,8,3,"t.blurb
  71. 710 [129]i[178]0[164]1
  72. 720 [158]828,3,40:h[178]h[170]1:i[178]st
  73. 730 g$(h[170]pt[172]19)[178]a$:[139]h[178]19[167]pt[178]pt[170]1:h[178]0
  74. 740 [130]:[160]3
  75. 750 [142]
  76. 760 [158]57812"unpacker",8,0:[151]780,0:[151]781,0:[151]782,201:[158]65493
  77. 770 [158]57812"cpm",8,0:[151]780,0:[151]781,120:[151]782,194:[158]65493
  78. 780 [158]57812"pic1.shp",8,0:[151]780,0:[151]781,0:[151]782,84:[158]65493
  79. 790 [158]57812"pic2.shp",8,0:[151]780,0:[151]781,0:[151]782,104:[158]65493
  80. 800 [158]57812"pic3.shp",8,0:[151]780,0:[151]781,0:[151]782,124:[158]65493
  81. 810 [158]57812"sprites",8,0:[151]780,0:[151]781,0:[151]782,192:[158]65493
  82. 820 [142]
  83. 830 [151]53281,11:[151]53280,11:[153]"load     (NULL) (NULL) chr$   (NULL) left$ (NULL) (NULL) (NULL)"[163]31)"def of"pt
  84. 840 [153]"stoportantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^";
  85. 850 [129]i[178]1[164]20:[153]"(NULL)"[166]38)"(NULL)";:[130]
  86. 860 [153]"/tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp";
  87. 870 [129]i[178]217[164]242:[151]i,[194](i)[176]128:[130]
  88. 880 [142]
  89.