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