home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / ARTAUCT2.64 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  7.1 KB  |  63 lines
  1. 1 GOTO63
  2. 3 A=5:B=28:C=30:D=31:PRINT"[147]":W=198:Z=1:R=53280:POKE808,225:POKE818,32:POKER+Z,0:POKER,0:PRINT"[147]THE          [164]       [164][164][164]":PRINT"[167][205]  [165] [161] [206]   [194]  [194]  [194]":PRINT"[167] [205][160][165] [161][167] [175][175] [171][195][195][179]  [194]":PRINT"[167]  [205][165] [161] [205][164][206] [194]  [194]  [194]
  3. 21 [153]"TO  TO                 TO":[153]"THEN (null)THEN (null) (null)TAB((null)THEN   THENTHEN  THENUSRUSRTHEN (null)":[153]"THENTO(null)THENTO(null)CLOSEFN THENTHEN   THENTHEN  THENLEN THENTO(null)":[153]"THEN  THEN (null) (null)TO(null) (null)(null)(null)(null)THENANDANDTHENANDANDTHEN (null)":[153]"PRINT#                       ":[153]"CLOSEPRINT#CLOSEWAITORLENLENLENLENLENLENLENLENLEN=LENLENLENLENLENLENLENLENLEN^PRINT#CLOSE
  4. 33 PRINT"[160][152][160][146][194] [158]) .   . [194][158].      . [194][152][160]":PRINT"[160][152][160][146][194]    [158].    [194] [158].  [159][206]    [194][152][160]":PRINT"[160][146][194]  [158].   .  [194]  [159][206][206][206] [158]. .[194][152][160]":PRINT"[160][146][194]         [194]  [159][206]      [194][152][160]":PRINT"[160][146][171][195][195][195][195][195][195][195][195][195][219][195][195][195][195][195][195][195][195][195][179][152][160]
  5. 43 [153]"CLOSEWAITPEEK SYS.  .    PEEK         PEEKPRINT#CLOSE":[153]" WAITPEEK   SYS.     PEEK         PEEKPRINT#CLOSE":[153]" WAITPEEK         PEEK         PEEKPRINT#CLOSE":[153]" WAITPEEK         PEEK   CONT(null) (null)   PEEKPRINT#CLOSE":[153]" WAIT/LENLENLENLENLENLENLENLENLEN>LENLENLENLENLENLENLENLENLENEXPPRINT# 
  6. 53 PRINT"                       ":GOTO117::END:::POKE808,225:POKE818,32
  7. 63 GOSUB75:PRINT"[147]":SYS49152:GOTO3::PRINTSPC(13)"PRESS RETURN
  8. 69 :[161]A$:[139]A$[179][177][199](13)[167]69
  9. 71 [158]49155:[128]:[158]49155:[128]
  10. 75 [129]I[178]49152[164]49414:[135]A:[151]I,A:X[178]X[170]A:[130]:[139]X[179][177]34547[167][153]"ERROR":[144]
  11. 79 [142]:[131]24,144,21,120,32,132,255,32,129,255,173,239,192,141,20,3,173,240,192,141,21,3,88,96,120,169,127,141,13,220,173,13,220,173,20,3,141,239,192,173,21,3,141,240,192,169,106,141,20,3,169,192,141,21,3,173,17,208,41,127,141,17,208,169
  12. 89 [131]142,141,241,192,141,18,208,160,1,24,105,2,153,241,192,200,192,9,208,245,169,0,141,250,192,169,252,141,4,193,169,129,141,26,208,169,143,141,25,208,88,96,120,172,250,192,185,251,192,141,32,208,200,140,250,192,192,9,240,17,185,241,192,141
  13. 97 [131]18,208,169,143,141,25,208,104,168,104,170,104,64,173,241,192,201,142,144,7,169,252,141,4,193,208,9,201,55,176,5,169,4,141,4,193,173,241,192,24,109,4,193,141,241,192,141,18,208,173,17,208,41,127,141,17,208,169,150,56,237,241,192,74
  14. 105 [131]74,141,6,193,160,1,173,241,192,24,109,6,193,153,241,192,200,192,4,208,244,200,169,150,24,109,6,193,153,241,192,200,192,9,208,244,169,0,141,250,192,169,143,141,25,208,76,49,234,142,144,146,148,150,152,154,156,158,0,2,5,14,8,9,7,3,4,0,248,8,0::
  15. 117 V[178]53248:[151]2040,13:[129]I[178]0[164]62:[135]A:[151]832[170]I,A:[130]:[151]V[170]21,3:[151]V[170]39,12:[151]V[170]29,1:[151]V[170]1,198:[151]V,207:::[131].,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,32,.,.,112,.,.,112,.,.,168,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.
  16. 139 [131].,.,.,.,.,.,.::[151]2041,14:[129]I[178]0[164]62:[135]A:[151]896[170]I,A:[130]:[151]V[170]21,3:[151]V[170]40,14::[151]V[170]29,3:[151]V[170]3,230:[151]V[170]2,255:[131].,.,.,106,128,.,46,.,.,42,128,.,.,.,.,.,.,.,.,.,.,.,.,.,6,.,.,9,17,224,5,146,144,1,80,224,1,48,128,1,20,144,.,.,.,.,.,.,.
  17. 165 [131].,.,.,.,.,.,.,.,.,.,.,.,.,.:::::[151]646,0:[134]C(12)::M[178]55445:[153]"":[153]" PRESENTS ART AUCTION BY STEVE REED":[129]L[178]0[164]12:[135]C(L):[130]:[129]P[178]1[164]50:[129]L[178]0[164]12:[151]M[170]P[170]L,C(L):[130]:[130]:[137]183:[131]0,11,12,15,1,1,1,1,1,15,12,11,0
  18. 183 :[151]V[170]21,3:::[153]"":[153]"        ALIAS 'THE NIGHT PROWLER'      ":[129]L[178]0[164]12:[135]C(L):[130]:[129]P[178]1[164]50:[129]L[178]0[164]12:[151]M[170]P[170]L,C(L):[130]:[130]:[137]195:[131]0,11,12,15,1,1,1,1,1,15,12,11,0::
  19. 195 [158]49155:[151]53280,0:[151]53281,0:[151]V[170]21,0:[151]53280,0:[151]53281,0:[151]646,1:A$[178]"USRVALSTR$TANASC(null)AND":[129]I[178]1[164]7:A$(I)[178]"  ":[129]J[178]1[164]5:A$(I)[178]A$(I)[170][202](A$,I,1):[130]:[130]:[129]LL[178]1[164]10:[139]LL[178]10[167]207
  20. 201 [129]I[178]1[164]7:[153]A$(I),A$(I),A$(I),A$(I):[130]:[129]I[178]7[164]1[169][171]1:[153]A$(I),A$(I),A$(I),A$(I):[130]:[130]:[137]201:[129]I[178]1[164]7:A$(I)[178]"  ":[129]J[178]1[164]5:A$(I)[178]A$(I)[170][202](A$,I,1):[130]:[130]
  21. 207 [151]53280,0:[151]53281,0:W[178]1:[153]"LOAD":[153][166]9)"SYS**THE NIGHT  PROWLERWAIT**":[153][166]16)"PRESENTS":[153][166]15)"CONTSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(":[153][166]15)"SPC(         SPC(":[153][166]15)"SPC(   ART  CONT SPC(":[153][166]15)"SPC( AUCTIONCONT SPC(":[153][166]15)"SPC(         SPC(":[153][166]15)"SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(":[153]"PROGRAMMED BY OPENSTEVE REED
  22. 219 PRINT" HIT ANY KEY TO START!!!
  23. 221 [161]Y$:[139]Y$[178]""[167]221
  24. 223 [153]"LOAD":[134]P(10),S(10),F(10):[129]I[178]1[164]10:F(I)[178]0:[130]
  25. 229 [129]I[178]1[164]10:[139]P(I)[179]500[167]S(I)[178][181](P(I)[172].7[172][187](1))
  26. 233 P(I)[178]100[170][181](900[172][187](1)):S(I)[178][181](P(I)[172][187](1)):[139]P(I)[179]500[167]S(I)[178][181](P(I)[172].7[172][187](1))
  27. 241 [130]:[129]I[178]1[164]10:[139]F(I)[177]1[167][137]275
  28. 247 [141]345:[145]I[141]371,387,405,421,439,457,469,485,507,529:::[153][166]12)"BUY PAINTING";I:[153][166]12)"OPEN    WEEK";W:[153][166]13)"CLR  PROFIT";P:[153]"DEFPRICE RANGES:";[181](P(I)[171].5[172]S(I));P(I);[181](P(I)[170].5[172]S(I))
  29. 261 [133]"YOUR BID $";YB:[139]YB[177]2000[167]261
  30. 265 [153]"VERIFYOPPONENT'S BID $";CB;".":[139]YB[177]CB[167][153]"CONTYOU BOUGHT IT!":F(I)[178]YB:[137]271
  31. 269 [153]"POKESORRY, YOU WERE OUT BID.
  32. 271 FORK=1TO700:NEXT
  33. 275 NEXT:FORI=1TO10:IFF(I)=0THEN303
  34. 281 FORK=1TOINT(5*RND(1)):GOSUB345:CB=CB+INT(100*RND(1)):ONIGOSUB371,387,405,421,439,457,469,485,507,529:::PRINTSPC(11)"[156]SELL PAINTING";I:PRINT"YOU BOUGHT IT FOR $";F(I):PRINT"THE AVERAGE OFFER IS $";P(I)+50:PRINT"[154]OFFER #";K;"IS $";CB:INPUT"ACCEPT";Y$:IFY$="Y"THENP=P+CB-F(I):F(I)=0:GOTO303
  35. 299 NEXT:P=P-50
  36. 303 FORK=1TO500:NEXT:NEXT:W=W+1:IFW=11THEN313:GOTO229
  37. 311 GOTO229
  38. 313 PRINT"[147]ALL PAINTINGS HAVE BEEN SOLD":PRINT"PROFIT FROM YOUR INVESTMENT IS $";P:IFP<1000THENPRINT"YOU SHOULD STICK TO STAMPS!
  39. 319 [139]P[177]999[175]P[179]1500[167][153]"YOU SHOULD SAVE YOUR MONEY!!
  40. 321 IFP>1499ANDP<2000THENPRINT"WHY NOT TRY FINGER PAINTINGS!!
  41. 323 [139]P[177]1999[175]P[179]2500[167][153]"KEEP TRYING!!!
  42. 325 IFP>2499ANDP<3000THENPRINT"AMATEUR INVESTOR!!
  43. 327 [139]P[177]2999[175]P[179]3500[167][153]"NOT TOO SHABBY!!
  44. 329 IFP>3499ANDP<4000THENPRINT"PRETTY GOOD!!!
  45. 331 [139]P[177]3999[175]P[179]4500[167][153]"YOU SHOULD DO THIS FOR A LIVING!!!
  46. 333 IFP>4499ANDP<5000THENPRINT"WOW!! WHAT PROFITS!!!
  47. 335 [139]P[177]4999[167][153]"UNBELEIVALBE PROFITS!!!
  48. 337 ::INPUT"PLAY AGAIN";Y$:IFY$="Y"THENCLR:RUN
  49. 343 END
  50. 345 D=0:N=INT(65536*RND(1)):FORJ=1TO16:Q=INT(N/2):D=D+2*(N/2-Q):N=Q:NEXT:CB=P(I)+S(I)*(D-8)/8:CB=CB+20*RND(1):CB=INT(CB):RETURN:END::
  51. 371 PRINT"[147][151][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214]":PRINT"[214] [158]. [153]   [146]    [146]   [151][214]":PRINT"[214]  [158][213][201][156][173][189][153] [156][146][218][158][213][201] [209] [151][214]":PRINT"[214]  [153]    [146]     [146]  [151][214]":PRINT"[214][169]           [223][151][146][214]":PRINT"[214][214][214][214][214][214][214][214][214][214][214][214][214][214][214]":RETURN::
  52. 387 PRINT"[147][152][176][195][195][195][195][195][195][195][195][195][195][174]":PRINT"[194][151][205][164][164][164][164][164][164][164][164][206][152][194]":PRINT"[194][151][167] [159])[158].  .  [151][165][152][194]":PRINT"[194][151][167]   [158].  [209] [151][165][152][194]":PRINT"[194][151][167] [158].    . [151][165][152][194]":PRINT"[194][151][206][163][163][163][163][163][163][163][163][205][152][194]":PRINT"[173][195][195][195][195][195][195][195][195][195][195][189]":RETURN::
  53. 405 PRINT"[147][155]            ":PRINT" [146][171][179][171][179][152][171][179][155][171][179][171][179][160]":PRINT" [146] [154][215] [155][214][152][171][179][155][214] [154][215] [155] ":PRINT"[160][152][146][175][155][175][152][175][206][171][179][205][175][175][155][175] ":PRINT" [146][183][152][183][155][183][152][205][171][179][206][155][183][183][152][183][155][160]":PRINT"            ":RETURN::
  54. 421 PRINT"[147][150]          ":PRINT"         [150] ":PRINT" [149]  [150]    [149]  [150] ":PRINT" [151]  [150] [158]  [150] [151]  [150] ":PRINT" [149]  [150]    [149]  [150] ":PRINT"         [150] ":PRINT"          ":RETURN::
  55. 439 PRINT"[147][176][177][177][177][177][177][177][177][177][177][177][177][177][174]":PRINT"[179]          [209] [152][146][171]":PRINT"[179]        [180]   [152][146][171]":PRINT"[179]        [180]   [152][146][171]":PRINT"[179][154]      [205][175][175][206]  [152][146][171]":PRINT"[179][154]            [152][146][171]":PRINT"[173][178][178][178][178][178][178][178][178][178][178][178][178][189]":RETURN::
  56. 457 PRINT"[147][155]               ":PRINT" [152][164][175][185][162][184][183][163][183][184][162][185][175][164][155] ":PRINT" [152][163][183][184][162][185][175][164][175][185][162][184][183][163][155] ":PRINT"               ":RETURN::
  57. 469 PRINT"[147][155]               ":PRINT"              [155] ":PRINT"[160][146] [164][175][185][162][184][183][163][163][163][183][184][146][162][155] ":PRINT"             [159] [155] ":PRINT"            [159]  [155] ":PRINT"               ":RETURN::
  58. 485 PRINT"[147][152]       ":PRINT" [154]   [154]  [152] ":PRINT" [154]    [154] [152] ":PRINT"      [152] ":PRINT"      [152] ":PRINT" [155]  [153] [155]  [152] ":PRINT" [155]  [153] [155]  [152] ":PRINT" [155]  [153] [155]  [152] 
  59. 501 [153]"       ":[142]::
  60. 507 [153]"LOADPOKE  NIGHT PROWLER  ":[153]"CLOSEPRINT#WAITORLENLENLENLENLENLEN=LENLENLENLENLENLEN^POKE ":[153]"CLOSEPRINT#WAITPEEK SYS). . PRINT#PEEK   OPEN/  PRINT#PEEKPOKE ":[153]"CLOSEPRINT#WAITPEEK   SYS.  PRINT#PEEK  OPEN//  PRINT#PEEKPOKE ":[153]"CLOSEPRINT#WAIT-LENLENLENLENLENLEN(null)LENLENLENLENLENLEN<POKE 
  61. 517 PRINT"[160][152][146][194]      [194]      [194][151] ":PRINT"[160][152][146][194]      [194] [154][215] [215]  [152][194][151] ":PRINT" [152][146][173][195][195][195][195][195][195][177][195][195][195][195][195][195][189][151] ":PRINT"                 ":RETURN::
  62. 529 PRINT"[147][152]          ":PRINT" [159][146][196] [196][197][198][197][198] [152][160]":PRINT" [156][146]? [150][215][211][159][174][176][187] [152] ":PRINT" [146] [156]/  [150]X+- [152] ":PRINT" [146][191][187][156][165][187][172][172]  [152] ":PRINT" [146]   X[216][158]#[166][220][152] ":PRINT"          ":RETURN
  63.