10 REM *************************************
20 REM *                 *                 *
30 REM * = PARTYT =      * Ett program     *
40 REM *                 * helt i kvinno-  *
50 REM * (c)    86-09-09 * frig|relsens    *
60 REM * C. INGEMANSSON  * anda!!!         *
70 REM * 606             *                 *
80 REM *                 *                 *
90 REM *************************************
100 T$(1)='G] DIT' : T$(2)='Knacka p} d|rren!'
105 T$(3)='Blir du inbjuden?' : T$(4)='Kan du charma dig in?'
110 T$(6)='N}gra roliga flickor?' : T$(7)='Ta en drink!'
115 T$(8)='[r hon ensam?' : T$(9)='V}gar du?' : T$(5)='G] IN'
120 U$(1)='Fr}ga om hon vill dansa!' : U$(2)='Vill hon?'
125 U$(3)='Bjud henne p} en drink!' : U$(4)='Dansa!'
130 U$(5)='F|rs|k att kyssa henne!' : U$(6)='Har hon l{mnat dig?'
135 U$(7)='TA EN DRINK OCH B\RJA OM MED N]GON ANNAN!'
140 U$(8)='Tafsa lite!' : U$(9)='Ta henne med upp!' : V$(1)='!! HEPP !!' : V$(2)='Kan du fortfarande?'
150 V$(3)='H}ller partyt fortfarande p}?' : V$(4)='G} hem!' : V$(6)='    ' : V$(7)='=VILL HON='
160 V$(5)='SOV GOTT' : R=0
170 REM -----------------------------------------------------------------------
180 ; CHR$(12); : GOSUB 830
190 ; CUR(12,X)'==> Svara J f|r JA och N f|r NEJ <==' : GOSUB 690 : ; CHR$(12)
200 ; CUR(12,Y)'==> PARTYT <=='
210 FOR L=1 TO 2000 : NEXT L
220 ; CHR$(12);
230 R=R+1 : ; V$(6);T$(1);V$(6) : ; : GOSUB 690
240 R=R+1 : ; V$(6);T$(2);V$(6) : ; : GOSUB 710 : GOSUB 690
250 R=R+1 : ; V$(6);T$(3);V$(6); : GET S$ : ; : GOSUB 800
260 IF S$='J' 420 ELSE 410
270 IF S$='J' 420 ELSE ; : GOTO 240
280 IF S$='J' 450 ELSE 440 : GOTO 430
290 IF S$='J' 460 ELSE 440
300 IF S$='J' 470 ELSE 440
310 IF S$='J' ; : GOTO 490 ELSE ; : GOTO 520
320 IF S$='J' 560 ELSE 660
330 IF S$='J' 540 ELSE 540
340 IF S$='J' 560 ELSE 660
350 IF S$='J' 580 ELSE 520
360 IF S$='J' 600 ELSE 440
370 IF S$='J' 590 ELSE 620
380 IF S$='J' 620 ELSE 640
390 IF S$='J' 670 ELSE 520
400 REM ----------------------------------------------------------------------
410 R=R+1 : ; V$(6);T$(4);V$(6); : GET S$ : GOSUB 800 : GOTO 270
420 R=R+1 : ; V$(6);T$(5);V$(6) : GOSUB 690 : GOSUB 800 : GOTO 430
430 R=R+1 : ; V$(6);T$(6);V$(6); : GET S$ : ; : GOSUB 800 : GOTO 280
440 R=R+1 : ; V$(6);T$(7);V$(6) : GOSUB 690 : GOSUB 800 : GOTO 430
450 R=R+1 : ; V$(6);T$(8);V$(6); : GET S$ : ; : GOSUB 800 : GOTO 290
460 R=R+1 : ; V$(6);T$(9);V$(6); : GET S$ : ; : GOSUB 800 : GOTO 300
470 R=R+1 : ; V$(6);U$(1);V$(6) : GOSUB 690 : GOSUB 800
480 R=R+1 : ; V$(6);U$(2);V$(6); : GET S$ : GOSUB 800 : GOTO 310
490 R=R+1 : ; V$(6);U$(4);V$(6) : GOSUB 690 : GOSUB 800
500 R=R+1 : ; V$(6);U$(5);V$(6) : GOSUB 690 : GOSUB 800
510 R=R+1 : ; V$(6);U$(2);V$(6); : GET S$ : ; : GOSUB 800 : GOTO 320
520 R=R+1 : ; V$(6);U$(3);V$(6) : GOSUB 690 : GOSUB 800
530 R=R+1 : ; V$(6);U$(2);V$(6); : GET S$ : ; : GOSUB 800 : GOTO 330
540 R=R+1 : ; V$(6);T$(7);V$(6) : GOSUB 690 : GOSUB 800 : GOTO 500
550 R=R+1 : ; V$(6);U$(2);V$(6); : GET S$ : ; : GOSUB 800 : GOTO 340
560 R=R+1 : ; V$(6);U$(8);V$(6) : GOSUB 690 : GOSUB 800
570 R=R+1 : ; V$(6);U$(2);V$(6); : GET S$ : ; : GOSUB 800 : GOTO 350
580 R=R+1 : ; V$(6);U$(9);V$(6) : GOSUB 690 : GOSUB 800
590 R=R+1 : ; V$(6);V$(7);V$(6); : GET S$ : ; : GOSUB 800 : GOTO 360
600 R=R+1 : ; V$(6);V$(1);V$(6) : GOSUB 710 : GOSUB 690 : GOSUB 710 : GOSUB 690 : GOSUB 710 : GOSUB 800
610 R=R+1 : ; V$(6);V$(2);V$(6); : GET S$ : ; : GOSUB 800 : GOTO 370
620 R=R+1 : ; V$(6);T$(7);V$(6) : GOSUB 690 : GOSUB 800
630 R=R+1 : ; V$(6);V$(3);V$(6); : GET S$ : ; : GOSUB 800 : GOTO 380
640 R=R+1 : ; V$(6);V$(4);V$(6) : GOSUB 690 : GOSUB 800
650 ; CHR$(12)CUR(12,Z)V$(6);V$(6);V$(5);V$(6);V$(6) : GOSUB 690 : GOTO 730
660 R=R+1 : ; V$(6);U$(6);V$(6); : GET S$ : ; : GOSUB 800 : GOTO 390
670 R=R+1 : ; V$(6);U$(7);V$(6) : GOSUB 690 : GOSUB 800 : GOTO 450
680 REM ----------------------------------------------------------------------
690 FOR L=1 TO 2000 : NEXT L : RETURN 
700 REM ----------------------------------------------------------------------
710 FOR A%=10% TO -10% STEP -1% : FOR S%=1% TO 10% : OUT 6%,0%,6%,121% : FOR D%=1 TO A%
715 NEXT D% : NEXT S% : NEXT A%
720 RETURN 
725 REM -----------------------------------------------------------------------
730 ; CUR(22,0)'==> Nytt party (J/N) '; : GET S$
740 IF S$='J' GOTO 10 ELSE Z=CALL(292)
790 REM -----------------------------------------------------------------------
800 IF R=12 THEN 810 ELSE ; 
805 RETURN 
810 ; CHR$(12); : R=0 : RETURN 
820 REM -----------------------------------------------------------------------
830 IF PEEK(900)=40 THEN 840 ELSE 850
840 X=1 : Y=11 : Z=3 : RETURN 
850 X=20 : Y=30 : Z=19 : RETURN