home *** CD-ROM | disk | FTP | other *** search
/ Commodore 64 Scene Diskmags Assortment / Gurla_1_19xx_-.d64 / 7 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  42 lines
  1. 10 ifa=0thena=1:load"fm.s",8,8
  2. 20 poke53280,0:poke53281,0:gosub10000
  3. 30 print"[147][154]     koska olemme tutkimuksissamme"
  4. 40 print"     huomanneet, ettei lehti"
  5. 50 print"     menesty, ellei siina ole nk."
  6. 60 print"     pornoa, tassa sita sitten on.":forx=1to3500:next:print"[147]"
  7. 80 print"  tapaamme nyt ensi kerran fuck-manin,"
  8. 90 print"  jonka seikkailuja tulemme seuraamaan"
  9. 100 print"  lehtemme muissakin osissa.":forx=1to3500:next
  10. 1010 print"[147]":gp=53248:pokegp+21,3
  11. 1020 poke2040,230:poke2041,231
  12. 1030 pokegp+39,7:pokegp+40,7
  13. 1040 pokegp,100:pokegp+2,148
  14. 1050 pokegp+1,100:pokegp+3,100
  15. 1060 pokegp+29,3:pokegp+23,3
  16. 1100 forx=1to150:next:poke2040,232:poke2041,233
  17. 1200 forx=1to150:next:poke2040,230:poke2041,231
  18. 1210 geta$:ifa$<>""thenpokegp+21,0:poke203,51
  19. 1220 print"valitettavasti fuck-man on"
  20. 1230 print"talla kertaa iskenyt ruotsalaisen,"
  21. 1240 print"joten todella kiihkea kohtaus esitetaan"
  22. 1250 print"vasta ensi numerossa...":goto1100
  23. 10000 print"[147]"
  24. 10001 print"[158]    [129] [154][146]  [158]    [129] [154][146]  [158]    [129] [154][146]  [158]  [129] [146]   [158] [129][160][146] [158]    [129] [154][146]  [158]  [129] ";
  25. 10002 print"[158] [129] [154][146]  [158] [129] [154][146] [158] [129] [154][146]  [158] [129] [154][146] [158] [129] [154][146]  [158] [129] [154][146] [158]   [129] [146]  [158] [129][160][154][146] [158] [129] [154][146]  [158] [129] [154][146] [158]  [129] ";
  26. 10003 print"[158] [129] [154][146]  [158] [129] [158][146]  [129] [154][146]  [158][160][129] [154][146] [158] [129] [154][146]  [158] [129] [154][146] [158] [129] [158] [129] [146]  [158] [129][160][154][146] [158] [129] [154][146]  [158] [129] [154][146] [158]  [129] ";
  27. 10004 print"[158] [129] [154][146]  [158] [129] [154][146] [158] [129] [154][146]  [158] [129] [154][146] [158] [129] [154][146]  [158] [129] [154][146] [158] [129] [158]  [129] [146] [158] [129][160][154][146] [158] [129] [154][146]  [158] [129] [154][146] [158]  [129] ";
  28. 10005 print"[158]    [129] [158][146] [154] [158] [129][160][154][146]  [158] [129] [154][146] [158]    [129] [154][146]  [158] [129] [146] [158] [129] [146] [158] [129][160][154][146] [158] [129] [154][146]  [158] [129] [154][146] [158]  [129] ";
  29. 10006 print"[158] [129] [154][146]     [158] [129] [154][146]  [158] [129] [154][146] [158] [129] [158] [129] [154][146]   [158] [129] [146] [158]  [129] [158] [129][160][154][146] [158] [129] [154][146]  [158] [129] [154][146] [158]  [129] ";
  30. 10007 print"[158] [129] [154][146]     [158] [129] [154][146]  [158] [129] [154][146] [158] [129] [154][146] [158] [129] [154][146]  [158] [129] [146]  [158]   [129][160][154][146] [158] [129] [154][146]  [158] [129] [154][146] [158] [154] [158] ";
  31. 10008 print" [129] [154][146]      [158]   [129] [154][146]  [158] [129] [154][146]  [158] [129] [154][146] [158] [129] [146]   [158]  [129] [154][146]  [158]   [129] [154][146]  [158]  [129] ";
  32. 10009 print"[146]"spc(11)"[156]                 [223][154]"
  33. 10010 printspc(11)"[156] [146]               [156]  [154]"
  34. 10011 printspc(11)"[156] [146] [154]fuck-man 1986 [156] [160]"
  35. 10012 printspc(11)"[156] [146] [154]              [156] [160][154]"
  36. 10013 printspc(11)"[156] [146] [154]  presents   [156]  [160][154]"
  37. 10014 printspc(11)"[156] [146] [156]               [160][154]"
  38. 10015 printspc(11)"[156]                  [154]"
  39. 10016 printspc(11)"[223]                 [154]"
  40. 10017 geta$:ifa$=""then10017
  41. 10018 return
  42.