1 PRINT"[147]SP 0256 DEMO"
9 REM*****DEMO CODES*****
10 DATA 43,19,39,30,0
11 DATA 46,24,11,2
12 DATA 13,30,30,2
13 DATA 55,39,19,2
14 DATA 40,58,2
15 DATA 40,15,15,20,40,40,2
16 DATA 55,12,8,55,2
17 DATA 55,7,40,7,11,2
18 DATA 26,19,13,2
19 DATA 56,6,11,2
20 REM*****DEMO TALK*****
21 DATA145,254,136,208,249,230,255,165,255,221,95,3,208,238,202
22 DATA16,230,96,160,224,192,0,160,2,169,0,170,133,254,177
23 DATA95,240,40,201,32,208,3,200,208,245,133,255,138,41,7
24 DATA170,240,14,72,165,255,24,42,105,0,202,208,249,133,255
25 FOR D=1 TO 46:READ A:POKE 56855,A:GOSUB 200:NEXT
26 DATA48,219,198,214,165,214,72,162,3,169,32,157,1,4,189
27 DATA212,228,32,210,255,208,12,0,92,72,32,201,255,170,104
28 REM***********************
29 REM*****USER PROGRAMM*****
30 PRINT"[147]PHONEM CODE EINGEBEN UND MIT <0> ABSCHLIESSEN":PRINT:PRINT
31 FORQ=1TON:PRINTPEEK(825+Q);:NEXT:N=0:PRINT:PRINT:PRINT:PRINT
39 REM*****USER CODES TO MEMORY*****
40 INPUT PH:N=N+1:POKE 825+N,PH:IF PH>0 THEN 40
50 PRINT"[147]SPRECHEN       <S>"
51 PRINT"NEUE CODES     <N>
55 [161] A$:[139] A$[178]""[167]55
56 [139] A$[178]"N" [167] 30
60 [141] 300:[137]50
199 [143]*****SP READY??*****
200 A[178][194](56855)[175] 1
210 [139] A[178]0 [167] 200
220 [142]
299 [143]*****TALK USER CODES*****
300 [129] Q[178]1 [164] N:[151] 56855,[194](825[170]Q):[141] 200:[130]:[142]