10 FOR X = 1 TO 10 20 ?"Alarm goes off" 30 ?"Hit snooze" 40 NEXT X 50 ?"Tharsis wakes me up" 60 GOSUB 1000 70 OPEN "EMAIL" FOR INPUT AS #1 80 OPEN "RESUME" FOR OUTPUT AS #2 90 IF EOF(1) THEN 140 100 INPUT #1, j 110 IF j<>"JOB" GOTO 90 120 PRINT #2, "Apply" 130 GOTO 90 140 CLOSE #1 150 CLOSE #2 160 ?"Work on website" 170 ?"Paint" 180 ?"Eat" 190 ?"Find other things to keep me from getting depressed" 200 ?"Fall asleep" 210 GOTO 10 220 END 1000 REM morning routine 1010 ?"Make coffee" 1020 ?"Run dishwasher" 1030 ?"Clean cat-box" 1040 ?"Shower" 1050 ?"Dress" 1060 RETURN
My life in BASIC
Date: 2001-10-03 12:57 pm (UTC)10 FOR X = 1 TO 10
20 ?"Alarm goes off"
30 ?"Hit snooze"
40 NEXT X
50 ?"Tharsis wakes me up"
60 GOSUB 1000
70 OPEN "EMAIL" FOR INPUT AS #1
80 OPEN "RESUME" FOR OUTPUT AS #2
90 IF EOF(1) THEN 140
100 INPUT #1, j
110 IF j<>"JOB" GOTO 90
120 PRINT #2, "Apply"
130 GOTO 90
140 CLOSE #1
150 CLOSE #2
160 ?"Work on website"
170 ?"Paint"
180 ?"Eat"
190 ?"Find other things to keep me from getting depressed"
200 ?"Fall asleep"
210 GOTO 10
220 END
1000 REM morning routine
1010 ?"Make coffee"
1020 ?"Run dishwasher"
1030 ?"Clean cat-box"
1040 ?"Shower"
1050 ?"Dress"
1060 RETURN