Sharp PC-E500/E500S Technikersoftware

DEMO.50#

DEMO

DEMO.50# (2.211 Bytes)

5 CLEAR
10 FOR Q=1TO 50
20  CLS :PRINT "**** SHARP POCKET COMPUTER  PC-E500 ****"
30 PRINT "    DISPLAY   :  40 *  4 lines"
40 PRINT "    GRAPHICS  : 240 * 32 dots"
50 PRINT "    RAM       : 32KB (max 96KB)"
60 FOR I=255 TO 1 STEP -1
70  BEEP 1,I,800/(I+100)
80 NEXT I
90 '******  GRAPH  ******
100 CLS
110 PRINT "GRAPHIC DISPLAY"
120 PRINT " ":PRINT "for ENGINEERING use"
130 RESTORE 300:BEEP 2,50,100
140 FOR I=7 TO 31 STEP 8
150 READ D$
160 GCURSOR (120,I):GPRINT D$
170 NEXT I:BEEP 2,50,100
180 LINE (180,0)-(238,25),B
190 FOR J=1 TO 2:Y=20
200 FOR I=184 TO 224 STEP 10
210  D=RND 22+1
220  LINE (I,Y)-(I+10,D):Y=D
230 NEXT I
240 NEXT J:BEEP 2,50,100
250 LINE (151,6)-(209,30),R,BF
260 LINE (150,5)-(210,31),B
270 FOR I=152 TO 202 STEP 10
280  LINE (I,RND 23+6)-(I+6,30),S,&5555,BF
290 NEXT I:BEEP 3,50,100
300 DATA 0000000080402020101008080404020202020201010101010101FFFFFFFFFFFFFFFEFEFEFEFEFCFCF8F8F0F0E0E0C080
310 DATA C078AE55AB56AA56AC54AC58A858B050B060A060C040C0808080FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEF8C0
320 DATA 00071A356AD5AA55AA55AA55AA55AA55AA55AAD5EAF5FAFDFEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7F3F1F07
330 DATA 0000000000000101020306050A0D1A1D1E1F1F3F3F3F3F3F3F3F3F3F3F3F3F3F3F1F1F1F1F1F0F0F070703030101
340 CLS
350 LOCATE 15,0:PRINT "GRAPHIC"
360 LOCATE 17,1:PRINT "DISPLAY"
370 LOCATE 15,3:PRINT "for hobby"
380 FOR J=0 TO 160 STEP 160:RESTORE 440
390 FOR I=7 TO 31 STEP 8
400  READ D$:GCURSOR (J,I):GPRINT D$
410 NEXT I
420 NEXT J
430 LINE (0,0)-(80,31),X,BF:BEEP 5,55,100
440 DATA 01011F0101001E0402000C12121E10000C12121F000E959595D6C08000000000C0E0F0F8FCFC1E3E1E0F078FE7F6F676F43408302E5777B7A7C7418F8F1F1F17071E0E3E7C38F0C00000
450 DATA 00000000000000000080C0C0E0F0F0F8FCFCBEBEBFB7ABDBFBFFFFFF00000000071F3F08010000000000000F3F73070200000000000000000001010206090D1536D24C483010E0810000
460 DATA 000000000C141637377777F7F7F7EFEFEFEFEFEFEFEFEFEF5F5F2F010000000F3F70C0601860C0703F0F0000F4F40000F8F8100808F0000070888888FFFF00000000030DF525242423FC
470 DATA FCFCFCFCDCDCDCDCDCDCDCDCDDDDDBDBD7D7CFCFCFD7DB5D5C5C5C5C5C5C5C5C3CBC3C3C3C3C3CBC3C3C341404441404042484140404148404042404041444048444745C97A5A529EA1F
490 NEXT Q

Generated by (c) Casio FX-850P/FX-880P Notepad 2.02

(c) by mani.becker@web.de - http://blog.manib.bplaced.net