home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Software / SEXY-AMOEBA (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  4KB  |  91 lines
  1. 0 :FORD=1TO100*A:NEXT:IFA>0THEN RETURN:   :*:*:*:*:*:*:*:*:*:*:*:*:*:*:*:*:*:*:
  2. 2 REM"[141][145] [154]::::::::::::::::::::::::::::::::::::::
  3. 4 [143]"GOSUBON CONT::::::                          ::::::
  4. 6 REM"[141][145] [154]::::::   [150][193] [211][212][213][208][201][196] CARTOON....   [154]::::::
  5. 8 [143]"GOSUBON CONT::::::                          ::::::
  6. 10 REM"[141][145] [154]::::::   [150][194]Y THAT STUPID JERK -  [154]::::::
  7. 12 [143]"GOSUBON CONT::::::                          ::::::
  8. 14 REM"[141][145] [154]::::::  [150][202]IM [199]REEN, WHO DOSN'T   [154]::::::
  9. 16 [143]"GOSUBON CONT::::::                          ::::::
  10. 18 REM"[141][145][154] ::::::     [150]KNOW ANY BETTER!     [154]::::::
  11. 20 [143]"GOSUBON CONT::::::                          ::::::
  12. 22 REM"[141][145] [154]::::::::::::::::::::::::::::::::::::::[154]
  13. 24 Z[178]828:[129]J[178]Z[164]843:[135]X:[151]J,X:[130]
  14. 26 [131] 32,155,183,138,72,32,155,183,104,170,164,101,24,76,240,255
  15. 28 [153]"LOADRETURN":[151]53280,11:[151]53281,11:[158]Z,8,0:S[178]54272:[141]162
  16. 30 [158]Z,15,7:[153]"THE GREAT ADVENTURE OF....
  17. 32 PRINT"     AMIGA, THE SEXY LITTLE AMOEBA.":A=40:GOSUB:PRINT"[147]"
  18. 34 SYSZ,20,0:GOSUB162
  19. 36 R$="[157][157][157][157][157][157][157][157]":J$=R$+"[157]":S$=J$+"[157][157]":W$=S$+"[157][157]":V$=W$+"[157][157]"
  20. 38 A$="           "+S$+"  [213][196][201] [213][196][196][201] "+S$+" [213][203] [202][198][203][160][160][200] "+S$+" [200]  [150][209]   [213][203] "+S$
  21. 40 A$=A$+" [202][198][198][201]   [200]  "+S$+"    [202][198][210][198][203]  "+S$+"           "
  22. 42 C$="             "+W$+"   [213][201][213][201]  [213][201]  "+W$+" [213][198][203][202][203][199][213][196][203][200]  "+W$+" [199]    [202][203]  [200]  "
  23. 44 C$=C$+W$+" [202][198][201] [150][209][192][209]  [202][201] "+W$+"   [199]  [213][201]   [200] "+W$+"   [202][198][198][203][202][198][210][198][203] "+W$
  24. 46 C$=C$+"             ":
  25. 48 B$="             "+W$+"   [213][201] [213][201] [213][201]  "+W$+" [213][196][203][202][198][203][202][198][203][199]  "+W$+" [202][201]       [202][201] "
  26. 50 B$=B$+W$+"  [202][201] [150] [215]-[215] [213][203] "+W$+"   [200]   [213][201] [202][201] "+W$+"   [202][198][210][198][203][202][198][198][203] "+W$
  27. 52 B$=B$+"             "
  28. 54 N$="           "+S$+"   [213][201] [213][196][201]  "+S$+" [213][196][203][202][198][203] [202][201] "+S$+" [202][201]   [150][209]  [200] "+S$
  29. 56 N$=N$+"  [202][198][201]  [213][198][203] "+S$+"    [202][198][198][203]   "+S$+"            "
  30. 58 E$="               "+V$+" [213][196][196][201]   [213][196][196][201]   "+V$+" [200]  [202][201] [213][203] [160][202][192][201] "+V$
  31. 60 E$=E$+" [202][201]  [202][198][203]  [150][215]  [200] "+V$+" [213][203]    [150]-    [213][203] "+V$+" [202][201] [150][215] [213][196][201]   [200]  "
  32. 62 E$=E$+V$+"  [202][198][210][198][203] [202][198][210][198][203]  "+V$+"               "
  33. 64 F$="               "+V$+" [213][196][197][196][201] [213][196][197][197][196][201]  "+V$+" [199]   [202][198][203]  [160] [200]  "+V$
  34. 66 F$=F$+" [202][201]   [150][209]     [202][201] "+V$+"  [199]      [150][209] [213][198][203] "+V$+"  [200]    [213][201]  [200]   "
  35. 68 F$=F$+V$+"  [202][198][192][198][192][203][202][198][198][203]   "+V$+"               "
  36. 70 G$="        "+R$+" [213][196][196][201]   "+R$+" [199]  [202][201]  "+R$
  37. 72 G$=G$+" [202][201]  [202][201] "+R$+" [213][203] [150][215] [200] "+R$+" [202][201]   [199] "+R$
  38. 74 G$=G$+" [160][202][198][210][198][203] "+R$+"        "
  39. 76 I$="         "+J$+"  [213][196][196][201]   "+J$+" [213][203]  [202][192][201] "+J$
  40. 78 I$=I$+" [202][201]    [200] "+J$
  41. 80 I$=I$+" [213][203] [150][215] [213][203] "+J$+" [202][201]   [200]  "+J$+"  [202][198][210][198][203]  "+J$+"         "
  42. 82 K$="        "+R$+" [213][196][201]    "+R$+" [202][201][202][198][201]  "+R$
  43. 84 K$=K$+" [213][203]  [202][201] "+R$+" [199]  [150][215][213][203] "+R$+" [202][201][213][201][202][201] "+R$
  44. 86 K$=K$+" [160][202][203][202][198][203] "+R$+"        "
  45. 88 L$="         "+J$+"  [213][196][201]    "+J$+" [213][203] [202][196][201]  "+J$+" [199]  [150][215] [200]  "+J$
  46. 90 L$=L$+" [202][201]   [202][201] "+J$+" [213][203][213][196][201][213][203] "+J$+" [202][198][203] [202][203]  "+J$+"         "
  47. 92 GOSUB172:X=4:FORT=1TO11:SYSZ,5,X:PRINTA$:A=1.5:GOSUB:X=X+1
  48. 94 IFT=1THENPRINT""TAB(16)"[158]AAH! AAH!
  49. 96 [139]T[178]3[167][153]""[163]16)"SYSOOO-AHH! "
  50. 98 [139]T[178]7[167][153]""[163]15)"OPENOOH! OOH!
  51. 100 IFT=10THENPRINT""TAB(13)"[150]UH!UH!UHH!!
  52. 102 [158]Z,4,X:[153]N$:[141]:X[178]X[170]1:[130]
  53. 104 [153]"SYS    GEE! I'M FEELING A BIT ROMANTIC!CONT"
  54. 106 X[178]26:[129]T[178]1[164]7:[158]Z,5,X:[153]A$:A[178]2:[141]:X[178]X[171]1
  55. 108 [158]Z,5,X:[153]N$:[141]:X[178]X[171]1:[130]
  56. 110 [151]781,1:[158]59903:[158]Z,6,14:[153]N$:[141]:[158]Z,9,19:[153]"DEF(null) (null)":A[178]3:[141]
  57. 112 A[178]2.5:[129]T[178]1[164]6
  58. 114 [139][181](T[173]2)[178]T[173]2[167][158]Z,6,13:[153]C$:[141]:[158]Z,5,12:[153]B$:[137]118
  59. 116 [158]Z,6,12:[153]C$:[141]:[158]Z,5,13:[153]B$
  60. 118 [139]T[178]3[167][158]Z,15,3:[153]"DEFI'M SO EXCITED I COULD JUST SPLIT!
  61. 120 GOSUB:NEXT
  62. 122 H=11:FORT=1TO10:SYSZ,5,H:PRINTE$:A=2:GOSUB:POKE781,15:SYS59903
  63. 124 SYSZ,5,H:PRINTF$:H=H+1:GOSUB:NEXT
  64. 126 H=19:FORT=1TO8:SYSZ,5,H:PRINTF$:GOSUB
  65. 128 SYSZ,5,H:PRINTE$:H=H-1:GOSUB:NEXT
  66. 130 SYSZ,8,17:PRINT"[200] [199][157][157][157][202][201][200][157][157][199][202]":GOSUB:I=11:H=19:FORT=1TO7
  67. 132 IFINT(T/2)=T/2THENSYSZ,4,I:PRINTG$:GOSUB:SYSZ,5,I-1:PRINTK$:GOTO136
  68. 134 SYSZ,5,I:PRINTG$:GOSUB:SYSZ,4,I-1:PRINTK$
  69. 136 GOSUB
  70. 138 IFINT(T/2)<>T/2THENSYSZ,5,H:PRINTI$:A=1:GOSUB:SYSZ,4,H+1:PRINTL$:GOTO142
  71. 140 SYSZ,4,H:PRINTI$:GOSUB:SYSZ,5,H+1:PRINTL$
  72. 142 GOSUB:H=H+1:I=I-1:NEXT
  73. 144 FORT=1TO10:SYSZ,4,4:PRINTG$:GOSUB:SYSZ,5,25:PRINTI$:GOSUB
  74. 146 PRINT"[150]HOW' BOUT IT BABY...               "
  75. 148 PRINT"[158]WAS IT AS GOOD FOR ME AS IT WAS FOR ME!":GOSUB
  76. 150 SYSZ,5,5:PRINTK$:GOSUB:SYSZ,4,26:PRINTL$:GOSUB:IFT>7THENGOSUB172
  77. 152 NEXT:POKES+4,130:GOSUB:PRINT"[150]"
  78. 154 PRINT"  SEE AMIGA AGAIN OR LET HIM GO  A/G                [163]                [163]
  79. 156 [161]G$:[139]G$[179][177]"A"[175]G$[179][177]"G"[167]156
  80. 158 [139]G$[178]"A"[167][138]
  81. 160 A[178]30:[139]G$[178]"G"[167] [141]:[151]53280,14:[151]53281,6:[153]"LOADCONT"
  82. 161 [128]
  83. 162 [153]"OPENORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^";
  84. 164 [153]"(null) DEF    WAITUSR(null)    WAIT(null)(null)    WAITUSR(null)    WAITUSR(null)    WAITUSR(null)    WAITUSR(null) OPEN(null)";
  85. 166 [153]"(null) SYS    WAITDEFANDSQR SYS   WAITDEFTHENTHEN SYS   WAIT DEFTHEN SYS   WAITDEFAND  SYS   WAITDEFANDSQR SYS   WAITDEFANDSQR OPEN(null)";
  86. 168 [153]"(null) DEF    WAIT THEN    WAITTHENTHEN    WAITANDSQR    WAITANDSQR    WAITANDSQR    WAIT THEN OPEN(null)";
  87. 170 [153]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXPCMDSAVETAN";:[142]
  88. 172 [151]S,20:[151]S[170]1,5:[151]S[170]23,1
  89. 174 [151]S[170]24,79:[151]S[170]5,15:[151]S[170]6,246:[151]S[170]15,30:[151]S[170]14,30
  90. 176 [129]TS[178]1[164]4:[151]S[170]4,131:[129]F[178]250[164]50[169][171]1.5:[151]S[170]22,F:[151]S[170]1,F:[130]:[142]
  91.