1 PRINT ABS(42.3) 2 VV=ABS(-6.124) 3 ACCEPT AT(5,7):Y 4 ACCEPT VALIDATE("YN"):R$ 5 ACCEPT ERASE ALL:B 6 ACCEPT AT(R,C)SIZE(FIELDLEN)BEEP VALIDATE(DIGIT,"AYN"):X$ 7 ACCEPT B$ 8 ACCEPT VALIDATE(UALPHA,"AYN")SIZE(FIELDLEN)BEEP:X$ 9 ACCEPT VALIDATE(NUMERIC,"AYN")BEEP ERASE ALL SIZE(FIELDLEN):X$ 10 PRINT ASC("A") 11 B=ASC("1") 12 DISPLAY ASC("HELLO") 13 PRINT ATN(0) 14 Q=ATN(.44) 15 BREAK 14 16 BREAK 120,130 17 BREAK 200,300,1105 18 CALL CHAR(32,"0011223344556677") 19 CALL CHAR(33,"FF",40,"AA",124,"FFFFF") 20 CALL CHARPAT(33,A$) 21 CALL CHARPAT(33,A$,44,B$) 22 CALL CHARSET 23 PRINT CHR$(72) 24 X$=CHR$(33) 25 CALL CLEAR 26 OPEN #1:"CS1",FIXED,OUTPUT 27 OPEN #23:"DSK.MYDISK.X",RELATIVE 100,INTERNAL,UPDATE,FIXED 28 OPEN #243:A$,INTERNAL 29 OPEN #17:"TP",OUTPUT 30 OPEN #2 31 OPEN #2:"WD1.TEST",SEQUENTIAL,DISPLAY ,INPUT ,VARIABLE 32 OPEN #3:"RS232.BA=9600.DA=7",RELATIVE 2,INTERNAL,APPEND,FIXED 64 33 OPEN #A:"CS2",SEQUENTIAL,INTERNAL,OUTPUT,VARIABLE 222,PERMANENT 34 CLOSE #24 35 CLOSE #A:DELETE 36 CALL COINC(#1,#28,2,A) 37 CALL COINC(#10,1,3,20,B) 38 CALL COINC(ALL,C) 39 CALL COLOR(3,5,8) 40 CALL COLOR(#5,16) 41 CALL COLOR(#7,INT(RND*16+1)) 42 CALL COLOR(#1,1,#2,3) 43 CALL COLOR(1,10,8,2,10,8) 44 PRINT COS(A);COS(B) 45 PRINT COS(B*PI/180) 46 DATA 2,4,6,7,8 47 DATA 1,2,3,4,5 48 DATA """THIS HAS QUOTES""" 49 DATA " NO QUOTES, HERE" 50 DATA NO QUOTES HERE EITHER 51 DATA 1,NUMBER,,TI 52 DATA HELLO,TI,WORLD :: CALL CLEAR 53 DEF PAY(OT)=40*RATE+1.5*RATE*OT 54 DEF RND20=INT(RND*20+1) 55 DEF FIRSTWORD$(NAME$)=SEG$(NAME$,1,POS(NAME$," ",1)-1) 56 DELETE "DSK1.INTERNET" 57 CALL DELSPRITE(#3) 58 CALL DELSPRITE(#4,#3*C) 59 CALL DELSPRITE(ALL) 60 DIM X$(30) 61 DIM D(100),B(10,9) 62 DISPLAY AT(5,7):Y 63 DISPLAY ERASE ALL:B 64 DISPLAY AT(R,C)SIZE(FIELDLEN)BEEP:X$ 65 DISPLAY BEEP ERASE ALL 66 DISPLAY AT(R,C)BEEP SIZE(2):X$ 67 DISPLAY AT(10,4):USING "##.##":N 68 DISPLAY USING "##.##":N 69 DISPLAY USING RPT$("#",5)&V$:A(12) 70 CALL DISTANCE(#3,#4,DIST) 71 CALL DISTANCE(#4,18,89,D) 72 END 73 PRINT EOF(3) 74 IF EOF(27)<>0 THEN 1150 75 IF EOF(27)THEN 1150 76 CALL ERR(A,B) 77 CALL ERR(W,X,Y,Z) 78 Y=EXP(7) 79 L=EXP(4.394960467) 80 FOR A=1 TO 5 STEP 2 81 FOR J=7 TO -5 STEP -.5 82 FOR C=1 TO -3 83 CALL GCHAR(12,16,X) 84 CALL GCHAR(R,C,K) 85 GOSUB 200 86 GO SUB 201 87 GO TO 88 88 GOTO 89 89 CALL HCHAR(12,16,33) 90 CALL HCHAR(1,1,ASC("!"),768) 91 CALL HCHAR(R,C,K,T) 92 IF X>5 THEN GOSUB 300 ELSE X=X+5 93 IF Q THEN C=C+1 :: GOTO 500 ELSE L=L/C :: GOTO 300 94 IF A>3 THEN 300 ELSE A=0 :: GOTO 10 95 IF A$="Y" THEN COUNT=COUNT+1 :: DISPLAY AT(24,1):"HERE WE GO AGAIN!" :: GOTO 300 96 IF HOURS<=40 THEN PAY=HOURS*WAGE ELSE PAY=HOURS*WAGE+.5*WAGE*(HOURS-40):: OT=1 97 IF A=1 THEN IF B=2 THEN C=3 ELSE D=4 ELSE E=5 98 IMAGE $####.### 99 PRINT USING 98:A 100 IMAGE THE ANSWERS ARE ### AND ##.## 101 PRINT USING 100:A,B 102 IMAGE DEAR ####, 103 PRINT USING 102:X$ 104 IMAGE $####.## 105 IMAGE " ####.##" 106 IF A=1 THEN PRINT USING 104:AMOUNT ELSE PRINT USING 105:AMOUNT 107 CALL INIT 108 INPUT X 109 INPUT X$,Y 110 INPUT "ENTER TWO NUMBERS":A,B 111 INPUT A(J),J 112 INPUT J,A(J) 113 INPUT #1:X$ 114 INPUT #23:X,A,LL$ 115 INPUT #11,REC 44:TAX 116 INPUT #3:A,B,C, 117 PRINT INT(3.4) 118 X=INT(3.90) 119 P=INT(3.9999999999) 120 DISPLAY AT(3,7):INT(4.0) 121 N=INT(-3.9) 122 K=INT(-3.0000001) 123 CALL JOYST(1,X,Y) 124 CALL KEY(0,K,S) 125 PRINT LEN("ABCDE") 126 X=LEN("THIS IS A SENTENCE.") 127 DISPLAY LEN("") 128 DISPLAY LEN(" ") 129 T=4 130 X,Y,Z=12.4 131 A=3<5 132 B=12<7 133 I,A(I)=3 134 L$,D$,B$="B" 135 LET T=4 136 LET X,Y,Z=12.4 137 LET A=3<5 138 LET B=12<7 139 LET I,A(I)=3 140 LET L$,D$,B$="B" 141 CALL LINK("SUBPRG") 142 CALL LINK("SUBPRG",1) 143 CALL LINK("SUBPRG","PARAMETER",1,10) 144 LINPUT L$ 145 LINPUT "NAME: ":NM$ 146 LINPUT #1,REC M:L$(M) 147 LINPUT #1:A$ 148 CALL LOAD(-31962,0,32) 149 CALL LOAD(8196,63,248) 150 CALL LOAD(16376,65,32,32,32,32,32,255,48) 151 CALL LOAD(C+I,ASC(SEG$(C$,I,1))) 152 CALL LOAD(C,LEN(C$)) 153 CALL LOAD("DSK1.RAW/O") 154 CALL LOAD("DSK1.BSCSUP","DSK1.WURM1","DSK1.PRINT1") 155 CALL LOAD(9790,36,248,36,250,26,8,136,32,36,248,36,252,27,4,4,224,36,244,4,224,131,4) 156 CALL LOCATE(#1,YLOC,XLOC) 157 CALL LOCATE(#5,X,Y,#7,X2,Y2) 158 PRINT LOG(3.4) 159 X=LOG(EXP(7.2)) 160 S=LOG(SQR(T)) 161 LG=LOG(N)/LOG(B) 162 CALL MAGNIFY(3) 163 PRINT MAX(3,8) 164 F=MAX(3E12,1800000) 165 G=MAX(-12,-4) 166 L=MAX(A,B) 167 PRINT MIN(3,8) 168 F=MIN(3E12,1800000) 169 G=MIN(-12,-4) 170 L=MIN(A,B) 171 CALL MOTION(#1,YVEL,XVEL) 172 CALL MOTION(#5,Y,X,#8,Y2,X2) 173 NEXT COUNT 174 FOR DELAY=1 TO 100 :: NEXT DELAY 175 ON BREAK NEXT 176 ON BREAK STOP 177 ON ERROR STOP 178 ON ERROR 170 179 ON X GOSUB 1000,2000,300 180 ON P-4 GOSUB 200,250,300,800,170 181 ON X GO SUB 1000,2000,300 182 ON P-4 GO SUB 200,250,300,800,170 183 ON X GOTO 1000,2000,300 184 ON P-4 GOTO 200,250,300,800,170 185 ON X GO TO 1000,2000,300 186 ON P-4 GO TO 200,250,300,800,170 187 ON WARNING NEXT 188 ON WARNING PRINT 189 ON WARNING STOP 190 OPTION BASE 1 191 CALL PATTERN(#1,A) 192 CALL PATTERN(#3,96,#5,100) 193 CALL PEEK(8192,X1,X2,X3,X4) 194 VOLUME=4/3*PI*6^3 195 X=POS("PAN","A",1) 196 Y=POS("APAN","A",2) 197 CALL POSITION(#1,Y,X) 198 CALL POSITION(#1,YPOS1,XPOS1,#2,YPO2,XPOS2)