start tok64 d64-AUktXf 0 REM *********************** 1 REM *** sp]ningsprogram *** 2 REM *** av *** 3 REM *** ulf tidstrand *** 4 REM *** april 1988. *** 5 REM *********************** 9 REM *** rubrik *** 10 PRINT"{clear}{reverse on}sp]ningsprogram av ulf t. april 1988." 11 PRINT"{down}{white} skriv de sex som du gillar mest!" 12 FORt=1TO6 13 PRINT"namn #";t;:INPUTa$(t) 14 NEXT 15 PRINT"{down} nu kommer jag att r[kna och du ska{space*5}trycka p] {reverse on}space{reverse off} n[r du vill" 16 PRINT"{down} {reverse on}tryck {reverse on}f1{reverse off} f{pound}r start" 17 GETv$:IFv$<>"{f1}"THEN17 18 FORt=1TO6 19 PRINT"{home}{down*23}";t 20 GETv$:IFv$=" "THEN23 21 NEXT 22 GOTO18 23 PRINT"{down} du kommer att gifta dig med:" 24 PRINT"#"t" n[mligen "a$(t):a=t 25 FORt=1TO1000:NEXT 26 PRINT" skriv sex land som du vill bo i." 27 FORt=1TO6 28 PRINT"land #";t;:INPUTb$(t) 29 NEXT 30 PRINT"{down} nu kommer jag att r[kna och du ska{space*5}trycka p] {reverse on}space{reverse off} n[r du vill" 31 PRINT"{down} {reverse on}tryck f1 f{pound}r start" 32 GETv$:IFv$<>"{f1}"THEN32 33 FORt=1TO6 34 PRINT"{home}{down*23}";t 35 GETv$:IFv$=" "THEN38 36 NEXT 37 GOTO33 38 PRINT"{down} du kommer att bo i ";b$(t)".":b=t 39 FORt=1TO1000:NEXT 40 PRINT"{down} skriv sex saker du skulle vilja bo i." 41 FORt=1TO6 42 PRINT"sak #"t;:INPUTc$(t) 43 NEXT 44 PRINT"{down} nu kommer jag att r[kna och du ska{space*5}trycka p] {reverse on}space{reverse off} n[r du vill" 45 PRINT"{down} {reverse on}tryck f1 f{pound}r start" 47 GETv$:IFv$<>"{f1}"THEN47 48 FORt=1TO6 49 PRINT"{home}{down*23}";t 50 GETv$:IFv$=" "THEN53 51 NEXT 52 GOTO48 53 PRINT"du kommer att bo i "c$(t)".":c=t 54 FORt=1TO2000:NEXT 55 PRINT"{clear}s] h[r blir det:" 56 PRINT"du kommer att gifta dig med:" 57 PRINTa$(a) 58 PRINT"du kommer att bo i:" 59 PRINTb$(b) 60 PRINT"du kommer att bo i:" 61 PRINTc$(c) 62 FORt=1TO4000 63 NEXT 64 REM *** fattig eller rik ? *** 65 PRINT"nu kommer det avg{pound}rande{!*3}" 66 FORt=1TO2000:NEXT 67 PRINT"kommer du att vara fattig eller rik ?" 68 FORt=1TO2000:NEXT 69 PRINT"tryck p] space n[r du vill!" 70 FORt=1TO2 71 GETv$:IFv$=" "THEN74 72 NEXT 73 GOTO70 74 PRINT"du kommer att vara:" 75 FORx=1TO5000:NEXT 76 IFt=1THENPRINT"rik{!*3} grattis{!*3}" 77 IFt=2THENPRINT"fattig! jag [r ledsen!" 78 FORt=1TO5000:NEXT 79 PRINT"vill du g{pound}ra det en g]ng till? (j/n)":INPUTv$ 80 IFv$="j"THENRUN 81 IFv$="n"THENEND 82 GOTO79 stop tok64 (bastext 1.0)